diff --git a/ChangeLog b/ChangeLog
index 5bb195d..ab36fb6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,17 +1,332 @@
 
 RCS file: RCS/imapsync,v
 Working file: imapsync
-head: 1.977
+head: 2.140
 branch:
 locks: strict
-	gilles: 1.977
+	gilles: 2.140
 access list:
 symbolic names:
 keyword substitution: kv
-total revisions: 977;	selected revisions: 977
+total revisions: 1040;	selected revisions: 1040
 description:
 ----------------------------
-revision 1.977	locked by: gilles;
+revision 2.140	locked by: gilles;
+date: 2021/07/05 20:14:18;  author: gilles;  state: Exp;  lines: +14 -10
+Fixed perlcrit 4 severity 4 violations.
+----------------------------
+revision 2.139
+date: 2021/07/04 21:03:28;  author: gilles;  state: Exp;  lines: +14 -14
+Adapted to oauth2/generate_gmail_token
+----------------------------
+revision 2.138
+date: 2021/07/01 08:40:50;  author: gilles;  state: Exp;  lines: +13 -10
+Moved oauthgenerateaccess() call.
+----------------------------
+revision 2.137
+date: 2021/07/01 08:13:52;  author: gilles;  state: Exp;  lines: +32 -10
+Bugfix. imapsync did nothing with the previous change.
+----------------------------
+revision 2.136
+date: 2021/06/30 23:16:13;  author: gilles;  state: Exp;  lines: +295 -176
+Review the README part.
+Added option --filterbuggyflags to filter the well known buggy flags that generate errors "BAD Invalid system flag" or "NO APPEND Invalid flag list".
+1734 unit tests.
+Some refactoring.
+----------------------------
+revision 2.135
+date: 2021/06/29 20:38:40;  author: gilles;  state: Exp;  lines: +58 -46
+Reviewed README section until flags options.
+----------------------------
+revision 2.134
+date: 2021/06/29 12:14:49;  author: gilles;  state: Exp;  lines: +40 -14
+Avoid unit tests on polarhome macosx where "ssl3_get_server_certificate:certificate verify failed". No clue to fix that.
+----------------------------
+revision 2.133
+date: 2021/06/28 08:07:25;  author: gilles;  state: Exp;  lines: +13 -12
+Fixed some unit tests for polarhome macosx
+----------------------------
+revision 2.132
+date: 2021/06/26 23:19:40;  author: gilles;  state: Exp;  lines: +40 -17
+Added tests to test cpu_number() on Windows MacOS
+----------------------------
+revision 2.131
+date: 2021/06/25 16:20:38;  author: gilles;  state: Exp;  lines: +57 -13
+Bugfix. cpu_number was accurate only on Linux. Added Freebsd
+----------------------------
+revision 2.130
+date: 2021/06/25 11:11:03;  author: gilles;  state: Exp;  lines: +108 -36
+Added percentage of all cpu in stats
+----------------------------
+revision 2.129
+date: 2021/06/24 16:59:49;  author: gilles;  state: Exp;  lines: +8 -8
+Removed a debug print
+----------------------------
+revision 2.128
+date: 2021/06/24 16:54:00;  author: gilles;  state: Exp;  lines: +8 -8
+1702 tests
+----------------------------
+revision 2.127
+date: 2021/06/24 15:42:11;  author: gilles;  state: Exp;  lines: +46 -16
+Added statistic line "CPU time and %cpu"
+----------------------------
+revision 2.126
+date: 2021/06/24 09:37:47;  author: gilles;  state: Exp;  lines: +87 -33
+Added --loglogfile option. Append ../list_all_logs_auto.txt with the logfile name. On by default in CGI context.
+Some refactoring, file_to_array file_to_string functions.
+----------------------------
+revision 2.125
+date: 2021/06/20 16:50:46;  author: gilles;  state: Exp;  lines: +66 -25
+Do not check selectable folders for huge accounts with more than 152 folders. 98percentile of /X
+----------------------------
+revision 2.124
+date: 2021/06/17 12:29:22;  author: gilles;  state: Exp;  lines: +8 -8
+Testfix. Sometimes GMT is output UTC.
+----------------------------
+revision 2.123
+date: 2021/06/17 11:56:20;  author: gilles;  state: Exp;  lines: +30 -27
+CGI context. Sync duplicates by default in cgi context.
+----------------------------
+revision 2.122
+date: 2021/06/16 19:36:21;  author: gilles;  state: Exp;  lines: +15 -17
+Stats. Final line "Biggest message" was in fact "Biggest message" to be transferred. Now it is "Biggest message transferred".
+----------------------------
+revision 2.121
+date: 2021/06/15 22:43:18;  author: gilles;  state: Exp;  lines: +150 -89
+Refactor. Splited sub myGetOptions() into sub setvalfromcgikey sub setvalfromlist sub setvalfromhash sub setvalfromcheckbox. Not very clean but better than the huge old one.
+----------------------------
+revision 2.120
+date: 2021/06/15 22:32:28;  author: gilles;  state: Exp;  lines: +54 -38
+Change time presentation on ETA and in final stats. Example: Wednesday 16 June 2021-06-16 00:32:05 +0200 CEST
+Added the timezone and full day
+----------------------------
+revision 2.119
+date: 2021/06/06 10:21:34;  author: gilles;  state: Exp;  lines: +162 -109
+Added localtimez function to replace localtime, date and time with the timezone added. Not replaced yet.
+Remove a useless warning "File xxx.pid does not exist" in tail function.
+Made oauth2 tests dependent on oauth2_string_for_oauthdirect.txt oauth2_access_token.txt presence.
+Added info "Exiting because of --justbanner" with --justbanner
+----------------------------
+revision 2.118
+date: 2021/05/31 22:18:16;  author: gilles;  state: Exp;  lines: +16 -11
+In CGI context, the log directory is no longer ./LOG_imapsync/ but simply ./ It should fasten the searches and grep
+----------------------------
+revision 2.117
+date: 2021/05/27 18:04:12;  author: gilles;  state: Exp;  lines: +20 -16
+Load limit 3x => 6x
+----------------------------
+revision 2.116
+date: 2021/05/21 16:41:12;  author: gilles;  state: Exp;  lines: +39 -53
+load limit upped to 3
+----------------------------
+revision 2.115
+date: 2021/05/05 23:41:12;  author: gilles;  state: Exp;  lines: +11 -8
+Advantage of a file when using --oauthaccesstoken1 str
+----------------------------
+revision 2.114
+date: 2021/05/05 19:03:24;  author: gilles;  state: Exp;  lines: +48 -21
+Documented --oauthaccesstoken1 and --oauthdirect1 and the 2 sisters.
+----------------------------
+revision 2.113
+date: 2021/05/03 20:47:18;  author: gilles;  state: Exp;  lines: +118 -35
+Implemented --oauthaccesstoken1 and --oauthaccesstoken2
+1691 unit tests
+----------------------------
+revision 2.112
+date: 2021/04/30 17:55:05;  author: gilles;  state: Exp;  lines: +257 -248
+Added --noabletosearch README
+Removed trailing blanks, perlcrit "Found "\N{SPACE}" at the end of the line"
+----------------------------
+revision 2.111
+date: 2021/04/30 07:40:41;  author: gilles;  state: Exp;  lines: +615 -408
+Added options --oauthdirect1 and --oauthdirect2 
+  to support OAUTH2 authentication.
+  The parameter value is the direct string given to the XOAUTH2 imap command.
+Added option  --syncduplicates to sync duplicates.
+
+Added option --trylogin on by default. 
+  After a login failure of any king, imapsync tries to login 
+  with the LOGIN command. Use --notrylogin to avoid that.
+ 
+Reduced sub login_imap() number of parameters from 19 to 10.
+
+Added options --oauthaccesstoken1 and --oauthaccesstoken2, not implemented yet.
+
+Removed old OAUTH1 support. I hope no one will be touched by this removal, if
+  yes, I'll bring it back.
+----------------------------
+revision 2.110
+date: 2021/03/28 17:34:29;  author: gilles;  state: Exp;  lines: +25 -16
+--timeout can now be a float (was only integer). Same for --timeout1 --timeout2
+Warning about a timeout by the webserver in CGI mode.
+$timeout no longer a variable (global).
+----------------------------
+revision 2.109
+date: 2021/03/13 19:39:37;  author: gilles;  state: Exp;  lines: +59 -25
+Added message ""No log file because of option --nolog".
+Added possibility of no logging in cgi context, with log=0 or log= in the parameters
+Added possibility of float number for --simulong instead of integer.
+1672 unit tests.
+----------------------------
+revision 2.108
+date: 2021/02/25 10:35:33;  author: gilles;  state: Exp;  lines: +27 -23
+Bugfix. In sub delete_messages_on_any, the uidexpunge_or_expunge call was
+ always done with an empty array so no expunge was done there. 
+ Fortunately, expunge was done elsewhere so this bug was not disastrous.
+ There is functionnal tests to check expunge behaviour anyway.
+----------------------------
+revision 2.107
+date: 2021/02/09 20:02:55;  author: gilles;  state: Exp;  lines: +9 -9
+Back from Message-Id to Message-Id Received in cgisetcontext
+----------------------------
+revision 2.106
+date: 2021/02/09 19:59:13;  author: gilles;  state: Exp;  lines: +222 -16
+Added some tests in sub tests_regexmess to remove a buggy header on multi-lines not all starting with a blank.  's{X-Spam-Report:.*?\n(^[^\n]+:|^\r?\n)}{$1}xms'
+----------------------------
+revision 2.105
+date: 2021/02/02 11:17:15;  author: gilles;  state: Exp;  lines: +30 -14
+Added tests "Add a final \r\n if missing"  in sub tests_regexmess
+----------------------------
+revision 2.104
+date: 2021/01/27 15:14:09;  author: gilles;  state: Exp;  lines: +76 -70
+Added test to "Change 8bit characters in whole email to X characters" in sub tests_regexmess
+----------------------------
+revision 2.103
+date: 2021/01/20 16:28:06;  author: gilles;  state: Exp;  lines: +46 -20
+Removed the exit_clean call when "Can not go to tls encryption on" in sub login_imap()
+1652 tests
+----------------------------
+revision 2.102
+date: 2020/12/13 23:48:30;  author: gilles;  state: Exp;  lines: +43 -20
+Bugfix. EXIT_ERR_APPEND_VIRUS had no message upon exit.
+Bugfix. In --dry mode the final "Messages transferred : 0 (could be 1264 without dry mode)" is ok when the folders does not exist yet.
+----------------------------
+revision 2.101
+date: 2020/12/08 23:47:13;  author: gilles;  state: Exp;  lines: +171 -40
+Added EXIT_CONNECTION_FAILURE_HOST1 101 return code
+Added EXIT_CONNECTION_FAILURE_HOST2 102 return code
+Added EXIT_AUTHENTICATION_FAILURE_USER1 161 return code
+Added EXIT_AUTHENTICATION_FAILURE_USER2 162 return code
+Do both side login and authentication before exiting on falure.
+----------------------------
+revision 2.100
+date: 2020/12/07 00:45:50;  author: gilles;  state: Exp;  lines: +24 -9
+New numbering from 1.999 directly to 2.100 I want to avoid 1.1000 and sorting issues in directory listing.
+Added option --dry1 it avoids to fetch the message on host1. --dry1 is on when --dry is on. It speeds up --dry very much.
+----------------------------
+revision 1.999
+date: 2020/12/02 20:41:50;  author: gilles;  state: Exp;  lines: +69 -34
+Added a section "How do you know a sync is finished and well done?"
+When creating a directory, now the current directory is also printed.
+  It helps when the directory created is relative.
+Bugfix. resolv: imapsync.lamiral.info => 2001:41d0:2:84e0::1 (was 91.121.221.224)
+----------------------------
+revision 1.998
+date: 2020/08/17 10:18:25;  author: gilles;  state: Exp;  lines: +302 -108
+1638 regression tests.
+Added option --abortbyfile to be able to be aborted by a file presence (context: webserver on windows)
+Reviewed and fixed sub acls_sync(). Did not work and made bad things.
+Added exit value EXIT_BY_FILE => 7
+Added exit value EXIT_TRANSFER_EXCEEDED      => 118
+----------------------------
+revision 1.997
+date: 2020/07/16 10:58:14;  author: gilles;  state: Exp;  lines: +20 -17
+Gmail update
+gmail12: maxbytespersecond 20_000 maxbytesafter 1_000_000_000
+gmail1 : maxbytespersecond 40_000 maxbytesafter 3_000_000_000 (was 2_500_000_000)
+gmail2 : maxbytespersecond 20_000 maxbytesafter 1_000_000_000
+----------------------------
+revision 1.996
+date: 2020/06/19 09:53:38;  author: gilles;  state: Exp;  lines: +69 -20
+Added exit 118 EXIT_TRANSFER_EXCEEDED when "Maximum bytes transferred reached" with option --exitwhenover
+Added error type ERR_TRANSFER_EXCEEDED.
+----------------------------
+revision 1.995
+date: 2020/06/17 18:55:01;  author: gilles;  state: Exp;  lines: +9 -8
+Added exitwhenover as an option in cgi context.
+----------------------------
+revision 1.994
+date: 2020/06/14 12:10:30;  author: gilles;  state: Exp;  lines: +76 -22
+Bugfix. Fixed some "Exiting with return value  ()". Added ERR_NOTHING_REPORTED error and exit EXIT_CATCH_ALL ie 1 in case.
+----------------------------
+revision 1.993
+date: 2020/06/12 09:10:20;  author: gilles;  state: Exp;  lines: +10 -8
+Docfix. Fixed issue https://github.com/imapsync/imapsync/issues/213
+Precision about --delete2duplicates
+----------------------------
+revision 1.992
+date: 2020/05/29 12:14:53;  author: gilles;  state: Exp;  lines: +156 -34
+Bugfix. fatal string causing "Wide character in subroutine entry"
+----------------------------
+revision 1.991
+date: 2020/05/12 20:37:48;  author: gilles;  state: Exp;  lines: +86 -25
+Bugfix. --checknoabletosearch was not adaptive.
+Fix. tests sslheck now use test1.lamiral.info instead of imapsync.lamiral.info 
+Fix. tests_resolv now use ks6ipv6.lamiral.info instead of ks2ipv6.lamiral.info
+Bugfix. Better closing of logfile at the end in order to avoid in Apache error log "AH01215: print() on closed filehandle $logfile_handle"
+----------------------------
+revision 1.990
+date: 2020/05/03 17:07:36;  author: gilles;  state: Exp;  lines: +7 -7
+Bugfix. Forgot to map ERR_Host1_FETCH to EXIT_ERR_FETCH,
+----------------------------
+revision 1.989
+date: 2020/05/03 17:07:17;  author: gilles;  state: Exp;  lines: +8 -7
+*** empty log message ***
+----------------------------
+revision 1.988
+date: 2020/04/29 21:52:20;  author: gilles;  state: Exp;  lines: +37 -8
+Sanitize host1 and host2 values. Remove blanks and / characters.
+----------------------------
+revision 1.987
+date: 2020/04/29 02:34:00;  author: gilles;  state: Exp;  lines: +253 -18
+Added an analyse and classification of the errors encountered.
+Most common error encountered is printed at the end.
+Exit value 112 is now replaced by the most common error encountered exit value
+113 is EXIT_OVERQUOTA
+114 is EXIT_ERR_APPEND
+115 is EXIT_ERR_FETCH
+116 is EXIT_ERR_CREATE
+117 is EXIT_ERR_SELECT
+111 is EXIT_WITH_ERRORS ERR_UNCLASSIFIED
+----------------------------
+revision 1.986
+date: 2020/04/26 11:05:55;  author: gilles;  state: Exp;  lines: +37 -36
+Changed filter_forbidden_characters() to replace non-ascii and control characters and spaces by character _
+----------------------------
+revision 1.985
+date: 2020/04/25 14:50:30;  author: gilles;  state: Exp;  lines: +48 -23
+Added unit tests to prepare "Wide character in subroutine entry".
+----------------------------
+revision 1.984
+date: 2020/04/22 10:35:44;  author: gilles;  state: Exp;  lines: +30 -15
+Bugfix. Empty subject https://github.com/imapsync/imapsync/pull/216 added unit test regression.
+----------------------------
+revision 1.983
+date: 2020/03/19 02:08:12;  author: gilles;  state: Exp;  lines: +96 -13
+Filter flags \PRIORITY \READRCPT in cgi context.
+Now check if SEARCH ALL works on both accounts and then add --noabletosearch if one can not. Use --nochecknoabletosearch to avoid that behavior.
+----------------------------
+revision 1.982
+date: 2020/03/16 15:17:02;  author: gilles;  state: Exp;  lines: +60 -29
+Rewrote tests in tests_msgs_from_maxmin() (same ones anyway)
+----------------------------
+revision 1.981
+date: 2020/02/14 12:10:13;  author: gilles;  state: Exp;  lines: +18 -8
+Bugfix. CGI not fatal with imapsync --tests
+----------------------------
+revision 1.980
+date: 2020/01/18 20:37:27;  author: gilles;  state: Exp;  lines: +9 -9
+Updated @regexflag in cgi context.
+----------------------------
+revision 1.979
+date: 2020/01/14 22:26:11;  author: gilles;  state: Exp;  lines: +47 -30
+Added regex --regexflag from /X analyse in cgi context.
+----------------------------
+revision 1.978
+date: 2020/01/08 21:56:12;  author: gilles;  state: Exp;  lines: +11 -11
+Added single quote ' filtering in filter_forbidden_characters()
+----------------------------
+revision 1.977
 date: 2019/12/23 20:18:02;  author: gilles;  state: Exp;  lines: +10 -10
 No tests_resolv(  ) since resolv is not really used and tests_resolv(  ) fails on mac (I do not have write to /etc/hosts)
 ----------------------------
diff --git a/FAQ.d/FAQ.APPEND_errors.txt b/FAQ.d/FAQ.APPEND_errors.txt
index c8d473e..2f5a8b6 100644
--- a/FAQ.d/FAQ.APPEND_errors.txt
+++ b/FAQ.d/FAQ.APPEND_errors.txt
@@ -1,19 +1,19 @@
 #!/bin/cat
-$Id: FAQ.APPEND_errors.txt,v 1.12 2021/02/10 19:42:42 gilles Exp gilles $
+$Id: FAQ.APPEND_errors.txt,v 1.13 2021/05/29 07:58:44 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
 https://imapsync.lamiral.info/FAQ.d/FAQ.APPEND_errors.txt
 
-=======================================================================
+======================================================================
               Dealing with Imapsync APPEND errors.
-=======================================================================
+======================================================================
 
 Questions answered in this FAQ are:
 
 
-Q. I have an "could not append" error with "Message contains invalid header" at
-   the end, like:
+Q. I have an "could not append" error with 
+   "Message contains invalid header" at the end, like:
    Err 1/20: - msg INBOX/6 {40666} could not append ... NO Message contains invalid header
    What can I do to transfer these emails?
 
@@ -23,15 +23,20 @@ Q. For some messages, the imapsync log says
    useful message "socket closed while reading data from server"
    What can I do?
 
+Q. The append error message is "NO Message contains NUL characters"
+   What can I do?
+
 
 Now the questions again with their answers.
 
-=======================================================================
-Q. I have an "could not append" error with "Message contains invalid header" 
-   at the end, like:
+
+======================================================================
+Q. I have an "could not append" error with 
+   "Message contains invalid header" at the end, like:
    Err 1/20: - msg INBOX/6 {40666} could not append ... NO Message contains invalid header
    What can I do to transfer these emails?
 
+
 R0. Append in the IMAP protocol is the command to add a message in the folder.
     The error string "NO. Message contains invalid header" comes from the 
     destination IMAP server at host2, it doesn't like the message and rejects it.
@@ -40,12 +45,16 @@ R1. Header lines must be in 7bit encoding.
    If they aren't in 7bit the IMAP server can refuse them as they break 
    the IMAP RFC specification.
 
-   A solution is to transform all 8bit characters to the X character with:
+   A solution is to transform all 8bit characters to the Z character with:
    
-   imapsync ... --regexmess 'tr [\x80-\xff] [X]'
+   imapsync ... --regexmess "tr [\x80-\xff] [Z]"
 
    Caveat: this transformation transforms both the email header and its body.
    It's not perfect but I guess it's better than no message transferred.
+   So consider using it in a second pass, not the first, as 8-bit 
+   characters in the body message are allowed and changing them when
+   not needed is not a good thing.
+
 
 R2. Some crappy email systems, like virus checkers or any other crappy 
     software tool dealing with your messages, can add headers to tell 
@@ -61,7 +70,7 @@ R2. Some crappy email systems, like virus checkers or any other crappy
     Thanks to Damien SAUTEREAU for reporting and solving this issue.
     
 
-=======================================================================
+======================================================================
 Q. For some messages, the imapsync log says 
    "could not append", sometimes followed by an explicit message 
    describing what went wrong, or sometimes followed by a not very
@@ -136,5 +145,22 @@ OPTIONS
 R3. Look for the quota limit on host2. If it is the current mailbox size, don't
     search elsewhere. Increase the quota on the destination account.
 
-=======================================================================
-=======================================================================
+======================================================================
+Q. The append error message is "NO Message contains NUL characters"
+   What can I do?
+
+R. Use:
+
+  imapsync ...  --skipmess "m/(\x00)+\Z/"
+
+The option --skipmess skips messages matching a pattern, the 
+messages are not synced, you just avoid the error messages concerning
+those messages.
+
+If you want to sync them, use instead:
+
+  imapsync ...  --regexmess "s/(\x00)+\Z//g"
+
+
+======================================================================
+======================================================================
diff --git a/FAQ.d/FAQ.Archiving.txt b/FAQ.d/FAQ.Archiving.txt
index 6ed064e..45c4bb5 100644
--- a/FAQ.d/FAQ.Archiving.txt
+++ b/FAQ.d/FAQ.Archiving.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Archiving.txt,v 1.24 2021/04/18 09:11:32 gilles Exp gilles $
+$Id: FAQ.Archiving.txt,v 1.25 2021/05/04 16:56:59 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -138,8 +138,8 @@ R5. There is a free online service (French language) allowing you to do
     a Maildir or EML or HTML backup at 
     https://www.powermail.fr/sauvegarder-une-boite-mail/
     Prefer Maildir or EML format if you want to be able to restore the 
-    archive. HTML format will be ok to only view the messages, not 
-    restore them to so imap server account.
+    archive. HTML format will be ok to only view the messages, not to
+    restore them to an imap server account.
 
 I have never used any of this tools so asking me for support with them 
 won't go far away.
diff --git a/FAQ.d/FAQ.Bandwidth.txt b/FAQ.d/FAQ.Bandwidth.txt
index 73e0685..5e089c1 100644
--- a/FAQ.d/FAQ.Bandwidth.txt
+++ b/FAQ.d/FAQ.Bandwidth.txt
@@ -1,5 +1,5 @@
 
-$Id: FAQ.Bandwidth.txt,v 1.2 2021/04/19 11:46:47 gilles Exp gilles $
+$Id: FAQ.Bandwidth.txt,v 1.3 2021/05/20 11:46:07 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -20,27 +20,29 @@ Now the questions again with their answers.
 =======================================================================
 Q. What is the bandwidth used by imapsync?
 
-R. From the host where imapsync runs, it opens two imap connections, 
-   one with the source account at host1, one with the destination 
-   account at host2.
+R. From the host where imapsync runs, imapsync opens two imap
+connections, one with the source account at host1, one with the
+destination account at host2.
    
-   So, the global bandwidth used is twice the volume of the source 
-   account, one volume to download the messages from host1, 
-   one volume to upload those messages to host2.
+So, the global bandwidth used by an imapsync transfer is twice the
+volume of the source account, one volume to download the messages from
+host1, one volume to upload those messages to host2.
+
+If the host2 is already filled with the messages, imapsync doesn't
+transfer them and then the volume transferred is small, this volume is
+just made up of the IMAP commands needed to identify the messages on
+both sides.
    
-   If the host2 is already filled with the messages, imapsync doesn't
-   transfer them and then the volume transferred is small, this volume
-   is just the IMAP commands needed to identify the messages on both sides.
+There is no local cache of the email messages, except when a message
+is very big; it is then temporarily saved locally between the download
+and the upload.
    
-   There is no local cache of the email messages, except when the
-   message is very big, it is temporarily saved locally. 
-   
-   The biggest message seen so far on online /X is 3.08 GiB
-   while the biggest message transferred is 1.51 GiB so
-   I suspect a bug here. Drop me a note if you encounter the same
-   issue, I'll then dig into it, ie, I'll create a 2 or 3 GiB message
-   and play with it :-)
+The biggest message seen so far on the online service I call /X is
+3.08 GiB while the biggest message transferred is 1.51 GiB. So I
+suspect a bug here. Drop me a note if you encounter the same issue,
+I'll then dig into it, ie, I'll create a 2 or 3 GiB big message and
+play with it :-)
 
 
 =======================================================================
-=======================================================================
\ No newline at end of file
+=======================================================================
diff --git a/FAQ.d/FAQ.Docker.txt b/FAQ.d/FAQ.Docker.txt
index b416894..a159286 100644
--- a/FAQ.d/FAQ.Docker.txt
+++ b/FAQ.d/FAQ.Docker.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-# $Id: FAQ.Docker.txt,v 1.7 2020/01/08 05:02:55 gilles Exp gilles $
+# $Id: FAQ.Docker.txt,v 1.8 2021/05/04 16:57:09 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -23,6 +23,10 @@ Q. Where is the imapsync Docker hub location?
 Q. How can I mask the passwords on the command line without mounting
    inside the container?
 
+===========================================================================
+Q. Why imapsync isn't logging to a file in Docker context. 
+   How can I allow it?
+
 Q. Any tips for the Docker Mailcow distribution?
 
 
@@ -80,6 +84,22 @@ See:
 https://docs.docker.com/engine/reference/commandline/run/#set-environment-variables--e---env---env-file
 https://stackoverflow.com/a/30494145/491175
 
+===========================================================================
+Q. Why imapsync isn't logging to a file in Docker context. 
+   How can I allow it?
+
+R. In Docker context, writing the log is disabled by default because you 
+   don't have an easy access to the logfile after the sync. The logfile is 
+   inside the docker and no longer available after the sync, unless
+   a special mount is done before.
+
+Starting with imapsync release 2.113 the logging can be set on 
+by using the option --log. You can add access to the logfile with a mount 
+or similar. See https://docs.docker.com/storage/volumes/"
+
+See also
+https://github.com/imapsync/imapsync/issues/283
+
 ===========================================================================
 Q. Any tips for the Docker Mailcow distribution?
 
diff --git a/FAQ.d/FAQ.Duplicates.txt b/FAQ.d/FAQ.Duplicates.txt
index 91002a7..48092f5 100644
--- a/FAQ.d/FAQ.Duplicates.txt
+++ b/FAQ.d/FAQ.Duplicates.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Duplicates.txt,v 1.23 2021/04/22 13:28:41 gilles Exp gilles $
+$Id: FAQ.Duplicates.txt,v 1.24 2021/07/04 22:59:56 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -17,7 +17,7 @@ Q. How does imapsync identify messages and duplicates?
 Q. How can I know if imapsync will generate duplicates on a second run?
 
 Q: I found multiple copies, duplicates, when I run imapsync twice or
-   more. What is hell is happening?
+   more. What the hell is happening?
    
 Q. imapsync calculates 479 messages in a folder but only transfers 400 
    messages. What is happening?
@@ -65,7 +65,7 @@ Messages skipped                  : 1555
 
 =======================================================================
 Q: I found multiple copies, duplicates, when I run imapsync twice or
-   more. What is hell is happening?
+   more. What the hell is happening?
 
 R0. First, some explanations to understand the issue. 
 Normally and by default, imapsync doesn't generate duplicates.
@@ -96,7 +96,7 @@ of all messages already transferred.
 
 If you end with: 
 Messages skipped                  : 0
-don't go on, it means imapsync is still suffering to
+then don't go on, it means imapsync is still suffering to
 identify messages.
 
 If you end with many messages skipped then it's very
@@ -227,7 +227,9 @@ R2. With option --useuid imapsync doesn't use headers to identify
 Q. imapsync doesn't synchronize duplicates by default but I want to.
    How can I synchronize duplicates?
 
-R. Use the option --useuid
+R1. Use the option  --syncduplicates
+
+R2. Use the option --useuid
    If you have already synchronized two mailboxes without --useuid then
    using it right away will generate duplicates on host2. To avoid that
    behavior, you have to perform a first run with --usecache to build
@@ -251,10 +253,6 @@ R. Use the option --useuid
    If the two mailboxes haven't been already synchronized then the
    first run with --usecache is useless.
 
-   I shall add an option --syncduplicates that syncs duplicates 
-   without any cache needed and make it the default but it's not 
-   coded yet.
-
 =======================================================================
 Q. How can I remove duplicates in a lone account?
 
@@ -263,6 +261,5 @@ R. In order to remove duplicates in a lone account, just run imapsync
    option --delete2duplicates, ie, with 
    host1 == host2, user1 == user2, password1 == password2
    
-
 =======================================================================
 =======================================================================
diff --git a/FAQ.d/FAQ.Exchange.txt b/FAQ.d/FAQ.Exchange.txt
index 7778774..88bf0db 100644
--- a/FAQ.d/FAQ.Exchange.txt
+++ b/FAQ.d/FAQ.Exchange.txt
@@ -1,5 +1,5 @@
 
-$Id: FAQ.Exchange.txt,v 1.74 2021/03/23 14:53:33 gilles Exp gilles $
+$Id: FAQ.Exchange.txt,v 1.75 2021/05/25 10:23:33 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -7,9 +7,9 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Exchange.txt
 
 
 
-=======================================================================
+======================================================================
       Imapsync tips for Exchange 2000 2003 2007 2010 2013 2016 2019
-=======================================================================
+======================================================================
 
 Questions answered in this FAQ are:
 
@@ -65,7 +65,7 @@ Q. How to sync from Microsoft Exchange 2000 IMAP4rev1 server?
 
 Now the questions again with their answers.
 
-=======================================================================
+======================================================================
 Q. Can I use imapsync to transfer from or to Exchange accounts?
 
 R. Yes. But IMAP access to an Exchange account is not always 
@@ -74,7 +74,7 @@ R. Yes. But IMAP access to an Exchange account is not always
 
    Exchange:  https://docs.microsoft.com/en-us/exchange/enable-imap4-in-exchange-2013-exchange-2013-help
 
-=======================================================================
+======================================================================
 Q. How to sync from XXX to Exchange 2010/2013/2016/2019
 
 R0. IMAP is not enable by default on Exchange, see how to enable it:
@@ -133,7 +133,7 @@ Use it like this:
 
 It often does some miracles on messages.
 
-=======================================================================
+======================================================================
 Q. For Exchange I have double and triple checked the username and
    password spelling but I still get a "LOGIN failed". Any clue?
 
@@ -185,7 +185,7 @@ R4. Are there special characters in the password?
     https://imapsync.lamiral.info/FAQ.d/FAQ.Passwords_on_Mac.txt
 
 
-=======================================================================
+======================================================================
 Q. Exchange fails with "User is authenticated but not connected".
 
 R1. "The message User is authenticated but not connected is due to a 
@@ -201,7 +201,7 @@ R2. Miguel Alameda reported understanding and solving this issue
     like this, the context was admin/authuser:
     "The admin user had not permission in the target mailbox."
 
-=======================================================================
+======================================================================
 Q. I see "NO Maximum size of appendable message has been exceeded" 
    What can I do with that?
 
@@ -249,7 +249,7 @@ in order to remove the imapsync Exchange error message
 "NO Maximum size of appendable message has been exceeded"
 
 
-=======================================================================
+======================================================================
 Q. Exchange throttles the sync and says: 
    "Request is throttled. Suggested Backoff Time: 299961 milliseconds".
    What can I do with that?
@@ -284,7 +284,7 @@ R2. For Exchange, in case throttle appears anyway, fix them with:
   Sometimes restarting the Exchange server is needed to take
   into account the change in the configuration.
 
-=======================================================================
+======================================================================
 Q. Exchange fails with "BAD Command received in Invalid state".
 
 R1. This message might happen when authenticating without ssl nor tls,
@@ -298,7 +298,7 @@ R2. This message might also happen when authenticating with ssl and tls.
    It won't work, you can't do a direct double encryption, few 
    servers allow that.
 
-=======================================================================
+======================================================================
 Q. From XXX to Exchange 2013, read receipts are all resent again 
    after a sync. Even for old messages. How can I fix that?
 
@@ -332,7 +332,7 @@ X-Disposition-Notification-To: blabla
 
 Thanks to David Karnowski for pointing and solving this issue.
 
-=======================================================================
+======================================================================
 Q. DEBUG: IO/Socket/SSL.pm:1043: local error: SSL read error
    DEBUG: IO/Socket/SSL.pm:1043: local error: SSL read error   
 
@@ -348,7 +348,7 @@ R2. Another solution is to remove --tls or --ssl options for Exchange
 R3. See also the FAQ FAQ.SSL_errors.txt
     https://imapsync.lamiral.info/FAQ.d/FAQ.SSL_errors.txt
 
-=======================================================================
+======================================================================
 Q. From XXX to Exchange 2010/2013 I get this error message
    sometimes: "BAD Command Argument Error 11". What does it mean?
 
@@ -372,8 +372,7 @@ R. This error message comes from Exchange IMAP server when it
   * Some messages have some lines too long. Use option --maxlinelength
     to skip messages whose max line length is over a number of bytes.
     --maxlinelength 1000 is a RFC2822 must but most server support
-    higher values. 
-    Exchange supports 9900 characters line length:
+    higher values. Exchange supports 9900 characters line length:
 
   imapsync ... --maxlinelength 9900 
 
@@ -400,7 +399,7 @@ Use it like this:
 
 It often does some miracles on messages.
 
-=======================================================================
+======================================================================
 Q. From XXX to Exchange 2010 or 2013, the flag Flagged does 
    not seem to be well synced. What can I do?
 
@@ -549,7 +548,7 @@ In case you are not aware:
   omitted in our case
 - Use --debugimap when testing initial connectivity, if necessary
 
-=======================================================================
+======================================================================
 Q. Couldn't create folder [trash] "Mailbox already exists".
 
 R. Some servers take care about character case in folder names, 
@@ -617,7 +616,7 @@ R2. Other solution
 Two users succeeded by using "MS Transporter Suite" (which is closed
 expensive non-free software).
 
-=======================================================================
+======================================================================
 Q. Exchange 2007 folders ending with a space cause an imapsync crash.
    "Could not select: socket closed while reading data from server"
 
@@ -632,5 +631,5 @@ Q. How to sync from Microsoft Exchange 2000 IMAP4rev1 server?
 R. imapsync ...  --prefix1 "INBOX."
 
 
-=======================================================================
-=======================================================================
+======================================================================
+======================================================================
diff --git a/FAQ.d/FAQ.Folders_Sizes.txt b/FAQ.d/FAQ.Folders_Sizes.txt
index 674e7a3..14081c9 100644
--- a/FAQ.d/FAQ.Folders_Sizes.txt
+++ b/FAQ.d/FAQ.Folders_Sizes.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Folders_Sizes.txt,v 1.4 2021/01/26 13:05:21 gilles Exp gilles $
+$Id: FAQ.Folders_Sizes.txt,v 1.5 2021/07/04 23:02:32 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -59,10 +59,7 @@ R. There are several reasons to explain the different counts between
 4) There are duplicate messages on host1. Imapsync doesn't sync 
    duplicates by default. But it counts them and presents the number
    found at the end on the line "Messages found duplicate on host1". 
-   To sync duplicates, use option --useuid
-   --useuid has some caveats. See the documant FAQ.Duplicates.txt
-   for details about it at
-   https://imapsync.lamiral.info/FAQ.d/FAQ.Duplicates.txt
+   To sync duplicates, use the option --syncduplicates
 
 5) There are duplicate messages on host2 so host2 is
    bigger than host1. Solution: use --delete2duplicates to delete
diff --git a/FAQ.d/FAQ.Gmail.txt b/FAQ.d/FAQ.Gmail.txt
index e52f7ea..3464304 100644
--- a/FAQ.d/FAQ.Gmail.txt
+++ b/FAQ.d/FAQ.Gmail.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Gmail.txt,v 1.79 2021/03/31 16:20:28 gilles Exp gilles $
+$Id: FAQ.Gmail.txt,v 1.80 2021/07/06 02:30:11 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -95,13 +95,13 @@ either:
 
 1) "Access for less secure apps"
 2) "2-step verification"
-3) XOauth2 (not ready for individual Gmail authentication, only for groups)
+3) XOauth2 ready for groups on any OS or 
+   for individual Gmail authentication on Linux.
 
 For the last one, XOauth2, see the document 
 https://imapsync.lamiral.info/FAQ.d/FAQ.XOAUTH2.txt
 
 
-
 1) "Access for less secure apps", the first way to authenticate 
    to Gmail with Imapsync. This is the easiest way because
    you just have to turn one button on.
@@ -335,6 +335,7 @@ imapsync --host1 mail.oldhost.com     \
          --expunge1   \
          --addheader  \
          --maxsleep 2 \
+         --maxsize 35_651_584
          --exclude "\[Gmail\]$"  \
          --regextrans2 's,\[Gmail\].,,' \
          --regextrans2 's,^ +| +$,,g'
@@ -411,7 +412,7 @@ On Windows:
 --regextrans2 "s/[\^]/_/g" is mandatory.  It converts, since
 not accepted by gmail, character ^ to character _ underscore.
 
---regextrans2 "s/['\"\\\\]/_/g" is optional. It converts 
+--regextrans2 's/['"'"'\\^"]/_/g' is optional. It converts 
 characters ' or " or \ to character _ underscore.
 
 You can select folders exported to imap within the gmail preferences.
@@ -443,7 +444,7 @@ imapsync \
            --user2     tata \
            --password2 tatasecret \
            --maxbytespersecond 40_000 \
-           --maxbytesafter 2_500_000_000 \
+           --maxbytesafter 3_000_000_000 \
            --automap \
            --maxsleep 2 \
            --skipcrossduplicates \
diff --git a/FAQ.d/FAQ.GoDaddy.txt b/FAQ.d/FAQ.GoDaddy.txt
new file mode 100644
index 0000000..38ad8cf
--- /dev/null
+++ b/FAQ.d/FAQ.GoDaddy.txt
@@ -0,0 +1,23 @@
+$Id: FAQ.GoDaddy.txt,v 1.1 2021/05/21 18:19:29 gilles Exp gilles $
+
+This documentation is also available online at
+https://imapsync.lamiral.info/FAQ.d/
+https://imapsync.lamiral.info/FAQ.d/FAQ.GoDaddy.txt
+
+
+=======================================================================
+             Imapsync tips for GoDaddy
+=======================================================================
+
+
+Questions answered in this FAQ are:
+
+Q. What are the GoDaddy settings for imapsync?
+
+Now the questions again with their answers.
+
+=======================================================================
+Q. What are the GoDaddy settings for imapsync?
+
+R. The imap server is imap.secureserver.net
+
diff --git a/FAQ.d/FAQ.Messages_Selection.txt b/FAQ.d/FAQ.Messages_Selection.txt
index 705bddc..480cca2 100644
--- a/FAQ.d/FAQ.Messages_Selection.txt
+++ b/FAQ.d/FAQ.Messages_Selection.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Messages_Selection.txt,v 1.17 2021/01/23 13:01:00 gilles Exp gilles $
+$Id: FAQ.Messages_Selection.txt,v 1.18 2021/07/04 23:05:24 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -34,8 +34,9 @@ Q. What are the selection criteria available with --search option?
 Q. What messages imapsync syncs by default?
 
 R1. By default, Imapsync syncs all messages, except duplicates.
+    If you want to sync duplicates, add the option --syncduplicates
 
-R2. You can alter the default all messages selection by using one or 
+R2. You can alter the default "all messages selected" by using one or 
     more of the following options:
 
 Extract from the README https://imapsync.lamiral.info/README
diff --git a/FAQ.d/FAQ.Messages_Too_Big.txt b/FAQ.d/FAQ.Messages_Too_Big.txt
index 5b756ec..aba8cfd 100644
--- a/FAQ.d/FAQ.Messages_Too_Big.txt
+++ b/FAQ.d/FAQ.Messages_Too_Big.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Messages_Too_Big.txt,v 1.4 2020/10/21 09:21:48 gilles Exp gilles $
+$Id: FAQ.Messages_Too_Big.txt,v 1.5 2021/06/22 15:31:39 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -21,59 +21,67 @@ Now the questions again with their answers.
 =======================================================================
 Q. What does imapsync with big messages?
 
-R. By default, imapsync checks if the host2 imap server announces a 
-   message size limit with "APPENDLIMIT=xxxx" in its CAPABILITY response.
-   Then imapsync takes this value to set automatically the --maxsize
-   option, unless --maxsize is already set on the command line
-   and has a smaller value than the APPENDLIMIT value.
+R. By default, imapsync checks if the host2 imap server announces a
+message size limit with "APPENDLIMIT=xxxx" in its CAPABILITY response.
+Then imapsync takes this value to set automatically the --maxsize
+option, unless --maxsize is already set on the command line and has a
+smaller value than the APPENDLIMIT value.
    
-   If the host2 imap server doesn't announce any message size 
-   limit then imapsync syncs messages no matter their sizes.
+If the host2 imap server doesn't announce any message size limit then
+imapsync syncs all messages no matter their sizes.
    
-   When a message is copied to the destination server, the destination 
-   server accepts it or not but it does it as a whole, it takes the 
-   full message or nothing. Nothing triggers an error in imapsync.
+When a message is copied to the destination server, the destination
+server accepts it or not but it does it as a whole, it takes the full
+message or nothing. Nothing triggers an error in imapsync.
 
-   * Gmail     announces APPENDLIMIT=35651584 (October 2020).
+   * Gmail announces APPENDLIMIT=35651584 (June 2021).
    * Office365 announces nothing.
-   * Dovecot   announces nothing.
+   * Dovecot announces nothing.
+   * Usually imap servers announce nothing.
 
 =======================================================================
 Q. What can I do to transfer messages bigger than what allows the 
    imap destination server?
 
-R1. A solution is to truncate the message to the maximum size allowed 
-    before copying it to host2. That's a little dirty but it's ok
-    if you prefer having a truncated message than no message 
-    at all. The attachments after the truncation won't be available 
-    but everything before should be ok. It may also depends
-    on the software tool reading the email message.
+R1. A solution is to truncate the message to the maximum size allowed
+before copying it to host2. That's a little dirty but it's ok if you
+prefer having a truncated message than no message at all. The
+attachments after the truncation won't be available but everything
+before should be ok. It may also depend on the software tool reading
+the email message.
 
-For example, 
-Gmail currently limits messages to 35651584 bytes (October 2020),
+For example, Gmail currently limits messages to 35651584 bytes, 
+aka 34 MiB (June 2021),
 
 Starting with imapsync release 1.938 option --truncmess xxxx truncates
-messages bigger than the  given size xxxx.
+messages bigger than the given size xxxx, size given in bytes.
 
   imapsync --truncmess 35651584 --appendlimit 1000000000000
 
+The --appendlimit option is only needed imap servers that offer the
+APPENDLIMIT capability, for example, Gmail. Using it doesn't hurt
+anyway.
+
 Prior to imapsync release 1.938, instead of --truncmess:
 
 On Linux, use:
 
    imapsync ... --pipemess  'perl -0ne "print substr \$_,0,35651584" '
    
-On windows, use:
+On windows, use (I'm not sure of, not tested yet):
 
-   I'm not sure of (not tested yet):
-   
    imapsync ... --pipemess  "perl -0ne 'print substr $_,0,35651584' "
 
-   
-R2. A not so dirty solution would be to transform the message and 
-    include links to the big attachments, instead of the attachments. 
-    Well, not done yet and too much complicted compared to the simple 
-    solution which is to allow big messages on the destination account.
+
+R2. A not-so-dirty solution would be to transform the big messages,
+replace the attachments with links to the attachments stored elsewhere.
+Well, it's not done and it's too much complicated compared to a simpler
+solution which is to allow bigger messages on the destination account.
+
+As time goes on, disk space is cheaper and cheaper.  Don't make the
+new user account, the destination account, worst than his previous,
+buy disks. Monitor and rule your resources, not the users.
 
 =======================================================================
-=======================================================================
\ No newline at end of file
+=======================================================================
+
diff --git a/FAQ.d/FAQ.Office365.txt b/FAQ.d/FAQ.Office365.txt
index 38d14cd..4e159c4 100644
--- a/FAQ.d/FAQ.Office365.txt
+++ b/FAQ.d/FAQ.Office365.txt
@@ -1,14 +1,14 @@
 
-$Id: FAQ.Office365.txt,v 1.20 2021/03/17 20:42:35 gilles Exp gilles $
+$Id: FAQ.Office365.txt,v 1.23 2021/07/06 02:30:01 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
 https://imapsync.lamiral.info/FAQ.d/FAQ.Office365.txt
 
 
-=======================================================================
+======================================================================
             Imapsync tips for Office365.
-=======================================================================
+======================================================================
 
 Questions answered in this FAQ are:
 
@@ -65,7 +65,7 @@ Q. Couldn't create folder [trash] "Mailbox already exists".
 
 Now the questions again with their answers.
 
-=======================================================================
+======================================================================
 Q. Can I use imapsync to transfer from or to Office365 accounts?
 
 R. Yes. But IMAP access to Office365 account is not always allowed by default 
@@ -74,12 +74,12 @@ R. Yes. But IMAP access to Office365 account is not always allowed by default
 https://docs.microsoft.com/en-us/exchange/clients-and-mobile-in-exchange-online/pop3-and-imap4/enable-or-disable-pop3-or-imap4-access
 https://docs.microsoft.com/en-us/exchange/troubleshoot/configure-mailboxes/pop3-imap-owa-activesync-office-365
 
-=======================================================================
+======================================================================
 Q. Does imapsync support OAUTH2 authentication for Office365 accounts?
 
 R. No. But I plan to add it during the year 2021.
 
-=======================================================================
+======================================================================
 Q. How to sync from Office365 to XXX?
 
 R. On Windows, use:
@@ -90,13 +90,13 @@ On Unix, use:
 
   imapsync ... --office1
 
-Option --office1 is like (release 1.970):
+Option --office1 is like (release 1.970 or higher):
   
   imapsync ... --host1 outlook.office365.com \
                --ssl1 \
                --exclude "^Files$" 
   
-=======================================================================
+======================================================================
 Q. How to sync from XXX to Office365
 
 R0. IMAP is not enabled by default on Office365, see how to enable it:
@@ -112,7 +112,7 @@ R. Here is a command-line resume that solves most encountered issues when
 
     imapsync ... --office2
 
-which is equivalent to (in imapsync release 1.870):
+which is equivalent to (in imapsync release 1.870 or higher):
 
   imapsync ... \
     --host2 outlook.office365.com \
@@ -140,7 +140,7 @@ Use it like this:
 
 It often does some miracles on messages.
 
-=======================================================================
+======================================================================
 Q. For Office365 I have double and triple-checked the username and
    password spelling but I still get a "LOGIN failed". Any clue?
 
@@ -172,7 +172,7 @@ R5. Triple check the hostname then. Try all of these:
  * imap-mail.outlook.com
  * imap.outlook.com
 
-=======================================================================
+======================================================================
 Q. I see "NO Maximum size of appendable message has been exceeded"
    What can I do with that?
 
@@ -198,7 +198,7 @@ values on the migration accounts in the source and target tenants.
 Thanks to Sean McDougall, Ian Thomas & Matt Wilks from Toronto 
 for this FAQ item.
 
-=======================================================================
+======================================================================
 Q. The imap connection to Office365 is not working very efficiently,
    is there a solution to fix that?
 
@@ -206,7 +206,7 @@ R. Yes. Try DavMail
    http://davmail.sourceforge.net/
    I don't use it myself but a user, Yannick Palanque,  reported great results using it.
 
-=======================================================================
+======================================================================
 Q. The sync fails with many "Trying command when NOT connected!".
    What can I do?
 
@@ -215,7 +215,7 @@ R. The --debugimap option can show you more details, especially some
    "BAD Request is throttled. Suggested Backoff Time: 178755 milliseconds"
    In that case, see the next faq item and its fixes.
 
-=======================================================================
+======================================================================
 Q. Office365 throttles the sync and says: 
    "Request is throttled. Suggested Backoff Time: 299961 milliseconds".
    What can I do with that?
@@ -249,14 +249,14 @@ R2. Play with options --maxbytespersecond or --maxmessagespersecond
 I don't know the upper value that avoids the default throttling from 0365
 and I guess it changes over time.
 
-=======================================================================
+======================================================================
 Q. Office365 refuses to create the folder named "Files" with the error
    "NO Folder name is reserved". What happens?
 
 R. The folder Files is a standard folder in Office365.
    It should not be synced in IMAP. See the next question.
 
-=======================================================================
+======================================================================
 Q. Office365 users complain that a folder named "Files" contains 
    messages with no sender.
 
@@ -296,7 +296,7 @@ https://answers.microsoft.com/en-us/msoffice/forum/msoffice_o365admin-mso_dep365
 
   (This question/answer is taken quasi verbatim from Perttu Aaltonen)
 
-=======================================================================
+======================================================================
 Q. From XXX to Office365, read receipts are all resent again after sync.
    Even for old messages. How can I fix that?
 
@@ -330,7 +330,7 @@ X-Disposition-Notification-To: blabla
 
 Thanks to David Karnowski for pointing and solving this issue.
 
-=======================================================================
+======================================================================
 Q. DEBUG: IO/Socket/SSL.pm:1043: local error: SSL read error
    DEBUG: IO/Socket/SSL.pm:1043: local error: SSL read error   
 
@@ -346,7 +346,7 @@ R2. Another solution is to remove --tls or --ssl options for Exchange
 R3. See also the FAQ FAQ.SSL_errors.txt
     https://imapsync.lamiral.info/FAQ.d/FAQ.SSL_errors.txt
 
-=======================================================================
+======================================================================
 Q. From XXX Office365 I get this error message sometimes: 
    "BAD Command Argument Error 11". What does it mean?
 
@@ -371,26 +371,22 @@ R. This error message comes from the Office365 IMAP server when it
   * Some messages have some lines too long. Use option --maxlinelength
     to skip messages whose max line length is over some bytes.
     --maxlinelength 1000 is an RFC2822 must but most servers support
-    higher values. Exchange supports 9900 characters line length:
-
-  imapsync ... --maxlinelength 9900 
-
-    Office365 supports 10500 characters line length:
+    higher values. Office365 supports 10500 characters line length:
 
   imapsync ... --maxlinelength 10500
 
   In case you prefer fixing messages with long lines the hard way,
-  instead of skipping them with --maxlinelength 9900, just use:
+  instead of skipping them with --maxlinelength 10500, just use:
 
   On Windows
-  imapsync ... --regexmess "s,(.{9900}),$1\r\n,g"
+  imapsync ... --regexmess "s,(.{10500}),$1\r\n,g"
 
   On Unix
-  imapsync ... --regexmess 's,(.{9900}),$1\r\n,g'
+  imapsync ... --regexmess 's,(.{10500}),$1\r\n,g'
   
-Have also in mind that Exchange closes the connection after 10 errors
+Have also in mind that Office365 closes the connection after 10 errors
 encountered so you might also see "BYE Connection closed" errors from
-Exchange, which means Exchange leaves the session and says goodbye,
+Office365, which means Office365 leaves the session and says goodbye,
 come back later. Redo some sync then.
 
 On Linux, there is a good Python script in the tarball that can 
@@ -404,7 +400,7 @@ It often does some miracles on messages.
 It's called fix_email_for_exchange because Office365 is Exchange,
 or at least started to be an Exchange server with the same issues.
 
-=======================================================================
+======================================================================
 Q. From XXX to Office365 the flag Flagged does not seem to be well synced. 
    What can I do?
 
@@ -419,7 +415,7 @@ does in detail with flags.
 
 The magic of this trick is on ignoring the \Flagged flag on the first 
 sync and setting it on the second sync, with STORE instead of APPEND.
-This Exchange bug seems that Exchange gets and sets well the Flagged 
+This Office365 bug seems that Office365 gets and sets well the Flagged 
 flag with APPEND in IMAP but then it forgets it with other protocols;
 With STORE it sets and gets the "\Flagged" flag everywhere.
 
@@ -473,7 +469,7 @@ Subject: RE: [imapsync] Office 365 - 'Master User'?
 Date:    Mon, 1 Jun 2015 17:53:54 +0000
 
 
-=======================================================================
+======================================================================
 Q. Couldn't create folder [trash] "Mailbox already exists".
 
 R. Some servers take care of character cases in folder names, 
@@ -506,5 +502,5 @@ R. Some servers take care of character cases in folder names,
    on host1 but are considered the same on destination host2 because of
    case sensitivities and insensitivities, use  --nomixfolders
 
-=======================================================================
-=======================================================================
+======================================================================
+======================================================================
diff --git a/FAQ.d/FAQ.OnlineUI.txt b/FAQ.d/FAQ.OnlineUI.txt
index 8741ea2..7d6b74f 100644
--- a/FAQ.d/FAQ.OnlineUI.txt
+++ b/FAQ.d/FAQ.OnlineUI.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.OnlineUI.txt,v 1.27 2021/04/24 16:57:50 gilles Exp gilles $
+$Id: FAQ.OnlineUI.txt,v 1.29 2021/05/05 21:38:32 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -15,17 +15,17 @@ Questions answered in this FAQ are:
 Q. How secure is the online visual user interface /X?
 
 Q. Does the online service store any sensitive information 
-   like my passwords?
+like my passwords?
 
-Q. Shall I have issues when the browser times out? What happens
-   if the browser connection is closed for whatever reason?
+Q. Shall I have issues when the browser times out?
+What happens if the browser connection is closed for whatever reason?
 
 Q. Shall I have issues when the webserver times out? What happens
-   if the webserver closes the connection for whatever reason?
+if the web server closes the connection for whatever reason?
 
 Q. The sync stalls at the beginning, just after a line like:
-   "Host1: xxx says it has CAPABILITY for AUTHENTICATE LOGIN"
-   What is the problem?
+"Host1: xxx says it has CAPABILITY for AUTHENTICATE LOGIN"
+What is the problem?
 
 Now the questions again with their answers.
 
@@ -33,8 +33,8 @@ Now the questions again with their answers.
 Q. How secure is the online visual user interface /X?
 
 R0. Well, I don't know if asking the provider whether his online
-   service is secure or not would be of any interest.
-   Let's do it anyway, you'll be the judge.
+service is secure or not would be of any interest.
+Let's do it anyway, you'll be the judge.
 
 R1. Some figures
 
@@ -43,11 +43,11 @@ Date of this report: 22 April 2021.
 The online imapsync service /X started 9 January 2017
 (1564 days of service).
 
-On average, /X has 51 users per day lunching in mean 6
-different migrations, from just one launch to many (hundreds).
+On average, /X has 51 users per day, each user lunches on average
+6 account migrations, from just one launch to many (hundreds).
 
-The total volume /X transferred is around 210 TiB from nearly 
-450 000 imap account migrations and 700 million email messages.
+The total volume /X transferred so far is around 210 TiB coming 
+from nearly 450 000 imap account migrations and 700 million email messages.
 
 R2. Pros & Cons
 
@@ -59,17 +59,17 @@ Because of the HTTPS usage, what the users enter in their browser,
 the imap logins and passwords, can't be eavesdropped on the network.
 
 Imapsync itself takes care of encryption for the imap sessions,
-if possible: It tries SSL first on port 993, then TLS on port 143
-if the servers announce TLS, then no encryption at all.
+if possible. First, imapsync tries to use SSL on port 993, 
+then TLS on port 143 if the servers announce TLS, then no encryption at all.
 Concerning encryption, what is done with the source imap server host1
 is independent of what is done with the destination imap server host2.
 
 On the date of 22 April 2021, there is no security problem
 detected or reported to me (Gilles LAMIRAL), so far.
 Feel free to attack the service and feel free to report any
-hole encountered. Have in mind I can watch what you try
+hole encountered. Have in mind I can watch what you do
 from the server-side and take measures if the service suffers from
-your acts.
+your acts. Drop me a note before will be fair play.
 
 As the owner of the service, it could have been 450 000 pairs of
 credentials collected and nearly 210 terabytes of email messages.
@@ -77,7 +77,7 @@ I haven't kept them but I can't prove I haven't. It's just trust,
 like nearly every online service in the universe.
 
 The imap server certificates are not checked for authenticity
-(by default) because too many  imap servers are crappy configured
+(by default) because too many imap servers are crappy configured
 regarding certified certificates.
 
 This default behavior is chosen like this because users of /X
@@ -94,7 +94,7 @@ That's not good at all but what "comforts" me is that if an
 imap server does only clear text transfers, then it's also true
 for all the imap sessions the account owner encounters,
 imapsync is just one of them; the imap servers are then always 
-unsecure for any imap software client.
+unsecured for any imap software client.
 
 
 Last point, who could be sure that no cracker cracked the online
@@ -106,24 +106,25 @@ the sync is a safe and recommended practice!
 
 =====================================================================
 Q. Does the online service store any sensitive information 
-   like my passwords?
+like my passwords?
 
 No.
 The online passwords are kept by your browser. The goal is 
 that the next time you run a sync from your browser, all the 
-parameters are there without having to re-enter them.
+parameters are already there without having to re-enter them.
 The save is done when you click on the "Sync or resync" green
-button. So, if you don't want your browser to keep your good password,
+button. So, if you don't want your browser to keep your password,
 enter a wrong one or empty the password field and click 
 on the "Sync or resync" green button, the wrong password 
-will be saved in your browser and the sync won't be done,
+will be saved in your browser and no sync will be done,
 since a good login is mandatory to do anything on your mailboxes.
 
 =====================================================================
-Q. Shall I have issues with the browser timing out? What happens
-   if the browser connection is closed for whatever reason?
+Q. Shall I have issues with the browser timing out?
+What happens if the browser connection is closed for whatever reason?
 
-R. It stops the imapsync process, ie, the sync is ended right away.
+R. A browser connection closed closes also the imapsync process, 
+ie, the sync is ended right away.
 
 Further comments on this behavior.
 
@@ -157,29 +158,29 @@ the logfile running the sync like a "tail -f" command (isn't that magic?).
 
 =====================================================================
 Q. Shall I have issues when the webserver times out? What happens
-   if the webserver closes the connection for whatever reason?
+if the web server closes the connection for whatever reason?
 
-R. If the webserver closes the connection then usually it kills 
-   imapsync process and the imap connections as well.
-   To fix this issue, see the document INSTALL.OnlineUI.txt
-   and search for "Timeout" in it.
+R. If the webserver closes the connection then usually it also 
+kills the imapsync process and the imap connections as well.
+
+To fix this issue, see the document INSTALL.OnlineUI.txt
+and search for "Timeout" in it.
    
-   Tip: If the connections close for huge folders and always after 
-   300 seconds or 60 seconds then it looks like a webserver timeout.
-   Apache 2.2 timeout is 300 seconds.
-   Apache 2.4 timeout is  60 seconds.
+Tip: If the connections close for huge folders and always after 
+300 seconds or 60 seconds then it looks like a web server timeout.
+Apache 2.2 timeout is 300 seconds.
+Apache 2.4 timeout is  60 seconds.
 
 =====================================================================
 Q. The sync stalls at the beginning, just after a line like:
-   "Host1: xxx says it has CAPABILITY for AUTHENTICATE LOGIN"
-   What is the problem?
+"Host1: xxx says it has CAPABILITY for AUTHENTICATE LOGIN"
+What is the problem?
 
 R. I've seen this issue on /X with the imap server
-   CommuniGate Pro IMAP Server 6.0.11
-   The issue looks related to special characters in the password.
-   Solution for now: change the password, keep only
-   standard (ASCII) alphanumeric characters ABC-YZ abc-yz 012-89.
-
+CommuniGate Pro IMAP Server 6.0.11
+The issue looks related to special characters in the password.
+Solution for now: change the password, keep only standard (ASCII) 
+alphanumeric characters ABC-YZ abc-yz 012-89.
 
 =====================================================================
 =====================================================================
diff --git a/FAQ.d/FAQ.Oracle-UCS.txt b/FAQ.d/FAQ.Oracle-UCS.txt
deleted file mode 100644
index af621d9..0000000
--- a/FAQ.d/FAQ.Oracle-UCS.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/bin/cat
-$Id: FAQ.Oracle-UCS.txt,v 1.5 2018/05/24 11:34:30 gilles Exp gilles $
-
-This document is also available online at
-https://imapsync.lamiral.info/FAQ.d/
-https://imapsync.lamiral.info/FAQ.d/FAQ.Oracle-UCS.txt
-
-
-=======================================================================
-       Imapsync tips for Oracle-UCS. Specific issues.
-=======================================================================
-
-Oracle-UCS was previously Sun JES, IPlanet, etc.
-
-"NO Message contains NUL characters"
---skipmess 'm/(\x00)+\Z/'
-
-"Message contains invalid header"
---skipmess 'm/[\x80-\xff]/' 
-
-
-=======================================================================
-=======================================================================
diff --git a/FAQ.d/FAQ.Release_Checklist.txt b/FAQ.d/FAQ.Release_Checklist.txt
index bb382d2..92b705e 100644
--- a/FAQ.d/FAQ.Release_Checklist.txt
+++ b/FAQ.d/FAQ.Release_Checklist.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.Release_Checklist.txt,v 1.18 2020/01/06 10:47:02 gilles Exp gilles $
+$Id: FAQ.Release_Checklist.txt,v 1.20 2021/07/06 02:29:51 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -23,10 +23,14 @@ Checklist before release a new release:
 - Review the newsletter by running:
     m4 -P W/ml_announce.in.txt
 
+- Update W/rsync_exclude_dist.txt
+- Update .gitignore
+
 - Review the TODO file and mark done what is done.
 - Review the general FAQ.d/FAQ.General.txt
 - Report values of --gmail1 --gmail2 to FAQ.Gmail.txt
-- Report values of --exchange* --office* to FAQ.Exchange.txt
+- Report values of --exchange* to FAQ.Exchange.txt
+- Report values of --office*   to FAQ.Office365.txt
 
 - /X verify direct cgi
 - /X verify under noscript with firefox
diff --git a/FAQ.d/FAQ.SSL_errors.txt b/FAQ.d/FAQ.SSL_errors.txt
index 58aaaeb..508a587 100644
--- a/FAQ.d/FAQ.SSL_errors.txt
+++ b/FAQ.d/FAQ.SSL_errors.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-$Id: FAQ.SSL_errors.txt,v 1.14 2021/04/19 11:47:44 gilles Exp gilles $
+$Id: FAQ.SSL_errors.txt,v 1.15 2021/06/22 15:35:10 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -192,7 +192,9 @@ EnRlc3QxLmxhbWlyYWwuaW5mbzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoC
 ggEBAMUTJVdrTl86nDI2yO6Vz5l1qxMMPqJylQcgi9vDHpwsnUq5HGPv+qZNhM69
 ...
 
-After an complete server update ("apt update && apt upgrade"):
+
+
+After an complete server update ("apt update && apt upgrade && /etc/init.d/dovecot restart"):
 
 echo | openssl s_client -crlf -connect test1.lamiral.info:993
 CONNECTED(00000003)
diff --git a/FAQ.d/FAQ.Security.txt b/FAQ.d/FAQ.Security.txt
index 2d4e796..afbc72c 100644
--- a/FAQ.d/FAQ.Security.txt
+++ b/FAQ.d/FAQ.Security.txt
@@ -1,5 +1,5 @@
 #!/bin/cat
-# $Id: FAQ.Security.txt,v 1.22 2020/06/30 17:32:39 gilles Exp gilles $
+# $Id: FAQ.Security.txt,v 1.23 2021/06/22 15:32:10 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -16,26 +16,6 @@ SSL: going to encryption before the imap session start.
 TLS: going to encryption after the imap session start but before
      the credential are sent. It is on port 143.
 
-Explanation:
-
-To transfer emails over an encrypted connection, the imapsync parameters --ssl1 and ssl2 are preferred over the parameters --tls1 and --tls2.
-
-This might be confusing because the terms "SSL" and "TLS" can have different meanings in the contexts of IT security and email. Imapsync uses both terms in the context of email, not of IT security.
-
-In IT security, SSL refers to the deprecated Secure Sockets Layer protocols. SSL 2.0 has been depreated in 2011 based on RFC 6176 (see https://datatracker.ietf.org/doc/rfc6176/ ) and SSL 3.0 has been deprecated in 2015 based on RFC 7568 (see https://datatracker.ietf.org/doc/rfc7568/ ). TLS refers to the more modern Transport Layer Security protocols. TLS 1.0 and TLS 1.1 have been deprecated in 2020 with RFC 8996 (see https://datatracker.ietf.org/doc/rfc8996/ ). Current versions of TLS are TLS 1.2 (published in 2008) and TLS 1.3 (published in 2018).
-
-SSL should not be used anymore. When using TLS, only the non-deprecated versions should be used. Given this information, it might be confusing why the --ssl1 and --ssl2 parameters are preferred over the --tls1 and --tls2 parameters. The reason is that imapsync uses the terms in the context of email and not of IT security.
-
-In an email context, the parameters --ssl1 and --ssl2 refer to the protocol family of both SSL and (!) TLS. In contrast, the parameters --tls1 and --tls2 refer to the STARTTLS command based on opportunistic encryption. Opportunistic encryption means that the system attempts to encrypt the communications channel but falls back to unencrypted communications if the encryption cannot be established.
-
-The problem is that the parameters --tls1 and --tls2 seem to offer more security by seemingly referring the more modern TLS protocols, when these parameters are in fact less secure (than --ssl1 and --ssl2) because they are actually referring to STARTTLS with opportunistic enryption. Therefore the parameters --ssl1 and ssl2 are preferred over the parameters --tls1 and --tls2.
-
-Summary:
-
-Parameters --ssl1 and --ssl2: Force an encrypted connection based on the SSL/TLS protocol family. Fails if an encryption cannot be established. More secure than --tls1 and --tls2. Can be specified with --sslargs1 and --sslargs2.
-
-Parameters --tls1 and --tls2: Try to establish an encrypted connection based on STARTTLS. Does not fail if an encryption cannot be established meaning an encrypted connection cannot be garanteed [UNSURE]. Less secure than --ssl1 and --ssl2.
-
 =======================================================================
 Q. Is running this program a secure method of transferring emails?  
    Are there any security concerns?
diff --git a/FAQ.d/FAQ.Two_Ways_Sync.txt b/FAQ.d/FAQ.Two_Ways_Sync.txt
index e70096b..32c1eee 100644
--- a/FAQ.d/FAQ.Two_Ways_Sync.txt
+++ b/FAQ.d/FAQ.Two_Ways_Sync.txt
@@ -1,4 +1,4 @@
-$Id: FAQ.Two_Ways_Sync.txt,v 1.4 2021/02/01 15:43:33 gilles Exp gilles $
+$Id: FAQ.Two_Ways_Sync.txt,v 1.5 2021/06/10 11:21:09 gilles Exp gilles $
 
 This documentation is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -13,14 +13,14 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Two_Ways_Sync.txt
 Questions answered in this FAQ are:
 
 Q. Can Imapsync do a good "two ways" sync? 
-   No. Why?
+   Short answer: no, not a good one. Why?
 
 
 Now the questions again with their answers.
 
 =======================================================================
 Q. Can Imapsync do a good "two ways" sync? 
-   No. Why?
+   Short answer: no, not a good one. Why?
 
 R. Imapsync can't do good two ways syncs.
 
@@ -40,10 +40,10 @@ deletions, or movings, messages movings across folders, folders
 movings, and also folders renamings. Deletions and moves are ambiguous
 changes when combined with creations on the opposite side.
  
-For example, when a message is deleted from A by a user, imapsync
+For example, if a message is deleted from A by a user, then imapsync
 cannot know whether it is a message deleted from A that has to be
-deleted in B (what the user did) or a missing message from B that has
-to be copied to A.
+deleted in B (what the user actually did) or a missing message on A
+that has to be copied from B.
 
 But if you know the answer yourself, that missing messages on one side
 A are deleted messages that have to be deleted on the other side then
@@ -52,13 +52,16 @@ run a sync with the --delete2 option from A to B.
 If you know that the missing messages on A are missing messages from B
 that has to be copied to A then run a sync from B to A.
 
-If you know it's a mixed scenario then you are in trouble and so you
-end up with a not very good "two ways" sync. I suggest avoiding
-deletions in that case, which is the default imapsync behavior.
+If you know it's a mixed scenario, some deletions/moves on A, 
+and some deletions/moves on B, but not the same, then you are in 
+trouble and so you end up with a not very good "two ways" sync. 
+I suggest to avoid imapsync to do deletions in that case, which is 
+the default imapsync behavior.
 
-With a two ways sync, the mailbox user is very surprised and
+With a two ways sync, the account user is very surprised and
 disapointed when his actions (deletions, renamings, or movings) come
-back.
+back: the deletions are cancelled, the renamings and movings end up
+with duplicates.
 
 =======================================================================
 =======================================================================
diff --git a/FAQ.d/FAQ.UCS.txt b/FAQ.d/FAQ.UCS.txt
new file mode 100644
index 0000000..7d6a765
--- /dev/null
+++ b/FAQ.d/FAQ.UCS.txt
@@ -0,0 +1,37 @@
+#!/bin/cat
+$Id: FAQ.UCS.txt,v 1.8 2021/05/29 08:06:51 gilles Exp gilles $
+
+This document is also available online at
+https://imapsync.lamiral.info/FAQ.d/
+https://imapsync.lamiral.info/FAQ.d/FAQ.UCS.txt
+
+
+=======================================================================
+       Imapsync tips for UCS. Specific issues.
+=======================================================================
+
+UCS: Univention Corporate Server
+https://www.univention.com/
+
+UCS was previously Oracle-UCS, Sun JES, IPlanet, etc. 
+The underlying code was the free open source imap software server Cyrus. 
+Now UCS uses Dovecot since UCS 4.0-2 (July 2015)
+
+Quoting the page
+https://docs.software-univention.de/cyrus-4.2.html
+"Since Univention Corporate Server version 4.0-2 Dovecot is used as 
+the default IMAP and POP3 server."
+
+So, when you deal with UCS issues, follow 
+https://imapsync.lamiral.info/FAQ.d/FAQ.Cyrus.txt
+https://imapsync.lamiral.info/FAQ.d/FAQ.Dovecot.txt
+Also:
+https://imapsync.lamiral.info/FAQ.d/FAQ.APPEND_errors.txt
+
+
+
+
+
+
+=======================================================================
+=======================================================================
diff --git a/FAQ.d/FAQ.Yahoo.txt b/FAQ.d/FAQ.Yahoo.txt
index 41b1110..198a401 100644
--- a/FAQ.d/FAQ.Yahoo.txt
+++ b/FAQ.d/FAQ.Yahoo.txt
@@ -1,5 +1,5 @@
 
-$Id: FAQ.Yahoo.txt,v 1.10 2021/04/20 21:47:02 gilles Exp gilles $
+$Id: FAQ.Yahoo.txt,v 1.12 2021/05/04 11:04:51 gilles Exp gilles $
 
 This document is also available online at
 https://imapsync.lamiral.info/FAQ.d/
@@ -10,6 +10,31 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Yahoo.txt
                      Imapsync tips for Yahoo.
 =======================================================================
 
+Questions answered in this FAQ are:
+
+Q. Synchronizing from Yahoo to XXX
+
+Q. Synchronizing from XXX to Yahoo
+
+Now the questions again with their answers.
+
+Some explanation about the options given later:
+
+https://imapsync.lamiral.info/README
+...
+ --noabletosearch    : Makes --minage and --maxage options use the internal 
+                       dates given by a FETCH imap command instead of the 
+                       "Date:" header. Internal date is the arrival date 
+                       in the mailbox.
+                       --noabletosearch equals --noabletosearch1 --noabletosearch2
+
+ --regexmess    reg  : Apply the whole regex to each message before transfer.
+                       Example: 's/\000/ /g' # to replace null by space.
+ --regexmess    reg  : and this one, etc.
+
+I'm not sure anymore about the need of --noabletosearch with Yahoo, maybe
+they fixed the issue about the standard imap searching command SEARCH
+they didn't honor before.
 
 =======================================================================
 Q. Synchronizing from Yahoo to XXX
@@ -20,11 +45,11 @@ Example:
 
   ./imapsync \
     --host1 imap.mail.yahoo.com \
-    --user1 billy \
-    --password1 secret \
+    --user1 Billy@yahoo.com \
+    --password1 billysecreta \
     --host2 XXX \
-    --user2 billy \
-    --password2 secret \
+    --user2 Billy@other.com \
+    --password2 billysecretb \
     --noabletosearch 
 
 
@@ -53,6 +78,28 @@ Another solution:
     since it is not in the predefined apps.
   * Use this password with imapsync.
 
+=======================================================================
+Q. Synchronizing from XXX to Yahoo
+
+R. Example:
+
+  ./imapsync \
+    --host1 XXX \
+    --user1 Billy@other.com \
+    --password1 billysecreta \
+    --host2 imap.mail.yahoo.com \
+    --user2 Billy@yahoo.com \
+    --password2 billysecretb \
+    --noabletosearch --regexmess "s{(?<![\n])\z}{\r\n}gxms"
+
+You wonder why there is this ugly regex, what it does and where does it 
+come from?
+
+It's there to get rid of the errors 
+"BAD [CLIENTBUG] Additional arguments found after last expected argument"
+when copying some messages to Yahoo.
+It adds a final \r\n on a message if a final \r\n is missing.
+See https://github.com/imapsync/imapsync/issues/209
 
 =======================================================================
 =======================================================================
diff --git a/FAQ.d/htaccess.txt b/FAQ.d/htaccess.txt
index 6c8fb3e..7f13c64 100644
--- a/FAQ.d/htaccess.txt
+++ b/FAQ.d/htaccess.txt
@@ -1,20 +1,28 @@
 
-# $Id: htaccess.txt,v 1.29 2020/10/01 10:40:23 gilles Exp gilles $
+# $Id: htaccess.txt,v 1.31 2021/05/29 08:09:11 gilles Exp gilles $
 
 
 AddDescription "<b>Back</b> to Imapsync main page."                     ..
 AddDescription "<b>Where this Description column comes from</b>."       htaccess.txt
+AddDescription "<b>Private</b>."                                        memo
 
 AddDescription "<b>APPEND errors</b>."                                  FAQ.Admin_Authentication.txt
 AddDescription "<b>Authenticate via an admin account</b>."              FAQ.APPEND_errors.txt
 AddDescription "<b>Archiving</b> tips."                                 FAQ.Archiving.txt
 AddDescription "<b>Authentication failures</b>."                        FAQ.Authentication_failure.txt
+
+AddDescription "<b>Bandwidth questions</b> tips."                       FAQ.Bandwidth.txt
 AddDescription "<b>Big mailboxes</b> tips."                             FAQ.Big_Mailbox.txt
+
 AddDescription "<b>Changing folders names</b>."                         FAQ.Folders_Mapping.txt
 AddDescription "<b>Connection issues</b>."                              FAQ.Connection.txt
 AddDescription "<b>Contacts & Calendars & Chat issues</b>."             FAQ.Contacts_Calendars.txt
+AddDescription "<b>Cyrus</b> accounts."                                 FAQ.Cyrus.txt
+
+
 AddDescription "<b>Dates issues</b>."                                   FAQ.Dates.txt
 AddDescription "<b>David Tobit</b> accounts."                           FAQ.David_Tobit.txt
+AddDescription "<b>DBmail</b> accounts."                                FAQ.DBmail.txt
 AddDescription "<b>Docker</b> usage."                                   FAQ.Docker.txt
 AddDescription "<b>Domino</b> accounts."                                FAQ.Domino.txt
 AddDescription "<b>Dovecot</b> accounts."                               FAQ.Dovecot.txt
@@ -25,15 +33,21 @@ AddDescription "<b>Selecting folders</b>."                              FAQ.Fold
 AddDescription "<b>Folders sizes with Imapsync</b>."                    FAQ.Folders_Sizes.txt
 
 
+
+
+AddDescription "<b>FirstClass</b> accounts."                            FAQ.FirstClass.txt
 AddDescription "<b>Flags tips and issues</b>."                          FAQ.Flags.txt
 AddDescription "<b>General Data Protection Regulation</b> (GDPR)."      FAQ.GDPR.txt
 AddDescription "<b>General</b> and <b>pot-pourri</b> issues"            FAQ.General.txt
 AddDescription "<b>Gmail</b> accounts."                                 FAQ.Gmail.txt
+AddDescription "<b>IceWarp</b> accounts."                               FAQ.IceWarp.txt
 AddDescription "<b>ISP tips</b>."                                       FAQ.ISP.txt
 AddDescription "<b>Kerio</b> accounts."                                 FAQ.Kerio.txt
+AddDescription "<b>MailEnable</b> accounts."                            FAQ.MailEnable.txt
 AddDescription "<b>Massive/bulk migrations</b>."                        FAQ.Massive.txt
 AddDescription "<b>Memory issues</b>."                                  FAQ.Memory.txt
 AddDescription "<b>Migration Plan</b>."                                 FAQ.Migration_Plan.txt
+AddDescription "<b>Office365</b> accounts."                             FAQ.Office365.txt
 AddDescription "<b>The Online UI service Q&R</b>."                      FAQ.OnlineUI.txt
 AddDescription "<b>Password & special characters on Windows</b>."       FAQ.Passwords_on_Windows.txt
 AddDescription "<b>Password & special characters on Unix</b>."          FAQ.Passwords_on_Unix.txt
@@ -43,7 +57,7 @@ AddDescription "<b>Principles & design decisions</b>."                  FAQ.Prin
 AddDescription "<b>Selecting messages</b>."                             FAQ.Messages_Selection.txt
 AddDescription "<b>How to transfer too big messages</b>."               FAQ.Messages_Too_Big.txt
 AddDescription "<b>Why the imapsync web site looks so old?</b>"         FAQ.Old_Style_Web_Design.txt
-AddDescription "<b>Oracle-UCS</b> accounts."                            FAQ.Oracle-UCS.txt
+AddDescription "<b>UCS</b> accounts."                                   FAQ.UCS.txt
 
 AddDescription "<b>Checklist before release a new release</b>."         FAQ.Release_Checklist.txt
 AddDescription "<b>Guidelines to report bugs</b>."                      FAQ.Reporting_Bugs.txt
diff --git a/INSTALL.d/Dockerfile b/INSTALL.d/Dockerfile
old mode 100644
new mode 100755
index c44f2bc..b3e93a4
--- a/INSTALL.d/Dockerfile
+++ b/INSTALL.d/Dockerfile
@@ -3,65 +3,83 @@
 # $Id: Dockerfile,v 1.30 2020/03/26 07:15:04 gilles Exp gilles $
 # I use the following command to build the image:
 #
-#  docker build -t gilleslamiral/imapsync .
+#  docker build -t gilleslamiral/imapsync . 
 #
 # where this Dockerfile is in the current directory
-#
+# 
 # I thank you very much
 # I like thanks
 # I like stars
 # I also like (and need) money
 
-# Number of imapsync images pulled so far (2020_03_26): 84354
+# Number of imapsync images pulled so far (2021_05_29): 368881
 # Command used:
 # curl -s https://hub.docker.com/v2/repositories/gilleslamiral/imapsync/ | jq '.pull_count'
 
-# Ubuntu latest points to current LTS release
+# Debian Buster is Debian 10
 
-FROM debian:buster
+FROM debian:buster 
 
 LABEL   maintainer="Gilles LAMIRAL <gilles@lamiral.info>" \
         description="Imapsync" \
         documentation="https://imapsync.lamiral.info/#doc"
 
-RUN set -xe                 && \
-  apt-get update            && \
-  apt-get install -y           \
-  libauthen-ntlm-perl          \
-  libcgi-pm-perl               \
-  libcrypt-openssl-rsa-perl    \
-  libdata-uniqid-perl          \
-  libencode-imaputf7-perl      \
-  libfile-copy-recursive-perl  \
-  libfile-tail-perl            \
-  libio-socket-inet6-perl      \
-  libio-socket-ssl-perl        \
-  libio-tee-perl               \
-  libhtml-parser-perl          \
-  libjson-webtoken-perl        \
-  libmail-imapclient-perl      \
-  libparse-recdescent-perl     \
-  libmodule-scandeps-perl      \
-  libreadonly-perl             \
-  libregexp-common-perl        \
-  libsys-meminfo-perl          \
-  libterm-readkey-perl         \
-  libtest-mockobject-perl      \
-  libtest-pod-perl             \
-  libunicode-string-perl       \
-  liburi-perl                  \
-  libwww-perl                  \
-  libtest-nowarnings-perl      \
-  libtest-deep-perl            \
-  libtest-warn-perl            \
-  make                         \
-  cpanminus                    \
-  procps                       \
-  wget
+# Put a copy of the Dockerfile in the image itself
+# It can help future maintenance, isn't it?
+
+COPY Dockerfile /
+
+# Also put my local imapsync on /usr/bin/ for testing purpose
+# renamed imapsync_local since would be erased by the wget
+
+COPY imapsync /usr/bin/imapsync_local
+COPY prerequisites_imapsync /usr/bin/prerequisites_imapsync_local
+
+RUN set -xe && \
+  apt-get update \
+  && apt-get install -y \
+  libauthen-ntlm-perl \
+  libcgi-pm-perl \
+  libcrypt-openssl-rsa-perl \
+  libdata-uniqid-perl \
+  libencode-imaputf7-perl \
+  libfile-copy-recursive-perl \
+  libfile-tail-perl        \
+  libio-socket-ssl-perl \
+  libio-socket-inet6-perl \
+  libio-tee-perl \
+  libhtml-parser-perl \
+  libjson-webtoken-perl \
+  libmail-imapclient-perl \
+  libparse-recdescent-perl \
+  libmodule-scandeps-perl \
+  libpar-packer-perl \
+  libreadonly-perl \
+  libregexp-common-perl \
+  libsys-meminfo-perl \
+  libterm-readkey-perl \
+  libtest-mockobject-perl \
+  libtest-pod-perl \
+  libunicode-string-perl \
+  liburi-perl  \
+  libwww-perl \
+  procps \
+  wget \
+  make \
+  cpanminus \
+  lsof \
+  ncat \
+  openssl \
+  && rm -rf /var/lib/apt/lists/*
+
+RUN set -xe \
+  && pwd \
+  && wget -N https://imapsync.lamiral.info/imapsync \
+     https://imapsync.lamiral.info/prerequisites_imapsync \
+     https://raw.githubusercontent.com/google/gmail-oauth2-tools/master/python/oauth2.py
+  && mv imapsync oauth2.py /usr/bin/ \
+  && chmod +x /usr/bin/imapsync /usr/bin/imapsync_local /usr/bin/oauth2.py # just_a_comment_to_force_update 2019_11_26_12_58_34
 
-RUN wget -N https://imapsync.lamiral.info/imapsync && \
-  mv imapsync /usr/bin/imapsync                    && \
-  chmod +x /usr/bin/imapsync
 
 USER nobody:nogroup
 
@@ -73,5 +91,6 @@ STOPSIGNAL SIGINT
 
 CMD ["/usr/bin/imapsync"]
 
-#
-# End of imapsync Dockerfile
+# 
+# End of imapsync Dockerfile 
+
diff --git a/INSTALL.d/INSTALL.ANY.txt b/INSTALL.d/INSTALL.ANY.txt
index f12cf02..e063253 100644
--- a/INSTALL.d/INSTALL.ANY.txt
+++ b/INSTALL.d/INSTALL.ANY.txt
@@ -1,4 +1,4 @@
-# $Id: INSTALL.ANY.txt,v 1.60 2019/11/28 14:37:40 gilles Exp gilles $
+# $Id: INSTALL.ANY.txt,v 1.62 2020/06/03 07:11:10 gilles Exp gilles $
 # 
 # This is the main INSTALL file for imapsync.
 # imapsync : IMAP sync and migrate tool.
@@ -42,6 +42,10 @@ Those documents are also available at https://imapsync.lamiral.info/INSTALL.d/
 - Docker
 - Online UI like /X
 
+If you are not familiar with any of these systems but you have to chose
+one to install imapsync, imapsync online, or the latest imapsync then 
+Centos 7 (not 8 for now) is the easiest system to consider (June 2020).
+
 If you are not on one of these systems then read the last section
 below called "Installing imapsync on other Unixes".
 
@@ -50,6 +54,7 @@ below called "Installing imapsync on other Unixes".
 =======================================================================
 
 Easy.
+
 Read the file INSTALL.d/INSTALL.Darwin.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.Darwin.txt
@@ -59,6 +64,7 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.Darwin.txt
 =======================================================================
 
 Easy.
+
 Read the file INSTALL.d/INSTALL.FreeBSD.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.FreeBSD.txt
@@ -69,6 +75,7 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.FreeBSD.txt
 =======================================================================
 
 Easy.
+
 Read the file INSTALL.d/INSTALL.Centos.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.Centos.txt
@@ -79,34 +86,38 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.Centos.txt
 =======================================================================
 
 Easy.
+
 Read the file INSTALL.d/INSTALL.CPanel.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.CPanel.txt
 
 
 =======================================================================
-               Installing imapsync on Debian 6 or 7 
+               Installing imapsync on Debian
 =======================================================================
 
 Not so easy.
+
 See the file INSTALL.d/INSTALL.Debian.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.Debian.txt
 
 =======================================================================
-               Installing imapsync on Ubuntu 12 or 14 
+               Installing imapsync on Ubuntu
 =======================================================================
 
 Not so easy.
+
 See the file INSTALL.d/INSTALL.Ubuntu.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.Ubuntu.txt
 
 =======================================================================
-               Installing imapsync on AWS EC2 
+               Installing imapsync on AWS 
 =======================================================================
 
 Not so easy.
+
 See the file INSTALL.d/INSTALL.AWS_EC2.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.AWS_EC2.txt
@@ -116,6 +127,7 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.AWS_EC2.txt
 =======================================================================
 
 Not so easy.
+
 See the file INSTALL.d/INSTALL.ArchLinux.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.ArchLinux.txt
@@ -124,6 +136,8 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.ArchLinux.txt
                Installing imapsync online like /X 
 =======================================================================
 
+Not easy.
+
 Follow the document INSTALL.d/INSTALL.OnlineUI.txt
 This document is also available at
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.OnlineUI.txt
@@ -133,6 +147,7 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.OnlineUI.txt
                Installing imapsync on other Unixes
 =======================================================================
 
+Not easy.
 
 Purchase imapsync at
 https://imapsync.lamiral.info/
diff --git a/INSTALL.d/INSTALL.AWS_EC2.txt b/INSTALL.d/INSTALL.AWS_EC2.txt
index d0c47fe..8bcf62c 100644
--- a/INSTALL.d/INSTALL.AWS_EC2.txt
+++ b/INSTALL.d/INSTALL.AWS_EC2.txt
@@ -1,5 +1,5 @@
 #!/bin/cat 
-# $Id: INSTALL.AWS_EC2.txt,v 1.7 2019/11/28 14:37:23 gilles Exp gilles $
+# $Id: INSTALL.AWS_EC2.txt,v 1.8 2020/04/14 20:56:47 gilles Exp gilles $
 
 This documentation is also located online at 
 https://imapsync.lamiral.info/INSTALL.d/
@@ -9,8 +9,55 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.AWS_EC2.txt
                Installing imapsync on AWS EC2
 =======================================================================
 
+
 AWS: Amazon Web Service
 
+A) cat /etc/system-release
+Amazon Linux release 2 (Karoo)
+
+  sudo yum install -y https://dl.fedoraproject.org/pub/epel/epel-release-latest-7.noarch.rpm
+  sudo yum install imapsync
+
+  imapsync --version
+  1.727
+
+To install a more recent imapsync
+
+  sudo yum install perl-App-cpanminus \
+ perl-Dist-CheckConflicts \
+ perl-HTML-Parser \
+ perl-libwww-perl \
+ perl-Module-Implementation \
+ perl-Module-ScanDeps \
+ perl-Package-Stash \
+ perl-Package-Stash-XS \
+ perl-PAR-Packer \
+ perl-Regexp-Common \
+ perl-Sys-MemInfo \
+ perl-Test-Fatal \
+ perl-Test-Mock-Guard \
+ perl-Test-Requires \
+ perl-Test-Deep \
+ perl-File-Tail \
+ perl-Unicode-String \
+ perl-Test-NoWarnings \
+ perl-Test-Simple \
+ perl-Test-Warn \
+ perl-Sub-Uplevel 
+
+  sudo cpanm Encode::IMAPUTF7
+  wget -N https://imapsync.lamiral.info/imapsync
+  chmod +x imapsync
+  ./imapsync --testslive
+
+  ./imapsync --version # command typed on 14 April 2020
+  1.983
+
+  sudo cpanm CGI 
+
+
+B) Old Amazon Linux AMI release 2017.03
+
 cat /etc/system-release
 Amazon Linux AMI release 2017.03
 
diff --git a/INSTALL.d/INSTALL.Centos.txt b/INSTALL.d/INSTALL.Centos.txt
index 165ee2a..087ede7 100644
--- a/INSTALL.d/INSTALL.Centos.txt
+++ b/INSTALL.d/INSTALL.Centos.txt
@@ -1,5 +1,5 @@
 #!/bin/cat 
-# $Id: INSTALL.Centos.txt,v 1.14 2019/11/28 14:37:02 gilles Exp gilles $
+# $Id: INSTALL.Centos.txt,v 1.25 2021/02/02 17:08:46 gilles Exp gilles $
 
 This documentation is also located online at 
 https://imapsync.lamiral.info/INSTALL.d/
@@ -9,7 +9,37 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.Centos.txt
                Installing imapsync on CentOS
 =======================================================================
 
-There is one section for Centos 7 and one for Centos 6.
+There is one section for Centos 8, 
+one for Centos 7,
+and one for Centos 6.
+
+=======================================================================
+               Centos 8
+=======================================================================
+
+
+How to install the latest imapsync on Centos 8
+
+  dnf install wget perl-App-cpanminus gcc
+  # then
+  cpanm lazy Test::MockObject
+  wget https://imapsync.lamiral.info/imapsync
+  perl -Mlazy imapsync
+  chmod +x imapsync
+  ./imapsync --testslive
+  ./imapsync --tests
+
+
+If you encounter the following error during the run of "perl -Mlazy imapsync"
+...
+Can't locate object method "new" via package "Archive::Tar" at ...
+FAIL install IO-String-1.08
+
+fix it with:
+  wget http://mirror.centos.org/centos/8/PowerTools/x86_64/os/Packages/perl-IO-String-1.08-31.el8.noarch.rpm 
+  yum install perl-IO-String-1.08-31.el8.noarch.rpm -y
+
+See also https://github.com/imapsync/imapsync/issues/211
 
 =======================================================================
                Centos 7
@@ -30,8 +60,8 @@ A good test that shows also the basic example:
 
 A live test:
 
-  imapsync --testslive
-  
+  imapsync --testslive --tls1 --ssl2
+
 Unit tests:
 
   imapsync --tests
@@ -40,8 +70,9 @@ Unit tests:
                Centos 7 and latest imapsync
 =======================================================================
 
-At the time of this writing (April 2018), the epel repository contains 
-imapsync release 1.727, which is not the latest available release.
+At the time of this writing (March 2020), the epel7 repository still
+contains imapsync release 1.727, which is not the latest available 
+imapsync release. (1.727 date is 2016/08/19 while 1.979 is 2020/01/14)
 
 In order to install the latest imapsync I suggest the following process:
 
@@ -67,15 +98,20 @@ Then:
  perl-Test-Requires \
  perl-Test-Deep \
  perl-File-Tail \
- perl-Unicode-String
+ perl-Unicode-String \
+ perl-Test-NoWarnings \
+ perl-Test-Simple \
+ perl-Test-Warn \
+ perl-Sub-Uplevel 
 
-  cpanm Encode::IMAPUTF7 # this module is not available as a rpm package
-  
+Also, run the following commands:
+
+  cpanm Encode::IMAPUTF7 
   wget -N https://imapsync.lamiral.info/imapsync
   chmod +x imapsync
   ./imapsync --testslive
 
-Now you should shave the latest imapsync locally working on Centos 7.
+Now you should have the latest imapsync locally working on Centos 7.
 
 If you want to install it and replace the old one:
 
@@ -85,7 +121,7 @@ If you want to install it and replace the old one:
   imapsync --version
 
 should give the latest release number instead of 1.727
-(It is 1.964 at the time of this writing)
+(It is 1.979 at the time of this writing)
 
 If you want to install an online imapsync service
 like /X then you also need a recent decent CGI.pm,
diff --git a/INSTALL.d/INSTALL.Darwin.txt b/INSTALL.d/INSTALL.Darwin.txt
index 3c3119d..8536ffe 100644
--- a/INSTALL.d/INSTALL.Darwin.txt
+++ b/INSTALL.d/INSTALL.Darwin.txt
@@ -1,46 +1,63 @@
 #!/bin/cat
-# $Id: INSTALL.Darwin.txt,v 1.24 2019/11/28 14:42:52 gilles Exp gilles $
+# $Id: INSTALL.Darwin.txt,v 1.34 2021/06/15 10:02:37 gilles Exp gilles $
 
 This documentation is also located online at 
 https://imapsync.lamiral.info/INSTALL.d/
 https://imapsync.lamiral.info/INSTALL.d/INSTALL.Darwin.txt
 
+
+Usual users should follow the A) section only, with the exeption 
+of reading B) before if you use a Catalina system.
+
+A) Installing imapsync binary on Darwin / Mac OS X
+B) Installing imapsync on Catalina
+C) Installing imapsync script on Darwin / Mac OS X with brew
+D) Installing imapsync script on Darwin / Mac OS X the way I do
+E) Building imapsync binary on Darwin / Mac OS X
+
+
 =======================================================================
-               Installing imapsync binary on Darwin / Mac OS X
+A) Installing imapsync binary on Darwin / Mac OS X
 =======================================================================
 
-Caveat Catalina: The binary imapsync_bin_Darwin is detected as a malware
-or similar on the latest Mac OS X named Catalina.
-It's Catalina new security policy. I'm working on it.
-All other Mac OS X releases are ok.
-So far I found 
-https://www.quora.com/What-does-Can-t-be-opened-because-it-s-integrity-cannot-be-verified-mean-on-OSX-Catalina
-https://github.com/fastlane/fastlane/issues/15186#issuecomment-532047545
-https://github.com/neovim/neovim/issues/11011#issuecomment-531369505
-Other way, on the binary: Control + Right Click -> Open 
-(I don't know if it adds imapsync in the ok apps)
-See also the last section of https://support.apple.com/en-us/HT202491
-"How to open an app that hasn’t been notarized or is from an unidentified developer"
-
-Now, let's forget Catalina for the rest of this document 
 
 There is a standalone imapsync binary for Mac OS X 
 called "imapsync_bin_Darwin" (without the quotes),
-available in the compressed tarball called imapsync-1.xxx.tgz
-where 1.xxx is the version number. I suppose this tarball is put
-under your $HOME directory, let say /Users/gilles/, but you can
-put it anywhere.
+available in the compressed tarball called imapsync-1.977.tgz
+where 1.977 is the imapsync version number. 
+
+In case you haven't buy it yet or forgot where the download link is,
+check https://imapsync.lamiral.info/dist/
+
+Download the tarball imapsync-1.977.tgz, not the binary imapsync_bin_Darwin
+because the binary is also in the tarball and there are other useful files
+in the tarball. The binary present in /dist/ is just there for a fast upgrade
+when you need one.
+
+I suppose this tarball imapsync-1.977.tgz is downloaded under your $HOME directory, 
+let say /Users/gilles/, but you can put it anywhere. In real, your $HOME directory 
+is not /Users/gilles/, it maybe /Users/john/ or /Users/zoey/ where John or Zoey
+is you login name.
 
 Open a terminal: /Applications/Utilities/Terminal double-click on Terminal.
 
-Untar the tarball where you want:
+Untar the tarball:
 
   cd
-  tar xzvf  /Users/gilles/imapsync-1.xxx.tgz
+  pwd
+  tar xzvf imapsync-1.977.tgz
 
-Go into the directory imapsync-1.xxx
+In case the previous command fails, it means the tarball file called imapsync-1.977.tgz
+is not in your $HOME directory, you may have downloaded it elsewhere on the file system.
+A way to find it is the command:
 
-  cd imapsync-1.xxx
+  find / | grep imapsync 
+
+
+Now that the tarball is extracted, it created a directory called imapsync-1.977/ 
+Go into the directory imapsync-1.977 with the command:
+
+  cd imapsync-1.977
 
 
 First let's have a simple run to see if imapsync_bin_Darwin works. 
@@ -71,35 +88,66 @@ you have to use:
     --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
     --host2 test2.lamiral.info --user2 test2 --password2 secret2
 
-You also may have to edit the examples you use, like
-examples/imapsync_example.sh
-and replace in there the command ./imapsync by ./imapsync_bin_Darwin
-in case it is not already done.
-
-Be careful the way you edit the files, use a text editor. 
-Do not use a word processor because word processors add 
-or use special formating characters that will break the shell
-scripts. If you use TextEdit, use the text mode.
-
 
 The script examples/imapsync_example_darwin.sh is ready to use,
 it is a copy of examples/imapsync_example.sh adapted to Mac users.
 
-The script examples/sync_loop_darwin.sh is also ready to use.
-Try:
 
-  sh examples/sync_loop_darwin.sh
+Be careful the way you edit the script files, use a text editor. 
+Do not use a word processor because word processors add 
+or use special formating characters that will break the shell
+scripts. If you use TextEdit, use the text mode.
 
-or
+In the terminal, try:
 
-  cp examples/sync_loop_darwin.sh mysync.sh
+  sh examples/imapsync_example_darwin.sh
+
+or copy it and run your copy instead:
+
+  cp examples/imapsync_example_darwin.sh mysync.sh
   sh mysync.sh
 
 Now read on the tutorial
 https://imapsync.lamiral.info/doc/TUTORIAL_Unix.html
+in order to complete your formation on imapsync.
+
+If you need to sync or migrate many accounts, 
+the script examples/sync_loop_darwin.sh is also ready to use.
+
 
 =======================================================================
-    Installing imapsync script on Darwin / Mac OS X with brew
+B) Installing imapsync on Catalina
+=======================================================================
+
+Caveat Catalina: The binary imapsync_bin_Darwin is detected as a malware
+or similar on the latest Mac OS X named Catalina. 
+It's Catalina new security policy. Imapsync is not a malware or similar.
+All other Mac OS X releases are ok.
+
+In order to pass away this detection, follow these steps:
+
+Run imapsync_bin_Darwin
+After this first launch, the security asks to authorize the unknown 
+developer program. Setup the root of the imapsync_bin_Darwin file 
+and then run it again or any of the .sh files, it should run ok 
+without any notice any more.
+
+Sources of this tip:
+https://www.quora.com/What-does-Can-t-be-opened-because-it-s-integrity-cannot-be-verified-mean-on-OSX-Catalina
+https://github.com/fastlane/fastlane/issues/15186#issuecomment-532047545
+https://github.com/neovim/neovim/issues/11011#issuecomment-531369505
+
+Other way, on the binary: Control + Right Click -> Open
+
+See also the last section of https://support.apple.com/en-us/HT202491
+"How to open an app that hasn't been notarized or is from an unidentified developer"
+
+I don't own a Catalina computer so I can't experiment on this nor make
+imapsync directly ok with Catalina. You're richer than me :-)
+
+
+=======================================================================
+C) Installing imapsync script on Darwin / Mac OS X with brew
 =======================================================================
 
 In case you have brew installed on your system ( see https://brew.sh/ ),
@@ -110,16 +158,23 @@ install imapsync with the command:
 Do a real test with imap server test.lamiral.info:
 
   imapsync --testslive
-  
+
+If you encouter an error like "String.c: loadable library and perl binaries
+are mismatched (got handshake key 0xc500080, needed 0xc400080)",
+then install imapsync from source with the command:
+
+  brew install -s imapsync
+
+Thanks to Alessandro for this tip!
 
 =======================================================================
-    Installing imapsync script on Darwin / Mac OS X the way I do
+D) Installing imapsync script on Darwin / Mac OS X the way I do
 =======================================================================
 
 This part is only for advanced Unix users, or brave users.
 
 The "make" command is a prerequisite to build some Perl modules.
-Install make in case it is not already installed.
+Install the "make" command in case it is not already installed.
 
 First let us install cpanminus locally in ~/perl5
 
@@ -173,7 +228,7 @@ Now imapsync should work on your system.
   ./imapsync --testslive
 
 =======================================================================
-               Building imapsync binary on Darwin / Mac OS X
+E) Building imapsync binary on Darwin / Mac OS X
 =======================================================================
 
 cpanm Module::ScanDeps
@@ -187,12 +242,5 @@ pp -o imapsync.bin imapsync
 ./imapsync.bin  --module
 
 
-=======================================================================
-               Installing imapsync Mac OS X Leopard
-=======================================================================
-
-Mac OS X Leopard has perl 5.8.8 and an old openssl version.
-
-
 =======================================================================
 =======================================================================
diff --git a/INSTALL.d/INSTALL.Debian.txt b/INSTALL.d/INSTALL.Debian.txt
index cf81e41..3884bc7 100644
--- a/INSTALL.d/INSTALL.Debian.txt
+++ b/INSTALL.d/INSTALL.Debian.txt
@@ -1,5 +1,5 @@
 #!/bin/cat 
-# $Id: INSTALL.Debian.txt,v 1.30 2019/11/28 14:36:18 gilles Exp gilles $
+# $Id: INSTALL.Debian.txt,v 1.32 2020/12/11 09:27:29 gilles Exp gilles $
 
 This documentation is also located online at 
 https://imapsync.lamiral.info/INSTALL.d/
@@ -7,9 +7,25 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.Debian.txt
 
 
 There is three install sections in this document,
-one for Debian 9 Stretch and Debian 10 Buster
-one for Debian 8 Jessie
-one for Debian 7 Wheezy
+1) one for Debian 9 Stretch and Debian 10 Buster
+2) one for Debian 8 Jessie
+3) one for Debian 7 Wheezy
+
+After reading and following 1) or 2) or 3), you'll be invited to read and follow 
+the fourth section "4) After installing the dependencies"
+
+What is your Debian release?
+Type on a terminal:
+
+    cat /etc/debian_version
+
+10.x => Buster
+ 9.x => Stretch
+ 8.x => Jessie
+ 7.x => Wheezy
+
+where x is any number between 0 and 9, x is minor and to be forgotten.
+
 
 First a call to Debian packagers
 Why imapsync is not in Debian as a package?
@@ -24,7 +40,7 @@ https://lists.debian.org/debian-user/2016/11/msg00849.html
 
 
 =======================================================================
-     Installing imapsync on Debian 9 Stretch or Debian 10 Buster
+  1) Installing imapsync on Debian 9 Stretch or Debian 10 Buster
 =======================================================================
 
 How to install imapsync dependencies on a Debian system?
@@ -76,12 +92,12 @@ apt install -y            \
 
 
 After installing the dependencies, imapsync should be working,
-go to the section "After installing the dependencies" below.
+go to the section "4) After installing the dependencies" below.
 
 
-=======================================================================
-             Installing imapsync on Debian 8 Jessie 
-=======================================================================
+=============================================
+ 2) Installing imapsync on Debian 8 Jessie 
+=============================================
 
 How to install imapsync dependencies on a Debian system?
 
@@ -114,9 +130,9 @@ apt install           \
   libtest-nowarnings-perl  \
   libtest-deep-perl        \
   libtest-warn-perl        \
+  gcc                      \
   make                     \
-  cpanminus                \
-  time
+  cpanminus
 
 The package libdata-uniqid-perl is in the jessie-backports repository
 https://packages.debian.org/fr/jessie-backports/libdata-uniqid-perl
@@ -149,11 +165,11 @@ the module JSON::WebToken with the command:
   cpanm JSON::WebToken
 
 After installing the dependencies, imapsync should be working,
-go to the section "After installing the dependencies" below.
+go to the section "4) After installing the dependencies" below.
 
 
 =======================================================================
-               Installing imapsync on Debian 7 Wheezy 
+  3) Installing imapsync on Debian 7 Wheezy 
 =======================================================================
 
 How to install imapsync dependencies on a Debian system?
@@ -189,6 +205,7 @@ apt-get install    \
   libtest-simple-perl     \
   libunicode-string-perl  \
   liburi-perl             \
+  gcc                     \
   make                    \
   cpanminus
 
@@ -216,11 +233,12 @@ the module JSON::WebToken with the command:
   cpanm JSON::WebToken
 
 
-After installing the dependencies, imapsync should be working.
+After installing the dependencies, imapsync should be working,
+then go to the section "4) After installing the dependencies" below.
 
-=======================================================================
-                 After installing the dependencies
-=======================================================================
+=======================================
+  4) After installing the dependencies
+=======================================
 
 You don't have to be root to test and use imapsync.
 
@@ -249,7 +267,7 @@ on the system:
   imapsync 
 
 Now go to read http://imapsync.lamiral.info/#doc
-start with the tutorial.
+and start with the tutorial.
 
 =======================================================================
 =======================================================================
diff --git a/INSTALL.d/INSTALL.OnlineUI.txt b/INSTALL.d/INSTALL.OnlineUI.txt
index 921e640..1e84da5 100644
--- a/INSTALL.d/INSTALL.OnlineUI.txt
+++ b/INSTALL.d/INSTALL.OnlineUI.txt
@@ -1,5 +1,5 @@
 #!/bin/cat 
-# $Id: INSTALL.OnlineUI.txt,v 1.32 2019/11/28 14:42:17 gilles Exp gilles $
+# $Id: INSTALL.OnlineUI.txt,v 1.49 2021/03/19 09:39:01 gilles Exp gilles $
 
 This documentation is also located online at 
 https://imapsync.lamiral.info/INSTALL.d/
@@ -9,9 +9,10 @@ https://imapsync.lamiral.info/INSTALL.d/INSTALL.OnlineUI.txt
                Installing imapsync online
 =======================================================================
 
-Please consider this as relatively experimental.
-However, to a certain extent, I'm now confident with /X 
-since the /X service is up and running quite well since January 2017.
+
+I'm now confident with /X since the /X service is up and running quite
+well since January 2017. Anyway, if you run this service on your own
+online, you take responsibility for it.
 
 =======================================================================
                     Hardware consideration
@@ -22,39 +23,41 @@ Load mean: 0.8 on a CPU 4 cores "Intel(R) i5-2320 3.00GHz K8-class"
 
 
 
-
 =======================================================================
                     Installation
-                    
+
 You have to be a little familiar with what a CGI script is
 and how to activate a CGI script on the Apache 
-HTTP server, or any other HTTP server. Linux is also a 
-preferred platform (I run /X service on Linux and FreeBSD).
+HTTP server, or any other HTTP server. I have received demands
+to run it on the Ngnix HTTP server but I haven't played with it yet.
+Linux is also a preferred platform (I run /X service on Linux and FreeBSD).
 
-I have tested yet this visual interface on Mac. It works
-but for now it demands some skills few Mac users have.
+I have tested this visual interface on Mac. It works.
+For now, it demands some skills few Mac users have.
+Drop me a note in case you want to do that.
 
 I have tested this visual interface on Windows,
-it fails on Windows because of some hard coded Unix paths.
-I'm working on it to be Windows ok but it's not done yet (october 2019).
+it fails on Windows because of some hardcoded Unix paths.
+I'm working on it to be Windows ok but it's not done yet (May 2020).
 
 Some users have successfully installed a /X visual interface 
 on Windows using a Linux VM machine.
 
 The web visual user interface frontend /X is compounded in four
-files: a html5 file, a css file, a javascript file and
+files: a html5 file, a CSS file, a javascript file, and
 a logo image:
 
-* https://i005.lamiral.info/X/imapsync_form_extra.html
-* https://i005.lamiral.info/X/imapsync_form.css
-* https://i005.lamiral.info/X/imapsync_form.js
-* https://i005.lamiral.info/X/logo_imapsync_Xn.png
+* https://imapsync.lamiral.info/X/imapsync_form_extra.html
+* https://imapsync.lamiral.info/X/imapsync_form.css
+* https://imapsync.lamiral.info/X/imapsync_form.js
+* https://imapsync.lamiral.info/X/logo_imapsync_Xn.png
 
 
-You can do a "view source" to see the html file as 
+You can do a "view source" to see the HTML file as 
 it is written, and a "save" to get it locally.
 The three other files can be saved the same way or
-with wget.
+with a command named "wget". I suggest using wget,
+see below the ready-to-use command lines.
 
 Those four files can be put anywhere on a web server,
 as long as they stand in the same directory. If you
@@ -63,7 +66,7 @@ the content of imapsync_form_extra.html to reflect the change,
 ie, change the two lines referencing imapsync_form.css and imapsync_form.js 
   href="imapsync_form.css" (near the beginning of imapsync_form_extra.html)
   src="imapsync_form.js"   (near the end of imapsync_form_extra.html)
-I let you changing the image logo as an exercise, it's safe if you fail.
+I let you change the image logo as an exercise, it's safe if you fail.
 
 The actual imap syncing work is done by imapsync acting as a CGI,
 the visual interface is only there to give imapsync the parameters
@@ -71,8 +74,8 @@ needed for the sync.
 
 Use at least Perl module CGI.pm release 4.08 (2014-10-18)
 to avoid the bug "Undefined subroutine CGI::multi_param".
-You can use the command cpanm to upgrade CGI.pm to its last version,
-it's the easiest way.
+You can use the command named cpanm to upgrade CGI.pm to
+its last version, it's the easiest way.
 
 Print the CGI.pm release with:
 
@@ -91,14 +94,14 @@ To check and fix the Perl modules dependencies, run:
   wget -N https://imapsync.lamiral.info/prerequisites_imapsync
   sh prerequisites_imapsync
 
-In order to make imapsync work as a cgi, there is two conditions.
+To make imapsync work as a CGI script, there are two conditions.
 First, imapsync has to work by itself on the web host.
 
 If imapsync doesn't work by itself, as a command line, 
-then it won't work as a cgi.
+then it won't work as a CGI script.
 
 Second, imapsync has to work by itself on the web host using
-the Unix user running the web server. Detailed examples to 
+the Unix user running the webserver. Detailed examples to
 verify that will be provided further in this document.
 
 The imapsync_form_extra.html file in action calls the CGI location
@@ -108,85 +111,116 @@ which has to be imapsync itself, the file script (not the directory).
 The very latest and relatively stable imapsync is at
 https://imapsync.lamiral.info/imapsync
 This file is the program file used verbatim for the service given at
-https://i005.lamiral.info/X/
+https://imapsync.lamiral.info/X/
 
 Copy the three files imapsync_form.* on a directory that is exported 
 by your HTTP server.
 Copy the imapsync script on the cgi-bin/ directory
-allowing CGIs and you'll have your own imapsync visual interface
-and service. The cgi-bin/ directory is usually outside the 
+allowing CGIs and you'll have your imapsync visual interface
+and service. The cgi-bin/ directory is usually outside the
 hierarchy exported to anybody by the HTTP server.
 
+The default Apache 2.4 timeout is 60 seconds, one minute, 300 for older Apache.
+https://httpd.apache.org/docs/2.4/mod/core.html#timeout
+Mine is now "Timeout 3600", 3600 seconds, an hour. I chose this huge
+timeout value because imapsync can spend a long time without talking while
+getting the headers of huge folders of 100k messages.
+If you intend to offer this service for huge mailboxes or for a long 
+time, I strongly recommand you to set this "Timeout 3600" in
+the Apache configuration right now because you will sure end up with this 
+timeout issue in a few months.
+Search for timeouts in the Apache error log to see if you have timeout issues.
+
 Now that I have explained the general context for any system,
 I'll describe concrete examples on several systems, 
 Debian/Ubuntu and Centos. Feedbacks show that the Centos
-process is easier in case you know just a little of the
-linux distributions.
+process is easier in case you don't know very much any of the
+Linux distributions.
 
 =============================================================================
 A) Concrete example on a Debian server with Apache:
 
-Imapsync script place on the server disk:
+Imapsync script place on the server disk is
 /usr/lib/cgi-bin/imapsync
 
-Get and install latest imapsync:
-
-  cd
-  wget -N -O /usr/lib/cgi-bin/imapsync  https://imapsync.lamiral.info/imapsync
-  chmod +x /usr/lib/cgi-bin/imapsync
-
- Check it like this:
-
-  cd
-  /usr/lib/cgi-bin/imapsync --testslive
-
-Assuming that the Unix account running Apache is www-data, 
-check that it will work under Apache with this command:
-
-  su -s /bin/sh -c 'SERVER_SOFTWARE=foo /usr/lib/cgi-bin/imapsync' www-data
-
-  wget -nv -S -O-  http://localhost/cgi-bin/imapsync?testslive=1
-
-It should print something like:
-Status: 200 OK to sync IMAP boxes. Load on bar is ...
-...
-
-
-This classical /cgi-bin directory is already configured 
+This classical /cgi-bin directory is usually already configured 
 in the Apache configuration file
 /etc/apache2/sites-available/default-ssl
 or
 /etc/apache2/sites-available/default
 
-The configuration file contains the following section
+This configuration file contains the following section
 somewhere, maybe in comments for now, ie, with 
-some # characters 
-at the beginning to make them ignored:
+some # characters at the beginning to make them ignored:
 
 ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
 <Directory "/usr/lib/cgi-bin">
     AllowOverride None
     # Next line "no-gzip 1" is to avoid output buffering, 
-    # clients can then see the log along the sync
+    # clients can then see the log during the sync
     SetEnv no-gzip 1
     Options +ExecCGI -MultiViews
-    Order allow,deny
-    Allow from all
+    
+    # Choose either one or the other, depending on your Apache version
+    # Lines beginning with # are ignored
+    
+    # For Apache 2.2
+    #Order allow, deny
+    #Allow from all
+    
+    # Apache 2.4
+    Require all granted
 </Directory>
 
+That's all for the Apache configuration side.
+
+Now get, test, and install the latest imapsync:
+
+  cd
+  wget -N https://imapsync.lamiral.info/imapsync
+  chmod +x imapsync
+
+  # some basic tests
+  ./imapsync 
+  ./imapsync --testslive
+
+  cp imapsync /usr/lib/cgi-bin/
+
+Assuming that the Unix account running Apache is www-data, 
+check that it will work under Apache with this command:
+
+  su -s /bin/sh -c 'SERVER_SOFTWARE=foo /usr/lib/cgi-bin/imapsync' www-data
+  wget -nv -S -O-  http://localhost/cgi-bin/imapsync?testslive=1
+
+The last command should print something like:
+Status: 200 OK to sync IMAP boxes. Load on bar is ...
+...
+
+
+You can also verify that the webserver is not buffering its output with the 
+command:
+
+  wget -nv -S -O-  'http://localhost/cgi-bin/imapsync?testslive=1&simulong=10'
+
+You should get the output as time goes on. If you don't get the
+output as time goes on, ie you see no output then all output
+at once, it means the webserver is buffering. Fix it with
+the "SetEnv no-gzip 1" described above.
+
+
 The UI front-end file place on the server disk in
 this example is
 /var/www/html/X/imapsync_form_extra.html
-but it can be placed it anywhere on disk, the important
-thing is that it has to be served by the web server. 
+but it can be placed anywhere on the disk, the important
+thing is that it has to be served by the webserver. 
 
   mkdir /var/www/html/X/
   cd /var/www/html/X/
   wget -N \
-  https://i005.lamiral.info/X/imapsync_form_extra.html \
-  https://i005.lamiral.info/X/imapsync_form.css \
-  https://i005.lamiral.info/X/imapsync_form.js \
-  https://i005.lamiral.info/X/logo_imapsync_Xn.png
+  https://imapsync.lamiral.info/X/imapsync_form_extra.html \
+  https://imapsync.lamiral.info/X/imapsync_form.css \
+  https://imapsync.lamiral.info/X/imapsync_form.js \
+  https://imapsync.lamiral.info/X/logo_imapsync_Xn.png
   ln -s imapsync_form_extra.html index.html
 
 The imapsync process working directory in cgi mode is
@@ -204,15 +238,26 @@ or the safer
 That's all for installing a /X service on Debian.
 
 =============================================================================
-B) Concrete example on a Centos 7 server with httpd Apache:
+B) Here is a concrete example on a Centos 7 server with the Apache
+   webserver httpd:
+
+First, follow and apply the section "Centos 7 and latest imapsync" 
+at https://imapsync.lamiral.info/INSTALL.d/INSTALL.Centos.txt
+
+Then:
+
+  yum install httpd
+  systemctl restart httpd
+
+  cpanm CGI
 
   mkdir /var/www/html/X/
   cd /var/www/html/X/
   wget -N \
-  https://i005.lamiral.info/X/imapsync_form_extra.html \
-  https://i005.lamiral.info/X/imapsync_form.css \
-  https://i005.lamiral.info/X/imapsync_form.js \
-  https://i005.lamiral.info/X/logo_imapsync_Xn.png
+  https://imapsync.lamiral.info/X/imapsync_form_extra.html \
+  https://imapsync.lamiral.info/X/imapsync_form.css \
+  https://imapsync.lamiral.info/X/imapsync_form.js \
+  https://imapsync.lamiral.info/X/logo_imapsync_Xn.png
   ln -s imapsync_form_extra.html index.html
   
   cd
@@ -223,17 +268,228 @@ B) Concrete example on a Centos 7 server with httpd Apache:
   ./imapsync --testslive
 
   cp imapsync /var/www/cgi-bin/
+
+Assuming that the Unix account running Apache is "apache",
+which is the default Apache user on Centos system,
+check that it will work under Apache with this command:
+
+# a real synchronization but not in cgi context
+  cd /tmp
+  su -s /bin/sh -c '/var/www/cgi-bin/imapsync --testslive' apache
+  
+# in cgi context but just the imapsync command with no parameter
+  cd 
   su -s /bin/sh -c 'SERVER_SOFTWARE=foo /var/www/cgi-bin/imapsync' apache
+  
+# a real synchronization in cgi context
   wget -nv -S -O-  http://localhost/cgi-bin/imapsync?testslive=1
 
+The last command should print something like:
+Status: 200 OK to sync IMAP boxes. Load on bar is ...
+...
 
-Check 
+You can also verify that the webserver is not buffering its output with the 
+command:
+
+  wget -nv -S -O-  'http://localhost/cgi-bin/imapsync?testslive=1&simulong=10'
+
+You should get the output as time goes on. If you don't, no output then all
+output at once, it means the webserver is buffering. Fix it with
+the "SetEnv no-gzip 1" described above.
+
+Now check 
    http://yourhost/X/imapsync_form_extra.html
 or the safer
   https://yourhost/X/imapsync_form_extra.html
 
 That's all for installing a /X service on Centos 7.
 
+
+B bis) How about Centos 8?
+
+Follow the procedure for Centos 7. While imapsync is ok on the command line,
+you will encounter some permission denied in the CGI context. Something like:
+
+wget -nv -S -O-  http://localhost/cgi-bin/imapsync?testslive=1
+...
+Host1 failure: can not open imap connection on host1 [test1.lamiral.info]
+with user [test1]: Unable to connect to test1.lamiral.info:  Permission denied
+
+The issue might come from SELinux. I haven't dig into SELinux enough to give 
+you the commands that will allow imapsync online and only it while maintaining
+SELinux in enforcing mode.
+
+Quick solution:
+
+   sestatus
+   setenforce 0
+   sestatus
+
+To go back to the previous state:
+
+   setenforce 1
+   sestatus
+
+
+Nota bene
+=========
+You may also want to avoid being placed by systemd in
+a directory like (where xxx are crypto hash characters):
+
+/var/tmp/systemd-private-xxx-httpd.service-xxx/tmp/
+
+In that case, edit the file
+
+  /usr/lib/systemd/system/httpd.service
+
+and in it, replace the line
+
+  PrivateTmp=true
+
+by the line
+
+  PrivateTmp=false
+
+then reload systemd and restart httpd with the commands:
+
+  systemctl daemon-reload
+  systemctl restart httpd
+  systemctl status  httpd
+  
+
+=======================================================================
+===================   Bandwidth statistics   ==========================
+=======================================================================
+
+If you want the bandwidth statistics like the ones at the bottom 
+of the page and following the image link, more detailed at
+https://imapsync.lamiral.info/vnstat/vnstati.html
+
+Those stats are generated by vnstat
+https://humdi.net/vnstat/
+
+Vnstat is already available as a package in most Linux distros.
+
+The images are generated by the following commands, every minute:
+vnstati -s  -o /var/www/vnstat/vnstat_s.png
+vnstati -h  -o /var/www/vnstat/vnstat_h.png
+vnstati -hg -o /var/www/vnstat/vnstat_hg.png
+vnstati -hs -o /var/www/vnstat/vnstat_hs.png
+vnstati -d  -o /var/www/vnstat/vnstat_d.png
+vnstati -m  -o /var/www/vnstat/vnstat_m.png
+vnstati -y  -o /var/www/vnstat/vnstat_y.png
+vnstati -t  -o /var/www/vnstat/vnstat_t.png
+vnstati -vs -o /var/www/vnstat/vnstat_vs.png
+vnstati -5  -o /var/www/vnstat/vnstat_5.png
+
+
+=======================================================================
+======================   Troubleshooting   ============================
+=======================================================================
+
+The log says the temporary directory is 
+/var/tmp/imapsync_cgi/
+but it is not in the system.
+
+It may be that the apache or httpd service is run by systemd with a jailed 
+temporary directory.
+
+Solution:
+
+  find /etc/systemd/ /usr/lib/systemd/ |xargs grep -s PrivateTmp
+
+If systemd jails Apache then you'll find a line like:
+/etc/systemd/system/multi-user.target.wants/apache2.service:PrivateTmp=true
+(Debian/Ubuntu)
+or
+/usr/lib/systemd/system/httpd.service:PrivateTmp=true
+(Centos)
+
+Replace this line "PrivateTmp=true"
+in /etc/systemd/system/multi-user.target.wants/apache2.service 
+or
+/usr/lib/systemd/system/httpd.service
+
+with:
+
+PrivateTmp=false
+
+Then reload the systemd daemon and restart the apache2 service
+
+Debian:
+  systemctl daemon-reload
+  systemctl restart apache2
+  systemctl status  apache2
+
+Centos:
+  systemctl daemon-reload
+  systemctl restart httpd
+  systemctl status  httpd
+
+Then retry 
+
+  wget -nv -S -O-  http://localhost/cgi-bin/imapsync?testslive=1
+
+Look now if /var/tmp/imapsync_cgi/ is there.
+
+=======================================================================
+If you encounter this issue:
+
+Failed to find a valid digest in the 'integrity' attribute for resource 
+'https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js' 
+with computed SHA-256 integrity 'kZMXypKF3if9/5v2tP9UHBvS/535tSyH7vjszruyCso='. 
+The resource has been blocked.
+
+It may be because of AdBlock.
+
+Verification:
+
+  wget https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js
+  cat jquery.min.js | openssl dgst -sha384 -binary | openssl base64 -A
+
+gives exactly what is in imapsync_form_extra.html
+
+  more imapsync_form_extra.html
+...
+src="https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js"
+integrity="sha384-xBuQ/xzmlsLoJpyjoggmTEz8OWUFM0/RC5BsqQBDX2v5cMvDHcMakNTNrHIW2I5f"
+
+So if your https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js
+is not what it should be, your access looks compromised.
+
+Thanks to Dominik Ulrich for this insight!
+=======================================================================
+=======================================================================
+
+This part is for hackers only.
+
+If you want to use the UI but make it more complicated things than
+just run imapsync then use the following files:
+
+imapsync_shell_wrapper      instead of imapsync itself 
+imapsync_form_wrapper.js    instead of imapsync_form.js
+imapsync_form_wrapper.html  instead of imapsync_form.html
+
+How to get those files:
+
+wget -N https://imapsync.lamiral.info/X/imapsync_shell_wrapper \
+  https://imapsync.lamiral.info/X/imapsync_form_wrapper.js \
+  https://imapsync.lamiral.info/X/imapsync_form_wrapper.html
+
+Centos:
+  chmod +x imapsync_shell_wrapper
+  cp imapsync_shell_wrapper /var/www/cgi-bin/
+
+Debian:
+  chmod +x imapsync_shell_wrapper
+  cp imapsync_shell_wrapper /usr/lib/cgi-bin/
+
+Normally, you only have to change the script imapsync_shell_wrapper 
+to suit your needs.
+
+Have in mind that the abort button will kill only one imapsync so
+it is not a working button in case of successive imapsync runs.
+
 =======================================================================
 =======================================================================
 
@@ -245,7 +501,7 @@ The script imapsync doesn't work under Modperl::Registry
 nor under ModPerl::PerlRun. So read on if you think you
 are better than me. 
 
-I've try the standard way, telling how any cgi perl script
+I tried the standard way, telling how any cgi Perl script
 can be run under mod_perl perlrun, but it fails with imapsync.
 Any hint welcome!
 
diff --git a/INSTALL.d/memo_docker b/INSTALL.d/memo_docker
index 81ee8d6..9d442e2 100644
--- a/INSTALL.d/memo_docker
+++ b/INSTALL.d/memo_docker
@@ -1,7 +1,8 @@
 #!/bin/sh
 
 echo imapsync_docker_timestamp_dockerfile
-imapsync_docker_timestamp_dockerfile() {
+imapsync_docker_timestamp_dockerfile()
+{
 	DATE_CURRENT=`date +%Y_%m_%d_%H_%M_%S`
 	echo $DATE_CURRENT
 	sed -i -e "/just_a_comment_to_force_update/s/comment_to_force_update.*/comment_to_force_update $DATE_CURRENT/" Dockerfile
@@ -9,7 +10,8 @@ imapsync_docker_timestamp_dockerfile() {
 }
 
 echo imapsync_docker_build
-imapsync_docker_build() {
+imapsync_docker_build()
+{
     docker build -t gilleslamiral/imapsync . \
         && imapsync_docker_add_tag_version && echo Build SUCCEEDED || echo Build FAILED
 
@@ -19,11 +21,18 @@ imapsync_docker_build() {
     # docker run gilleslamiral/imapsync imapsync --testslive6 --nossl2
 }
 
+echo imapsync_docker_version
+imapsync_docker_version()
+{
+        docker run gilleslamiral/imapsync imapsync --version
+}
+
 echo imapsync_docker_add_tag_version
-imapsync_docker_add_tag_version() {
+imapsync_docker_add_tag_version()
+{
     docker images gilleslamiral/imapsync
     echo 
-    version=`docker run gilleslamiral/imapsync imapsync --version`
+    version=`imapsync_docker_version`
     echo $version
     docker tag gilleslamiral/imapsync:latest gilleslamiral/imapsync:$version
     docker images gilleslamiral/imapsync
@@ -32,25 +41,37 @@ imapsync_docker_add_tag_version() {
 
 
 echo imapsync_docker_testslive
-imapsync_docker_testslive() {
+imapsync_docker_testslive()
+{
     echo docker run gilleslamiral/imapsync imapsync --testslive
     docker run gilleslamiral/imapsync imapsync --testslive
 }
 
 echo imapsync_docker_testslive6
-imapsync_docker_testslive6() {
+imapsync_docker_testslive6()
+{
     echo docker run gilleslamiral/imapsync imapsync --testslive6 --ssl1 --ssl2
     docker run gilleslamiral/imapsync imapsync --testslive6 --ssl1 --ssl2
 }
 
 echo imapsync_docker_tests
-imapsync_docker_tests() {
+imapsync_docker_tests()
+{
     echo docker run gilleslamiral/imapsync imapsync --tests
     docker run gilleslamiral/imapsync imapsync --tests
 }
 
+echo imapsync_docker_envfile
+imapsync_docker_envfile()
+{
+        docker run --env-file ./secret.txt gilleslamiral/imapsync imapsync \
+        --host1 test1.lamiral.info --user1 test1 \
+        --host2 test2.lamiral.info --user2 test2  --justlogin
+}
+
 echo docker_delete_all_images
-docker_delete_all_images() {
+docker_delete_all_images()
+{
     docker rm `docker ps -a -q`
     docker rmi `docker images -q`
 }
@@ -62,7 +83,8 @@ docker_system_prune()
 }
 
 echo docker_delete_dandling_images
-docker_delete_dandling_images() {
+docker_delete_dandling_images()
+{
 	docker images
 	dandling_images=`docker images -f dangling=true -q`
 	exited_containers=`docker ps -a -f status=exited -q`
@@ -73,23 +95,28 @@ docker_delete_dandling_images() {
 
 
 echo imapsync_docker_rebuild_from_scratch
-imapsync_docker_rebuild_from_scratch() {
+imapsync_docker_rebuild_from_scratch()
+{
     delete_all_images
     docker images
     imapsync_docker_build
 }
 
 echo imapsync_docker_upload
-imapsync_docker_upload() {
-    # upload only after successful tests
-    set -x \
-    && imapsync_docker_testslive \
-    && imapsync_docker_tests \
-    && docker run gilleslamiral/imapsync true \
-    && docker login --username=gilleslamiral --password=`cat $HOME/var/pass/secret.docker` \
-    && docker push gilleslamiral/imapsync:latest \
-    && set +x && echo imapsync push SUCCEEDED || echo imapsync push FAILED
-    set +x
+imapsync_docker_upload()
+{
+        version=`imapsync_docker_version`
+        # upload only after successful tests
+        set -x \
+        && rcsdiff imapsync \
+        && imapsync_docker_testslive \
+        && imapsync_docker_tests \
+        && docker run gilleslamiral/imapsync true \
+        && docker login --username=gilleslamiral --password=`cat $HOME/var/pass/secret.docker` \
+        && docker push gilleslamiral/imapsync:latest \
+        && docker push gilleslamiral/imapsync:$version \
+        && set +x && echo imapsync push SUCCEEDED || echo imapsync push FAILED
+        set +x
 }
 
 
diff --git a/INSTALL.d/secret.txt b/INSTALL.d/secret.txt
new file mode 100644
index 0000000..35f8f71
--- /dev/null
+++ b/INSTALL.d/secret.txt
@@ -0,0 +1,2 @@
+IMAPSYNC_PASSWORD1=secret1
+IMAPSYNC_PASSWORD2=secret2
diff --git a/Makefile b/Makefile
index 94dcaeb..6046a6b 100644
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 
-# $Id: Makefile,v 1.320 2020/01/03 22:50:27 gilles Exp gilles $	
+# $Id: Makefile,v 1.335 2021/07/06 02:00:46 gilles Exp gilles $	
 
 .PHONY: help usage all doc
 
@@ -15,9 +15,9 @@ usage:
 	@echo "make testf      # run tests"
 	@echo "make testv      # run tests verbosely"
 	@echo "make test_quick # few tests verbosely"
-	@echo "make W/test.bat            # run --tests and W/test.bat on win32"
-	@echo "make W/test_tests.bat      # run --tests        on win32"
-	@echo "make W/test_testsdebug.bat # run --testsdebug   on win32"
+	@echo "make win32testsbat         # run --tests and W/test.bat on win32"
+	@echo "make win32tests            # run --tests        on win32"
+	@echo "make win32testsdebug       # run --testsdebug   on win32"
 	@echo "make W/test2.bat           # run W/test2.bat    on win32"
 	@echo "make W/test3.bat           # run W/test3.bat    on win32"
 	@echo "make W/test_reg.bat        # run W/test_reg.bat on win32"
@@ -52,9 +52,9 @@ usage:
 	@echo "make mactestsdebug # run ./imapsync --testsdebug on Mac"
 	@echo "make mactests      # run ./imapsync --tests      on Mac"
 	@echo "make mactestslive  # run ./imapsync --testslive  on Mac"
-	@echo "make ks2testsdebug # run ./imapsync --testsdebug on ks2"
-	@echo "make ks2tests      # run ./imapsync --tests      on ks2"
-	@echo "make ks2testslive  # run ./imapsync --testslive  on ks2"
+	@echo "make ks5testsdebug # run ./imapsync --testsdebug on ks5"
+	@echo "make ks5tests      # run ./imapsync --tests      on ks5"
+	@echo "make ks5testslive  # run ./imapsync --testslive  on ks5"
 
 
 PREFIX ?= /usr
@@ -62,9 +62,6 @@ DIST_PATH := dist2/
 VERSION := $(shell perl ./imapsync --version 2>/dev/null || cat VERSION)
 VERSION_PREVIOUS := $(shell perl ./$(DIST_PATH)/imapsync --version 2>/dev/null || echo ERROR)
 
-IMAPClient_3xx := ./W/Mail-IMAPClient-3.42/lib
-IMAPClient := $(IMAPClient_3xx)
-
 
 DIST_NAME := imapsync-$(VERSION)
 DIST_FILE := $(DIST_NAME).tgz
@@ -85,7 +82,6 @@ hello:
 	@echo "VERSION          $(VERSION)"
 	@echo "DIST_NAME        $(DIST_NAME)"
 	@echo "VERSION_PREVIOUS $(VERSION_PREVIOUS)"
-	@echo "IMAPClient       $(IMAPClient)"
 	@echo "HOSTNAME         $(HOSTNAME)"
 	@echo "ARCH             $(ARCH)"
 	@echo "KERNEL           $(KERNEL)"
@@ -93,9 +89,9 @@ hello:
 	@echo "DISTRO           $(DISTRO)"
 
 
-all: doc VERSION biz prereq allcritic bin
+all: doc VERSION biz prereq allcritic 
 
-testp :
+testp:
 	sh INSTALL.d/prerequisites_imapsync
 	@perl -c imapsync || { echo; echo "Read the INSTALL file to solve Perl module dependencies!"; exit 1; }
 
@@ -108,7 +104,7 @@ README: imapsync
 
 VERSION: imapsync
 	rcsdiff imapsync
-	perl -I./$(IMAPClient) ./imapsync --version > ./VERSION
+	./imapsync --version > ./VERSION
 	touch -r ./imapsync ./VERSION
 
 
@@ -128,9 +124,9 @@ doc/TUTORIAL_Unix.html: doc/TUTORIAL_Unix.t2t
 
 doc:  README  ChangeLog doc/TUTORIAL_Unix.html doc/GOOD_PRACTICES.html W/imapsync.1 
 
-.PHONY: clean clean_tilde clean_test doc clean_log clean_bak clean_permissions
+.PHONY: clean clean_tilde clean_test doc clean_log clean_bak clean_permissions clean_oauth2
 
-clean: clean_tilde clean_man clean_log clean_bak clean_permissions
+clean: clean_tilde clean_man clean_log clean_bak clean_permissions clean_oauth2
 
 clean_permissions:
 	chmod a-x Makefile FAQ.d/FAQ.*.txt README_Windows.txt
@@ -153,6 +149,9 @@ clean_log:
 clean_bak:
 	rm -f index.shtml.bak ./S/style.css.bak
 
+clean_oauth2:
+	rm oauth2/typescript oauth2/D_*txt
+
 .PHONY: install dist man
 
 man:  W/imapsync.1
@@ -178,32 +177,50 @@ install: testp W/imapsync.1
 # Local goals
 ###############
 
-.PHONY: prereq test tests unitests testp testf test3xx testv3 perlcritic allcritic crit compok dev cover tidy nytprof
+.PHONY: prereq test tests unitests testp testf test3xx perlcritic allcritic crit compok dev cover tidy nytprof functree
 
 dev: test functree crit cover nytprof bin
 
+
 docker:
-	ssh ks3 'cd docker/imapsync && . memo_docker'
-	@echo "make docker_copy_to_ks3 # copy imapsync Dockerfile memo_docker to ks3"
+	@echo "make docker_copy_to_vp3 # copy imapsync Dockerfile memo_docker to vp3"
+	@echo "make docker_build       # build the imapsync docker image"
 	@echo "make docker_upload_docker_hub  # upload last build to https://hub.docker.com/r/gilleslamiral/imapsync"
+	@echo "ssh vp3 THEN cd docker/imapsync && . memo_docker"
+
+docker_build:
+	ssh vp3 'cd docker/imapsync && . memo_docker && imapsync_docker_build'
 
 
-docker_copy_to_ks3:
-	rsync -av imapsync INSTALL.d/Dockerfile INSTALL.d/memo_docker INSTALL.d/prerequisites_imapsync ks3:docker/imapsync/
-	rsync -av RCS/imapsync,v INSTALL.d/RCS/Dockerfile,v INSTALL.d/RCS/memo_docker,v ks3:docker/imapsync/RCS/
+
+docker_copy_to_vp3:
+	ssh vp3 'mkdir -p docker/imapsync/ var/pass/'
+	rsync -av /g/var/pass/secret.docker vp3:var/pass/secret.docker
+	rsync -av imapsync INSTALL.d/Dockerfile INSTALL.d/memo_docker INSTALL.d/prerequisites_imapsync INSTALL.d/secret.txt vp3:docker/imapsync/
+	rsync -av RCS/imapsync,v INSTALL.d/RCS/Dockerfile,v INSTALL.d/RCS/memo_docker,v vp3:docker/imapsync/RCS/
 
 docker_upload_docker_hub:
-	ssh ks3 'cd docker/imapsync && . memo_docker && imapsync_docker_upload'
+	ssh vp3 'cd docker/imapsync && . memo_docker && imapsync_docker_upload'
 
-functree:
+functree: W/imapsync_functions_tree_ppi.txt W/imapsync_functions_tree.txt
+
+W/imapsync_functions_tree_ppi.txt: imapsync
 	perl ./W/learn/function_calls_ppi ./imapsync > W/imapsync_functions_tree_ppi.txt
+	rcsdiff W/imapsync_functions_tree_ppi.txt || { echo 'rcsdiff detected a diff' | ci -l W/imapsync_functions_tree_ppi.txt ; }
+
+W/imapsync_functions_tree.txt: imapsync
 	perl ./W/learn/function_calls ./imapsync > W/imapsync_functions_tree.txt
+	rcsdiff W/imapsync_functions_tree.txt || { echo 'rcsdiff detected a diff' | ci -l W/imapsync_functions_tree.txt ; }
 
 
-nytprof:
+nytprof: nytprof_clean
 	sh tests.sh ll_nytprof
 	nytprofhtml
 
+nytprof_clean:
+	rm -rfv nytprof/
+
+
 cover:
 	perl -c ./imapsync
 	perl -MDevel::Cover ./imapsync --tests --testslive
@@ -240,17 +257,17 @@ perlcritic: W/perlcritic_3.txt W/perlcritic_2.txt
 allcritic: W/perlcritic_4.txt W/perlcritic_3.txt W/perlcritic_2.txt W/perlcritic_1.txt
 
 W/perlcritic_1.txt: imapsync W/.compok 
-	perlcritic --statistics -1 imapsync > W/perlcritic_1.txt.tmp || :
+	perlcritic --statistics-only -1 imapsync > W/perlcritic_1.txt.tmp || :
 	mv W/perlcritic_1.txt.tmp W/perlcritic_1.txt
 	echo | ci -l W/perlcritic_1.txt
 
 W/perlcritic_2.txt: imapsync W/.compok
-	perlcritic --statistics -2 imapsync > W/perlcritic_2.txt.tmp || :
+	perlcritic --statistics-only -2 imapsync > W/perlcritic_2.txt.tmp || :
 	mv W/perlcritic_2.txt.tmp W/perlcritic_2.txt
 	echo | ci -l W/perlcritic_2.txt
 
 W/perlcritic_3.txt: imapsync W/.compok
-	perlcritic --statistics -3 imapsync > W/perlcritic_3.txt.tmp || :
+	perlcritic --statistics-only -3 imapsync > W/perlcritic_3.txt.tmp || :
 	mv W/perlcritic_3.txt.tmp W/perlcritic_3.txt
 	echo | ci -l W/perlcritic_3.txt
 
@@ -260,32 +277,27 @@ W/perlcritic_4.txt: imapsync W/.compok
 	echo | ci -l W/perlcritic_4.txt
 
 
-test_quick : test_quick_3xx 
+test_quick: imapsync tests.sh
+	/usr/bin/time sh -x tests.sh locallocal
 
-test_quick_3xx: imapsync tests.sh
-	CMD_PERL='perl -I./$(IMAPClient_3xx)' /usr/bin/time sh -x tests.sh locallocal
-
-testv3: imapsync tests.sh
-	CMD_PERL='perl -I./$(IMAPClient_3xx)' /usr/bin/time sh tests.sh
-
-
-
-testv: testv3
-
-test: .test_3xx
+testv: imapsync tests.sh
+	/usr/bin/time sh tests.sh
 
 tests: test
 
-unitests: 
-	perl -I./$(IMAPClient_3xx) ./imapsync --tests
+test: .test_3xx
 
 # .test_3xx is created by tests.sh with success at all mandatory tests
 .test_3xx: imapsync tests.sh
-	CMD_PERL='perl -I./$(IMAPClient_3xx)' /usr/bin/time sh tests.sh 1>/dev/null
+	/usr/bin/time sh tests.sh 1>/dev/null
+
+unitests: 
+	./imapsync --tests
+
 
 testf: clean_test test
 
-.PHONY: lfo upload_lfo dosify_bat public  imapsync_cidone
+.PHONY: dosify_bat
 
 dosify_bat:
 	unix2dos W/*.bat examples/*.bat 
@@ -293,7 +305,9 @@ dosify_bat:
 copy_win32:
 	scp imapsync Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
 
-W/test.bat:
+.PHONY: win32testsbat win32tests win32testsdebug
+
+win32testsbat:
 	unix2dos W/test.bat
 	scp imapsync W/test.bat Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
 #	ssh Admin@c 'perl C:/msys/1.0/home/Admin/imapsync/imapsync --testsdebug'
@@ -303,21 +317,19 @@ W/test.bat:
 #	ssh Admin@c 'tasklist /NH /FO CSV' 
 
 
-W/test_tests.bat: 
+win32tests:
 	unix2dos  W/test_tests.bat
 	scp imapsync W/test_tests.bat Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
 	ssh Admin@c 'C:/msys/1.0/home/Admin/imapsync/test_tests.bat'
 	./W/check_winerr test_tests.bat
 
-W/test_testsdebug.bat: 
+win32testsdebug:
 	unix2dos  W/test_testsdebug.bat
 	scp imapsync W/test_testsdebug.bat Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
 	ssh Admin@c 'C:/msys/1.0/home/Admin/imapsync/test_testsdebug.bat'
 	./W/check_winerr test_testsdebug.bat
 
 
-
-
 .PHONY: W/*.bat examples/*
 
 
@@ -440,13 +452,13 @@ imapsync_32bit.exe: imapsync
 
 
 
-p24tests:
+win64tests:
 	unix2dos  W/test_tests.bat
 	scp imapsync W/test_tests.bat pc_HP_DV7_p24:'Desktop/imapsync_build'
 	ssh 'pc HP DV7'@p24 'Desktop/imapsync_build/test_tests.bat'
 	./W/check_win64err test_tests.bat
 
-p24testsdebug:
+win64testsdebug:
 	unix2dos  W/test_testsdebug.bat
 	scp imapsync W/test_testsdebug.bat pc_HP_DV7_p24:'Desktop/imapsync_build'
 	ssh 'pc HP DV7'@p24 'Desktop/imapsync_build/test_testsdebug.bat'
@@ -472,6 +484,11 @@ W/test_ipv6.bat:
 	scp W/test_ipv6.bat pc_HP_DV7_p24:'Desktop/imapsync_build'
 	ssh 'pc HP DV7'@p24 'Desktop/imapsync_build/test_ipv6.bat'
 
+W/test_namespace.bat:
+	unix2dos W/test_namespace.bat
+	scp W/test_namespace.bat ../../var/pass/secret.outlook.com pc_HP_DV7_p24:'Desktop/imapsync_build'
+	ssh 'pc HP DV7'@p24 'Desktop/imapsync_build/test_namespace.bat'
+
 W/test4.bat:
 	unix2dos W/test4.bat
 	scp W/test4.bat pc_HP_DV7_p24:'Desktop/imapsync_build'
@@ -517,7 +534,7 @@ win64build:
 	./W/check_win64err build_exe.bat
 
 imapsync.exe: imapsync_64bit.exe
-	cp imapsync_64bit.exe imapsync.exe
+	cp -a imapsync_64bit.exe imapsync.exe
 
 
 imapsync_64bit.exe: imapsync
@@ -554,13 +571,13 @@ zip: dosify_bat
 
 # C:\Users\mansour\Desktop\imapsync
 
-.PHONY: mac bin win lin win64
+.PHONY: mac maccopy macforce mactests mactestsdebug mactestslive mactestslive6 bin win lin win64
 
 mac: imapsync_bin_Darwin
 
 maccopy:
 	rsync -p -e 'ssh -4 -p 995' imapsync W/build_mac.sh INSTALL.d/prerequisites_imapsync webserver \
-        gilleslamira@gate.polarhome.com:
+	gilleslamira@gate.polarhome.com:
 	rsync -av -p -e 'ssh -4 -p 995' X/ gilleslamira@gate.polarhome.com:X/
 
 
@@ -590,25 +607,25 @@ mactestslive6:
 	rsync -p -e 'ssh -4 -p 995' imapsync gilleslamira@gate.polarhome.com:
 	ssh -4 -p 995 gilleslamira@gate.polarhome.com '. .bash_profile; perl imapsync --testslive6'
 
+.PHONY: bin win lin win32 win64
 
-bin: mac win64 win32
+bin: mac win
 
 lin: $(BIN_NAME)
 
 win: win64 win32 imapsync.exe
 
-win64: imapsync_64bit.exe
-
 win32: imapsync_32bit.exe
 
+win64: imapsync_64bit.exe
+
 
 $(BIN_NAME): imapsync
 	rcsdiff imapsync
-	{ pp -x -o $(BIN_NAME) -I $(IMAPClient_3xx) \
-	-M Mail::IMAPClient \
+	{ pp -x -o $(BIN_NAME) \
 	imapsync ; \
 	}
-	# Maybe add -M Test2::Event::Info \
+	# Maybe add -M Test2::Event::Info Mail::IMAPClient \
 	#-M Net::SSLeay -M IO::Socket -M IO::Socket::INET6 -M IO::Socket::SSL \
 	#-M Digest::MD5 -M Digest::HMAC_MD5 -M Term::ReadKey \
 	#-M Authen::NTLM -M HTML::Entities -M JSON::WebToken \
@@ -619,7 +636,6 @@ $(BIN_NAME): imapsync
 	./$(BIN_NAME) --justbanner
 
 
-lfo: upload_lfo 
 
 .PHONY: tarball cidone ci
 
@@ -636,9 +652,10 @@ tarball: cidone
 ci: cidone
 
 cidone: auto_ci
-	rcsdiff X/cgi_memo X/*.txt X/imapsync_form.* X/noscript.css
-	rcsdiff W/*.bat W/*.sh W/*.txt W/*.txt W/*.htaccess
+	rcsdiff X/cgi_memo X/stat_patterns.txt X/server_survey_patterns.txt X/imapsync_form.* X/imapsync_form_extra.html X/noscript.css
+	rcsdiff W/*.bat W/*.sh W/*.txt W/*.htaccess
 	cd W && rcsdiff RCS/*
+	cd oauth2 && rcsdiff RCS/*
 	rcsdiff doc/*.t2t
 	rcsdiff INSTALL.d/*.txt INSTALL.d/prerequisites_imapsync
 	rcsdiff FAQ.d/*.txt
@@ -649,7 +666,7 @@ cidone: auto_ci
 	rcsdiff RCS/*
 
 
-dist: cidone test clean all perlcritic dist_prepa dist_zip README_dist
+dist: cidone test clean all dist_prepa dist_zip README_dist
 
 
 md5:
@@ -658,7 +675,7 @@ md5:
 sha:
 	cd $(DIST_PATH)/ && sha512sum *
 
-.PHONY: moveoldrelease ks2testsdebug ks2tests README_dist docker_pull_count
+.PHONY: moveoldrelease ks5testsdebug ks5tests README_dist docker_pull_count
 
 moveoldrelease:
 	./W/tools/backup_old_dist $(DIST_PATH)
@@ -681,7 +698,7 @@ README_dist:
 	sh W/tools/gen_README_dist > $(DIST_PATH)/README.txt
 	unix2dos $(DIST_PATH)/README.txt
 
-.PHONY: publish upload_ks ks valid_index biz ks2tests_gilles ks2tests_root auto_ci
+.PHONY: publish upload_ks ks valid_index biz ks5tests_gilles ks5tests_root auto_ci
 
 biz: S/imapsync_sold_by_country.txt docker_pull_count 
 
@@ -690,7 +707,7 @@ auto_ci: docker_pull_count
 docker_pull_count:
 	cd W/ && rcsdiff docker_pull_count.txt || { echo | ci -l docker_pull_count.txt ; }
 
-S/imapsync_sold_by_country.txt: imapsync
+S/imapsync_sold_by_country.txt: /g/bin/imapsync_by_country
 	cd S/ && /g/bin/imapsync_by_country && echo | ci -l imapsync_sold_by_country.txt
 
 
@@ -708,37 +725,40 @@ ks3:
 	rsync -avHz --delete -P \
 	  . gilles@ks3.lamiral.info:public_html/imapsync/
 
+ks6:
+	rsync -avHz --delete -P --exclude 'dist2' \
+	  . gilles@ks6.lamiral.info:public_html/imapsync/
+
+
 upload_tests: tests.sh
 	rsync -avHz --delete -P \
 	  tests.sh \
 	  gilles@ks.lamiral.info:public_html/imapsync/
 
 
-ks2testsdebug:
+ks5testsdebug:
 	rsync -aP imapsync gilles@ks.lamiral.info:public_html/imapsync/imapsync
 	ssh gilles@ks.lamiral.info 'public_html/imapsync/imapsync --testsdebug'
 
-ks2tests: ks2tests_gilles  ks2tests_root
+ks5tests: ks5tests_gilles ks5tests_root
 
 
-ks2tests_gilles:
-	rsync -aP imapsync gilles@ks.lamiral.info:public_html/imapsync/imapsync
+ks5tests_gilles:
+	rsync -P imapsync gilles@ks.lamiral.info:public_html/imapsync/
+	rsync -P oauth2_access_token.txt  oauth2_string_for_oauthdirect.txt gilles@ks.lamiral.info:
 	ssh gilles@ks.lamiral.info 'public_html/imapsync/imapsync --tests'
 
-ks2tests_root:
-	rsync -aP imapsync root@ks.lamiral.info:
-	ssh root@ks.lamiral.info './imapsync --tests'
-
-i005tests_root:
-	rsync -P imapsync INSTALL.d/prerequisites_imapsync root@i005.lamiral.info:
-	ssh root@i005.lamiral.info './imapsync --tests'
-
-i005prerequisites:
-	rsync -P imapsync INSTALL.d/prerequisites_imapsync root@i005.lamiral.info:
-	ssh root@i005.lamiral.info 'sh prerequisites_imapsync'
+ks5tests_root:
+	rsync -P imapsync oauth2_access_token.txt  oauth2_string_for_oauthdirect.txt root@ks5.lamiral.info:
+	ssh root@ks5.lamiral.info './imapsync --tests'
 
 
-ks2testslive:
+ks5prerequisites:
+	rsync -P imapsync INSTALL.d/prerequisites_imapsync root@ks5.lamiral.info:
+	ssh root@ks5.lamiral.info 'sh prerequisites_imapsync'
+
+
+ks5testslive:
 	rsync -aP imapsync gilles@ks.lamiral.info:public_html/imapsync/imapsync
 	ssh gilles@ks.lamiral.info 'public_html/imapsync/imapsync --testslive'
 
@@ -752,9 +772,6 @@ centos:
 
 
 
-
-
-
 PUBLIC = ./ChangeLog ./NOLIMIT ./LICENSE ./CREDITS ./FAQ \
 ./index.shtml ./INSTALL ./README_Windows.txt \
 ./VERSION ./imapsync \
@@ -766,6 +783,7 @@ ml:
 	m4 -P W/ml_announce.in.txt | mutt -H-
 	mailq
 
+lfo: upload_lfo 
 
 upload_lfo:
 	#rm -rf /home/gilles/public_html/www.linux-france.org/html/prj/imapsync/
@@ -777,8 +795,13 @@ upload_lfo:
 	/home/gilles/public_html/www.linux-france.org/html/prj/imapsync/.htaccess
 	sh ~/memo/lfo-rsync
 
+.PHONY: valid_index va
+
+
 valid_index: W/.valid.index.shtml
 
+va: valid_index
+
 cl: ./W/checklink.txt
 
 ./W/checklink.txt: index.shtml
@@ -794,15 +817,18 @@ cle: ./W/checklinkext.txt
 	http://lamiral.info/~gilles/imapsync/S/imapservers.shtml \
 	| tee ./W/checklinkext.txt
 
-W/.valid.index.shtml: index.shtml 
+W/.valid.index.shtml: index.shtml S/*.shtml
 	for f in index.shtml S/*.shtml; do echo tidy -e -q $$f; tidy -e -q  $$f ; done
 	./W/tools/validate_xml_html5 index.shtml S/*.shtml
+	./W/tools/validate index.shtml S/donate.shtml S/external.shtml S/imapservers.shtml \
+        S/news.shtml S/no_download.shtml S/paypal_return.shtml S/poll.shtml \
+        S/template_xhtml1.shtml 
 	touch W/.valid.index.shtml
 
 .PHONY: upload_index upload_FAQ ci_imapsync upload_bin
 
 
-upload_index: W/.valid.index.shtml clean_permissions
+upload_index: valid_index clean_permissions
 	rcsdiff index.shtml README_Windows.txt S/style.css S/*.shtml FAQ.d/*.txt LICENSE CREDITS TODO examples/*.bat examples/*.sh index.shtml INSTALL.d/*.txt
 	rm -f examples/LOG_imapsync/*
 	rsync -avH index.shtml README_Windows.txt FAQ INSTALL  NOLIMIT LICENSE CREDITS TODO S/robots.txt S/favicon.ico ../imapsync_website/
@@ -812,35 +838,37 @@ upload_index: W/.valid.index.shtml clean_permissions
 	rsync -aHv  --delete ./INSTALL.d/ ../imapsync_website/INSTALL.d/
 	rsync -aHv  --delete ./FAQ.d/     ../imapsync_website/FAQ.d/
 	rsync -avH  --delete ./doc/       ../imapsync_website/doc/
-	rsync -aHvz --delete ../imapsync_website/ root@ks.lamiral.info:/var/www/imapsync/
+	rsync -aHvz --delete ../imapsync_website/ root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
+
 
 
 ci_imapsync:
 	rcsdiff imapsync
 
 upload_latest: unitests ci_imapsync bin
-	rsync -a imapsync imapsync_bin_Darwin imapsync.exe imapsync_32bit.exe ./INSTALL.d/prerequisites_imapsync ../imapsync_website/
-	rsync -aHvz --delete ../imapsync_website/ root@ks.lamiral.info:/var/www/imapsync/
+	rsync -av imapsync imapsync_bin_Darwin imapsync.exe imapsync_32bit.exe ./INSTALL.d/prerequisites_imapsync ../imapsync_website/
+	rsync -aHvzP --delete ../imapsync_website/ root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
 
 
-upload_cgi: unitests ks2tests i005tests_root ci_imapsync 
+upload_cgi: unitests ks5tests ks5tests_root ci_imapsync 
 	rsync -a imapsync ./INSTALL.d/prerequisites_imapsync ../imapsync_website/
-	rsync -aHvz --delete ../imapsync_website/ root@ks.lamiral.info:/var/www/imapsync/
-	rsync -P imapsync root@i005.lamiral.info:/home/www/apache24/cgi-bin/imapsync
+	rsync -aHvz --delete ../imapsync_website/ root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
+	rsync -P imapsync root@ks5.lamiral.info:/home/www/apache24/cgi-bin/imapsync
 
 upload_cgi_memo:
 	dos2unix X/stat_patterns.txt X/server_survey_patterns.txt
-	rsync -av X/cgi_memo X/stat_patterns.txt X/server_survey_patterns.txt root@ks2:/var/tmp/imapsync_cgi/
-	rsync -av X/cgi_memo X/stat_patterns.txt X/server_survey_patterns.txt root@i005:/var/tmp/imapsync_cgi/
+	sed -i".bak" '/^[[:space:]]*$$/d' X/stat_patterns.txt X/server_survey_patterns.txt
+	rsync -av X/cgi_memo X/stat_patterns.txt X/server_survey_patterns.txt root@ks5:/var/tmp/imapsync_cgi/
 
 
 upload_X:
-	./W/tools/validate_xml_html5 X/index.html X/imapsync_form.html X/imapsync_form_extra.html 
-	rcsdiff X/imapsync_form.html X/imapsync_form_extra.html X/imapsync_form.css X/noscript.css
-	rcsdiff X/imapsync_form.js 
+	./W/tools/validate_xml_html5 X/index.html X/imapsync_form.html X/imapsync_form_extra.html X/imapsync_form_extra_free.html X/imapsync_form_wrapper.html
+	rcsdiff X/imapsync_form.html X/imapsync_form_extra.html X/imapsync_form_wrapper.html X/imapsync_form.css X/noscript.css
+	rcsdiff X/imapsync_form.js X/imapsync_form_wrapper.js
+	rcsdiff INSTALL.d/INSTALL.OnlineUI.txt
+	rsync -a ./INSTALL.d/INSTALL.OnlineUI.txt ../imapsync_website/INSTALL.d/INSTALL.OnlineUI.txt
 	rsync -av   --delete   X/ ../imapsync_website/X/
-	rsync -aHvz --delete  ../imapsync_website/ root@ks.lamiral.info:/var/www/imapsync/
-	rsync -av   --delete   X/ root@i005:/home/www/apache24/data/X/
+	rsync -aHvz --delete  ../imapsync_website/ root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
 
 upload_FAQ:
 	rcsdiff FAQ.d/*.txt  LICENSE CREDITS TODO INSTALL.d/*.txt 
@@ -848,7 +876,7 @@ upload_FAQ:
 	rsync -aHv  --delete  ./INSTALL.d/          ../imapsync_website/INSTALL.d/
 	rsync -aHv  --delete  ./FAQ.d/              ../imapsync_website/FAQ.d/
 	rsync -avH  --delete  ./doc/                ../imapsync_website/doc/
-	rsync -aHvz --delete ../imapsync_website/   root@ks.lamiral.info:/var/www/imapsync/
+	rsync -aHvz --delete ../imapsync_website/   root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
 
 
 upload_ks_W_memo:
@@ -863,7 +891,7 @@ upload_ks: ci tarball
 	rsync -aHv  --delete ./INSTALL.d/    ../imapsync_website/INSTALL.d/
 	rsync -aHv  --delete ./FAQ.d/        ../imapsync_website/FAQ.d/
 	rsync -avH  --delete ./doc/          ../imapsync_website/doc/
-	rsync -aHvz --delete ../imapsync_website/ root@ks.lamiral.info:/var/www/imapsync/
+	rsync -aHvz --delete ../imapsync_website/ root@ks5.lamiral.info:/usr/local/www/apache24/data/imapsync/
 	ssh root@ks.lamiral.info 'apachectl configtest && /etc/init.d/apache2 reload'
 
 
diff --git a/README b/README
index 510ca35..4fc332f 100644
--- a/README
+++ b/README
@@ -6,7 +6,7 @@ NAME
 
 VERSION
 
-    This documentation refers to Imapsync $Revision: 1.977 $
+    This documentation refers to Imapsync $Revision: 2.140 $
 
 USAGE
 
@@ -27,52 +27,76 @@ DESCRIPTION
 
     Imapsync command is a tool allowing incremental and recursive imap
     transfers from one mailbox to another. If you don't understand the
-    previous sentence, it's normal, it's pedantic computer oriented jargon.
+    previous sentence, it's normal, it's pedantic computer-oriented jargon.
 
     All folders are transferred, recursively, meaning the whole folder
-    hierarchy is taken, all messages in them, and all messages flags (\Seen
+    hierarchy is taken, all messages in them, and all message flags (\Seen
     \Answered \Flagged etc.) are synced too.
 
     Imapsync reduces the amount of data transferred by not transferring a
     given message if it already resides on the destination side. Messages
     that are on the destination side but not on the source side stay as they
-    are (see the --delete2 option to have a strict sync).
+    are. See the --delete2 option to have strict sync and delete them.
 
-    How imapsync knows a message is already on both sides? Same specific
+    How imapsync know a message is already on both sides? Same specific
     headers and the transfer is done only once. By default, the
     identification headers are "Message-Id:" and "Received:" lines but this
-    choice can be changed with the --useheader option.
+    choice can be changed with the --useheader option, most often a
+    duplicate problem is solved by using --useheader "Message-Id"
 
     All flags are preserved, unread messages will stay unread, read ones
-    will stay read, deleted will stay deleted.
+    will stay read, deleted will stay deleted. In the IMAP protocol, a
+    deleted message is not really deleted, it is marked \Deleted and can be
+    undelete. Real destruction comes with the EXPUNGE or UIDEXPUNGE IMAP
+    commands.
 
     You can abort the transfer at any time and restart it later, imapsync
     works well with bad connections and interruptions, by design. On a
-    terminal hit Ctr-c twice within two seconds in order to abort the
-    program. Hit Ctr-c just once makes imapsync reconnect to both imap
-    servers.
+    terminal hit Ctr-c twice within two seconds to abort the program. Hit
+    Ctr-c just once makes imapsync reconnect to both imap servers.
+
+    How do you know the sync is finished and well done? When imapsync ends
+    by itself it mentions it with lines like those:
+
+      Exiting with return value 0 (EX_OK: successful termination) 0/50 nb_errors/max_errors PID 301
+      Removing pidfile /tmp/imapsync.pid
+      Log file is LOG_imapsync/2020_11_17_15_59_22_761_test1_test2.txt ( to change it, use --logfile filepath ; or use --nolog to turn off logging )
+
+    If you don't have those lines it means that either the sync process is
+    still running (or eventually hanging indefinitely) or that it ended
+    without a whisper, a strong kill -9 on Linux for example.
+
+    If you have those final lines then it means the sync process is properly
+    finished. It may have encountered problems though.
+
+    A good synchronization is mentioned by some lines above the last ones,
+    especially those three lines:
+
+      The sync looks good, all 1745 identified messages in host1 are on host2.
+      There is no unidentified message on host1.
+      Detected 0 errors
 
     A classical scenario is synchronizing a mailbox B from another mailbox A
     where you just want to keep a strict copy of A in B. Strict meaning all
     messages in A will be in B but no more.
 
-    For this, option --delete2 has to be used, it deletes messages in host2
-    folder B that are not in host1 folder A. If you also need to destroy
+    For this, option --delete2 can be used, it deletes messages in the host2
+    folder B that are not in the host1 folder A. If you also need to destroy
     host2 folders that are not in host1 then use --delete2folders. See also
     --delete2foldersonly and --delete2foldersbutnot to set up exceptions on
-    folders to destroy. INBOX will never be destroy, it's a mandatory folder
-    in IMAP.
+    folders to destroy. INBOX will never be destroyed, it's a mandatory
+    folder in IMAP so imapsync doesn't even try to remove it.
 
     A different scenario is to delete the messages from the source mailbox
     after a successful transfer, it can be a good feature when migrating
     mailboxes since messages will be only on one side. The source account
     will only have messages that are not on the destination yet, ie,
-    messages that arrived after a sync or that failed to be copied.
+    messages that arrived after a sync or that failed to be transferred.
 
     In that case, use the --delete1 option. Option --delete1 implies also
-    option --expunge1 so all messages marked deleted on host1 will be really
-    deleted. In IMAP protocol deleting a message does not really delete it,
-    it marks it with the flag \Deleted, allowing an undelete. Expunging a
+    the option --expunge1 so all messages marked deleted on host1 will be
+    deleted. In IMAP protocol deleting a message does not delete it, it
+    marks it with the flag \Deleted, allowing an undelete. Expunging a
     folder removes, definitively, all the messages marked as \Deleted in
     this folder.
 
@@ -90,17 +114,18 @@ OPTIONS
      usage: imapsync [options]
 
     The standard options are the six values forming the credentials. Three
-    values on each side are needed in order to log in into the IMAP servers.
-    These six values are a host, a username, and a password, two times.
+    values on each side are needed in order to login into the IMAP servers.
+    These six values are a hostname, a username, and a password, two times.
 
     Conventions used in the following descriptions of the options:
 
      str means string
-     int means integer
+     int means integer number
+     flo means float number
      reg means regular expression
      cmd means command
 
-     --dry               : Makes imapsync doing nothing for real, just print what
+     --dry               : Makes imapsync doing nothing for real; it just print what
                            would be done without --dry.
 
   OPTIONS/credentials
@@ -110,18 +135,18 @@ OPTIONS
                            Optional since default ports are the
                            well known ports imap/143 or imaps/993.
      --user1        str  : User to login on host1.
-     --password1    str  : Password for the user1.
+     --password1    str  : Password of user1.
 
      --host2        str  : "destination" imap server.
      --port2        int  : Port to connect on host2. Optional
      --user2        str  : User to login on host2.
-     --password2    str  : Password for the user2.
+     --password2    str  : Password of user2.
 
      --showpasswords     : Shows passwords on output instead of "MASKED".
                            Useful to restart a complete run by just reading
                            the command line used in the log,
                            or to debug passwords.
-                           It's not a secure practice at all.
+                           It's not a secure practice at all!
 
      --passfile1    str  : Password file for the user1. It must contain the
                            password on the first line. This option avoids showing
@@ -129,7 +154,10 @@ OPTIONS
      --passfile2    str  : Password file for the user2.
 
     You can also pass the passwords in the environment variables
-    IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
+    IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2. If you don't pass the user1
+    password via --password1 nor --passfile1 nor $IMAPSYNC_PASSWORD1 then
+    imapsync will prompt to enter the password on the terminal. Same thing
+    for user2 password.
 
   OPTIONS/encryption
 
@@ -154,11 +182,16 @@ OPTIONS
      --sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
                            See --sslargs1
 
-     --timeout1     int  : Connection timeout in seconds for host1.
+     --timeout1     flo  : Connection timeout in seconds for host1.
                            Default is 120 and 0 means no timeout at all.
-     --timeout2     int  : Connection timeout in seconds for host2.
+     --timeout2     flo  : Connection timeout in seconds for host2.
                            Default is 120 and 0 means no timeout at all.
 
+                           Caveat, under CGI context, you may encounter a timeout
+                           from the webserver, killing imapsync and the imap connexions.
+                           See the document INSTALL.OnlineUI.txt and search
+                           for "Timeout" for how to deal with this issue.
+
   OPTIONS/authentication
 
      --authmech1    str  : Auth mechanism to use with host1:
@@ -178,6 +211,28 @@ OPTIONS
      --domain1      str  : Domain on host1 (NTLM authentication).
      --domain2      str  : Domain on host2 (NTLM authentication).
 
+     --oauthaccesstoken1 str : The access token to authenticate with OAUTH2.
+                           It will be combined with the --user1 value to form the 
+                           string to pass with XOAUTH2 authentication.
+                           The password given by --password1 or --passfile1
+                           is ignored.
+                           Instead of the access token itself, the value can be a
+                           file containing the access token on the first line.
+                           If the value is a file, imapsync reads its first line
+                           and take this line as the access token. The advantage
+                           of the file is that if the access token changes then
+                           imapsync can read it again when it needs to reconnect 
+                           during a run.
+
+
+     --oauthaccesstoken2 str : same thing as --oauthaccesstoken1 
+
+     --oauthdirect1 str  : The direct string to pass with XOAUTH2 authentication.
+                           The password given by --password1 or --passfile1 and 
+                           the user given by --user1 are ignored.
+
+     --oauthdirect2 str  : same thing as oauthdirect1
+
   OPTIONS/folders
 
      --folder       str  : Sync this folder.
@@ -212,6 +267,9 @@ OPTIONS
 
      --f1f2    str1=str2 : Force folder str1 to be synced to str2,
                            --f1f2 overrides --automap and --regextrans2.
+                           Use several --f1f2 options to map several folders.
+                           Option --f1f2 is a one to one only folder mapping,
+                           str1 and str2 have to be full path folder names.
 
      --subfolder2   str  : Syncs the whole host1 folders hierarchy under the
                            host2 folder named str.
@@ -256,7 +314,7 @@ OPTIONS
      --regextrans2  reg  : and this one. etc.
                            When you play with the --regextrans2 option, first
                            add also the safe options --dry --justfolders
-                           Then, when happy, remove --dry for a run, then 
+                           Then, when happy, remove --dry for a run, then
                            remove --justfolders for the next ones.
                            Have in mind that --regextrans2 is applied after
                            the automatic prefix and separator inversion.
@@ -278,9 +336,11 @@ OPTIONS
                            Default is system specific, Unix is /tmp but
                            /tmp is often too small and deleted at reboot.
                            --tmpdir /var/tmp should be better.
+
      --pidfile      str  : The file where imapsync pid is written,
-                           it can be dirname/filename.
-                           Default name is imapsync.pid in tmpdir.
+                           it can be dirname/filename complete path.
+                           The default name is imapsync.pid in tmpdir.
+
      --pidfilelocking    : Abort if pidfile already exists. Useful to avoid
                            concurrent transfers on the same mailbox.
 
@@ -297,7 +357,7 @@ OPTIONS
     where:
 
      2019_12_22_23_57_59_532 is nearly the date of the start
-     YYYY_MM_DD_HH_MM_SS_mmm 
+     YYYY_MM_DD_HH_MM_SS_mmm
      year_month_day_hour_minute_seconde_millisecond
 
     and user1 user2 are the --user1 --user2 values.
@@ -305,18 +365,18 @@ OPTIONS
   OPTIONS/messages
 
      --skipmess     reg  : Skips messages matching the regex.
-                           Example: 'm/[\x80-ff]/' # to avoid 8bits messages.
+                           Example: 'm/[\x80-\xff]/' # to avoid 8bits messages.
                            --skipmess is applied before --regexmess
      --skipmess     reg  : or this one, etc.
 
      --skipcrossduplicates : Avoid copying messages that are already copied
-                             in another folder,  good from Gmail to X when
-                             X is not also Gmail.
+                             in another folder, good from Gmail to XYZ when
+                             XYZ is not also Gmail.
                              Activated with --gmail1 unless --noskipcrossduplicates
 
      --debugcrossduplicates : Prints which messages (UIDs) are skipped with
-                              --skipcrossduplicates (and in what other folders
-                              they are).
+                              --skipcrossduplicates and in what other folders
+                              they are.
 
      --pipemess     cmd  : Apply this cmd command to each message content
                            before the copy.
@@ -332,19 +392,20 @@ OPTIONS
      --disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
 
      --regexmess    reg  : Apply the whole regex to each message before transfer.
-                           Example: 's/\000/ /g' # to replace null by space.
+                           Example: 's/\000/ /g' # to replace null characters
+                           by spaces.
      --regexmess    reg  : and this one, etc.
 
   OPTIONS/labels
 
     Gmail present labels as folders in imap. Imapsync can accelerate the
     sync by syncing X-GM-LABELS, it will avoid to transfer messages when
-    they are already on host2.
+    they are already on host2 in another folder.
 
      --synclabels        : Syncs also Gmail labels when a message is copied to host2.
                            Activated by default with --gmail1 --gmail2 unless
                            --nosynclabels is added.
-                       
+
      --resynclabels      : Resyncs Gmail labels when a message is already on host2.
                            Activated by default with --gmail1 --gmail2 unless
                            --noresynclabels is added.
@@ -367,6 +428,9 @@ OPTIONS
                            May be useful when a user has already started to play
                            with its host2 account.
 
+     --filterbuggyflags  : Filter flags known to be buggy and generators of errors
+                           "BAD Invalid system flag" or "NO APPEND Invalid flag list".
+
   OPTIONS/deletions
 
      --delete1           : Deletes messages on host1 server after a successful
@@ -391,16 +455,18 @@ OPTIONS
                              Useful with --delete1 since what remains on host1
                              is only what failed to be synced.
 
-     --delete2           : Delete messages in host2 that are not in
-                           host1 server. Useful for backup or pre-sync.
+     --delete2           : Delete messages in the host2 account that are not in
+                           the host1 account. Useful for backup or pre-sync.
                            --delete2 implies --uidexpunge2
 
-     --delete2duplicates : Delete messages in host2 that are duplicates.
+     --delete2duplicates : Deletes messages in host2 that are duplicates in host2.
                            Works only without --useuid since duplicates are
                            detected with an header part of each message.
+                           NB: --delete2duplicates is far less violent than --delete2
+                           since it removes only duplicates.
 
-     --delete2folders    : Delete folders in host2 that are not in host1 server.
-                           For safety, first try it like this (it is safe):
+     --delete2folders    : Delete folders in host2 that are not in host1.
+                           For safety, first try it like this, it is safe:
                            --delete2folders --dry --justfolders --nofoldersizes
                            and see what folders will be deleted.
 
@@ -421,16 +487,17 @@ OPTIONS
      If you encounter problems with dates, see also:
      https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
 
-     --syncinternaldates : Sets the internal dates on host2 same as host1.
+     --syncinternaldates : Sets the internal dates on host2 as the same as host1.
                            Turned on by default. Internal date is the date
-                           a message arrived on a host (Unix mtime).
-     --idatefromheader   : Sets the internal dates on host2 same as the
+                           a message arrived on a host (Unix mtime usually).
+     --idatefromheader   : Sets the internal dates on host2 as same as the
                            ones in "Date:" headers.
 
   OPTIONS/message selection
 
      --maxsize      int  : Skip messages larger  (or equal) than  int  bytes
      --minsize      int  : Skip messages smaller (or equal) than  int  bytes
+
      --maxage       int  : Skip messages older than  int days.
                            final stats (skipped) don't count older messages
                            see also --minage
@@ -451,18 +518,30 @@ OPTIONS
      --search2      str  : Same as --search but for selecting host2 messages only.
                            So --search CRIT equals --search1 CRIT --search2 CRIT
 
+     --noabletosearch    : Makes --minage and --maxage options use the internal
+                           dates given by a FETCH imap command instead of the
+                           "Date:" header. Internal date is the arrival date
+                           in the mailbox.
+                           --noabletosearch equals --noabletosearch1 --noabletosearch2
+
+     --noabletosearch1   : Like --noabletosearch but for host1 only.
+     --noabletosearch2   : Like --noabletosearch but for host2 only.
+
      --maxlinelength int : skip messages with a line length longer than  int  bytes.
                            RFC 2822 says it must be no more than 1000 bytes but
                            real life servers and email clients do more.
 
 
      --useheader    str  : Use this header to compare messages on both sides.
-                           Ex: Message-ID or Subject or Date.
+                           Example: "Message-Id" or "Received" or "Date".
      --useheader    str    and this one, etc.
 
-     --usecache          : Use cache to speed up next syncs. Not set by default.
+     --syncduplicates    : Sync also duplicates. Off by default.
+
+     --usecache          : Use cache to speed up next syncs. Off by default.
      --nousecache        : Do not use cache. Caveat: --useuid --nousecache creates
                            duplicates on multiple runs.
+
      --useuid            : Use UIDs instead of headers as a criterion to recognize
                            messages. Option --usecache is then implied unless
                            --nousecache is used.
@@ -479,6 +558,7 @@ OPTIONS
                            --addheader adds a "Message-Id" header,
                            like "Message-Id: 12345@imapsync", where 12345
                            is the imap UID of the message on the host1 folder.
+                           Useful to sync folders "Sent" or "Draft".
 
   OPTIONS/debugging
 
@@ -496,7 +576,7 @@ OPTIONS
      --tests             : Run local non-regression tests. Exit code 0 means all ok.
      --testslive         : Run a live test with test1.lamiral.info imap server.
                            Useful to check the basics. Needs internet connection.
-     --testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
+     --testslive6        : Run a live test with ks6ipv6.lamiral.info imap server.
                            Useful to check the ipv6 connectivity. Needs internet.
 
   OPTIONS/specific
@@ -504,8 +584,8 @@ OPTIONS
       --gmail1           : sets --host1 to Gmail and other options. See FAQ.Gmail.txt
       --gmail2           : sets --host2 to Gmail and other options. See FAQ.Gmail.txt
 
-      --office1          : sets --host1 to Office365 and other options. See FAQ.Exchange.txt
-      --office2          : sets --host2 to Office365 and other options. See FAQ.Exchange.txt
+      --office1          : sets --host1 to Office365 and other options. See FAQ.Office365.txt
+      --office2          : sets --host2 to Office365 and other options. See FAQ.Office365.txt
 
       --exchange1        : sets options for Exchange. See FAQ.Exchange.txt
       --exchange2        : sets options for Exchange. See FAQ.Exchange.txt
@@ -515,13 +595,14 @@ OPTIONS
 
   OPTIONS/behavior
 
-     --maxmessagespersecond int : limits the number of messages transferred per second.
+     --maxmessagespersecond flo : limits the average number of messages 
+                                  transferred per second.
 
      --maxbytespersecond int : limits the average transfer rate per second.
      --maxbytesafter     int : starts --maxbytespersecond limitation only after
                                --maxbytesafter amount of data transferred.
 
-     --maxsleep      int : do not sleep more than int seconds.
+     --maxsleep      flo : do not sleep more than int seconds.
                            On by default, 2 seconds max, like --maxsleep 2
 
      --abort             : terminates a previous call still running.
@@ -530,13 +611,13 @@ OPTIONS
      --exitwhenover int  : Stop syncing and exits when int total bytes
                            transferred is reached.
 
-     --version           : Print only software version.
+     --version           : Print only the software version.
      --noreleasecheck    : Do not check for any new imapsync release.
      --releasecheck      : Check for new imapsync release.
                            it's an http request to
                            http://imapsync.lamiral.info/prj/imapsync/VERSION
 
-     --noid              : Do not send/receive ID command to imap servers.
+     --noid              : Do not send/receive IMAP "ID" command to imap servers.
 
      --justconnect       : Just connect to both servers and print useful
                            information. Need only --host1 and --host2 options.
@@ -561,7 +642,7 @@ OPTIONS
 
 SECURITY
 
-    You can use --passfile1 instead of --password1 to give the password
+    You can use --passfile1 instead of --password1 to mention the password
     since it is safer. With --password1 option, on Linux, any user on your
     host can see the password by using the 'ps auxwwww' command. Using a
     variable (like IMAPSYNC_PASSWORD1) is also dangerous because of the 'ps
@@ -576,7 +657,7 @@ SECURITY
     on the imap servers. If the imaps port is closed then it open a normal
     (clear) connection on port 143 but it looks for TLS support in the
     CAPABILITY list of the servers. If TLS is supported then imapsync goes
-    to encryption.
+    to encryption with STARTTLS.
 
     If the automatic ssl and the tls detections fail then imapsync will not
     protect against sniffing activities on the network, especially for
@@ -592,7 +673,10 @@ EXIT STATUS
     Imapsync will exit with a 0 status (return code) if everything went
     good. Otherwise, it exits with a non-zero status. That's classical Unix
     behavior. Here is the list of the exit code values (an integer between 0
-    and 255). The names reflect their meaning:
+    and 255). In Bourne Shells, this exit code value can be retrieved within
+    the variable value "$?" if you read it just after the imapsync call.
+
+    The names reflect their meaning:
 
          EX_OK          => 0  ; #/* successful termination */
          EX_USAGE       => 64 ; #/* command line usage error */
@@ -601,6 +685,7 @@ EXIT STATUS
          EX_SOFTWARE    => 70 ; #/* internal software error */
          EXIT_CATCH_ALL              =>   1 ; # Any other error
          EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
+         EXIT_BY_FILE                =>   7 ;
          EXIT_PID_FILE_ERROR         =>   8 ;
          EXIT_CONNECTION_FAILURE     =>  10 ;
          EXIT_TLS_FAILURE            =>  12 ;
@@ -608,7 +693,18 @@ EXIT STATUS
          EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
          EXIT_WITH_ERRORS            => 111 ;
          EXIT_WITH_ERRORS_MAX        => 112 ;
+         EXIT_OVERQUOTA              => 113 ;
+         EXIT_ERR_APPEND             => 114 ;
+         EXIT_ERR_FETCH              => 115 ;
+         EXIT_ERR_CREATE             => 116 ;
+         EXIT_ERR_SELECT             => 117 ;
+         EXIT_TRANSFER_EXCEEDED      => 118 ;
+         EXIT_ERR_APPEND_VIRUS       => 119 ;
          EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
+         EXIT_CONNECTION_FAILURE_HOST1     =>  101 ;
+         EXIT_CONNECTION_FAILURE_HOST2     =>  102 ;
+         EXIT_AUTHENTICATION_FAILURE_USER1 =>  161 ;
+         EXIT_AUTHENTICATION_FAILURE_USER2 =>  162 ;
 
 LICENSE AND COPYRIGHT
 
@@ -632,10 +728,10 @@ AUTHOR
     Good feedback is always welcome. Bad feedback is very often welcome.
 
     Gilles LAMIRAL earns his living by writing, installing, configuring and
-    teaching free, open and often gratis software. Imapsync used to be
-    "always gratis" but now it is only "often gratis" because imapsync is
-    sold by its author, a good way to maintain and support free open public
-    software over decades.
+    sometimes teaching free, open and often gratis software. Imapsync used
+    to be "always gratis" but now it is only "often gratis" because imapsync
+    is sold by its author, your servitor, a good way to maintain and support
+    free open public software tools over decades.
 
 BUGS AND LIMITATIONS
 
@@ -686,8 +782,8 @@ INSTALL
      and all Server releases 2000, 2003, 2008 and R2, 2012 and R2, 2016)
      as a standalone binary software called imapsync.exe,
      usually launched from a batch file in order to avoid always typing
-     the options. There is also a 64bit binary called imapsync_64bit.exe
- 
+     the options. There is also a 32bit binary called imapsync_32bit.exe
+
      Imapsync works under OS X as a standalone binary
      software called imapsync_bin_Darwin
 
@@ -721,7 +817,7 @@ SIMILAR SOFTWARE
       See also https://imapsync.lamiral.info/S/external.shtml
       for a better up to date list.
 
-    Last updated and verified on Sun Dec 8, 2019.
+    List verified on Friday July 1, 2021.
 
      imapsync: https://github.com/imapsync/imapsync (this is an imapsync copy, sometimes delayed, with --noreleasecheck by default since release 1.592, 2014/05/22)
      imap_tools: https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/. The imap_tools code is now at https://github.com/andrewnimmo/rick-sanders-imap-tools
@@ -729,6 +825,7 @@ SIMILAR SOFTWARE
      Doveadm-Sync: https://wiki2.dovecot.org/Tools/Doveadm/Sync ( Dovecot sync tool )
      davmail: http://davmail.sourceforge.net/
      offlineimap: http://offlineimap.org/
+     fdm: https://github.com/nicm/fdm
      mbsync: http://isync.sourceforge.net/
      mailsync: http://mailsync.sourceforge.net/
      mailutil: https://www.washington.edu/imap/ part of the UW IMAP toolkit. (well, seems abandoned now)
@@ -750,6 +847,8 @@ SIMILAR SOFTWARE
      imapbackup: https://github.com/rcarmo/imapbackup (A Python script for incremental backups of IMAP mailboxes)
      BitRecover email-backup 99 USD, 299 USD https://www.bitrecover.com/email-backup/.
      ImportExportTools: https://addons.thunderbird.net/en-us/thunderbird/addon/importexporttools/ ImportExportTools for Mozilla Thunderbird by Paolo Kaosmos. ImportExportTools does not do IMAP.
+     rximapmail: https://sourceforge.net/projects/rximapmail/
+     CodeTwo: https://www.codetwo.com/ but CodeTwo does imap source to Office365 only.
 
 HISTORY
 
@@ -767,6 +866,6 @@ HISTORY
     tarball source (more precisely in the examples/ directory of the
     Mail-IMAPClient tarball).
 
-    So many happened since then that I wonder if it remains any lines of the
-    original copy_folder.pl in imapsync source code.
+    So many changes happened since then that I wonder if it remains any
+    lines of the original copy_folder.pl in imapsync source code.
 
diff --git a/README.md b/README.md
deleted file mode 100644
index 8a6fe04..0000000
--- a/README.md
+++ /dev/null
@@ -1,789 +0,0 @@
-# Imapsync sponsoring
-
-You are a great imapsync user or perhaps a future one! I thank you for that, very much.
-The paradox to get imapsync stay free and gratis for anyone is that the imapsync author needs to be paid for maintening and improving it.
-
-In case you're using imapsync in a professional context,
-then consider buying imapsync and support at https://imapsync.lamiral.info/#buy_all,
-you will get also a regular invoice for your company.
-
-If it's too much, then consider a smaller donation:
-
-[![paypal](https://www.paypalobjects.com/en_US/i/btn/btn_donateCC_LG.gif)](https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=TUENPW59U9LL2) or on regular monthly donation via the new github sponsoring campaign https://github.com/sponsors/gilleslamiral
-
-**Thanks in any case, even no money, I'm ok with that!**
-
-# README
-````
-NAME
-
-    imapsync - Email IMAP tool for syncing, copying, migrating and archiving
-    email mailboxes between two imap servers, one way, and without
-    duplicates.
-
-VERSION
-
-    This documentation refers to Imapsync $Revision: 1.977 $
-
-USAGE
-
-     To synchronize the source imap account
-       "test1" on server "test1.lamiral.info" with password "secret1"
-     to the destination imap account
-       "test2" on server "test2.lamiral.info" with password "secret2"
-     do:
-
-      imapsync \
-       --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-       --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-DESCRIPTION
-
-    We sometimes need to transfer mailboxes from one imap server to one
-    another.
-
-    Imapsync command is a tool allowing incremental and recursive imap
-    transfers from one mailbox to another. If you don't understand the
-    previous sentence, it's normal, it's pedantic computer oriented jargon.
-
-    All folders are transferred, recursively, meaning the whole folder
-    hierarchy is taken, all messages in them, and all messages flags (\Seen
-    \Answered \Flagged etc.) are synced too.
-
-    Imapsync reduces the amount of data transferred by not transferring a
-    given message if it already resides on the destination side. Messages
-    that are on the destination side but not on the source side stay as they
-    are (see the --delete2 option to have a strict sync).
-
-    How imapsync knows a message is already on both sides? Same specific
-    headers and the transfer is done only once. By default, the
-    identification headers are "Message-Id:" and "Received:" lines but this
-    choice can be changed with the --useheader option.
-
-    All flags are preserved, unread messages will stay unread, read ones
-    will stay read, deleted will stay deleted.
-
-    You can abort the transfer at any time and restart it later, imapsync
-    works well with bad connections and interruptions, by design. On a
-    terminal hit Ctr-c twice within two seconds in order to abort the
-    program. Hit Ctr-c just once makes imapsync reconnect to both imap
-    servers.
-
-    A classical scenario is synchronizing a mailbox B from another mailbox A
-    where you just want to keep a strict copy of A in B. Strict meaning all
-    messages in A will be in B but no more.
-
-    For this, option --delete2 has to be used, it deletes messages in host2
-    folder B that are not in host1 folder A. If you also need to destroy
-    host2 folders that are not in host1 then use --delete2folders. See also
-    --delete2foldersonly and --delete2foldersbutnot to set up exceptions on
-    folders to destroy. INBOX will never be destroy, it's a mandatory folder
-    in IMAP.
-
-    A different scenario is to delete the messages from the source mailbox
-    after a successful transfer, it can be a good feature when migrating
-    mailboxes since messages will be only on one side. The source account
-    will only have messages that are not on the destination yet, ie,
-    messages that arrived after a sync or that failed to be copied.
-
-    In that case, use the --delete1 option. Option --delete1 implies also
-    option --expunge1 so all messages marked deleted on host1 will be really
-    deleted. In IMAP protocol deleting a message does not really delete it,
-    it marks it with the flag \Deleted, allowing an undelete. Expunging a
-    folder removes, definitively, all the messages marked as \Deleted in
-    this folder.
-
-    You can also decide to remove empty folders once all of their messages
-    have been transferred. Add --delete1emptyfolders to obtain this
-    behavior.
-
-    Imapsync is not adequate for maintaining two active imap accounts in
-    synchronization when the user plays independently on both sides. Use
-    offlineimap (written by John Goerzen) or mbsync (written by Michael R.
-    Elkins) for a 2 ways synchronization.
-
-OPTIONS
-
-     usage: imapsync [options]
-
-    The standard options are the six values forming the credentials. Three
-    values on each side are needed in order to log in into the IMAP servers.
-    These six values are a host, a username, and a password, two times.
-
-    Conventions used in the following descriptions of the options:
-
-     str means string
-     int means integer
-     reg means regular expression
-     cmd means command
-
-     --dry               : Makes imapsync doing nothing for real, just print what
-                           would be done without --dry.
-
-  OPTIONS/credentials
-
-     --host1        str  : Source or "from" imap server.
-     --port1        int  : Port to connect on host1.
-                           Optional since default ports are the
-                           well known ports imap/143 or imaps/993.
-     --user1        str  : User to login on host1.
-     --password1    str  : Password for the user1.
-
-     --host2        str  : "destination" imap server.
-     --port2        int  : Port to connect on host2. Optional
-     --user2        str  : User to login on host2.
-     --password2    str  : Password for the user2.
-
-     --showpasswords     : Shows passwords on output instead of "MASKED".
-                           Useful to restart a complete run by just reading
-                           the command line used in the log,
-                           or to debug passwords.
-                           It's not a secure practice at all.
-
-     --passfile1    str  : Password file for the user1. It must contain the
-                           password on the first line. This option avoids showing
-                           the password on the command line like --password1 does.
-     --passfile2    str  : Password file for the user2.
-
-    You can also pass the passwords in the environment variables
-    IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
-
-  OPTIONS/encryption
-
-     --nossl1            : Do not use a SSL connection on host1.
-     --ssl1              : Use a SSL connection on host1. On by default if possible.
-
-     --nossl2            : Do not use a SSL connection on host2.
-     --ssl2              : Use a SSL connection on host2. On by default if possible.
-
-     --notls1            : Do not use a TLS connection on host1.
-     --tls1              : Use a TLS connection on host1. On by default if possible.
-
-     --notls2            : Do not use a TLS connection on host2.
-     --tls2              : Use a TLS connection on host2. On by default if possible.
-
-     --debugssl     int  : SSL debug mode from 0 to 4.
-
-     --sslargs1     str  : Pass any ssl parameter for host1 ssl or tls connection. Example:
-                           --sslargs1 SSL_verify_mode=1 --sslargs1 SSL_version=SSLv3
-                           See all possibilities in the new() method of IO::Socket::SSL
-                           http://search.cpan.org/perldoc?IO::Socket::SSL#Description_Of_Methods
-     --sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
-                           See --sslargs1
-
-     --timeout1     int  : Connection timeout in seconds for host1.
-                           Default is 120 and 0 means no timeout at all.
-     --timeout2     int  : Connection timeout in seconds for host2.
-                           Default is 120 and 0 means no timeout at all.
-
-  OPTIONS/authentication
-
-     --authmech1    str  : Auth mechanism to use with host1:
-                           PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
-     --authmech2    str  : Auth mechanism to use with host2. See --authmech1
-
-     --authuser1    str  : User to auth with on host1 (admin user).
-                           Avoid using --authmech1 SOMETHING with --authuser1.
-     --authuser2    str  : User to auth with on host2 (admin user).
-     --proxyauth1        : Use proxyauth on host1. Requires --authuser1.
-                           Required by Sun/iPlanet/Netscape IMAP servers to
-                           be able to use an administrative user.
-     --proxyauth2        : Use proxyauth on host2. Requires --authuser2.
-
-     --authmd51          : Use MD5 authentication for host1.
-     --authmd52          : Use MD5 authentication for host2.
-     --domain1      str  : Domain on host1 (NTLM authentication).
-     --domain2      str  : Domain on host2 (NTLM authentication).
-
-  OPTIONS/folders
-
-     --folder       str  : Sync this folder.
-     --folder       str  : and this one, etc.
-     --folderrec    str  : Sync this folder recursively.
-     --folderrec    str  : and this one, etc.
-
-     --folderfirst  str  : Sync this folder first. Ex. --folderfirst "INBOX"
-     --folderfirst  str  : then this one, etc.
-     --folderlast   str  : Sync this folder last. --folderlast "[Gmail]/All Mail"
-     --folderlast   str  : then this one, etc.
-
-     --nomixfolders      : Do not merge folders when host1 is case-sensitive
-                           while host2 is not (like Exchange). Only the first
-                           similar folder is synced (example: with folders
-                           "Sent", "SENT" and "sent"
-                           on host1 only "Sent" will be synced to host2).
-
-     --skipemptyfolders  : Empty host1 folders are not created on host2.
-
-     --include      reg  : Sync folders matching this regular expression
-     --include      reg  : or this one, etc.
-                           If both --include --exclude options are used, then
-                           include is done before.
-     --exclude      reg  : Skips folders matching this regular expression
-                           Several folders to avoid:
-                            --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
-     --exclude      reg  : or this one, etc.
-
-     --automap           : guesses folders mapping, for folders well known as
-                           "Sent", "Junk", "Drafts", "All", "Archive", "Flagged".
-
-     --f1f2    str1=str2 : Force folder str1 to be synced to str2,
-                           --f1f2 overrides --automap and --regextrans2.
-
-     --subfolder2   str  : Syncs the whole host1 folders hierarchy under the
-                           host2 folder named str.
-                           It does it internally by adding three
-                           --regextrans2 options before all others.
-                           Add --debug to see what's really going on.
-
-     --subfolder1   str  : Syncs the host1 folders hierarchy which is under folder
-                           str to the root hierarchy of host2.
-                           It's the couterpart of a sync done by --subfolder2
-                           when doing it in the reverse order.
-                           Backup/Restore scenario:
-                           Use --subfolder2 str for a backup to the folder str
-                           on host2. Then use --subfolder1 str for restoring
-                           from the folder str, after inverting
-                           host1/host2 user1/user2 values.
-
-
-     --subscribed        : Transfers subscribed folders.
-     --subscribe         : Subscribe to the folders transferred on the
-                           host2 that are subscribed on host1. On by default.
-     --subscribeall      : Subscribe to the folders transferred on the
-                           host2 even if they are not subscribed on host1.
-
-     --prefix1      str  : Remove prefix str to all destination folders,
-                           usually "INBOX." or "INBOX/" or an empty string "".
-                           imapsync guesses the prefix if host1 imap server
-                           does not have NAMESPACE capability. So this option
-                           should not be used most of the time.
-     --prefix2      str  : Add prefix to all host2 folders. See --prefix1
-
-     --sep1         str  : Host1 separator. This option should not be used
-                           most of the time.
-                           Imapsync gets the separator from the server itself,
-                           by using NAMESPACE, or it tries to guess it
-                           from the folders listing (it counts
-                           characters / . \\ \ in folder names and choose the
-                           more frequent, or finally / if nothing is found.
-     --sep2         str  : Host2 separator. See --sep1
-
-     --regextrans2  reg  : Apply the whole regex to each destination folders.
-     --regextrans2  reg  : and this one. etc.
-                           When you play with the --regextrans2 option, first
-                           add also the safe options --dry --justfolders
-                           Then, when happy, remove --dry for a run, then 
-                           remove --justfolders for the next ones.
-                           Have in mind that --regextrans2 is applied after
-                           the automatic prefix and separator inversion.
-                           For examples see:
-                           https://imapsync.lamiral.info/FAQ.d/FAQ.Folders_Mapping.txt
-
-  OPTIONS/folders sizes
-
-     --nofoldersizes     : Do not calculate the size of each folder at the
-                           beginning of the sync. Default is to calculate them.
-     --nofoldersizesatend: Do not calculate the size of each folder at the
-                           end of the sync. Default is to calculate them.
-     --justfoldersizes   : Exit after having printed the initial folder sizes.
-
-  OPTIONS/tmp
-
-     --tmpdir       str  : Where to store temporary files and subdirectories.
-                           Will be created if it doesn't exist.
-                           Default is system specific, Unix is /tmp but
-                           /tmp is often too small and deleted at reboot.
-                           --tmpdir /var/tmp should be better.
-     --pidfile      str  : The file where imapsync pid is written,
-                           it can be dirname/filename.
-                           Default name is imapsync.pid in tmpdir.
-     --pidfilelocking    : Abort if pidfile already exists. Useful to avoid
-                           concurrent transfers on the same mailbox.
-
-  OPTIONS/log
-
-     --nolog             : Turn off logging on file
-     --logfile      str  : Change the default log filename (can be dirname/filename).
-     --logdir       str  : Change the default log directory. Default is LOG_imapsync/
-
-    The default logfile name is for example
-
-     LOG_imapsync/2019_12_22_23_57_59_532_user1_user2.txt
-
-    where:
-
-     2019_12_22_23_57_59_532 is nearly the date of the start
-     YYYY_MM_DD_HH_MM_SS_mmm 
-     year_month_day_hour_minute_seconde_millisecond
-
-    and user1 user2 are the --user1 --user2 values.
-
-  OPTIONS/messages
-
-     --skipmess     reg  : Skips messages matching the regex.
-                           Example: 'm/[\x80-ff]/' # to avoid 8bits messages.
-                           --skipmess is applied before --regexmess
-     --skipmess     reg  : or this one, etc.
-
-     --skipcrossduplicates : Avoid copying messages that are already copied
-                             in another folder,  good from Gmail to X when
-                             X is not also Gmail.
-                             Activated with --gmail1 unless --noskipcrossduplicates
-
-     --debugcrossduplicates : Prints which messages (UIDs) are skipped with
-                              --skipcrossduplicates (and in what other folders
-                              they are).
-
-     --pipemess     cmd  : Apply this cmd command to each message content
-                           before the copy.
-     --pipemess     cmd  : and this one, etc.
-                           With several --pipemess, the output of each cmd
-                           command (STDOUT) is given to the input (STDIN)
-                           of the next command.
-                           For example,
-                           --pipemess cmd1 --pipemess cmd2 --pipemess cmd3
-                           is like a Unix pipe:
-                           "cat message | cmd1 | cmd2 | cmd3"
-
-     --disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
-
-     --regexmess    reg  : Apply the whole regex to each message before transfer.
-                           Example: 's/\000/ /g' # to replace null by space.
-     --regexmess    reg  : and this one, etc.
-
-  OPTIONS/labels
-
-    Gmail present labels as folders in imap. Imapsync can accelerate the
-    sync by syncing X-GM-LABELS, it will avoid to transfer messages when
-    they are already on host2.
-
-     --synclabels        : Syncs also Gmail labels when a message is copied to host2.
-                           Activated by default with --gmail1 --gmail2 unless
-                           --nosynclabels is added.
-                       
-     --resynclabels      : Resyncs Gmail labels when a message is already on host2.
-                           Activated by default with --gmail1 --gmail2 unless
-                           --noresynclabels is added.
-
-    For Gmail syncs, see also:
-    https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
-
-  OPTIONS/flags
-
-     If you encounter flag problems see also:
-     https://imapsync.lamiral.info/FAQ.d/FAQ.Flags.txt
-
-     --regexflag    reg  : Apply the whole regex to each flags list.
-                           Example: 's/"Junk"//g' # to remove "Junk" flag.
-     --regexflag    reg  : then this one, etc.
-
-     --resyncflags       : Resync flags for already transferred messages.
-                           On by default.
-     --noresyncflags     : Do not resync flags for already transferred messages.
-                           May be useful when a user has already started to play
-                           with its host2 account.
-
-  OPTIONS/deletions
-
-     --delete1           : Deletes messages on host1 server after a successful
-                           transfer. Option --delete1 has the following behavior:
-                           it marks messages as deleted with the IMAP flag
-                           \Deleted, then messages are really deleted with an
-                           EXPUNGE IMAP command. If expunging after each message
-                           slows down too much the sync then use
-                           --noexpungeaftereach to speed up, expunging will then be
-                           done only twice per folder, one at the beginning and
-                           one at the end of a folder sync.
-
-     --expunge1          : Expunge messages on host1 just before syncing a folder.
-                           Expunge is done per folder.
-                           Expunge aims is to really delete messages marked deleted.
-                           An expunge is also done after each message copied
-                           if option --delete1 is set (unless --noexpungeaftereach).
-
-     --noexpunge1        : Do not expunge messages on host1.
-
-     --delete1emptyfolders : Deletes empty folders on host1, INBOX excepted.
-                             Useful with --delete1 since what remains on host1
-                             is only what failed to be synced.
-
-     --delete2           : Delete messages in host2 that are not in
-                           host1 server. Useful for backup or pre-sync.
-                           --delete2 implies --uidexpunge2
-
-     --delete2duplicates : Delete messages in host2 that are duplicates.
-                           Works only without --useuid since duplicates are
-                           detected with an header part of each message.
-
-     --delete2folders    : Delete folders in host2 that are not in host1 server.
-                           For safety, first try it like this (it is safe):
-                           --delete2folders --dry --justfolders --nofoldersizes
-                           and see what folders will be deleted.
-
-     --delete2foldersonly   reg : Delete only folders matching the regex reg.
-                                  Example: --delete2foldersonly "/^Junk$|^INBOX.Junk$/"
-                                  This option activates --delete2folders
-
-     --delete2foldersbutnot reg : Do not delete folders matching the regex rex.
-                                  Example: --delete2foldersbutnot "/Tasks$|Contacts$|Foo$/"
-                                  This option activates --delete2folders
-
-     --noexpunge2        : Do not expunge messages on host2.
-     --nouidexpunge2     : Do not uidexpunge messages on the host2 account
-                           that are not on the host1 account.
-
-  OPTIONS/dates
-
-     If you encounter problems with dates, see also:
-     https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
-
-     --syncinternaldates : Sets the internal dates on host2 same as host1.
-                           Turned on by default. Internal date is the date
-                           a message arrived on a host (Unix mtime).
-     --idatefromheader   : Sets the internal dates on host2 same as the
-                           ones in "Date:" headers.
-
-  OPTIONS/message selection
-
-     --maxsize      int  : Skip messages larger  (or equal) than  int  bytes
-     --minsize      int  : Skip messages smaller (or equal) than  int  bytes
-     --maxage       int  : Skip messages older than  int days.
-                           final stats (skipped) don't count older messages
-                           see also --minage
-     --minage       int  : Skip messages newer than  int  days.
-                           final stats (skipped) don't count newer messages
-                           You can do (+ zone are the messages selected):
-                           past|----maxage+++++++++++++++>now
-                           past|+++++++++++++++minage---->now
-                           past|----maxage+++++minage---->now (intersection)
-                           past|++++minage-----maxage++++>now (union)
-
-     --search       str  : Selects only messages returned by this IMAP SEARCH
-                           command. Applied on both sides.
-                           For a complete set of what can be search see
-                           https://imapsync.lamiral.info/FAQ.d/FAQ.Messages_Selection.txt
-
-     --search1      str  : Same as --search but for selecting host1 messages only.
-     --search2      str  : Same as --search but for selecting host2 messages only.
-                           So --search CRIT equals --search1 CRIT --search2 CRIT
-
-     --maxlinelength int : skip messages with a line length longer than  int  bytes.
-                           RFC 2822 says it must be no more than 1000 bytes but
-                           real life servers and email clients do more.
-
-
-     --useheader    str  : Use this header to compare messages on both sides.
-                           Ex: Message-ID or Subject or Date.
-     --useheader    str    and this one, etc.
-
-     --usecache          : Use cache to speed up next syncs. Not set by default.
-     --nousecache        : Do not use cache. Caveat: --useuid --nousecache creates
-                           duplicates on multiple runs.
-     --useuid            : Use UIDs instead of headers as a criterion to recognize
-                           messages. Option --usecache is then implied unless
-                           --nousecache is used.
-
-  OPTIONS/miscellaneous
-
-     --syncacls          : Synchronizes acls (Access Control Lists).
-                           Acls in IMAP are not standardized, be careful
-                           since one acl code on one side may signify something
-                           else on the other one.
-     --nosyncacls        : Does not synchronize acls. This is the default.
-
-     --addheader         : When a message has no headers to be identified,
-                           --addheader adds a "Message-Id" header,
-                           like "Message-Id: 12345@imapsync", where 12345
-                           is the imap UID of the message on the host1 folder.
-
-  OPTIONS/debugging
-
-     --debug             : Debug mode.
-     --debugfolders      : Debug mode for the folders part only.
-     --debugcontent      : Debug content of the messages transferred. Huge output.
-     --debugflags        : Debug mode for flags.
-     --debugimap1        : IMAP debug mode for host1. Very verbose.
-     --debugimap2        : IMAP debug mode for host2. Very verbose.
-     --debugimap         : IMAP debug mode for host1 and host2. Twice very verbose.
-     --debugmemory       : Debug mode showing memory consumption after each copy.
-
-     --errorsmax     int : Exit when int number of errors is reached. Default is 50.
-
-     --tests             : Run local non-regression tests. Exit code 0 means all ok.
-     --testslive         : Run a live test with test1.lamiral.info imap server.
-                           Useful to check the basics. Needs internet connection.
-     --testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
-                           Useful to check the ipv6 connectivity. Needs internet.
-
-  OPTIONS/specific
-
-      --gmail1           : sets --host1 to Gmail and other options. See FAQ.Gmail.txt
-      --gmail2           : sets --host2 to Gmail and other options. See FAQ.Gmail.txt
-
-      --office1          : sets --host1 to Office365 and other options. See FAQ.Exchange.txt
-      --office2          : sets --host2 to Office365 and other options. See FAQ.Exchange.txt
-
-      --exchange1        : sets options for Exchange. See FAQ.Exchange.txt
-      --exchange2        : sets options for Exchange. See FAQ.Exchange.txt
-
-      --domino1          : sets options for Domino. See FAQ.Domino.txt
-      --domino2          : sets options for Domino. See FAQ.Domino.txt
-
-  OPTIONS/behavior
-
-     --maxmessagespersecond int : limits the number of messages transferred per second.
-
-     --maxbytespersecond int : limits the average transfer rate per second.
-     --maxbytesafter     int : starts --maxbytespersecond limitation only after
-                               --maxbytesafter amount of data transferred.
-
-     --maxsleep      int : do not sleep more than int seconds.
-                           On by default, 2 seconds max, like --maxsleep 2
-
-     --abort             : terminates a previous call still running.
-                           It uses the pidfile to know what process to abort.
-
-     --exitwhenover int  : Stop syncing and exits when int total bytes
-                           transferred is reached.
-
-     --version           : Print only software version.
-     --noreleasecheck    : Do not check for any new imapsync release.
-     --releasecheck      : Check for new imapsync release.
-                           it's an http request to
-                           http://imapsync.lamiral.info/prj/imapsync/VERSION
-
-     --noid              : Do not send/receive ID command to imap servers.
-
-     --justconnect       : Just connect to both servers and print useful
-                           information. Need only --host1 and --host2 options.
-                           Obsolete since "imapsync --host1 imaphost" alone
-                           implies --justconnect
-
-     --justlogin         : Just login to both host1 and host2 with users
-                           credentials, then exit.
-
-     --justfolders       : Do only things about folders (ignore messages).
-
-     --help              : print this help.
-
-     Example: to synchronize imap account "test1" on "test1.lamiral.info"
-                         to  imap account "test2" on "test2.lamiral.info"
-                         with test1 password "secret1"
-                         and  test2 password "secret2"
-
-     imapsync \
-        --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-        --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-SECURITY
-
-    You can use --passfile1 instead of --password1 to give the password
-    since it is safer. With --password1 option, on Linux, any user on your
-    host can see the password by using the 'ps auxwwww' command. Using a
-    variable (like IMAPSYNC_PASSWORD1) is also dangerous because of the 'ps
-    auxwwwwe' command. So, saving the password in a well protected file (600
-    or rw-------) is the best solution.
-
-    Imapsync activates ssl or tls encryption by default, if possible.
-
-    What detailed behavior is under this "if possible"?
-
-    Imapsync activates ssl if the well known port imaps port (993) is open
-    on the imap servers. If the imaps port is closed then it open a normal
-    (clear) connection on port 143 but it looks for TLS support in the
-    CAPABILITY list of the servers. If TLS is supported then imapsync goes
-    to encryption.
-
-    If the automatic ssl and the tls detections fail then imapsync will not
-    protect against sniffing activities on the network, especially for
-    passwords.
-
-    If you want to force ssl or tls just use --ssl1 --ssl2 or --tls1 --tls2
-
-    See also the document FAQ.Security.txt in the FAQ.d/ directory or at
-    https://imapsync.lamiral.info/FAQ.d/FAQ.Security.txt
-
-EXIT STATUS
-
-    Imapsync will exit with a 0 status (return code) if everything went
-    good. Otherwise, it exits with a non-zero status. That's classical Unix
-    behavior. Here is the list of the exit code values (an integer between 0
-    and 255). The names reflect their meaning:
-
-         EX_OK          => 0  ; #/* successful termination */
-         EX_USAGE       => 64 ; #/* command line usage error */
-         EX_NOINPUT     => 66 ; #/* cannot open input */
-         EX_UNAVAILABLE => 69 ; #/* service unavailable */
-         EX_SOFTWARE    => 70 ; #/* internal software error */
-         EXIT_CATCH_ALL              =>   1 ; # Any other error
-         EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
-         EXIT_PID_FILE_ERROR         =>   8 ;
-         EXIT_CONNECTION_FAILURE     =>  10 ;
-         EXIT_TLS_FAILURE            =>  12 ;
-         EXIT_AUTHENTICATION_FAILURE =>  16 ;
-         EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
-         EXIT_WITH_ERRORS            => 111 ;
-         EXIT_WITH_ERRORS_MAX        => 112 ;
-         EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-
-LICENSE AND COPYRIGHT
-
-    Imapsync is free, open, public but not always gratis software cover by
-    the NOLIMIT Public License, now called NLPL. See the LICENSE file
-    included in the distribution or just read this simple sentence as it IS
-    the licence text:
-
-     "No limits to do anything with this work and this license."
-
-    In case it is not long enough, I repeat:
-
-     "No limits to do anything with this work and this license."
-
-    Look at https://imapsync.lamiral.info/LICENSE
-
-AUTHOR
-
-    Gilles LAMIRAL <gilles@lamiral.info>
-
-    Good feedback is always welcome. Bad feedback is very often welcome.
-
-    Gilles LAMIRAL earns his living by writing, installing, configuring and
-    teaching free, open and often gratis software. Imapsync used to be
-    "always gratis" but now it is only "often gratis" because imapsync is
-    sold by its author, a good way to maintain and support free open public
-    software over decades.
-
-BUGS AND LIMITATIONS
-
-    See https://imapsync.lamiral.info/FAQ.d/FAQ.Reporting_Bugs.txt
-
-IMAP SERVERS supported
-
-    See https://imapsync.lamiral.info/S/imapservers.shtml
-
-HUGE MIGRATION
-
-    If you have many mailboxes to migrate think about a little shell
-    program. Write a file called file.txt (for example) containing users and
-    passwords. The separator used in this example is ';'
-
-    The file.txt file contains:
-
-    user001_1;password001_1;user001_2;password001_2
-    user002_1;password002_1;user002_2;password002_2
-    user003_1;password003_1;user003_2;password003_2
-    user004_1;password004_1;user004_2;password004_2
-    user005_1;password005_1;user005_2;password005_2 ...
-
-    On Unix the shell program can be:
-
-     { while IFS=';' read  u1 p1 u2 p2; do
-            imapsync --host1 imap.side1.org --user1 "$u1" --password1 "$p1" \
-                     --host2 imap.side2.org --user2 "$u2" --password2 "$p2" ...
-     done ; } < file.txt
-
-    On Windows the batch program can be:
-
-      FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-      --host1 imap.side1.org --user1 %%G --password1 %%H ^
-      --host2 imap.side2.org --user2 %%I --password2 %%J ...
-
-    The ... have to be replaced by nothing or any imapsync option. Welcome
-    in shell or batch programming !
-
-    You will find already written scripts at
-    https://imapsync.lamiral.info/examples/
-
-INSTALL
-
-     Imapsync works under any Unix with Perl.
-
-     Imapsync works under most Windows (2000, XP, Vista, Seven, Eight, Ten
-     and all Server releases 2000, 2003, 2008 and R2, 2012 and R2, 2016)
-     as a standalone binary software called imapsync.exe,
-     usually launched from a batch file in order to avoid always typing
-     the options. There is also a 64bit binary called imapsync_64bit.exe
- 
-     Imapsync works under OS X as a standalone binary
-     software called imapsync_bin_Darwin
-
-     Purchase latest imapsync at
-     https://imapsync.lamiral.info/
-
-     You'll receive a link to a compressed tarball called imapsync-x.xx.tgz
-     where x.xx is the version number. Untar the tarball where
-     you want (on Unix):
-
-      tar xzvf  imapsync-x.xx.tgz
-
-     Go into the directory imapsync-x.xx and read the INSTALL file.
-     As mentioned at https://imapsync.lamiral.info/#install
-     the INSTALL file can also be found at
-     https://imapsync.lamiral.info/INSTALL.d/INSTALL.ANY.txt
-     It is now split in several files for each system
-     https://imapsync.lamiral.info/INSTALL.d/
-
-CONFIGURATION
-
-    There is no specific configuration file for imapsync, everything is
-    specified by the command line parameters and the default behavior.
-
-HACKING
-
-    Feel free to hack imapsync as the NOLIMIT license permits it.
-
-SIMILAR SOFTWARE
-
-      See also https://imapsync.lamiral.info/S/external.shtml
-      for a better up to date list.
-
-    Last updated and verified on Sun Dec 8, 2019.
-
-     imapsync: https://github.com/imapsync/imapsync (this is an imapsync copy, sometimes delayed, with --noreleasecheck by default since release 1.592, 2014/05/22)
-     imap_tools: https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/. The imap_tools code is now at https://github.com/andrewnimmo/rick-sanders-imap-tools
-     imaputils: https://github.com/mtsatsenko/imaputils (very old imap_tools fork)
-     Doveadm-Sync: https://wiki2.dovecot.org/Tools/Doveadm/Sync ( Dovecot sync tool )
-     davmail: http://davmail.sourceforge.net/
-     offlineimap: http://offlineimap.org/
-     mbsync: http://isync.sourceforge.net/
-     mailsync: http://mailsync.sourceforge.net/
-     mailutil: https://www.washington.edu/imap/ part of the UW IMAP toolkit. (well, seems abandoned now)
-     imaprepl: https://bl0rg.net/software/ http://freecode.com/projects/imap-repl/
-     imapcopy (Pascal): http://www.ardiehl.de/imapcopy/
-     imapcopy (Java): https://code.google.com/archive/p/imapcopy/
-     imapsize: http://www.broobles.com/imapsize/
-     migrationtool: http://sourceforge.net/projects/migrationtool/
-     imapmigrate: http://sourceforge.net/projects/cyrus-utils/
-     larch: https://github.com/rgrove/larch (derived from wonko_imapsync, good at Gmail)
-     wonko_imapsync: http://wonko.com/article/554 (superseded by larch)
-     pop2imap: http://www.linux-france.org/prj/pop2imap/ (I wrote that too)
-     exchange-away: http://exchange-away.sourceforge.net/
-     SyncBackPro: http://www.2brightsparks.com/syncback/sbpro.html
-     ImapSyncClient: https://github.com/ridaamirini/ImapSyncClient
-     MailStore: https://www.mailstore.com/en/products/mailstore-home/
-     mnIMAPSync: https://github.com/manusa/mnIMAPSync
-     imap-upload: http://imap-upload.sourceforge.net/ (A tool for uploading a local mbox file to IMAP4 server)
-     imapbackup: https://github.com/rcarmo/imapbackup (A Python script for incremental backups of IMAP mailboxes)
-     BitRecover email-backup 99 USD, 299 USD https://www.bitrecover.com/email-backup/.
-     ImportExportTools: https://addons.thunderbird.net/en-us/thunderbird/addon/importexporttools/ ImportExportTools for Mozilla Thunderbird by Paolo Kaosmos. ImportExportTools does not do IMAP.
-
-HISTORY
-
-    I initially wrote imapsync in July 2001 because an enterprise, called
-    BaSystemes, paid me to install a new imap server without losing huge old
-    mailboxes located in a far away remote imap server, accessible by an
-    often broken low-bandwidth ISDN link.
-
-    I had to verify every mailbox was well transferred, all folders, all
-    messages, without wasting bandwidth or creating duplicates upon resyncs.
-    The imapsync design was made with the beautiful rsync command in mind.
-
-    Imapsync started its life as a patch of the copy_folder.pl script. The
-    script copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl module
-    tarball source (more precisely in the examples/ directory of the
-    Mail-IMAPClient tarball).
-
-    So many happened since then that I wonder if it remains any lines of the
-    original copy_folder.pl in imapsync source code.
-
diff --git a/README_Windows.txt b/README_Windows.txt
index 6d89489..99ba050 100644
--- a/README_Windows.txt
+++ b/README_Windows.txt
@@ -1,112 +1,150 @@
-# $Id: README_Windows.txt,v 1.18 2019/12/11 18:52:16 gilles Exp gilles $
+# $Id: README_Windows.txt,v 1.24 2021/06/15 10:29:45 gilles Exp gilles $
 # 
 # This is the README_Windows.txt file for imapsync 
-# imapsync : IMAP syncing and migration tool.
+# imapsync: IMAP syncing and migration tool.
 
 =====================
  Imapsync on Windows
 =====================
 
- There is two ways to install and use imapsync on Windows systems: A) or B).
+ There are two ways to install and use imapsync on Windows systems: A) or B).
 
  Standard users should take the A) way, the simplest way.
 
- Developers, or powerful users that want to build their own imapsync.exe
+ Developers, or power users that want to build their own imapsync.exe
  or modify it, have to consider the B) way, the complex and powerful way.
 
+
 ---------------
 A) Simplest way
 ---------------
 
 A.0) Preamble for visual users looking for a visual tool.
 
- Imapsync itself is not a visual tool. The visual tool is Notepad 
- or any text editor. Many pure visual users have succeeded using imapsync
- to transfer their email accounts. Only the ones that tried have succeeded,
- so don't give up before trying once. Another assumption is that visual 
- users can read. So let's go further.
+ First, the visual thing I am talking about here is not the online visual
+ interface I call /X that you might have seen and used at the URL
+ https://imapsync.lamiral.info/X/
+ This /X visual interface is not yet available on Windows as a service
+ that you can install and use in your system.
+ I plan to make a visual tool available on Windows but, for now,
+ I encountered technical issues.
+
+ So what visual thing am I talking about?
+ 
+ Imapsync itself is not a visual tool. The visual tool is Notepad or
+ any text editor. Many pure visual users have succeeded in using
+ imapsync to transfer their email accounts. As you can guess, only
+ the ones that tried have succeeded, so don't give up before
+ trying at least once. Another assumption is that visual users can read.
+ Let's go for some reading!
 
 A.1) Get imapsync.
 
  Get imapsync at https://imapsync.lamiral.info/
- You'll then have access to a zip archive file named imapsync_1.xxx.zip
- where 1.xxx is the imapsync release number.
+ You'll then have access to a zip archive file named imapsync_1.977.zip
+ where 1.977 is the imapsync release number.
 
 A.2) Extract the zip file in a folder where you will work with imapsync.
 
  You can work on the Desktop since the zip file extraction creates
- a unique folder named imapsync_1.xxx (where 1.xxx is the imapsync 
- release number).
+ a unique folder named imapsync_1.977/
+ 
+ Do not unzip the archive in what is called a "system" directory since
+ you may encounter permission issues.
+
+Two-point to have in mind:
+* You don't need to be an Administrator to unzip the zip archive.
+* You don't need to be an Administrator to run imapsync.
+
 
 A.3) Check the folder
 
- In the folder extracted imapsync_1.xxx you see 6 files and 2 directories:
+ In the folder extracted imapsync_1.977 you see 7 files and 2 directories,
+ which may be presented in a different order than the following, the order
+ is not important anyway. The really important files to get your mailbox
+ transfer job started in a few minutes are the first two files of the 
+ following list:
 
  * README_Windows.txt     is the current file you are reading.
+ * imapsync_example.bat   is a simple batch file example that you will copy and edit.
+
  * README.txt             is the imapsync general document.
  * FAQ.d/*                FAQs are a good read when something goes wrong.
- * imapsync_example.bat   is a simple batch file example you will copy and edit.
  * sync_loop_windows.bat  is a batch file example for syncing many accounts.
  * file.txt               is an input file example for syncing many accounts.
  * imapsync.exe           is the imapsync 64bit binary. You don't have to run it directly.
  * imapsync_32bit.exe     is the imapsync 32bit binary. You don't have to run it directly.
  * Cook/                  is the directory to build imapsync.exe from its source, 
-                         for the B) way and expert users.
+                          for the B) way and expert users.
 
  You can copy or rename the file imapsync_example.bat as you wish,
- as long as its extension remains ".bat", for example mysync.bat
+ as long as its extension remains ".bat", for example, mysync.bat
 
- On Windows systems .bat extension means "I am a batch script". 
- A batch script is a file containing commands, it's a program. 
- Don't be afraid, a program can be simple or at least simple to
- modify. Think it like a cook recipe.
+ On Windows systems, a file name ending with a .bat extension means "I am a batch script". 
+ A batch script is a file containing commands, it's a program.
+ Don't be afraid, a program can be very simple to modify and I hope 
+ imapsync_example.bat is one of them.
 
- The batch scripts have to stay in the same directory than 
+ The batch scripts have to stay in the same directory as 
  imapsync.exe because of the way they call imapsync.exe.
- They use ".\imapsync.exe", so let them be in the same directory.
+ They use the string ".\imapsync.exe", so let them be in the same directory.
 
- Or you can change the path .\ to whatever you want if you understand what
+ You can change the path .\ to whatever you want if you understand what
  you are doing (you have to use a pathname from the script point of view).
 
- For the rest of this documentation I assume you copied
- imapsync_example.bat to a file named imapsync_stuff.bat
+ For the rest of this documentation, I assume you copied
+ imapsync_example.bat to a file named mysync.bat
 
- If you don't know how to copy and rename a file then 
- use imapsync_example.bat itself.
+ If you don't know how to copy and rename a file then use imapsync_example.bat 
+ itself, it's ok. The original file is still in the zip file in case
+ you want to restart from scratch.
 
 A.4) Edit the batch file
 
- Edit the file imapsync_stuff.bat and change the values with yours.
- In order to edit it you have do a right click on it and select "modify"
+ This section describes how to edit the file mysync.bat to change 
+ the example values with yours.
+ 
+ To edit mysync.bat, you have to right-click on it and select "modify"
  in the list presented in the small window menu.
 
- Notepad or Notepadd++ are very good editors to modify it.
+ Notepad or Notepadd++ are very good editor candidates to modify it.
+ Notepad is already installed on any Windows system, Notepadd++
+ is not usually installed but if you have it then use it.
 
- Office Word or any powerful text processor are not good for that job.
- Text processors transform files in a special format that
- are wrong to make them stay a good batch file, so don't use them!
+ Office Word or any powerful text processor is NOT good for that job.
+ Text processors transform files in a special format that is wrong to
+ make them stay a good batch file, so don't use them!
 
  Files FAQ.txt and FAQ.d/* contain many tips and special options sometimes
- needed by specific imap server softwares like Exchange or Gmail.
+ needed by specific imap software servers like Exchange, Office365, or Gmail.
  Those files are also available online at
  https://imapsync.lamiral.info/FAQ.d/
-
+ You don't have to look into them unless you encounter problems.
 
 A.5) Run the batch file
 
- To run imapsync with your values just double-click on 
- the batch file imapsync_stuff.bat
+ To run imapsync with your values just double-click on the batch file mysync.bat
 
  There is no need to have administrator privileges to run imapsync.
 
- The run happens in a DOS window. 
+ The run happens in a DOS window; usually, this window is black.
 
-A.6) Look the sync running. 
 
- You can abort it at any time with a quick double ctrl-c, 
- hit ctrl-c twice within one second.
+If imapsync.exe returns immediately with the ERRORLEVEL -1, it may be
+because you have an Group Policy in place to prevent execution of 
+programs in %TEMP%. Temporarily remove this restriction and imapsync 
+will work as expected. Thanks to Walter H. for this input!
+Technically imapsync.exe is an embedded Perl script with also Perl 
+and many Perl modules glued together in an archive auto-extracted. 
+
+A.6) Look at the sync running. 
+
+ You can abort the sync at any time with a quick double ctrl-c, 
+ ie hit ctrl-c twice within one second.
+ 
  A single ctrl-c will reconnect to both imap servers.
- You can also abort the sync by closing the DOS window.
+ You can also simply abort the sync by closing the DOS window,
+ using the cross situated at the up-right corner.
 
  What you see in this DOS terminal is also put in a logfile located
  in the subdirectory LOG_imapsync/
@@ -114,30 +152,37 @@ A.6) Look the sync running.
 A.7) Control what happened.
 
  When the sync is finished you can find the whole log file 
- of the output in the folder named "LOG_imapsync".
- the logfile name is based on the launching date, 
- hour, minute, second, milliseconds plus the user1 and user2 parameters.
- For example a file name can be
+ of the output in the folder named "LOG_imapsync/".
+ The logfile name is based on the launching date,
+ hour, minute, second, milliseconds, plus the user1 and user2 parameters.
+ For example, a file name can be
  LOG_imapsync\2019_11_29_14_49_36_514_tata_titi.txt
 
- There is one logfile created at each run.
- The logfile name is printed at the end of the imapsync run.
+ There is one log file created for each run.
+ The log file name is printed at the end of the imapsync run.
 
- When there is a problem, the problem is very often described 
- at the end of the logfile.
+ IMPORTANT: When there is a problem, the problem is very often described
+ at the end of the log file. It means you don't have to read all this
+ bloody ununderstandable verbose logfile, just read the end first.
 
 
 A.8) Loop on A.4 through A.7
 
- * A.4) edit 
- * A.5) run 
- * A.6) look
- * A.7) control
+ * A.4) edit the batch file
+ * A.5) run the batch file
+ * A.6) look at the run and the log file
+ * A.7) control what happened.
 
- Loop on the process of editing, running and controlling imapsync
+ Loop on the process of editing, running, and controlling imapsync
  until you solve all issues and the sync is over.
 
- Congratulations!
+A good sign that the sync went very well is when the nearly last lines are like:
+
+" The sync looks good, all 123456 identified messages in host1 are on host2.
+" There is no unidentified message
+" Detected 0 errors
+
+Congratulations!
 
 
 ------------
@@ -154,7 +199,7 @@ B.1) Install Perl if it isn't already installed.
   should work as well (Perl 5.18 to 5.26 do).
 
 B.2) Go into the Cook/ directory
-B.3) Double-clic build_exe.bat 
+B.3) Double-click build_exe.bat 
 
 It should create a binary imapsync.exe in the current Cook/ directory.
 
diff --git a/S/conversion_data.js b/S/conversion_data.js
new file mode 100755
index 0000000..79956ef
--- /dev/null
+++ b/S/conversion_data.js
@@ -0,0 +1,13 @@
+
+
+/* Google Code for Achat imapsync Conversion Page */
+
+var google_conversion_id = 992916412;
+var google_conversion_language = "en";
+var google_conversion_format = "2";
+var google_conversion_color = "ffffff";
+var google_conversion_label = "hVVWCKzApQIQvOe62QM";
+var google_conversion_value = "USD 1.00";
+var google_conversion_currency = "USD";
+var google_remarketing_only = false;
+
diff --git a/S/donate.shtml b/S/donate.shtml
index 45416a6..0379a05 100644
--- a/S/donate.shtml
+++ b/S/donate.shtml
@@ -31,7 +31,14 @@
 <body>
 <h1>Imapsync donation</h1>
 
-<p>Help the author to maintain imapsync and its online services:</p>
+
+<p>Help the imapsync author, Gilles LAMIRAL, to maintain imapsync and its online services!</p>
+
+<div  id="right-tronche">
+<img  width="300"  height="300"  src="S/images/gilles_lamiral_400x400.jpeg"  alt="Gilles LAMIRAL" />
+</div>
+
+
 
 <h2>Donate via Paypal</h2>
 
@@ -46,6 +53,12 @@ value="-----BEGIN PKCS7-----MIIHRwYJKoZIhvcNAQcEoIIHODCCBzQCAQExggEwMIIBLAIBADCB
 </p>
 </form>
 
+<h2>Donate via Github</h2>
+
+<p> 
+<a href="https://github.com/sponsors/gilleslamiral">Become a Github sponsor to Gilles LAMIRAL</a>
+</p>
+
 <h2>Donate with Crypto</h2>
 <p>
 This donate button will ask your email address and your name but don't hesitate
@@ -61,7 +74,9 @@ to give fake ones, like "Smith" and smith@example.com if you prefer to be anonym
 </div>
 
 
-<p>Thanks in advance!</p>
+<p>Thanks!<br />
+And remember, <b>no money donation is ok!</b><br />
+Kind words are always sweets to me</p>
 
 <hr />
 <p>
@@ -83,7 +98,7 @@ to give fake ones, like "Smith" and smith@example.com if you prefer to be anonym
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: donate.shtml,v 1.16 2019/07/31 22:49:12 gilles Exp gilles $)
+($Id: donate.shtml,v 1.20 2021/01/01 22:38:02 gilles Exp gilles $)
 </p>
 
 </body>
diff --git a/S/external.shtml b/S/external.shtml
index f1113fb..38ff879 100644
--- a/S/external.shtml
+++ b/S/external.shtml
@@ -26,18 +26,23 @@
 
 <body>
 
-<h1>Similar software tools <a id="similar" href="../#TOP"><small>(back to menu)</small></a>
+<h1>Imapsync similar software tools <a id="similar" href="../#TOP"><small>(back to menu)</small></a>
 </h1>
 
+<p>Here is a list of Imapsync alternative tools, list verified on Friday July 1, 2021:
+</p>
 
 <ol>
 <li> <b>imapsync</b>:    <a href="https://github.com/imapsync/imapsync">https://github.com/imapsync/imapsync</a> (this is an imapsync copy, sometimes delayed, with --noreleasecheck by default since release 1.592, 2014/05/22)</li>
 <li> imap_tools:         <a href="https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/">https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/</a>.
      The imap_tools code is now at <a href="https://github.com/andrewnimmo/rick-sanders-imap-tools">https://github.com/andrewnimmo/rick-sanders-imap-tools</a></li>
 <li> imaputils:          <a href="https://github.com/mtsatsenko/imaputils">https://github.com/mtsatsenko/imaputils</a> (very old imap_tools fork)</li>
-<li> Doveadm-Sync:       <a href="https://wiki2.dovecot.org/Tools/Doveadm/Sync">https://wiki2.dovecot.org/Tools/Doveadm/Sync</a> ( Dovecot sync tool )</li>
+<li> Doveadm-Sync:       <a href="https://wiki2.dovecot.org/Tools/Doveadm/Sync/">https://wiki2.dovecot.org/Tools/Doveadm/Sync</a> ( Dovecot sync tool )</li>
 <li> davmail:            <a href="http://davmail.sourceforge.net/">http://davmail.sourceforge.net/</a></li>
 <li> <b>offlineimap</b>: <a href="http://offlineimap.org/">http://offlineimap.org/</a></li>
+
+<li> fdm:                <a href="https://github.com/nicm/fdm">https://github.com/nicm/fdm</a></li>
+
 <li> <b>mbsync</b>:      <a href="http://isync.sourceforge.net/">http://isync.sourceforge.net/</a></li>
 <li> mailsync:           <a href="http://mailsync.sourceforge.net/">http://mailsync.sourceforge.net/</a></li>
 <li> mailutil:           <a href="https://web.archive.org/web/20191028114408/http://www.washington.edu/imap/">https://www.washington.edu/imap/</a>
@@ -68,25 +73,65 @@
 
 <li> ImportExportTools:  <a href="https://addons.thunderbird.net/en-us/thunderbird/addon/importexporttools/">https://addons.thunderbird.net/en-us/thunderbird/addon/importexporttools/</a> 
                         ImportExportTools for Mozilla Thunderbird by Paolo Kaosmos. ImportExportTools does not do IMAP.
-                         </li>
+</li>
+
+<li> rximapmail:     <a href="https://sourceforge.net/projects/rximapmail/">https://sourceforge.net/projects/rximapmail/</a></li>
+
+<li> CodeTwo: <a href="https://www.codetwo.com/">https://www.codetwo.com/</a> but CodeTwo does
+<a href="https://www.codetwo.com/userguide/office-365-migration/imap-source.htm"> imap source to Office365 </a> only.</li>
+
 
 </ol>
 
 <h1>External online IMAP migration services <a id="ONLINE_OTHERS" href="../#TOP"><small>(back to menu)</small></a>
 </h1>
 
-<p>I have  no share in these free or paid services. 
-Some use Imapsync, most don't.
-Prices are given par mailbox and may be outdated 
-(Last checked on Thu Apr 11, 2019).</p>
+<p>These services are similar to the 
+<a  href="https://imapsync.lamiral.info/X/" title="Free online service under 1 GB">imapsync <b>online service</b></a>
+I call /X. Some are an exact copy of /X, some are not, some use Imapsync, some don't.<br/>
 
+I have  no share in these free or paid services. 
+Prices are given par mailbox and may be outdated 
+(Last checked on Tuesday 10th November 2020).
+</p>
+
+<h2>Imapsync based</h2>
+
+<!--
+From https://lamiral.info/dokuwiki/doku.php?id=imapsync&#online_ui_x_copies
+
+
+#  * 1.810 https://tools.controlpanel.si/imapsync/ CGI https://tools.controlpanel.si/cgi-bin/imapsync
+#  * 1.882 https://tools.intertune.io/imapsync/X/  CGI https://tools.intertune.io/cgi-bin/imapsync
+#  * 1.882 https://imapsync.whc.ca/                CGI https://imapsync.whc.ca/cgi-bin/imapsync
+#  * 1.925 https://imapsync.boomhost.com/          CGI https://imapsync.boomhost.com/cgi-bin/imapsync 
+#  * 1.977 https://imapcopy.webhosting4u.gr/       CGI https://imapcopy.webhosting4u.gr/cgi-bin/imapsync
+#  * 1.991 https://imapsync.nl/                    CGI https://imapsync.nl/cgi-bin/imapsync
+#  * 1.998 https://mailsync.timetakernet.info/     CGI https://mailsync.timetakernet.info/cgi-bin/imapsync
+#  * 1.998 https://imapsync.keurigonline.nl/       CGI https://imapsync.keurigonline.nl/cgi-bin/imapsync
+#
+#  * ?.??? https://app.migrationwizard.co.uk/      CGI 404, deep into https://app.migrationwizard.co.uk/sync.php
+-->
+
+<p>1.945 and upper use --useheader "Message-Id" as default in CGI mode and 
+this is a better choice to avoid duplicates with some imap servers.
+</p>
 
 <ol>
-<li> Web Hosting Canada  <b>0 USD</b>:   <a href="https://imapsync.whc.ca/">https://imapsync.whc.ca/</a> (imapsync based)</li>
-<li> BoomHost <b>0 USD</b>:              <a href="https://imapsync.boomhost.com/">https://imapsync.boomhost.com/</a> (imapsync based)</li>
-<li> <a href="https://tools.controlpanel.si/imapsync/">https://tools.controlpanel.si/imapsync/</a> (imapsync based)</li>
-<li> <a href="https://www.cadeolink.com.br/">https://www.cadeolink.com.br/</a> (imapsync based)</li>
+<li> Slovenia Control Panel <b>0 USD</b>: <a href="https://tools.controlpanel.si/imapsync/">https://tools.controlpanel.si/imapsync/</a> (imapsync 1.810)</li>
+<li> Intertune Cloud        <b>0 USD</b>: <a href="https://tools.intertune.io/imapsync/X/" >https://tools.intertune.io/imapsync/X/</a> (imapsync 1.882)</li>
+<li> Web Hosting Canada     <b>0 USD</b>: <a href="https://imapsync.whc.ca/"               >https://imapsync.whc.ca/</a> (imapsync 1.882)</li>
+<li> BoomHost               <b>0 USD</b>: <a href="https://imapsync.boomhost.com/"         >https://imapsync.boomhost.com/</a> (imapsync 1.925)</li>
+<li> WebHosting|4u (greek)  <b>0 USD</b>: <a href="https://imapcopy.webhosting4u.gr/"      >https://imapcopy.webhosting4u.gr/</a> (imapsync 1.977)</li>
+<li> Vimexx                 <b>0 USD</b>: <a href="https://imapsync.nl/"                   >https://imapsync.nl/</a> (imapsync 1.991)</li>
+<li> Timetakernet           <b>0 USD</b>: <a href="https://mailsync.timetakernet.info/"    >https://mailsync.timetakernet.info/</a> (imapsync 1.998)</li>
+<li> KeurigOnline           <b>0 USD</b>: <a href="https://imapsync.keurigonline.nl/"      >https://imapsync.keurigonline.nl/</a> (imapsync 1.998)</li>
 
+<li> UK Migration Wizard    <b>0 USD</b>: <a href="https://app.migrationwizard.co.uk/"     >https://app.migrationwizard.co.uk/</a> (imapsync ?.???)</li>
+</ol>
+
+<h2>Not Imapsync based</h2>
+<ol>
 <li> Ovh migration <b>0 EUR</b>:         <a href="https://omm.ovh.net/Migration/Create">https://omm.ovh.net/Migration/Create</a></li>
 <li> Rackspace migration <b>0 USD</b>:   <a href="http://www.rackspace.com/email-hosting/migrations">http://www.rackspace.com/email-hosting/migrations</a></li>
 <li> Movemymail one free, 5 USD after:   <a href="https://movemymail.net">https://movemymail.net/</a></li>
@@ -96,9 +141,20 @@ Prices are given par mailbox and may be outdated
 <li> <del>Yippiemove 14.95 USD</del> (discontinued on April 2019):    <a href="http://www.yippiemove.com">http://www.yippiemove.com/</a> 
      ( See <a href="https://web.archive.org/web/20161027124328/https://www.yippiemove.com/help/faq_generic.html#imapsync">Yippiemove vs ImapSync</a> )</li>
 <li> ShuttleCloud one free, 19.95 USD after <a href="https://www.shuttlecloud.com/">https://www.shuttlecloud.com/</a></li>
-
 </ol>
 
+<h2>Imap to files services</h2>
+
+<p>
+This services allow you to backup/archive your imap email account to a zip file.
+The most common and useful format to restore an imap account is the <b>Maildir</b> format.
+</p>
+
+<ol>
+<li>PowerMail Backup (French language)
+    <a href="https://www.powermail.fr/sauvegarder-une-boite-mail/">https://www.powermail.fr/sauvegarder-une-boite-mail/</a>.
+</li>
+</ol>
 
 <hr/>
 <div>
@@ -126,7 +182,7 @@ alt="Viewable With Any Browser" />
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: external.shtml,v 1.45 2019/12/23 12:38:41 gilles Exp gilles $)<br/>
+($Id: external.shtml,v 1.58 2021/06/30 20:34:23 gilles Exp gilles $)<br/>
 <a href="#TOP">Top of the page</a>
 </p>
 
diff --git a/S/fonts/LM-bold-italic.ttf b/S/fonts/LM-bold-italic.ttf
new file mode 100644
index 0000000..7b684ee
Binary files /dev/null and b/S/fonts/LM-bold-italic.ttf differ
diff --git a/S/fonts/LM-bold-italic.woff b/S/fonts/LM-bold-italic.woff
new file mode 100644
index 0000000..d54af37
Binary files /dev/null and b/S/fonts/LM-bold-italic.woff differ
diff --git a/S/fonts/LM-bold-italic.woff2 b/S/fonts/LM-bold-italic.woff2
new file mode 100644
index 0000000..078ce29
Binary files /dev/null and b/S/fonts/LM-bold-italic.woff2 differ
diff --git a/S/fonts/LM-bold.ttf b/S/fonts/LM-bold.ttf
new file mode 100644
index 0000000..17624d4
Binary files /dev/null and b/S/fonts/LM-bold.ttf differ
diff --git a/S/fonts/LM-bold.woff b/S/fonts/LM-bold.woff
new file mode 100644
index 0000000..318a3ad
Binary files /dev/null and b/S/fonts/LM-bold.woff differ
diff --git a/S/fonts/LM-bold.woff2 b/S/fonts/LM-bold.woff2
new file mode 100644
index 0000000..c14c620
Binary files /dev/null and b/S/fonts/LM-bold.woff2 differ
diff --git a/S/fonts/LM-italic.ttf b/S/fonts/LM-italic.ttf
new file mode 100644
index 0000000..b9a57b8
Binary files /dev/null and b/S/fonts/LM-italic.ttf differ
diff --git a/S/fonts/LM-italic.woff b/S/fonts/LM-italic.woff
new file mode 100644
index 0000000..fafb147
Binary files /dev/null and b/S/fonts/LM-italic.woff differ
diff --git a/S/fonts/LM-italic.woff2 b/S/fonts/LM-italic.woff2
new file mode 100644
index 0000000..166d6e6
Binary files /dev/null and b/S/fonts/LM-italic.woff2 differ
diff --git a/S/fonts/LM-regular.ttf b/S/fonts/LM-regular.ttf
new file mode 100644
index 0000000..6b4f6b8
Binary files /dev/null and b/S/fonts/LM-regular.ttf differ
diff --git a/S/fonts/LM-regular.woff b/S/fonts/LM-regular.woff
new file mode 100644
index 0000000..eb9fec0
Binary files /dev/null and b/S/fonts/LM-regular.woff differ
diff --git a/S/fonts/LM-regular.woff2 b/S/fonts/LM-regular.woff2
new file mode 100644
index 0000000..869279a
Binary files /dev/null and b/S/fonts/LM-regular.woff2 differ
diff --git a/S/images/logo_imapsync.svg b/S/images/logo_imapsync.svg
new file mode 100755
index 0000000..bebc7d4
--- /dev/null
+++ b/S/images/logo_imapsync.svg
@@ -0,0 +1,53 @@
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
+<svg version="1.0" xmlns="http://www.w3.org/2000/svg" width="486px" height="309px" viewBox="0 0 4860 3090" preserveAspectRatio="xMidYMid meet">
+<g id="layer101" fill="#010102" stroke="none">
+<path d="M2818 3085 c-2 -2 -597 -58 -1323 -126 -726 -67 -1321 -123 -1322 -124 -2 -1 -3 -235 -3 -520 l-1 -518 588 -234 c323 -128 598 -238 610 -245 17 -8 26 -8 38 2 8 7 18 10 22 7 3 -4 -45 -153 -107 -332 -62 -179 -111 -327 -109 -329 2 -2 14 -6 26 -10 18 -6 23 -1 33 30 l12 36 18 -51 c21 -62 42 -80 93 -81 128 -1 277 338 225 512 -23 77 -98 102 -157 52 -17 -14 -31 -22 -31 -17 0 13 67 210 77 225 5 8 10 -10 13 -47 l5 -60 338 -133 337 -134 0 -36 c0 -31 -29 -80 -164 -287 -90 -137 -161 -253 -157 -256 3 -4 15 -9 26 -13 17 -5 38 23 145 190 68 108 126 192 128 186 1 -5 -6 -99 -18 -208 -26 -254 -26 -260 2 -267 12 -4 23 -5 24 -4 1 1 16 151 34 332 18 182 34 332 36 334 2 2 207 -76 455 -174 314 -125 454 -176 464 -169 7 5 389 360 848 789 l835 780 1 378 1 377 -22 0 c-13 0 -241 16 -507 35 -267 19 -487 33 -489 30 -3 -3 -11 0 -18 6 -15 12 -995 85 -1006 74z m-1274 -1991 c73 -72 -23 -384 -131 -425 -60 -23 -100 40 -88 138 13 103 75 246 123 284 30 23 75 25 96 3z"/>
+<path d="M270 1657 c0 -2 -43 -127 -95 -277 -96 -275 -100 -295 -56 -287 8 1 51 110 107 272 51 148 92 270 91 271 -11 8 -47 24 -47 21z"/>
+<path d="M341 1318 c-89 -257 -93 -272 -76 -285 27 -19 31 -17 45 30 l13 42 12 -50 c26 -99 97 -123 164 -56 l39 39 7 -51 c9 -65 47 -107 97 -107 39 0 76 30 112 93 32 55 158 416 152 434 -3 7 -14 13 -24 13 -16 0 -30 -30 -77 -166 -72 -209 -78 -225 -111 -263 -31 -37 -72 -41 -100 -10 -15 17 -19 35 -18 88 1 53 12 98 56 226 31 88 59 168 63 177 5 13 1 20 -16 27 -16 6 -26 5 -30 -3 -4 -6 -32 -85 -64 -176 -64 -186 -96 -255 -124 -270 -58 -30 -101 12 -101 99 0 43 14 98 62 239 54 156 61 184 48 192 -8 5 -19 10 -25 10 -5 0 -52 -122 -104 -272z"/>
+<path d="M1026 1329 c-34 -27 -70 -98 -85 -168 -21 -98 15 -160 114 -199 58 -23 62 -43 20 -98 -45 -59 -104 -56 -171 8 l-32 30 -11 -32 c-13 -38 -4 -60 39 -90 68 -49 126 -46 183 8 41 39 67 94 137 296 50 144 60 180 49 187 -26 16 -37 9 -50 -28 -7 -22 -14 -31 -16 -23 -18 66 -38 102 -63 115 -40 21 -83 19 -114 -6z m109 -76 c35 -35 43 -86 25 -170 -17 -77 -20 -79 -76 -58 -67 25 -94 55 -94 102 0 46 31 117 57 132 27 16 69 13 88 -6z"/>
+<path d="M1768 1063 c-14 -4 -38 -49 -38 -73 0 -4 22 -5 50 -2 97 9 151 -40 130 -118 -14 -53 -43 -70 -136 -79 -73 -7 -79 -9 -109 -44 -53 -61 -71 -166 -40 -226 18 -35 88 -71 139 -71 33 0 39 4 52 35 19 47 19 48 -21 41 -49 -10 -122 23 -131 58 -8 33 1 67 25 97 15 19 32 24 96 30 95 9 120 25 158 100 48 92 28 187 -49 230 -30 17 -96 28 -126 22z"/>
+<path d="M29 963 c-23 -60 -23 -81 1 -88 12 -4 23 -5 24 -3 5 6 36 101 33 103 -1 2 -12 6 -24 9 -19 6 -25 2 -34 -21z"/>
+<path d="M2362 538 c-88 -255 -93 -273 -76 -285 26 -19 30 -17 44 30 l13 42 13 -50 c16 -60 52 -95 98 -95 76 0 113 59 206 327 69 197 72 218 31 210 -8 -1 -32 -55 -57 -127 -87 -248 -96 -271 -124 -300 -35 -37 -72 -39 -105 -5 -43 42 -35 108 38 322 53 157 60 185 47 193 -8 5 -19 10 -25 10 -5 0 -52 -123 -103 -272z"/>
+<path d="M2864 610 c-110 -70 -205 -345 -163 -471 22 -65 82 -109 148 -109 31 0 61 30 61 61 0 14 -9 17 -43 16 -51 -2 -93 22 -108 61 -38 96 48 334 134 376 45 21 78 13 117 -25 15 -16 31 -29 33 -29 3 0 10 14 16 32 10 28 8 34 -11 56 -51 54 -128 68 -184 32z"/>
+</g>
+<g id="layer102" fill="#373749" stroke="none">
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -43 3 c-23 2 -40 7 -37 13 8 12 225 12 225 -1z m-338 -382 c83 -28 123 -45 115 -51 -7 -5 0 -6 18 -3 23 5 27 4 15 -5 -12 -8 -10 -9 11 -5 17 4 99 -19 245 -68 120 -41 214 -75 207 -75 -6 -1 -20 -4 -30 -7 -15 -5 -16 -4 -3 6 12 9 9 10 -15 6 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 10 9 -11 5 -17 -4 -100 19 -250 69 -123 41 -227 75 -232 75 -4 0 -7 -28 -5 -61 l3 -62 113 -40 c62 -22 111 -41 109 -44 -2 -2 -56 15 -120 38 l-117 42 0 67 c0 37 3 70 7 73 12 13 36 7 165 -35z m156 -213 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z m557 -18 l60 -22 3 -82 c3 -75 1 -82 -18 -88 -19 -6 -156 32 -147 41 2 2 30 -5 62 -16 32 -11 60 -20 62 -20 1 0 3 33 3 74 0 72 -1 75 -27 84 -23 9 -24 11 -8 12 12 1 -1 9 -30 20 -27 10 -43 19 -35 19 8 0 42 -10 75 -22z m-417 -32 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z m137 -51 c24 -11 25 -13 5 -8 -14 4 -38 13 -55 20 -24 11 -25 13 -5 8 14 -4 39 -13 55 -20z m113 -39 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z"/>
+<path d="M694 1944 c39 -13 75 -24 80 -23 6 0 -20 11 -58 25 -39 13 -75 24 -80 23 -6 0 20 -11 58 -25z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-773 -409 c28 -10 45 -18 39 -18 -6 -1 -37 8 -69 19 -67 23 -65 23 -65 12 0 -5 27 -17 60 -27 33 -10 58 -20 56 -23 -4 -3 -68 15 -123 36 -10 3 -13 -13 -13 -61 l0 -65 51 -17 c28 -9 49 -19 47 -21 -2 -2 -27 4 -56 13 l-52 17 0 72 c0 59 3 75 18 83 18 11 26 9 107 -20z m265 -84 c19 -7 28 -13 20 -13 -8 0 -31 6 -50 13 -19 7 -28 13 -20 13 8 0 31 -6 50 -13z m-165 -121 c24 -11 25 -13 5 -8 -14 4 -38 13 -55 20 -24 11 -25 13 -5 8 14 -4 39 -13 55 -20z"/>
+</g>
+<g id="layer103" fill="#60607b" stroke="none">
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -42 3 c-24 2 -43 7 -43 13 0 5 50 9 115 9 70 0 115 -4 115 -10z m-8 -487 l449 -147 -3 -86 c-3 -80 -4 -85 -26 -88 -16 -3 -716 240 -904 313 -15 6 -18 20 -18 81 0 73 0 74 26 74 15 0 229 -66 476 -147z"/>
+<path d="M300 2001 c0 -46 4 -60 17 -65 9 -4 206 -75 437 -158 232 -83 427 -153 434 -156 10 -3 12 12 10 69 l-3 74 -440 147 c-242 81 -443 148 -447 148 -5 0 -8 -27 -8 -59z"/>
+<path d="M1210 1694 c0 -47 4 -73 10 -69 6 3 10 37 10 76 0 39 -4 69 -10 69 -6 0 -10 -32 -10 -76z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-437 -515 c230 -75 417 -138 415 -140 -2 -3 -187 55 -410 126 -224 72 -414 131 -424 131 -9 0 163 -61 383 -134 220 -74 396 -135 391 -135 -7 -1 -745 238 -793 256 -10 4 -13 -12 -13 -59 l0 -65 405 -143 c223 -79 404 -145 402 -147 -3 -2 -187 60 -411 138 l-406 142 0 78 c0 65 3 78 18 82 9 3 19 5 21 6 2 0 192 -61 422 -136z m544 -177 c55 -19 95 -35 90 -35 -6 -1 -56 14 -110 33 -55 19 -95 35 -90 35 6 1 56 -14 110 -33z m243 -168 c-1 -95 -5 -83 -10 30 -2 34 0 62 5 62 4 0 6 -42 5 -92z m-325 2 c38 -12 66 -24 64 -26 -5 -5 -148 43 -156 53 -3 3 1 4 9 1 8 -3 46 -15 83 -28z"/>
+</g>
+<g id="layer104" fill="#8686bf" stroke="none">
+<path d="M1540 2940 c-685 -65 -1242 -118 -1237 -119 4 -1 252 -41 550 -91 l542 -90 1145 184 c630 101 1134 185 1120 185 -14 1 -180 12 -370 26 -190 14 -381 24 -425 24 -44 -1 -640 -54 -1325 -119z"/>
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -47 3 c-27 2 -48 7 -48 13 0 5 51 9 120 9 73 0 120 -4 120 -10z m98 -519 l342 -112 0 -88 c0 -79 -2 -89 -19 -94 -11 -3 -219 67 -473 158 l-453 162 -3 76 c-2 66 -1 76 15 79 19 4 71 -12 591 -181z"/>
+<path d="M300 2003 l0 -60 438 -157 c240 -86 440 -156 445 -156 4 0 7 31 7 69 l0 68 -431 142 c-236 78 -437 145 -445 148 -11 4 -14 -7 -14 -54z"/>
+<path d="M2000 2711 l-595 -96 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 50 7 c54 7 1041 176 1065 182 8 2 2 4 -15 4 -16 0 -298 -44 -625 -97z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-602 -459 c137 -44 408 -132 602 -195 l352 -115 0 -90 c0 -83 -2 -90 -22 -100 -19 -8 -121 25 -598 191 -316 111 -590 208 -607 215 -33 14 -33 14 -33 84 0 70 10 90 46 91 7 0 124 -36 260 -81z"/>
+<path d="M2280 1434 c322 -106 588 -194 593 -194 4 0 7 4 7 8 0 4 -30 18 -67 29 -38 12 -301 96 -585 187 -284 91 -520 166 -525 165 -4 0 255 -88 577 -195z"/>
+<path d="M1670 1558 l0 -63 467 -165 c257 -91 527 -186 600 -212 l133 -47 0 79 0 79 -82 26 c-172 54 -1103 358 -1110 362 -5 2 -8 -24 -8 -59z"/>
+<path d="M2880 1159 c0 -51 4 -78 10 -74 6 3 10 40 10 81 0 43 -4 74 -10 74 -6 0 -10 -34 -10 -81z"/>
+</g>
+<g id="layer105" fill="#afafde" stroke="none">
+<path d="M1547 2942 c-683 -64 -1228 -120 -1215 -124 13 -4 257 -45 543 -92 l520 -86 1145 184 c630 101 1134 185 1120 185 -14 1 -180 12 -370 26 -190 14 -381 24 -425 24 -44 -1 -637 -53 -1318 -117z"/>
+<path d="M2758 2792 c-598 -103 -1089 -189 -1092 -192 -2 -3 332 -62 744 -131 l748 -126 802 286 c440 157 797 287 793 288 -12 4 -865 63 -888 62 -11 0 -509 -85 -1107 -187z"/>
+<path d="M3993 2608 l-813 -291 0 -824 c0 -454 4 -823 8 -821 4 2 376 347 825 767 l817 763 0 349 c0 273 -3 349 -12 348 -7 0 -379 -131 -825 -291z"/>
+<path d="M2000 2711 l-595 -96 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 50 7 c28 4 61 9 75 12 14 3 241 41 505 86 264 45 485 83 490 85 40 14 -128 -10 -645 -94z"/>
+<path d="M300 2003 l0 -59 438 -157 c240 -87 440 -157 445 -157 4 0 7 31 7 68 l0 68 -432 143 c-238 79 -439 146 -445 148 -10 4 -13 -11 -13 -54z"/>
+<path d="M1670 1558 l0 -63 598 -211 597 -211 3 75 c2 41 1 76 0 78 -2 1 -269 89 -593 194 -325 106 -593 194 -597 197 -5 2 -8 -24 -8 -59z"/>
+</g>
+<g id="layer106" fill="#d9d9ff" stroke="none">
+<path d="M4790 2893 c-8 -3 -28 -11 -45 -18 -16 -7 -375 -135 -797 -285 l-768 -273 0 -824 c0 -454 4 -823 8 -821 4 2 376 347 825 767 l817 763 0 349 c0 363 1 357 -40 342z"/>
+<path d="M1765 2670 c-93 -15 -213 -34 -265 -41 l-95 -14 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 45 7 c148 24 420 76 395 76 -16 0 -106 -13 -200 -28z"/>
+<path d="M310 1996 c0 -50 2 -55 28 -64 15 -5 210 -75 434 -156 224 -80 410 -146 413 -146 3 0 5 31 5 68 l0 68 -433 142 c-239 78 -437 142 -440 142 -4 0 -7 -24 -7 -54z"/>
+<path d="M1400 1676 c0 -179 3 -326 6 -326 19 0 44 25 54 54 10 32 14 34 36 26 l24 -10 0 275 0 274 -42 11 c-24 6 -51 13 -60 16 -17 5 -18 -15 -18 -320z"/>
+<path d="M1213 1700 c0 -41 2 -58 4 -37 2 20 2 54 0 75 -2 20 -4 3 -4 -38z"/>
+<path d="M1672 1553 l3 -56 575 -204 c316 -111 583 -205 593 -209 15 -5 17 3 17 70 l0 74 -47 16 c-27 8 -290 94 -587 190 -296 97 -542 176 -548 176 -5 0 -8 -26 -6 -57z"/>
+<path d="M2880 1160 c0 -40 4 -70 10 -70 6 0 10 30 10 70 0 40 -4 70 -10 70 -6 0 -10 -30 -10 -70z"/>
+</g>
+
+
+</svg>
\ No newline at end of file
diff --git a/S/images/logo_imapsync_layers_ind.svg b/S/images/logo_imapsync_layers_ind.svg
new file mode 100755
index 0000000..cda7bca
--- /dev/null
+++ b/S/images/logo_imapsync_layers_ind.svg
@@ -0,0 +1,48 @@
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
+<svg version="1.0" xmlns="http://www.w3.org/2000/svg" width="486px" height="309px" viewBox="0 0 4860 3090" preserveAspectRatio="xMidYMid meet">
+<g id="layer101" fill="#010102" fill-rule="evenodd">
+<path d="M2817 3085 C2816 3083,2221 3026,1495 2959 C769 2892,173 2836,172 2835 C171 2834,170 2600,169 2315 L169 1796 757 1563 C1080 1434,1354 1324,1367 1318 C1384 1309,1392 1310,1404 1319 C1413 1327,1423 1330,1426 1326 C1430 1323,1382 1173,1320 994 C1258 815,1209 667,1211 665 C1213 664,1224 659,1236 655 C1254 650,1260 654,1270 685 L1282 722 1299 670 C1320 609,1342 590,1392 590 C1520 589,1670 928,1618 1102 C1595 1178,1519 1203,1460 1154 C1443 1139,1430 1132,1430 1137 C1430 1150,1497 1347,1506 1362 C1511 1370,1516 1351,1520 1315 L1525 1255 1862 1121 L2200 988 2199 951 C2199 921,2171 871,2035 665 C1945 527,1875 412,1878 408 C1882 405,1894 399,1905 396 C1922 391,1943 419,2049 586 C2118 694,2175 777,2177 772 C2179 767,2171 673,2160 564 C2134 309,2134 303,2162 296 C2174 293,2184 291,2185 292 C2186 294,2202 443,2220 625 C2238 806,2254 956,2256 959 C2258 961,2462 882,2710 784 C3025 660,3165 608,3174 615 C3181 620,3563 976,4023 1405 L4858 2185 4859 2562 L4860 2940 4837 2940 C4825 2940,4597 2955,4330 2974 C4064 2994,3844 3007,3841 3005 C3839 3002,3831 3004,3824 3010 C3817 3016,3624 3034,3395 3050 C2868 3087,2820 3090,2817 3085 M305 2825 L305 2825 L310 2820 L332 2815C344 2813,588 2773,875 2725 L1395 2640 2540 2823 C3601 2993,3679 3007,3610 3012 C3568 3015,3384 3028,3200 3041 L2865 3063 1587 2946 L310 2830M2755 2792 C2159 2689,1669 2602,1666 2599 C1663 2597,1998 2538,2409 2469 L3158 2343 3959 2628 C4400 2786,4757 2915,4753 2917 C4743 2919,3889 2980,3860 2980 C3849 2980,3352 2895,2755 2792 M4725 2865 L4720 2860 L3950 2588L3180 2317 3180 1492 C3180 1039,3183 669,3188 671 C3192 673,3563 1018,4013 1438 L4830 2202 4830 2551 C4830 2743,4826 2900,4821 2900 C4816 2900,4793 2893,4771 2885 L4730 2870M200 2311 L199 1812 767 1586 C1079 1462,1342 1357,1352 1354 C1369 1348,1370 1366,1367 1679 L1365 2011 1260 2050 C1202 2072,1103 2115,1040 2145 C977 2175,919 2198,911 2195 C903 2192,886 2196,873 2205 C839 2227,841 2276,875 2292 C905 2305,929 2295,944 2262 C958 2231,1149 2137,1317 2079 L1370 2061 1370 2338 L1370 2615 810 2707 C502 2758,238 2802,225 2805 L200 2810 200 2311 M580 2420 L570 2420 L570 2410 L577 2410C581 2410,600 2409,620 2407 L655 2405 657 2285 C659 2220,656 2162,652 2158 C647 2153,629 2154,611 2161 C593 2167,576 2169,573 2166 C569 2163,588 2151,614 2140 C640 2129,672 2117,685 2113 L710 2107 710 2258 L710 2410 755 2410 C779 2410,800 2414,800 2420 C800 2426,760 2430,700 2430 C645 2430,595 2430,590 2430 L580 2430M300 2070 L290 2070 L295 2000L300 1930L310 1930 L310 1920 L315 1920C317 1920,322 1920,325 1920 L330 1920L340 1920 L340 1910 L345 1910C347 1910,352 1910,355 1910 L360 1910L370 1910 L370 1900 375 1895 L390 1900 400 1900 L400 1890 405 1885 L420 1890 L420 1880 L425 1880C427 1880,432 1880,435 1880 L440 1880L450 1880 L450 1870 L455 1870C457 1870,462 1870,465 1870 L470 1870L480 1870 L480 1860 L485 1860C487 1860,492 1860,495 1860 L500 1860L510 1860 L510 1850 515 1845 L530 1850 L530 1860 525 1865 L510 1860 L510 1870 505 1875 L490 1870 480 1870 L480 1880 475 1885 L460 1880 450 1880 L450 1890 445 1895 L430 1890 420 1890 L420 1900 415 1905 L400 1900 L400 1910 395 1915 L380 1910 370 1910 L370 1920 365 1925 L350 1920 340 1920 L340 1930 335 1935 L320 1930 L315 1930C312 1930,310 1932,310 1935 L310 1940L310 1940 L305 1940C302 1940,300 1967,300 2000 C300 2033,302 2060,305 2060 C307 2060,312 2060,315 2060 L320 2060L330 2060 L330 2050 335 2045 L350 2050 360 2050 L360 2040 365 2035 L380 2040 390 2040 L390 2030 395 2025 L410 2030 420 2030 L420 2020 425 2015 L440 2020 450 2020 L450 2010 455 2005 L470 2010 480 2010 L480 2000 485 1995 L500 2000 510 2000 L510 1990 515 1985 L530 1990 540 1990 L540 1980 545 1975 L560 1980 570 1980 L570 1970 575 1965 L590 1970 600 1970 L600 1960 605 1955 L620 1960 630 1960 L630 1950 635 1945 L650 1950 660 1950 L660 1940 665 1935 L680 1940 690 1940 L690 1930 L695 1930C697 1930,702 1930,705 1930 L710 1930L720 1930 L720 1920 L725 1920C727 1920,732 1920,735 1920 L740 1920L750 1920 L750 1910 L755 1910C757 1910,762 1910,765 1910 L770 1910L780 1910 L780 1915C780 1917,787 1919,797 1919 C807 1918,809 1916,802 1914 L790 1910L790 1900 795 1895 L810 1900 L810 1905C810 1907,817 1909,827 1909 C837 1908,839 1906,832 1904 L820 1900L820 1890 825 1885 L840 1890 L840 1895C840 1897,847 1899,857 1899 C867 1898,869 1896,862 1894 L850 1890L850 1880 855 1875 L870 1880 L870 1885C870 1887,877 1889,887 1889 C897 1888,899 1886,892 1884 L880 1880L880 1870 885 1865 L900 1870 L900 1875C900 1877,907 1879,917 1879 C927 1878,929 1876,922 1874 L910 1870L910 1860 915 1855 L930 1860 L930 1865C930 1867,937 1869,947 1869 C957 1868,959 1866,952 1864 L940 1860L940 1850 945 1845 L960 1850 L960 1855C960 1857,967 1859,977 1859 C987 1858,989 1856,982 1854 L970 1850L970 1840 975 1835 L990 1840 L990 1845C990 1847,997 1849,1007 1849 C1017 1848,1019 1846,1012 1844 L1000 1840L1000 1830 1005 1825 L1020 1830 L1020 1835C1020 1837,1027 1839,1037 1839 C1047 1838,1049 1836,1042 1834 L1030 1830L1030 1820 1035 1815 L1050 1820 L1065 1825L1080 1830L1080 1840 1075 1845 L1060 1840 1050 1840 L1050 1850 1045 1855 L1030 1850 1020 1850 L1020 1860 1015 1865 L1000 1860 990 1860 L990 1870 985 1875 L970 1870 960 1870 L960 1880 L955 1880C952 1880,947 1880,945 1880 L940 1880L930 1880 L930 1890 L925 1890C922 1890,917 1890,915 1890 L910 1890L900 1890 L900 1900 L895 1900C892 1900,887 1900,885 1900 L880 1900L870 1900 L870 1910 L865 1910C862 1910,857 1910,855 1910 L850 1910L840 1910 L840 1920 L835 1920C832 1920,827 1920,825 1920 L820 1920L810 1920 L810 1930 L805 1930C802 1930,797 1930,795 1930 L790 1930L780 1930 L780 1940 L775 1940C772 1940,767 1940,765 1940 L760 1940L750 1940 L750 1950 L745 1950C742 1950,737 1950,735 1950 L730 1950L720 1950 L720 1960 L715 1960C712 1960,707 1960,705 1960 L700 1960L690 1960 L690 1970 L685 1970C682 1970,677 1970,675 1970 L670 1970L660 1970 L660 1980 L655 1980C652 1980,647 1980,645 1980 L640 1980L630 1980 L619 1973C613 1970,606 1970,602 1973 C599 1977,601 1980,608 1980 L620 1980L620 1990 615 1995 L600 1990 L589 1983C583 1980,576 1980,572 1983 C569 1987,571 1990,578 1990 L590 1990L590 2000 585 2005 L570 2000 560 2000 L560 2010 555 2015 L540 2010 530 2010 L530 2020 525 2025 L510 2020 500 2020 L500 2030 L495 2030C492 2030,487 2030,485 2030 L480 2030L470 2030 L470 2040 L465 2040C462 2040,457 2040,455 2040 L450 2040L440 2040 L440 2050 L435 2050C432 2050,427 2050,425 2050 L420 2050L410 2050 L410 2060 L405 2060C402 2060,397 2060,395 2060 L390 2060L380 2060 L380 2070 L375 2070C372 2070,367 2070,365 2070 L360 2070L350 2070 L350 2080 L335 2080C326 2080,317 2080,315 2080 C312 2080,307 2080,305 2080 L300 2080M696 1945 C733 1931,768 1920,774 1920 C786 1921,654 1970,640 1970 C634 1970,660 1958,696 1945 M540 1840 L545 1835 L560 1840 L560 1830 L565 1830C567 1830,572 1830,575 1830 L580 1830L590 1830 L590 1820 L595 1820C597 1820,602 1820,605 1820 L610 1820L620 1820 L620 1810 L625 1810C627 1810,632 1810,635 1810 L640 1810L650 1810 L650 1800 655 1795 L670 1800 L670 1810 665 1815 L650 1810 L650 1820 645 1825 L630 1820 620 1820 L620 1830 615 1835 L600 1830 590 1830 L590 1840 585 1845 L570 1840 560 1840 L560 1850 555 1855 L540 1850 M1150 1780 L1155 1775 L1170 1780 1180 1780 L1180 1770 1185 1765 L1200 1770 L1200 1760 L1200 1740C1200 1729,1200 1697,1200 1670 C1200 1642,1195 1620,1190 1620 C1184 1620,1180 1622,1180 1625 L1180 1630L1182 1627 1175 1635 L1160 1630 1150 1630 L1150 1640 1145 1645 L1130 1640 1120 1640 L1120 1650 1115 1655 L1100 1650 1090 1650 L1090 1660 1085 1665 L1070 1660 L1070 1650 1075 1645 L1090 1650 L1090 1640 L1095 1640C1097 1640,1102 1640,1105 1640 L1110 1640L1120 1640 L1120 1630 L1125 1630C1127 1630,1132 1630,1135 1630 L1140 1630L1150 1630 L1150 1620 L1155 1620C1157 1620,1162 1620,1165 1620 L1170 1620L1185 1625 L1180 1610 1185 1605 L1200 1610 L1215 1605 1220 1610 L1215 1625 L1230 1620 L1240 1620 L1240 1675C1240 1705,1240 1732,1240 1735 C1240 1737,1240 1749,1240 1760 L1240 1780L1230 1780 L1230 1790 1225 1795 L1210 1790 L1210 1800 L1205 1800C1202 1800,1197 1800,1195 1800 L1190 1800L1180 1800 L1180 1810 L1175 1810C1172 1810,1167 1810,1165 1810 L1160 1810L1150 1810 L1150 1820 L1145 1820C1142 1820,1137 1820,1135 1820 L1130 1820L1120 1820 L1120 1830 L1115 1830C1112 1830,1107 1830,1105 1830 L1100 1830L1090 1830 L1092 1826C1093 1824,1115 1815,1140 1807 C1164 1798,1177 1791,1167 1790 L1150 1790M1210 1630 L1210 1625C1210 1622,1212 1620,1215 1620 C1217 1620,1220 1622,1220 1625 L1220 1630L1220 1630 L1225 1630C1227 1630,1230 1661,1230 1700 C1230 1738,1227 1770,1225 1770 L1220 1770L1220 1770 L1214 1707C1211 1673,1209 1641,1209 1637 L1210 1630M680 1790 L685 1785 L700 1790 L700 1780 L705 1780C707 1780,712 1780,715 1780 L720 1780L730 1780 L730 1770 L735 1770C737 1770,742 1770,745 1770 L750 1770L760 1770 L760 1760 L765 1760C767 1760,772 1760,775 1760 L780 1760L790 1760 L790 1750 795 1745 L810 1750 L810 1760 805 1765 L790 1760 L790 1770 785 1775 L770 1770 760 1770 L760 1780 755 1785 L740 1780 730 1780 L730 1790 725 1795 L710 1790 700 1790 L700 1800 695 1805 L680 1800 M820 1740 L825 1735 L840 1740 L840 1730 L845 1730C847 1730,852 1730,855 1730 L860 1730L870 1730 L870 1720 L875 1720C877 1720,882 1720,885 1720 L890 1720L900 1720 L900 1710 905 1705 L920 1710 L920 1720 915 1725 L900 1720 L900 1730 895 1735 L880 1730 870 1730 L870 1740 865 1745 L850 1740 840 1740 L840 1750 835 1755 L820 1750 M930 1700 L935 1695 L950 1700 L950 1690 L955 1690C957 1690,962 1690,965 1690 L970 1690L980 1690 L980 1680 L985 1680C987 1680,992 1680,995 1680 L1000 1680L1010 1680 L1010 1670 L1015 1670C1017 1670,1022 1670,1025 1670 L1030 1670L1040 1670 L1040 1660 1045 1655 L1060 1660 L1060 1670 1055 1675 L1040 1670 L1040 1680 1035 1685 L1020 1680 1010 1680 L1010 1690 1005 1695 L990 1690 980 1690 L980 1700 975 1705 L960 1700 950 1700 L950 1710 945 1715 L930 1710 M2190 2740 L2175 2740C2166 2740,2157 2740,2155 2740 C2152 2740,2150 2737,2150 2735 L2150 2730L2150 2730 L2060 2715L1970 2700L1970 2700 L1950 2700L1930 2700L1920 2700 L1915 2700C1912 2700,1907 2700,1905 2700 L1900 2700L1900 2690 L1885 2690L1870 2690L1860 2690 L1855 2690C1852 2690,1847 2690,1845 2690 L1840 2690L1840 2680 L1825 2680L1810 2680L1800 2680 L1795 2680C1792 2680,1787 2680,1785 2680 L1780 2680L1780 2670 L1765 2670L1750 2670L1740 2670 L1735 2670C1732 2670,1727 2670,1725 2670 L1720 2670L1720 2660 L1700 2660L1680 2660L1670 2660 L1665 2660C1662 2660,1657 2660,1655 2660 L1650 2660L1650 2650 L1635 2650L1620 2650L1610 2650 L1605 2650C1602 2650,1597 2650,1595 2650 L1590 2650L1590 2640 L1577 2640C1570 2640,1529 2634,1485 2627 L1405 2614 1402 2332 L1399 2050 1442 2039 C1465 2033,1492 2026,1502 2023 C1518 2019,1519 2039,1522 2316 L1525 2615 1555 2617 C1571 2619,1588 2620,1592 2620 L1600 2620L1605 2625 L1610 2630 L1625 2630L1640 2630L1650 2630 1655 2635 L1660 2640 L1680 2640L1700 2640L1705 2645 L1710 2650 L1730 2650L1750 2650L1760 2650 1765 2655 L1770 2660 L1790 2660L1810 2660L1820 2660 1825 2665 L1830 2670 L1850 2670L1870 2670L1880 2670 1885 2675 L1890 2680 L1910 2680L1930 2680L1940 2680 1945 2685 L1950 2690 L1970 2690L1990 2690L1990 2690 L2075 2705L2160 2720L2160 2720 L2165 2720C2169 2720,2175 2722,2180 2725 L2190 2730L2190 2730 L2197 2729C2201 2729,2305 2746,2428 2767 C2550 2787,2646 2806,2640 2808 C2635 2809,2543 2797,2437 2780 C2331 2763,2232 2747,2217 2744 L2190 2740M1550 2295 L1550 2010 1587 2001 C1608 1995,1672 1981,1730 1970 C1787 1958,1845 1946,1858 1943 C1881 1939,1882 1940,1877 1984 C1874 2010,1875 2029,1878 2027 C1909 2014,2130 1886,2134 1880 C2137 1876,2073 1860,1992 1844 C1911 1829,1840 1814,1835 1811 C1830 1808,1836 1822,1848 1841 C1860 1861,1870 1881,1870 1886 C1870 1891,1804 1907,1723 1923 C1642 1939,1570 1954,1563 1957 C1551 1961,1550 1905,1552 1618 L1555 1275 1875 1148 C2136 1045,2195 1024,2198 1037 C2202 1053,2173 1083,2147 1092 C2138 1095,2139 1104,2149 1130 C2157 1149,2164 1166,2165 1168 C2166 1169,2183 1164,2203 1156 C2247 1137,2259 1114,2260 1048 L2260 995 2682 827 C2914 735,3112 657,3122 654 C3139 648,3139 691,3139 1481 L3139 2315 2369 2442 C1946 2512,1588 2572,1575 2575 L1550 2580 1550 2295 M2240 2030 C2240 2017,2270 1990,2332 1947 C2436 1875,2470 1834,2470 1780 C2470 1726,2451 1708,2394 1702 C2332 1697,2290 1712,2290 1739 C2290 1751,2283 1760,2275 1760 C2253 1760,2254 1694,2275 1686 C2305 1674,2450 1679,2482 1693 C2526 1711,2542 1732,2542 1776 C2542 1828,2517 1856,2399 1935 L2295 2005 2428 2007 C2540 2010,2560 2012,2555 2025 C2551 2037,2518 2041,2395 2045 C2247 2049,2240 2049,2240 2030 M1690 1640 L1680 1645 1670 1640 L1670 1630 1660 1630 L1660 1630 L1660 1585C1660 1560,1660 1537,1660 1535 C1660 1532,1660 1521,1660 1510 L1660 1490L1660 1490 L1663 1485C1665 1482,1669 1480,1673 1480 L1680 1480L1690 1480 L1690 1470 L1695 1470C1697 1470,1702 1470,1705 1470 L1710 1470L1720 1470 L1720 1460 L1725 1460C1727 1460,1732 1460,1735 1460 L1740 1460L1750 1460 L1750 1450 1755 1445 L1770 1450 L1770 1460 1765 1465 L1750 1460 L1750 1470 1745 1475 L1730 1470 1720 1470 L1720 1480 1715 1485 L1700 1480 1690 1480 L1690 1490 1685 1495 L1670 1490 L1670 1500 L1670 1535C1670 1554,1670 1572,1670 1575 C1670 1577,1670 1586,1670 1595 L1670 1610L1670 1620 L1675 1620C1677 1620,1682 1620,1685 1620 L1690 1620L1690 1610 1695 1605 L1710 1610 1720 1610 L1720 1600 1725 1595 L1740 1600 1750 1600 L1750 1590 1755 1585 L1770 1590 1780 1590 L1780 1580 1785 1575 L1800 1580 L1805 1583C1807 1585,1783 1594,1750 1604 C1717 1614,1690 1627,1690 1632 C1690 1637,1695 1640,1702 1637 C1709 1634,1737 1625,1765 1616 C1792 1607,1818 1600,1822 1600 L1830 1600L1830 1610 1825 1615 L1810 1610 1800 1610 L1800 1620 L1795 1620C1792 1620,1787 1620,1785 1620 L1780 1620L1770 1620 L1770 1630 L1765 1630C1762 1630,1757 1630,1755 1630 L1750 1630L1740 1630 L1740 1640 L1735 1640C1732 1640,1727 1640,1725 1640 L1720 1640L1710 1640 L1710 1650 L1705 1650C1702 1650,1697 1650,1695 1650 L1690 1650M2080 1530 L2075 1530C2072 1530,2067 1530,2065 1530 L2060 1530L2050 1530 L2050 1540 L2045 1540C2042 1540,2037 1540,2035 1540 L2030 1540L2020 1540 L2020 1550 L2015 1550C2012 1550,2007 1550,2005 1550 L2000 1550L1990 1550 L1992 1546C1993 1544,2010 1537,2028 1531 C2047 1525,2066 1520,2071 1520 L2080 1520M1810 1430 L1815 1425 L1830 1430 L1830 1420 L1835 1420C1837 1420,1842 1420,1845 1420 L1850 1420L1860 1420 L1860 1410 L1865 1410C1867 1410,1872 1410,1875 1410 L1880 1410L1890 1410 L1890 1400 L1895 1400C1897 1400,1902 1400,1905 1400 L1910 1400L1915 1415 L1900 1410 1890 1410 L1890 1420 1885 1425 L1870 1420 1860 1420 L1860 1430 1855 1435 L1840 1430 1830 1430 L1830 1440 1825 1445 L1810 1440 M1400 1675 C1400 1496,1402 1350,1405 1350 C1425 1350,1450 1374,1459 1404 C1470 1435,1473 1438,1495 1429 L1520 1420 1520 1694 L1520 1969 1480 1979 C1389 2003,1400 2042,1400 1675 M1447 1090 C1398 1050,1337 907,1324 806 C1312 709,1353 646,1413 669 C1520 710,1616 1019,1544 1094 C1524 1115,1474 1114,1447 1090 " />
+<path d="M270 1656 C270 1654,227 1530,174 1379 C79 1104,75 1084,118 1092 C131 1094,324 1631,314 1637 C299 1646,270 1659,270 1656 " />
+<path d="M338 1318 C251 1060,248 1046,265 1033 C292 1013,295 1015,309 1062 L322 1105 335 1055 C360 956,431 931,499 999 L538 1038 545 987 C554 922,592 880,641 880 C681 879,717 910,753 972 C785 1027,912 1389,905 1406 C902 1414,892 1420,881 1420 C866 1420,852 1390,805 1253 C733 1045,726 1029,694 991 C663 953,622 949,594 981 C579 997,575 1016,575 1068 C576 1121,587 1166,632 1295 C662 1383,691 1462,695 1472 C700 1485,695 1492,678 1498 C662 1504,652 1503,648 1496 C645 1490,616 1410,585 1320 C520 1134,488 1065,460 1050 C403 1019,360 1062,359 1148 C359 1191,374 1247,422 1387 C470 1529,482 1572,472 1580 C438 1606,430 1590,338 1318 " />
+<path d="M1024 1329 C991 1301,955 1228,941 1161 C920 1062,955 1000,1055 961 C1112 938,1116 918,1074 863 C1030 805,971 808,903 871 L872 901 861 869 C848 831,857 810,900 779 C968 731,1026 734,1083 788 C1124 826,1149 881,1220 1083 C1270 1227,1279 1263,1268 1271 C1243 1287,1231 1280,1219 1242 C1212 1221,1204 1211,1202 1220 C1184 1286,1165 1321,1139 1335 C1098 1355,1054 1353,1024 1329 M1044 1258 C1020 1242,990 1169,990 1127 C989 1080,1017 1050,1083 1024 C1139 1003,1143 1006,1159 1082 C1177 1166,1170 1217,1135 1253 C1117 1272,1067 1275,1044 1258 " />
+<path d="M1765 1064 C1753 1059,1730 1010,1730 989 C1730 986,1752 985,1779 987 C1876 997,1930 947,1909 869 C1895 816,1866 799,1773 791 C1701 784,1694 781,1664 747 C1612 686,1593 580,1624 520 C1642 485,1712 450,1763 450 C1796 450,1802 453,1815 484 C1835 532,1834 533,1794 525 C1746 516,1673 549,1664 584 C1656 617,1664 651,1688 680 C1703 699,1720 705,1785 711 C1879 720,1904 736,1943 810 C1991 904,1970 998,1891 1042 C1857 1061,1788 1073,1765 1064 " />
+<path d="M29 962 C6 903,6 882,29 875 C56 866,53 863,73 924 C90 976,90 977,60 985 C45 988,37 983,29 962 " />
+<path d="M2359 538 C2273 282,2269 265,2285 253 C2312 233,2315 235,2329 282 L2343 325 2356 275 C2371 214,2407 180,2454 179 C2529 179,2567 239,2660 506 C2729 704,2732 724,2691 717 C2683 716,2658 661,2633 590 C2546 341,2537 319,2509 289 C2475 252,2438 251,2404 284 C2361 327,2369 393,2442 607 C2490 749,2502 792,2492 800 C2458 826,2450 811,2359 538 " />
+<path d="M2861 610 C2751 532,2659 262,2701 138 C2723 74,2783 29,2849 30 C2880 30,2910 59,2910 91 C2910 105,2901 108,2866 106 C2816 104,2773 128,2758 168 C2721 264,2806 502,2893 543 C2937 564,2970 557,3009 518 C3025 502,3040 490,3043 490 C3045 490,3053 504,3059 521 C3068 549,3067 556,3047 577 C2996 632,2913 646,2861 610 " />
+</g>
+<g id="layer102" fill="#373749" fill-rule="evenodd">
+<path d="M2242 1432 L2247 1427 L2260 1430 2270 1430 L2272 1422 2277 1417 L2290 1420 2300 1420 L2302 1412 2307 1407 L2320 1410 2330 1410 L2330 1400 L2335 1400C2337 1400,2342 1400,2345 1400 L2350 1400L2360 1400 L2360 1390 L2365 1390C2367 1390,2372 1390,2375 1390 L2380 1390L2390 1390 L2390 1380 L2395 1380C2397 1380,2402 1380,2405 1380 L2410 1380L2420 1380 L2420 1370 L2425 1370C2427 1370,2432 1370,2435 1370 L2440 1370L2450 1370 L2450 1360 L2455 1360C2457 1360,2462 1360,2465 1360 L2470 1360L2480 1360 L2480 1362C2480 1364,2423 1384,2353 1407 C2284 1430,2230 1446,2233 1444 L2240 1440" />
+<path d="M2380 1420 L2392 1415C2399 1412,2431 1401,2464 1390 C2496 1379,2526 1370,2531 1370 L2540 1370L2540 1380 L2535 1380C2532 1380,2527 1380,2525 1380 L2520 1380L2510 1380 L2510 1390 L2505 1390C2502 1390,2497 1390,2495 1390 L2490 1390L2480 1390 L2480 1400 L2475 1400C2472 1400,2467 1400,2465 1400 L2460 1400L2450 1400 L2450 1410 L2445 1410C2442 1410,2437 1410,2435 1410 L2430 1410L2420 1410 L2420 1420 L2415 1420C2412 1420,2407 1420,2405 1420 L2400 1420L2390 1420 L2387 1427 2382 1427 " />
+<path d="M2550 1370 L2562 1363C2569 1359,2612 1344,2659 1328 C2705 1312,2747 1300,2751 1300 L2760 1300L2760 1310 L2755 1310C2752 1310,2747 1310,2745 1310 L2740 1310L2730 1310 L2730 1320 L2725 1320C2722 1320,2717 1320,2715 1320 L2710 1320L2700 1320 L2700 1330 L2695 1330C2692 1330,2687 1330,2685 1330 L2680 1330L2670 1330 L2670 1340 L2665 1340C2662 1340,2657 1340,2655 1340 L2650 1340L2640 1340 L2640 1350 L2635 1350C2632 1350,2627 1350,2625 1350 L2620 1350L2610 1350 L2610 1360 L2605 1360C2602 1360,2597 1360,2595 1360 L2590 1360L2580 1360 L2580 1370 L2565 1370L2550 1370" />
+<path d="M2280 1270 L2305 1260L2330 1250L2340 1250 L2340 1240 L2345 1240C2347 1240,2352 1240,2355 1240 L2360 1240L2370 1240 L2370 1230 L2375 1230C2377 1230,2382 1230,2385 1230 L2390 1230L2400 1230 L2400 1220 L2405 1220C2407 1220,2412 1220,2415 1220 L2420 1220L2430 1220 L2430 1210 L2435 1210C2437 1210,2442 1210,2445 1210 L2450 1210L2460 1210 L2460 1200 L2465 1200C2467 1200,2472 1200,2475 1200 L2480 1200L2477 1207 2472 1212 L2460 1210 L2460 1220 L2455 1220C2452 1220,2447 1220,2445 1220 L2440 1220L2430 1220 L2427 1227 2422 1232 L2410 1230 2400 1230 L2397 1237 2392 1242 L2380 1240 2370 1240 L2367 1247 2362 1252 L2350 1250 2340 1250 L2337 1257 2332 1262 L2325 1265 L2320 1270 L2315 1270C2312 1270,2307 1270,2305 1270 L2300 1270L2295 1275 L2287 1277 2282 1277 " />
+<path d="M2890 1250 L2895 1250C2897 1250,2900 1247,2900 1245 L2900 1240L2900 1230 L2900 1185C2900 1160,2900 1137,2900 1135 C2900 1132,2900 1121,2900 1110 L2900 1090L2900 1080 L2905 1080C2907 1080,2910 1120,2910 1170 C2910 1219,2907 1260,2905 1260 C2902 1260,2897 1260,2895 1260 L2890 1260" />
+<path d="M2490 1190 L2498 1190C2502 1190,2508 1187,2511 1185 C2514 1182,2519 1180,2523 1180 L2530 1180L2540 1180 L2540 1170 L2545 1170C2547 1170,2552 1170,2555 1170 L2560 1170L2570 1170 L2570 1160 L2575 1160C2577 1160,2582 1160,2585 1160 L2590 1160L2600 1160 L2600 1150 L2605 1150C2607 1150,2612 1150,2615 1150 L2620 1150L2630 1150 L2630 1140 L2635 1140C2637 1140,2642 1140,2645 1140 L2650 1140L2647 1147 2642 1152 L2630 1150 L2630 1160 L2625 1160C2622 1160,2617 1160,2615 1160 L2610 1160L2600 1160 L2597 1167 2592 1172 L2580 1170 2570 1170 L2567 1177 2562 1182 L2550 1180 2540 1180 L2537 1187 2532 1192 L2520 1190 2508 1188 L2510 1190 L2510 1195C2510 1197,2507 1200,2505 1200 L2500 1200L2495 1195 " />
+</g>
+<g id="layer103" fill="#60607b" fill-rule="evenodd">
+<path d="M1210 1620 L1215 1620C1217 1620,1220 1622,1220 1625 L1220 1630L1220 1630 L1225 1630C1227 1630,1230 1661,1230 1700 C1230 1738,1227 1770,1225 1770 L1220 1770L1220 1770 L1215 1700L1210 1630" />
+<path d="M1180 1630 L1180 1625C1180 1622,1184 1620,1190 1620 C1195 1620,1200 1650,1200 1690 C1200 1728,1197 1760,1195 1760 L1190 1760L1190 1760 L1190 1715C1190 1690,1190 1666,1190 1662 C1190 1658,1187 1649,1185 1642 L1180 1630" />
+<path d="M1660 1490 L1660 1510C1660 1521,1660 1532,1660 1535 C1660 1537,1660 1560,1660 1585 L1660 1630L1660 1630 L1655 1630C1652 1630,1650 1598,1650 1560 C1650 1521,1652 1490,1655 1490 L1660 1490" />
+<path d="M2875 1085 L2880 1090 L2880 1110C2880 1121,2880 1132,2880 1135 C2880 1137,2880 1160,2880 1185 L2880 1230L2870 1230 L2870 1155L2870 1080" />
+</g>
+<g id="layer104" fill="#8686bf" fill-rule="evenodd">
+<path d="M200 2311 L199 1812 767 1586 C1079 1462,1342 1357,1352 1354 C1369 1348,1370 1366,1367 1679 L1365 2011 1260 2050 C1202 2072,1103 2115,1040 2145 C977 2175,919 2198,911 2195 C903 2192,886 2196,873 2205 C839 2227,841 2276,875 2292 C905 2305,929 2295,944 2262 C958 2231,1149 2137,1317 2079 L1370 2061 1370 2338 L1370 2615 810 2707 C502 2758,238 2802,225 2805 L200 2810 200 2311 M560 2420 C560 2415,581 2409,607 2408 L655 2405 657 2285 C659 2220,656 2162,652 2158 C647 2153,629 2154,611 2161 C593 2167,576 2169,573 2166 C566 2160,643 2124,685 2113 L710 2107 710 2258 L710 2410 755 2410 C779 2410,800 2414,800 2420 C800 2426,753 2430,680 2430 C611 2430,560 2425,560 2420 M304 2084 C292 2079,289 2063,292 2002 L295 1927 748 1764 C1002 1673,1209 1604,1220 1607 C1237 1611,1239 1621,1240 1700 L1240 1788 900 1899 C713 1960,506 2028,440 2050 C374 2072,313 2087,304 2084 " />
+<path d="M1550 2295 L1550 2010 1587 2001 C1608 1995,1672 1981,1730 1970 C1787 1958,1845 1946,1858 1943 C1881 1939,1882 1940,1877 1984 C1874 2010,1875 2029,1878 2027 C1909 2014,2130 1886,2134 1880 C2137 1876,2073 1860,1992 1844 C1911 1829,1840 1814,1835 1811 C1830 1808,1836 1822,1848 1841 C1860 1861,1870 1881,1870 1886 C1870 1891,1804 1907,1723 1923 C1642 1939,1570 1954,1563 1957 C1551 1961,1550 1905,1552 1618 L1555 1275 1875 1148 C2136 1045,2195 1024,2198 1037 C2202 1053,2173 1083,2147 1092 C2138 1095,2139 1104,2149 1130 C2157 1149,2164 1166,2165 1168 C2166 1169,2183 1164,2203 1156 C2247 1137,2259 1114,2260 1048 L2260 995 2682 827 C2914 735,3112 657,3122 654 C3139 648,3139 691,3139 1481 L3139 2315 2369 2442 C1946 2512,1588 2572,1575 2575 L1550 2580 1550 2295 M2240 2030 C2240 2017,2270 1990,2332 1947 C2436 1875,2470 1834,2470 1780 C2470 1726,2451 1708,2394 1702 C2332 1697,2290 1712,2290 1739 C2290 1751,2283 1760,2275 1760 C2253 1760,2254 1694,2275 1686 C2305 1674,2450 1679,2482 1693 C2526 1711,2542 1732,2542 1776 C2542 1828,2517 1856,2399 1935 L2295 2005 2428 2007 C2540 2010,2560 2012,2555 2025 C2551 2037,2518 2041,2395 2045 C2247 2049,2240 2049,2240 2030 M1660 1630 L1655 1630C1652 1630,1650 1598,1650 1560 C1650 1521,1652 1490,1655 1490 L1660 1490L1660 1490 L1663 1484C1665 1481,1801 1432,1964 1374 C2127 1317,2265 1269,2270 1270 L2280 1270L2280 1270 L2305 1260L2330 1250L2335 1245 L2340 1240 L2345 1240C2347 1240,2352 1240,2355 1240 L2360 1240L2365 1235 L2370 1230 L2375 1230C2377 1230,2382 1230,2385 1230 L2390 1230L2395 1225 L2400 1220 L2405 1220C2407 1220,2412 1220,2415 1220 L2420 1220L2425 1215 L2430 1210 L2435 1210C2437 1210,2442 1210,2445 1210 L2450 1210L2455 1205 L2460 1200 L2465 1200C2467 1200,2472 1200,2475 1200 L2480 1200L2485 1195 L2490 1190 L2498 1190C2502 1190,2508 1187,2511 1185 C2514 1182,2519 1180,2523 1180 L2530 1180L2535 1175 L2540 1170 L2545 1170C2547 1170,2552 1170,2555 1170 L2560 1170L2565 1165 L2570 1160 L2575 1160C2577 1160,2582 1160,2585 1160 L2590 1160L2595 1155 L2600 1150 L2605 1150C2607 1150,2612 1150,2615 1150 L2620 1150L2625 1145 L2630 1140 L2635 1140C2637 1140,2642 1140,2645 1140 L2650 1140L2650 1130 L2657 1129C2661 1129,2709 1114,2763 1094 C2818 1075,2870 1062,2881 1065 C2891 1068,2900 1073,2900 1075 L2900 1080L2900 1080 L2905 1080C2907 1080,2910 1120,2910 1170 C2910 1219,2907 1260,2905 1260 C2902 1260,2897 1260,2895 1260 L2890 1260L2890 1260 L2830 1285L2770 1310L2760 1310 L2755 1310C2752 1310,2747 1310,2745 1310 L2740 1310L2735 1315 L2730 1320 L2725 1320C2722 1320,2717 1320,2715 1320 L2710 1320L2705 1325 L2700 1330 L2695 1330C2692 1330,2687 1330,2685 1330 L2680 1330L2675 1335 L2670 1340 L2665 1340C2662 1340,2657 1340,2655 1340 L2650 1340L2645 1345 L2640 1350 L2635 1350C2632 1350,2627 1350,2625 1350 L2620 1350L2615 1355 L2610 1360 L2605 1360C2602 1360,2597 1360,2595 1360 L2590 1360L2585 1365 L2580 1370 L2565 1370L2550 1370L2545 1375 L2540 1380 L2535 1380C2532 1380,2527 1380,2525 1380 L2520 1380L2515 1385 L2510 1390 L2505 1390C2502 1390,2497 1390,2495 1390 L2490 1390L2485 1395 L2480 1400 L2475 1400C2472 1400,2467 1400,2465 1400 L2460 1400L2455 1405 L2450 1410 L2445 1410C2442 1410,2437 1410,2435 1410 L2430 1410L2425 1415 L2420 1420 L2415 1420C2412 1420,2407 1420,2405 1420 L2400 1420L2395 1425 L2387 1427 2382 1427 L2370 1430 L2037 1540C1829 1609,1696 1648,1682 1645 C1670 1642,1660 1637,1660 1634 L1660 1630M2235 1445 L2235 1445 L2250 1450 L2250 1440 L2255 1440C2257 1440,2262 1440,2265 1440 L2270 1440L2280 1440 L2280 1430 L2285 1430C2287 1430,2292 1430,2295 1430 L2300 1430L2310 1430 L2310 1420 L2315 1420C2317 1420,2322 1420,2325 1420 L2330 1420L2340 1420 L2340 1410 L2345 1410C2347 1410,2352 1410,2355 1410 L2360 1410L2370 1410 L2370 1400 L2375 1400C2377 1400,2382 1400,2385 1400 L2390 1400L2400 1400 L2400 1390 L2405 1390C2407 1390,2412 1390,2415 1390 L2420 1390L2430 1390 L2430 1380 L2435 1380C2437 1380,2442 1380,2445 1380 L2450 1380L2460 1380 L2460 1370 L2465 1370C2467 1370,2472 1370,2475 1370 L2480 1370L2490 1370 L2620 1320L2750 1270L2750 1260 2760 1260 L2760 1270 L2775 1265L2790 1260L2780 1260 L2780 1255C2780 1252,2782 1250,2785 1250 L2790 1250L2790 1260 L2835 1245L2880 1230L2880 1230 L2885 1230C2887 1230,2892 1230,2895 1230 L2900 1230L2897 1227 2900 1240 L2890 1240 L2882 1248C2878 1253,2852 1264,2825 1273 C2798 1282,2772 1290,2768 1290 L2760 1290L2760 1300 L2745 1300L2730 1300L2720 1300 L2720 1310 L2715 1310C2712 1310,2707 1310,2705 1310 L2700 1310L2690 1310 L2690 1320 L2685 1320C2682 1320,2677 1320,2675 1320 L2670 1320L2660 1320 L2660 1330 L2655 1330C2652 1330,2647 1330,2645 1330 L2640 1330L2630 1330 L2630 1340 L2625 1340C2622 1340,2617 1340,2615 1340 L2610 1340L2600 1340 L2600 1350 L2595 1350C2592 1350,2587 1350,2585 1350 L2580 1350L2570 1350 L2570 1360 L2565 1360C2562 1360,2557 1360,2555 1360 L2550 1360L2540 1360 L2540 1370 L2525 1370L2510 1370L2500 1370 L2500 1380 L2495 1380C2492 1380,2487 1380,2485 1380 L2480 1380L2470 1380 L2470 1390 L2465 1390C2462 1390,2457 1390,2455 1390 L2450 1390L2440 1390 L2440 1400 L2435 1400C2432 1400,2427 1400,2425 1400 L2420 1400L2410 1400 L2410 1410 L2405 1410C2402 1410,2397 1410,2395 1410 L2390 1410L2380 1410 L2390 1425 L2370 1420 L2307 1439C2273 1450,2124 1497,1976 1545 C1828 1592,1706 1629,1704 1627 C1702 1625,1816 1586,1957 1540 C2099 1493,2216 1454,2217 1453 L2220 1450" />
+</g>
+<g id="layer105" fill="#afafde" fill-rule="evenodd">
+<path d="M1544 2942 C861 2877,319 2822,331 2818 C344 2814,588 2772,875 2725 L1395 2640 2540 2824 C3169 2925,3673 3008,3660 3009 C3646 3009,3480 3021,3292 3035 C3104 3048,2911 3060,2865 3060 C2818 3060,2223 3007,1544 2942 " />
+<path d="M2755 2792 C2159 2689,1669 2602,1666 2599 C1663 2597,1998 2538,2409 2469 L3158 2343 3959 2628 C4400 2786,4757 2915,4753 2917 C4743 2919,3889 2980,3860 2980 C3849 2980,3352 2895,2755 2792 " />
+<path d="M2155 2725 L2160 2720 L2167 2720C2170 2720,2178 2724,2184 2730 C2190 2736,2186 2740,2172 2740 C2159 2740,2150 2737,2150 2735 L2150 2730" />
+<path d="M310 1940 L309 1947C309 1951,311 1976,314 2002 L320 2050L320 2050 L320 2055C320 2057,315 2060,310 2060 C304 2060,300 2033,300 2000 C300 1967,302 1940,305 1940 L310 1940" />
+<path d="M2865 1075 L2865 1075 L2870 1080 L2870 1155L2870 1230L2860 1230 L2860 1155L2860 1080" />
+</g>
+<g id="layer106" fill="#d9d9ff" fill-rule="evenodd">
+<path d="M4725 2865 L4720 2860 L3950 2588L3180 2317 3180 1492 C3180 1039,3183 669,3188 671 C3192 673,3563 1018,4013 1438 L4830 2202 4830 2551 C4830 2743,4826 2900,4821 2900 C4816 2900,4793 2893,4771 2885 L4730 2870" />
+<path d="M1930 2690 L1925 2690C1922 2690,1917 2690,1915 2690 L1910 2690L1900 2690 L1885 2690L1870 2690L1870 2680 L1865 2680C1862 2680,1857 2680,1855 2680 L1850 2680L1840 2680 L1825 2680L1810 2680L1810 2670 L1805 2670C1802 2670,1797 2670,1795 2670 L1790 2670L1780 2670 L1765 2670L1750 2670L1750 2660 L1745 2660C1742 2660,1737 2660,1735 2660 L1730 2660L1720 2660 L1700 2660L1680 2660L1680 2650 L1675 2650C1672 2650,1667 2650,1665 2650 L1660 2650L1650 2650 L1635 2650L1620 2650L1620 2640 L1615 2640C1612 2640,1607 2640,1605 2640 L1600 2640L1590 2640 L1577 2640C1570 2640,1529 2634,1485 2627 L1405 2614 1402 2332 L1399 2050 1442 2039 C1465 2033,1492 2026,1502 2023 C1518 2019,1519 2039,1522 2316 L1525 2615 1555 2617 C1571 2619,1588 2620,1592 2620 L1600 2620L1605 2625 L1610 2630 L1625 2630L1640 2630L1645 2635 1650 2640 L1660 2640 L1680 2640L1700 2640L1705 2645 L1710 2650 L1730 2650L1750 2650L1750 2660 1760 2660 L1770 2660 L1790 2660L1810 2660L1810 2670 1820 2670 L1830 2670 L1850 2670L1870 2670L1870 2680 1880 2680 L1890 2680 L1910 2680L1930 2680L1932 2690 1940 2690 L1950 2690 L1970 2690L1990 2690L1985 2695 1980 2700 L1970 2700 L1950 2700L1930 2700" />
+<path d="M310 1940 L745 1785L1180 1630L1180 1630 L1185 1642C1187 1649,1190 1658,1190 1662 C1190 1666,1190 1690,1190 1715 L1190 1760L1190 1760 L755 1905L320 2050L320 2050 L314 2002C311 1976,309 1951,309 1947 L310 1940" />
+<path d="M1400 1675 C1400 1496,1402 1350,1405 1350 C1425 1350,1450 1374,1459 1404 C1470 1435,1473 1438,1495 1429 L1520 1420 1520 1694 L1520 1969 1480 1979 C1389 2003,1400 2042,1400 1675 " />
+<path d="M1210 1630 L1215 1700L1220 1770L1220 1770 L1214 1707C1211 1673,1209 1641,1209 1637 L1210 1630" />
+<path d="M2282 1277 L2287 1277 L2295 1275 L2300 1270 L2305 1270C2307 1270,2312 1270,2315 1270 L2320 1270L2325 1265 L2332 1262 2337 1257 L2350 1260 2355 1255 L2362 1252 2367 1247 L2380 1250 2385 1245 L2392 1242 2397 1237 L2410 1240 2415 1235 L2422 1232 2427 1227 L2435 1225 L2440 1220 L2445 1220C2447 1220,2452 1220,2455 1220 L2460 1220L2465 1215 L2472 1212 2477 1207 L2490 1210 2495 1205 L2502 1202 2507 1197 L2520 1200 2525 1195 L2532 1192 2537 1187 L2550 1190 2555 1185 L2562 1182 2567 1177 L2580 1180 2585 1175 L2592 1172 2597 1167 L2605 1165 L2610 1160 L2615 1160C2617 1160,2622 1160,2625 1160 L2630 1160L2635 1155 L2642 1152 2647 1147 L2660 1150 L2760 1115L2860 1080L2860 1080 L2860 1155L2860 1230L2860 1230 L2762 1259C2708 1276,2624 1303,2575 1319 C2526 1336,2482 1350,2478 1350 L2470 1350L2470 1360 L2465 1360C2462 1360,2457 1360,2455 1360 L2450 1360L2445 1365 L2440 1370 L2435 1370C2432 1370,2427 1370,2425 1370 L2420 1370L2415 1375 L2410 1380 L2405 1380C2402 1380,2397 1380,2395 1380 L2390 1380L2385 1385 L2380 1390 L2375 1390C2372 1390,2367 1390,2365 1390 L2360 1390L2355 1395 L2350 1400 L2345 1400C2342 1400,2337 1400,2335 1400 L2330 1400L2320 1400 2315 1405 L2307 1407 2302 1412 L2290 1410 2285 1415 L2277 1417 2272 1422 L2260 1420 2255 1425 L2247 1427 2242 1432 L2230 1430 L2227 1431C2226 1431,2105 1471,1960 1520 C1814 1569,1689 1609,1682 1609 C1672 1609,1669 1594,1672 1553 L1675 1496 1972 1388 L2270 1280" />
+<path d="M2890 1090 L2900 1090 L2900 1110C2900 1121,2900 1132,2900 1135 C2900 1137,2900 1160,2900 1185 L2900 1230L2890 1230 L2880 1230 L2880 1185C2880 1160,2880 1137,2880 1135 C2880 1132,2880 1121,2880 1110 L2880 1090" />
+</g>
+
+</svg>
\ No newline at end of file
diff --git a/S/images/logo_imapsync_layers_merged.svg b/S/images/logo_imapsync_layers_merged.svg
new file mode 100755
index 0000000..bebc7d4
--- /dev/null
+++ b/S/images/logo_imapsync_layers_merged.svg
@@ -0,0 +1,53 @@
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
+<svg version="1.0" xmlns="http://www.w3.org/2000/svg" width="486px" height="309px" viewBox="0 0 4860 3090" preserveAspectRatio="xMidYMid meet">
+<g id="layer101" fill="#010102" stroke="none">
+<path d="M2818 3085 c-2 -2 -597 -58 -1323 -126 -726 -67 -1321 -123 -1322 -124 -2 -1 -3 -235 -3 -520 l-1 -518 588 -234 c323 -128 598 -238 610 -245 17 -8 26 -8 38 2 8 7 18 10 22 7 3 -4 -45 -153 -107 -332 -62 -179 -111 -327 -109 -329 2 -2 14 -6 26 -10 18 -6 23 -1 33 30 l12 36 18 -51 c21 -62 42 -80 93 -81 128 -1 277 338 225 512 -23 77 -98 102 -157 52 -17 -14 -31 -22 -31 -17 0 13 67 210 77 225 5 8 10 -10 13 -47 l5 -60 338 -133 337 -134 0 -36 c0 -31 -29 -80 -164 -287 -90 -137 -161 -253 -157 -256 3 -4 15 -9 26 -13 17 -5 38 23 145 190 68 108 126 192 128 186 1 -5 -6 -99 -18 -208 -26 -254 -26 -260 2 -267 12 -4 23 -5 24 -4 1 1 16 151 34 332 18 182 34 332 36 334 2 2 207 -76 455 -174 314 -125 454 -176 464 -169 7 5 389 360 848 789 l835 780 1 378 1 377 -22 0 c-13 0 -241 16 -507 35 -267 19 -487 33 -489 30 -3 -3 -11 0 -18 6 -15 12 -995 85 -1006 74z m-1274 -1991 c73 -72 -23 -384 -131 -425 -60 -23 -100 40 -88 138 13 103 75 246 123 284 30 23 75 25 96 3z"/>
+<path d="M270 1657 c0 -2 -43 -127 -95 -277 -96 -275 -100 -295 -56 -287 8 1 51 110 107 272 51 148 92 270 91 271 -11 8 -47 24 -47 21z"/>
+<path d="M341 1318 c-89 -257 -93 -272 -76 -285 27 -19 31 -17 45 30 l13 42 12 -50 c26 -99 97 -123 164 -56 l39 39 7 -51 c9 -65 47 -107 97 -107 39 0 76 30 112 93 32 55 158 416 152 434 -3 7 -14 13 -24 13 -16 0 -30 -30 -77 -166 -72 -209 -78 -225 -111 -263 -31 -37 -72 -41 -100 -10 -15 17 -19 35 -18 88 1 53 12 98 56 226 31 88 59 168 63 177 5 13 1 20 -16 27 -16 6 -26 5 -30 -3 -4 -6 -32 -85 -64 -176 -64 -186 -96 -255 -124 -270 -58 -30 -101 12 -101 99 0 43 14 98 62 239 54 156 61 184 48 192 -8 5 -19 10 -25 10 -5 0 -52 -122 -104 -272z"/>
+<path d="M1026 1329 c-34 -27 -70 -98 -85 -168 -21 -98 15 -160 114 -199 58 -23 62 -43 20 -98 -45 -59 -104 -56 -171 8 l-32 30 -11 -32 c-13 -38 -4 -60 39 -90 68 -49 126 -46 183 8 41 39 67 94 137 296 50 144 60 180 49 187 -26 16 -37 9 -50 -28 -7 -22 -14 -31 -16 -23 -18 66 -38 102 -63 115 -40 21 -83 19 -114 -6z m109 -76 c35 -35 43 -86 25 -170 -17 -77 -20 -79 -76 -58 -67 25 -94 55 -94 102 0 46 31 117 57 132 27 16 69 13 88 -6z"/>
+<path d="M1768 1063 c-14 -4 -38 -49 -38 -73 0 -4 22 -5 50 -2 97 9 151 -40 130 -118 -14 -53 -43 -70 -136 -79 -73 -7 -79 -9 -109 -44 -53 -61 -71 -166 -40 -226 18 -35 88 -71 139 -71 33 0 39 4 52 35 19 47 19 48 -21 41 -49 -10 -122 23 -131 58 -8 33 1 67 25 97 15 19 32 24 96 30 95 9 120 25 158 100 48 92 28 187 -49 230 -30 17 -96 28 -126 22z"/>
+<path d="M29 963 c-23 -60 -23 -81 1 -88 12 -4 23 -5 24 -3 5 6 36 101 33 103 -1 2 -12 6 -24 9 -19 6 -25 2 -34 -21z"/>
+<path d="M2362 538 c-88 -255 -93 -273 -76 -285 26 -19 30 -17 44 30 l13 42 13 -50 c16 -60 52 -95 98 -95 76 0 113 59 206 327 69 197 72 218 31 210 -8 -1 -32 -55 -57 -127 -87 -248 -96 -271 -124 -300 -35 -37 -72 -39 -105 -5 -43 42 -35 108 38 322 53 157 60 185 47 193 -8 5 -19 10 -25 10 -5 0 -52 -123 -103 -272z"/>
+<path d="M2864 610 c-110 -70 -205 -345 -163 -471 22 -65 82 -109 148 -109 31 0 61 30 61 61 0 14 -9 17 -43 16 -51 -2 -93 22 -108 61 -38 96 48 334 134 376 45 21 78 13 117 -25 15 -16 31 -29 33 -29 3 0 10 14 16 32 10 28 8 34 -11 56 -51 54 -128 68 -184 32z"/>
+</g>
+<g id="layer102" fill="#373749" stroke="none">
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -43 3 c-23 2 -40 7 -37 13 8 12 225 12 225 -1z m-338 -382 c83 -28 123 -45 115 -51 -7 -5 0 -6 18 -3 23 5 27 4 15 -5 -12 -8 -10 -9 11 -5 17 4 99 -19 245 -68 120 -41 214 -75 207 -75 -6 -1 -20 -4 -30 -7 -15 -5 -16 -4 -3 6 12 9 9 10 -15 6 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 8 9 -15 5 -23 -5 -27 -4 -15 5 12 8 10 9 -11 5 -17 -4 -100 19 -250 69 -123 41 -227 75 -232 75 -4 0 -7 -28 -5 -61 l3 -62 113 -40 c62 -22 111 -41 109 -44 -2 -2 -56 15 -120 38 l-117 42 0 67 c0 37 3 70 7 73 12 13 36 7 165 -35z m156 -213 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z m557 -18 l60 -22 3 -82 c3 -75 1 -82 -18 -88 -19 -6 -156 32 -147 41 2 2 30 -5 62 -16 32 -11 60 -20 62 -20 1 0 3 33 3 74 0 72 -1 75 -27 84 -23 9 -24 11 -8 12 12 1 -1 9 -30 20 -27 10 -43 19 -35 19 8 0 42 -10 75 -22z m-417 -32 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z m137 -51 c24 -11 25 -13 5 -8 -14 4 -38 13 -55 20 -24 11 -25 13 -5 8 14 -4 39 -13 55 -20z m113 -39 c29 -9 52 -19 49 -21 -5 -5 -127 36 -127 43 0 3 6 3 13 1 6 -3 36 -13 65 -23z"/>
+<path d="M694 1944 c39 -13 75 -24 80 -23 6 0 -20 11 -58 25 -39 13 -75 24 -80 23 -6 0 20 -11 58 -25z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-773 -409 c28 -10 45 -18 39 -18 -6 -1 -37 8 -69 19 -67 23 -65 23 -65 12 0 -5 27 -17 60 -27 33 -10 58 -20 56 -23 -4 -3 -68 15 -123 36 -10 3 -13 -13 -13 -61 l0 -65 51 -17 c28 -9 49 -19 47 -21 -2 -2 -27 4 -56 13 l-52 17 0 72 c0 59 3 75 18 83 18 11 26 9 107 -20z m265 -84 c19 -7 28 -13 20 -13 -8 0 -31 6 -50 13 -19 7 -28 13 -20 13 8 0 31 -6 50 -13z m-165 -121 c24 -11 25 -13 5 -8 -14 4 -38 13 -55 20 -24 11 -25 13 -5 8 14 -4 39 -13 55 -20z"/>
+</g>
+<g id="layer103" fill="#60607b" stroke="none">
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -42 3 c-24 2 -43 7 -43 13 0 5 50 9 115 9 70 0 115 -4 115 -10z m-8 -487 l449 -147 -3 -86 c-3 -80 -4 -85 -26 -88 -16 -3 -716 240 -904 313 -15 6 -18 20 -18 81 0 73 0 74 26 74 15 0 229 -66 476 -147z"/>
+<path d="M300 2001 c0 -46 4 -60 17 -65 9 -4 206 -75 437 -158 232 -83 427 -153 434 -156 10 -3 12 12 10 69 l-3 74 -440 147 c-242 81 -443 148 -447 148 -5 0 -8 -27 -8 -59z"/>
+<path d="M1210 1694 c0 -47 4 -73 10 -69 6 3 10 37 10 76 0 39 -4 69 -10 69 -6 0 -10 -32 -10 -76z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-437 -515 c230 -75 417 -138 415 -140 -2 -3 -187 55 -410 126 -224 72 -414 131 -424 131 -9 0 163 -61 383 -134 220 -74 396 -135 391 -135 -7 -1 -745 238 -793 256 -10 4 -13 -12 -13 -59 l0 -65 405 -143 c223 -79 404 -145 402 -147 -3 -2 -187 60 -411 138 l-406 142 0 78 c0 65 3 78 18 82 9 3 19 5 21 6 2 0 192 -61 422 -136z m544 -177 c55 -19 95 -35 90 -35 -6 -1 -56 14 -110 33 -55 19 -95 35 -90 35 6 1 56 -14 110 -33z m243 -168 c-1 -95 -5 -83 -10 30 -2 34 0 62 5 62 4 0 6 -42 5 -92z m-325 2 c38 -12 66 -24 64 -26 -5 -5 -148 43 -156 53 -3 3 1 4 9 1 8 -3 46 -15 83 -28z"/>
+</g>
+<g id="layer104" fill="#8686bf" stroke="none">
+<path d="M1540 2940 c-685 -65 -1242 -118 -1237 -119 4 -1 252 -41 550 -91 l542 -90 1145 184 c630 101 1134 185 1120 185 -14 1 -180 12 -370 26 -190 14 -381 24 -425 24 -44 -1 -640 -54 -1325 -119z"/>
+<path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -47 3 c-27 2 -48 7 -48 13 0 5 51 9 120 9 73 0 120 -4 120 -10z m98 -519 l342 -112 0 -88 c0 -79 -2 -89 -19 -94 -11 -3 -219 67 -473 158 l-453 162 -3 76 c-2 66 -1 76 15 79 19 4 71 -12 591 -181z"/>
+<path d="M300 2003 l0 -60 438 -157 c240 -86 440 -156 445 -156 4 0 7 31 7 69 l0 68 -431 142 c-236 78 -437 145 -445 148 -11 4 -14 -7 -14 -54z"/>
+<path d="M2000 2711 l-595 -96 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 50 7 c54 7 1041 176 1065 182 8 2 2 4 -15 4 -16 0 -298 -44 -625 -97z"/>
+<path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-602 -459 c137 -44 408 -132 602 -195 l352 -115 0 -90 c0 -83 -2 -90 -22 -100 -19 -8 -121 25 -598 191 -316 111 -590 208 -607 215 -33 14 -33 14 -33 84 0 70 10 90 46 91 7 0 124 -36 260 -81z"/>
+<path d="M2280 1434 c322 -106 588 -194 593 -194 4 0 7 4 7 8 0 4 -30 18 -67 29 -38 12 -301 96 -585 187 -284 91 -520 166 -525 165 -4 0 255 -88 577 -195z"/>
+<path d="M1670 1558 l0 -63 467 -165 c257 -91 527 -186 600 -212 l133 -47 0 79 0 79 -82 26 c-172 54 -1103 358 -1110 362 -5 2 -8 -24 -8 -59z"/>
+<path d="M2880 1159 c0 -51 4 -78 10 -74 6 3 10 40 10 81 0 43 -4 74 -10 74 -6 0 -10 -34 -10 -81z"/>
+</g>
+<g id="layer105" fill="#afafde" stroke="none">
+<path d="M1547 2942 c-683 -64 -1228 -120 -1215 -124 13 -4 257 -45 543 -92 l520 -86 1145 184 c630 101 1134 185 1120 185 -14 1 -180 12 -370 26 -190 14 -381 24 -425 24 -44 -1 -637 -53 -1318 -117z"/>
+<path d="M2758 2792 c-598 -103 -1089 -189 -1092 -192 -2 -3 332 -62 744 -131 l748 -126 802 286 c440 157 797 287 793 288 -12 4 -865 63 -888 62 -11 0 -509 -85 -1107 -187z"/>
+<path d="M3993 2608 l-813 -291 0 -824 c0 -454 4 -823 8 -821 4 2 376 347 825 767 l817 763 0 349 c0 273 -3 349 -12 348 -7 0 -379 -131 -825 -291z"/>
+<path d="M2000 2711 l-595 -96 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 50 7 c28 4 61 9 75 12 14 3 241 41 505 86 264 45 485 83 490 85 40 14 -128 -10 -645 -94z"/>
+<path d="M300 2003 l0 -59 438 -157 c240 -87 440 -157 445 -157 4 0 7 31 7 68 l0 68 -432 143 c-238 79 -439 146 -445 148 -10 4 -13 -11 -13 -54z"/>
+<path d="M1670 1558 l0 -63 598 -211 597 -211 3 75 c2 41 1 76 0 78 -2 1 -269 89 -593 194 -325 106 -593 194 -597 197 -5 2 -8 -24 -8 -59z"/>
+</g>
+<g id="layer106" fill="#d9d9ff" stroke="none">
+<path d="M4790 2893 c-8 -3 -28 -11 -45 -18 -16 -7 -375 -135 -797 -285 l-768 -273 0 -824 c0 -454 4 -823 8 -821 4 2 376 347 825 767 l817 763 0 349 c0 363 1 357 -40 342z"/>
+<path d="M1765 2670 c-93 -15 -213 -34 -265 -41 l-95 -14 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 45 7 c148 24 420 76 395 76 -16 0 -106 -13 -200 -28z"/>
+<path d="M310 1996 c0 -50 2 -55 28 -64 15 -5 210 -75 434 -156 224 -80 410 -146 413 -146 3 0 5 31 5 68 l0 68 -433 142 c-239 78 -437 142 -440 142 -4 0 -7 -24 -7 -54z"/>
+<path d="M1400 1676 c0 -179 3 -326 6 -326 19 0 44 25 54 54 10 32 14 34 36 26 l24 -10 0 275 0 274 -42 11 c-24 6 -51 13 -60 16 -17 5 -18 -15 -18 -320z"/>
+<path d="M1213 1700 c0 -41 2 -58 4 -37 2 20 2 54 0 75 -2 20 -4 3 -4 -38z"/>
+<path d="M1672 1553 l3 -56 575 -204 c316 -111 583 -205 593 -209 15 -5 17 3 17 70 l0 74 -47 16 c-27 8 -290 94 -587 190 -296 97 -542 176 -548 176 -5 0 -8 -26 -6 -57z"/>
+<path d="M2880 1160 c0 -40 4 -70 10 -70 6 0 10 30 10 70 0 40 -4 70 -10 70 -6 0 -10 -30 -10 -70z"/>
+</g>
+
+
+</svg>
\ No newline at end of file
diff --git a/S/images/logo_imapsync_layers_single.svg b/S/images/logo_imapsync_layers_single.svg
new file mode 100755
index 0000000..dfd3ad8
--- /dev/null
+++ b/S/images/logo_imapsync_layers_single.svg
@@ -0,0 +1,60 @@
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN" "http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
+<svg version="1.0" xmlns="http://www.w3.org/2000/svg" width="486px" height="309px" viewBox="0 0 4860 3090" preserveAspectRatio="xMidYMid meet">
+<g id="layer101" fill="#010102" stroke="none">
+ <path d="M2818 3085 c-2 -2 -597 -58 -1323 -126 -726 -67 -1321 -123 -1322 -124 -2 -1 -3 -235 -3 -520 l-1 -518 588 -234 c323 -128 598 -238 610 -245 17 -8 26 -8 38 2 8 7 18 10 22 7 3 -4 -45 -153 -107 -332 -62 -179 -111 -327 -109 -329 2 -2 14 -6 26 -10 18 -6 23 -1 33 30 l12 36 18 -51 c21 -62 42 -80 93 -81 128 -1 277 338 225 512 -23 77 -98 102 -157 52 -17 -14 -31 -22 -31 -17 0 13 67 210 77 225 5 8 10 -10 13 -47 l5 -60 338 -133 337 -134 0 -36 c0 -31 -29 -80 -164 -287 -90 -137 -161 -253 -157 -256 3 -4 15 -9 26 -13 17 -5 38 23 145 190 68 108 126 192 128 186 1 -5 -6 -99 -18 -208 -26 -254 -26 -260 2 -267 12 -4 23 -5 24 -4 1 1 16 151 34 332 18 182 34 332 36 334 2 2 207 -76 455 -174 314 -125 454 -176 464 -169 7 5 389 360 848 789 l835 780 1 378 1 377 -22 0 c-13 0 -241 16 -507 35 -267 19 -487 33 -489 30 -3 -3 -11 0 -18 6 -15 12 -995 85 -1006 74z m472 -50 c190 -14 356 -25 370 -26 14 0 -490 -84 -1120 -185 l-1145 -184 -542 90 c-298 50 -546 90 -550 91 -24 3 2495 237 2562 238 44 0 235 -10 425 -24z m1025 -85 c236 -17 434 -32 438 -33 4 -1 -353 -131 -793 -288 l-802 -286 -748 126 c-412 69 -746 128 -744 131 6 5 2165 378 2199 379 11 1 213 -13 450 -29z m515 -399 l0 -349 -817 -763 c-449 -420 -821 -765 -825 -767 -4 -2 -8 367 -8 821 l0 824 813 291 c446 160 818 291 825 291 9 1 12 -75 12 -348z m-4022 157 l562 -93 0 -277 0 -277 -52 18 c-169 58 -359 152 -374 184 -15 32 -39 43 -68 29 -35 -16 -36 -65 -2 -87 13 -8 30 -13 38 -10 8 3 66 -19 129 -49 63 -31 162 -73 219 -95 l105 -40 3 -331 c2 -314 1 -332 -15 -326 -10 4 -273 108 -585 233 l-568 225 0 500 0 500 23 -5 c12 -3 275 -47 585 -99z m1832 96 c-24 -6 -1011 -175 -1065 -182 l-50 -7 -3 -298 c-2 -278 -3 -298 -20 -293 -9 3 -36 10 -60 16 l-42 11 2 282 3 282 595 96 c327 53 609 97 625 97 17 0 23 -2 15 -4z m-268 -361 l768 -128 0 -834 c0 -789 -1 -833 -17 -827 -10 4 -208 82 -440 174 l-423 167 0 53 c0 67 -12 90 -57 108 -19 9 -36 14 -37 12 -2 -2 -9 -18 -16 -37 -11 -26 -11 -36 -2 -39 25 -8 54 -39 51 -54 -3 -13 -63 7 -324 111 l-320 126 -3 344 c-2 286 0 342 11 338 8 -3 80 -18 160 -34 81 -15 147 -32 147 -37 0 -5 -10 -25 -22 -44 -12 -20 -18 -33 -12 -30 5 3 75 18 156 33 81 15 145 31 143 36 -4 6 -225 133 -256 147 -4 2 -4 -18 -1 -43 5 -44 4 -46 -19 -41 -13 3 -71 14 -129 26 -58 12 -122 26 -142 31 l-38 10 0 286 0 285 28 -5 c15 -3 372 -63 794 -134z m-894 -463 l42 -11 0 -274 0 -275 -24 10 c-22 8 -26 6 -36 -26 -10 -29 -35 -54 -54 -54 -3 0 -6 147 -6 326 0 305 1 325 18 320 9 -3 36 -10 60 -16z m66 -886 c73 -72 -23 -384 -131 -425 -60 -23 -100 40 -88 138 13 103 75 246 123 284 30 23 75 25 96 3z"/>
+ <path d="M575 2421 c-3 -6 14 -11 37 -13 l43 -3 3 -119 c1 -66 -1 -123 -6 -128 -4 -4 -23 -3 -41 3 -17 6 -35 9 -38 5 -6 -6 71 -42 113 -52 l24 -6 0 151 0 151 45 0 c25 0 45 5 45 10 0 13 -217 13 -225 1z"/>
+ <path d="M297 2073 c-4 -3 -7 -36 -7 -73 l0 -67 117 -42 c64 -23 118 -40 120 -38 2 3 -47 22 -109 44 l-113 40 -3 62 c-2 33 1 61 5 61 5 0 109 -34 232 -75 150 -50 233 -73 250 -69 21 4 23 3 11 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 23 4 27 3 15 -5 -12 -9 -8 -10 15 -5 24 4 27 3 15 -6 -13 -10 -12 -11 3 -6 10 3 24 6 30 7 7 0 -87 34 -207 75 -146 49 -228 72 -245 68 -21 -4 -23 -3 -11 5 12 9 8 10 -15 5 -18 -3 -25 -2 -18 3 8 6 -32 23 -115 51 -129 42 -153 48 -165 35z m419 -127 c38 -14 64 -25 58 -25 -5 -1 -41 10 -80 23 -38 14 -64 25 -58 25 5 1 41 -10 80 -23z"/>
+ <path d="M540 1847 c0 -7 122 -48 127 -43 3 2 -20 12 -49 21 -29 10 -59 20 -65 23 -7 2 -13 2 -13 -1z"/>
+ <path d="M1135 1810 c29 -11 42 -19 30 -20 -16 -1 -15 -3 8 -12 26 -9 27 -12 27 -84 0 -41 -2 -74 -3 -74 -2 0 -30 9 -62 20 -32 11 -60 18 -62 16 -9 -9 128 -47 147 -41 19 6 21 13 18 88 l-3 82 -60 22 c-33 12 -67 22 -75 22 -8 0 8 -9 35 -19z m95 -109 c0 -39 -4 -73 -10 -76 -6 -4 -10 22 -10 69 0 44 4 76 10 76 6 0 10 -30 10 -69z"/>
+ <path d="M680 1797 c0 -7 122 -48 127 -43 3 2 -20 12 -49 21 -29 10 -59 20 -65 23 -7 2 -13 2 -13 -1z"/>
+ <path d="M845 1736 c17 -7 41 -16 55 -20 20 -5 19 -3 -5 8 -16 7 -41 16 -55 20 -20 5 -19 3 5 -8z"/>
+ <path d="M930 1707 c0 -7 122 -48 127 -43 3 2 -20 12 -49 21 -29 10 -59 20 -65 23 -7 2 -13 2 -13 -1z"/>
+ <path d="M2240 2031 c0 -13 29 -40 93 -83 103 -72 137 -113 137 -168 0 -53 -18 -72 -76 -77 -61 -6 -104 9 -104 37 0 11 -7 20 -15 20 -21 0 -21 -66 1 -74 29 -11 174 -6 207 7 44 19 59 40 59 83 0 52 -25 80 -142 159 l-105 70 133 3 c120 2 133 4 130 20 -3 15 -21 17 -161 20 -150 2 -157 2 -157 -17z"/>
+ <path d="M1678 1639 c-15 -8 -18 -24 -18 -83 l0 -72 52 -17 c29 -9 54 -15 56 -13 2 2 -19 12 -47 21 l-51 17 0 65 c0 48 3 64 13 61 55 -21 119 -39 123 -36 2 3 -23 13 -56 23 -33 10 -60 22 -60 27 0 11 -2 11 65 -12 32 -11 63 -20 69 -19 10 0 -57 26 -109 42 -11 3 -28 2 -37 -4z"/>
+ <path d="M2020 1535 c19 -7 42 -13 50 -13 8 0 -1 6 -20 13 -19 7 -42 13 -50 13 -8 0 1 -6 20 -13z"/>
+ <path d="M1835 1426 c17 -7 41 -16 55 -20 20 -5 19 -3 -5 8 -16 7 -41 16 -55 20 -20 5 -19 3 5 -8z"/>
+ <path d="M270 1657 c0 -2 -43 -127 -95 -277 -96 -275 -100 -295 -56 -287 8 1 51 110 107 272 51 148 92 270 91 271 -11 8 -47 24 -47 21z"/>
+ <path d="M341 1318 c-89 -257 -93 -272 -76 -285 27 -19 31 -17 45 30 l13 42 12 -50 c26 -99 97 -123 164 -56 l39 39 7 -51 c9 -65 47 -107 97 -107 39 0 76 30 112 93 32 55 158 416 152 434 -3 7 -14 13 -24 13 -16 0 -30 -30 -77 -166 -72 -209 -78 -225 -111 -263 -31 -37 -72 -41 -100 -10 -15 17 -19 35 -18 88 1 53 12 98 56 226 31 88 59 168 63 177 5 13 1 20 -16 27 -16 6 -26 5 -30 -3 -4 -6 -32 -85 -64 -176 -64 -186 -96 -255 -124 -270 -58 -30 -101 12 -101 99 0 43 14 98 62 239 54 156 61 184 48 192 -8 5 -19 10 -25 10 -5 0 -52 -122 -104 -272z"/>
+ <path d="M1026 1329 c-34 -27 -70 -98 -85 -168 -21 -98 15 -160 114 -199 58 -23 62 -43 20 -98 -45 -59 -104 -56 -171 8 l-32 30 -11 -32 c-13 -38 -4 -60 39 -90 68 -49 126 -46 183 8 41 39 67 94 137 296 50 144 60 180 49 187 -26 16 -37 9 -50 -28 -7 -22 -14 -31 -16 -23 -18 66 -38 102 -63 115 -40 21 -83 19 -114 -6z m109 -76 c35 -35 43 -86 25 -170 -17 -77 -20 -79 -76 -58 -67 25 -94 55 -94 102 0 46 31 117 57 132 27 16 69 13 88 -6z"/>
+ <path d="M1768 1063 c-14 -4 -38 -49 -38 -73 0 -4 22 -5 50 -2 97 9 151 -40 130 -118 -14 -53 -43 -70 -136 -79 -73 -7 -79 -9 -109 -44 -53 -61 -71 -166 -40 -226 18 -35 88 -71 139 -71 33 0 39 4 52 35 19 47 19 48 -21 41 -49 -10 -122 23 -131 58 -8 33 1 67 25 97 15 19 32 24 96 30 95 9 120 25 158 100 48 92 28 187 -49 230 -30 17 -96 28 -126 22z"/>
+ <path d="M29 963 c-23 -60 -23 -81 1 -88 12 -4 23 -5 24 -3 5 6 36 101 33 103 -1 2 -12 6 -24 9 -19 6 -25 2 -34 -21z"/>
+ <path d="M2362 538 c-88 -255 -93 -273 -76 -285 26 -19 30 -17 44 30 l13 42 13 -50 c16 -60 52 -95 98 -95 76 0 113 59 206 327 69 197 72 218 31 210 -8 -1 -32 -55 -57 -127 -87 -248 -96 -271 -124 -300 -35 -37 -72 -39 -105 -5 -43 42 -35 108 38 322 53 157 60 185 47 193 -8 5 -19 10 -25 10 -5 0 -52 -123 -103 -272z"/>
+ <path d="M2864 610 c-110 -70 -205 -345 -163 -471 22 -65 82 -109 148 -109 31 0 61 30 61 61 0 14 -9 17 -43 16 -51 -2 -93 22 -108 61 -38 96 48 334 134 376 45 21 78 13 117 -25 15 -16 31 -29 33 -29 3 0 10 14 16 32 10 28 8 34 -11 56 -51 54 -128 68 -184 32z"/>
+ </g>
+<g id="layer102" fill="#373749" stroke="none">
+ <path d="M2236 1441 c12 -11 234 -84 239 -79 2 2 -53 23 -122 46 -70 23 -122 38 -117 33z"/>
+ <path d="M2386 1421 c12 -11 144 -54 149 -49 3 2 -32 16 -77 31 -45 14 -77 23 -72 18z"/>
+ <path d="M2645 1334 c54 -19 104 -34 110 -33 5 0 -35 16 -90 35 -54 19 -104 34 -110 33 -5 0 35 -16 90 -35z"/>
+ <path d="M2280 1271 c0 -4 39 -20 88 -35 48 -16 94 -31 102 -34 8 -3 13 -3 10 1 -9 10 -200 75 -200 68z"/>
+ <path d="M2898 1198 c5 -113 9 -125 10 -30 1 50 -1 92 -5 92 -5 0 -7 -28 -5 -62z"/>
+ <path d="M2491 1197 c8 -10 151 -58 156 -53 2 2 -26 14 -64 26 -37 13 -75 25 -83 28 -8 3 -12 2 -9 -1z"/>
+ </g>
+<g id="layer103" fill="#60607b" stroke="none">
+ <path d="M1220 1698 c-3 -42 -1 -73 3 -69 4 4 7 39 5 77 l-3 69 -5 -77z"/>
+ <path d="M1188 1690 c-2 -39 0 -70 5 -70 4 0 7 32 7 70 0 39 -2 70 -4 70 -2 0 -6 -32 -8 -70z"/>
+ <path d="M1653 1560 c0 -41 2 -58 4 -37 2 20 2 54 0 75 -2 20 -4 3 -4 -38z"/>
+ <path d="M2873 1155 c0 -44 2 -61 4 -37 2 23 2 59 0 80 -2 20 -4 1 -4 -43z"/>
+ </g>
+<g id="layer104" fill="#8686bf" stroke="none">
+ <path d="M200 2312 l0 -500 568 -225 c312 -125 575 -229 585 -233 16 -6 17 12 15 326 l-3 331 -105 40 c-57 22 -156 64 -219 95 -63 30 -121 52 -129 49 -8 -3 -25 2 -38 10 -34 22 -33 71 2 87 29 14 53 3 68 -29 15 -32 205 -126 374 -184 l52 -18 0 277 0 277 -562 93 c-310 52 -573 96 -585 99 l-23 5 0 -500z m600 108 c0 -5 -20 -10 -45 -10 l-45 0 0 -151 0 -151 -24 6 c-42 10 -119 46 -113 52 3 4 21 1 38 -5 18 -6 37 -7 41 -3 5 5 7 62 6 128 l-3 119 -47 3 c-27 2 -48 7 -48 13 0 5 51 9 120 9 73 0 120 -4 120 -10z m98 -519 l342 -112 0 -88 c0 -79 -2 -89 -19 -94 -11 -3 -219 67 -473 158 l-453 162 -3 76 c-2 66 -1 76 15 79 19 4 71 -12 591 -181z"/>
+ <path d="M1550 2297 l0 -286 38 -10 c20 -5 84 -19 142 -31 58 -12 116 -23 129 -26 23 -5 24 -3 19 41 -3 25 -3 45 1 43 31 -14 252 -141 256 -147 2 -5 -62 -21 -143 -36 -81 -15 -151 -30 -156 -33 -6 -3 0 10 12 30 12 19 22 39 22 44 0 5 -66 22 -147 37 -80 16 -152 31 -160 34 -11 4 -13 -52 -11 -338 l3 -344 320 -126 c261 -104 321 -124 324 -111 3 15 -26 46 -51 54 -9 3 -9 13 2 39 7 19 14 35 16 37 1 2 18 -3 37 -12 45 -18 57 -41 57 -108 l0 -53 423 -167 c232 -92 430 -170 440 -174 16 -6 17 38 17 827 l0 834 -768 128 c-422 71 -779 131 -794 134 l-28 5 0 -285z m1008 -269 c3 -16 -10 -18 -130 -20 l-133 -3 105 -70 c117 -79 142 -107 142 -159 0 -43 -15 -64 -59 -83 -33 -13 -178 -18 -207 -7 -22 8 -22 74 -1 74 8 0 15 -9 15 -20 0 -28 43 -43 104 -37 58 5 76 24 76 77 0 55 -34 96 -137 168 -64 43 -93 70 -93 83 0 19 7 19 157 17 140 -3 158 -5 161 -20z m-602 -459 c137 -44 408 -132 602 -195 l352 -115 0 -90 c0 -83 -2 -90 -22 -100 -19 -8 -121 25 -598 191 -316 111 -590 208 -607 215 -33 14 -33 14 -33 84 0 70 10 90 46 91 7 0 124 -36 260 -81z"/>
+ <path d="M2228 1452 c294 -98 531 -180 527 -184 -4 -4 3 -4 16 -1 15 4 20 3 15 -5 -4 -7 -2 -10 6 -7 8 3 33 -1 57 -10 53 -18 56 -19 39 -2 -7 8 -43 23 -78 35 -455 147 -1100 352 -1107 351 -4 0 232 -80 525 -177z"/>
+ </g>
+<g id="layer105" fill="#afafde" stroke="none">
+ <path d="M1547 2942 c-683 -64 -1228 -120 -1215 -124 13 -4 257 -45 543 -92 l520 -86 1145 184 c630 101 1134 185 1120 185 -14 1 -180 12 -370 26 -190 14 -381 24 -425 24 -44 -1 -637 -53 -1318 -117z"/>
+ <path d="M2758 2792 c-598 -103 -1089 -189 -1092 -192 -2 -3 332 -62 744 -131 l748 -126 802 286 c440 157 797 287 793 288 -12 4 -865 63 -888 62 -11 0 -509 -85 -1107 -187z"/>
+ <path d="M2158 2728 c9 -9 15 -9 24 0 9 9 7 12 -12 12 -19 0 -21 -3 -12 -12z"/>
+ <path d="M301 1998 c1 -68 6 -61 11 15 2 26 0 47 -4 47 -5 0 -7 -28 -7 -62z"/>
+ <path d="M2863 1150 c0 -47 2 -66 4 -42 2 23 2 61 0 85 -2 23 -4 4 -4 -43z"/>
+ </g>
+<g id="layer106" fill="#d9d9ff" stroke="none">
+ <path d="M4790 2893 c-8 -3 -28 -11 -45 -18 -16 -7 -375 -135 -797 -285 l-768 -273 0 -824 c0 -454 4 -823 8 -821 4 2 376 347 825 767 l817 763 0 349 c0 363 1 357 -40 342z"/>
+ <path d="M1765 2670 c-93 -15 -213 -34 -265 -41 l-95 -14 -3 -282 -2 -282 42 -11 c24 -6 51 -13 60 -16 17 -5 18 15 20 293 l3 298 45 7 c148 24 420 76 395 76 -16 0 -106 -13 -200 -28z"/>
+ <path d="M310 1996 c0 -50 2 -55 28 -64 15 -5 210 -75 434 -156 224 -80 410 -146 413 -146 3 0 5 31 5 68 l0 68 -433 142 c-239 78 -437 142 -440 142 -4 0 -7 -24 -7 -54z"/>
+ <path d="M1400 1676 c0 -179 3 -326 6 -326 19 0 44 25 54 54 10 32 14 34 36 26 l24 -10 0 275 0 274 -42 11 c-24 6 -51 13 -60 16 -17 5 -18 -15 -18 -320z"/>
+ <path d="M1213 1700 c0 -41 2 -58 4 -37 2 20 2 54 0 75 -2 20 -4 3 -4 -38z"/>
+ <path d="M1672 1553 l3 -56 575 -204 c316 -111 583 -205 593 -209 15 -5 17 3 17 70 l0 74 -47 16 c-27 8 -290 94 -587 190 -296 97 -542 176 -548 176 -5 0 -8 -26 -6 -57z"/>
+ <path d="M2880 1160 c0 -40 4 -70 10 -70 6 0 10 30 10 70 0 40 -4 70 -10 70 -6 0 -10 -30 -10 -70z"/>
+ </g>
+
+</svg>
\ No newline at end of file
diff --git a/S/imapservers.shtml b/S/imapservers.shtml
index c51aca4..2040ad4 100644
--- a/S/imapservers.shtml
+++ b/S/imapservers.shtml
@@ -4,7 +4,7 @@
 <html  xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en" id="TOP">
 
 <head>
-<title>Imapsync list of the 81 imap server software applications supported</title>
+<title>Imapsync list of the 86 imap server software applications supported</title>
 <meta name="generator" content="Bluefish 2.2.2" />
 <meta name="author" content="Gilles LAMIRAL" />
 <meta name="date" content="2016-04-10T00:24:15+0200" />
@@ -27,7 +27,8 @@
 <body>
 
 
-<h1>Imapsync list of the 81 imap server software applications supported (and the broken ones) <a id="imap_server_success" href="../#TOP"><small>(back to menu)</small></a>
+<h1>Imapsync list of the 86 imap server software applications supported (and the broken ones)
+<a id="imap_server_success" href="../#TOP"><small>(back to menu)</small></a>
 </h1>
 
 <p>To know whether your IMAP server is a widespread choice, 
@@ -36,7 +37,7 @@ The short answer is that if you're not using the famous <b>Dovecot</b> then you'
 </p>
 
 <p>Let's start with the long reported <b>success stories</b> list: <b>
-79 different imap server software tools supported!</b><br/>
+83 different imap server software tools supported!</b><br/>
 [host1] means "source server" and [host2] means "destination server":
 </p>
 
@@ -80,7 +81,7 @@ imapsync --host1 imap.gmail.com
         <li>BigFoot 1.0 (Derek Snider)</li>
         
 	<li>BincImap 1.2.3 (GPL) (<a href="http://www.bincimap.org/">http://www.bincimap.org/</a>)</li>
-        <li>BlueMind <a href="https://www.bluemind.net/"></a>https://www.bluemind.net/</li>
+        <li>BlueMind <a href="https://www.bluemind.net/">https://www.bluemind.net/</a></li>
 	<li>ClearOS <a href="https://www.clearos.com/">https://www.clearos.com/</a> uses Cyrus as IMAP backend server.</li>
 	<li>CommuniGatePro server (Redhat 8.0) (Solaris), CommuniGate Pro 5.2.17[host2] (CentOS 5.4) 
 	(<a href="http://www.communigate.com/">http://www.communigate.com/</a>) </li>
@@ -108,6 +109,8 @@ imapsync --host1 imap.gmail.com
         
         <li>Earthlink webhosting (<a href="https://www.earthlink.net/">https://www.earthlink.net/</a>) uses BigFoot imap server.</li>
         
+        <li>Emailchemy from weirdkid.com <a href="https://weirdkid.com/emailchemy/">https://weirdkid.com/emailchemy/</a>. Use option --noabletosearch </li>
+        
 	<li>Eudora WorldMail v2    (<a href="http://www.eudora.com/worldmail/">http://www.eudora.com/worldmail/</a>)   </li>
 	<li><b>Exchange Server</b> 5.5, 6.0.6249.0[host1], 6.0.6487.0[host1], 
 	6.5.7638.1 [host2], 6.5 [host1], Exchange 2007 SP1 (with Update Rollup 2), 
@@ -117,17 +120,19 @@ imapsync --host1 imap.gmail.com
 	Exchange 2010 SP3 [host2],
 	(<a href="http://www.microsoft.com/exchange/">http://www.microsoft.com/exchange/</a>)   
 	</li>
-	<li>FirtClass 12 [host1] hard so read the FAQ! (<a href="http://www.firstclass.com/">http://www.firstclass.com/</a>)</li>
+	<li>FirstClass 12 [host1]. FirstClass is hard to migrate so read the <a href="https://imapsync.lamiral.info/FAQ.d/FAQ.FirstClass.txt">FirtClass FAQ</a>! (<a href="http://www.firstclass.com/">http://www.firstclass.com/</a>)</li>
         <li>FortiMail 100C in server mode [host1] (<a href="https://www.fortinet.com/products/application-security/fortimail.html">https://www.fortinet.com/.../fortimail.html</a>)</li>
 	<li>FTGate [host1][host2] (<a href="http://www.ftgate.com/">http://www.ftgate.com/</a>)</li>
         <li>Fusemail imap.fusemail.net:143 (<a href="https://www.fusemail.com/">https://www.fusemail.com/</a>).</li>
 	<li><b>Gimap</b> (<b>Gmail</b> imap) [host1] [host2]    (<a href="http://mail.google.com/">http://mail.google.com/</a>)   </li>
 	<li>GMX IMAP4 StreamProxy.    (<a href="http://www.gmx.com/">http://www.gmx.com/</a>)   </li>
-	<li>Godaddy IMAP (since Godaddy runs Courier)    (<a href="https://www.godaddy.com/">https://www.godaddy.com/</a>)   </li>
+	<li>Godaddy IMAP (since Godaddy runs Courier)    (<a href="https://www.godaddy.com/">https://www.godaddy.com/</a>) </li>
+        <li>Gromox/Grammm IMAP server (<a href="https://docs.grammm.com/">https://docs.grammm.com/</a>)</li>
 	<li>Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the <a href="../FAQ.d/FAQ.Various_Software_Servers.txt">FAQ item about Groupwise</a>
 	(<a href="http://www.novell.com/products/groupwise/">http://www.novell.com/products/groupwise/</a>)   </li>
 	<li>hMailServer 5.40-B1950 [host12], 5.3.3 [host2], 4.4.1 [host1], 5.3.2-B1769 [host2], 5.6 [host2]
 	(<a href="https://www.hmailserver.com/">https://www.hmailserver.com/</a>)   </li>
+        <li>Hostgator, Hostgator imap server software is Dovecot. <a href="https://www.hostgator.com/">https://www.hostgator.com/</a></li>
 	<li><b>Hotmail</b> hotmail.com is outlook.com and live.com now.</li>
 	<li>IceWarp 10.4.5 [host1] 11.2.1.1 [host2] 11.4.1.0 [host2] (<a href="https://www.icewarp.com/">https://www.icewarp.com/</a>)</li>
 	<li>IdeaImapServer v0.80.1 [host1] </li>
@@ -162,6 +167,8 @@ imapsync --host1 imap.gmail.com
         
         <li>Perdition (<a href="https://projects.horms.net/projects/perdition/">https://projects.horms.net/projects/perdition/</a></li>
         
+        <li>PowerMail (French Email provider) (<a href="https://www.powermail.fr/">https://www.powermail.fr/</a></li>
+        
         <li>ProtoMail [host1] (<a href="https://protonmail.com/">https://protonmail.com/</a></li>
 
 	<li>Qualcomm Worldmail (NT)    (<a href="http://www.eudora.com/worldmail/">http://www.eudora.com/worldmail/</a>)   </li>
@@ -182,6 +189,7 @@ imapsync --host1 imap.gmail.com
 	(RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
 	(<a href="http://www.washington.edu/imap/">http://www.washington.edu/imap/</a>)   </li>
 	<li>VMS, Imap part of TCP/IP suite of VMS 7.3.2    (<a href="https://www.vmssoftware.com/">https://www.vmssoftware.com/</a>)   </li>
+        <li>Amazon WorkMail (<a href="https://aws.amazon.com/fr/workmail/">https://aws.amazon.com/fr/workmail/</a>)</li>
         <li>Xeams/Synametrics (<a href="http://www.xeams.com/">http://www.xeams.com/</a>) </li>
 	<li><b>Yahoo</b> [host1]    (<a href="http://www.yahoo.com/">http://www.yahoo.com/</a>) </li>
 	<li>Zarafa 6,40,0,20653 [host1] (<a href="http://www.zarafa.com/">http://www.zarafa.com/</a>) </li>
@@ -238,7 +246,7 @@ alt="Viewable With Any Browser" />
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: imapservers.shtml,v 1.44 2019/12/02 23:51:12 gilles Exp gilles $)<br/>
+($Id: imapservers.shtml,v 1.56 2021/06/08 09:56:54 gilles Exp gilles $)<br/>
 <a href="#TOP">Top of the page</a>
 </p>
 
diff --git a/S/imapsync_sold_by_country.txt b/S/imapsync_sold_by_country.txt
index 5a12c03..595b10d 100644
--- a/S/imapsync_sold_by_country.txt
+++ b/S/imapsync_sold_by_country.txt
@@ -1,99 +1,100 @@
-1    	         Arabie_Saoudite_________ 0.01 %	100 %   0 %    98
-1    	         Bahrein_________________ 0.01 %	100 %   0 %    97
-1    	         Bolivie_________________ 0.01 %	100 %   0 %    96
-1    	         Bosnie-Herzegovine______ 0.01 %	100 %   0 %    95
-1    	         Burkina_Faso____________ 0.01 %	100 %   0 %    94
-1    	         Cameroun________________ 0.01 %	100 %   0 %    93
-1    	         Coree_du_Sud____________ 0.01 %	100 %   0 %    92
-1    	         Grenade_________________ 0.01 %	100 %   0 %    91
-1    	         Ile_Maurice_____________ 0.01 %	100 %   0 %    90
-1    	         Iles_Feroe______________ 0.01 %	100 %   0 %    89
-1    	      Iles_Vierges_britanniques__ 0.01 %	100 %   0 %    88
-1    	         Jamaique________________ 0.01 %	100 %   0 %    87
-1    	         Jordanie________________ 0.01 %	100 %   0 %    86
-1    	         Koweit__________________ 0.01 %	100 %   0 %    85
-1    	         Maldives________________ 0.01 %	100 %   0 %    84
-1    	         Moldavie________________ 0.01 %	100 %   0 %    83
-1    	         Monaco__________________ 0.01 %	100 %   0 %    82
-1    	         Mongolie________________ 0.01 %	100 %   0 %    81
-1    	         Namibie_________________ 0.01 %	100 %   0 %    80
-1    	         Panama__________________ 0.01 %	100 %   0 %    79
-1    	         Qatar___________________ 0.01 %	100 %   0 %    78
-1    	       Republique_d'Azerbaidjan__ 0.01 %	100 %   0 %    77
-1    	Saint_Christophe-Nevis-Anguilla__ 0.01 %	100 %   0 %    76
-1    	         Senegal_________________ 0.01 %	100 %   0 %    75
-1    	         Tanzanie________________ 0.01 %	100 %   0 %    74
-1    	         Trinite-et-Tobago_______ 0.01 %	100 %   0 %    73
-2    	         Albanie_________________ 0.03 %	100 %   0 %    72
-2    	         Antilles_neerlandaises__ 0.03 %	100 %   0 %    71
-2    	         Colombie________________ 0.03 %	100 %   0 %    70
-2    	         Costa_Rica______________ 0.03 %	100 %   0 %    69
-2    	                             Isra 0.03 %	100 %   0 %    68
-2    	         Maroc___________________ 0.03 %	100 %   0 %    67
-2    	         Nouvelle-Caledonie______ 0.03 %	99 %   1 %    66
-2    	         Perou___________________ 0.03 %	99 %   1 %    65
-2    	         Taiwan__________________ 0.03 %	99 %   1 %    64
-2    	         Ukraine_________________ 0.03 %	99 %   1 %    63
-3    	         Nigeria_________________ 0.04 %	99 %   1 %    62
-3    	         Uruguay_________________ 0.04 %	99 %   1 %    61
-3    	         Venezuela_______________ 0.04 %	99 %   1 %    60
-4    	         Indonesie_______________ 0.06 %	99 %   1 %    59
-4    	         Philippines_____________ 0.06 %	99 %   1 %    58
-4    	         Russie,_Federation______ 0.06 %	99 %   1 %    57
-4    	         Serbie__________________ 0.06 %	99 %   1 %    56
-4    	         Turquie_________________ 0.06 %	99 %   1 %    55
-4    	         Vietnam_________________ 0.06 %	99 %   1 %    54
-5    	         Bulgarie________________ 0.07 %	99 %   1 %    53
-5    	         Egypte__________________ 0.07 %	99 %   1 %    52
-5    	         Ireland_________________ 0.07 %	99 %   1 %    51
-5    	         Lituanie________________ 0.07 %	99 %   1 %    50
-6    	         Malte___________________ 0.08 %	99 %   1 %    49
-7    	         Chypre__________________ 0.10 %	99 %   1 %    48
-7    	         Estonie_________________ 0.10 %	98 %   2 %    47
-7    	         Islande_________________ 0.10 %	98 %   2 %    46
-10   	         Croatie_________________ 0.14 %	98 %   2 %    45
-10   	         Emirats_Arabes_Unis_____ 0.14 %	98 %   2 %    44
-10   	         Lettonie________________ 0.14 %	98 %   2 %    43
-10   	         Thailande_______________ 0.14 %	98 %   2 %    42
-13   	         Israel__________________ 0.18 %	98 %   2 %    41
-16   	         Chine___________________ 0.22 %	98 %   2 %    40
-16   	         Luxembourg______________ 0.22 %	97 %   3 %    39
-17   	         Argentine_______________ 0.23 %	97 %   3 %    38
-17   	         Malaisie________________ 0.23 %	97 %   3 %    37
-17   	         Singapour_______________ 0.23 %	97 %   3 %    36
-18   	         Chili___________________ 0.25 %	96 %   4 %    35
-19   	         Mexique_________________ 0.26 %	96 %   4 %    34
-19   	         Slovenie________________ 0.26 %	96 %   4 %    33
-21   	         Slovaquie_______________ 0.29 %	96 %   4 %    32
-23   	         Inde____________________ 0.32 %	95 %   5 %    31
-24   	         Irlande_________________ 0.33 %	95 %   5 %    30
-24   	         Roumanie________________ 0.33 %	95 %   5 %    29
-25   	         Grece___________________ 0.34 %	94 %   6 %    28
-25   	         Hong-Kong_______________ 0.34 %	94 %   6 %    27
-27   	         Afrique_du_Sud__________ 0.37 %	94 %   6 %    26
-31   	         Russie__________________ 0.43 %	93 %   7 %    25
-32   	         Japon___________________ 0.44 %	93 %   7 %    24
-33   	         Nouvelle-Zelande________ 0.45 %	92 %   8 %    23
-34   	         Portugal________________ 0.47 %	92 %   8 %    22
-37   	         Hongrie_________________ 0.51 %	92 %   8 %    21
-40   	         ________________________ 0.55 %	91 %   9 %    20
-51   	         Finlande________________ 0.70 %	90 %   10 %    19
-52   	         Norvege_________________ 0.72 %	90 %   10 %    18
-54   	         Republique_tcheque______ 0.74 %	89 %   11 %    17
-67   	         Bresil__________________ 0.92 %	88 %   12 %    16
-86   	         Pologne_________________ 1.18 %	87 %   13 %    15
-96   	         Danemark________________ 1.32 %	86 %   14 %    14
-115  	         Suede___________________ 1.58 %	85 %   15 %    13
-117  	         Belgique________________ 1.61 %	83 %   17 %    12
-155  	         Espagne_________________ 2.13 %	82 %   18 %    11
-175  	         Autriche________________ 2.41 %	80 %   20 %    10
-233  	         Australie_______________ 3.21 %	77 %   23 %    9
-280  	         Suisse__________________ 3.85 %	74 %   26 %    8
-296  	         Canada__________________ 4.07 %	70 %   30 %    7
-316  	         Pays-Bas________________ 4.35 %	66 %   34 %    6
-362  	         France__________________ 4.98 %	62 %   38 %    5
-445  	         Italie__________________ 6.12 %	57 %   43 %    4
-654  	         Royaume-Uni_____________ 9.00 %	51 %   49 %    3
-1427 	         Allemagne_______________ 19.63 %	42 %   58 %    2
-1594 	         Etats-Unis______________ 21.93 %	22 %   78 %    1
-TOTAL = 7269 sales 360271 EUR over 98 countries on Fri Jan 3 23:44:21 CET 2020
+1    	         Bahrein_________________ 0.01 %	100 %   0 %    99
+1    	         Bolivie_________________ 0.01 %	100 %   0 %    98
+1    	         Burkina_Faso____________ 0.01 %	100 %   0 %    97
+1    	         Cameroun________________ 0.01 %	100 %   0 %    96
+1    	         Coree_du_Sud____________ 0.01 %	100 %   0 %    95
+1    	         Grenade_________________ 0.01 %	100 %   0 %    94
+1    	         Iles_Feroe______________ 0.01 %	100 %   0 %    93
+1    	      Iles_Vierges_britanniques__ 0.01 %	100 %   0 %    92
+1    	         Jamaique________________ 0.01 %	100 %   0 %    91
+1    	         Jordanie________________ 0.01 %	100 %   0 %    90
+1    	         Kenya___________________ 0.01 %	100 %   0 %    89
+1    	         Koweit__________________ 0.01 %	100 %   0 %    88
+1    	         Maldives________________ 0.01 %	100 %   0 %    87
+1    	         Monaco__________________ 0.01 %	100 %   0 %    86
+1    	         Mongolie________________ 0.01 %	100 %   0 %    85
+1    	         Namibie_________________ 0.01 %	100 %   0 %    84
+1    	         Oman____________________ 0.01 %	100 %   0 %    83
+1    	         Panama__________________ 0.01 %	100 %   0 %    82
+1    	         Qatar___________________ 0.01 %	100 %   0 %    81
+1    	       Republique_d'Azerbaidjan__ 0.01 %	100 %   0 %    80
+1    	Saint_Christophe-Nevis-Anguilla__ 0.01 %	100 %   0 %    79
+1    	         Senegal_________________ 0.01 %	100 %   0 %    78
+1    	         Tanzanie________________ 0.01 %	100 %   0 %    77
+1    	         Trinite-et-Tobago_______ 0.01 %	100 %   0 %    76
+2    	         Albanie_________________ 0.03 %	100 %   0 %    75
+2    	         Antilles_neerlandaises__ 0.03 %	100 %   0 %    74
+2    	         Arabie_Saoudite_________ 0.03 %	100 %   0 %    73
+2    	         Bosnie-Herzegovine______ 0.03 %	100 %   0 %    72
+2    	         Colombie________________ 0.03 %	100 %   0 %    71
+2    	         Ile_Maurice_____________ 0.03 %	100 %   0 %    70
+2    	         Moldavie________________ 0.03 %	100 %   0 %    69
+2    	         Nouvelle-Caledonie______ 0.03 %	100 %   0 %    68
+2    	         Perou___________________ 0.03 %	99 %   1 %    67
+3    	         Costa_Rica______________ 0.04 %	99 %   1 %    66
+3    	         Maroc___________________ 0.04 %	99 %   1 %    65
+3    	         Nigeria_________________ 0.04 %	99 %   1 %    64
+3    	         Taiwan__________________ 0.04 %	99 %   1 %    63
+3    	         Ukraine_________________ 0.04 %	99 %   1 %    62
+3    	         Venezuela_______________ 0.04 %	99 %   1 %    61
+4    	         Indonesie_______________ 0.05 %	99 %   1 %    60
+4    	         Serbie__________________ 0.05 %	99 %   1 %    59
+4    	         Turquie_________________ 0.05 %	99 %   1 %    58
+4    	         Uruguay_________________ 0.05 %	99 %   1 %    57
+4    	         Vietnam_________________ 0.05 %	99 %   1 %    56
+5    	         Ireland_________________ 0.06 %	99 %   1 %    55
+5    	         Philippines_____________ 0.06 %	99 %   1 %    54
+6    	         Egypte__________________ 0.08 %	99 %   1 %    53
+6    	         Lituanie________________ 0.08 %	99 %   1 %    52
+7    	         Islande_________________ 0.09 %	99 %   1 %    51
+7    	         Malte___________________ 0.09 %	99 %   1 %    50
+7    	         Russie,_Federation______ 0.09 %	99 %   1 %    49
+8    	         Bulgarie________________ 0.10 %	98 %   2 %    48
+8    	         Estonie_________________ 0.10 %	98 %   2 %    47
+10   	         Chypre__________________ 0.13 %	98 %   2 %    46
+10   	         Lettonie________________ 0.13 %	98 %   2 %    45
+11   	         Croatie_________________ 0.14 %	98 %   2 %    44
+11   	         Emirats_Arabes_Unis_____ 0.14 %	98 %   2 %    43
+12   	         Thailande_______________ 0.15 %	98 %   2 %    42
+15   	         Israel__________________ 0.19 %	98 %   2 %    41
+16   	         Chine___________________ 0.20 %	97 %   3 %    40
+18   	         Malaisie________________ 0.23 %	97 %   3 %    39
+18   	         Singapour_______________ 0.23 %	97 %   3 %    38
+20   	         Argentine_______________ 0.25 %	97 %   3 %    37
+20   	         Chili___________________ 0.25 %	96 %   4 %    36
+20   	         Luxembourg______________ 0.25 %	96 %   4 %    35
+20   	         Slovenie________________ 0.25 %	96 %   4 %    34
+23   	         Mexique_________________ 0.29 %	96 %   4 %    33
+24   	         Slovaquie_______________ 0.30 %	95 %   5 %    32
+26   	         Hong-Kong_______________ 0.33 %	95 %   5 %    31
+27   	         Inde____________________ 0.34 %	95 %   5 %    30
+27   	         Irlande_________________ 0.34 %	94 %   6 %    29
+28   	         Grece___________________ 0.35 %	94 %   6 %    28
+29   	         Afrique_du_Sud__________ 0.36 %	94 %   6 %    27
+30   	         Roumanie________________ 0.38 %	93 %   7 %    26
+31   	         Russie__________________ 0.39 %	93 %   7 %    25
+32   	         Japon___________________ 0.40 %	93 %   7 %    24
+36   	         Nouvelle-Zelande________ 0.45 %	92 %   8 %    23
+40   	         ________________________ 0.50 %	92 %   8 %    22
+41   	         Hongrie_________________ 0.52 %	91 %   9 %    21
+45   	         Portugal________________ 0.57 %	91 %   9 %    20
+55   	         Finlande________________ 0.69 %	90 %   10 %    19
+56   	         Norvege_________________ 0.70 %	90 %   10 %    18
+61   	         Republique_tcheque______ 0.77 %	89 %   11 %    17
+85   	         Bresil__________________ 1.07 %	88 %   12 %    16
+105  	         Danemark________________ 1.32 %	87 %   13 %    15
+107  	         Pologne_________________ 1.35 %	86 %   14 %    14
+122  	         Suede___________________ 1.53 %	84 %   16 %    13
+135  	         Belgique________________ 1.70 %	83 %   17 %    12
+170  	         Espagne_________________ 2.14 %	81 %   19 %    11
+186  	         Autriche________________ 2.34 %	79 %   21 %    10
+249  	         Australie_______________ 3.13 %	77 %   23 %    9
+301  	         Suisse__________________ 3.79 %	73 %   27 %    8
+317  	         Canada__________________ 3.99 %	70 %   30 %    7
+354  	         Pays-Bas________________ 4.45 %	66 %   34 %    6
+407  	         France__________________ 5.12 %	61 %   39 %    5
+498  	         Italie__________________ 6.26 %	56 %   44 %    4
+703  	         Royaume-Uni_____________ 8.84 %	50 %   50 %    3
+1568 	         Allemagne_______________ 19.72 %	41 %   59 %    2
+1693 	         Etats-Unis______________ 21.29 %	21 %   79 %    1
+TOTAL = 7951 sales 407161 EUR over 99 countries on Wed Dec 2 12:24:33 CET 2020
diff --git a/S/news.shtml b/S/news.shtml
index 2d49966..5d44610 100644
--- a/S/news.shtml
+++ b/S/news.shtml
@@ -4,11 +4,9 @@
 <head>
 <meta  http-equiv="content-type"  content="application/xhtml+xml; charset=UTF-8" />
 <title>Imapsync News</title>
-<meta  content="Bluefish 2.2.2"  name="generator" />
 <meta  content="Gilles LAMIRAL"  name="author" />
-<meta  content="2016-01-22T01:56:39+0100"  name="date" />
 <meta  content="None"  name="copyright" />
-<meta  content="imap, transfer, migration, synchronization"  name="keywords" />
+<meta  content="imapsync, imap, transfer, migration, synchronization"  name="keywords" />
 <meta  content="imap migration tool"  name="description" />
 
 
@@ -30,72 +28,151 @@
 next and previous releases <a  href="../#TOP"  id="latest"><small>(back to menu)</small></a>
 </h1>
 
-<p>imapsync <!--#exec cmd="cat ../VERSION" --> was written on <!--#flastmod file="VERSION" -->
-</p>
 
-<p>See <b><a  href="../ChangeLog">ChangeLog</a></b> to read what has been done in details since 2001.</p>
-
-<p>New features or bugfixes since previous releases:</p>
+<h2>Roadmap</h2>
 
 <!-- 
 <ul>
 <li><b>Roadmap</b>: </li>
 </ul>
+-->
 
-<ul>
-<li><b>1.964</b></li>
-<li><b>Dependencies removed</b>: </li>
-<li><b>Dependencies added</b>: Perl modules </li>
+<p>
+If you are very interrested in those projects, don't hesitate to solicit me!
+</p>
 
-<li><b>Enhancement</b>: </li>
-<li><b>Enhancement</b>: </li>
-<li><b>Enhancement</b>: </li>
-<li><b>Enhancement</b>: </li>
-<li><b>Enhancement</b>: </li>
-
-
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-<li><b>Usability</b>: </li>
-
-<li><b>Bug fix</b>: </li>
-<li><b>Bug fix</b>: </li>
-<li><b>Bug fix</b>: </li>
-<li><b>Bug fix</b>: </li>
-<li><b>Bug fix</b>: </li>
-<li><b>Bug fix</b>: </li>
-
-<li><b>Refactoring</b>: </li>
-<li><b>Refactoring</b>: </li>
-<li><b>Refactoring</b>: </li>
-<li><b>Refactoring</b>: </li>
-
-<li><b>Security</b>: </li>
-<li><b>Security</b>: </li>
-
-<li><b>Portability</b>: </li>
-<li><b>Portability</b>: </li>
-
-
-</ul>
- -->
-
- 
 <ul>
 <li><b>Roadmap</b>: Build a docker image including everything, to have a complete online /X in a single command.</li>
-<li><b>Roadmap</b>: Or better: Include a webserver in imapsync to have an online /X integrated.</li>
+<li><b>Roadmap</b>: Or better: Include a webserver in imapsync to have an online /X integrated. (NB: proof of concept already coded and working)</li>
 <li><b>Roadmap</b>: Add the sync of multiple accounts inside imapsync itself instead of via an external shell script doing the loop from a csv file.</li>
+<li><b>Roadmap</b>: Build an online tool, like /X, for multiple accounts at once. (NB: proof of concept already coded and working)</li>
 </ul>
 
+
+<h2>New features or bugfixes since previous releases:</h2>
+
+<p>imapsync <!--#exec cmd="cat ../VERSION" --> was written on <!--#flastmod file="VERSION" -->
+</p>
+
+<p>See <b><a  href="../ChangeLog">ChangeLog</a></b> to read what has been done in details since 2001.</p>
+
+<!--
+<ul>
+<li><b>2.xxx</b></li>
+<li><b>General</b>: </li>
+
+<li><b>Dependencies removed</b>: None </li>
+<li><b>Dependencies added</b>:   None </li>
+
+<li><b>Enhancement</b>: </li>
+<li><b>Enhancement</b>: </li>
+
+<li><b>Usability</b>: </li>
+<li><b>Usability</b>: </li>
+
+<li><b>Bug fix</b>: </li>
+<li><b>Bug fix</b>: </li>
+
+<li><b>Refactoring</b>: </li>
+<li><b>Refactoring</b>: </li>
+
+<li><b>Security</b>: </li>
+<li><b>Security</b>: </li>
+
+<li><b>Portability</b>: </li>
+<li><b>Portability</b>: </li>
+
+</ul>
+-->
+
+<ul>
+<li><b>2.140</b></li>
+<li><b>General</b>: New release numbering from 1.999 directly to 2.100; I want to avoid 1.1000 and sorting issues in directory listing.</li>
+<li><b>Dependencies removed</b>: None</li>
+<li><b>Dependencies added</b>: None</li>
+
+<li><b>Enhancement</b>: Check if SEARCH ALL works on both accounts and then add --noabletosearch if one can not. Use --nochecknoabletosearch to avoid that behavior.</li>
+<li><b>Enhancement</b>: Added an analyse and classification of the errors encountered.
+Most common error encountered is printed at the end.
+Exit value 112 (EXIT_WITH_ERRORS_MAX) is now replaced by the most common error encountered exit value:
+<pre>
+     EX_OK          => 0  ; #/* successful termination */
+     EX_USAGE       => 64 ; #/* command line usage error */
+     EX_NOINPUT     => 66 ; #/* cannot open input */
+     EX_UNAVAILABLE => 69 ; #/* service unavailable */
+     EX_SOFTWARE    => 70 ; #/* internal software error */
+     EXIT_CATCH_ALL              =>   1 ; # Any other error
+     EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
+     EXIT_BY_FILE                =>   7 ;
+     EXIT_PID_FILE_ERROR         =>   8 ;
+     EXIT_CONNECTION_FAILURE     =>  10 ;
+     EXIT_TLS_FAILURE            =>  12 ;
+     EXIT_AUTHENTICATION_FAILURE =>  16 ;
+     EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
+     EXIT_WITH_ERRORS            => 111 ;
+     EXIT_WITH_ERRORS_MAX        => 112 ;
+     EXIT_OVERQUOTA              => 113 ;
+     EXIT_ERR_APPEND             => 114 ;
+     EXIT_ERR_FETCH              => 115 ;
+     EXIT_ERR_CREATE             => 116 ;
+     EXIT_ERR_SELECT             => 117 ;
+     EXIT_TRANSFER_EXCEEDED      => 118 ;
+     EXIT_ERR_APPEND_VIRUS       => 119 ;
+     EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
+     EXIT_CONNECTION_FAILURE_HOST1     =>  101 ;
+     EXIT_CONNECTION_FAILURE_HOST2     =>  102 ;
+     EXIT_AUTHENTICATION_FAILURE_USER1 =>  161 ;
+     EXIT_AUTHENTICATION_FAILURE_USER2 =>  162 ;
+</pre>
+</li>
+
+
+<li><b>Enhancement</b>: Added option --dry1 it avoids to fetch the message on host1 in --dry mode. Option --dry1 is on when --dry is on.
+       It speeds up --dry very much. To get the old --dry behavior, use --dry --nodry1</li>
+<li><b>Enhancement</b>: Do both sides login and authentication before exiting on failure.</li>
+<li><b>Enhancement</b>: --timeout can now be a float (was only integer). Same for --timeout1 --timeout2</li>
+<li><b>Enhancement</b>: Added option --syncduplicates to sync duplicates. On by default in CGI context. Off by default on command line.</li>
+<li><b>Enhancement</b>: Added option --trylogin. After a login failure of any kind, imapsync tries to login 
+  with the LOGIN command. Use --notrylogin to avoid that. --trylogin is on by default.
+ </li>
+<li><b>Enhancement</b>: Added options --oauthaccesstoken1 and --oauthaccesstoken2 to support OAUTH2 authentication.</li>
+<li><b>Enhancement</b>: Added options --oauthdirect1 and --oauthdirect2 to support OAUTH2 authentication.</li>
+<li><b>Enhancement</b>: Added statistic line "CPU time and %cpu". 
+                        Example: "CPU time and %cpu : 9.2 sec 39.8 %cpu 19.9 %allcpus".</li>
+<li><b>Enhancement</b>: Added option --filterbuggyflags to filter flags known to be buggy and 
+                        generators of errors "BAD Invalid system flag" or "NO APPEND Invalid flag list".</li>
+
+
+<li><b>CGI context</b>: Back from Message-Id to Message-Id Received in cgisetcontext</li>
+<li><b>CGI context</b>: In CGI context, the log directory is no longer ./LOG_imapsync/ but simply ./ It should fasten the searches and grep</li>
+<li><b>CGI context</b>: Added --loglogfile option. Append ../list_all_logs_auto.txt with the logfile name. On by default in CGI context.</li>
+
+
+<li><b>Usability</b>: Changed time presentation on ETA and in final stats. Example: Wednesday 16 June 2021-06-16 00:32:05 +0200 CEST</li>
+<li><b>Usability</b>: Do not check selectable folders for huge accounts with more than 152 folders, 98 percentile of /X; 
+                      It could be very long and ended up with some users transformed in stone just by staring at the fixed output.</li>
+
+
+<li><b>Bug fix</b>: The number of detected cpus (cores) was accurate only on Linux. Added Freebsd and fixed Darwin and Windows parts.</li>
+
+<li><b>Refactoring</b>: Continuing to deglobalize the global variables.</li>
+<li><b>Refactoring</b>: 1734 unit tests.</li>
+<li><b>Refactoring</b>: </li>
+
+
+</ul>
+
+
+
 <ul>
 <li><b>1.977</b></li>
 <li><b>Dependencies removed</b>: None.</li>
 <li><b>Dependencies added</b>: Perl modules Encode::IMAPUTF7</li>
 
+<li><b>Windows</b>: imapsync.exe is now 64 bits (it was a 32bit binary before). 
+                    If you use an old 32bit PC, use imapsync_32bit.exe instead.
+</li>
+
 <li><b>Enhancement</b>: Folders sizes are now presented per folder for host1 and host2,
                         as well as the differrences between them.
                         Comparing folders is now easier</li>
@@ -877,7 +954,7 @@ by ignoring PERMANENTFLAGS (Exchange tests)</li>
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: news.shtml,v 1.74 2020/01/01 21:07:13 gilles Exp gilles $)<br />
+($Id: news.shtml,v 1.78 2021/07/05 20:22:15 gilles Exp gilles $)<br />
 <a  href="#TOP">Top of the page</a>
 </p>
 </body></html>
diff --git a/S/paypal_return.shtml b/S/paypal_return.shtml
index 2eaecaf..2292a1c 100644
--- a/S/paypal_return.shtml
+++ b/S/paypal_return.shtml
@@ -3,9 +3,8 @@
 
 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
 <head>
-<title>imapsync download</title>
+<title>Imapsync download</title>
 <meta name="author" content="Gilles LAMIRAL" />
-<meta name="date" content="2016-08-16T19:20:38+0200" />
 <meta name="copyright" content="None"/>
 <meta name="keywords" content=""/>
 <meta name="description" content=""/>
@@ -14,63 +13,59 @@
 <meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8"/>
 <meta http-equiv="content-style-type" content="text/css"/>
 <meta http-equiv="expires" content="0"/>
-<link rel="icon" type="image/png" href="S/images/logo_imapsync_s.png" />
 
-<style type="text/css">
-body {
-  color: black;
-  background-color: #ccdddd 
-}
-
-div.center {
-text-align: center;
-}
-
-img{
-border:0px;
-}
-</style>
+<link  rel="canonical"        href="https://imapsync.lamiral.info/" />
+<link  rel="icon"             href="S/images/logo_imapsync_s.png"  type="image/png"  />
+<link  rel="apple-touch-icon" href="S/images/logo_imapsync_s.png"  type="image/png"  />
+<link  rel="stylesheet"       href="S/style.css"                   type="text/css"   />
 
 
 <meta name="viewport" content="width=device-width, initial-scale=1" />
+
+
 <!--
     <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" />
 -->
+
 </head>
 
 <body>
-<h1>imapsync download</h1>
+<h1>Imapsync download</h1>
 
-<p><b>I thank you for buying Imapsync!</b></p>
+<p><b>I thank you very much for buying Imapsync!</b></p>
 
-<p>The payment has been made and the transaction has been completed.<br/>
-A receipt for your purchase has been emailed to you.<br/>
+<p>The payment is done and the transaction is completed.<br/>
+A receipt for your purchase was emailed to you.<br/>
 You may log into your account at <a href="http://www.paypal.com/">www.paypal.com</a> 
 to view details of this transaction (if you have a Paypal account). 
 </p>
 
-<p>You will find <b>imapsync</b> release <!--#exec cmd="cat ../VERSION" --> at this
-<a href="../dist2/"><b>download page</b></a>.
+<p>Now you have access to the <b>full unlimited imapsync
+<a href="https://imapsync.lamiral.info/X/imapsync_form_extra.html">online service /X</a></b>.
+This online imapsync service doesn't require any installation on your side, just use it as it is.</p>
+
+<p>Also, in case you want to <b>run imapsync by yourself</b>, you will find <b>imapsync</b> 
+release <!--#exec cmd="cat ../VERSION" --> on this <a href="../dist2/"><b>download page</b></a>.
 </p>
 
 <p>
-Next step is imapsync <a href="../#install" >installation</a> 
-and then your first runs following the <a href="../#doc" >tutorial</a>.
+The next step for you is reading and following the imapsync <a href="../#install" >installation</a> 
+process and then doing your first syncs following the <a href="../#doc" >tutorial</a>.
 </p>
 
 
-<p>You will receive an invoice soon, in a couple of weeks at the worst. 
+<p>You will <b>receive an invoice soon</b>, in a couple of weeks at the worst. 
 Ask for it if you need it before.</p>
 
-<p>Next imapsync releases will be available to you for lifetime without extra payment.<br/>
+<p>Next imapsync releases will be available to you <b>for a lifetime without extra payment</b>.<br/>
 This current page will be updated to reflect the latest release of imapsync.<br/>
 You will be soon subscribed to the newsletter announcing new imapsync releases and services (and only that).</p>
 
 
-<p>For <b>professional support</b>, in order to explain your <b>specific needs</b>, 
-find <b>best solutions</b> for them, <b>avoid loosing time</b>,
+<p>For <b>professional support</b>, to explain your <b>specific needs</b>, 
+find the <b>best solutions</b> for them, <b>avoid losing time</b>,
 and <b>succeed</b> your migration in the best conditions, <b>contact me</b> 
-(Gilles LAMIRAL) by email or phone at:</p>
+(Gilles LAMIRAL) by preferably email or phone at:</p>
 <ul>
 <li>Email address: <b>gilles@lamiral.info</b>.</li>
 <li>Professional phone number: <b>+33 9 51 84 42 42</b> (in France) I can <b>call you back</b>  toll-free in many countries.</li>
@@ -82,7 +77,7 @@ and <b>succeed</b> your migration in the best conditions, <b>contact me</b>
 <p><b>I thank you</b> again for buying and using imapsync,<br/>
 <b>I wish you successful imap transfers!</b></p>
 
-<p>Back to <a href="../">imapsync homepage</a>.
+<p>Back to the <a href="../">imapsync homepage</a>.
 </p>
 
 <p><b>Gilles LAMIRAL</b><br/>
@@ -102,14 +97,12 @@ src="S/images/valid-xhtml10"
   <img  
   alt="CSS Valide !"  
   src="S/images/vcss-blue"  
-  style="border:0;width:88px;height:31px" 
   /></a>
 
 <a  href="https://www.anybrowser.org/campaign/">
 <img  
 alt="Viewable With Any Browser"  
 src="S/images/ab_jlh.png"  
-style="border:0;width:88px;height:31px" 
 /></a>
 </p>
 
@@ -119,23 +112,15 @@ style="border:0;width:88px;height:31px"
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b> 
-($Id: paypal_return.shtml,v 1.36 2018/06/11 22:35:57 gilles Exp gilles $)
+($Id: paypal_return.shtml,v 1.39 2020/10/13 16:25:09 gilles Exp gilles $)
 </p>
-<!-- Google Code for Achat imapsync Conversion Page -->
-<script type="text/javascript">
-/* <![CDATA[ */
-var google_conversion_id = 992916412;
-var google_conversion_language = "en";
-var google_conversion_format = "2";
-var google_conversion_color = "ffffff";
-var google_conversion_label = "hVVWCKzApQIQvOe62QM";
-var google_conversion_value = "USD 1.00";
-var google_conversion_currency = "USD";
-var google_remarketing_only = false;
-/* ]]> */
+
+<script type="text/javascript" src="S/conversion_data.js">
 </script>
+
 <script type="text/javascript" src="//www.googleadservices.com/pagead/conversion.js">
 </script>
+
 <noscript>
 <div style="display:inline;">
 <img height="1" width="1" style="border-style:none;" alt="" src="//www.googleadservices.com/pagead/conversion/992916412/?value=1.00&amp;currency_code=USD&amp;label=hVVWCKzApQIQvOe62QM&amp;guid=ON&amp;script=0"/>
diff --git a/S/style.css b/S/style.css
index 82b923f..7f11dc6 100644
--- a/S/style.css
+++ b/S/style.css
@@ -1,5 +1,5 @@
 
-/* $Id: style.css,v 1.14 2018/06/12 09:30:13 gilles Exp gilles $ */
+/* $Id: style.css,v 1.16 2020/06/17 05:13:27 gilles Exp gilles $ */
 
 /* http://www.w3schools.com/html/html5_browsers.asp */
 
@@ -30,29 +30,15 @@ body {
   width: 60%;
   }
 
-  }
-
-@media screen and ( min-width: 1280px ) {
-  #left-menu {
-    float: left;
-    width: 40%;
-  }
-
-  #centered-logo {
-    float: left;
-    width: 60%;
-  }
-}
-
-
-
-@media screen and ( min-width: 960px ) {
   div.list {
     display: inline-block; 
     vertical-align: top; 
   }
+
 }
 
+
+
 div.poll {
   display: inline-block;
   vertical-align: top;
@@ -99,3 +85,61 @@ select {
         font-size: larger;
 }
 
+/*!
+ * LaTeX.css (https://latex.now.sh/)
+ *
+ * Source: https://github.com/vincentdoerig/latex-css
+ * Licensed under MIT (https://github.com/vincentdoerig/latex-css/blob/master/LICENSE)
+*/
+
+@font-face {
+  font-family: 'Latin Modern';
+  font-style: normal;
+  font-weight: normal;
+  font-display: swap;
+  src: url('./fonts/LM-regular.woff2') format('woff2'),
+    url('./fonts/LM-regular.woff') format('woff'),
+    url('./fonts/LM-regular.ttf') format('truetype');
+}
+
+@font-face {
+  font-family: 'Latin Modern';
+  font-style: italic;
+  font-weight: normal;
+  font-display: swap;
+  src: url('./fonts/LM-italic.woff2') format('woff2'),
+    url('./fonts/LM-italic.woff') format('woff'),
+    url('./fonts/LM-italic.ttf') format('truetype');
+}
+
+@font-face {
+  font-family: 'Latin Modern';
+  font-style: normal;
+  font-weight: bold;
+  font-display: swap;
+  src: url('./fonts/LM-bold.woff2') format('woff2'),
+    url('./fonts/LM-bold.woff') format('woff'),
+    url('./fonts/LM-bold.ttf') format('truetype');
+}
+
+@font-face {
+  font-family: 'Latin Modern';
+  font-style: italic;
+  font-weight: bold;
+  font-display: swap;
+  src: url('./fonts/LM-bold-italic.woff2') format('woff2'),
+    url('./fonts/LM-bold-italic.woff') format('woff'),
+    url('./fonts/LM-bold-italic.ttf') format('truetype');
+}
+
+
+
+body {
+  /* I'm not very satisfied with the rendering of Computer Modern when browsing 
+  so I comment it for now.
+  */
+  
+  /* font-family: 'Latin Modern', serif;
+  */
+}
+
diff --git a/S/terms_and_conditions.shtml b/S/terms_and_conditions.shtml
index 9f68f52..9d0ae5d 100644
--- a/S/terms_and_conditions.shtml
+++ b/S/terms_and_conditions.shtml
@@ -39,7 +39,7 @@ http://www.w3schools.com/html/html5_browsers.asp
 </h1>
 
 
-<p>Please read these terms and conditions carefully before using Our Service.
+<p>Please read these terms and conditions carefully before using My Service.
 </p>
 
 <h1>Interpretation and Definitions</h1>
@@ -133,8 +133,6 @@ Please read Our <a href="privacy_policy.shtml">Privacy Policy</a>
 carefully before using Our Service.
 </p>
 
-
-
 <h1>Links to Other Websites</h1>
 
 <p>
@@ -400,7 +398,7 @@ alt="Viewable With Any Browser" >
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document was last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: terms_and_conditions.shtml,v 1.2 2019/12/23 15:57:00 gilles Exp gilles $)<br>
+($Id: terms_and_conditions.shtml,v 1.3 2020/02/14 21:41:12 gilles Exp gilles $)<br>
 <a href="#TOP">Top of the page</a>
 </p>
 </footer>
diff --git a/TODO b/TODO
index 0ffe9da..4fafaba 100644
--- a/TODO
+++ b/TODO
@@ -1,5 +1,5 @@
 #!/bin/cat
-# $Id: TODO,v 1.230 2020/01/03 22:39:22 gilles Exp gilles $
+# $Id: TODO,v 1.257 2021/07/05 20:19:31 gilles Exp gilles $
 
 This documentation is also at http://imapsync.lamiral.info/#doc
 
@@ -7,6 +7,177 @@ This documentation is also at http://imapsync.lamiral.info/#doc
 TODO file for imapsync
 ----------------------
 
+https://imapsync.lamiral.info/TODO
+
+
+SUGGESTED 2021_05_29 on github https://github.com/imapsync/imapsync/issues/78
+ripmime   https://github.com/inflex/ripMIME
+altermime http://pldaniels.com/altermime/
+
+SUGGESTED 2021_05_29 by Gilles 
+Add --regexbody --regexheader, similar to --regexmess
+
+Hum hum, time goes by:
+SUGGESTED 2016_06_09 by Gilles and David Carter
+In order to avoid useless headaches from --regexmess, add
+--regexheader
+--regexbody
+
+
+
+SUGGESTED 2021_01_26 by Gilles and Martin L. R. @duelhost.dk
+I am trying to move some e-mail using imapsync but the domain I'm moving 
+to have the Danish "ø"-character which it doesn't seem like imapsync can handle.
+Make a functional test of this scenario.
+
+SUGGESTED 2021_01_26 by Gilles and Mike
+https://github.com/imapsync/imapsync/pull/266
+Maybe Gmail has changed and that currently "All Mail" really contains all emails
+with all the labels well set to do a good Gmail to Gmail sync but I have to 
+investigate on that.
+
+SUGGESTED 2020_12_11 by Gilles
+Look at XAPPLEPUSHSERVICE for iCloud imap service Apple (Is it Dovecot masquerade?)
+
+SUGGESTED 2020_12_11 by Gilles
+Check my Office365 account (outlook.com) and play with the configuration 
+to still allow imap with imapsync. It already works but it is an old account.
+It looks like new O365 accounts are less likely to allow basic LOGIN imap
+with a password.
+
+SUGGESTED 2020_12_11 byTimo Smit 
+Allow the syntax --host1 "example.com/Sent"
+to sync only the Sent folder.
+
+SUGGESTED 2020_11_30 by Gilles
+Add a FAQ.Invalid_Argument.txt
+This error is a low level connexion issue, either ipv6 or dns resolution of 
+the name.
+
+
+SUGGESTED 2020_11_24 by Gilles
+On Centos 8 SELinux is blocking imapsync online /X by default.
+Dig into this to find the commands that will allow only the online /X service.
+Instead of:
+
+    sestatus
+    setenforce 0
+    sestatus
+
+
+SUGGESTED 2020_11_21 by Mike Alexander https://github.com/mtalexander and Wittmer, Christian https://github.com/computersalat
+Make a "make github" target in Makefile and add an automatic
+  git tag 1.977 # (not 1.977 of course, the actual release number)
+https://github.com/imapsync/imapsync/issues/156
+https://github.com/imapsync/imapsync/issues/251
+
+
+
+SUGGESTED 2020_11_01 bilogic
+How to uninstalled cpanm modules installed by cpanm and installed by
+perl -Mlazy imapsync
+https://github.com/imapsync/imapsync/issues/211#issuecomment-719889417
+
+SUGGESTED 2020_11_04 by Tim O (and others before)
+Add an option to sync newest emails first.
+
+SUGGESTED 2020_10_15 by Alexander Perlis
+Bugfix. With --delete1 duplicate messages on host1 are deleted only
+one at a time, one at each run. Imapsync should delete them all on first pass.
+Add --delete1duplicates
+
+
+SUGGESTED 2020_09_22 by Jon Ward
+--idatefromreceivedheader 
+As I thought about how this option works, I wondered if it makes more sense to 
+use the date from the final RECEIVED header rather than the DATE header?
+This seems like a better solution since it avoids the case of wrong or 
+spoofed times in the DATE header.  
+Also, I would guess that in most cases the final RECEIVED header is for 
+the closest server (to me) and is probably the most correct date/time.
+
+
+SUGGESTED 2020_09_17 by Peter Franken
+I found a bug:
+If I use the parameters "--subfolder1 Sent/2017 --subfolder2 Sent/2017",
+the mails from "Sent/2017" on Host 1 are transferred to "Sent/2017/INBOX" on Host 2.
+
+
+==============================================================================
+OAUTH2 requests
+
+Readings
+https://developers.google.com/identity/protocols/oauth2
+https://www.oauth.com/oauth2-servers/client-registration/client-id-secret/
+https://unix.stackexchange.com/questions/495691/how-to-provide-oauth2-client-id-and-client-secret-to-an-open-source-bash-scr
+https://stackoverflow.com/questions/64150126/best-practice-for-open-source-applications-using-imap-with-oauth2-regarding-cred
+
+SUGGESTED 05/12/2020 by David Carter
+https://massivescale.com/microsoft-v2-endpoint-primer/
+
+A big complication is https://docs.microsoft.com/en-us/exchange/client-developer/legacy-protocols/how-to-authenticate-an-imap-pop-smtp-application-by-using-oauth :
+"Get an access token
+ ... you can select an appropriate flow from the following list and follow the corresponding steps to call the underlying identity platform REST APIs and retrieve an access token.
+
+  OAuth2 authorization code flow
+  OAuth2 Device authorization grant flow
+
+OAuth access to IMAP, POP, SMTP AUTH protocols via OAuth2 client credentials grant flow is not supported." 
+
+
+SUGGESTED 2020_10_15 by Alexander Perlis
+https://gitlab.com/muttmua/mutt/-/blob/master/contrib/mutt_oauth2.py.README
+https://gitlab.com/muttmua/mutt/-/blob/master/contrib/mutt_oauth2.py
+
+
+SUGGESTED 2020_09_10 by Joe Rizzo
+I can follow these instructions and authenticate to imap.
+Is there a way I can use the access token generated by this process to authenticate with imapsync?
+https://github.com/google/gmail-oauth2-tools/wiki/OAuth2DotPyRunThrough
+$ python2.7 oauth2.py --test_imap_authentication --access_token=XXXX --user=user@domain.com
+  35:05.38 > CCPK1 AUTHENTICATE XOAUTH2
+  35:05.39 < +
+  35:05.39 write literal size 276
+  35:05.46 < * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT LIST-EXTENDED LIST-STATUS LITERAL- SPECIAL-USE APPENDLIMIT=35651584
+  35:05.46 < CCPK1 OK user@domain.com authenticated (Success)
+
+SUGGESTED 2021_01_07 by many people
+Add OAUTH2 individual to Gmail and Office365
+http://vdirsyncer.pimutils.org/en/stable/config.html#google
+Office365:
+https://techcommunity.microsoft.com/t5/exchange-team-blog/announcing-oauth-2-0-support-for-imap-and-smtp-auth-protocols-in/ba-p/1330432
+https://docs.microsoft.com/en-us/azure/active-directory/develop/v2-oauth2-auth-code-flow
+https://docs.microsoft.com/en-us/azure/active-directory/develop/v2-oauth2-device-code
+
+
+SUGGESTED on 31 Jan 2017 by tibbsbrookside
+Try this code XOAUTH2
+https://github.com/imapsync/imapsync/issues/87#issuecomment-276298841
+
+End of OAUTH2 requests
+==============================================================================
+   
+
+
+SUGGESTED 2020_04_16 by Gilles and tom@mklab
+Reinvestigate the memory issue for huge folder with 
+326691 messages in them. It sounds that imapsync
+take 2.5 Ko memory per message. 
+Trace memory consumption by message.
+
+
+
+SUGGESTED 2020_04_23 by Gabriel
+Folders Size human readable
+une option pour avoir la taille des dossiers individuels en MB,
+lors de l'utilisation de --justfoldersizes ?
+
+SUGGESTED 2020_03_02 by https://github.com/gpothier
+https://github.com/imapsync/imapsync/issues/27#issuecomment-593425945
+Bugfix. Do fail when --minage or --maxage are employed with --search
+Or make them be consistent, ie, do an AND between them.
+Or at least document the bad current behavior which is that
+--search overrides any --minage or --maxage 
 
 SUGGESTED 2020_01_03 by Gilles
 Bugfix. When running ./imapsync --tests --testslive
@@ -88,29 +259,26 @@ and update this status file every few seconds, so any application
 can access it and see what's going on with this process without
 parsing logs or keeping up with the log format when it changes.
 Example of such status file would be:
-In progress
+
+In good progress
 {
-"status": "In progress",
+"status": "in progress",
 "progress": "245/5000",
-"Message": "",
-"Debug": "",
-"Process ID": "pid123456"
-}
-On error example
-{
-"status": "Fail",
-"progress": "245/5000",
-"Message": "ERRCODE:123",
-"Debug": "LOG_imapsync/2019_09_22_09_01_42_058_abc@example.com_JDoe@example.com.txt",
-"Process ID": "pid123456"
+"message_rate":"7.06 msgs/s",
+"bandwidth_rate":"2.801 KiB/s",
+"errors_count": "0",
+"logfile": "LOG_imapsync/2019_09_22_09_01_42_058_abc@example.com_JDoe@example.com.txt",
+"pid": "123456",
+"exit_value": ""
 }
+
 On complete example*
 {
-"status": "Completed",
+"status": "finished",
 "progress": "5000/5000",
-"Message": "",
-"Debug": "LOG_imapsync/2019_09_22_09_01_42_058_abc@example.com_JDoe@example.com.txt",
-"Process ID": ""
+"logfile": "LOG_imapsync/2019_09_22_09_01_42_058_abc@example.com_JDoe@example.com.txt",
+"pid": ""
+"exit_value": "0"
 }
 
 
@@ -138,10 +306,6 @@ ks5 should be ok: Server Version: Apache/2.4.33 (FreeBSD)
 
 
 
-SUGGESTED on 31 Jan 2017 by tibbsbrookside
-Try this code XOAUTH2
-https://github.com/imapsync/imapsync/issues/87#issuecomment-276298841
-
 
 SUGGESTED 2019_06_18 by Konrad Wawryn
 Add NTLMv2 support
@@ -318,10 +482,6 @@ DONE * 420 perlcritic violations of CodeLayout::ProhibitParensWithBuiltins. "Bui
 
 
 
-SUGGESTED 2016_06_09 by Gilles and David Carter
-In order to avoid useless headaches from --regexmess, add
---regexheader
---regexbody
 
 SUGGESTED 2016_06_09 by David Carter
 Add --pipemess-on-fail
@@ -536,6 +696,11 @@ http://asg.web.cmu.edu/cyrus/download/imapd/altnamespace.html
 Now the TODO done! (or not)
 ===========================================================================
 
+DONE 2021/04/30 revision 2.111 by Gilles
+SUGGESTED 2021_04_22 by popular request
+Add an option --syncduplicates that syncs duplicates.
+
+
 DONE      2019/12/16 revision 1.974 by Gilles
 Use Debug_fh to set where go the --debugimap outputs.
 SUGGESTED 2017_09_04 by Gilles
diff --git a/VERSION b/VERSION
index 93df0bc..4904a8a 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.977
+2.140
diff --git a/W/.BUILD_EXE_TIME b/W/.BUILD_EXE_TIME
deleted file mode 100644
index 8192618..0000000
--- a/W/.BUILD_EXE_TIME
+++ /dev/null
@@ -1,759 +0,0 @@
-1287414970 BEGIN  1.359 : lundi 18 octobre 2010, 17:16:10 (UTC+0200)
-1287415485 END    1.359 : lundi 18 octobre 2010, 17:24:45 (UTC+0200)
-1287529537 BEGIN  1.361 : mercredi 20 octobre 2010, 01:05:37 (UTC+0200)
-1287530365 END    1.361 : mercredi 20 octobre 2010, 01:19:25 (UTC+0200)
-1287959962 BEGIN  1.363 : lundi 25 octobre 2010, 00:39:22 (UTC+0200)
-1287961164 END    1.363 : lundi 25 octobre 2010, 00:59:24 (UTC+0200)
-1288000749 BEGIN  1.364 : lundi 25 octobre 2010, 11:59:09 (UTC+0200)
-1288001592 END    1.364 : lundi 25 octobre 2010, 12:13:12 (UTC+0200)
-1288007381 BEGIN  1.365 : lundi 25 octobre 2010, 13:49:41 (UTC+0200)
-1288008514 END    1.365 : lundi 25 octobre 2010, 14:08:34 (UTC+0200)
-1288027748 BEGIN  1.366 : lundi 25 octobre 2010, 19:29:08 (UTC+0200)
-1288028635 END    1.366 : lundi 25 octobre 2010, 19:43:55 (UTC+0200)
-1288393061 BEGIN  1.366 : samedi 30 octobre 2010, 00:57:41 (UTC+0200)
-1288394122 END    1.366 : samedi 30 octobre 2010, 01:15:22 (UTC+0200)
-1288441141 BEGIN  1.366 : samedi 30 octobre 2010, 14:19:01 (UTC+0200)
-1288442098 END    1.366 : samedi 30 octobre 2010, 14:34:58 (UTC+0200)
-1288672517 BEGIN  1.370 : mardi 2 novembre 2010, 05:35:17 (UTC+0100)
-1288673466 END    1.370 : mardi 2 novembre 2010, 05:51:06 (UTC+0100)
-1288749547 BEGIN  1.372 : mercredi 3 novembre 2010, 02:59:07 (UTC+0100)
-1288750449 END    1.372 : mercredi 3 novembre 2010, 03:14:09 (UTC+0100)
-1289173896 BEGIN  1.375 : lundi 8 novembre 2010, 00:51:36 (UTC+0100)
-1289174968 END    1.375 : lundi 8 novembre 2010, 01:09:28 (UTC+0100)
-1289267414 BEGIN  1.376 : mardi 9 novembre 2010, 02:50:14 (UTC+0100)
-1289268358 END    1.376 : mardi 9 novembre 2010, 03:05:58 (UTC+0100)
-1289268882 BEGIN  1.377 : mardi 9 novembre 2010, 03:14:42 (UTC+0100)
-1289269805 END    1.377 : mardi 9 novembre 2010, 03:30:05 (UTC+0100)
-1289530140 BEGIN  1.379 : vendredi 12 novembre 2010, 03:49:00 (UTC+0100)
-1289530697 END    1.379 : vendredi 12 novembre 2010, 03:58:17 (UTC+0100)
-1290919960 BEGIN  1.383 : dimanche 28 novembre 2010, 05:52:40 (UTC+0100)
-1290920529 END    1.383 : dimanche 28 novembre 2010, 06:02:09 (UTC+0100)
-1293675398 BEGIN  1.388 : jeudi 30 décembre 2010, 03:16:38 (UTC+0100)
-1293675986 END    1.388 : jeudi 30 décembre 2010, 03:26:26 (UTC+0100)
-1294638763 BEGIN  1.390 : lundi 10 janvier 2011, 06:52:43 (UTC+0100)
-1294639451 END    1.390 : lundi 10 janvier 2011, 07:04:11 (UTC+0100)
-1295319857 BEGIN  1.398 : mardi 18 janvier 2011, 04:04:17 (UTC+0100)
-1295320425 END    1.398 : mardi 18 janvier 2011, 04:13:45 (UTC+0100)
-1297861110 BEGIN  1.402 : mercredi 16 février 2011, 13:58:30 (UTC+0100)
-1297861912 END    1.402 : mercredi 16 février 2011, 14:11:52 (UTC+0100)
-1298253714 BEGIN  1.403 : lundi 21 février 2011, 03:01:54 (UTC+0100)
-1298254508 END    1.403 : lundi 21 février 2011, 03:15:08 (UTC+0100)
-1298255478 BEGIN  1.403 : lundi 21 février 2011, 03:31:18 (UTC+0100)
-1298256141 END    1.403 : lundi 21 février 2011, 03:42:21 (UTC+0100)
-1298260592 BEGIN  1.404 : lundi 21 février 2011, 04:56:32 (UTC+0100)
-1298261452 END    1.404 : lundi 21 février 2011, 05:10:52 (UTC+0100)
-1301848291 BEGIN  1.407 : dimanche 3 avril 2011, 18:31:31 (UTC+0200)
-1301848906 END    1.407 : dimanche 3 avril 2011, 18:41:46 (UTC+0200)
-1303254735 BEGIN  1.410 : mercredi 20 avril 2011, 01:12:15 (UTC+0200)
-1303255348 END    1.410 : mercredi 20 avril 2011, 01:22:28 (UTC+0200)
-1303256202 BEGIN  1.411 : mercredi 20 avril 2011, 01:36:42 (UTC+0200)
-1303256792 END    1.411 : mercredi 20 avril 2011, 01:46:32 (UTC+0200)
-1304002264 BEGIN  1.412 : jeudi 28 avril 2011, 16:51:04 (UTC+0200)
-1304002897 END    1.412 : jeudi 28 avril 2011, 17:01:37 (UTC+0200)
-1304123317 BEGIN  1.414 : samedi 30 avril 2011, 02:28:37 (UTC+0200)
-1304123975 END    1.414 : samedi 30 avril 2011, 02:39:35 (UTC+0200)
-1304213299 BEGIN  1.415 : dimanche 1 mai 2011, 03:28:19 (UTC+0200)
-1304213991 END    1.415 : dimanche 1 mai 2011, 03:39:51 (UTC+0200)
-1304611981 BEGIN  1.417 : jeudi 5 mai 2011, 18:13:01 (UTC+0200)
-1304612684 END    1.417 : jeudi 5 mai 2011, 18:24:44 (UTC+0200)
-1304816113 BEGIN  1.420 : dimanche 8 mai 2011, 02:55:13 (UTC+0200)
-1304816775 END    1.420 : dimanche 8 mai 2011, 03:06:15 (UTC+0200)
-1304876623 BEGIN  1.422 : dimanche 8 mai 2011, 19:43:43 (UTC+0200)
-1304877295 END    1.422 : dimanche 8 mai 2011, 19:54:55 (UTC+0200)
-1305335893 BEGIN  1.426 : samedi 14 mai 2011, 03:18:13 (UTC+0200)
-1305336587 END    1.426 : samedi 14 mai 2011, 03:29:47 (UTC+0200)
-1305337730 BEGIN  1.427 : samedi 14 mai 2011, 03:48:50 (UTC+0200)
-1305338433 END    1.427 : samedi 14 mai 2011, 04:00:33 (UTC+0200)
-1305340416 BEGIN  1.428 : samedi 14 mai 2011, 04:33:36 (UTC+0200)
-1305341178 END    1.428 : samedi 14 mai 2011, 04:46:18 (UTC+0200)
-1305421759 BEGIN  1.431 : dimanche 15 mai 2011, 03:09:19 (UTC+0200)
-1305422519 END    1.431 : dimanche 15 mai 2011, 03:21:59 (UTC+0200)
-1305516015 BEGIN  1.433 : lundi 16 mai 2011, 05:20:16 (UTC+0200)
-1305516805 END    1.433 : lundi 16 mai 2011, 05:33:25 (UTC+0200)
-1305530708 BEGIN  1.434 : lundi 16 mai 2011, 09:25:08 (UTC+0200)
-1305531494 END    1.434 : lundi 16 mai 2011, 09:38:14 (UTC+0200)
-1306774566 BEGIN  1.444 : lundi 30 mai 2011, 18:56:06 (UTC+0200)
-1306775410 END    1.444 : lundi 30 mai 2011, 19:10:10 (UTC+0200)
-1306792918 BEGIN  1.444 : mardi 31 mai 2011, 00:01:58 (UTC+0200)
-1306793766 END    1.444 : mardi 31 mai 2011, 00:16:06 (UTC+0200)
-1306834735 BEGIN  1.446 : mardi 31 mai 2011, 11:38:55 (UTC+0200)
-1306835728 END    1.446 : mardi 31 mai 2011, 11:55:28 (UTC+0200)
-1310345934 BEGIN  1.452 : lundi 11 juillet 2011, 02:58:54 (UTC+0200)
-1310346470 END    1.452 : lundi 11 juillet 2011, 03:07:50 (UTC+0200)
-1310657415 BEGIN  1.452 : jeudi 14 juillet 2011, 17:30:15 (UTC+0200)
-1310658721 END    1.452 : jeudi 14 juillet 2011, 17:52:01 (UTC+0200)
-1311908493 BEGIN  1.455 : vendredi 29 juillet 2011, 05:01:33 (UTC+0200)
-1311909777 END    1.455 : vendredi 29 juillet 2011, 05:22:57 (UTC+0200)
-1314166856 BEGIN  1.456 : mercredi 24 août 2011, 08:20:56 (UTC+0200)
-1314168142 END    1.456 : mercredi 24 août 2011, 08:42:22 (UTC+0200)
-1314171749 BEGIN  1.456 : mercredi 24 août 2011, 09:42:29 (UTC+0200)
-1314173017 END    1.456 : mercredi 24 août 2011, 10:03:37 (UTC+0200)
-1321129414 BEGIN  1.462 : samedi 12 novembre 2011, 21:23:34 (UTC+0100)
-1321130650 END    1.462 : samedi 12 novembre 2011, 21:44:10 (UTC+0100)
-1321176819 BEGIN  1.463 : dimanche 13 novembre 2011, 10:33:40 (UTC+0100)
-1321178088 END    1.463 : dimanche 13 novembre 2011, 10:54:48 (UTC+0100)
-1321319225 BEGIN  1.464 : mardi 15 novembre 2011, 02:07:05 (UTC+0100)
-1321320488 END    1.464 : mardi 15 novembre 2011, 02:28:08 (UTC+0100)
-1321581274 BEGIN  1.468 : vendredi 18 novembre 2011, 02:54:34 (UTC+0100)
-1321582671 END    1.468 : vendredi 18 novembre 2011, 03:17:51 (UTC+0100)
-1321630549 BEGIN  1.468 : vendredi 18 novembre 2011, 16:35:49 (UTC+0100)
-1321631939 END    1.468 : vendredi 18 novembre 2011, 16:58:59 (UTC+0100)
-1322799435 BEGIN  1.473 : vendredi 2 décembre 2011, 05:17:15 (UTC+0100)
-1322800825 END    1.473 : vendredi 2 décembre 2011, 05:40:25 (UTC+0100)
-1323481197 BEGIN  1.476 : samedi 10 décembre 2011, 02:39:57 (UTC+0100)
-1323483957 END    1.476 : samedi 10 décembre 2011, 03:25:57 (UTC+0100)
-1325999759 BEGIN  1.480 : dimanche 8 janvier 2012, 06:15:59 (UTC+0100)
-1326001199 END    1.480 : dimanche 8 janvier 2012, 06:39:59 (UTC+0100)
-1326006966 BEGIN  1.480 : dimanche 8 janvier 2012, 08:16:06 (UTC+0100)
-1326008395 END    1.480 : dimanche 8 janvier 2012, 08:39:55 (UTC+0100)
-1328579636 BEGIN  1.484 : mardi 7 février 2012, 02:53:56 (UTC+0100)
-1328582268 END    1.484 : mardi 7 février 2012, 03:37:48 (UTC+0100)
-1328612115 BEGIN  1.484 : mardi 7 février 2012, 11:55:15 (UTC+0100)
-1328614619 END    1.484 : mardi 7 février 2012, 12:36:59 (UTC+0100)
-1330180997 BEGIN  1.486 : samedi 25 février 2012, 15:43:17 (UTC+0100)
-1330183785 END    1.486 : samedi 25 février 2012, 16:29:45 (UTC+0100)
-1330493497 BEGIN  1.487 : mercredi 29 février 2012, 06:31:37 (UTC+0100)
-1330496194 END    1.487 : mercredi 29 février 2012, 07:16:34 (UTC+0100)
-1334360626 BEGIN  1.487 : samedi 14 avril 2012, 01:43:46 (UTC+0200)
-1334361596 END    1.487 : samedi 14 avril 2012, 01:59:56 (UTC+0200)
-1334511846 BEGIN  1.488 : dimanche 15 avril 2012, 19:44:07 (UTC+0200)
-1334512816 END    1.488 : dimanche 15 avril 2012, 20:00:16 (UTC+0200)
-1342519040 BEGIN  1.497 : mardi 17 juillet 2012, 11:57:20 (UTC+0200)
-1342520082 END    1.497 : mardi 17 juillet 2012, 12:14:42 (UTC+0200)
-1342796692 BEGIN  1.498 : vendredi 20 juillet 2012, 17:04:52 (UTC+0200)
-1342796879 END    1.498 : vendredi 20 juillet 2012, 17:07:59 (UTC+0200)
-1342797789 END    1.498 : vendredi 20 juillet 2012, 17:23:09 (UTC+0200)
-1344574981 BEGIN  1.500 : vendredi 10 août 2012, 07:03:01 (UTC+0200)
-1344576351 END    1.500 : vendredi 10 août 2012, 07:25:51 (UTC+0200)
-1344637410 BEGIN  1.500 : samedi 11 août 2012, 00:23:30 (UTC+0200)
-1344638512 END    1.500 : samedi 11 août 2012, 00:41:52 (UTC+0200)
-1344862816 BEGIN  1.501 : lundi 13 août 2012, 15:00:16 (UTC+0200)
-1344864048 END    1.501 : lundi 13 août 2012, 15:20:48 (UTC+0200)
-1346111304 BEGIN  1.503 : mardi 28 août 2012, 01:48:25 (UTC+0200)
-1346112385 END    1.503 : mardi 28 août 2012, 02:06:25 (UTC+0200)
-1346159791 BEGIN  1.504 : mardi 28 août 2012, 15:16:31 (UTC+0200)
-1346160945 END    1.504 : mardi 28 août 2012, 15:35:45 (UTC+0200)
-1346241775 BEGIN  1.504 : mercredi 29 août 2012, 14:02:55 (UTC+0200)
-1346242932 END    1.504 : mercredi 29 août 2012, 14:22:12 (UTC+0200)
-1347195553 BEGIN  1.507 : dimanche 9 septembre 2012, 14:59:13 (UTC+0200)
-1347196697 END    1.507 : dimanche 9 septembre 2012, 15:18:17 (UTC+0200)
-1347392501 BEGIN  1.508 : mardi 11 septembre 2012, 21:41:41 (UTC+0200)
-1347393591 END    1.508 : mardi 11 septembre 2012, 21:59:51 (UTC+0200)
-1351688288 BEGIN  1.515 : mercredi 31 octobre 2012, 13:58:08 (UTC+0100)
-1351689817 END    1.515 : mercredi 31 octobre 2012, 14:23:37 (UTC+0100)
-1351894814 BEGIN  1.516 : vendredi 2 novembre 2012, 23:20:14 (UTC+0100)
-1351896296 END    1.516 : vendredi 2 novembre 2012, 23:44:56 (UTC+0100)
-1356314808 BEGIN  1.518 : lundi 24 décembre 2012, 03:06:48 (UTC+0100)
-1356315575 END    1.518 : lundi 24 décembre 2012, 03:19:35 (UTC+0100)
-1356340377 BEGIN  1.518 : lundi 24 décembre 2012, 10:12:57 (UTC+0100)
-1356341221 END    1.518 : lundi 24 décembre 2012, 10:27:01 (UTC+0100)
-1359077003 BEGIN  1.521 : vendredi 25 janvier 2013, 02:23:23 (UTC+0100)
-1359077793 END    1.521 : vendredi 25 janvier 2013, 02:36:33 (UTC+0100)
-1359419422 BEGIN  1.522 : mardi 29 janvier 2013, 01:30:22 (UTC+0100)
-1359420274 END    1.522 : mardi 29 janvier 2013, 01:44:34 (UTC+0100)
-1359421115 BEGIN  1.522 : mardi 29 janvier 2013, 01:58:35 (UTC+0100)
-1359421989 END    1.522 : mardi 29 janvier 2013, 02:13:09 (UTC+0100)
-1360108747 BEGIN  1.525 : mercredi 6 février 2013, 00:59:07 (UTC+0100)
-1360109581 END    1.525 : mercredi 6 février 2013, 01:13:01 (UTC+0100)
-1364528510 BEGIN  1.528 : vendredi 29 mars 2013, 04:41:51 (UTC+0100)
-1364529434 END    1.528 : vendredi 29 mars 2013, 04:57:14 (UTC+0100)
-1365000098 BEGIN  1.529 : mercredi 3 avril 2013, 16:41:38 (UTC+0200)
-1365001150 END    1.529 : mercredi 3 avril 2013, 16:59:10 (UTC+0200)
-1365595458 BEGIN  1.533 : mercredi 10 avril 2013, 14:04:18 (UTC+0200)
-1365596319 END    1.533 : mercredi 10 avril 2013, 14:18:39 (UTC+0200)
-1366126390 BEGIN  1.534 : mardi 16 avril 2013, 17:33:10 (UTC+0200)
-1366127411 END    1.534 : mardi 16 avril 2013, 17:50:11 (UTC+0200)
-1366202919 BEGIN  1.535 : mercredi 17 avril 2013, 14:48:39 (UTC+0200)
-1366203902 END    1.535 : mercredi 17 avril 2013, 15:05:02 (UTC+0200)
-1366209307 BEGIN  1.536 : mercredi 17 avril 2013, 16:35:07 (UTC+0200)
-1366210370 END    1.536 : mercredi 17 avril 2013, 16:52:50 (UTC+0200)
-1366591668 BEGIN  1.538 : lundi 22 avril 2013, 02:47:48 (UTC+0200)
-1366592337 END    1.538 : lundi 22 avril 2013, 02:58:57 (UTC+0200)
-1367829058 BEGIN  1.542 : lundi 6 mai 2013, 10:30:58 (UTC+0200)
-1367829799 END    1.542 : lundi 6 mai 2013, 10:43:19 (UTC+0200)
-1369002592 BEGIN  1.542 : lundi 20 mai 2013, 00:29:52 (UTC+0200)
-1369003347 END    1.542 : lundi 20 mai 2013, 00:42:27 (UTC+0200)
-1369007256 BEGIN  1.542 : lundi 20 mai 2013, 01:47:36 (UTC+0200)
-1369007618 END    1.542 : lundi 20 mai 2013, 01:53:38 (UTC+0200)
-1369008471 BEGIN  1.542 : lundi 20 mai 2013, 02:07:51 (UTC+0200)
-1369008871 END    1.542 : lundi 20 mai 2013, 02:14:31 (UTC+0200)
-1369009301 BEGIN  1.542 : lundi 20 mai 2013, 02:21:41 (UTC+0200)
-1369009684 END    1.542 : lundi 20 mai 2013, 02:28:04 (UTC+0200)
-1369066181 BEGIN  1.542 : lundi 20 mai 2013, 18:09:41 (UTC+0200)
-1369066684 END    1.542 : lundi 20 mai 2013, 18:18:04 (UTC+0200)
-1369091275 BEGIN  1.542 : mardi 21 mai 2013, 01:07:55 (UTC+0200)
-1369091715 END    1.542 : mardi 21 mai 2013, 01:15:15 (UTC+0200)
-1369093368 BEGIN  1.542 : mardi 21 mai 2013, 01:42:48 (UTC+0200)
-1369093884 END    1.542 : mardi 21 mai 2013, 01:51:24 (UTC+0200)
-1369185777 BEGIN  1.543 : mercredi 22 mai 2013, 03:22:57 (UTC+0200)
-1369186219 END    1.543 : mercredi 22 mai 2013, 03:30:19 (UTC+0200)
-1369217503 BEGIN  1.543 : mercredi 22 mai 2013, 12:11:43 (UTC+0200)
-1369218286 END    1.543 : mercredi 22 mai 2013, 12:24:46 (UTC+0200)
-1369236897 BEGIN  1.543 : mercredi 22 mai 2013, 17:34:57 (UTC+0200)
-1369237336 END    1.543 : mercredi 22 mai 2013, 17:42:16 (UTC+0200)
-1369237945 BEGIN  1.543 : mercredi 22 mai 2013, 17:52:25 (UTC+0200)
-1369238373 END    1.543 : mercredi 22 mai 2013, 17:59:33 (UTC+0200)
-1370216259 BEGIN  1.544 : lundi 3 juin 2013, 01:37:39 (UTC+0200)
-1370216695 END    1.544 : lundi 3 juin 2013, 01:44:55 (UTC+0200)
-1372753674 BEGIN  1.546 : mardi 2 juillet 2013, 10:27:54 (UTC+0200)
-1372754442 END    1.546 : mardi 2 juillet 2013, 10:40:42 (UTC+0200)
-1372815752 BEGIN  1.547 : mercredi 3 juillet 2013, 03:42:32 (UTC+0200)
-1372816528 END    1.547 : mercredi 3 juillet 2013, 03:55:28 (UTC+0200)
-1372851174 BEGIN  1.547 : mercredi 3 juillet 2013, 13:32:54 (UTC+0200)
-1372851958 END    1.547 : mercredi 3 juillet 2013, 13:45:58 (UTC+0200)
-1372852860 BEGIN  1.547 : mercredi 3 juillet 2013, 14:01:00 (UTC+0200)
-1372853599 END    1.547 : mercredi 3 juillet 2013, 14:13:19 (UTC+0200)
-1374244772 BEGIN  1.551 : vendredi 19 juillet 2013, 16:39:32 (UTC+0200)
-1374245570 END    1.551 : vendredi 19 juillet 2013, 16:52:50 (UTC+0200)
-1374459974 BEGIN  1.554 : lundi 22 juillet 2013, 04:26:14 (UTC+0200)
-1374460797 END    1.554 : lundi 22 juillet 2013, 04:39:57 (UTC+0200)
-1374461464 BEGIN  1.554 : lundi 22 juillet 2013, 04:51:04 (UTC+0200)
-1374462214 END    1.554 : lundi 22 juillet 2013, 05:03:34 (UTC+0200)
-1374579832 BEGIN  1.555 : mardi 23 juillet 2013, 13:43:52 (UTC+0200)
-1374579895 BEGIN  1.555 : mardi 23 juillet 2013, 13:44:55 (UTC+0200)
-1374581003 END    1.555 : mardi 23 juillet 2013, 14:03:23 (UTC+0200)
-1374582566 BEGIN  1.555 : mardi 23 juillet 2013, 14:29:26 (UTC+0200)
-1374583297 END    1.555 : mardi 23 juillet 2013, 14:41:37 (UTC+0200)
-1375316925 BEGIN  1.556 : jeudi 1 août 2013, 02:28:45 (UTC+0200)
-1375317443 END    1.556 : jeudi 1 août 2013, 02:37:23 (UTC+0200)
-1375488764 BEGIN  1.557 : samedi 3 août 2013, 02:12:44 (UTC+0200)
-1375489277 END    1.557 : samedi 3 août 2013, 02:21:17 (UTC+0200)
-1375492828 BEGIN  1.558 : samedi 3 août 2013, 03:20:28 (UTC+0200)
-1375494466 END    1.558 : samedi 3 août 2013, 03:47:46 (UTC+0200)
-1375495357 BEGIN  1.558 : samedi 3 août 2013, 04:02:37 (UTC+0200)
-1375497013 END    1.558 : samedi 3 août 2013, 04:30:13 (UTC+0200)
-1375534760 BEGIN  1.558 : samedi 3 août 2013, 14:59:20 (UTC+0200)
-1375536286 END    1.558 : samedi 3 août 2013, 15:24:46 (UTC+0200)
-1376617407 BEGIN  1.563 : vendredi 16 août 2013, 03:43:27 (UTC+0200)
-1376618294 END    1.563 : vendredi 16 août 2013, 03:58:14 (UTC+0200)
-1376856084 BEGIN  1.564 : dimanche 18 août 2013, 22:01:24 (UTC+0200)
-1376856924 END    1.564 : dimanche 18 août 2013, 22:15:24 (UTC+0200)
-1379035013 BEGIN  1.565 : vendredi 13 septembre 2013, 03:16:53 (UTC+0200)
-1379036258 END    1.565 : vendredi 13 septembre 2013, 03:37:38 (UTC+0200)
-1379036858 BEGIN  1.565 : vendredi 13 septembre 2013, 03:47:38 (UTC+0200)
-1379038028 END    1.565 : vendredi 13 septembre 2013, 04:07:08 (UTC+0200)
-1379067300 BEGIN  1.565 : vendredi 13 septembre 2013, 12:15:00 (UTC+0200)
-1379068253 END    1.565 : vendredi 13 septembre 2013, 12:30:53 (UTC+0200)
-1379068512 BEGIN  1.565 : vendredi 13 septembre 2013, 12:35:12 (UTC+0200)
-1379069423 BEGIN  1.565 : vendredi 13 septembre 2013, 12:50:23 (UTC+0200)
-1379069895 END    1.565 : vendredi 13 septembre 2013, 12:58:15 (UTC+0200)
-1379070862 BEGIN  1.565 : vendredi 13 septembre 2013, 13:14:22 (UTC+0200)
-1379071364 END    1.565 : vendredi 13 septembre 2013, 13:22:44 (UTC+0200)
-1379541254 BEGIN  1.567 : mercredi 18 septembre 2013, 23:54:14 (UTC+0200)
-1379541678 BEGIN  1.567 : jeudi 19 septembre 2013, 00:01:18 (UTC+0200)
-1379544193 BEGIN  1.567 : jeudi 19 septembre 2013, 00:43:13 (UTC+0200)
-1379549519 BEGIN  1.567 : jeudi 19 septembre 2013, 02:11:59 (UTC+0200)
-1379550371 END    1.567 : jeudi 19 septembre 2013, 02:26:11 (UTC+0200)
-1379803429 BEGIN  1.567 : dimanche 22 septembre 2013, 00:43:49 (UTC+0200)
-1379804324 END    1.567 : dimanche 22 septembre 2013, 00:58:44 (UTC+0200)
-1380337279 BEGIN  1.568 : samedi 28 septembre 2013, 05:01:20 (UTC+0200)
-1380337867 END    1.568 : samedi 28 septembre 2013, 05:11:07 (UTC+0200)
-1380340560 BEGIN  1.568 : samedi 28 septembre 2013, 05:56:00 (UTC+0200)
-1380341166 END    1.568 : samedi 28 septembre 2013, 06:06:06 (UTC+0200)
-1380369597 BEGIN  1.568 : samedi 28 septembre 2013, 13:59:57 (UTC+0200)
-1380370230 END    1.568 : samedi 28 septembre 2013, 14:10:30 (UTC+0200)
-1381964425 BEGIN  1.569 : jeudi 17 octobre 2013, 01:00:25 (UTC+0200)
-1381964810 BEGIN  1.569 : jeudi 17 octobre 2013, 01:06:50 (UTC+0200)
-1381969720 BEGIN  1.569 : jeudi 17 octobre 2013, 02:28:40 (UTC+0200)
-1381970545 END    1.569 : jeudi 17 octobre 2013, 02:42:25 (UTC+0200)
-1381974866 BEGIN  1.569 : jeudi 17 octobre 2013, 03:54:26 (UTC+0200)
-1381975685 END    1.569 : jeudi 17 octobre 2013, 04:08:05 (UTC+0200)
-1383010060 BEGIN  1.574 : mardi 29 octobre 2013, 02:27:40 (UTC+0100)
-1383012576 END    1.574 : mardi 29 octobre 2013, 03:09:36 (UTC+0100)
-1387941690 BEGIN  1.580 : mercredi 25 décembre 2013, 04:21:30 (UTC+0100)
-1387967067 BEGIN  1.580 : mercredi 25 décembre 2013, 11:24:28 (UTC+0100)
-1387967901 END    1.580 : mercredi 25 décembre 2013, 11:38:21 (UTC+0100)
-1390615061 BEGIN  1.582 : samedi 25 janvier 2014, 02:57:41 (UTC+0100)
-1390685504 END    1.582 : samedi 25 janvier 2014, 22:31:44 (UTC+0100)
-1390874372 BEGIN  1.582 : mardi 28 janvier 2014, 02:59:33 (UTC+0100)
-1390875240 END    1.582 : mardi 28 janvier 2014, 03:14:00 (UTC+0100)
-1391561330 BEGIN  1.584 : mercredi 5 février 2014, 01:48:50 (UTC+0100)
-1391562789 END    1.584 : mercredi 5 février 2014, 02:13:09 (UTC+0100)
-1399288404 BEGIN  1.586 : lundi 5 mai 2014, 13:13:24 (UTC+0200)
-1399655068 BEGIN  1.587 : vendredi 9 mai 2014, 19:04:28 (UTC+0200)
-1399657515 END    1.587 : vendredi 9 mai 2014, 19:45:15 (UTC+0200)
-1399729631 BEGIN  1.587 : samedi 10 mai 2014, 15:47:11 (UTC+0200)
-1399730345 END    1.587 : samedi 10 mai 2014, 15:59:05 (UTC+0200)
-1400630617 BEGIN  1.590 : mercredi 21 mai 2014, 02:03:37 (UTC+0200)
-1400639261 BEGIN  1.590 : mercredi 21 mai 2014, 04:27:41 (UTC+0200)
-1400640226 END    1.590 : mercredi 21 mai 2014, 04:43:46 (UTC+0200)
-1400722992 BEGIN  1.591 : jeudi 22 mai 2014, 03:43:12 (UTC+0200)
-1400723946 END    1.591 : jeudi 22 mai 2014, 03:59:06 (UTC+0200)
-1400754149 BEGIN  1.592 : jeudi 22 mai 2014, 12:22:29 (UTC+0200)
-1400755228 END    1.592 : jeudi 22 mai 2014, 12:40:28 (UTC+0200)
-1401188766 BEGIN  1.592 : mardi 27 mai 2014, 13:06:06 (UTC+0200)
-1401190037 END    1.592 : mardi 27 mai 2014, 13:27:17 (UTC+0200)
-1401197283 BEGIN  1.592 : mardi 27 mai 2014, 15:28:03 (UTC+0200)
-1401227679 BEGIN  1.592 : mardi 27 mai 2014, 23:54:39 (UTC+0200)
-1401262215 END    1.592 : mercredi 28 mai 2014, 09:30:15 (UTC+0200)
-1401407642 BEGIN  1.592 : vendredi 30 mai 2014, 01:54:02 (UTC+0200)
-1401410706 BEGIN  1.592 : vendredi 30 mai 2014, 02:45:07 (UTC+0200)
-1401411830 END    1.592 : vendredi 30 mai 2014, 03:03:50 (UTC+0200)
-1411192222 BEGIN  1.596 : samedi 20 septembre 2014, 07:50:22 (UTC+0200)
-1411228014 BEGIN  1.596 : samedi 20 septembre 2014, 17:46:54 (UTC+0200)
-1411266788 BEGIN  1.596 : dimanche 21 septembre 2014, 04:33:08 (UTC+0200)
-1411267953 END    1.596 : dimanche 21 septembre 2014, 04:52:33 (UTC+0200)
-1412693514 BEGIN  1.597 : mardi 7 octobre 2014, 16:51:54 (UTC+0200)
-1412750854 BEGIN  1.597 : mercredi 8 octobre 2014, 08:47:34 (UTC+0200)
-1412751726 END    1.597 : mercredi 8 octobre 2014, 09:02:06 (UTC+0200)
-1415448836 BEGIN  1.604 : samedi 8 novembre 2014, 13:13:56 (UTC+0100)
-1415449975 END    1.604 : samedi 8 novembre 2014, 13:32:55 (UTC+0100)
-1415818269 BEGIN  1.605 : mercredi 12 novembre 2014, 19:51:09 (UTC+0100)
-1415819173 END    1.605 : mercredi 12 novembre 2014, 20:06:13 (UTC+0100)
-1415985918 BEGIN  1.607 : vendredi 14 novembre 2014, 18:25:18 (UTC+0100)
-1415986823 END    1.607 : vendredi 14 novembre 2014, 18:40:23 (UTC+0100)
-1426391624 BEGIN  1.626 : dimanche 15 mars 2015, 04:53:44 (UTC+0100)
-1426637725 BEGIN  1.627 : mercredi 18 mars 2015, 01:15:26 (UTC+0100)
-1426734624 BEGIN  1.628 : jeudi 19 mars 2015, 04:10:24 (UTC+0100)
-1426736361 END    1.628 : jeudi 19 mars 2015, 04:39:21 (UTC+0100)
-1426820957 BEGIN  1.630 : vendredi 20 mars 2015, 04:09:18 (UTC+0100)
-1426823109 END    1.630 : vendredi 20 mars 2015, 04:45:09 (UTC+0100)
-1427249505 BEGIN  1.634 : mercredi 25 mars 2015, 03:11:45 (UTC+0100)
-1427250851 END    1.634 : mercredi 25 mars 2015, 03:34:11 (UTC+0100)
-1427814853 BEGIN  1.636 : mardi 31 mars 2015, 17:14:13 (UTC+0200)
-1427815136 END    1.636 : mardi 31 mars 2015, 17:18:56 (UTC+0200)
-1427853312 BEGIN  1.637 : mercredi 1 avril 2015, 03:55:12 (UTC+0200)
-1427854440 END    1.637 : mercredi 1 avril 2015, 04:14:00 (UTC+0200)
-1431218601 BEGIN  1.641 : dimanche 10 mai 2015, 02:43:21 (UTC+0200)
-1431262946 END    1.641 : dimanche 10 mai 2015, 15:02:26 (UTC+0200)
-1431414203 BEGIN  1.642 : mardi 12 mai 2015, 09:03:23 (UTC+0200)
-1432116391 BEGIN  1.642 : mercredi 20 mai 2015, 12:06:31 (UTC+0200)
-1432138982 BEGIN  1.642 : mercredi 20 mai 2015, 18:23:02 (UTC+0200)
-1432140305 END    1.642 : mercredi 20 mai 2015, 18:45:05 (UTC+0200)
-1435274638 BEGIN  1.643 : vendredi 26 juin 2015, 01:23:58 (UTC+0200)
-1435275180 END    1.643 : vendredi 26 juin 2015, 01:33:00 (UTC+0200)
-1435279579 BEGIN  1.643 : vendredi 26 juin 2015, 02:46:19 (UTC+0200)
-1435280203 END    1.643 : vendredi 26 juin 2015, 02:56:43 (UTC+0200)
-1437158716 BEGIN  1.644 : vendredi 17 juillet 2015, 20:45:16 (UTC+0200)
-1437160124 END    1.644 : vendredi 17 juillet 2015, 21:08:44 (UTC+0200)
-1439777074 BEGIN  1.650 : lundi 17 août 2015, 04:04:34 (UTC+0200)
-1439778213 END    1.650 : lundi 17 août 2015, 04:23:33 (UTC+0200)
-1440289827 BEGIN  1.651 : dimanche 23 août 2015, 02:30:27 (UTC+0200)
-1440291228 END    1.651 : dimanche 23 août 2015, 02:53:48 (UTC+0200)
-1441934795 BEGIN  1.654 : vendredi 11 septembre 2015, 03:26:35 (UTC+0200)
-1441940822 BEGIN  1.655 : vendredi 11 septembre 2015, 05:07:02 (UTC+0200)
-1441941869 END    1.655 : vendredi 11 septembre 2015, 05:24:29 (UTC+0200)
-1447192716 BEGIN  1.665 : mardi 10 novembre 2015, 22:58:36 (UTC+0100)
-1447193035 END    1.665 : mardi 10 novembre 2015, 23:03:55 (UTC+0100)
-1447201375 BEGIN  1.665 : mercredi 11 novembre 2015, 01:22:55 (UTC+0100)
-1447201490 END    1.665 : mercredi 11 novembre 2015, 01:24:50 (UTC+0100)
-1447201666 BEGIN  1.665 : mercredi 11 novembre 2015, 01:27:46 (UTC+0100)
-1447202045 BEGIN  1.665 : mercredi 11 novembre 2015, 01:34:05 (UTC+0100)
-1447202227 END    1.665 : mercredi 11 novembre 2015, 01:37:07 (UTC+0100)
-1447205467 BEGIN  1.665 : mercredi 11 novembre 2015, 02:31:07 (UTC+0100)
-1447205527 END    1.665 : mercredi 11 novembre 2015, 02:32:07 (UTC+0100)
-1447205754 BEGIN  1.665 : mercredi 11 novembre 2015, 02:35:54 (UTC+0100)
-1447205813 END    1.665 : mercredi 11 novembre 2015, 02:36:53 (UTC+0100)
-1447205877 BEGIN  1.665 : mercredi 11 novembre 2015, 02:37:57 (UTC+0100)
-1447206591 BEGIN  1.665 : mercredi 11 novembre 2015, 02:49:51 (UTC+0100)
-1447206779 END    1.665 : mercredi 11 novembre 2015, 02:52:59 (UTC+0100)
-1447206877 BEGIN  1.665 : mercredi 11 novembre 2015, 02:54:37 (UTC+0100)
-1447207318 BEGIN  1.665 : mercredi 11 novembre 2015, 03:01:58 (UTC+0100)
-1447207507 END    1.665 : mercredi 11 novembre 2015, 03:05:07 (UTC+0100)
-1447208020 BEGIN  1.665 : mercredi 11 novembre 2015, 03:13:40 (UTC+0100)
-1447208213 END    1.665 : mercredi 11 novembre 2015, 03:16:53 (UTC+0100)
-1447209722 BEGIN  1.665 : mercredi 11 novembre 2015, 03:42:03 (UTC+0100)
-1447209976 END    1.665 : mercredi 11 novembre 2015, 03:46:16 (UTC+0100)
-1448298296 BEGIN  1.666 : lundi 23 novembre 2015, 18:04:56 (UTC+0100)
-1448298474 END    1.666 : lundi 23 novembre 2015, 18:07:54 (UTC+0100)
-1448851660 BEGIN  1.667 : lundi 30 novembre 2015, 03:47:40 (UTC+0100)
-1448852283 END    1.667 : lundi 30 novembre 2015, 03:58:03 (UTC+0100)
-1449111689 BEGIN  1.670 : jeudi 3 décembre 2015, 04:01:29 (UTC+0100)
-1449112253 END    1.670 : jeudi 3 décembre 2015, 04:10:53 (UTC+0100)
-1449744079 BEGIN  1.672 : jeudi 10 décembre 2015, 11:41:19 (UTC+0100)
-1449744625 END    1.672 : jeudi 10 décembre 2015, 11:50:25 (UTC+0100)
-1449767529 BEGIN  1.672 : jeudi 10 décembre 2015, 18:12:09 (UTC+0100)
-1449767714 END    1.672 : jeudi 10 décembre 2015, 18:15:14 (UTC+0100)
-1452122921 BEGIN  1.675 : jeudi 7 janvier 2016, 00:28:41 (UTC+0100)
-1452123698 END    1.675 : jeudi 7 janvier 2016, 00:41:38 (UTC+0100)
-1453217007 BEGIN  1.677 : mardi 19 janvier 2016, 16:23:27 (UTC+0100)
-1453217776 END    1.677 : mardi 19 janvier 2016, 16:36:16 (UTC+0100)
-1453407595 BEGIN  1.678 : jeudi 21 janvier 2016, 21:19:55 (UTC+0100)
-1453408277 END    1.678 : jeudi 21 janvier 2016, 21:31:17 (UTC+0100)
-1457139168 BEGIN  1.682 : samedi 5 mars 2016, 01:52:48 (UTC+0100)
-1457139341 END    1.682 : samedi 5 mars 2016, 01:55:41 (UTC+0100)
-1457318569 BEGIN  1.683 : lundi 7 mars 2016, 03:42:49 (UTC+0100)
-1457318753 END    1.683 : lundi 7 mars 2016, 03:45:53 (UTC+0100)
-1457903122 BEGIN  1.683 : dimanche 13 mars 2016, 22:05:22 (UTC+0100)
-1457903935 END    1.683 : dimanche 13 mars 2016, 22:18:55 (UTC+0100)
-1458205761 BEGIN  1.684 : jeudi 17 mars 2016, 10:09:21 (UTC+0100)
-1458206536 END    1.684 : jeudi 17 mars 2016, 10:22:16 (UTC+0100)
-1458216703 BEGIN  1.684 : jeudi 17 mars 2016, 13:11:43 (UTC+0100)
-1458217520 END    1.684 : jeudi 17 mars 2016, 13:25:20 (UTC+0100)
-1458428579 BEGIN  1.684 : dimanche 20 mars 2016, 00:02:59 (UTC+0100)
-1458428756 END    1.684 : dimanche 20 mars 2016, 00:05:56 (UTC+0100)
-1458433683 BEGIN  1.684 : dimanche 20 mars 2016, 01:28:03 (UTC+0100)
-1458434445 END    1.684 : dimanche 20 mars 2016, 01:40:45 (UTC+0100)
-1458436534 BEGIN  1.684 : dimanche 20 mars 2016, 02:15:34 (UTC+0100)
-1458437310 END    1.684 : dimanche 20 mars 2016, 02:28:30 (UTC+0100)
-1463261525 BEGIN  1.690 : samedi 14 mai 2016, 23:32:05 (UTC+0200)
-1463261701 END    1.690 : samedi 14 mai 2016, 23:35:01 (UTC+0200)
-1463261777 BEGIN  1.690 : samedi 14 mai 2016, 23:36:17 (UTC+0200)
-1463262258 END    1.690 : samedi 14 mai 2016, 23:44:18 (UTC+0200)
-1464194085 BEGIN  1.692 : mercredi 25 mai 2016, 18:34:45 (UTC+0200)
-1464194868 END    1.692 : mercredi 25 mai 2016, 18:47:49 (UTC+0200)
-1465431106 BEGIN  1.694 : jeudi 9 juin 2016, 02:11:46 (UTC+0200)
-1465431905 END    1.694 : jeudi 9 juin 2016, 02:25:05 (UTC+0200)
-1465864115 BEGIN  1.701 : mardi 14 juin 2016, 02:28:35 (UTC+0200)
-1465864364 END    1.701 : mardi 14 juin 2016, 02:32:44 (UTC+0200)
-1465865557 BEGIN  1.701 : mardi 14 juin 2016, 02:52:37 (UTC+0200)
-1465866291 END    1.701 : mardi 14 juin 2016, 03:04:51 (UTC+0200)
-1466171000 BEGIN  1.706 : vendredi 17 juin 2016, 15:43:20 (UTC+0200)
-1466171789 END    1.706 : vendredi 17 juin 2016, 15:56:29 (UTC+0200)
-1466210899 BEGIN  1.707 : samedi 18 juin 2016, 02:48:19 (UTC+0200)
-1466211650 END    1.707 : samedi 18 juin 2016, 03:00:50 (UTC+0200)
-1466610746 BEGIN  1.710 : mercredi 22 juin 2016, 17:52:26 (UTC+0200)
-1466611426 END    1.710 : mercredi 22 juin 2016, 18:03:46 (UTC+0200)
-1466627202 BEGIN  1.711 : mercredi 22 juin 2016, 22:26:42 (UTC+0200)
-1466627955 END    1.711 : mercredi 22 juin 2016, 22:39:15 (UTC+0200)
-1467069519 BEGIN  1.711 : mardi 28 juin 2016, 01:18:39 (UTC+0200)
-1467069574 END    1.711 : mardi 28 juin 2016, 01:19:34 (UTC+0200)
-1467069750 BEGIN  1.711 : mardi 28 juin 2016, 01:22:30 (UTC+0200)
-1467069794 END    1.711 : mardi 28 juin 2016, 01:23:14 (UTC+0200)
-1467069926 BEGIN  1.711 : mardi 28 juin 2016, 01:25:26 (UTC+0200)
-1467070138 BEGIN  1.711 : mardi 28 juin 2016, 01:28:58 (UTC+0200)
-1467070225 BEGIN  1.711 : mardi 28 juin 2016, 01:30:25 (UTC+0200)
-1467070345 BEGIN  1.711 : mardi 28 juin 2016, 01:32:25 (UTC+0200)
-1467070391 BEGIN  1.711 : mardi 28 juin 2016, 01:33:11 (UTC+0200)
-1467070514 BEGIN  1.711 : mardi 28 juin 2016, 01:35:14 (UTC+0200)
-1467070588 BEGIN  1.711 : mardi 28 juin 2016, 01:36:28 (UTC+0200)
-1467070950 BEGIN  1.711 : mardi 28 juin 2016, 01:42:30 (UTC+0200)
-1467255653 BEGIN  1.712 : jeudi 30 juin 2016, 05:00:53 (UTC+0200)
-1467255813 END    1.712 : jeudi 30 juin 2016, 05:03:33 (UTC+0200)
-1467755793 BEGIN  1.715 : mardi 5 juillet 2016, 23:56:34 (UTC+0200)
-1467756564 END    1.715 : mercredi 6 juillet 2016, 00:09:24 (UTC+0200)
-1469013686 BEGIN  1.718 : mercredi 20 juillet 2016, 13:21:26 (UTC+0200)
-1469014489 BEGIN  1.718 : mercredi 20 juillet 2016, 13:34:49 (UTC+0200)
-1469814584 BEGIN  1.721 : vendredi 29 juillet 2016, 19:49:44 (UTC+0200)
-1469815484 END    1.721 : vendredi 29 juillet 2016, 20:04:44 (UTC+0200)
-1469828350 BEGIN  1.722 : vendredi 29 juillet 2016, 23:39:10 (UTC+0200)
-1469829123 END    1.722 : vendredi 29 juillet 2016, 23:52:03 (UTC+0200)
-1469831589 BEGIN  1.723 : samedi 30 juillet 2016, 00:33:09 (UTC+0200)
-1469832393 END    1.723 : samedi 30 juillet 2016, 00:46:33 (UTC+0200)
-1471305986 BEGIN  1.725 : mardi 16 août 2016, 02:06:26 (UTC+0200)
-1471306861 END    1.725 : mardi 16 août 2016, 02:21:01 (UTC+0200)
-1471390396 BEGIN  1.726 : mercredi 17 août 2016, 01:33:16 (UTC+0200)
-1471391143 END    1.726 : mercredi 17 août 2016, 01:45:43 (UTC+0200)
-1471399447 BEGIN  1.726 : mercredi 17 août 2016, 04:04:07 (UTC+0200)
-1471399633 END    1.726 : mercredi 17 août 2016, 04:07:13 (UTC+0200)
-1471514233 BEGIN  1.726 : jeudi 18 août 2016, 11:57:13 (UTC+0200)
-1471515101 END    1.726 : jeudi 18 août 2016, 12:11:41 (UTC+0200)
-1471606171 BEGIN  1.727 : vendredi 19 août 2016, 13:29:31 (UTC+0200)
-1471616659 BEGIN  1.727 : vendredi 19 août 2016, 16:24:19 (UTC+0200)
-1471617309 END    1.727 : vendredi 19 août 2016, 16:35:09 (UTC+0200)
-1474122976 BEGIN  1.730 : samedi 17 septembre 2016, 16:36:16 (UTC+0200)
-1474123287 END    1.730 : samedi 17 septembre 2016, 16:41:27 (UTC+0200)
-1475152767 BEGIN  1.731 : jeudi 29 septembre 2016, 14:39:27 (UTC+0200)
-1475153042 END    1.731 : jeudi 29 septembre 2016, 14:44:02 (UTC+0200)
-1475183016 BEGIN  1.732 : jeudi 29 septembre 2016, 23:03:36 (UTC+0200)
-1475183329 END    1.732 : jeudi 29 septembre 2016, 23:08:49 (UTC+0200)
-1476189796 BEGIN  1.737 : mardi 11 octobre 2016, 14:43:16 (UTC+0200)
-1476190171 END    1.737 : mardi 11 octobre 2016, 14:49:31 (UTC+0200)
-1478207726 BEGIN  1.739 : jeudi 3 novembre 2016, 22:15:26 (UTC+0100)
-1478208016 END    1.739 : jeudi 3 novembre 2016, 22:20:16 (UTC+0100)
-1479397595 BEGIN  1.740 : jeudi 17 novembre 2016, 16:46:36 (UTC+0100)
-1479397878 END    1.740 : jeudi 17 novembre 2016, 16:51:18 (UTC+0100)
-1479853031 BEGIN  1.741 : mardi 22 novembre 2016, 23:17:11 (UTC+0100)
-1479853321 END    1.741 : mardi 22 novembre 2016, 23:22:01 (UTC+0100)
-1482594346 BEGIN  1.747 : samedi 24 décembre 2016, 16:45:46 (UTC+0100)
-1483589059 BEGIN  1.749 : jeudi 5 janvier 2017, 05:04:19 (UTC+0100)
-1483589684 BEGIN  1.749 : jeudi 5 janvier 2017, 05:14:44 (UTC+0100)
-1483589923 END    1.749 : jeudi 5 janvier 2017, 05:18:43 (UTC+0100)
-1483624220 BEGIN  1.750 : jeudi 5 janvier 2017, 14:50:20 (UTC+0100)
-1483624536 END    1.750 : jeudi 5 janvier 2017, 14:55:36 (UTC+0100)
-1483945333 BEGIN  1.751 : lundi 9 janvier 2017, 08:02:13 (UTC+0100)
-1483949465 BEGIN  1.751 : lundi 9 janvier 2017, 09:11:05 (UTC+0100)
-1483984043 BEGIN  1.751 : lundi 9 janvier 2017, 18:47:23 (UTC+0100)
-1484009458 BEGIN  1.752 : mardi 10 janvier 2017, 01:50:58 (UTC+0100)
-1484009742 END    1.752 : mardi 10 janvier 2017, 01:55:42 (UTC+0100)
-1484112177 BEGIN  1.753 : mercredi 11 janvier 2017, 06:22:57 (UTC+0100)
-1484112484 END    1.753 : mercredi 11 janvier 2017, 06:28:04 (UTC+0100)
-1484217375 BEGIN  1.757 : jeudi 12 janvier 2017, 11:36:15 (UTC+0100)
-1484217700 END    1.757 : jeudi 12 janvier 2017, 11:41:40 (UTC+0100)
-1484516992 BEGIN  1.758 : dimanche 15 janvier 2017, 22:49:52 (UTC+0100)
-1484517360 END    1.758 : dimanche 15 janvier 2017, 22:56:00 (UTC+0100)
-1484577677 BEGIN  1.759 : lundi 16 janvier 2017, 15:41:17 (UTC+0100)
-1484578003 END    1.759 : lundi 16 janvier 2017, 15:46:43 (UTC+0100)
-1484628512 BEGIN  1.760 : mardi 17 janvier 2017, 05:48:32 (UTC+0100)
-1484628850 END    1.760 : mardi 17 janvier 2017, 05:54:10 (UTC+0100)
-1484633474 BEGIN  1.761 : mardi 17 janvier 2017, 07:11:14 (UTC+0100)
-1484633792 END    1.761 : mardi 17 janvier 2017, 07:16:32 (UTC+0100)
-1484788241 BEGIN  1.763 : jeudi 19 janvier 2017, 02:10:41 (UTC+0100)
-1484788555 END    1.763 : jeudi 19 janvier 2017, 02:15:55 (UTC+0100)
-1484803145 BEGIN  1.765 : jeudi 19 janvier 2017, 06:19:05 (UTC+0100)
-1484804058 BEGIN  1.766 : jeudi 19 janvier 2017, 06:34:18 (UTC+0100)
-1484804378 END    1.766 : jeudi 19 janvier 2017, 06:39:38 (UTC+0100)
-1484805361 BEGIN  1.767 : jeudi 19 janvier 2017, 06:56:01 (UTC+0100)
-1484805735 END    1.767 : jeudi 19 janvier 2017, 07:02:16 (UTC+0100)
-1484806480 BEGIN  1.768 : jeudi 19 janvier 2017, 07:14:40 (UTC+0100)
-1484806804 END    1.768 : jeudi 19 janvier 2017, 07:20:04 (UTC+0100)
-1485900842 BEGIN  1.771 : mardi 31 janvier 2017, 23:14:02 (UTC+0100)
-1485901133 BEGIN  1.771 : mardi 31 janvier 2017, 23:18:53 (UTC+0100)
-1485901561 END    1.771 : mardi 31 janvier 2017, 23:26:01 (UTC+0100)
-1487116017 BEGIN  1.773 : mercredi 15 février 2017, 00:46:57 (UTC+0100)
-1487157193 BEGIN  1.773 : mercredi 15 février 2017, 12:13:13 (UTC+0100)
-1487169674 BEGIN  1.774 : mercredi 15 février 2017, 15:41:14 (UTC+0100)
-1487188465 BEGIN  1.774 : mercredi 15 février 2017, 20:54:25 (UTC+0100)
-1487240884 BEGIN  1.774 : jeudi 16 février 2017, 11:28:04 (UTC+0100)
-1487296664 BEGIN  1.775 : vendredi 17 février 2017, 02:57:44 (UTC+0100)
-1487296925 END    1.775 : vendredi 17 février 2017, 03:02:05 (UTC+0100)
-1488337707 BEGIN  1.777 : mercredi 1 mars 2017, 04:08:28 (UTC+0100)
-1488338331 END    1.777 : mercredi 1 mars 2017, 04:18:51 (UTC+0100)
-1489416028 BEGIN  1.783 : lundi 13 mars 2017, 15:40:28 (UTC+0100)
-1489416325 END    1.783 : lundi 13 mars 2017, 15:45:25 (UTC+0100)
-1489514968 BEGIN  1.785 : mardi 14 mars 2017, 19:09:28 (UTC+0100)
-1489515233 END    1.785 : mardi 14 mars 2017, 19:13:53 (UTC+0100)
-1489980931 BEGIN  1.786 : lundi 20 mars 2017, 04:35:31 (UTC+0100)
-1490084192 BEGIN  1.788 : mardi 21 mars 2017, 09:16:32 (UTC+0100)
-1490084443 END    1.788 : mardi 21 mars 2017, 09:20:43 (UTC+0100)
-1492680526 BEGIN  1.794 : jeudi 20 avril 2017, 11:28:46 (UTC+0200)
-1492680802 END    1.794 : jeudi 20 avril 2017, 11:33:22 (UTC+0200)
-1493248850 BEGIN  1.803 : jeudi 27 avril 2017, 01:20:50 (UTC+0200)
-1493249119 END    1.803 : jeudi 27 avril 2017, 01:25:19 (UTC+0200)
-1493253906 BEGIN  1.804 : jeudi 27 avril 2017, 02:45:06 (UTC+0200)
-1493254173 END    1.804 : jeudi 27 avril 2017, 02:49:33 (UTC+0200)
-1493298460 BEGIN  1.805 : jeudi 27 avril 2017, 15:07:40 (UTC+0200)
-1493299002 BEGIN  1.805 : jeudi 27 avril 2017, 15:16:42 (UTC+0200)
-1493299269 END    1.805 : jeudi 27 avril 2017, 15:21:09 (UTC+0200)
-1493387151 BEGIN  1.807 : vendredi 28 avril 2017, 15:45:51 (UTC+0200)
-1493387431 END    1.807 : vendredi 28 avril 2017, 15:50:31 (UTC+0200)
-1493578212 BEGIN  1.807 : dimanche 30 avril 2017, 20:50:12 (UTC+0200)
-1493578413 END    1.807 : dimanche 30 avril 2017, 20:53:33 (UTC+0200)
-1493586266 BEGIN  1.807 : dimanche 30 avril 2017, 23:04:26 (UTC+0200)
-1493586762 END    1.807 : dimanche 30 avril 2017, 23:12:42 (UTC+0200)
-1493587646 BEGIN  1.807 : dimanche 30 avril 2017, 23:27:26 (UTC+0200)
-1493588141 END    1.807 : dimanche 30 avril 2017, 23:35:41 (UTC+0200)
-1493642636 BEGIN  1.807 : lundi 1 mai 2017, 14:43:56 (UTC+0200)
-1493642871 END    1.807 : lundi 1 mai 2017, 14:47:51 (UTC+0200)
-1493662775 BEGIN  1.807 : lundi 1 mai 2017, 20:19:35 (UTC+0200)
-1493663003 END    1.807 : lundi 1 mai 2017, 20:23:23 (UTC+0200)
-1493676290 BEGIN  1.807 : mardi 2 mai 2017, 00:04:50 (UTC+0200)
-1493676496 END    1.807 : mardi 2 mai 2017, 00:08:16 (UTC+0200)
-1493676673 BEGIN  1.807 : mardi 2 mai 2017, 00:11:13 (UTC+0200)
-1493676871 END    1.807 : mardi 2 mai 2017, 00:14:31 (UTC+0200)
-1493685869 BEGIN  1.807 : mardi 2 mai 2017, 02:44:29 (UTC+0200)
-1493686077 END    1.807 : mardi 2 mai 2017, 02:47:57 (UTC+0200)
-1493709285 BEGIN  1.807 : mardi 2 mai 2017, 09:14:45 (UTC+0200)
-1493709482 END    1.807 : mardi 2 mai 2017, 09:18:02 (UTC+0200)
-1493710750 BEGIN  1.807 : mardi 2 mai 2017, 09:39:10 (UTC+0200)
-1493710951 END    1.807 : mardi 2 mai 2017, 09:42:31 (UTC+0200)
-1493714417 BEGIN  1.807 : mardi 2 mai 2017, 10:40:17 (UTC+0200)
-1493714614 END    1.807 : mardi 2 mai 2017, 10:43:34 (UTC+0200)
-1493746207 BEGIN  1.807 : mardi 2 mai 2017, 19:30:07 (UTC+0200)
-1493746268 BEGIN  1.807 : mardi 2 mai 2017, 19:31:08 (UTC+0200)
-1493746540 END    1.807 : mardi 2 mai 2017, 19:35:40 (UTC+0200)
-1493747268 BEGIN  1.808 : mardi 2 mai 2017, 19:47:48 (UTC+0200)
-1493747469 END    1.808 : mardi 2 mai 2017, 19:51:09 (UTC+0200)
-1493749409 BEGIN  1.808 : mardi 2 mai 2017, 20:23:29 (UTC+0200)
-1493749606 END    1.808 : mardi 2 mai 2017, 20:26:46 (UTC+0200)
-1493750039 BEGIN  1.808 : mardi 2 mai 2017, 20:33:59 (UTC+0200)
-1493750963 BEGIN  1.810 : mardi 2 mai 2017, 20:49:23 (UTC+0200)
-1493751248 END    1.810 : mardi 2 mai 2017, 20:54:08 (UTC+0200)
-1495648275 BEGIN  1.813 : mercredi 24 mai 2017, 19:51:15 (UTC+0200)
-1495648641 END    1.813 : mercredi 24 mai 2017, 19:57:21 (UTC+0200)
-1499474148 BEGIN  1.819 : samedi 8 juillet 2017, 02:35:48 (UTC+0200)
-1499537272 BEGIN  1.819 : samedi 8 juillet 2017, 20:07:52 (UTC+0200)
-1499610623 BEGIN  1.819 : dimanche 9 juillet 2017, 16:30:23 (UTC+0200)
-1499627770 BEGIN  1.819 : dimanche 9 juillet 2017, 21:16:10 (UTC+0200)
-1499628010 END    1.819 : dimanche 9 juillet 2017, 21:20:10 (UTC+0200)
-1499729465 BEGIN  1.819 : mardi 11 juillet 2017, 01:31:05 (UTC+0200)
-1499729716 END    1.819 : mardi 11 juillet 2017, 01:35:16 (UTC+0200)
-1501096358 BEGIN  1.825 : mercredi 26 juillet 2017, 21:12:38 (UTC+0200)
-1501096497 BEGIN  1.825 : mercredi 26 juillet 2017, 21:14:57 (UTC+0200)
-1501096673 BEGIN  1.825 : mercredi 26 juillet 2017, 21:17:53 (UTC+0200)
-1501096738 BEGIN  1.825 : mercredi 26 juillet 2017, 21:18:58 (UTC+0200)
-1501097034 END    1.825 : mercredi 26 juillet 2017, 21:23:54 (UTC+0200)
-1502873680 BEGIN  1.825 : mercredi 16 août 2017, 10:54:41 (UTC+0200)
-1502886497 BEGIN  1.825 : mercredi 16 août 2017, 14:28:17 (UTC+0200)
-1502887469 BEGIN  1.825 : mercredi 16 août 2017, 14:44:29 (UTC+0200)
-1502887710 END    1.825 : mercredi 16 août 2017, 14:48:30 (UTC+0200)
-1503494561 BEGIN  1.829 : mercredi 23 août 2017, 15:22:41 (UTC+0200)
-1503939535 BEGIN  1.831 : lundi 28 août 2017, 18:58:55 (UTC+0200)
-1503939776 END    1.831 : lundi 28 août 2017, 19:02:56 (UTC+0200)
-1504149108 BEGIN  1.833 : jeudi 31 août 2017, 05:11:48 (UTC+0200)
-1504149402 END    1.833 : jeudi 31 août 2017, 05:16:42 (UTC+0200)
-1504156366 BEGIN  1.834 : jeudi 31 août 2017, 07:12:46 (UTC+0200)
-1504156668 END    1.834 : jeudi 31 août 2017, 07:17:48 (UTC+0200)
-1504415626 BEGIN  1.835 : dimanche 3 septembre 2017, 07:13:46 (UTC+0200)
-1504628756 BEGIN  1.836 : mardi 5 septembre 2017, 18:25:56 (UTC+0200)
-1504629099 END    1.836 : mardi 5 septembre 2017, 18:31:39 (UTC+0200)
-1508853199 BEGIN  1.840 : mardi 24 octobre 2017, 15:53:20 (UTC+0200)
-1508853523 END    1.840 : mardi 24 octobre 2017, 15:58:43 (UTC+0200)
-1509924534 BEGIN  1.843 : lundi 6 novembre 2017, 00:28:54 (UTC+0100)
-1509924865 END    1.843 : lundi 6 novembre 2017, 00:34:25 (UTC+0100)
-1512012992 BEGIN  1.846 : jeudi 30 novembre 2017, 04:36:32 (UTC+0100)
-1512102532 BEGIN  1.846 : vendredi 1 décembre 2017, 05:28:52 (UTC+0100)
-1512948368 BEGIN  1.846 : lundi 11 décembre 2017, 00:26:08 (UTC+0100)
-1512950380 BEGIN  1.846 : lundi 11 décembre 2017, 00:59:40 (UTC+0100)
-1512953257 BEGIN  1.846 : lundi 11 décembre 2017, 01:47:37 (UTC+0100)
-1512986252 BEGIN  1.846 : lundi 11 décembre 2017, 10:57:32 (UTC+0100)
-1512986818 END    1.846 : lundi 11 décembre 2017, 11:06:58 (UTC+0100)
-1518045016 BEGIN  1.848 : jeudi 8 février 2018, 00:10:16 (UTC+0100)
-1518295038 BEGIN  1.848 : samedi 10 février 2018, 21:37:18 (UTC+0100)
-1518376644 BEGIN  1.848 : dimanche 11 février 2018, 20:17:24 (UTC+0100)
-1518474553 BEGIN  1.848 : lundi 12 février 2018, 23:29:13 (UTC+0100)
-1518475716 END    1.848 : lundi 12 février 2018, 23:48:36 (UTC+0100)
-1520881928 BEGIN  1.853 : lundi 12 mars 2018, 20:12:09 (UTC+0100)
-1520910093 BEGIN  1.853 : mardi 13 mars 2018, 04:01:33 (UTC+0100)
-1520910431 END    1.853 : mardi 13 mars 2018, 04:07:12 (UTC+0100)
-1523363300 BEGIN  1.870 : mardi 10 avril 2018, 14:28:20 (UTC+0200)
-1523856136 BEGIN  1.871 : lundi 16 avril 2018, 07:22:16 (UTC+0200)
-1524233668 BEGIN  1.879 : vendredi 20 avril 2018, 16:14:28 (UTC+0200)
-1524234906 END    1.879 : vendredi 20 avril 2018, 16:35:06 (UTC+0200)
-1525465051 BEGIN  1.879 : vendredi 4 mai 2018, 22:17:31 (UTC+0200)
-1525465406 END    1.879 : vendredi 4 mai 2018, 22:23:26 (UTC+0200)
-1525559651 BEGIN  1.882 : dimanche 6 mai 2018, 00:34:11 (UTC+0200)
-1525562545 BEGIN  1.882 : dimanche 6 mai 2018, 01:22:25 (UTC+0200)
-1525563698 END    1.882 : dimanche 6 mai 2018, 01:41:38 (UTC+0200)
-1530935431 BEGIN  1.884 : samedi 7 juillet 2018, 05:50:31 (UTC+0200)
-1533572276 BEGIN  1.886 : lundi 6 août 2018, 18:17:57 (UTC+0200)
-1533573483 END    1.886 : lundi 6 août 2018, 18:38:03 (UTC+0200)
-1536674569 BEGIN  1.894 : mardi 11 septembre 2018, 16:02:49 (UTC+0200)
-1536675825 END    1.894 : mardi 11 septembre 2018, 16:23:45 (UTC+0200)
-1536861485 BEGIN  1.895 : jeudi 13 septembre 2018, 19:58:05 (UTC+0200)
-1536862770 END    1.895 : jeudi 13 septembre 2018, 20:19:30 (UTC+0200)
-1538776338 BEGIN  1.902 : vendredi 5 octobre 2018, 23:52:18 (UTC+0200)
-1538777640 END    1.902 : samedi 6 octobre 2018, 00:14:00 (UTC+0200)
-1539952034 BEGIN  1.904 : vendredi 19 octobre 2018, 14:27:14 (UTC+0200)
-1539953290 END    1.904 : vendredi 19 octobre 2018, 14:48:10 (UTC+0200)
-1541964784 BEGIN  1.906 : dimanche 11 novembre 2018, 20:33:04 (UTC+0100)
-1541966136 END    1.906 : dimanche 11 novembre 2018, 20:55:36 (UTC+0100)
-1542365354 BEGIN  1.907 : vendredi 16 novembre 2018, 11:49:15 (UTC+0100)
-1542366666 END    1.907 : vendredi 16 novembre 2018, 12:11:06 (UTC+0100)
-1549626773 BEGIN  1.918 : vendredi 8 février 2019, 12:52:54 (UTC+0100)
-1549628101 END    1.918 : vendredi 8 février 2019, 13:15:01 (UTC+0100)
-1549838284 BEGIN 64bit  1.920 : dimanche 10 février 2019, 23:38:04 (UTC+0100)
-1549838455 END 64bit    1.920 : dimanche 10 février 2019, 23:40:55 (UTC+0100)
-1549844664 BEGIN  1.920 : lundi 11 février 2019, 01:24:24 (UTC+0100)
-1549845893 END    1.920 : lundi 11 février 2019, 01:44:53 (UTC+0100)
-1550487405 BEGIN  1.921 : lundi 18 février 2019, 11:56:45 (UTC+0100)
-1550490170 BEGIN  1.921 : lundi 18 février 2019, 12:42:50 (UTC+0100)
-1550490616 END    1.921 : lundi 18 février 2019, 12:50:16 (UTC+0100)
-1550490651 BEGIN 64bit  1.921 : lundi 18 février 2019, 12:50:51 (UTC+0100)
-1550490992 END 64bit    1.921 : lundi 18 février 2019, 12:56:32 (UTC+0100)
-1550491431 BEGIN 64bit  1.921 : lundi 18 février 2019, 13:03:51 (UTC+0100)
-1550491837 END 64bit    1.921 : lundi 18 février 2019, 13:10:37 (UTC+0100)
-1550492090 BEGIN  1.921 : lundi 18 février 2019, 13:14:50 (UTC+0100)
-1550493338 END    1.921 : lundi 18 février 2019, 13:35:38 (UTC+0100)
-1550493338 BEGIN 64bit  1.921 : lundi 18 février 2019, 13:35:38 (UTC+0100)
-1550493671 END 64bit    1.921 : lundi 18 février 2019, 13:41:11 (UTC+0100)
-1551276097 BEGIN 64bit  1.922 : mercredi 27 février 2019, 15:01:37 (UTC+0100)
-1551276382 END 64bit    1.922 : mercredi 27 février 2019, 15:06:22 (UTC+0100)
-1551279995 BEGIN  1.922 : mercredi 27 février 2019, 16:06:35 (UTC+0100)
-1551281318 END    1.922 : mercredi 27 février 2019, 16:28:38 (UTC+0100)
-1553344520 BEGIN  1.927 : samedi 23 mars 2019, 13:35:20 (UTC+0100)
-1553345844 END    1.927 : samedi 23 mars 2019, 13:57:24 (UTC+0100)
-1553345844 BEGIN 64bit  1.927 : samedi 23 mars 2019, 13:57:24 (UTC+0100)
-1553347859 BEGIN 64bit  1.927 : samedi 23 mars 2019, 14:30:59 (UTC+0100)
-1553347950 BEGIN 64bit  1.927 : samedi 23 mars 2019, 14:32:30 (UTC+0100)
-1553348266 END 64bit    1.927 : samedi 23 mars 2019, 14:37:46 (UTC+0100)
-1553772623 BEGIN  1.928 : jeudi 28 mars 2019, 12:30:23 (UTC+0100)
-1553773942 END    1.928 : jeudi 28 mars 2019, 12:52:22 (UTC+0100)
-1553773942 BEGIN 64bit  1.928 : jeudi 28 mars 2019, 12:52:22 (UTC+0100)
-1553774220 END 64bit    1.928 : jeudi 28 mars 2019, 12:57:00 (UTC+0100)
-1555022344 BEGIN  1.930 : vendredi 12 avril 2019, 00:39:04 (UTC+0200)
-1555023694 END    1.930 : vendredi 12 avril 2019, 01:01:34 (UTC+0200)
-1555023694 BEGIN 64bit  1.930 : vendredi 12 avril 2019, 01:01:34 (UTC+0200)
-1555024099 END 64bit    1.930 : vendredi 12 avril 2019, 01:08:19 (UTC+0200)
-1555172099 BEGIN  1.931 : samedi 13 avril 2019, 18:14:59 (UTC+0200)
-1555174250 END    1.931 : samedi 13 avril 2019, 18:50:50 (UTC+0200)
-1555174250 BEGIN 64bit  1.931 : samedi 13 avril 2019, 18:50:50 (UTC+0200)
-1555174461 END 64bit    1.931 : samedi 13 avril 2019, 18:54:21 (UTC+0200)
-1555692711 BEGIN  1.932 : vendredi 19 avril 2019, 18:51:52 (UTC+0200)
-1555693944 END    1.932 : vendredi 19 avril 2019, 19:12:24 (UTC+0200)
-1555693944 BEGIN 64bit  1.932 : vendredi 19 avril 2019, 19:12:24 (UTC+0200)
-1556423792 BEGIN  1.935 : dimanche 28 avril 2019, 05:56:32 (UTC+0200)
-1556424470 BEGIN  1.935 : dimanche 28 avril 2019, 06:07:50 (UTC+0200)
-1556424717 BEGIN  1.935 : dimanche 28 avril 2019, 06:11:57 (UTC+0200)
-1556510637 BEGIN 64bit  1.935 : lundi 29 avril 2019, 06:03:57 (UTC+0200)
-1556510687 BEGIN 64bit  1.935 : lundi 29 avril 2019, 06:04:47 (UTC+0200)
-1556510711 BEGIN  1.935 : lundi 29 avril 2019, 06:05:11 (UTC+0200)
-1556512550 BEGIN 64bit  1.935 : lundi 29 avril 2019, 06:35:50 (UTC+0200)
-1556514236 BEGIN  1.935 : lundi 29 avril 2019, 07:03:56 (UTC+0200)
-1556515512 BEGIN  1.935 : lundi 29 avril 2019, 07:25:12 (UTC+0200)
-1556515981 BEGIN  1.936 : lundi 29 avril 2019, 07:33:01 (UTC+0200)
-1556517503 END    1.936 : lundi 29 avril 2019, 07:58:23 (UTC+0200)
-1556517503 BEGIN 64bit  1.936 : lundi 29 avril 2019, 07:58:23 (UTC+0200)
-1556517802 END 64bit    1.936 : lundi 29 avril 2019, 08:03:22 (UTC+0200)
-1556795946 BEGIN  1.937 : jeudi 2 mai 2019, 13:19:06 (UTC+0200)
-1556797196 END    1.937 : jeudi 2 mai 2019, 13:39:56 (UTC+0200)
-1556797196 BEGIN 64bit  1.937 : jeudi 2 mai 2019, 13:39:56 (UTC+0200)
-1556797521 END 64bit    1.937 : jeudi 2 mai 2019, 13:45:21 (UTC+0200)
-1558993720 BEGIN  1.938 : lundi 27 mai 2019, 23:48:41 (UTC+0200)
-1558995018 END    1.938 : mardi 28 mai 2019, 00:10:18 (UTC+0200)
-1558995018 BEGIN 64bit  1.938 : mardi 28 mai 2019, 00:10:18 (UTC+0200)
-1558995347 END 64bit    1.938 : mardi 28 mai 2019, 00:15:47 (UTC+0200)
-1559041754 BEGIN 64bit  1.939 : mardi 28 mai 2019, 13:09:14 (UTC+0200)
-1559042130 END 64bit    1.939 : mardi 28 mai 2019, 13:15:30 (UTC+0200)
-1559042228 BEGIN 64bit  1.939 : mardi 28 mai 2019, 13:17:08 (UTC+0200)
-1559048685 BEGIN 64bit  1.939 : mardi 28 mai 2019, 15:04:45 (UTC+0200)
-1559048999 END 64bit    1.939 : mardi 28 mai 2019, 15:09:59 (UTC+0200)
-1561482028 BEGIN  1.944 : mardi 25 juin 2019, 19:00:28 (UTC+0200)
-1561483425 END    1.944 : mardi 25 juin 2019, 19:23:45 (UTC+0200)
-1561483425 BEGIN 64bit  1.944 : mardi 25 juin 2019, 19:23:45 (UTC+0200)
-1561485269 BEGIN 64bit  1.944 : mardi 25 juin 2019, 19:54:29 (UTC+0200)
-1561485610 END 64bit    1.944 : mardi 25 juin 2019, 20:00:10 (UTC+0200)
-1561591178 BEGIN  1.945 : jeudi 27 juin 2019, 01:19:38 (UTC+0200)
-1561592446 END    1.945 : jeudi 27 juin 2019, 01:40:46 (UTC+0200)
-1561592446 BEGIN 64bit  1.945 : jeudi 27 juin 2019, 01:40:46 (UTC+0200)
-1561592761 END 64bit    1.945 : jeudi 27 juin 2019, 01:46:01 (UTC+0200)
-1563247231 BEGIN  1.947 : mardi 16 juillet 2019, 05:20:31 (UTC+0200)
-1563271510 BEGIN  1.947 : mardi 16 juillet 2019, 12:05:10 (UTC+0200)
-1563272943 END    1.947 : mardi 16 juillet 2019, 12:29:03 (UTC+0200)
-1564388334 BEGIN  1.953 : lundi 29 juillet 2019, 10:18:54 (UTC+0200)
-1564627935 BEGIN  1.955 : jeudi 1 août 2019, 04:52:15 (UTC+0200)
-1564629209 END    1.955 : jeudi 1 août 2019, 05:13:29 (UTC+0200)
-1564629209 BEGIN 64bit  1.955 : jeudi 1 août 2019, 05:13:29 (UTC+0200)
-1564659229 BEGIN 64bit  1.955 : jeudi 1 août 2019, 13:33:49 (UTC+0200)
-1564659589 END 64bit    1.955 : jeudi 1 août 2019, 13:39:49 (UTC+0200)
-1564795411 BEGIN  1.956 : samedi 3 août 2019, 03:23:31 (UTC+0200)
-1564796657 END    1.956 : samedi 3 août 2019, 03:44:17 (UTC+0200)
-1564796657 BEGIN 64bit  1.956 : samedi 3 août 2019, 03:44:17 (UTC+0200)
-1564823546 BEGIN 64bit  1.956 : samedi 3 août 2019, 11:12:26 (UTC+0200)
-1564823894 END 64bit    1.956 : samedi 3 août 2019, 11:18:14 (UTC+0200)
-1574416593 BEGIN  1.962 : vendredi 22 novembre 2019, 10:56:34 (UTC+0100)
-1574419847 BEGIN  1.962 : vendredi 22 novembre 2019, 11:50:47 (UTC+0100)
-1574429786 BEGIN 64bit  1.962 : vendredi 22 novembre 2019, 14:36:26 (UTC+0100)
-1574433224 BEGIN 64bit  1.962 : vendredi 22 novembre 2019, 15:33:44 (UTC+0100)
-1574433927 BEGIN  1.962 : vendredi 22 novembre 2019, 15:45:27 (UTC+0100)
-1574434278 BEGIN 64bit  1.962 : vendredi 22 novembre 2019, 15:51:18 (UTC+0100)
-1574434980 BEGIN 64bit  1.962 : vendredi 22 novembre 2019, 16:03:00 (UTC+0100)
-1574435270 BEGIN 64bit  1.962 : vendredi 22 novembre 2019, 16:07:50 (UTC+0100)
-1574450028 BEGIN  1.962 : vendredi 22 novembre 2019, 20:13:48 (UTC+0100)
-1574450399 END    1.962 : vendredi 22 novembre 2019, 20:19:59 (UTC+0100)
-1574452231 BEGIN  1.962 : vendredi 22 novembre 2019, 20:50:32 (UTC+0100)
-1574452286 BEGIN  1.962 : vendredi 22 novembre 2019, 20:51:26 (UTC+0100)
-1574452715 END    1.962 : vendredi 22 novembre 2019, 20:58:36 (UTC+0100)
-1574681848 BEGIN 64bit  1.962 : lundi 25 novembre 2019, 12:37:28 (UTC+0100)
-1574692336 BEGIN  1.963 : lundi 25 novembre 2019, 15:32:16 (UTC+0100)
-1574693629 END    1.963 : lundi 25 novembre 2019, 15:53:49 (UTC+0100)
-1574693629 BEGIN 64bit  1.963 : lundi 25 novembre 2019, 15:53:49 (UTC+0100)
-1574693945 END 64bit    1.963 : lundi 25 novembre 2019, 15:59:05 (UTC+0100)
-1574953419 BEGIN  1.967 : jeudi 28 novembre 2019, 16:03:39 (UTC+0100)
-1574954698 END    1.967 : jeudi 28 novembre 2019, 16:24:58 (UTC+0100)
-1574954698 BEGIN 64bit  1.967 : jeudi 28 novembre 2019, 16:24:58 (UTC+0100)
-1574955031 END 64bit    1.967 : jeudi 28 novembre 2019, 16:30:31 (UTC+0100)
-1575033978 BEGIN  1.969 : vendredi 29 novembre 2019, 14:26:18 (UTC+0100)
-1575035212 END    1.969 : vendredi 29 novembre 2019, 14:46:52 (UTC+0100)
-1575035212 BEGIN 64bit  1.969 : vendredi 29 novembre 2019, 14:46:52 (UTC+0100)
-1575035732 END 64bit    1.969 : vendredi 29 novembre 2019, 14:55:32 (UTC+0100)
-1575911925 BEGIN  1.969 : lundi 9 décembre 2019, 18:18:45 (UTC+0100)
-1575916737 BEGIN  1.969 : lundi 9 décembre 2019, 19:38:57 (UTC+0100)
-1575924912 END    1.969 : lundi 9 décembre 2019, 21:55:12 (UTC+0100)
-1575931824 BEGIN 64bit  1.969 : lundi 9 décembre 2019, 23:50:24 (UTC+0100)
-1575932149 END 64bit    1.969 : lundi 9 décembre 2019, 23:55:49 (UTC+0100)
-1575933203 BEGIN  1.970 : mardi 10 décembre 2019, 00:13:23 (UTC+0100)
-1575973632 BEGIN  1.970 : mardi 10 décembre 2019, 11:27:12 (UTC+0100)
-1575973801 BEGIN  1.970 : mardi 10 décembre 2019, 11:30:01 (UTC+0100)
-1575973972 BEGIN  1.970 : mardi 10 décembre 2019, 11:32:52 (UTC+0100)
-1575974574 BEGIN  1.970 : mardi 10 décembre 2019, 11:42:54 (UTC+0100)
-1575975909 END    1.970 : mardi 10 décembre 2019, 12:05:09 (UTC+0100)
-1575977906 BEGIN 64bit  1.970 : mardi 10 décembre 2019, 12:38:26 (UTC+0100)
-1575978279 END   64bit  1.970 : mardi 10 décembre 2019, 12:44:39 (UTC+0100)
-1575978283 BEGIN 32bit  1.970 : mardi 10 décembre 2019, 12:44:43 (UTC+0100)
-1575979537 END   32bit  1.970 : mardi 10 décembre 2019, 13:05:37 (UTC+0100)
-1577132428 BEGIN 64bit  1.977 : lundi 23 décembre 2019, 21:20:28 (UTC+0100)
-1577133568 BEGIN 64bit  1.977 : lundi 23 décembre 2019, 21:39:28 (UTC+0100)
-1577134322 END   64bit  1.977 : lundi 23 décembre 2019, 21:52:02 (UTC+0100)
-1577134327 BEGIN 32bit  1.977 : lundi 23 décembre 2019, 21:52:07 (UTC+0100)
-1577135607 END   32bit  1.977 : lundi 23 décembre 2019, 22:13:27 (UTC+0100)
diff --git a/W/.checklinkext b/W/.checklinkext
deleted file mode 100644
index e69de29..0000000
diff --git a/W/.compok b/W/.compok
deleted file mode 100644
index a599f60..0000000
--- a/W/.compok
+++ /dev/null
@@ -1,137 +0,0 @@
-lundi 6 novembre 2017, 00:00:33 (UTC+0100)
-mardi 7 novembre 2017, 23:20:00 (UTC+0100)
-mercredi 8 novembre 2017, 06:05:30 (UTC+0100)
-lundi 13 novembre 2017, 01:11:50 (UTC+0100)
-jeudi 16 novembre 2017, 15:37:53 (UTC+0100)
-jeudi 16 novembre 2017, 15:39:32 (UTC+0100)
-jeudi 30 novembre 2017, 03:41:20 (UTC+0100)
-lundi 18 décembre 2017, 00:49:53 (UTC+0100)
-mercredi 7 février 2018, 23:29:31 (UTC+0100)
-lundi 12 mars 2018, 19:30:26 (UTC+0100)
-mercredi 21 mars 2018, 08:59:55 (UTC+0100)
-mardi 10 avril 2018, 04:10:12 (UTC+0200)
-lundi 16 avril 2018, 06:28:59 (UTC+0200)
-mercredi 18 avril 2018, 02:48:08 (UTC+0200)
-mercredi 18 avril 2018, 16:54:44 (UTC+0200)
-mercredi 18 avril 2018, 16:57:03 (UTC+0200)
-mercredi 18 avril 2018, 17:22:43 (UTC+0200)
-jeudi 19 avril 2018, 00:42:59 (UTC+0200)
-jeudi 19 avril 2018, 01:55:58 (UTC+0200)
-jeudi 19 avril 2018, 03:29:18 (UTC+0200)
-vendredi 20 avril 2018, 15:32:30 (UTC+0200)
-vendredi 4 mai 2018, 12:22:24 (UTC+0200)
-samedi 5 mai 2018, 14:11:25 (UTC+0200)
-samedi 5 mai 2018, 14:20:55 (UTC+0200)
-samedi 5 mai 2018, 15:53:28 (UTC+0200)
-samedi 5 mai 2018, 23:52:27 (UTC+0200)
-lundi 6 août 2018, 01:05:56 (UTC+0200)
-lundi 6 août 2018, 17:34:13 (UTC+0200)
-mercredi 29 août 2018, 21:18:54 (UTC+0200)
-mardi 4 septembre 2018, 06:05:56 (UTC+0200)
-mardi 11 septembre 2018, 02:25:29 (UTC+0200)
-mardi 11 septembre 2018, 11:35:56 (UTC+0200)
-mardi 11 septembre 2018, 15:23:30 (UTC+0200)
-mardi 11 septembre 2018, 20:57:36 (UTC+0200)
-jeudi 13 septembre 2018, 01:54:06 (UTC+0200)
-vendredi 5 octobre 2018, 22:50:41 (UTC+0200)
-jeudi 18 octobre 2018, 14:14:30 (UTC+0200)
-lundi 5 novembre 2018, 12:16:05 (UTC+0100)
-lundi 5 novembre 2018, 12:20:11 (UTC+0100)
-lundi 5 novembre 2018, 12:51:13 (UTC+0100)
-lundi 5 novembre 2018, 17:37:53 (UTC+0100)
-mardi 6 novembre 2018, 09:27:35 (UTC+0100)
-mardi 6 novembre 2018, 09:44:04 (UTC+0100)
-mardi 6 novembre 2018, 10:52:15 (UTC+0100)
-mercredi 7 novembre 2018, 00:36:45 (UTC+0100)
-mercredi 7 novembre 2018, 14:27:44 (UTC+0100)
-jeudi 8 novembre 2018, 19:38:22 (UTC+0100)
-dimanche 11 novembre 2018, 23:24:54 (UTC+0100)
-lundi 12 novembre 2018, 10:34:42 (UTC+0100)
-dimanche 18 novembre 2018, 13:07:46 (UTC+0100)
-dimanche 18 novembre 2018, 13:20:31 (UTC+0100)
-dimanche 18 novembre 2018, 15:59:13 (UTC+0100)
-dimanche 18 novembre 2018, 17:59:07 (UTC+0100)
-lundi 19 novembre 2018, 18:39:28 (UTC+0100)
-lundi 19 novembre 2018, 18:41:30 (UTC+0100)
-mardi 4 décembre 2018, 02:56:45 (UTC+0100)
-dimanche 9 décembre 2018, 22:26:54 (UTC+0100)
-samedi 5 janvier 2019, 01:43:02 (UTC+0100)
-samedi 5 janvier 2019, 02:40:14 (UTC+0100)
-samedi 5 janvier 2019, 14:19:18 (UTC+0100)
-samedi 5 janvier 2019, 14:21:58 (UTC+0100)
-samedi 5 janvier 2019, 16:22:51 (UTC+0100)
-samedi 5 janvier 2019, 23:17:20 (UTC+0100)
-lundi 7 janvier 2019, 20:11:24 (UTC+0100)
-lundi 7 janvier 2019, 20:44:41 (UTC+0100)
-mercredi 6 février 2019, 14:02:24 (UTC+0100)
-jeudi 7 février 2019, 13:56:24 (UTC+0100)
-jeudi 14 février 2019, 18:27:42 (UTC+0100)
-lundi 18 février 2019, 23:52:36 (UTC+0100)
-mercredi 27 février 2019, 16:20:41 (UTC+0100)
-dimanche 3 mars 2019, 19:42:11 (UTC+0100)
-vendredi 22 mars 2019, 16:33:19 (UTC+0100)
-lundi 25 mars 2019, 18:57:57 (UTC+0100)
-mardi 26 mars 2019, 12:30:43 (UTC+0100)
-lundi 1 avril 2019, 01:17:29 (UTC+0200)
-lundi 1 avril 2019, 20:09:43 (UTC+0200)
-mardi 2 avril 2019, 21:10:12 (UTC+0200)
-mercredi 3 avril 2019, 01:09:15 (UTC+0200)
-mardi 9 avril 2019, 12:56:28 (UTC+0200)
-mardi 9 avril 2019, 17:11:22 (UTC+0200)
-mercredi 10 avril 2019, 17:34:10 (UTC+0200)
-mercredi 10 avril 2019, 18:11:30 (UTC+0200)
-mercredi 10 avril 2019, 18:19:37 (UTC+0200)
-mercredi 10 avril 2019, 18:27:57 (UTC+0200)
-mercredi 10 avril 2019, 18:31:03 (UTC+0200)
-mercredi 10 avril 2019, 18:32:13 (UTC+0200)
-mercredi 10 avril 2019, 18:38:13 (UTC+0200)
-mercredi 10 avril 2019, 19:08:42 (UTC+0200)
-vendredi 12 avril 2019, 03:13:33 (UTC+0200)
-samedi 13 avril 2019, 18:01:03 (UTC+0200)
-samedi 13 avril 2019, 19:01:23 (UTC+0200)
-vendredi 19 avril 2019, 17:08:45 (UTC+0200)
-vendredi 26 avril 2019, 11:05:36 (UTC+0200)
-vendredi 26 avril 2019, 11:40:46 (UTC+0200)
-vendredi 26 avril 2019, 15:03:14 (UTC+0200)
-dimanche 28 avril 2019, 04:53:37 (UTC+0200)
-lundi 29 avril 2019, 16:45:47 (UTC+0200)
-mardi 30 avril 2019, 13:47:11 (UTC+0200)
-mercredi 1 mai 2019, 13:07:09 (UTC+0200)
-mercredi 1 mai 2019, 13:10:34 (UTC+0200)
-mercredi 8 mai 2019, 22:38:01 (UTC+0200)
-lundi 27 mai 2019, 20:54:29 (UTC+0200)
-mardi 28 mai 2019, 01:28:06 (UTC+0200)
-mercredi 5 juin 2019, 18:26:32 (UTC+0200)
-jeudi 6 juin 2019, 02:04:34 (UTC+0200)
-jeudi 6 juin 2019, 02:11:48 (UTC+0200)
-jeudi 6 juin 2019, 02:16:38 (UTC+0200)
-jeudi 6 juin 2019, 16:04:46 (UTC+0200)
-jeudi 20 juin 2019, 16:32:12 (UTC+0200)
-mardi 25 juin 2019, 00:47:36 (UTC+0200)
-mardi 25 juin 2019, 10:26:28 (UTC+0200)
-mardi 25 juin 2019, 10:39:18 (UTC+0200)
-mardi 25 juin 2019, 10:46:03 (UTC+0200)
-mardi 25 juin 2019, 18:52:01 (UTC+0200)
-mercredi 26 juin 2019, 17:34:23 (UTC+0200)
-mercredi 26 juin 2019, 21:32:34 (UTC+0200)
-mardi 16 juillet 2019, 03:57:32 (UTC+0200)
-mercredi 17 juillet 2019, 17:45:33 (UTC+0200)
-mercredi 17 juillet 2019, 18:35:58 (UTC+0200)
-mercredi 17 juillet 2019, 18:40:36 (UTC+0200)
-mercredi 17 juillet 2019, 18:49:36 (UTC+0200)
-dimanche 21 juillet 2019, 02:47:49 (UTC+0200)
-jeudi 25 juillet 2019, 19:10:43 (UTC+0200)
-jeudi 25 juillet 2019, 20:30:32 (UTC+0200)
-jeudi 25 juillet 2019, 22:46:56 (UTC+0200)
-vendredi 26 juillet 2019, 12:13:40 (UTC+0200)
-lundi 29 juillet 2019, 09:26:31 (UTC+0200)
-jeudi 1 août 2019, 04:03:35 (UTC+0200)
-samedi 3 août 2019, 02:31:37 (UTC+0200)
-mercredi 20 novembre 2019, 14:59:11 (UTC+0100)
-lundi 25 novembre 2019, 15:18:38 (UTC+0100)
-lundi 2 décembre 2019, 15:59:44 (UTC+0100)
-mercredi 4 décembre 2019, 19:41:38 (UTC+0100)
-mercredi 11 décembre 2019, 22:12:49 (UTC+0100)
-jeudi 19 décembre 2019, 10:52:31 (UTC+0100)
-vendredi 20 décembre 2019, 18:00:28 (UTC+0100)
-mardi 24 décembre 2019, 22:25:29 (UTC+0100)
diff --git a/W/.tests.errors.txt b/W/.tests.errors.txt
deleted file mode 100644
index 7b92c76..0000000
--- a/W/.tests.errors.txt
+++ /dev/null
@@ -1,4935 +0,0 @@
-2016_08_16_22_49_23 : FAILED 1/4 TESTS:  ll_authmech_xoauth2_json_gmail
-2016_08_16_22_52_37 : FAILED 1/2 TESTS:  ll_authmech_XOAUTH2_json_gmail
-2016_08_16_22_55_09 : FAILED 1/2 TESTS:  ll_authmech_XOAUTH2_gmail
-2016_08_16_22_56_48 : FAILED 1/2 TESTS:  ll_pipemess
-2016_08_16_23_59_51 : ALL 1 TESTS SUCCESSFUL
-2016_08_16_23_59_56 : ALL 2 TESTS SUCCESSFUL
-2016_08_17_00_00_27 : ALL 1 TESTS SUCCESSFUL
-2016_08_17_00_24_36 : ALL 114 TESTS SUCCESSFUL
-2016_08_17_00_48_26 : ALL 1 TESTS SUCCESSFUL
-2016_08_17_01_20_59 : ALL 114 TESTS SUCCESSFUL
-2016_08_19_10_22_53 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_10_22_59 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_45_57 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_46_02 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_48_53 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_48_58 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_49_28 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_49_32 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_50_21 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_50_25 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_52_06 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_52_11 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_53_49 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_53_53 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_55_13 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_55_18 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_57_16 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_57_21 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_11_58_33 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_11_58_58 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_12_29_48 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_33_39 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_33_46 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2016_08_19_16_34_36 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_34_41 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2016_08_19_16_38_37 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_38_42 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2016_08_19_16_41_01 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_41_05 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2016_08_19_16_41_27 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_41_32 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_16_42_51 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_42_56 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_16_43_21 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_43_26 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_16_44_25 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_44_29 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2016_08_19_16_50_18 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_50_26 : FAILED 1/2 TESTS:  l_office365_justlogin_2
-2016_08_19_16_51_12 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_52_50 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_52_56 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_16_53_30 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_54_47 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_54_54 : FAILED 1/2 TESTS:  l_office365_justconnect_tls_SSL_verify_mode
-2016_08_19_16_55_13 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_55_19 : FAILED 1/2 TESTS:  l_office365_justconnect_tls_SSL_verify_mode
-2016_08_19_16_55_37 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_16_55_43 : ALL 2 TESTS SUCCESSFUL
-2016_08_19_19_54_03 : ALL 1 TESTS SUCCESSFUL
-2016_08_19_20_18_58 : ALL 115 TESTS SUCCESSFUL
-2016_09_01_03_17_27 : ALL 1 TESTS SUCCESSFUL
-2016_09_01_03_17_32 : ALL 2 TESTS SUCCESSFUL
-2016_09_01_03_18_02 : ALL 1 TESTS SUCCESSFUL
-2016_09_01_03_18_05 : ALL 2 TESTS SUCCESSFUL
-2016_09_01_03_18_20 : ALL 1 TESTS SUCCESSFUL
-2016_09_01_03_18_22 : FAILED 1/2 TESTS:  free_ssl
-2016_09_01_03_18_40 : ALL 1 TESTS SUCCESSFUL
-2016_09_01_03_18_42 : ALL 2 TESTS SUCCESSFUL
-2016_09_16_00_28_20 : ALL 1 TESTS SUCCESSFUL
-2016_09_16_00_47_52 : ALL 116 TESTS SUCCESSFUL
-2016_09_17_17_00_49 : ALL 1 TESTS SUCCESSFUL
-2016_09_17_17_19_08 : ALL 116 TESTS SUCCESSFUL
-2016_09_26_11_12_41 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_13_55 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_14_36 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_15_17 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_15_48 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_16_29 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_17_53 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_18_33 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_19_34 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_19_44 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_20_24 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_20_24 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_21_55 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_21_56 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_22_20 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_22_20 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_22_28 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_22_28 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_22_43 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_22_53 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_23_39 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_24_28 : ALL 2 TESTS SUCCESSFUL
-2016_09_26_11_25_08 : ALL 1 TESTS SUCCESSFUL
-2016_09_26_11_25_53 : ALL 3 TESTS SUCCESSFUL
-2016_09_29_12_01_21 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_01_32 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_12_02_50 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_02_54 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_12_11_16 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_11_19 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_12_11_48 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_11_52 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_12_12_54 : FAILED 1/1 TESTS:  perl_syntax
-2016_09_29_12_14_52 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_14_55 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_12_16_10 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_12_16_14 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_13_44_54 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_13_44_58 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_14_15_45 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_14_15_48 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_14_17_05 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_14_17_07 : FAILED 1/2 TESTS:  ll_noabletosearch1
-2016_09_29_14_23_01 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_14_23_04 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_14_26_39 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_14_26_42 : ALL 2 TESTS SUCCESSFUL
-2016_09_29_14_44_27 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_15_06_52 : ALL 116 TESTS SUCCESSFUL
-2016_09_29_23_09_17 : ALL 1 TESTS SUCCESSFUL
-2016_09_29_23_30_11 : ALL 116 TESTS SUCCESSFUL
-2016_10_03_00_57_01 : ALL 1 TESTS SUCCESSFUL
-2016_10_03_00_57_08 : ALL 2 TESTS SUCCESSFUL
-2016_10_03_00_57_34 : ALL 1 TESTS SUCCESSFUL
-2016_10_03_00_57_38 : ALL 2 TESTS SUCCESSFUL
-2016_10_06_03_26_27 : ALL 1 TESTS SUCCESSFUL
-2016_10_06_03_45_36 : FAILED 2/116 TESTS:  option_tests ll_authmech_XOAUTH_gmail
-2016_10_09_21_20_41 : ALL 1 TESTS SUCCESSFUL
-2016_10_09_21_38_59 : FAILED 2/116 TESTS:  option_tests ll_delete2foldersonly_NEW_3
-2016_10_10_05_55_31 : ALL 1 TESTS SUCCESSFUL
-2016_10_10_06_12_48 : ALL 116 TESTS SUCCESSFUL
-2016_10_10_22_54_25 : ALL 1 TESTS SUCCESSFUL
-2016_10_10_23_15_40 : ALL 116 TESTS SUCCESSFUL
-2016_10_11_02_16_33 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_32_56 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_34_03 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_18_36_19 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_36_47 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_18_36_56 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_37_59 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_18_58_07 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_58_15 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_18_58_41 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_18_58_49 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_07_41 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_07_41 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_08_21 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_08_21 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_18_08 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_18_08 : FAILED 1/2 TESTS:  setx
-2016_10_11_19_18_16 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_18_16 : FAILED 1/2 TESTS:  setback
-2016_10_11_19_18_27 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_18_27 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_18_40 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_18_40 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_18_52 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_18_52 : ALL 3 TESTS SUCCESSFUL
-2016_10_11_19_21_53 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_21_53 : ALL 3 TESTS SUCCESSFUL
-2016_10_11_19_22_21 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_22_29 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_23_08 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_23_16 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_24_48 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_24_56 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_27_00 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_27_07 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_31_32 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_31_32 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_32_36 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_32_36 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_33_45 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_19_33_53 : ALL 2 TESTS SUCCESSFUL
-2016_10_11_19_47_27 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_20_05_18 : ALL 116 TESTS SUCCESSFUL
-2016_10_11_21_04_34 : ALL 1 TESTS SUCCESSFUL
-2016_10_11_21_22_54 : ALL 118 TESTS SUCCESSFUL
-2016_10_27_12_41_24 : ALL 1 TESTS SUCCESSFUL
-2016_10_27_12_41_37 : ALL 2 TESTS SUCCESSFUL
-2016_10_27_12_43_33 : ALL 1 TESTS SUCCESSFUL
-2016_10_27_12_43_51 : ALL 2 TESTS SUCCESSFUL
-2016_10_30_13_12_36 : ALL 1 TESTS SUCCESSFUL
-2016_10_30_13_12_40 : ALL 2 TESTS SUCCESSFUL
-2016_11_01_01_19_45 : ALL 1 TESTS SUCCESSFUL
-2016_11_01_01_19_45 : ALL 2 TESTS SUCCESSFUL
-2016_11_01_01_20_03 : ALL 1 TESTS SUCCESSFUL
-2016_11_01_01_20_47 : ALL 2 TESTS SUCCESSFUL
-2016_11_01_01_20_54 : ALL 1 TESTS SUCCESSFUL
-2016_11_01_01_21_07 : ALL 2 TESTS SUCCESSFUL
-2016_11_01_01_23_20 : ALL 1 TESTS SUCCESSFUL
-2016_11_01_01_23_31 : ALL 2 TESTS SUCCESSFUL
-2016_11_03_21_54_10 : ALL 1 TESTS SUCCESSFUL
-2016_11_03_22_13_36 : ALL 118 TESTS SUCCESSFUL
-2016_11_15_02_13_57 : ALL 1 TESTS SUCCESSFUL
-2016_11_15_02_14_02 : ALL 2 TESTS SUCCESSFUL
-2016_11_17_15_10_56 : ALL 1 TESTS SUCCESSFUL
-2016_11_17_15_30_01 : ALL 118 TESTS SUCCESSFUL
-2016_11_17_16_26_30 : ALL 1 TESTS SUCCESSFUL
-2016_11_17_16_44_56 : ALL 118 TESTS SUCCESSFUL
-2016_11_22_22_50_48 : ALL 1 TESTS SUCCESSFUL
-2016_11_22_23_09_40 : ALL 118 TESTS SUCCESSFUL
-2016_11_23_09_25_07 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_25_17 : ALL 2 TESTS SUCCESSFUL
-2016_11_23_09_28_29 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_28_32 : ALL 2 TESTS SUCCESSFUL
-2016_11_23_09_44_28 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_44_31 : ALL 2 TESTS SUCCESSFUL
-2016_11_23_09_50_03 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_50_06 : ALL 2 TESTS SUCCESSFUL
-2016_11_23_09_52_25 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_52_29 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2016_11_23_09_52_48 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_52_51 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2016_11_23_09_53_22 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_58_15 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_09_58_20 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2016_11_23_10_10_47 : ALL 1 TESTS SUCCESSFUL
-2016_11_23_10_10_50 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2016_11_28_17_43_13 : ALL 1 TESTS SUCCESSFUL
-2016_11_28_17_43_18 : ALL 2 TESTS SUCCESSFUL
-2016_11_28_17_44_46 : ALL 1 TESTS SUCCESSFUL
-2016_11_28_17_44_50 : ALL 2 TESTS SUCCESSFUL
-2016_11_28_17_45_11 : ALL 1 TESTS SUCCESSFUL
-2016_11_28_17_45_14 : ALL 2 TESTS SUCCESSFUL
-2016_11_29_03_48_41 : ALL 1 TESTS SUCCESSFUL
-2016_11_29_03_48_45 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_02_34_42 : FAILED 1/1 TESTS:  perl_syntax
-2016_12_12_02_34_47 : FAILED 1/1 TESTS:  perl_syntax
-2016_12_12_02_35_51 : FAILED 1/1 TESTS:  perl_syntax
-2016_12_12_02_36_18 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_02_36_19 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_02_36_51 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_02_36_53 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_02_46_48 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_02_46_51 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_16_27 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_16_29 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_18_23 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_18_25 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_20_42 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_20_43 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_20_51 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_20_53 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_23_05 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_23_08 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_23_12 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_23_14 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_24_18 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_24_36 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_24_36 : FAILED 1/2 TESTS:  abort2
-2016_12_12_03_24_47 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_24_48 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_24_49 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_24_58 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_25_04 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_25_07 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_25_24 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_27_03 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_27_09 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_27_09 : FAILED 1/2 TESTS:  ll_abort2
-2016_12_12_03_27_21 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_27_25 : FAILED 1/2 TESTS:  ll_abort_run
-2016_12_12_03_27_25 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_27_55 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_28_03 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_28_06 : FAILED 1/2 TESTS:  ll_abort_run
-2016_12_12_03_28_07 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_31_16 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_31_22 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_03_31_34 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_03_31_41 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_22_45_23 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_22_54_37 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_23_13_01 : FAILED 1/118 TESTS:  ll_authmech_XOAUTH_gmail
-2016_12_12_23_15_44 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_23_15_54 : ALL 2 TESTS SUCCESSFUL
-2016_12_12_23_16_43 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_23_16_57 : FAILED 1/2 TESTS:  ll_authmech_XOAUTH_gmail
-2016_12_12_23_21_49 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_23_22_04 : FAILED 1/2 TESTS:  ll_authmech_XOAUTH_gmail
-2016_12_12_23_40_25 : ALL 1 TESTS SUCCESSFUL
-2016_12_12_23_58_40 : ALL 117 TESTS SUCCESSFUL
-2016_12_13_14_05_12 : ALL 1 TESTS SUCCESSFUL
-2016_12_13_14_24_54 : ALL 117 TESTS SUCCESSFUL
-2016_12_13_20_48_55 : ALL 1 TESTS SUCCESSFUL
-2016_12_13_20_48_58 : ALL 2 TESTS SUCCESSFUL
-2016_12_13_20_52_10 : ALL 1 TESTS SUCCESSFUL
-2016_12_13_20_52_13 : ALL 2 TESTS SUCCESSFUL
-2016_12_13_20_52_40 : ALL 1 TESTS SUCCESSFUL
-2016_12_13_20_52_42 : ALL 2 TESTS SUCCESSFUL
-2016_12_13_20_53_17 : ALL 1 TESTS SUCCESSFUL
-2016_12_13_20_53_19 : ALL 2 TESTS SUCCESSFUL
-2016_12_14_17_35_59 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_17_54_42 : FAILED 2/117 TESTS:  option_tests_debug ll
-2016_12_14_18_26_41 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_18_27_04 : ALL 2 TESTS SUCCESSFUL
-2016_12_14_18_45_32 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_18_55_04 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_19_05_19 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_19_23_13 : FAILED 2/117 TESTS:  option_tests ll_ask_password
-2016_12_14_23_51_08 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_23_51_13 : FAILED 1/2 TESTS:  option_tests
-2016_12_14_23_53_01 : ALL 1 TESTS SUCCESSFUL
-2016_12_14_23_53_05 : FAILED 1/2 TESTS:  ll_ask_password
-2016_12_15_00_00_25 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_00_00_29 : ALL 2 TESTS SUCCESSFUL
-2016_12_15_00_07_36 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_00_07_40 : ALL 2 TESTS SUCCESSFUL
-2016_12_15_05_42_24 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_06_00_09 : FAILED 3/117 TESTS:  option_tests option_tests_debug ll_exclude
-2016_12_15_06_10_50 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_06_10_53 : FAILED 1/2 TESTS:  ll_regextrans2_d
-2016_12_15_06_11_24 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_06_11_29 : ALL 2 TESTS SUCCESSFUL
-2016_12_15_06_16_19 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_06_16_25 : ALL 2 TESTS SUCCESSFUL
-2016_12_15_06_16_47 : ALL 1 TESTS SUCCESSFUL
-2016_12_15_06_16_52 : ALL 2 TESTS SUCCESSFUL
-2016_12_24_16_41_53 : ALL 1 TESTS SUCCESSFUL
-2016_12_24_17_01_27 : ALL 117 TESTS SUCCESSFUL
-2017_01_05_03_04_44 : ALL 1 TESTS SUCCESSFUL
-2017_01_05_03_23_58 : FAILED 1/117 TESTS:  l_office365_justconnect_inet4_inet6
-2017_01_05_04_18_13 : ALL 1 TESTS SUCCESSFUL
-2017_01_05_04_36_08 : ALL 117 TESTS SUCCESSFUL
-2017_01_05_15_18_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_05_15_37_27 : ALL 117 TESTS SUCCESSFUL
-2017_01_09_08_52_00 : ALL 1 TESTS SUCCESSFUL
-2017_01_09_09_10_57 : ALL 117 TESTS SUCCESSFUL
-2017_01_09_19_00_22 : ALL 1 TESTS SUCCESSFUL
-2017_01_10_21_19_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_10_21_38_26 : FAILED 2/117 TESTS:  option_tests option_tests_debug
-2017_01_11_06_45_22 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_07_04_31 : ALL 117 TESTS SUCCESSFUL
-2017_01_11_15_53_57 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_16_12_29 : ALL 117 TESTS SUCCESSFUL
-2017_01_11_20_49_39 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_20_49_41 : ALL 2 TESTS SUCCESSFUL
-2017_01_11_20_50_10 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_20_50_12 : ALL 2 TESTS SUCCESSFUL
-2017_01_11_21_37_48 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_21_37_50 : FAILED 1/2 TESTS:  ll_justlogin
-2017_01_11_21_40_31 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_21_40_34 : ALL 2 TESTS SUCCESSFUL
-2017_01_11_21_41_55 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_21_41_58 : ALL 2 TESTS SUCCESSFUL
-2017_01_11_21_42_04 : ALL 1 TESTS SUCCESSFUL
-2017_01_11_21_42_06 : FAILED 1/2 TESTS:  ll_justlogin
-2017_01_12_04_09_25 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_09_28 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_10_35 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_10_57 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_11_56 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_11_59 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_13_46 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_13_57 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_14_57 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_15_00 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_24_09 : FAILED 1/1 TESTS:  perl_syntax
-2017_01_12_04_24_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_24_26 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_04_25_09 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_04_25_12 : ALL 2 TESTS SUCCESSFUL
-2017_01_12_10_54_34 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_11_00_23 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_11_13_49 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_11_17_00 : ALL 1 TESTS SUCCESSFUL
-2017_01_12_11_41_00 : FAILED 1/117 TESTS:  option_tests
-2017_01_15_19_19_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_15_19_19_59 : ALL 1 TESTS SUCCESSFUL
-2017_01_15_19_37_18 : ALL 1 TESTS SUCCESSFUL
-2017_01_15_19_38_09 : ALL 1 TESTS SUCCESSFUL
-2017_01_15_19_58_08 : ALL 117 TESTS SUCCESSFUL
-2017_01_15_20_32_11 : ALL 1 TESTS SUCCESSFUL
-2017_01_16_15_07_31 : ALL 1 TESTS SUCCESSFUL
-2017_01_16_15_27_36 : ALL 117 TESTS SUCCESSFUL
-2017_01_17_04_39_20 : FAILED 1/1 TESTS:  perl_syntax
-2017_01_17_04_44_32 : ALL 1 TESTS SUCCESSFUL
-2017_01_17_04_44_45 : ALL 2 TESTS SUCCESSFUL
-2017_01_17_05_45_52 : ALL 1 TESTS SUCCESSFUL
-2017_01_17_06_06_04 : ALL 117 TESTS SUCCESSFUL
-2017_01_17_07_23_12 : ALL 1 TESTS SUCCESSFUL
-2017_01_17_07_42_44 : ALL 117 TESTS SUCCESSFUL
-2017_01_18_22_11_58 : ALL 1 TESTS SUCCESSFUL
-2017_01_18_22_29_08 : ALL 1 TESTS SUCCESSFUL
-2017_01_18_22_29_10 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_18_22_29_30 : ALL 1 TESTS SUCCESSFUL
-2017_01_18_22_29_33 : ALL 2 TESTS SUCCESSFUL
-2017_01_18_22_30_31 : ALL 1 TESTS SUCCESSFUL
-2017_01_18_22_30_39 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_18_22_31_55 : ALL 117 TESTS SUCCESSFUL
-2017_01_18_22_41_37 : FAILED 1/1 TESTS:  perl_syntax
-2017_01_18_22_42_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_18_22_42_32 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_00_07_34 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_00_07_42 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_00_18_36 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_00_18_44 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_00_19_23 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_00_19_31 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_00_21_47 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_00_21_55 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_00_24_58 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_00_25_05 : FAILED 1/2 TESTS:  ll_showpasswords
-2017_01_19_01_48_49 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_01_49_58 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_02_09_00 : FAILED 1/117 TESTS:  ll_timeout
-2017_01_19_04_41_14 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_05_00_46 : FAILED 1/117 TESTS:  ll_timeout
-2017_01_19_06_15_27 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_06_34_13 : FAILED 8/117 TESTS:  option_tests l_office365_justconnect_tls_SSL_verify_mode_1 ll_timeout ll_justconnect_devel ll_tls_justconnect ll_tls_justlogin ll_tls ll_delete
-2017_01_19_06_53_41 : ALL 1 TESTS SUCCESSFUL
-2017_01_19_07_13_17 : FAILED 6/117 TESTS:  l_office365_justconnect_tls_SSL_verify_mode_1 ll_timeout ll_justconnect_devel ll_tls_justconnect ll_tls_justlogin ll_tls
-2017_01_28_06_49_57 : ALL 1 TESTS SUCCESSFUL
-2017_01_28_06_50_18 : ALL 2 TESTS SUCCESSFUL
-2017_01_28_06_54_22 : ALL 1 TESTS SUCCESSFUL
-2017_01_28_06_54_30 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_02_10 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_02_20 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_02_27 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_02_37 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_02_57 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_03_07 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_03_37 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_03_43 : FAILED 1/2 TESTS:  easygmail_gmail2
-2017_01_31_23_04_24 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_04_35 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_04_52 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_05_00 : FAILED 1/2 TESTS:  easygmail_gmail2
-2017_01_31_23_05_25 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_05_32 : FAILED 1/2 TESTS:  easygmail_gmail2
-2017_01_31_23_06_39 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_06_48 : FAILED 1/2 TESTS:  easygmail_gmail2
-2017_01_31_23_07_43 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_07_57 : ALL 2 TESTS SUCCESSFUL
-2017_01_31_23_10_31 : ALL 1 TESTS SUCCESSFUL
-2017_01_31_23_10_44 : ALL 2 TESTS SUCCESSFUL
-2017_02_09_12_38_08 : ALL 1 TESTS SUCCESSFUL
-2017_02_09_12_38_31 : ALL 2 TESTS SUCCESSFUL
-2017_02_09_12_40_11 : ALL 1 TESTS SUCCESSFUL
-2017_02_09_12_40_21 : ALL 2 TESTS SUCCESSFUL
-2017_02_09_12_42_24 : ALL 1 TESTS SUCCESSFUL
-2017_02_09_12_42_54 : ALL 2 TESTS SUCCESSFUL
-2017_02_15_00_25_10 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_00_44_22 : FAILED 9/117 TESTS:  yahoo_xxxx l_office365_justconnect_tls_SSL_verify_mode_1 ll_timeout ll_justconnect_devel ll_tls_justconnect ll_tls_justlogin ll_tls ll_authmech_xoauth2_gmail ll_authmech_xoauth2_json_gmail
-2017_02_15_02_18_30 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_02_37_11 : FAILED 8/117 TESTS:  yahoo_xxxx l_office365_justconnect_tls_SSL_verify_mode_1 ll_justconnect_devel ll_tls_justconnect ll_tls_justlogin ll_tls ll_authmech_xoauth2_gmail ll_authmech_xoauth2_json_gmail
-2017_02_15_11_18_00 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_11_18_34 : FAILED 8/9 TESTS:  yahoo_xxxx l_office365_justconnect_tls_SSL_verify_mode_1 ll_justconnect_devel ll_tls_justconnect ll_tls_justlogin ll_tls ll_authmech_xoauth2_gmail ll_authmech_xoauth2_json_gmail
-2017_02_15_12_09_21 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_09_28 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_02_15_12_15_32 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_15_40 : FAILED 1/2 TESTS:  yahoo_xxxx_login
-2017_02_15_12_23_55 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_24_40 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_27_55 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_28_37 : ALL 2 TESTS SUCCESSFUL
-2017_02_15_12_31_21 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_31_25 : FAILED 1/2 TESTS:  yahoo_all
-2017_02_15_12_33_10 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_35_13 : FAILED 1/2 TESTS:  yahoo_all
-2017_02_15_12_38_04 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_38_04 : FAILED 1/2 TESTS:  yahoo_login_tls
-2017_02_15_12_38_30 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_12_38_33 : FAILED 1/2 TESTS:  yahoo_xxxx_login_tls
-2017_02_15_13_27_32 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_29_35 : FAILED 1/2 TESTS:  yahoo_xxxx_login_tls
-2017_02_15_13_51_42 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_52_33 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_53_10 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_53_17 : FAILED 1/2 TESTS:  yahoo_xxxx_login_tls
-2017_02_15_13_53_30 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_54_12 : ALL 2 TESTS SUCCESSFUL
-2017_02_15_13_54_43 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_54_47 : ALL 2 TESTS SUCCESSFUL
-2017_02_15_13_54_59 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_56_35 : FAILED 2/9 TESTS:  ll_authmech_xoauth2_gmail ll_authmech_xoauth2_json_gmail
-2017_02_15_13_56_59 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_13_57_02 : FAILED 1/2 TESTS:  ll_authmech_xoauth2_gmail
-2017_02_15_15_37_56 : ALL 1 TESTS SUCCESSFUL
-2017_02_15_15_39_29 : ALL 9 TESTS SUCCESSFUL
-2017_02_17_03_13_57 : ALL 1 TESTS SUCCESSFUL
-2017_02_17_03_41_08 : FAILED 1/117 TESTS:  ll_timeout
-2017_02_17_09_36_33 : ALL 1 TESTS SUCCESSFUL
-2017_02_17_09_36_38 : FAILED 1/2 TESTS:  ll_timeout
-2017_02_17_09_39_58 : ALL 1 TESTS SUCCESSFUL
-2017_02_17_10_01_03 : ALL 117 TESTS SUCCESSFUL
-2017_02_27_15_39_13 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_15_39_57 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_15_43_50 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_15_43_56 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_15_44_41 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_15_44_48 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_15_46_03 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_15_46_14 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_15_46_24 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_15_46_35 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_16_24_44 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_16_24_55 : ALL 2 TESTS SUCCESSFUL
-2017_02_27_17_47_38 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_18_17_18 : FAILED 2/117 TESTS:  l_office365_justconnect_inet4_inet6 l_office365_justconnect_tls_SSL_verify_mode_1
-2017_02_27_18_17_59 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_18_20_30 : FAILED 1/3 TESTS:  l_office365_justconnect_inet4_inet6
-2017_02_27_18_20_46 : ALL 1 TESTS SUCCESSFUL
-2017_02_27_18_23_07 : FAILED 1/2 TESTS:  l_office365_justconnect_inet4_inet6
-2017_02_28_11_37_22 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_11_41_38 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_11_41_54 : ALL 2 TESTS SUCCESSFUL
-2017_02_28_11_43_08 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_11_57_21 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_11_59_15 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_11_59_43 : ALL 2 TESTS SUCCESSFUL
-2017_02_28_12_00_47 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_12_01_17 : ALL 2 TESTS SUCCESSFUL
-2017_02_28_12_01_27 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_12_01_46 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_12_01_49 : ALL 2 TESTS SUCCESSFUL
-2017_02_28_12_03_59 : ALL 117 TESTS SUCCESSFUL
-2017_02_28_12_04_22 : ALL 1 TESTS SUCCESSFUL
-2017_02_28_12_24_32 : ALL 117 TESTS SUCCESSFUL
-2017_03_01_04_08_06 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_04_08_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_04_44_07 : ALL 117 TESTS SUCCESSFUL
-2017_03_01_05_00_10 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_00_22 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_02_38 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_02_44 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_03_41 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_05_02 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_06_07 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_07_57 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_08_11 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_09_03 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_09_50 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_10_04 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_10_24 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_10_39 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_10_47 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_10_55 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_11_25 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_11_38 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_12_04 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_12_18 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_12_32 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_12_42 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_13_07 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_13_16 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_13_56 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_14_12 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_14_41 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_20_10 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_20_25 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_22_04 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_22_19 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_05_22_26 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_05_22_35 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_15_35_41 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_15_35_47 : ALL 2 TESTS SUCCESSFUL
-2017_03_01_15_37_38 : ALL 1 TESTS SUCCESSFUL
-2017_03_01_15_37_42 : FAILED 1/2 TESTS:  ll_ask_password
-2017_03_05_12_11_19 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_19_05 : FAILED 1/1 TESTS:  perl_syntax
-2017_03_07_22_19_54 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_20_07 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_22_24_36 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_24_46 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_22_42_30 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_42_33 : FAILED 1/2 TESTS:  office1_office2
-2017_03_07_22_43_06 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_43_09 : FAILED 1/2 TESTS:  office1_office2
-2017_03_07_22_43_27 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_43_53 : FAILED 1/2 TESTS:  office1_office2
-2017_03_07_22_45_37 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_45_54 : FAILED 1/2 TESTS:  office1_office2
-2017_03_07_22_45_57 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_54_58 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_55_14 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_22_59_19 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_22_59_33 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_23_02_34 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_02_49 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_23_05_34 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_10_30 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_10_44 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_23_11_52 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_12_06 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_23_12_51 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_13_05 : ALL 2 TESTS SUCCESSFUL
-2017_03_07_23_20_01 : ALL 1 TESTS SUCCESSFUL
-2017_03_07_23_40_52 : ALL 117 TESTS SUCCESSFUL
-2017_03_09_12_29_09 : ALL 1 TESTS SUCCESSFUL
-2017_03_09_12_50_04 : ALL 117 TESTS SUCCESSFUL
-2017_03_10_02_04_57 : ALL 1 TESTS SUCCESSFUL
-2017_03_10_02_25_41 : ALL 117 TESTS SUCCESSFUL
-2017_03_13_00_30_45 : FAILED 1/1 TESTS:  perl_syntax
-2017_03_13_00_32_04 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_32_04 : FAILED 1/2 TESTS:  exchange1
-2017_03_13_00_32_33 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_32_40 : FAILED 1/2 TESTS:  exchange_1
-2017_03_13_00_34_14 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_34_26 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_00_40_03 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_40_04 : FAILED 1/2 TESTS:  ll_domino2
-2017_03_13_00_42_02 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_42_04 : FAILED 1/2 TESTS:  ll_domino2
-2017_03_13_00_44_33 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_44_37 : FAILED 1/2 TESTS:  ll_domino2
-2017_03_13_00_48_12 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_48_17 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_00_52_17 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_52_21 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_00_53_16 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_00_53_21 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_01_09_25 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_09_26 : FAILED 1/2 TESTS:  ll_domino1
-2017_03_13_01_09_34 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_09_38 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_01_10_52 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_10_56 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_01_15_11 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_38_21 : FAILED 1/1 TESTS:  perl_syntax
-2017_03_13_01_39_24 : FAILED 1/1 TESTS:  perl_syntax
-2017_03_13_01_44_52 : FAILED 1/1 TESTS:  perl_syntax
-2017_03_13_01_46_23 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_57_33 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_59_42 : FAILED 1/2 TESTS:  ll_env_password
-2017_03_13_01_59_46 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_01_59_49 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_02_00_32 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_00_36 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_02_03_13 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_03_47 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_04_41 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_05_19 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_06_12 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_06_17 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_02_07_52 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_08_00 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_08_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_08_21 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_02_08_32 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_08_40 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_09_33 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_09_42 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_10_58 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_11_06 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_19_22 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_19_30 : ALL 3 TESTS SUCCESSFUL
-2017_03_13_02_21_43 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_02_45_48 : ALL 120 TESTS SUCCESSFUL
-2017_03_13_07_21_17 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_07_21_30 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_07_21_55 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_07_22_14 : ALL 2 TESTS SUCCESSFUL
-2017_03_13_07_23_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_07_44_06 : FAILED 1/120 TESTS:  option_tests
-2017_03_13_14_13_32 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_14_34_56 : FAILED 1/120 TESTS:  option_tests
-2017_03_13_15_18_35 : ALL 1 TESTS SUCCESSFUL
-2017_03_13_15_39_17 : FAILED 1/120 TESTS:  option_tests
-2017_03_14_01_56_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_01_57_27 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_01_59_20 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_02_19_32 : FAILED 1/120 TESTS:  option_tests
-2017_03_14_18_29_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_30_35 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_18_38_22 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_43_17 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_18_49_37 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_54_38 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_18_54_54 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_56_26 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_56_54 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_18_57_06 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_18_57_37 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_18_58_05 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_19_03_39 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_19_06_00 : ALL 1 TESTS SUCCESSFUL
-2017_03_14_19_06_29 : ALL 2 TESTS SUCCESSFUL
-2017_03_14_19_07_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_18_00_18_47 : ALL 1 TESTS SUCCESSFUL
-2017_03_18_00_40_07 : ALL 120 TESTS SUCCESSFUL
-2017_03_20_07_24_32 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_07_25_45 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_07_26_09 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_07_27_10 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_07_27_54 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_13_39_58 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_13_40_42 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_14_15_06 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_14_15_48 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_14_31_30 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_14_32_13 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_14_46_49 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_14_47_23 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_14_48_00 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_14_48_42 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_21_20_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_21_20_22 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_21_21_37 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_21_21_41 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_21_22_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_21_22_22 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_32_03 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_32_44 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_33_06 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_33_42 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_33_45 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_34_59 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_35_58 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_37_16 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_37_57 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_38_37 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_39_18 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_39_24 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_40_55 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_42_24 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_43_56 : ALL 2 TESTS SUCCESSFUL
-2017_03_20_23_56_25 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_58_47 : ALL 1 TESTS SUCCESSFUL
-2017_03_20_23_59_14 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_00_07 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_00_53 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_01_15 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_02_01 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_05_33 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_10_02 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_10_47 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_11_21 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_11_48 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_14_10 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_14_45 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_15_25 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_16_24 : ALL 2 TESTS SUCCESSFUL
-2017_03_21_00_21_18 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_00_22_20 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_08_27_10 : ALL 1 TESTS SUCCESSFUL
-2017_03_21_08_48_16 : ALL 120 TESTS SUCCESSFUL
-2017_03_24_23_47_54 : ALL 1 TESTS SUCCESSFUL
-2017_03_24_23_48_02 : ALL 2 TESTS SUCCESSFUL
-2017_03_24_23_49_04 : ALL 1 TESTS SUCCESSFUL
-2017_03_24_23_49_25 : ALL 2 TESTS SUCCESSFUL
-2017_04_06_01_07_51 : ALL 1 TESTS SUCCESSFUL
-2017_04_06_01_29_21 : ALL 120 TESTS SUCCESSFUL
-2017_04_12_14_53_49 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_15_15_38 : ALL 120 TESTS SUCCESSFUL
-2017_04_12_17_14_51 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_14_51 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_16_50 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_16_56 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_19_23 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_19_32 : ALL 2 TESTS SUCCESSFUL
-2017_04_12_17_20_55 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_21_03 : ALL 2 TESTS SUCCESSFUL
-2017_04_12_17_22_22 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_22_30 : ALL 2 TESTS SUCCESSFUL
-2017_04_12_17_23_23 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_23_29 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_25_32 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_25_38 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_26_16 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_26_22 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_27_01 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_27_07 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_17_42_43 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_17_42_49 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_12_21_37_27 : ALL 1 TESTS SUCCESSFUL
-2017_04_12_21_37_33 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_40_50 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_40_56 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_41_49 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_41_51 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_42_26 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_42_34 : FAILED 1/2 TESTS:  option_tests_in_var_tmp_sub
-2017_04_13_02_42_46 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_42_48 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_47_38 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_47_40 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_48_31 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_48_33 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_49_33 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_49_35 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_50_57 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_50_59 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_52_56 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_52_58 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_53_30 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_53_31 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_02_55_54 : FAILED 1/1 TESTS:  perl_syntax
-2017_04_13_02_56_20 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_02_56_21 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_01_02 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_01_04 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_06_21 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_06_23 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_08_09 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_08_11 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_09_00 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_09_02 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_09_37 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_09_39 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_11_22 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_11_24 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_12_50 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_12_52 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_14_34 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_14_36 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_16_50 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_16_52 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_17_27 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_17_28 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_18_45 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_18_47 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_18_56 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_19_03 : FAILED 1/2 TESTS:  option_tests_in_var_tmp_sub
-2017_04_13_03_19_42 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_19_49 : FAILED 1/2 TESTS:  option_tests_in_var_tmp_sub
-2017_04_13_03_20_32 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_20_34 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_03_51_30 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_03_51_32 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_25_27 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_25_29 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_33_31 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_33_33 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_41_28 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_41_30 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_46_33 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_46_35 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_50_16 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_50_18 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_50_36 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_50_38 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_14_52_56 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_14_52_58 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_15_24_18 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_24_20 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_15_35_37 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_35_39 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_15_38_25 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_38_27 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_04_13_15_40_05 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_40_07 : ALL 2 TESTS SUCCESSFUL
-2017_04_13_15_40_57 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_40_57 : FAILED 1/2 TESTS:  option_tests_in_var
-2017_04_13_15_41_10 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_41_18 : FAILED 1/2 TESTS:  option_tests_in_var_tmp_sub
-2017_04_13_15_41_45 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_41_54 : ALL 2 TESTS SUCCESSFUL
-2017_04_13_15_42_16 : ALL 1 TESTS SUCCESSFUL
-2017_04_13_15_42_23 : ALL 2 TESTS SUCCESSFUL
-2017_04_22_14_58_20 : ALL 1 TESTS SUCCESSFUL
-2017_04_22_15_02_48 : ALL 1 TESTS SUCCESSFUL
-2017_04_22_15_23_15 : ALL 122 TESTS SUCCESSFUL
-2017_04_24_04_53_15 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_04_53_15 : FAILED 1/2 TESTS:  passfile_noexist
-2017_04_24_04_53_55 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_04_53_55 : FAILED 1/2 TESTS:  passfile_noexistee
-2017_04_24_04_54_12 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_04_54_18 : FAILED 1/2 TESTS:  passfile_noexist
-2017_04_24_05_02_43 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_05_02_46 : FAILED 1/2 TESTS:  passfile_noexist
-2017_04_24_05_06_35 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_05_06_38 : ALL 2 TESTS SUCCESSFUL
-2017_04_24_05_07_01 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_05_07_03 : FAILED 1/2 TESTS:  passfile_noexist
-2017_04_24_12_17_02 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_12_17_41 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_12_17_47 : ALL 3 TESTS SUCCESSFUL
-2017_04_24_12_54_42 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_13_18_16 : FAILED 4/124 TESTS:  office365_justconnect_inet4_inet6 ll_ask_password ll_env_password ll_authmech_xoauth2_json_gmail
-2017_04_24_15_48_46 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_15_48_52 : ALL 3 TESTS SUCCESSFUL
-2017_04_24_15_51_01 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_15_51_07 : ALL 3 TESTS SUCCESSFUL
-2017_04_24_22_52_47 : ALL 1 TESTS SUCCESSFUL
-2017_04_24_23_16_56 : FAILED 3/124 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2017_04_25_01_00_30 : ALL 1 TESTS SUCCESSFUL
-2017_04_25_01_22_09 : ALL 124 TESTS SUCCESSFUL
-2017_04_25_16_13_59 : ALL 1 TESTS SUCCESSFUL
-2017_04_25_16_43_26 : ALL 124 TESTS SUCCESSFUL
-2017_04_25_18_13_58 : ALL 1 TESTS SUCCESSFUL
-2017_04_25_18_35_45 : FAILED 1/124 TESTS:  free_ssl
-2017_04_25_22_54_46 : ALL 1 TESTS SUCCESSFUL
-2017_04_25_22_55_14 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_01_17_24 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_01_37_52 : ALL 124 TESTS SUCCESSFUL
-2017_04_26_13_22_27 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_22_38 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_23_38 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_23_47 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_24_25 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_24_29 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_25_23 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_25_27 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_26_16 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_26_19 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_26_44 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_26_47 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_34_11 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_34_16 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_34_47 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_34_51 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_13_35_14 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_13_35_24 : ALL 2 TESTS SUCCESSFUL
-2017_04_26_19_54_31 : ALL 1 TESTS SUCCESSFUL
-2017_04_26_20_16_24 : ALL 124 TESTS SUCCESSFUL
-2017_05_02_21_19_15 : ALL 1 TESTS SUCCESSFUL
-2017_05_02_21_41_14 : ALL 124 TESTS SUCCESSFUL
-2017_05_03_04_47_52 : ALL 1 TESTS SUCCESSFUL
-2017_05_03_04_48_06 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_09_45_39 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_09_46_39 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_11_04_56 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_11_05_02 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_11_05_29 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_11_05_38 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_11_06_18 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_11_06_24 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_11_06_49 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_11_07_20 : ALL 2 TESTS SUCCESSFUL
-2017_05_23_11_07_35 : ALL 1 TESTS SUCCESSFUL
-2017_05_23_11_07_49 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_20_13 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_20_27 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_24_46 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_25_01 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_26_53 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_27_10 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_29_25 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_29_43 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_33_13 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_33_15 : ALL 2 TESTS SUCCESSFUL
-2017_05_30_00_33_43 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_00_33_46 : FAILED 1/2 TESTS:  inet4_inet6
-2017_05_30_09_27_11 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_27_24 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_30_20 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_30_24 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_40_55 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_40_59 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_45_07 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_45_11 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_47_03 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_47_07 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_48_01 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_48_05 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_49_10 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_49_15 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_49_55 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_49_59 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_51_37 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_51_41 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_52_31 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_52_35 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_54_18 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_54_22 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_55_12 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_55_16 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_56_04 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_56_08 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_57_03 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_57_07 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_09_59_46 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_09_59_50 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_00_40 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_00_44 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_01_24 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_01_28 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_01_48 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_01_52 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_02_43 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_02_47 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_03_24 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_03_28 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_03_55 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_03_59 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_04_48 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_04_52 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_05_31 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_05_36 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_06_44 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_06_49 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_05_30_10_08_07 : ALL 1 TESTS SUCCESSFUL
-2017_05_30_10_08_12 : FAILED 1/2 TESTS:  ll_regexmess_change_header
-2017_06_01_03_04_51 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_05_00 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_06_33 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_06_37 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_07_47 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_07_51 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_14_30 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_14_34 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_15_04 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_15_08 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_15_28 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_15_33 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_15_55 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_15_59 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_16_39 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_16_43 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_17_00 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_17_04 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_17_38 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_17_42 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_22_20 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_22_24 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_23_06 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_23_10 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_23_58 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_24_01 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_25_02 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_25_05 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_25_43 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_25_47 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_26_23 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_26_27 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_26_41 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_26_45 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_27_09 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_27_12 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_27_30 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_27_34 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_29_30 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_29_34 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_29_56 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_30_00 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_31_42 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_31_46 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_32_25 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_32_29 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_33_25 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_33_29 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_35_54 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_35_58 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_37_47 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_37_51 : ALL 2 TESTS SUCCESSFUL
-2017_06_01_03_42_15 : ALL 1 TESTS SUCCESSFUL
-2017_06_01_03_42_19 : ALL 2 TESTS SUCCESSFUL
-2017_06_02_00_49_51 : ALL 1 TESTS SUCCESSFUL
-2017_06_02_00_50_03 : ALL 2 TESTS SUCCESSFUL
-2017_06_02_00_50_32 : ALL 1 TESTS SUCCESSFUL
-2017_06_02_00_50_37 : ALL 2 TESTS SUCCESSFUL
-2017_06_08_11_31_37 : ALL 1 TESTS SUCCESSFUL
-2017_06_08_11_31_42 : ALL 2 TESTS SUCCESSFUL
-2017_06_08_11_34_47 : ALL 1 TESTS SUCCESSFUL
-2017_06_08_11_34_50 : ALL 2 TESTS SUCCESSFUL
-2017_06_08_11_36_11 : ALL 1 TESTS SUCCESSFUL
-2017_06_08_11_36_14 : FAILED 1/2 TESTS:  ll_ssl_justconnect_SSL_VERIFY_PEER
-2017_06_16_12_02_28 : ALL 1 TESTS SUCCESSFUL
-2017_06_16_12_03_28 : ALL 2 TESTS SUCCESSFUL
-2017_06_17_15_53_44 : ALL 1 TESTS SUCCESSFUL
-2017_06_17_15_54_04 : FAILED 1/2 TESTS:  yahoo_all
-2017_06_17_15_55_04 : ALL 1 TESTS SUCCESSFUL
-2017_06_17_15_56_04 : ALL 2 TESTS SUCCESSFUL
-2017_06_17_15_57_26 : ALL 1 TESTS SUCCESSFUL
-2017_06_17_15_57_55 : ALL 2 TESTS SUCCESSFUL
-2017_06_17_16_20_24 : ALL 1 TESTS SUCCESSFUL
-2017_06_17_16_21_07 : ALL 2 TESTS SUCCESSFUL
-2017_06_19_17_16_40 : ALL 1 TESTS SUCCESSFUL
-2017_06_19_17_17_19 : ALL 2 TESTS SUCCESSFUL
-2017_06_19_17_18_32 : ALL 1 TESTS SUCCESSFUL
-2017_06_19_17_18_44 : ALL 2 TESTS SUCCESSFUL
-2017_06_19_17_40_07 : ALL 1 TESTS SUCCESSFUL
-2017_06_19_17_40_16 : ALL 2 TESTS SUCCESSFUL
-2017_06_19_17_41_03 : ALL 1 TESTS SUCCESSFUL
-2017_06_19_17_41_11 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_05_24_46 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_05_54_01 : FAILED 1/124 TESTS:  office365_justconnect_inet4_inet6
-2017_07_06_13_12_23 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_13_15_17 : FAILED 1/2 TESTS:  office365_justconnect_inet4_inet6
-2017_07_06_14_03_55 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_04_17 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_04_39 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_30_01 : ALL 124 TESTS SUCCESSFUL
-2017_07_06_14_42_45 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_42_49 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_43_54 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_44_00 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_44_42 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_44_48 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_45_52 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_45_55 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_48_24 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_48_24 : FAILED 1/2 TESTS:  ks2ipv6.lamiral.info
-2017_07_06_14_48_41 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_48_47 : ALL 2 TESTS SUCCESSFUL
-2017_07_06_14_53_30 : ALL 1 TESTS SUCCESSFUL
-2017_07_06_14_53_48 : ALL 5 TESTS SUCCESSFUL
-2017_07_08_00_16_24 : ALL 1 TESTS SUCCESSFUL
-2017_07_08_00_39_03 : FAILED 5/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub testlive testlive6
-2017_07_08_00_44_01 : ALL 1 TESTS SUCCESSFUL
-2017_07_08_01_05_59 : FAILED 3/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2017_07_08_01_21_18 : ALL 1 TESTS SUCCESSFUL
-2017_07_08_01_43_17 : ALL 130 TESTS SUCCESSFUL
-2017_07_21_00_24_17 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_25_43 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_27_20 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_27_35 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_28_14 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_28_29 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_30_04 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_30_13 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_33_33 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_33_56 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_42_02 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_51_05 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_51_20 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_00_52_18 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_00_52_33 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_01_16_17 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_01_16_31 : ALL 2 TESTS SUCCESSFUL
-2017_07_21_01_16_56 : ALL 1 TESTS SUCCESSFUL
-2017_07_21_01_17_14 : ALL 2 TESTS SUCCESSFUL
-2017_07_22_16_42_03 : ALL 1 TESTS SUCCESSFUL
-2017_07_22_17_17_05 : FAILED 4/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub free_ssl
-2017_07_24_10_05_38 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_15_35_41 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_15_58_56 : FAILED 2/130 TESTS:  option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2017_07_27_17_32_53 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_17_33_03 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_07_27_17_34_48 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_17_34_58 : FAILED 1/2 TESTS:  option_tests_in_var_tmp
-2017_07_27_17_37_16 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_17_37_27 : ALL 2 TESTS SUCCESSFUL
-2017_07_27_17_38_18 : ALL 1 TESTS SUCCESSFUL
-2017_07_27_18_01_28 : ALL 130 TESTS SUCCESSFUL
-2017_08_27_00_19_42 : ALL 1 TESTS SUCCESSFUL
-2017_08_27_00_42_29 : ALL 130 TESTS SUCCESSFUL
-2017_08_28_21_23_19 : ALL 1 TESTS SUCCESSFUL
-2017_08_28_21_46_41 : FAILED 4/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub free_ssl
-2017_08_28_23_18_30 : ALL 1 TESTS SUCCESSFUL
-2017_08_28_23_30_05 : FAILED 64/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub ll_oneemail ll_nosubscribe ll_justfoldersizes ll_authmd5 ll_authmd51 ll_authmd52 ll_noauthmd5 ll_maxage ll_maxsize ll_skipsize ll_skipheader ll_include ll_exclude ll_exclude_INBOX ll_regextrans2 ll_regextrans2_subfolder ll_sep2 ll_skipmess ll_skipmess_8bits ll_pipemess ll_pipemess_catcat ll_justconnect ll_justconnect_ipv6 ll_justconnect_ipv6_nossl ks_justconnect_ipv6 ks_justconnect_ipv6_nossl ll_justlogin ll_justconnect_devel ll_ssl ll_ssl_justconnect ll_ssl_justlogin ll_tls_justconnect ll_tls_justlogin ll_tls ll_authmech_PLAIN ll_authmech_xoauth2_gmail ll_authmech_xoauth2_json_gmail ll_authmech_LOGIN ll_authmech_CRAMMD5 ll_authuser ll_delete2 ll_delete ll_folderrec ll_newmessage ll_usecache ll_usecache_noheader ll_usecache_debugcache ll_nousecache ll_delete2foldersonly_NEW_3 ll_delete2foldersonly ll_delete2foldersonly_tmp ll_delete2foldersbutnot ll_folder_create ll_folder_create_INBOX_Inbox ll_useuid ll_noheader_force ll_noheader ll_domino1_domino2 ll_domino2 testslive testslive6
-2017_08_29_00_26_13 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_00_41_34 : FAILED 43/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub gmail gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst yahoo_all free_ssl office365_justconnect_inet4_inet6 office365_justconnect_tls_SSL_verify_mode_1 ll_ask_password ll_env_password ll_timeout ll_folder ll_folder_noexist ll_folder_mixfolders ll_oneemail ll_buffersize ll_justfolders_delete1emptyfolders ll_prefix12 ll_nosyncinternaldates ll_idatefromheader ll_folder_rev ll_subscribed ll_nosubscribe ll_justfoldersizes ll_authmd5 ll_authmd51 ll_authmd52 ll_noauthmd5 ll_maxage ll_maxsize ll_skipsize ll_skipheader ll_include ll_exclude ll_exclude_INBOX ll_regextrans2 ll_regextrans2_subfolder ll_sep2 ll_skipmess ll_skipmess_8bits
-2017_08_29_01_08_37 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_02_53_01 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_02_54_46 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_03_17_18 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_03_22_56 : ALL 1 TESTS SUCCESSFUL
-2017_08_29_05_13_32 : ALL 1 TESTS SUCCESSFUL
-2017_08_31_04_12_32 : ALL 1 TESTS SUCCESSFUL
-2017_08_31_04_35_55 : ALL 130 TESTS SUCCESSFUL
-2017_08_31_06_14_44 : ALL 1 TESTS SUCCESSFUL
-2017_08_31_06_37_10 : ALL 130 TESTS SUCCESSFUL
-2017_09_03_06_12_35 : ALL 1 TESTS SUCCESSFUL
-2017_09_03_06_36_17 : ALL 130 TESTS SUCCESSFUL
-2017_09_03_15_17_33 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_10_31_24 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_10_31_39 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_10_33_57 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_10_34_07 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_10_35_54 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_10_36_05 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_19_50 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_20_02 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_21_07 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_21_17 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_22_19 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_22_29 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_38_16 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_38_31 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_39_19 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_39_32 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_11_40_49 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_11_41_33 : ALL 2 TESTS SUCCESSFUL
-2017_09_05_17_18_12 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_17_44_28 : ALL 130 TESTS SUCCESSFUL
-2017_09_05_18_16_27 : ALL 1 TESTS SUCCESSFUL
-2017_09_05_18_47_25 : ALL 130 TESTS SUCCESSFUL
-2017_09_22_11_53_31 : ALL 1 TESTS SUCCESSFUL
-2017_09_22_12_17_24 : FAILED 3/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2017_10_01_04_46_56 : ALL 1 TESTS SUCCESSFUL
-2017_10_01_04_48_18 : ALL 2 TESTS SUCCESSFUL
-2017_10_01_17_03_45 : ALL 1 TESTS SUCCESSFUL
-2017_10_01_17_06_54 : ALL 1 TESTS SUCCESSFUL
-2017_10_01_17_07_05 : ALL 4 TESTS SUCCESSFUL
-2017_10_01_19_28_37 : ALL 1 TESTS SUCCESSFUL
-2017_10_01_19_52_29 : FAILED 3/130 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2017_10_02_14_22_42 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_14_47_40 : ALL 130 TESTS SUCCESSFUL
-2017_10_02_14_57_57 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_14_57_59 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_01_10 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_01_12 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_01_40 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_01_43 : FAILED 1/2 TESTS:  ll_abort_nopidfile
-2017_10_02_15_02_23 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_02_25 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_03_48 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_03_50 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_04_50 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_04_54 : ALL 3 TESTS SUCCESSFUL
-2017_10_02_15_05_36 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_05_46 : ALL 3 TESTS SUCCESSFUL
-2017_10_02_15_05_59 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_06_07 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_08_59 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_09_06 : FAILED 1/2 TESTS:  ll_abort
-2017_10_02_15_09_26 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_09_33 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_11_41 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_11_48 : FAILED 1/2 TESTS:  ll_abort
-2017_10_02_15_13_08 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_13_15 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_13_45 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_13_52 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_15_31_52 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_31_59 : FAILED 1/2 TESTS:  ll_abort
-2017_10_02_15_32_30 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_32_38 : FAILED 1/2 TESTS:  ll_abort
-2017_10_02_15_34_17 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_34_24 : FAILED 1/2 TESTS:  ll_abort
-2017_10_02_15_34_44 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_15_34_51 : ALL 2 TESTS SUCCESSFUL
-2017_10_02_22_35_25 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_22_36_16 : ALL 1 TESTS SUCCESSFUL
-2017_10_02_23_00_14 : ALL 133 TESTS SUCCESSFUL
-2017_10_04_18_54_47 : ALL 1 TESTS SUCCESSFUL
-2017_10_04_18_54_55 : ALL 2 TESTS SUCCESSFUL
-2017_10_04_19_48_40 : ALL 1 TESTS SUCCESSFUL
-2017_10_04_19_48_50 : FAILED 1/2 TESTS:  ll_pidfilelocking
-2017_10_04_19_49_38 : ALL 1 TESTS SUCCESSFUL
-2017_10_04_19_49_48 : ALL 2 TESTS SUCCESSFUL
-2017_10_27_14_29_00 : ALL 1 TESTS SUCCESSFUL
-2017_10_27_14_29_03 : ALL 2 TESTS SUCCESSFUL
-2017_10_27_14_29_20 : ALL 1 TESTS SUCCESSFUL
-2017_10_27_14_29_24 : ALL 2 TESTS SUCCESSFUL
-2017_10_27_14_31_50 : ALL 1 TESTS SUCCESSFUL
-2017_10_27_14_31_52 : FAILED 1/2 TESTS:  option_extra_arguments
-2017_10_27_14_32_11 : ALL 1 TESTS SUCCESSFUL
-2017_10_27_14_32_21 : FAILED 1/2 TESTS:  option_extra_arguments
-2017_10_27_14_33_57 : ALL 1 TESTS SUCCESSFUL
-2017_10_27_14_33_59 : ALL 2 TESTS SUCCESSFUL
-2017_10_28_01_28_38 : ALL 1 TESTS SUCCESSFUL
-2017_10_28_01_28_46 : ALL 2 TESTS SUCCESSFUL
-2017_10_28_01_30_23 : ALL 1 TESTS SUCCESSFUL
-2017_10_28_01_30_28 : ALL 2 TESTS SUCCESSFUL
-2017_10_28_01_31_07 : ALL 1 TESTS SUCCESSFUL
-2017_10_28_01_31_12 : ALL 2 TESTS SUCCESSFUL
-2017_10_28_01_31_48 : ALL 1 TESTS SUCCESSFUL
-2017_10_28_01_31_52 : ALL 2 TESTS SUCCESSFUL
-2017_10_28_23_25_09 : FAILED 1/1 TESTS:  perl_syntax
-2017_10_30_20_46_46 : ALL 1 TESTS SUCCESSFUL
-2017_10_30_20_46_48 : ALL 2 TESTS SUCCESSFUL
-2017_10_30_20_47_38 : ALL 1 TESTS SUCCESSFUL
-2017_10_30_20_47_40 : ALL 2 TESTS SUCCESSFUL
-2017_10_31_01_15_19 : ALL 1 TESTS SUCCESSFUL
-2017_10_31_01_34_44 : FAILED 6/134 TESTS:  yahoo_all ll_regextrans2_subfolder ll_delete2foldersonly ll_delete2foldersonly_tmp ll_domino1_domino2 ll_domino2
-2017_10_31_13_44_16 : FAILED 1/1 TESTS:  perl_syntax
-2017_10_31_13_45_04 : ALL 1 TESTS SUCCESSFUL
-2017_10_31_13_45_06 : FAILED 1/2 TESTS:  ll_checkselectable
-2017_10_31_13_45_43 : ALL 1 TESTS SUCCESSFUL
-2017_10_31_13_45_54 : ALL 2 TESTS SUCCESSFUL
-2017_10_31_13_50_56 : ALL 1 TESTS SUCCESSFUL
-2017_10_31_13_51_01 : ALL 2 TESTS SUCCESSFUL
-2017_10_31_13_58_49 : ALL 1 TESTS SUCCESSFUL
-2017_10_31_13_58_54 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_00_13 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_00_28 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_04_41 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_04_45 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_05_04 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_05_09 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_06_04 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_06_09 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_09_22 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_09_25 : FAILED 1/2 TESTS:  ll_checkfoldersexist
-2017_11_05_09_11_30 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_14_50 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_14_57 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_16_41 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_16_47 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_17_10 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_17_16 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_18_10 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_18_16 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_18_51 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_21_50 : FAILED 1/2 TESTS:  ll_checkfoldersexist
-2017_11_05_09_21_57 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_22_03 : FAILED 1/2 TESTS:  ll_checkfoldersexist
-2017_11_05_09_22_17 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_22_23 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_09_30_18 : FAILED 7/138 TESTS:  gmail_gmail_folderfirst yahoo_all ll_regextrans2_subfolder ll_delete2foldersonly ll_delete2foldersonly_tmp ll_domino1_domino2 ll_domino2
-2017_11_05_09_35_15 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_09_58_39 : FAILED 5/138 TESTS:  ll_regextrans2_subfolder ll_delete2foldersonly ll_delete2foldersonly_tmp ll_domino1_domino2 ll_domino2
-2017_11_05_12_12_25 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_12_45 : FAILED 5/6 TESTS:  ll_regextrans2_subfolder ll_delete2foldersonly ll_delete2foldersonly_tmp ll_domino1_domino2 ll_domino2
-2017_11_05_12_14_03 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_14_07 : FAILED 1/2 TESTS:  ll_regextrans2_subfolder
-2017_11_05_12_16_04 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_16_09 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_12_19_06 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_19_10 : FAILED 1/2 TESTS:  ll_regextrans2_subfolder_02
-2017_11_05_12_23_17 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_23_53 : FAILED 2/6 TESTS:  ll_domino1_domino2 ll_domino2
-2017_11_05_12_28_35 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_28_40 : FAILED 1/2 TESTS:  ll_subfolder2
-2017_11_05_12_29_51 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_30_14 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_30_29 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_12_31_01 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_31_37 : ALL 6 TESTS SUCCESSFUL
-2017_11_05_12_34_19 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_12_59_14 : FAILED 1/140 TESTS:  yahoo_all
-2017_11_05_13_03_46 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_04_01 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_05_02 : FAILED 1/2 TESTS:  yahoo_all
-2017_11_05_13_28_10 : FAILED 1/140 TESTS:  yahoo_all
-2017_11_05_13_55_17 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_56_10 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_56_29 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_13_56_45 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_13_56_57 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_57_47 : FAILED 1/2 TESTS:  yahoo_all
-2017_11_05_13_57_52 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_13_58_34 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_11_05_23_08_05 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_08_57 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_11_05_23_14_21 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_15_10 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_11_05_23_17_13 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_18_05 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_11_05_23_19_14 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_20_02 : FAILED 1/2 TESTS:  yahoo_xxxx
-2017_11_05_23_21_43 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_22_03 : ALL 2 TESTS SUCCESSFUL
-2017_11_05_23_25_00 : ALL 1 TESTS SUCCESSFUL
-2017_11_05_23_50_15 : ALL 140 TESTS SUCCESSFUL
-2017_11_07_01_37_46 : ALL 1 TESTS SUCCESSFUL
-2017_11_07_01_38_16 : FAILED 1/2 TESTS:  yahoo_fail
-2017_11_07_01_39_12 : ALL 1 TESTS SUCCESSFUL
-2017_11_07_01_39_12 : FAILED 1/2 TESTS:  yahoo_fail
-2017_11_07_01_39_37 : ALL 1 TESTS SUCCESSFUL
-2017_11_07_01_40_02 : ALL 2 TESTS SUCCESSFUL
-2017_11_16_13_04_48 : ALL 1 TESTS SUCCESSFUL
-2017_11_16_13_05_28 : ALL 2 TESTS SUCCESSFUL
-2017_11_16_13_11_13 : ALL 1 TESTS SUCCESSFUL
-2017_11_16_13_11_18 : ALL 2 TESTS SUCCESSFUL
-2017_11_16_13_12_47 : ALL 1 TESTS SUCCESSFUL
-2017_11_16_13_12_52 : ALL 2 TESTS SUCCESSFUL
-2017_11_16_13_13_30 : ALL 1 TESTS SUCCESSFUL
-2017_11_16_13_13_34 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_20_41_23 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_41_37 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_20_41_54 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_41_59 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_20_42_35 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_42_40 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_20_44_47 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_44_49 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_20_47_08 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_47_11 : FAILED 1/2 TESTS:  ll_resyncflags
-2017_11_28_20_50_15 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_20_50_19 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_23_39_49 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_23_39_54 : ALL 2 TESTS SUCCESSFUL
-2017_11_28_23_42_31 : ALL 1 TESTS SUCCESSFUL
-2017_11_28_23_42_36 : FAILED 1/2 TESTS:  ll_noresyncflags
-2017_11_29_00_24_18 : ALL 1 TESTS SUCCESSFUL
-2017_11_29_00_24_23 : FAILED 1/2 TESTS:  ll_noresyncflags
-2017_11_29_00_25_42 : ALL 1 TESTS SUCCESSFUL
-2017_11_29_00_25_46 : ALL 2 TESTS SUCCESSFUL
-2017_11_29_13_48_32 : ALL 1 TESTS SUCCESSFUL
-2017_11_29_13_48_51 : ALL 2 TESTS SUCCESSFUL
-2017_11_29_21_05_04 : ALL 1 TESTS SUCCESSFUL
-2017_11_29_21_06_01 : ALL 2 TESTS SUCCESSFUL
-2017_11_30_02_56_44 : ALL 1 TESTS SUCCESSFUL
-2017_11_30_02_57_12 : ALL 2 TESTS SUCCESSFUL
-2017_11_30_03_01_53 : ALL 1 TESTS SUCCESSFUL
-2017_11_30_03_14_19 : ALL 1 TESTS SUCCESSFUL
-2017_11_30_03_14_53 : ALL 2 TESTS SUCCESSFUL
-2017_11_30_03_17_15 : ALL 1 TESTS SUCCESSFUL
-2017_11_30_03_40_59 : FAILED 6/143 TESTS:  xxxxx_gmail gmail_xxxxx gmail gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst
-2017_11_30_03_53_33 : FAILED 7/143 TESTS:  xxxxx_gmail gmail_xxxxx gmail gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst free_ssl
-2017_11_30_12_38_46 : ALL 1 TESTS SUCCESSFUL
-2017_11_30_12_39_16 : FAILED 6/8 TESTS:  xxxxx_gmail gmail_xxxxx gmail gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst
-2017_12_01_04_57_24 : ALL 1 TESTS SUCCESSFUL
-2017_12_01_04_59_49 : ALL 8 TESTS SUCCESSFUL
-2017_12_01_05_00_47 : ALL 1 TESTS SUCCESSFUL
-2017_12_01_05_28_42 : ALL 143 TESTS SUCCESSFUL
-2017_12_12_12_10_35 : ALL 1 TESTS SUCCESSFUL
-2017_12_12_12_12_26 : ALL 2 TESTS SUCCESSFUL
-2017_12_12_13_02_28 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_05_45 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_05_48 : FAILED 1/2 TESTS:  option_release_check
-2017_12_17_11_06_21 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_06_24 : FAILED 1/2 TESTS:  option_release_check
-2017_12_17_11_09_38 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_09_38 : FAILED 1/2 TESTS:  option_noreleascheck
-2017_12_17_11_09_46 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_09_46 : FAILED 1/2 TESTS:  option_noreleascheck
-2017_12_17_11_11_13 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_11_13 : FAILED 1/2 TESTS:  option_noreleascheck
-2017_12_17_11_11_43 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_11_46 : FAILED 1/2 TESTS:  option_noreleasecheck
-2017_12_17_11_23_36 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_23_39 : ALL 2 TESTS SUCCESSFUL
-2017_12_17_11_24_57 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_11_25_00 : FAILED 1/2 TESTS:  option_releasecheck
-2017_12_17_12_59_11 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_12_59_14 : ALL 2 TESTS SUCCESSFUL
-2017_12_17_12_59_25 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_12_59_28 : ALL 2 TESTS SUCCESSFUL
-2017_12_17_14_14_37 : ALL 1 TESTS SUCCESSFUL
-2017_12_17_14_44_05 : FAILED 1/145 TESTS:  yahoo_all
-2017_12_18_23_51_26 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_00_12_10 : FAILED 41/145 TESTS:  yahoo_all free_ssl office365_justconnect_inet4_inet6 office365_justconnect_tls_SSL_verify_mode_1 ll_ask_password ll_env_password ll_timeout ll_folder ll_folder_noexist ll_folder_mixfolders ll_nocheckselectable ll_checkselectable ll_nocheckfoldersexist ll_checkfoldersexist ll_subfolder2 ll_oneemail ll_buffersize ll_justfolders_delete1emptyfolders ll_prefix12 ll_nosyncinternaldates ll_idatefromheader ll_folder_rev ll_subscribed ll_nosubscribe ll_justfoldersizes ll_authmd5 ll_authmd51 ll_authmd52 ll_noauthmd5 ll_maxage ll_maxsize ll_skipsize ll_skipheader ll_include ll_exclude ll_exclude_INBOX ll_regextrans2 ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_sep2 ll_abort
-2017_12_19_00_14_35 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_00_15_19 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_00_15_27 : ALL 2 TESTS SUCCESSFUL
-2017_12_19_00_46_05 : FAILED 1/145 TESTS:  yahoo_all
-2017_12_19_00_54_59 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_00_55_16 : ALL 2 TESTS SUCCESSFUL
-2017_12_19_00_58_25 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_00_58_30 : ALL 2 TESTS SUCCESSFUL
-2017_12_19_01_04_18 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_01_04_23 : ALL 2 TESTS SUCCESSFUL
-2017_12_19_01_08_44 : ALL 1 TESTS SUCCESSFUL
-2017_12_19_01_08_49 : ALL 2 TESTS SUCCESSFUL
-2017_12_20_05_14_31 : ALL 1 TESTS SUCCESSFUL
-2017_12_20_05_14_51 : ALL 2 TESTS SUCCESSFUL
-2017_12_20_05_16_12 : ALL 1 TESTS SUCCESSFUL
-2017_12_20_05_16_17 : ALL 2 TESTS SUCCESSFUL
-2017_12_20_05_17_10 : ALL 1 TESTS SUCCESSFUL
-2017_12_20_05_17_17 : ALL 2 TESTS SUCCESSFUL
-2017_12_20_05_20_36 : ALL 1 TESTS SUCCESSFUL
-2017_12_20_05_20_47 : ALL 2 TESTS SUCCESSFUL
-2017_12_20_05_21_09 : ALL 1 TESTS SUCCESSFUL
-2017_12_20_05_21_14 : ALL 2 TESTS SUCCESSFUL
-2018_01_09_18_27_12 : ALL 1 TESTS SUCCESSFUL
-2018_01_09_18_37_47 : ALL 1 TESTS SUCCESSFUL
-2018_01_09_18_38_48 : ALL 1 TESTS SUCCESSFUL
-2018_01_10_14_57_33 : ALL 1 TESTS SUCCESSFUL
-2018_01_10_18_16_46 : ALL 2 TESTS SUCCESSFUL
-2018_01_10_23_06_38 : ALL 1 TESTS SUCCESSFUL
-2018_01_10_23_22_19 : ALL 2 TESTS SUCCESSFUL
-2018_01_11_00_38_13 : ALL 1 TESTS SUCCESSFUL
-2018_01_11_01_06_36 : ALL 2 TESTS SUCCESSFUL
-2018_02_07_22_57_34 : ALL 1 TESTS SUCCESSFUL
-2018_02_07_23_29_27 : FAILED 1/145 TESTS:  yahoo_all
-2018_02_10_21_07_12 : ALL 1 TESTS SUCCESSFUL
-2018_02_10_21_37_11 : FAILED 1/145 TESTS:  yahoo_all
-2018_02_11_19_47_24 : ALL 1 TESTS SUCCESSFUL
-2018_02_11_20_17_19 : FAILED 1/145 TESTS:  yahoo_all
-2018_02_12_21_31_26 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_31_31 : FAILED 1/2 TESTS:  ll_ssl_justlogin_SSL_version
-2018_02_12_21_34_16 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_34_19 : FAILED 1/2 TESTS:  ll_ssl_justlogin_SSL_version
-2018_02_12_21_37_26 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_37_29 : FAILED 1/2 TESTS:  ll_ssl_justlogin_SSL_version
-2018_02_12_21_37_50 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_37_53 : ALL 2 TESTS SUCCESSFUL
-2018_02_12_21_41_39 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_41_42 : FAILED 1/2 TESTS:  ll_ssl_justconnect_sslargs
-2018_02_12_21_42_15 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_42_19 : FAILED 1/2 TESTS:  ll_ssl_justconnect_sslargs
-2018_02_12_21_43_46 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_21_43_49 : ALL 2 TESTS SUCCESSFUL
-2018_02_12_22_57_01 : ALL 1 TESTS SUCCESSFUL
-2018_02_12_23_29_07 : FAILED 1/146 TESTS:  yahoo_all
-2018_02_19_14_45_57 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_14_45_59 : ALL 2 TESTS SUCCESSFUL
-2018_02_19_14_46_21 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_14_46_24 : ALL 2 TESTS SUCCESSFUL
-2018_02_19_14_46_40 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_14_46_46 : ALL 2 TESTS SUCCESSFUL
-2018_02_19_15_32_22 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_15_32_33 : ALL 4 TESTS SUCCESSFUL
-2018_02_19_15_35_51 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_15_35_57 : ALL 2 TESTS SUCCESSFUL
-2018_02_19_15_38_55 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_15_39_01 : ALL 2 TESTS SUCCESSFUL
-2018_02_19_15_39_57 : ALL 1 TESTS SUCCESSFUL
-2018_02_19_15_40_08 : ALL 4 TESTS SUCCESSFUL
-2018_02_20_12_00_04 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_00_09 : ALL 3 TESTS SUCCESSFUL
-2018_02_20_12_00_21 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_00_24 : ALL 2 TESTS SUCCESSFUL
-2018_02_20_12_00_51 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_00_58 : ALL 2 TESTS SUCCESSFUL
-2018_02_20_12_03_02 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_03_09 : ALL 2 TESTS SUCCESSFUL
-2018_02_20_12_03_32 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_03_38 : ALL 2 TESTS SUCCESSFUL
-2018_02_20_12_16_40 : ALL 1 TESTS SUCCESSFUL
-2018_02_20_12_16_45 : ALL 2 TESTS SUCCESSFUL
-2018_02_21_05_11_51 : ALL 1 TESTS SUCCESSFUL
-2018_02_21_05_11_56 : ALL 3 TESTS SUCCESSFUL
-2018_02_21_05_12_40 : ALL 1 TESTS SUCCESSFUL
-2018_02_21_05_12_45 : ALL 3 TESTS SUCCESSFUL
-2018_02_21_05_13_42 : ALL 1 TESTS SUCCESSFUL
-2018_02_21_05_13_53 : ALL 4 TESTS SUCCESSFUL
-2018_03_05_02_39_51 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_40_14 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_02_42_14 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_42_27 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_02_42_34 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_42_44 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_02_43_22 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_43_56 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_02_45_34 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_45_43 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_02_46_15 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_02_46_22 : FAILED 1/2 TESTS:  ll_simulong
-2018_03_05_03_30_09 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_03_30_52 : ALL 2 TESTS SUCCESSFUL
-2018_03_05_03_32_47 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_03_33_31 : ALL 2 TESTS SUCCESSFUL
-2018_03_05_03_34_24 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_03_34_33 : FAILED 1/2 TESTS:  kk_simulong
-2018_03_05_03_44_40 : ALL 1 TESTS SUCCESSFUL
-2018_03_05_03_45_22 : ALL 2 TESTS SUCCESSFUL
-2018_03_12_02_13_48 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_13_51 : FAILED 1/2 TESTS:  kk_simulong
-2018_03_12_02_15_44 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_22_06 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_23_08 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_29_51 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_30_28 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_30_48 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_32_18 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_32_18 : FAILED 1/2 TESTS:  ll_sigreconnect
-2018_03_12_02_32_30 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_32_59 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_33_28 : FAILED 1/2 TESTS:  ll_sigreconnect_CACA
-2018_03_12_02_49_52 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_02_51_39 : ALL 2 TESTS SUCCESSFUL
-2018_03_12_03_14_31 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_03_15_40 : ALL 2 TESTS SUCCESSFUL
-2018_03_12_03_17_25 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_03_18_30 : ALL 2 TESTS SUCCESSFUL
-2018_03_12_03_22_17 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_03_22_24 : FAILED 1/2 TESTS:  ll_sigignore_TERM
-2018_03_12_03_22_33 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_03_23_33 : ALL 2 TESTS SUCCESSFUL
-2018_03_12_18_53_28 : ALL 1 TESTS SUCCESSFUL
-2018_03_12_19_30_21 : FAILED 1/146 TESTS:  yahoo_all
-2018_03_19_14_49_50 : ALL 1 TESTS SUCCESSFUL
-2018_03_19_14_50_04 : ALL 2 TESTS SUCCESSFUL
-2018_03_19_14_50_48 : ALL 1 TESTS SUCCESSFUL
-2018_03_19_14_50_53 : ALL 2 TESTS SUCCESSFUL
-2018_03_19_14_52_23 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_19_14_55_07 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_19_14_57_29 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_19_14_58_05 : ALL 1 TESTS SUCCESSFUL
-2018_03_19_14_58_10 : ALL 2 TESTS SUCCESSFUL
-2018_03_19_15_01_15 : ALL 1 TESTS SUCCESSFUL
-2018_03_19_15_01_19 : ALL 2 TESTS SUCCESSFUL
-2018_03_20_02_17_23 : ALL 1 TESTS SUCCESSFUL
-2018_03_20_02_17_30 : ALL 2 TESTS SUCCESSFUL
-2018_03_20_02_19_24 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_20_02_20_30 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_20_02_20_53 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_20_02_21_25 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_20_02_23_10 : FAILED 1/1 TESTS:  perl_syntax
-2018_03_20_02_24_27 : ALL 1 TESTS SUCCESSFUL
-2018_03_20_02_24_31 : FAILED 1/2 TESTS:  ll_folder
-2018_03_20_02_25_06 : ALL 1 TESTS SUCCESSFUL
-2018_03_20_02_25_11 : ALL 2 TESTS SUCCESSFUL
-2018_03_21_08_42_02 : ALL 1 TESTS SUCCESSFUL
-2018_03_21_08_59_47 : FAILED 35/146 TESTS:  first_sync_dry first_sync ll gmail_xxxxx gmail gmail_gmail gmail_gmail_folderfirst yahoo_all ll_folder_mixfolders ll_nocheckselectable ll_checkselectable ll_nocheckfoldersexist ll_checkfoldersexist ll_subfolder2 ll_buffersize ll_subscribed ll_nosubscribe ll_justfoldersizes ll_include ll_exclude ll_exclude_INBOX ll_regextrans2_subfolder_02 ll_ssl ll_tls ll_authmech_PLAIN ll_authmech_LOGIN ll_authmech_CRAMMD5 ll_authuser ll_folderrec ll_delete2foldersonly_NEW_3 ll_delete2foldersonly ll_delete2foldersonly_tmp ll_delete2foldersbutnot testslive testslive6
-2018_03_21_17_10_43 : ALL 1 TESTS SUCCESSFUL
-2018_03_21_17_29_05 : FAILED 36/146 TESTS:  first_sync_dry first_sync ll gmail_xxxxx gmail gmail_gmail gmail_gmail_folderfirst yahoo_all free_ssl ll_folder_mixfolders ll_nocheckselectable ll_checkselectable ll_nocheckfoldersexist ll_checkfoldersexist ll_subfolder2 ll_buffersize ll_subscribed ll_nosubscribe ll_justfoldersizes ll_include ll_exclude ll_exclude_INBOX ll_regextrans2_subfolder_02 ll_ssl ll_tls ll_authmech_PLAIN ll_authmech_LOGIN ll_authmech_CRAMMD5 ll_authuser ll_folderrec ll_delete2foldersonly_NEW_3 ll_delete2foldersonly ll_delete2foldersonly_tmp ll_delete2foldersbutnot testslive testslive6
-2018_03_22_13_50_14 : ALL 1 TESTS SUCCESSFUL
-2018_03_22_13_50_18 : FAILED 1/2 TESTS:  testslive
-2018_03_22_13_54_42 : ALL 1 TESTS SUCCESSFUL
-2018_03_22_13_54_55 : ALL 2 TESTS SUCCESSFUL
-2018_03_22_13_57_04 : ALL 1 TESTS SUCCESSFUL
-2018_03_22_13_57_17 : ALL 2 TESTS SUCCESSFUL
-2018_03_27_04_50_19 : ALL 1 TESTS SUCCESSFUL
-2018_03_27_04_51_05 : ALL 2 TESTS SUCCESSFUL
-2018_03_27_04_54_38 : ALL 1 TESTS SUCCESSFUL
-2018_03_27_04_54_48 : ALL 2 TESTS SUCCESSFUL
-2018_03_27_04_57_15 : ALL 1 TESTS SUCCESSFUL
-2018_03_27_04_57_25 : ALL 2 TESTS SUCCESSFUL
-2018_03_27_04_58_38 : ALL 1 TESTS SUCCESSFUL
-2018_03_27_04_58_48 : ALL 2 TESTS SUCCESSFUL
-2018_03_27_05_02_02 : ALL 1 TESTS SUCCESSFUL
-2018_03_27_05_02_11 : ALL 2 TESTS SUCCESSFUL
-2018_03_28_18_42_25 : ALL 1 TESTS SUCCESSFUL
-2018_03_28_18_42_31 : ALL 2 TESTS SUCCESSFUL
-2018_03_28_18_48_03 : ALL 1 TESTS SUCCESSFUL
-2018_03_28_18_48_09 : ALL 2 TESTS SUCCESSFUL
-2018_03_28_18_51_23 : ALL 1 TESTS SUCCESSFUL
-2018_03_28_18_51_29 : ALL 2 TESTS SUCCESSFUL
-2018_03_29_06_49_03 : ALL 1 TESTS SUCCESSFUL
-2018_03_29_06_49_09 : ALL 2 TESTS SUCCESSFUL
-2018_04_10_03_39_05 : ALL 1 TESTS SUCCESSFUL
-2018_04_10_04_09_43 : FAILED 4/146 TESTS:  yahoo_all ll_subscribed ll_nosubscribe ll_folderrec
-2018_04_15_17_33_03 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_33_09 : FAILED 1/2 TESTS:  ll_ssl_justconnect_sslargs_SSL_versionTLSv1_1
-2018_04_15_17_33_48 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_33_52 : ALL 2 TESTS SUCCESSFUL
-2018_04_15_17_34_14 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_34_18 : FAILED 2/4 TESTS:  --debugssl 4
-2018_04_15_17_34_46 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_34_49 : ALL 2 TESTS SUCCESSFUL
-2018_04_15_17_35_25 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_35_29 : FAILED 1/2 TESTS:  ll_ssl_justconnect_sslargs_SSL_versionTLSv1_1
-2018_04_15_17_36_13 : ALL 1 TESTS SUCCESSFUL
-2018_04_15_17_36_17 : ALL 2 TESTS SUCCESSFUL
-2018_04_16_04_06_58 : ALL 1 TESTS SUCCESSFUL
-2018_04_16_06_28_54 : FAILED 4/146 TESTS:  yahoo_all ll_subscribed ll_nosubscribe ll_folderrec
-2018_04_18_04_39_35 : ALL 1 TESTS SUCCESSFUL
-2018_04_18_04_39_43 : FAILED 1/2 TESTS:  ll_subscribed
-2018_04_18_04_41_40 : ALL 1 TESTS SUCCESSFUL
-2018_04_18_04_42_10 : ALL 1 TESTS SUCCESSFUL
-2018_04_18_04_42_16 : FAILED 1/2 TESTS:  ll_subscribed
-2018_04_18_04_45_35 : ALL 1 TESTS SUCCESSFUL
-2018_04_18_18_07_34 : ALL 1 TESTS SUCCESSFUL
-2018_04_18_18_39_48 : FAILED 1/146 TESTS:  yahoo_all
-2018_04_19_02_58_25 : ALL 1 TESTS SUCCESSFUL
-2018_04_19_03_29_04 : FAILED 1/146 TESTS:  yahoo_all
-2018_04_20_15_03_28 : ALL 1 TESTS SUCCESSFUL
-2018_04_20_15_32_23 : FAILED 1/146 TESTS:  yahoo_all
-2018_05_05_15_25_10 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_15_53_23 : FAILED 2/146 TESTS:  yahoo_all free_ssl
-2018_05_05_19_35_30 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_19_36_47 : FAILED 1/3 TESTS:  yahoo_all
-2018_05_05_22_43_19 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_22_44_06 : FAILED 1/2 TESTS:  yahoo_all
-2018_05_05_23_00_57 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_23_01_39 : FAILED 1/2 TESTS:  yahoo_all
-2018_05_05_23_03_17 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_23_03_27 : FAILED 1/2 TESTS:  yahoo_fail_UNAVAILABLE
-2018_05_05_23_09_36 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_23_09_47 : ALL 2 TESTS SUCCESSFUL
-2018_05_05_23_09_56 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_23_10_46 : ALL 2 TESTS SUCCESSFUL
-2018_05_05_23_24_40 : ALL 1 TESTS SUCCESSFUL
-2018_05_05_23_52_05 : ALL 146 TESTS SUCCESSFUL
-2018_05_06_00_52_34 : ALL 1 TESTS SUCCESSFUL
-2018_05_06_01_19_31 : ALL 146 TESTS SUCCESSFUL
-2018_05_30_05_20_20 : ALL 1 TESTS SUCCESSFUL
-2018_05_30_05_21_53 : ALL 2 TESTS SUCCESSFUL
-2018_06_19_13_52_26 : ALL 1 TESTS SUCCESSFUL
-2018_06_19_13_53_23 : ALL 2 TESTS SUCCESSFUL
-2018_06_19_13_53_30 : ALL 1 TESTS SUCCESSFUL
-2018_06_19_13_53_54 : ALL 2 TESTS SUCCESSFUL
-2018_06_22_19_26_51 : ALL 1 TESTS SUCCESSFUL
-2018_06_22_19_26_52 : ALL 2 TESTS SUCCESSFUL
-2018_06_22_19_27_59 : ALL 1 TESTS SUCCESSFUL
-2018_06_22_19_27_59 : FAILED 1/2 TESTS:  dprof_bigmail
-2018_06_23_01_42_56 : ALL 1 TESTS SUCCESSFUL
-2018_06_23_01_43_15 : ALL 2 TESTS SUCCESSFUL
-2018_06_23_01_43_40 : ALL 1 TESTS SUCCESSFUL
-2018_06_23_01_44_02 : ALL 2 TESTS SUCCESSFUL
-2018_06_24_23_40_04 : ALL 1 TESTS SUCCESSFUL
-2018_06_24_23_40_31 : ALL 2 TESTS SUCCESSFUL
-2018_06_24_23_55_15 : ALL 1 TESTS SUCCESSFUL
-2018_06_25_00_10_42 : ALL 2 TESTS SUCCESSFUL
-2018_06_26_03_17_40 : ALL 1 TESTS SUCCESSFUL
-2018_06_26_03_29_35 : ALL 1 TESTS SUCCESSFUL
-2018_06_26_03_34_54 : ALL 2 TESTS SUCCESSFUL
-2018_06_26_03_40_31 : ALL 2 TESTS SUCCESSFUL
-2018_08_06_00_36_25 : ALL 1 TESTS SUCCESSFUL
-2018_08_06_01_05_47 : FAILED 3/146 TESTS:  gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst
-2018_08_06_01_15_32 : ALL 1 TESTS SUCCESSFUL
-2018_08_06_01_15_54 : FAILED 3/4 TESTS:  gmail_gmail gmail_gmail_INBOX gmail_gmail_folderfirst
-2018_08_06_01_18_16 : ALL 1 TESTS SUCCESSFUL
-2018_08_06_01_19_00 : ALL 4 TESTS SUCCESSFUL
-2018_08_06_01_19_17 : ALL 1 TESTS SUCCESSFUL
-2018_08_06_01_50_47 : ALL 146 TESTS SUCCESSFUL
-2018_08_06_17_04_35 : ALL 1 TESTS SUCCESSFUL
-2018_08_06_17_33_57 : ALL 146 TESTS SUCCESSFUL
-2018_08_29_12_39_36 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_39_43 : FAILED 1/2 TESTS:  inet4_inet6
-2018_08_29_12_42_01 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_42_05 : ALL 2 TESTS SUCCESSFUL
-2018_08_29_12_42_55 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_43_17 : ALL 2 TESTS SUCCESSFUL
-2018_08_29_12_45_46 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_46_01 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_46_13 : ALL 2 TESTS SUCCESSFUL
-2018_08_29_12_47_21 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_47_33 : ALL 2 TESTS SUCCESSFUL
-2018_08_29_12_51_27 : ALL 1 TESTS SUCCESSFUL
-2018_08_29_12_51_38 : ALL 2 TESTS SUCCESSFUL
-2018_08_30_01_05_50 : ALL 1 TESTS SUCCESSFUL
-2018_08_30_01_06_54 : ALL 1 TESTS SUCCESSFUL
-2018_08_30_01_07_41 : ALL 2 TESTS SUCCESSFUL
-2018_08_30_01_08_21 : ALL 1 TESTS SUCCESSFUL
-2018_08_30_01_08_33 : ALL 2 TESTS SUCCESSFUL
-2018_08_30_01_09_21 : ALL 1 TESTS SUCCESSFUL
-2018_08_30_01_09_31 : ALL 2 TESTS SUCCESSFUL
-2018_08_30_01_12_11 : ALL 1 TESTS SUCCESSFUL
-2018_08_30_01_12_21 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_24_33 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_25_00 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_29_01 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_29_05 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_30_11 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_30_17 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_31_21 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_31_25 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_32_02 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_32_07 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_32_41 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_32_46 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_35_03 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_35_10 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_37_45 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_37_50 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_38_37 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_38_42 : ALL 2 TESTS SUCCESSFUL
-2018_08_31_02_39_17 : ALL 1 TESTS SUCCESSFUL
-2018_08_31_02_39_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_16_26_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_16_27_55 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_16_38_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_16_38_43 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_16_39_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_16_39_28 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_22_19_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_19_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_22_21_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_21_10 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_22_24_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_24_41 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_25_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_25_12 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_26_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_26_34 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_28_48 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_28_53 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_35_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_36_01 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_38_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_38_42 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_39_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_39_11 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_40_03 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_40_50 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_42_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_43_11 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_43_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_43_38 : ALL 2 TESTS SUCCESSFUL
-2018_09_01_22_43_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_44_30 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_45_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_46_21 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_22_57_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_57_46 : FAILED 1/2 TESTS:  can_send
-2018_09_01_22_58_16 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_22_58_16 : FAILED 1/2 TESTS:  can_send
-2018_09_01_23_00_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_23_01_13 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_23_21_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_23_22_07 : FAILED 1/2 TESTS:  ll_diff
-2018_09_01_23_43_41 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_01_23_44_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_01_23_44_59 : FAILED 1/2 TESTS:  ll_diff
-2018_09_02_05_31_43 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_06_01_25 : ALL 146 TESTS SUCCESSFUL
-2018_09_02_17_01_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_03_01 : FAILED 1/2 TESTS:  ll_diff
-2018_09_02_17_05_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_05_43 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_02_17_06_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_06_41 : ALL 2 TESTS SUCCESSFUL
-2018_09_02_17_06_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_06_58 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_02_17_08_16 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_08_19 : FAILED 1/2 TESTS:  gmail_gl_gl2_sslargs
-2018_09_02_17_09_03 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_09_08 : FAILED 1/2 TESTS:  gmail_gl_gl2
-2018_09_02_17_15_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_15_36 : FAILED 1/2 TESTS:  gmail_gl_gl2
-2018_09_02_17_23_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_23_31 : FAILED 1/2 TESTS:  gmail_gl_gl2
-2018_09_02_17_23_55 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_23_59 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_02_17_24_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_17_24_33 : FAILED 1/2 TESTS:  gmail_gl_gl2
-2018_09_02_19_38_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_38_18 : ALL 2 TESTS SUCCESSFUL
-2018_09_02_19_38_34 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_38_39 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_02_19_39_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_39_42 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_02_19_43_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_43_15 : ALL 2 TESTS SUCCESSFUL
-2018_09_02_19_46_58 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_47_13 : ALL 2 TESTS SUCCESSFUL
-2018_09_02_19_48_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_48_14 : ALL 2 TESTS SUCCESSFUL
-2018_09_02_19_50_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_02_19_50_28 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_03_07_28_04 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_28_06 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_03_07_33_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_33_40 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_35_51 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_36_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_40_49 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_40_56 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels
-2018_09_03_07_41_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_41_45 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_43_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_43_30 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_49_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_49_49 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_53_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_53_07 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_07_54_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_07_54_06 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_03_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_03_35 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_04_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_04_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_15_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_15_47 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_18_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_18_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_40_30 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_40_48 : ALL 2 TESTS SUCCESSFUL
-2018_09_03_08_44_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_03_08_44_45 : FAILED 1/2 TESTS:  gmail_gl_gl2
-2018_09_03_08_45_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_00_59_40 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_01_00_53 : FAILED 1/2 TESTS:  ll_diff
-2018_09_04_03_11_13 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_03_11_48 : FAILED 1/2 TESTS:  ll_diff
-2018_09_04_03_44_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_03_44_19 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_03_52_50 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_03_53_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_07_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_07_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_08_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_08_35 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_10_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_10_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_11_03 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_11_14 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_11_19 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_11_28 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_12_44 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_12_54 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_14_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_14_18 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_18_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_18_12 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_20_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_20_13 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_22_22 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_22_22 : FAILED 1/3 TESTS:  imapsync.gl1@gmail.com
-2018_09_04_04_24_21 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_24_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_27_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_27_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_28_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_28_34 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_30_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_31_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_31_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_31_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_31_58 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_32_08 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_34_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_34_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_34_59 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_35_09 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_35_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_35_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_36_20 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_36_20 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_36_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_36_40 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_37_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_37_46 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_38_18 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_38_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_38_33 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_38_34 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_39_14 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_39_24 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_39_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_39_38 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_04_40_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_04_40_25 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_26_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_26_12 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_34_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_34_34 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_37_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_37_11 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_39_58 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_49_35 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_49_49 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_51_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_51_11 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_51_52 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_52_05 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_54_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_54_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_54_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_54_57 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_55_33 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_55_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_56_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_56_26 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_58_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_58_43 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_05_58_48 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_05_59_07 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_06_00_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_06_01_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_06_01_55 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_06_03_14 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_06_03_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_06_03_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_06_04_04 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_06_05_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_07_05_08 : ALL 146 TESTS SUCCESSFUL
-2018_09_04_15_17_32 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_15_17_40 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_15_18_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_15_18_58 : FAILED 1/2 TESTS:  office365_justlogin_2
-2018_09_04_15_35_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_15_35_57 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_15_37_18 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_15_37_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_04_15_56_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_04_15_56_35 : ALL 2 TESTS SUCCESSFUL
-2018_09_09_16_32_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_09_17_06_33 : FAILED 1/146 TESTS:  free_ssl
-2018_09_09_19_08_19 : ALL 1 TESTS SUCCESSFUL
-2018_09_09_19_42_45 : FAILED 1/146 TESTS:  free_ssl
-2018_09_10_12_14_54 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_12_15_12 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_12_23_18 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_12_23_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_12_24_17 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_12_24_24 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_12_24_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_12_24_51 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_18_33_24 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_10_18_41_14 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_18_41_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_18_42_20 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_18_42_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_18_45_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_18_45_53 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_18_58_55 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_18_59_01 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_19_01_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_19_01_44 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_20_00_26 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_10_20_06_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_20_10_34 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_20_10_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_20_11_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_20_11_32 : FAILED 1/2 TESTS:  l_office365_noregexmess
-2018_09_10_22_25_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_25_20 : FAILED 1/2 TESTS:  l_exchange2_flagged_flag
-2018_09_10_22_27_46 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_32_49 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_36_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_36_42 : FAILED 1/2 TESTS:  l_exchange2_noregexmess_noregxflags
-2018_09_10_22_41_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_41_56 : FAILED 1/2 TESTS:  l_exchange2_noregexmess_noregxflags
-2018_09_10_22_42_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_42_13 : FAILED 1/2 TESTS:  l_exchange2_noregexmess_noregexflags
-2018_09_10_22_43_09 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_43_11 : FAILED 1/2 TESTS:  l_exchange2_noregexmess_noregexflags
-2018_09_10_22_43_20 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_43_20 : FAILED 1/2 TESTS:  l_exchange2_noregexmess_noregexflag
-2018_09_10_22_43_59 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_44_02 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_22_44_30 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_44_36 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_22_51_51 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_51_58 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_22_55_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_22_55_23 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_23_01_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_23_01_30 : ALL 2 TESTS SUCCESSFUL
-2018_09_10_23_02_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_10_23_02_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_01_49_17 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_01_49_25 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_01_52_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_01_52_53 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_01_53_32 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_01_53_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_01_54_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_01_54_13 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_18_17 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_18_23 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_19_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_19_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_21_16 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_21_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_21_51 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_21_57 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_23_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_23_08 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_23_22 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_23_28 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_02_28_43 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_29_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_02_58_54 : ALL 146 TESTS SUCCESSFUL
-2018_09_11_11_19_05 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_35_50 : FAILED 51/146 TESTS:  ll_justfolders_delete1emptyfolders ll_prefix12 ll_nosyncinternaldates ll_idatefromheader ll_folder_rev ll_subscribed ll_nosubscribe ll_justfoldersizes ll_maxage ll_maxsize ll_skipsize ll_skipheader ll_include ll_exclude ll_exclude_INBOX ll_regextrans2 ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_sep2 ll_skipmess ll_skipmess_8bits ll_pipemess ll_pipemess_catcat ll_resyncflags ll_ssl ll_tls ll_authmech_PLAIN ll_authmech_LOGIN ll_authmech_CRAMMD5 ll_authuser ll_delete2 ll_delete ll_folderrec ll_newmessage ll_usecache ll_usecache_noheader ll_usecache_debugcache ll_nousecache ll_delete2foldersonly_NEW_3 ll_delete2foldersonly ll_delete2foldersonly_tmp ll_delete2foldersbutnot ll_folder_create ll_folder_create_INBOX_Inbox ll_useuid ll_noheader_force ll_noheader ll_domino1_domino2 ll_domino2 testslive testslive6
-2018_09_11_11_45_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_46_39 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_47_22 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_47_54 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_47_59 : FAILED 1/2 TESTS:  ll
-2018_09_11_11_49_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_50_11 : FAILED 1/2 TESTS:  ll
-2018_09_11_11_51_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_52_12 : FAILED 1/2 TESTS:  ll
-2018_09_11_11_54_35 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_11_55_11 : FAILED 1/2 TESTS:  ll
-2018_09_11_12_02_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_03_21 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_03_56 : FAILED 1/2 TESTS:  ll
-2018_09_11_12_04_50 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_05_24 : FAILED 1/2 TESTS:  ll
-2018_09_11_12_06_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_07_00 : FAILED 1/2 TESTS:  ll_debug
-2018_09_11_12_11_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_11_50 : FAILED 1/2 TESTS:  ll_debug
-2018_09_11_12_12_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_12_10 : FAILED 1/2 TESTS:  ll
-2018_09_11_12_12_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_12_13_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_11_14_51_57 : ALL 1 TESTS SUCCESSFUL
-2018_09_11_15_23_11 : ALL 146 TESTS SUCCESSFUL
-2018_09_11_20_47_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_14_59_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_01_47 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_01_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_02_28 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_05_14 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_05_50 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_08_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_09_12 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_21_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_21_54 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_25_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_25_26 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_47_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_47_25 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_15_47_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_47_43 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_15_48_17 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_48_26 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_15_49_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_49_18 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_15_51_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_51_55 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_15_55_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_55_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_15_55_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_15_56_01 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_16_01_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_16_01_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_16_02_54 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_16_03_05 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_16_03_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_16_03_42 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_16_04_33 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_16_05_10 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_16_10_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_16_11_06 : FAILED 1/2 TESTS:  ll_diff
-2018_09_12_17_20_06 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_20_13 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_21_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_21_13 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_25_04 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_25_11 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_25_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_25_32 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_27_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_27_36 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_28_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_28_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_36_27 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_36_32 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_37_42 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_37_47 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_39_31 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_12_17_40_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_40_08 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_40_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_40_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_41_59 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_42_04 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_43_19 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_43_24 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_17_44_48 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_17_44_56 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_10_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_10_30 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_12_25 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_12_30 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_12_43 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_12_48 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_39_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_39_52 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_41_48 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_41_54 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_42_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_42_35 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_45_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_45_58 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_46_34 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_46_40 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_46_50 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_46_56 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_49_04 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_49_09 : ALL 2 TESTS SUCCESSFUL
-2018_09_12_23_49_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_12_23_49_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_00_36_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_00_36_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_00_36_53 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_00_36_58 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_00_57_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_00_57_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_00_59_09 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_00_59_14 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_00_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_00_31 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_01_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_01_20 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_01_51 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_01_56 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_04_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_04_52 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_05_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_05_20 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_17_30 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_13_01_17_55 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_18_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_18_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_18_16 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_26_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_26_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_27_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_27_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_28_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_28_05 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_28_21 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_28_26 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_01_29_49 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_29_53 : FAILED 1/2 TESTS:  ll_syncflagsaftercopy
-2018_09_13_01_30_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_01_30_15 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_11_35_30 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_11_35_41 : FAILED 1/2 TESTS:  ll_syncflagsaftercopy
-2018_09_13_11_36_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_11_36_06 : FAILED 1/2 TESTS:  ll_syncflagsaftercopy
-2018_09_13_11_37_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_11_37_05 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_11_37_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_11_37_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_13_11_42_57 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_11_43_58 : FAILED 1/2 TESTS:  ll_diff
-2018_09_13_12_04_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_13_12_33_19 : ALL 146 TESTS SUCCESSFUL
-2018_09_19_02_26_30 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_26_51 : FAILED 1/2 TESTS:  ll_delete
-2018_09_19_02_31_21 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_31_30 : FAILED 1/2 TESTS:  ll_delete
-2018_09_19_02_32_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_32_46 : FAILED 1/2 TESTS:  ll_delete
-2018_09_19_02_34_22 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_34_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_02_37_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_37_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_37_41 : FAILED 1/2 TESTS:  ll_delete
-2018_09_19_02_37_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_38_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_02_39_21 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_39_36 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_02_39_55 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_39_59 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_02_44_09 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_44_26 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_02_46_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_02_47_04 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_02_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_02_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_08_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_08_24 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_08_40 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_08_54 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_13_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_13_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_18_41 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_18_55 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_19_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_19_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_20_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_20_21 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_29_34 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_29_48 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_31_51 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_32_04 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_33_14 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_33_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_03_56_43 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_19_03_57_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_03_57_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_09_42 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_09_56 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_10_31 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_10_45 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_16_48 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_17_24 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_18_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_18_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_25_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_25_57 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_28_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_28_46 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_30_10 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_31_00 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_32_05 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_32_57 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_36_19 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_37_20 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_04_39_52 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_04_41_03 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_03_01 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_04_05 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_08_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_08_44 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_19_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_20_10 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_20_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_20_56 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_21_47 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_22_08 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_25_29 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_25_45 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_31_38 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_31_54 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_32_05 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_32_37 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_05_34_40 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_38_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_05_38_27 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_06_24_43 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_06_24_59 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_06_29_30 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_06_29_47 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_06_30_32 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_06_31_06 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_06_31_34 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_06_32_07 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_06_51_04 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_07_22_04 : ALL 146 TESTS SUCCESSFUL
-2018_09_19_13_58_59 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_13_59_23 : ALL 2 TESTS SUCCESSFUL
-2018_09_19_13_59_37 : ALL 1 TESTS SUCCESSFUL
-2018_09_19_13_59_51 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_23_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_23_41 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_24_00 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_24_17 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_28_05 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_28_32 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_28_32 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_28_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_28_56 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_29_26 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_29_26 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_29_36 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_29_36 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_30_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_30_07 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_30_13 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_30_13 : FAILED 1/2 TESTS:  ll_delete1
-2018_09_20_00_30_52 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_31_06 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_31_18 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_31_32 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_33_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_33_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_37_02 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_37_16 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_39_57 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_40_14 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_00_41_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_00_41_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_01_09_33 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_09_40 : FAILED 1/2 TESTS:  ll_delete1_twoemails
-2018_09_20_01_10_11 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_10_11 : FAILED 1/2 TESTS:  ll_delete1_twoemails
-2018_09_20_01_10_35 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_10_49 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_01_11_15 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_11_29 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_01_12_50 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_13_03 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_01_23_08 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_01_23_22 : ALL 2 TESTS SUCCESSFUL
-2018_09_20_02_03_55 : FAILED 1/1 TESTS:  perl_syntax
-2018_09_20_02_05_24 : ALL 1 TESTS SUCCESSFUL
-2018_09_20_02_35_46 : ALL 147 TESTS SUCCESSFUL
-2018_09_27_11_37_07 : ALL 1 TESTS SUCCESSFUL
-2018_09_27_11_37_59 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_13_14_19 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_13_14_42 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_13_18_28 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_13_18_33 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_13_19_54 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_13_19_58 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_13_20_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_13_21_01 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_13_21_45 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_13_21_50 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_16_26_23 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_16_26_26 : ALL 2 TESTS SUCCESSFUL
-2018_09_28_16_26_56 : ALL 1 TESTS SUCCESSFUL
-2018_09_28_16_27_01 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_08_10_54 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_08_11_03 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_10_43_22 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_10_43_27 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_10_49_32 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_10_49_36 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_10_53_19 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_10_53_23 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_10_57_34 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_10_57_38 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_11_02_26 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_11_02_31 : FAILED 1/2 TESTS:  gmail_gl1_gl2_appendlimit
-2018_10_02_11_03_38 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_11_03_43 : ALL 2 TESTS SUCCESSFUL
-2018_10_02_11_07_03 : FAILED 1/1 TESTS:  perl_syntax
-2018_10_02_11_07_26 : ALL 1 TESTS SUCCESSFUL
-2018_10_02_11_07_32 : ALL 2 TESTS SUCCESSFUL
-2018_10_03_23_52_52 : ALL 1 TESTS SUCCESSFUL
-2018_10_03_23_53_00 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_00_18_48 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_00_18_53 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_00_36_45 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_00_36_51 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_00_51_29 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_00_51_35 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_00_52_04 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_00_52_09 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_01_01_04 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_01_01_08 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_01_05_13 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_01_05_19 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_01_06_51 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_01_07_41 : ALL 2 TESTS SUCCESSFUL
-2018_10_04_01_16_33 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_01_16_51 : ALL 3 TESTS SUCCESSFUL
-2018_10_04_01_47_13 : ALL 1 TESTS SUCCESSFUL
-2018_10_04_01_47_18 : ALL 2 TESTS SUCCESSFUL
-2018_10_05_21_52_20 : ALL 1 TESTS SUCCESSFUL
-2018_10_05_22_50_02 : FAILED 1/148 TESTS:  memory_stress
-2018_10_18_13_42_26 : ALL 1 TESTS SUCCESSFUL
-2018_10_18_14_14_23 : FAILED 3/148 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2018_10_18_14_55_31 : ALL 1 TESTS SUCCESSFUL
-2018_10_18_14_56_55 : ALL 1 TESTS SUCCESSFUL
-2018_10_18_15_20_50 : ALL 1 TESTS SUCCESSFUL
-2018_10_18_15_30_17 : ALL 1 TESTS SUCCESSFUL
-2018_10_18_15_40_04 : ALL 1 TESTS SUCCESSFUL
-2018_10_19_13_47_01 : ALL 1 TESTS SUCCESSFUL
-2018_10_19_13_47_08 : ALL 2 TESTS SUCCESSFUL
-2018_10_19_13_47_42 : ALL 1 TESTS SUCCESSFUL
-2018_10_19_13_47_46 : ALL 2 TESTS SUCCESSFUL
-2018_10_19_14_32_54 : ALL 1 TESTS SUCCESSFUL
-2018_10_19_14_33_07 : ALL 2 TESTS SUCCESSFUL
-2018_11_11_19_53_32 : ALL 1 TESTS SUCCESSFUL
-2018_11_11_20_23_07 : ALL 148 TESTS SUCCESSFUL
-2018_11_15_02_04_44 : ALL 1 TESTS SUCCESSFUL
-2018_11_15_02_08_53 : ALL 1 TESTS SUCCESSFUL
-2018_11_15_02_10_53 : ALL 1 TESTS SUCCESSFUL
-2018_11_16_11_10_48 : ALL 1 TESTS SUCCESSFUL
-2018_11_16_11_40_46 : ALL 148 TESTS SUCCESSFUL
-2018_11_18_13_07_04 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_13_09_05 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_14_44_02 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_14_44_07 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_14_35 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_14_40 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_16_47 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_16_52 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_21_34 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_22_02 : FAILED 1/2 TESTS:  ll_ask_password
-2018_11_18_15_23_59 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_24_13 : FAILED 1/2 TESTS:  ll_ask_password
-2018_11_18_15_24_25 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_24_30 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_27_28 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_27_32 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_28_46 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_28_51 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_32_17 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_32_34 : FAILED 1/2 TESTS:  ll_ask_password
-2018_11_18_15_34_13 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_34_39 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_34_43 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_34_47 : FAILED 1/2 TESTS:  ll_ask_password
-2018_11_18_15_35_19 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_35_26 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_36_25 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_36_30 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_37_08 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_37_34 : FAILED 1/2 TESTS:  ll_ask_password
-2018_11_18_15_47_28 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_47_33 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_53_13 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_53_18 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_55_35 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_55_39 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_56_06 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_56_11 : ALL 2 TESTS SUCCESSFUL
-2018_11_18_15_57_59 : ALL 1 TESTS SUCCESSFUL
-2018_11_18_15_58_05 : ALL 2 TESTS SUCCESSFUL
-2018_11_20_10_14_26 : ALL 1 TESTS SUCCESSFUL
-2018_11_20_10_14_42 : ALL 2 TESTS SUCCESSFUL
-2018_11_20_10_20_47 : ALL 1 TESTS SUCCESSFUL
-2018_11_20_10_23_40 : ALL 1 TESTS SUCCESSFUL
-2018_11_20_10_58_13 : ALL 1 TESTS SUCCESSFUL
-2018_11_20_10_58_18 : ALL 2 TESTS SUCCESSFUL
-2018_11_20_11_00_41 : ALL 1 TESTS SUCCESSFUL
-2018_11_20_11_00_47 : ALL 2 TESTS SUCCESSFUL
-2018_11_20_14_18_29 : ALL 1 TESTS SUCCESSFUL
-2018_12_04_02_26_45 : ALL 1 TESTS SUCCESSFUL
-2018_12_04_02_56_30 : ALL 148 TESTS SUCCESSFUL
-2018_12_09_23_19_06 : ALL 1 TESTS SUCCESSFUL
-2018_12_09_23_49_43 : ALL 148 TESTS SUCCESSFUL
-2018_12_10_20_59_06 : ALL 1 TESTS SUCCESSFUL
-2018_12_10_20_59_23 : ALL 2 TESTS SUCCESSFUL
-2018_12_10_21_00_14 : ALL 1 TESTS SUCCESSFUL
-2018_12_10_21_00_21 : ALL 2 TESTS SUCCESSFUL
-2018_12_23_21_49_49 : ALL 1 TESTS SUCCESSFUL
-2018_12_23_21_53_37 : ALL 2 TESTS SUCCESSFUL
-2018_12_23_22_00_43 : ALL 1 TESTS SUCCESSFUL
-2018_12_23_22_00_52 : ALL 2 TESTS SUCCESSFUL
-2018_12_23_22_42_25 : ALL 1 TESTS SUCCESSFUL
-2018_12_23_23_01_10 : ALL 2 TESTS SUCCESSFUL
-2018_12_23_23_21_14 : ALL 1 TESTS SUCCESSFUL
-2018_12_23_23_21_43 : ALL 4 TESTS SUCCESSFUL
-2018_12_25_14_00_40 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_14_00_59 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_14_03_51 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_14_03_56 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_14_10_06 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_14_10_13 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_14_11_18 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_14_11_23 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_14_56_14 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_14_56_19 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_19_09_26 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_19_09_32 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_19_11_15 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_19_11_21 : ALL 2 TESTS SUCCESSFUL
-2018_12_25_19_17_21 : FAILED 1/1 TESTS:  perl_syntax
-2018_12_25_19_18_18 : ALL 1 TESTS SUCCESSFUL
-2018_12_25_19_18_23 : ALL 2 TESTS SUCCESSFUL
-2019_01_03_16_12_41 : ALL 1 TESTS SUCCESSFUL
-2019_01_03_16_19_03 : ALL 1 TESTS SUCCESSFUL
-2019_01_03_16_20_40 : ALL 1 TESTS SUCCESSFUL
-2019_01_03_16_21_44 : ALL 1 TESTS SUCCESSFUL
-2019_01_03_16_22_20 : ALL 1 TESTS SUCCESSFUL
-2019_01_03_16_53_42 : FAILED 3/148 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2019_01_04_00_15_29 : ALL 1 TESTS SUCCESSFUL
-2019_01_04_00_16_07 : FAILED 3/4 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2019_01_05_00_29_35 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_01_00_34 : ALL 148 TESTS SUCCESSFUL
-2019_01_05_18_11_04 : FAILED 1/1 TESTS:  perl_syntax
-2019_01_05_18_12_42 : FAILED 1/1 TESTS:  perl_syntax
-2019_01_05_18_13_07 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_18_13_29 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_18_58_22 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_18_58_36 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_18_59_43 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_18_59_58 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_19_54_00 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_20_24_01 : ALL 148 TESTS SUCCESSFUL
-2019_01_05_23_07_55 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_09_51 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_09_54 : FAILED 1/3 TESTS:  titi
-2019_01_05_23_10_23 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_10_24 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_10_46 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_11_20 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_12_21 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_12_37 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_16_16 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_16_16 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_18_41 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_18_49 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_23_53 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_24_01 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_26_12 : ALL 1 TESTS SUCCESSFUL
-2019_01_05_23_26_19 : ALL 2 TESTS SUCCESSFUL
-2019_01_05_23_29_53 : FAILED 1/1 TESTS:  perl_syntax
-2019_01_06_00_12_40 : FAILED 1/1 TESTS:  perl_syntax
-2019_01_06_00_13_16 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_13_20 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_15_50 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_15_55 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_19_38 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_19_44 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_20_06 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_20_07 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_20_17 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_20_18 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_20_30 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_20_38 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_22_52 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_22_57 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_24_14 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_24_19 : ALL 2 TESTS SUCCESSFUL
-2019_01_06_00_24_46 : ALL 1 TESTS SUCCESSFUL
-2019_01_06_00_24_51 : ALL 2 TESTS SUCCESSFUL
-2019_01_07_14_58_13 : ALL 1 TESTS SUCCESSFUL
-2019_01_07_14_58_28 : FAILED 1/2 TESTS:  ksks_password_doublequote
-2019_01_07_14_59_00 : ALL 1 TESTS SUCCESSFUL
-2019_01_07_14_59_06 : ALL 2 TESTS SUCCESSFUL
-2019_01_07_14_59_40 : ALL 1 TESTS SUCCESSFUL
-2019_01_07_14_59_48 : FAILED 1/2 TESTS:  ksks_password_doublequote
-2019_01_07_15_00_20 : ALL 1 TESTS SUCCESSFUL
-2019_01_07_15_00_30 : FAILED 1/2 TESTS:  ksks_password_doublequote
-2019_01_08_21_18_45 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_18_56 : ALL 2 TESTS SUCCESSFUL
-2019_01_08_21_21_40 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_23_18 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_23_53 : ALL 2 TESTS SUCCESSFUL
-2019_01_08_21_24_15 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_24_22 : ALL 2 TESTS SUCCESSFUL
-2019_01_08_21_25_15 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_25_26 : ALL 2 TESTS SUCCESSFUL
-2019_01_08_21_25_46 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_25_56 : ALL 2 TESTS SUCCESSFUL
-2019_01_08_21_26_38 : ALL 1 TESTS SUCCESSFUL
-2019_01_08_21_26_47 : ALL 2 TESTS SUCCESSFUL
-2019_01_09_02_02_39 : ALL 1 TESTS SUCCESSFUL
-2019_01_09_02_02_52 : ALL 2 TESTS SUCCESSFUL
-2019_01_09_02_05_08 : ALL 1 TESTS SUCCESSFUL
-2019_01_09_02_05_18 : ALL 2 TESTS SUCCESSFUL
-2019_01_21_06_15_51 : ALL 1 TESTS SUCCESSFUL
-2019_01_21_06_18_12 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_13_42_50 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_47_25 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_47_31 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_13_49_05 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_49_11 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_13_50_36 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_50_42 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_13_51_02 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_51_06 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_13_52_33 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_52_38 : FAILED 1/2 TESTS:  gigamail_1
-2019_02_05_13_53_12 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_53_16 : FAILED 1/2 TESTS:  gigamail_1
-2019_02_05_13_53_43 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_53_43 : FAILED 1/2 TESTS:  gigamail_1
-2019_02_05_13_54_12 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_54_16 : FAILED 1/2 TESTS:  jong_1
-2019_02_05_13_55_12 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_55_19 : FAILED 1/2 TESTS:  jong_1
-2019_02_05_13_57_26 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_13_57_32 : FAILED 1/2 TESTS:  exchange_1
-2019_02_05_14_01_57 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_16_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_17_05 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_18_02 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_18_07 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_18_37 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_22_25 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_24_27 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_30_21 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_32_07 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_35_20 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_35_20 : FAILED 1/2 TESTS:  huge_folder_2017
-2019_02_05_14_35_25 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_41_30 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_49_48 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_49_53 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_51_16 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_51_33 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_51_56 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_52_13 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_14_53_13 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_53_31 : ALL 3 TESTS SUCCESSFUL
-2019_02_05_14_57_18 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_14_57_35 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_01_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_01_56 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_04_26 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_04_31 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_05_37 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_06_08 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_07_32 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_07_40 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_11_42 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_11_51 : FAILED 1/2 TESTS:  ll_final_diff
-2019_02_05_15_13_19 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_14_22 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_14_29 : FAILED 1/2 TESTS:  ll_final_diff
-2019_02_05_15_18_50 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_18_58 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_21_05 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_21_13 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_22_28 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_22_36 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_23_28 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_23_36 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_24_15 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_24_23 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_25_00 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_25_12 : FAILED 1/2 TESTS:  ll_final_diff
-2019_02_05_15_27_07 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_27_15 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_28_13 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_28_21 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_29_10 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_29_57 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_30_08 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_31_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_31_51 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_15_32_10 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_32_19 : ALL 4 TESTS SUCCESSFUL
-2019_02_05_15_33_20 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_33_28 : ALL 3 TESTS SUCCESSFUL
-2019_02_05_15_47_59 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_15_48_08 : ALL 3 TESTS SUCCESSFUL
-2019_02_05_16_15_52 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_16_21_11 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_16_35_01 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_17_02_01 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_18_39_22 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_18_42_19 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_18_42_21 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_18_44_47 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_17_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_20_19 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_21_33 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_23_08 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_24_06 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_25_52 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_31_28 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_32_56 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_40_27 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_40_50 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_44_08 : FAILED 1/1 TESTS:  perl_syntax
-2019_02_05_19_45_18 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_45_28 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_47_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_47_53 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_49_32 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_49_39 : ALL 2 TESTS SUCCESSFUL
-2019_02_05_19_50_36 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_50_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_51_06 : ALL 3 TESTS SUCCESSFUL
-2019_02_05_19_52_45 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_52_53 : ALL 3 TESTS SUCCESSFUL
-2019_02_05_19_53_28 : ALL 1 TESTS SUCCESSFUL
-2019_02_05_19_53_36 : ALL 3 TESTS SUCCESSFUL
-2019_02_06_10_37_25 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_37_52 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_10_51_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_51_59 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_10_52_34 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_52_42 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_10_53_21 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_53_30 : ALL 3 TESTS SUCCESSFUL
-2019_02_06_10_53_43 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_54_57 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_10_56_04 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_10_56_41 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_11_03_50 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_11_04_32 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_11_38_08 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_11_38_45 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_11_46_09 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_11_46_25 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_11_49_24 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_11_49_40 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_11_52_24 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_11_53_02 : ALL 2 TESTS SUCCESSFUL
-2019_02_06_13_31_39 : ALL 1 TESTS SUCCESSFUL
-2019_02_06_14_02_08 : ALL 148 TESTS SUCCESSFUL
-2019_02_07_13_17_48 : ALL 1 TESTS SUCCESSFUL
-2019_02_07_13_56_16 : ALL 148 TESTS SUCCESSFUL
-2019_02_08_13_21_11 : ALL 1 TESTS SUCCESSFUL
-2019_02_08_13_21_50 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_14_44_59 : FAILED 1/1 TESTS:  perl_syntax
-2019_02_09_14_47_17 : FAILED 1/1 TESTS:  perl_syntax
-2019_02_09_14_47_41 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_14_49_13 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_14_51_39 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_14_56_58 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_14_59_41 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_02_00 : FAILED 1/1 TESTS:  perl_syntax
-2019_02_09_15_02_20 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_03_13 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_03_17 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_15_05_03 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_05_08 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_15_06_09 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_06_13 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_15_10_08 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_10_13 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_15_11_07 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_11_11 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_15_13_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_13_50 : FAILED 1/2 TESTS:  ll_authmech_X_MASTERAUTH
-2019_02_09_15_16_44 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_16_48 : FAILED 1/2 TESTS:  ll_authmech_X_MASTERAUTH
-2019_02_09_15_19_45 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_19_49 : FAILED 1/2 TESTS:  ll_authmech_X_MASTERAUTH
-2019_02_09_15_20_16 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_15_20_22 : FAILED 1/2 TESTS:  ll_authmech_X_MASTERAUTH
-2019_02_09_16_02_52 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_16_04_36 : ALL 2 TESTS SUCCESSFUL
-2019_02_09_17_04_10 : ALL 1 TESTS SUCCESSFUL
-2019_02_09_17_13_39 : ALL 2 TESTS SUCCESSFUL
-2019_02_10_13_36_21 : ALL 1 TESTS SUCCESSFUL
-2019_02_10_14_07_36 : ALL 148 TESTS SUCCESSFUL
-2019_02_11_01_30_39 : ALL 1 TESTS SUCCESSFUL
-2019_02_11_01_32_30 : ALL 2 TESTS SUCCESSFUL
-2019_02_18_11_11_38 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_11_53 : FAILED 1/3 TESTS:  ll_errors
-2019_02_18_11_13_17 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_14_53 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_15_04 : FAILED 1/3 TESTS:  ll_final_diff_with_errors
-2019_02_18_11_15_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_15_46 : FAILED 1/3 TESTS:  ll_final_diff_with_errors
-2019_02_18_11_16_03 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_16_27 : FAILED 1/3 TESTS:  ll_with_errors
-2019_02_18_11_17_24 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_17_35 : FAILED 1/3 TESTS:  ll_with_errors
-2019_02_18_11_21_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_18_11_53_50 : ALL 148 TESTS SUCCESSFUL
-2019_02_19_09_28_52 : ALL 1 TESTS SUCCESSFUL
-2019_02_19_09_59_12 : ALL 148 TESTS SUCCESSFUL
-2019_02_19_21_39_46 : ALL 1 TESTS SUCCESSFUL
-2019_02_19_21_39_53 : ALL 2 TESTS SUCCESSFUL
-2019_02_21_14_02_22 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_36_30 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_45_30 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_46_17 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_50_12 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_50_17 : ALL 2 TESTS SUCCESSFUL
-2019_02_23_10_53_18 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_53_47 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_10_54_05 : ALL 2 TESTS SUCCESSFUL
-2019_02_23_11_53_58 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_11_54_08 : FAILED 1/2 TESTS:  ll_append_debugimap
-2019_02_23_11_54_47 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_12_00_33 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_12_00_41 : FAILED 1/2 TESTS:  ll_append_debugimap
-2019_02_23_12_07_01 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_12_07_09 : ALL 2 TESTS SUCCESSFUL
-2019_02_23_12_13_37 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_12_13_44 : ALL 2 TESTS SUCCESSFUL
-2019_02_23_12_14_04 : ALL 1 TESTS SUCCESSFUL
-2019_02_23_12_14_11 : FAILED 1/2 TESTS:  ll_append_debugimap
-2019_02_24_13_32_24 : ALL 1 TESTS SUCCESSFUL
-2019_02_24_13_33_11 : ALL 2 TESTS SUCCESSFUL
-2019_02_24_13_36_51 : ALL 1 TESTS SUCCESSFUL
-2019_02_24_13_36_59 : ALL 2 TESTS SUCCESSFUL
-2019_02_27_16_21_13 : ALL 1 TESTS SUCCESSFUL
-2019_02_27_16_49_40 : ALL 148 TESTS SUCCESSFUL
-2019_03_03_19_11_40 : ALL 1 TESTS SUCCESSFUL
-2019_03_03_19_41_44 : ALL 148 TESTS SUCCESSFUL
-2019_03_06_19_20_07 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_20_07 : FAILED 1/2 TESTS:  gmail_gl1_gl2_labels_subfolder2
-2019_03_06_19_20_26 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_20_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_06_19_21_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_21_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_06_19_22_31 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_22_42 : ALL 3 TESTS SUCCESSFUL
-2019_03_06_19_26_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_26_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_06_19_30_40 : ALL 1 TESTS SUCCESSFUL
-2019_03_06_19_31_05 : ALL 3 TESTS SUCCESSFUL
-2019_03_08_10_48_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_10_51_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_10_51_41 : FAILED 1/2 TESTS:  xxxxx_gmail_06
-2019_03_08_11_03_42 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_11_03_54 : FAILED 1/2 TESTS:  xxxxx_gmail_06
-2019_03_08_11_05_58 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_11_06_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_11_42_04 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_11_42_17 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_12_05_38 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_12_05_51 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_13_18_48 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_18_49 : FAILED 1/3 TESTS:  imapsync.gl1@gmail.com
-2019_03_08_13_29_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_29_58 : FAILED 1/3 TESTS:  imapsync.gl1@gmail.com
-2019_03_08_13_33_22 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_33_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_13_49_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_49_26 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_13_50_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_50_18 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_13_50_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_13_51_04 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_01_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_01_51 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_03_54 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_03_59 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_05_06 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_05_12 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_07_53 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_07_58 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_15_16 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_15_21 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_16_45 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_16_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_17_32 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_17_36 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_26_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_27_04 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_29_28 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_29_32 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_30_41 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_30_46 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_31_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_32_02 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_34_07 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_34_12 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_38_43 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_38_48 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_42_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_42_29 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_43_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_43_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_51_09 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_51_14 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_56_41 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_56_45 : FAILED 1/2 TESTS:  ll_regex_flag8_add_SEEN_if_not_here
-2019_03_08_14_58_29 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_14_58_34 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_14_59_58 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_15_00_04 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_17_20_21 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_17_20_26 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_17_22_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_17_22_16 : ALL 2 TESTS SUCCESSFUL
-2019_03_08_17_24_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_17_24_21 : FAILED 1/2 TESTS:  ll_regex_flag8_add_SEEN_if_not_here
-2019_03_08_17_25_05 : ALL 1 TESTS SUCCESSFUL
-2019_03_08_17_25_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_13_18_51_40 : ALL 1 TESTS SUCCESSFUL
-2019_03_13_18_53_26 : ALL 2 TESTS SUCCESSFUL
-2019_03_13_18_57_38 : ALL 1 TESTS SUCCESSFUL
-2019_03_13_18_57_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_13_18_59_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_13_18_59_26 : ALL 2 TESTS SUCCESSFUL
-2019_03_13_18_59_47 : ALL 1 TESTS SUCCESSFUL
-2019_03_13_18_59_56 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_07_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_07_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_16_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_20_18 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_20_51 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_21_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_21_39 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_22_18 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_24_16 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_24_16 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_25_06 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_28_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_28_46 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_29_22 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_30_00 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_30_01 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_30_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_32_54 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_32_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_14_19_34_28 : ALL 1 TESTS SUCCESSFUL
-2019_03_14_19_34_55 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_12_57_52 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_12_57_53 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_13_02_51 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_13_08_28 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_13_08_43 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_13_11_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_13_11_34 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_13_12_08 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_13_12_08 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_13_12_14 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_13_12_33 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_17_13_31 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_17_13_44 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_17_13_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_17_14_18 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_17_21_21 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_17_22_01 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_17_26_31 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_17_26_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_20_06_38 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_06_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_20_07_28 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_11_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_11_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_20_15_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_16_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_20_40_37 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_40_49 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_20_43_10 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_20_43_31 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_22_51_25 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_22_52_45 : FAILED 1/2 TESTS:  ll
-2019_03_15_22_53_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_22_54_29 : ALL 2 TESTS SUCCESSFUL
-2019_03_15_23_20_35 : ALL 1 TESTS SUCCESSFUL
-2019_03_15_23_20_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_16_19_55_31 : ALL 1 TESTS SUCCESSFUL
-2019_03_16_19_55_49 : ALL 2 TESTS SUCCESSFUL
-2019_03_16_22_02_56 : ALL 1 TESTS SUCCESSFUL
-2019_03_16_22_03_08 : ALL 2 TESTS SUCCESSFUL
-2019_03_16_22_03_35 : ALL 1 TESTS SUCCESSFUL
-2019_03_16_22_03_47 : ALL 2 TESTS SUCCESSFUL
-2019_03_16_22_18_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_16_22_18_42 : FAILED 1/2 TESTS:  gmail_gl2_gl3_labels_after_a_subfolder2_on_host1
-2019_03_18_08_14_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_08_14_21 : FAILED 1/2 TESTS:  gmail_gl2_gl3_labels_after_a_subfolder2_on_host1
-2019_03_18_08_14_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_08_27_58 : FAILED 1/1 TESTS:  perl_syntax
-2019_03_18_08_28_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_08_28_27 : FAILED 1/2 TESTS:  gmail_gl2_gl3_labels_after_a_subfolder2_on_host1
-2019_03_18_08_28_53 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_08_29_04 : ALL 2 TESTS SUCCESSFUL
-2019_03_18_08_32_47 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_08_32_57 : ALL 2 TESTS SUCCESSFUL
-2019_03_18_09_23_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_09_24_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_18_10_23_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_10_23_59 : ALL 2 TESTS SUCCESSFUL
-2019_03_18_10_24_41 : ALL 1 TESTS SUCCESSFUL
-2019_03_18_10_24_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_19_10_15_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_19_10_15_56 : FAILED 1/2 TESTS:  gmail_gl2_gl3_labels_after_a_subfolder2_on_host1
-2019_03_19_10_16_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_19_10_17_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_19_10_40_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_19_10_40_31 : ALL 2 TESTS SUCCESSFUL
-2019_03_21_01_45_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_21_02_26_50 : FAILED 4/148 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub office365_justconnect_inet4_inet6
-2019_03_22_14_43_04 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_43_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_14_43_52 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_44_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_14_46_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_46_32 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_14_48_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_50_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_50_23 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_14_52_30 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_53_07 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_14_55_12 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_14_55_30 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_15_00_36 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_15_00_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_15_01_14 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_15_01_32 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_15_04_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_15_04_31 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_15_05_10 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_15_05_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_22_15_10_52 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_15_51_05 : ALL 1 TESTS SUCCESSFUL
-2019_03_22_16_32_56 : FAILED 1/148 TESTS:  office365_justconnect_inet4_inet6
-2019_03_23_20_16_37 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_17_13 : FAILED 1/2 TESTS:  ll_diff
-2019_03_23_20_17_25 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_18_27 : FAILED 1/2 TESTS:  ll_diff
-2019_03_23_20_19_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_19_14 : FAILED 1/2 TESTS:  ll_diff
-2019_03_23_20_20_52 : FAILED 1/1 TESTS:  perl_syntax
-2019_03_23_20_25_59 : FAILED 1/1 TESTS:  perl_syntax
-2019_03_23_20_29_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_29_49 : FAILED 1/2 TESTS:  ll_diff
-2019_03_23_20_39_25 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_39_35 : FAILED 1/2 TESTS:  ll_diff
-2019_03_23_20_40_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_23_20_40_43 : ALL 2 TESTS SUCCESSFUL
-2019_03_24_13_18_00 : ALL 1 TESTS SUCCESSFUL
-2019_03_24_13_18_44 : ALL 3 TESTS SUCCESSFUL
-2019_03_24_13_19_06 : ALL 1 TESTS SUCCESSFUL
-2019_03_24_13_19_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_24_13_20_40 : ALL 1 TESTS SUCCESSFUL
-2019_03_24_13_20_45 : ALL 2 TESTS SUCCESSFUL
-2019_03_24_13_48_53 : ALL 1 TESTS SUCCESSFUL
-2019_03_24_13_49_02 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_18_29_04 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_18_57_31 : FAILED 4/148 TESTS:  ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_delete2foldersonly ll_delete2foldersonly_tmp
-2019_03_25_22_08_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_22_08_34 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_22_18_42 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_22_19_17 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_22_21_44 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_22_22_18 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_22_28_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_22_29_09 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_22_32_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_22_33_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_23_24_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_24_36 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_23_27_05 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_28_23 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_29_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_29_59 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_23_31_38 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_31_59 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_23_33_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_33_45 : ALL 2 TESTS SUCCESSFUL
-2019_03_25_23_34_44 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_35_13 : FAILED 1/2 TESTS:  gmail_gl3_gl1_labels_subfolder1
-2019_03_25_23_35_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_25_23_36_18 : FAILED 1/2 TESTS:  gmail_gl3_gl1_labels_subfolder1
-2019_03_26_11_23_25 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_11_23_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_12_03_51 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_12_30_29 : FAILED 4/148 TESTS:  ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_delete2foldersonly ll_delete2foldersonly_tmp
-2019_03_26_22_35_42 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_22_36_09 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_03_51 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_04_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_06_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_06_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_09_22 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_09_44 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_10_00 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_10_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_11_05 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_11_26 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_11_55 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_12_17 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_13_18 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_13_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_13_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_14_21 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_31_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_31_34 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_32_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_32_30 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_37_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_38_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_45_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_46_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_26_23_46_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_26_23_46_42 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_33_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_33_43 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_42_04 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_42_27 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_46_49 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_47_13 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_50_02 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_50_41 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_52_14 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_52_39 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_09_55_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_09_56_07 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_10_01_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_10_02_03 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_19_58 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_20_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_30_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_30_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_37_23 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_37_35 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_42_30 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_42_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_43_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_44_01 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_44_38 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_44_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_45_08 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_45_19 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_46_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_46_57 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_49_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_49_14 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_52_47 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_53_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_54_10 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_54_24 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_54_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_55_12 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_59_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_11_59_33 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_11_59_48 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_00_03 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_18_04 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_18_24 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_19_10 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_19_24 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_20_46 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_21_08 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_29_51 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_30_05 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_33_44 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_33_56 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_12_34_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_12_34_43 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_13_17_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_13_18_11 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_13_18_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_13_18_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_13_19_25 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_13_19_41 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_13_40_15 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_13_40_38 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_13_49_00 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_13_49_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_16_50_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_16_50_38 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_16_52_37 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_16_52_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_16_55_15 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_16_55_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_16_55_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_16_56_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_16_59_16 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_16_59_35 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_02_43 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_03_02 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_06_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_06_25 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_08_54 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_09_15 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_09_22 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_09_43 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_15_31 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_15_45 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_16_09 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_16_21 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_17_02 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_17_13 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_18_06 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_18_19 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_21_07 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_21_21 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_21_37 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_21_51 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_24_45 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_24_54 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_17_26_23 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_17_26_42 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_19_39_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_19_39_46 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_19_40_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_19_40_47 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_19_44_12 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_19_44_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_19_44_56 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_19_45_10 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_24_17 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_24_30 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_27_12 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_27_27 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_28_13 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_28_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_42_59 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_43_17 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_44_00 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_44_12 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_45_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_45_48 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_45_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_46_08 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_49_23 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_49_42 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_50_45 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_51_09 : ALL 2 TESTS SUCCESSFUL
-2019_03_27_23_51_39 : ALL 1 TESTS SUCCESSFUL
-2019_03_27_23_51_57 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_10_14 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_10_29 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_11_12 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_11_25 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_13_23 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_13_36 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_14_36 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_14_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_15_06 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_15_19 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_18_09 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_18_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_20_24 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_20_44 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_21_54 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_22_14 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_22_20 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_22_39 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_23_57 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_24_16 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_25_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_25_27 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_45_04 : FAILED 1/1 TESTS:  perl_syntax
-2019_03_28_10_45_28 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_45_40 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_45_58 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_46_08 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_10_46_27 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_10_46_37 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_05_03 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_05_36 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_16_08 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_16_29 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_16_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_16_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_18_07 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_18_22 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_26_50 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_27_07 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_32_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_32_51 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_41_02 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_41_18 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_43_33 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_43_48 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_11_50_45 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_11_50_59 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_13_16_45 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_13_17_01 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_13_18_34 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_13_18_50 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_13_20_11 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_13_20_28 : ALL 2 TESTS SUCCESSFUL
-2019_03_28_18_40_47 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_18_53_29 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_18_53_29 : FAILED 1/2 TESTS:  ../../var/pass/test1@deuscustoms.com
-2019_03_28_18_55_02 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_18_55_02 : FAILED 1/2 TESTS:  ../../var/pass/test1@deuscustoms.com
-2019_03_28_18_55_35 : ALL 1 TESTS SUCCESSFUL
-2019_03_28_19_09_08 : FAILED 4/148 TESTS:  ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_delete2foldersonly ll_delete2foldersonly_tmp
-2019_03_28_19_09_10 : FAILED 4/148 TESTS:  ll_regextrans2_subfolder ll_regextrans2_subfolder_02 ll_delete2foldersonly ll_delete2foldersonly_tmp
-2019_04_01_00_23_45 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_24_21 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_24_25 : FAILED 1/2 TESTS:  ll_regextrans2_subfolder
-2019_04_01_00_27_40 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_27_45 : FAILED 1/2 TESTS:  ll_delete2foldersonly
-2019_04_01_00_30_15 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_30_45 : ALL 2 TESTS SUCCESSFUL
-2019_04_01_00_34_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_34_50 : ALL 2 TESTS SUCCESSFUL
-2019_04_01_00_35_07 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_35_22 : ALL 2 TESTS SUCCESSFUL
-2019_04_01_00_36_52 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_37_01 : ALL 2 TESTS SUCCESSFUL
-2019_04_01_00_38_04 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_00_38_32 : ALL 3 TESTS SUCCESSFUL
-2019_04_01_00_38_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_01_17_02 : ALL 146 TESTS SUCCESSFUL
-2019_04_01_19_31_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_20_09_14 : ALL 146 TESTS SUCCESSFUL
-2019_04_01_21_16_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_01_21_23_20 : ALL 2 TESTS SUCCESSFUL
-2019_04_02_19_56_59 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_00_59 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_01_19 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_01_43 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_02_36 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_03_16 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_05_01 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_05_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_07_44 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_08_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_17_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_17_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_21_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_21_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_23_36 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_20_31_03 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_21_09_57 : FAILED 1/146 TESTS:  ll_abort
-2019_04_02_22_17_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_22_22_52 : ALL 2 TESTS SUCCESSFUL
-2019_04_02_22_59_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_00_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_07_32 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_07_52 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_13_58 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_15_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_26_32 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_29_07 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_29_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_30_45 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_31_43 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_31_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_32_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_33_13 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_33_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_49_00 : FAILED 1/1 TESTS:  perl_syntax
-2019_04_02_23_50_25 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_51_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_57_11 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_57_29 : ALL 1 TESTS SUCCESSFUL
-2019_04_02_23_59_31 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_00_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_02_03 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_02_13 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_02_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_03_19 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_03_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_05_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_07_31 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_16_12 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_16_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_20_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_20_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_22_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_25_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_26_16 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_28_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_29_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_30_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_30_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_31_14 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_00_33_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_01_08_52 : FAILED 1/146 TESTS:  ll_abort
-2019_04_03_02_17_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_02_24_57 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_14_48_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_48_57 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_50_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_50_14 : FAILED 1/2 TESTS:  Otilio
-2019_04_03_14_51_04 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_51_08 : FAILED 1/2 TESTS:  Otilio3
-2019_04_03_14_52_21 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_52_25 : FAILED 1/2 TESTS:  Otilio3
-2019_04_03_14_53_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_53_27 : FAILED 1/2 TESTS:  Otilio3
-2019_04_03_14_58_32 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_14_58_36 : FAILED 1/2 TESTS:  Otilio3
-2019_04_03_15_01_21 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_05_25 : FAILED 1/2 TESTS:  bluehost2
-2019_04_03_15_18_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_19_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_20_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_20_54 : FAILED 1/2 TESTS:  b2btech_1
-2019_04_03_15_21_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_21_37 : FAILED 1/2 TESTS:  godaddy_1
-2019_04_03_15_23_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_23_31 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_15_24_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_25_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_25_34 : FAILED 1/2 TESTS:  mail2World
-2019_04_03_15_27_29 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_27_39 : FAILED 1/2 TESTS:  bug_zero_byte
-2019_04_03_15_28_13 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_28_19 : FAILED 1/2 TESTS:  mailenable_22_host2
-2019_04_03_15_29_09 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_29_13 : FAILED 1/2 TESTS:  mailenable_3_reverse
-2019_04_03_15_29_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_30_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_31_49 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_31_54 : FAILED 1/2 TESTS:  exchange_hoch_1
-2019_04_03_15_32_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_32_58 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_33_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_33_50 : FAILED 1/2 TESTS:  courier_45
-2019_04_03_15_34_19 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_34_35 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_15_35_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_35_48 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_15_41_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_15_42_44 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_15_45_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_17_55_25 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_17_55_40 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_18_53_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_18_53_56 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_18_54_15 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_18_54_23 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_18_55_16 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_18_55_40 : ALL 2 TESTS SUCCESSFUL
-2019_04_03_23_51_43 : ALL 1 TESTS SUCCESSFUL
-2019_04_03_23_51_44 : ALL 2 TESTS SUCCESSFUL
-2019_04_04_13_07_49 : ALL 1 TESTS SUCCESSFUL
-2019_04_04_13_07_50 : ALL 2 TESTS SUCCESSFUL
-2019_04_04_13_08_02 : ALL 1 TESTS SUCCESSFUL
-2019_04_04_13_51_21 : FAILED 1/146 TESTS:  ll_abort
-2019_04_04_19_18_07 : ALL 1 TESTS SUCCESSFUL
-2019_04_04_19_19_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_04_19_20_21 : FAILED 1/2 TESTS:  ll_abort
-2019_04_07_17_32_51 : ALL 1 TESTS SUCCESSFUL
-2019_04_07_17_34_34 : FAILED 1/2 TESTS:  ll_abort
-2019_04_07_17_50_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_07_17_50_39 : FAILED 1/2 TESTS:  ll_abort
-2019_04_07_22_10_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_07_22_10_33 : ALL 2 TESTS SUCCESSFUL
-2019_04_07_22_10_44 : ALL 1 TESTS SUCCESSFUL
-2019_04_07_22_10_50 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_10_52_03 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_10_52_14 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_10_54_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_10_54_50 : FAILED 1/2 TESTS:  ll_sigreconnect_INT
-2019_04_08_10_56_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_10_56_02 : FAILED 1/2 TESTS:  ll_sigreconnect_INT
-2019_04_08_10_58_49 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_10_58_55 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_10_59_55 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_11_00_03 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_11_01_45 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_11_01_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_11_03_25 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_11_03_33 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_02_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_02_49 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_06_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_06_59 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_07_40 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_08_09 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_08_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_08_54 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_26_55 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_27_00 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_27_36 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_27_41 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_33_37 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_33_42 : ALL 2 TESTS SUCCESSFUL
-2019_04_08_12_35_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_37_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_08_12_37_35 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_10_59_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_10_59_29 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_01_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_02_07 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_02_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_02_49 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_08_52 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_09_04 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_09_59 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_10_14 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_30_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_30_59 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_32_18 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_32_29 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_33_21 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_33_32 : FAILED 1/2 TESTS:  ll_diff
-2019_04_09_11_38_13 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_38_33 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_11_40_02 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_40_09 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_11_44_58 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_45_05 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_11_54_01 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_11_54_09 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_12_43_34 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_12_43_38 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_14_01_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_14_01_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_14_01_39 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_14_04_31 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_14_04_42 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_14_40_38 : FAILED 1/149 TESTS:  ll_abort
-2019_04_09_17_06_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_17_53_10 : FAILED 1/150 TESTS:  ll_abort
-2019_04_09_20_25_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_20_29_54 : FAILED 1/2 TESTS:  ll_abort
-2019_04_09_20_56_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_20_56_46 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_21_02_32 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_21_02_39 : ALL 2 TESTS SUCCESSFUL
-2019_04_09_21_02_58 : ALL 1 TESTS SUCCESSFUL
-2019_04_09_21_03_07 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_11_51_42 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_11_51_58 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_12_03_39 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_03_48 : FAILED 1/2 TESTS:  ll_authentication_failure
-2019_04_10_12_09_34 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_09_44 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_10_31 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_10_38 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_12_11_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_11_52 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_12_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_12_28 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_14_15 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_14_24 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_12_20_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_20_28 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_21_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_21_44 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_26_33 : FAILED 1/1 TESTS:  perl_syntax
-2019_04_10_12_27_03 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_27_21 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_34_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_34_18 : FAILED 1/2 TESTS:  ll_diff
-2019_04_10_12_34_44 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_37_31 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_37_34 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_12_50_36 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_50_47 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_12_57_42 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_12_57_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_13_00_23 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_00_28 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_13_00_46 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_00_51 : FAILED 1/2 TESTS:  option_noreleasecheck
-2019_04_10_13_01_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_01_31 : FAILED 1/2 TESTS:  option_bad_delete2
-2019_04_10_13_02_51 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_02_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_13_03_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_03_25 : FAILED 1/2 TESTS:  option_extra_arguments
-2019_04_10_13_09_09 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_09_17 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_13_10_15 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_10_24 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_13_12_37 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_13_12_45 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_14_04_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_14_04_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_16_06_29 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_06_33 : FAILED 1/2 TESTS:  gmail_gl_gl2_delete2folders
-2019_04_10_16_06_58 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_07_06 : FAILED 1/2 TESTS:  gmail_gl_gl2_delete2folders
-2019_04_10_16_08_14 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_12_18 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_12_29 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_16_18_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_18_23 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_16_20_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_22_07 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_52_51 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_54_47 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_56_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_57_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_57_13 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_16_57_26 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_16_57_36 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_17_33_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_18_21_31 : FAILED 1/151 TESTS:  ll_authentication_failure
-2019_04_10_18_24_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_18_25_03 : FAILED 1/2 TESTS:  ll_authentication_failure
-2019_04_10_18_25_51 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_18_26_00 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_19_11_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_19_59_47 : FAILED 1/151 TESTS:  option_tests_in_var_tmp_sub
-2019_04_10_22_04_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_22_04_42 : ALL 2 TESTS SUCCESSFUL
-2019_04_10_22_09_43 : ALL 1 TESTS SUCCESSFUL
-2019_04_10_22_09_54 : ALL 2 TESTS SUCCESSFUL
-2019_04_11_19_51_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_11_20_40_53 : ALL 151 TESTS SUCCESSFUL
-2019_04_12_02_36_04 : ALL 1 TESTS SUCCESSFUL
-2019_04_12_03_13_27 : FAILED 1/151 TESTS:  yahoo_all
-2019_04_12_04_18_42 : ALL 1 TESTS SUCCESSFUL
-2019_04_12_04_25_32 : ALL 2 TESTS SUCCESSFUL
-2019_04_13_03_32_57 : ALL 1 TESTS SUCCESSFUL
-2019_04_13_03_35_23 : ALL 2 TESTS SUCCESSFUL
-2019_04_13_03_57_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_13_17_22_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_13_18_00_31 : ALL 151 TESTS SUCCESSFUL
-2019_04_13_18_19_32 : ALL 1 TESTS SUCCESSFUL
-2019_04_13_19_00_55 : ALL 151 TESTS SUCCESSFUL
-2019_04_13_20_10_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_13_20_15_27 : ALL 2 TESTS SUCCESSFUL
-2019_04_19_16_22_40 : ALL 1 TESTS SUCCESSFUL
-2019_04_19_17_08_01 : ALL 151 TESTS SUCCESSFUL
-2019_04_19_18_43_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_19_18_47_16 : ALL 2 TESTS SUCCESSFUL
-2019_04_25_18_59_02 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_18_59_24 : FAILED 1/2 TESTS:  ll_usecache
-2019_04_25_18_59_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_19_00_32 : ALL 2 TESTS SUCCESSFUL
-2019_04_25_19_00_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_19_01_18 : ALL 2 TESTS SUCCESSFUL
-2019_04_25_19_01_29 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_19_01_43 : ALL 2 TESTS SUCCESSFUL
-2019_04_25_19_14_35 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_19_14_48 : ALL 2 TESTS SUCCESSFUL
-2019_04_25_19_15_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_25_19_15_33 : ALL 2 TESTS SUCCESSFUL
-2019_04_26_10_29_25 : ALL 1 TESTS SUCCESSFUL
-2019_04_26_11_05_20 : FAILED 9/151 TESTS:  ll_skipmess ll_resyncflags ks_justconnect_ipv6_nossl ll_justlogin ll_justconnect_devel ll_ssl ll_nousecache ll_delete2foldersonly_NEW_3 ll_abort
-2019_04_27_12_50_02 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_13_29_43 : ALL 151 TESTS SUCCESSFUL
-2019_04_27_13_40_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_13_40_25 : ALL 4 TESTS SUCCESSFUL
-2019_04_27_13_45_52 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_13_46_09 : ALL 4 TESTS SUCCESSFUL
-2019_04_27_13_49_44 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_13_49_47 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_13_52_33 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_13_52_36 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_14_37_27 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_37_30 : FAILED 1/2 TESTS:  pidfile_bad
-2019_04_27_14_38_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_38_24 : FAILED 1/2 TESTS:  pidfile_bad
-2019_04_27_14_38_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_38_56 : FAILED 1/2 TESTS:  pidfile_bad
-2019_04_27_14_39_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_39_46 : ALL 4 TESTS SUCCESSFUL
-2019_04_27_14_40_23 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_40_25 : FAILED 1/2 TESTS:  pidfile_bad
-2019_04_27_14_46_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_46_36 : ALL 3 TESTS SUCCESSFUL
-2019_04_27_14_47_55 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_48_01 : ALL 3 TESTS SUCCESSFUL
-2019_04_27_14_50_11 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_50_18 : ALL 3 TESTS SUCCESSFUL
-2019_04_27_14_50_35 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_50_44 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_14_55_57 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_14_56_06 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_15_32_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_15_32_17 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_15_34_07 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_15_34_16 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_16_09_59 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_16_10_02 : FAILED 1/2 TESTS:  ll_pidfilelocking
-2019_04_27_16_15_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_16_15_30 : ALL 2 TESTS SUCCESSFUL
-2019_04_27_16_16_50 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_16_17_07 : ALL 5 TESTS SUCCESSFUL
-2019_04_27_16_20_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_27_16_59_27 : FAILED 4/152 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub yahoo_all
-2019_04_28_00_24_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_24_20 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_25_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_25_30 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_26_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_26_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_28_20 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_28_24 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_30_30 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_30_30 : FAILED 1/2 TESTS:  tail
-2019_04_28_00_30_55 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_30_55 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_31_53 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_31_53 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_40_48 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_40_48 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_45_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_00_45_05 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_00_59_58 : FAILED 1/1 TESTS:  perl_syntax
-2019_04_28_01_05_58 : FAILED 1/1 TESTS:  perl_syntax
-2019_04_28_01_07_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_07_08 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_01_11_16 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_11_16 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_01_14_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_14_24 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_01_23_16 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_23_16 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_01_24_38 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_24_39 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_01_27_18 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_01_27_18 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_08_56 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_08_56 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_10_19 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_10_19 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_10_52 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_10_52 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_19_49 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_19_49 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_20_45 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_20_45 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_21_47 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_21_47 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_02_22_14 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_02_22_14 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_08_18 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_08_18 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_10_28 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_10_28 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_11_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_11_22 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_12_17 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_12_17 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_17_40 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_17_40 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_18_05 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_18_05 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_18_43 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_18_43 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_34_55 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_34_55 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_40_09 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_40_10 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_42_06 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_42_06 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_03_44_10 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_03_44_33 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_04_01_24 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_01_28 : FAILED 1/2 TESTS:  tail
-2019_04_28_04_01_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_01_58 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_04_02_21 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_02_26 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_04_02_57 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_03_01 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_04_04_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_04_04 : FAILED 1/2 TESTS:  tail
-2019_04_28_04_04_40 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_05_04 : ALL 2 TESTS SUCCESSFUL
-2019_04_28_04_14_34 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_15_22 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_04_53_27 : FAILED 3/153 TESTS:  option_tests_in_var_tmp option_tests_in_var_tmp_sub tail
-2019_04_28_05_24_29 : ALL 1 TESTS SUCCESSFUL
-2019_04_28_05_24_29 : FAILED 1/2 TESTS:  tests_tail
-2019_04_29_16_06_41 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_16_45_32 : FAILED 1/153 TESTS:  tail
-2019_04_29_17_57_49 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_18_00_48 : ALL 2 TESTS SUCCESSFUL
-2019_04_29_20_54_32 : FAILED 1/1 TESTS:  perl_syntax
-2019_04_29_20_56_54 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_20_57_01 : ALL 2 TESTS SUCCESSFUL
-2019_04_29_20_58_00 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_20_58_06 : ALL 2 TESTS SUCCESSFUL
-2019_04_29_20_58_42 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_20_58_47 : ALL 2 TESTS SUCCESSFUL
-2019_04_29_21_05_42 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_21_06_42 : FAILED 1/2 TESTS:  ll_abort_cgi_context
-2019_04_29_21_07_08 : ALL 1 TESTS SUCCESSFUL
-2019_04_29_21_07_14 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_00_18_00 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_00_18_16 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_00_19_51 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_00_19_59 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_00_20_13 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_00_20_22 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_00_21_16 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_00_21_22 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_00_22_13 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_00_22_22 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_01_08_37 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_21_22_13 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_21_22_19 : FAILED 1/2 TESTS:  ll_regexmess_truncate_long_message2
-2019_05_16_21_23_12 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_21_23_16 : FAILED 1/2 TESTS:  ll_regexmess_truncate_long_message2
-2019_05_16_21_24_11 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_21_24_29 : ALL 2 TESTS SUCCESSFUL
-2019_05_16_21_25_07 : ALL 1 TESTS SUCCESSFUL
-2019_05_16_21_25_20 : ALL 2 TESTS SUCCESSFUL
-2019_05_17_07_28_52 : ALL 1 TESTS SUCCESSFUL
-2019_05_17_07_28_56 : FAILED 1/2 TESTS:  ll_regexmess_truncate_long_message
-2019_05_17_10_13_01 : ALL 1 TESTS SUCCESSFUL
-2019_05_17_10_13_14 : ALL 2 TESTS SUCCESSFUL
-2019_05_19_11_30_24 : ALL 1 TESTS SUCCESSFUL
-2019_05_19_11_30_49 : ALL 2 TESTS SUCCESSFUL
-2019_05_21_23_51_43 : ALL 1 TESTS SUCCESSFUL
-2019_05_21_23_51_46 : FAILED 1/2 TESTS:  ll_regexmess_truncate_long_message_truncmess
-2019_05_21_23_52_36 : ALL 1 TESTS SUCCESSFUL
-2019_05_21_23_52_55 : ALL 2 TESTS SUCCESSFUL
-2019_05_22_00_13_39 : ALL 1 TESTS SUCCESSFUL
-2019_05_22_00_13_47 : ALL 2 TESTS SUCCESSFUL
-2019_05_27_20_32_29 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_20_32_38 : ALL 2 TESTS SUCCESSFUL
-2019_05_27_20_33_18 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_20_33_23 : ALL 2 TESTS SUCCESSFUL
-2019_05_27_20_39_20 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_20_39_25 : ALL 2 TESTS SUCCESSFUL
-2019_05_27_20_53_57 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_20_54_08 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_21_57_49 : FAILED 1/154 TESTS:  tail
-2019_05_27_23_26_46 : ALL 1 TESTS SUCCESSFUL
-2019_05_27_23_27_11 : ALL 2 TESTS SUCCESSFUL
-2019_06_04_10_59_20 : ALL 1 TESTS SUCCESSFUL
-2019_06_04_11_39_40 : FAILED 1/154 TESTS:  tail
-2019_06_04_14_04_20 : ALL 1 TESTS SUCCESSFUL
-2019_06_04_14_04_25 : FAILED 1/2 TESTS:  tail
-2019_06_05_00_44_16 : ALL 1 TESTS SUCCESSFUL
-2019_06_05_00_44_21 : FAILED 1/2 TESTS:  tail
-2019_06_05_00_48_04 : ALL 1 TESTS SUCCESSFUL
-2019_06_05_00_48_29 : ALL 2 TESTS SUCCESSFUL
-2019_06_05_00_51_32 : ALL 1 TESTS SUCCESSFUL
-2019_06_05_00_51_37 : ALL 2 TESTS SUCCESSFUL
-2019_06_05_00_54_11 : ALL 1 TESTS SUCCESSFUL
-2019_06_05_00_54_18 : ALL 1 TESTS SUCCESSFUL
-2019_06_05_00_54_23 : ALL 2 TESTS SUCCESSFUL
-2019_06_05_01_34_33 : ALL 156 TESTS SUCCESSFUL
-2019_06_13_13_52_56 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_13_53_44 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_13_53_50 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_13_54_01 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_13_58_19 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_13_58_22 : FAILED 1/2 TESTS:  ll_maxage_0_float_5min
-2019_06_13_13_58_50 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_13_58_53 : FAILED 1/2 TESTS:  ll_maxage_0_float_5min
-2019_06_13_13_59_16 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_13_59_27 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_00_02 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_00_17 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_00_41 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_00_49 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_51_49 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_52_01 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_52_24 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_52_25 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_52_31 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_52_49 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_54_15 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_54_18 : FAILED 1/2 TESTS:  ll_maxage_0_float_1min
-2019_06_13_14_54_36 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_54_47 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_54_53 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_54_53 : ALL 2 TESTS SUCCESSFUL
-2019_06_13_14_54_57 : ALL 1 TESTS SUCCESSFUL
-2019_06_13_14_55_23 : ALL 2 TESTS SUCCESSFUL
-2019_06_14_09_06_06 : ALL 1 TESTS SUCCESSFUL
-2019_06_14_09_06_07 : ALL 2 TESTS SUCCESSFUL
-2019_06_14_09_06_11 : ALL 1 TESTS SUCCESSFUL
-2019_06_14_09_07_04 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_13_52_48 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_13_54_01 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_14_07_25 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_07_29 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_14_08_51 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_08_57 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_14_22_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_24_33 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_27_23 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_27_29 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_14_32_12 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_33_16 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_14_33_50 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_26_52 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_27_04 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_28_08 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_28_24 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_29_48 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_30_01 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_30_52 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_31_04 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_31_43 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_31_56 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_32_30 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_32_42 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_34_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_34_24 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_37_39 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_38_05 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_38_11 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_38_31 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_38_35 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_39_07 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_39_24 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_43_11 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_43_22 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_43_49 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_44_01 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_44_19 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_44_30 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_44_44 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_44_52 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_48_21 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_48_37 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_49_15 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_49_27 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_49_40 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_49_52 : FAILED 1/2 TESTS:  l_office365_maxline_3
-2019_06_17_15_50_19 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_50_27 : ALL 2 TESTS SUCCESSFUL
-2019_06_17_15_52_08 : ALL 1 TESTS SUCCESSFUL
-2019_06_17_15_52_57 : ALL 2 TESTS SUCCESSFUL
-2019_06_20_00_39_09 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_00_39_19 : FAILED 1/2 TESTS:  ksks_password_doublequote
-2019_06_20_00_40_30 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_00_40_48 : FAILED 1/2 TESTS:  ksks_empty_test1
-2019_06_20_00_40_58 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_00_41_04 : ALL 2 TESTS SUCCESSFUL
-2019_06_20_00_46_25 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_00_46_33 : ALL 2 TESTS SUCCESSFUL
-2019_06_20_00_49_08 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_00_51_08 : ALL 2 TESTS SUCCESSFUL
-2019_06_20_15_57_51 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_15_58_48 : FAILED 1/2 TESTS:  ksks_empty_test1
-2019_06_20_15_59_14 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_16_00_02 : FAILED 1/3 TESTS:  ksks_empty_test2
-2019_06_20_16_00_09 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_16_00_24 : ALL 3 TESTS SUCCESSFUL
-2019_06_20_17_33_46 : ALL 1 TESTS SUCCESSFUL
-2019_06_20_18_14_09 : FAILED 1/156 TESTS:  ll_justfolders_delete1emptyfolders
-2019_06_25_00_21_30 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_00_22_49 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_00_24_33 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_00_24_42 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_00_26_27 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_00_26_36 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_00_28_25 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_00_28_27 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_01_15_16 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_01_15_31 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_01_30_58 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_01_31_09 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_10_33_54 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_10_34_17 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_37_19 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_38_45 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_39_14 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_39_14 : FAILED 1/2 TESTS:  ksks_init_test2
-2019_06_25_17_39_24 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_39_32 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_42_33 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_42_41 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_45_41 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_45_49 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_47_49 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_49_03 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_49_48 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_49_54 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_17_58_43 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_17_58_51 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_18_01_28 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_18_01_36 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_18_04_22 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_18_04_32 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_18_29_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_18_29_20 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_18_31_04 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_18_31_11 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_22_09_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_22_09_22 : ALL 2 TESTS SUCCESSFUL
-2019_06_25_22_43_56 : ALL 1 TESTS SUCCESSFUL
-2019_06_25_22_44_04 : ALL 2 TESTS SUCCESSFUL
-2019_06_26_13_45_04 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_13_45_41 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_13_45_50 : ALL 2 TESTS SUCCESSFUL
-2019_06_26_21_47_41 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_22_37_08 : FAILED 1/157 TESTS:  ll_justfolders_delete1emptyfolders
-2019_06_26_23_13_29 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_23_14_15 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_06_26_23_17_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_23_17_30 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_06_26_23_22_14 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_23_22_31 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_06_26_23_23_41 : ALL 1 TESTS SUCCESSFUL
-2019_06_26_23_23_58 : ALL 2 TESTS SUCCESSFUL
-2019_06_26_23_35_31 : ALL 1 TESTS SUCCESSFUL
-2019_06_27_00_15_30 : ALL 157 TESTS SUCCESSFUL
-2019_06_27_00_22_07 : ALL 1 TESTS SUCCESSFUL
-2019_06_27_00_35_49 : ALL 1 TESTS SUCCESSFUL
-2019_06_27_01_15_17 : ALL 157 TESTS SUCCESSFUL
-2019_06_28_20_24_14 : FAILED 1/1 TESTS:  perl_syntax
-2019_06_28_20_24_38 : ALL 1 TESTS SUCCESSFUL
-2019_06_28_20_25_22 : FAILED 1/2 TESTS:  ll_with_errors
-2019_06_28_21_11_02 : ALL 1 TESTS SUCCESSFUL
-2019_06_28_21_11_12 : FAILED 1/2 TESTS:  ll_with_errors
-2019_06_30_21_14_13 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_21_15_23 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_21_15_31 : ALL 2 TESTS SUCCESSFUL
-2019_06_30_21_18_02 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_21_18_09 : ALL 2 TESTS SUCCESSFUL
-2019_06_30_21_26_15 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_03_07 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_32_55 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_33_02 : ALL 2 TESTS SUCCESSFUL
-2019_06_30_23_34_34 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_34_41 : ALL 2 TESTS SUCCESSFUL
-2019_06_30_23_41_17 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_41_24 : ALL 2 TESTS SUCCESSFUL
-2019_06_30_23_52_35 : ALL 1 TESTS SUCCESSFUL
-2019_06_30_23_52_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_00_12_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_00_12_53 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_00_41_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_00_41_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_15_17_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_15_17_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_16_14_26 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_16_14_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_16_14_51 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_16_15_31 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_16_30_47 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_16_31_53 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_12_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_13_43 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_16_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_16_40 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_17_10 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_17_19 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_32_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_32_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_41_58 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_43_09 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_43_33 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_43_50 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_44_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_45_02 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_45_21 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_45_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_45_38 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_46_20 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_18_48_42 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_18_49_32 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_20_18_11 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_20_18_53 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_22_01_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_22_01_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_01_22_05_59 : ALL 1 TESTS SUCCESSFUL
-2019_07_01_22_06_07 : ALL 2 TESTS SUCCESSFUL
-2019_07_02_21_25_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_02_21_26_13 : ALL 2 TESTS SUCCESSFUL
-2019_07_02_21_28_46 : ALL 1 TESTS SUCCESSFUL
-2019_07_02_21_28_51 : ALL 2 TESTS SUCCESSFUL
-2019_07_02_21_30_00 : ALL 1 TESTS SUCCESSFUL
-2019_07_02_21_30_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_02_21_30_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_02_21_30_29 : ALL 2 TESTS SUCCESSFUL
-2019_07_03_14_53_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_03_14_53_16 : FAILED 1/2 TESTS:  ll_empty_test2
-2019_07_03_14_55_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_03_14_55_30 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_01_07_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_01_07_45 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_04_26_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_04_26_53 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_04_32_26 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_04_32_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_04_43_15 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_04_43_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_13_45_18 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_13_45_29 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_13_58_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_13_59_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_14_08_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_14_08_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_14_44_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_14_44_28 : ALL 2 TESTS SUCCESSFUL
-2019_07_04_17_21_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_04_17_21_45 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_14_26_43 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_14_26_53 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_14_27_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_14_29_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_14_42_18 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_14_42_27 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_14_46_50 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_14_46_59 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_15_45_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_15_45_31 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_15_51_25 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_15_52_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_15_52_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_15_52_27 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_16_03_13 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_16_03_22 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_16_19_18 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_16_19_27 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_16_24_15 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_16_24_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_23_12_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_23_12_43 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_23_28_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_23_28_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_05_23_35_41 : ALL 1 TESTS SUCCESSFUL
-2019_07_05_23_35_51 : ALL 2 TESTS SUCCESSFUL
-2019_07_06_13_09_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_06_13_09_58 : ALL 2 TESTS SUCCESSFUL
-2019_07_06_17_00_33 : ALL 1 TESTS SUCCESSFUL
-2019_07_06_17_00_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_07_23_09_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_07_23_10_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_07_23_34_14 : ALL 1 TESTS SUCCESSFUL
-2019_07_07_23_34_22 : ALL 2 TESTS SUCCESSFUL
-2019_07_07_23_39_28 : ALL 1 TESTS SUCCESSFUL
-2019_07_07_23_39_36 : ALL 2 TESTS SUCCESSFUL
-2019_07_07_23_41_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_07_23_41_50 : ALL 2 TESTS SUCCESSFUL
-2019_07_09_16_01_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_09_16_02_10 : ALL 2 TESTS SUCCESSFUL
-2019_07_09_19_34_54 : ALL 1 TESTS SUCCESSFUL
-2019_07_09_19_35_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_09_20_11_00 : ALL 1 TESTS SUCCESSFUL
-2019_07_09_20_11_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_09_20_23_41 : ALL 1 TESTS SUCCESSFUL
-2019_07_09_20_23_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_09_22_46_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_09_22_46_32 : ALL 2 TESTS SUCCESSFUL
-2019_07_10_22_02_28 : ALL 1 TESTS SUCCESSFUL
-2019_07_10_22_02_37 : ALL 2 TESTS SUCCESSFUL
-2019_07_11_00_52_03 : ALL 1 TESTS SUCCESSFUL
-2019_07_11_00_53_46 : ALL 2 TESTS SUCCESSFUL
-2019_07_14_19_55_10 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_14_19_55_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_14_19_56_35 : ALL 1 TESTS SUCCESSFUL
-2019_07_14_19_56_44 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_11_52 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_11_57 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_12_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_13_00 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_13_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_13_38 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_19_14 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_19_18 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_23_12 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_23_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_35_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_35_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_39_09 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_39_20 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_00_41_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_00_41_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_01_59_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_01_59_12 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_01_59_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_01_59_28 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_02_06_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_02_14_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_02_14_33 : FAILED 1/2 TESTS:  ll_authmech_X_MASTERAUTH
-2019_07_15_02_47_31 : ALL 157 TESTS SUCCESSFUL
-2019_07_15_03_06_00 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_03_06_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_03_07_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_03_07_41 : ALL 2 TESTS SUCCESSFUL
-2019_07_15_03_12_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_15_03_57_01 : ALL 157 TESTS SUCCESSFUL
-2019_07_16_05_12_39 : ALL 1 TESTS SUCCESSFUL
-2019_07_16_05_15_56 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_02_48_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_02_49_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_02_49_31 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_02_49_59 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_02_51_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_02_51_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_02_55_58 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_02_56_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_05_57_51 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_06_38_11 : FAILED 1/157 TESTS:  ll_subscribed
-2019_07_17_17_05_15 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_17_07_11 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_17_44_05 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_17_44_10 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_19_56_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_20_10_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_20_11_31 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_20_17_00 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_20_17_59 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_20_19_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_20_20_46 : ALL 2 TESTS SUCCESSFUL
-2019_07_17_20_28_08 : ALL 1 TESTS SUCCESSFUL
-2019_07_17_20_29_14 : ALL 2 TESTS SUCCESSFUL
-2019_07_18_05_05_08 : ALL 1 TESTS SUCCESSFUL
-2019_07_18_05_05_18 : ALL 2 TESTS SUCCESSFUL
-2019_07_18_05_08_08 : ALL 1 TESTS SUCCESSFUL
-2019_07_18_05_08_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_18_05_37_25 : ALL 1 TESTS SUCCESSFUL
-2019_07_18_05_37_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_18_05_46_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_18_17_20_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_18_17_20_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_02_06_10 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_02_47_37 : ALL 157 TESTS SUCCESSFUL
-2019_07_21_03_24_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_03_30_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_10_57_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_10_58_56 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_10_59_15 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_10_59_29 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_00_47 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_00_54 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_07_41 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_07_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_13_51 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_21_11_16_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_16_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_40_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_40_24 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_40_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_40_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_41_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_41_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_49_34 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_21_11_50_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_50_46 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_51_56 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_52_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_11_53_28 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_21_11_54_28 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_11_54_35 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_12_00_04 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_12_00_11 : ALL 2 TESTS SUCCESSFUL
-2019_07_21_12_01_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_21_12_01_44 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_33_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_33_39 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_34_05 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_34_11 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_36_35 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_36_43 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_37_43 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_37_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_40_45 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_22_15_43_00 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_43_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_15_44_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_15_44_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_03_28 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_03_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_05_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_05_50 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_10_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_10_24 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_16_30 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_16_35 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_17_50 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_17_55 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_28_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_28_27 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_28_46 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_29_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_29_40 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_32_38 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_32_47 : ALL 2 TESTS SUCCESSFUL
-2019_07_22_21_32_53 : ALL 1 TESTS SUCCESSFUL
-2019_07_22_21_33_58 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_38_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_39_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_39_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_39_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_39_58 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_41_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_44_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_44_51 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_47_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_47_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_48_31 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_49_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_49_19 : FAILED 1/2 TESTS:  ll_search2_NOT_OR_OR_UID
-2019_07_24_20_49_53 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_51_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_51_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_51_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_52_03 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_52_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_52_36 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_53_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_53_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_20_53_50 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_20_54_05 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_09_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_09_54 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_12_21 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_24_21_12_41 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_24_21_12_54 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_24_21_13_19 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_24_21_13_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_13_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_13_53 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_14_08 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_14_46 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_15_01 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_24_54 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_25_15 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_32_32 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_24_21_33_02 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_33_15 : ALL 2 TESTS SUCCESSFUL
-2019_07_24_21_42_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_24_21_42_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_00_23_03 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_00_23_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_27_42 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_29_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_38_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_38_19 : FAILED 1/3 TESTS:  titi
-2019_07_25_14_38_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_38_23 : FAILED 1/3 TESTS:  titi
-2019_07_25_14_40_21 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_40_21 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_40_26 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_40_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_40_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_40_30 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_40_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_41_21 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_45_43 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_46_24 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_50_51 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_51_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_14_58_33 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_14_58_49 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_15_01_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_15_01_34 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_15_03_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_15_03_49 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_15_04_32 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_15_04_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_15_04_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_15_04_36 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_15_17_41 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_15_18_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_16_59_13 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_17_00_02 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_17_51_42 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_17_51_57 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_18_03_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_18_04_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_18_05_20 : ALL 2 TESTS SUCCESSFUL
-2019_07_25_18_29_33 : ALL 1 TESTS SUCCESSFUL
-2019_07_25_19_10_24 : FAILED 3/157 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2019_07_26_00_53_21 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_00_54_27 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_00_54_56 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_00_56_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_00_56_14 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_00_57_35 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_00_57_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_02_18 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_02_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_03_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_03_21 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_05_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_05_44 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_08_05 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_08_10 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_16_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_17_00 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_19_59 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_20_18 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_22_14 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_22_27 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_27_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_28_09 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_31_29 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_31_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_01_34_01 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_01_34_14 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_09_29_41 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_09_30_48 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_09_55_25 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_09_55_30 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_10_34_48 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_26_10_36_46 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_36_51 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_10_38_35 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_40_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_40_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_10_41_38 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_43_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_44_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_10_45_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_11_24_51 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_11_27_32 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_11_27_43 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_11_30_21 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_11_30_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_11_32_28 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_12_13_31 : FAILED 5/157 TESTS:  first_sync_dry first_sync yahoo_all ll_justfolders_delete1emptyfolders ll_sep2
-2019_07_26_12_54_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_13_01_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_26_21_21_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_26_21_21_32 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_05_27_08 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_27_05_52_36 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_27_06_01_38 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_01_49 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_03_37 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_03_49 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_05_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_05_35 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_06_31 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_06_41 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_09_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_10_02 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_10_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_11_14 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_11_49 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_12_12 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_12_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_12_54 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_29_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_30_07 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_31_06 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_31_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_33_18 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_33_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_34_21 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_41_25 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_06_43_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_06_44_03 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_02_44 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_03_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_08_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_08_14 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_09_30 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_09_30 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist!
-2019_07_27_10_09_45 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_09_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_10_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_11_03 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_13_59 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_14_06 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_10_15_05 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_10_15_16 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_08_43 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_08_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_19_02 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_19_09 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_21_26 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_21_33 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_34_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_34_47 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_35_32 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_36_10 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_36_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_36_37 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_36_47 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_36_57 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_37_06 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_37_17 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_37_26 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_37_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_38_20 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_39_03 : ALL 2 TESTS SUCCESSFUL
-2019_07_27_11_41_04 : ALL 1 TESTS SUCCESSFUL
-2019_07_27_11_41_15 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_02_51_54 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_02_52_19 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_02_53_54 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_02_54_15 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_02_57_40 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_02_58_20 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_00_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_01_18 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_07_42 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_08_24 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_10_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_11_37 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_14_08 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_14_17 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_18_39 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_18_46 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_18_54 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_19_26 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_24_14 : FAILED 1/1 TESTS:  perl_syntax
-2019_07_28_03_25_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_25_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_27_22 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_27_52 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_32_34 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_32_35 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_32_38 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_32_39 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_32_55 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_33_07 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_35_24 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_35_24 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_35_36 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_36_07 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_37_57 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_37_57 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_38_01 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_38_01 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_03_38_08 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_38_09 : ALL 4 TESTS SUCCESSFUL
-2019_07_28_03_38_16 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_03_38_28 : ALL 2 TESTS SUCCESSFUL
-2019_07_28_04_17_19 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_04_17_20 : ALL 4 TESTS SUCCESSFUL
-2019_07_28_04_17_23 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_04_17_23 : ALL 4 TESTS SUCCESSFUL
-2019_07_28_04_17_27 : ALL 1 TESTS SUCCESSFUL
-2019_07_28_04_17_42 : ALL 2 TESTS SUCCESSFUL
-2019_07_29_08_42_09 : ALL 1 TESTS SUCCESSFUL
-2019_07_29_09_26_18 : FAILED 7/157 TESTS:  first_sync_dry first_sync yahoo_all ll_justfolders_delete1emptyfolders ll_sep2 ll_domino1_domino2 ll_domino2
-2019_07_29_10_11_07 : ALL 1 TESTS SUCCESSFUL
-2019_07_29_10_14_23 : ALL 2 TESTS SUCCESSFUL
-2019_07_30_00_39_42 : ALL 1 TESTS SUCCESSFUL
-2019_07_30_00_39_51 : ALL 2 TESTS SUCCESSFUL
-2019_07_30_11_17_17 : ALL 1 TESTS SUCCESSFUL
-2019_07_31_15_02_48 : ALL 1 TESTS SUCCESSFUL
-2019_07_31_15_02_55 : ALL 2 TESTS SUCCESSFUL
-2019_07_31_17_57_02 : ALL 1 TESTS SUCCESSFUL
-2019_07_31_17_57_09 : ALL 2 TESTS SUCCESSFUL
-2019_07_31_19_05_39 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_03_19_29 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_04_03_21 : FAILED 7/157 TESTS:  first_sync_dry first_sync yahoo_all ll_justfolders_delete1emptyfolders ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_01_04_43_05 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_04_47_48 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_18_46_50 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_47_21 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2019_08_01_18_47_40 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_48_02 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_49_31 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_54_01 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_54_07 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2019_08_01_18_54_37 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_54_43 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2019_08_01_18_55_35 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_55_41 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2019_08_01_18_59_33 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_18_59_38 : FAILED 1/2 TESTS:  ll_regexmess_add_header
-2019_08_01_19_00_46 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_19_00_52 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_19_04_07 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_19_04_12 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_19_07_02 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_19_07_06 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_20_35_48 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_35_54 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_20_40_38 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_40_44 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_20_44_20 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_44_29 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_45_23 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_45_27 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_46_51 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_46_55 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_47_02 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_47_08 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_20_49_16 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_49_19 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_51_11 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_51_15 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_52_35 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_52_40 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_53_17 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_53_21 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_20_53_44 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_20_53_48 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_16_30 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_16_35 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_23_45 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_23_49 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_31_26 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_31_30 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_31_41 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_31_46 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_21_34_26 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_34_31 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_37_45 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_37_51 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_39_00 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_39_07 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_01_21_39_35 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_21_39_41 : ALL 2 TESTS SUCCESSFUL
-2019_08_01_21_41_42 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_22_24_04 : FAILED 7/159 TESTS:  first_sync_dry first_sync yahoo_all ll_justfolders_delete1emptyfolders ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_01_22_36_10 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_22_39_03 : FAILED 7/8 TESTS:  first_sync_dry first_sync yahoo_all ll_justfolders_delete1emptyfolders ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_01_22_39_18 : ALL 1 TESTS SUCCESSFUL
-2019_08_01_22_39_24 : FAILED 1/2 TESTS:  ll_domino2
-2019_08_02_13_58_44 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_13_59_03 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_00_38 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_00_44 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_01_40 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_01_45 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_03_56 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_04_02 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_04_33 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_04_40 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_06_14 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_06_27 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_14_17_30 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_17_36 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_02_14_25_00 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_25_16 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_02_14_25_57 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_14_26_05 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_02_15_51_14 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_51_28 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_52_54 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_53_04 : FAILED 1/2 TESTS:  ll_regexmess_add_header_path
-2019_08_02_15_54_40 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_54_52 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_55_09 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_55_29 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_55_49 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_55_56 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_57_55 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_58_03 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_59_16 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_15_59_22 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_15_59_56 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_16_00_12 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_16_02_10 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_16_02_21 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_20_59_29 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_20_59_55 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_21_01_38 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_01_42 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_21_03_00 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_03_05 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist
-2019_08_02_21_12_13 : FAILED 1/1 TESTS:  perl_syntax
-2019_08_02_21_12_52 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_12_56 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist
-2019_08_02_21_14_24 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_14_28 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist
-2019_08_02_21_15_46 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_15_51 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist
-2019_08_02_21_17_48 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_17_53 : FAILED 1/2 TESTS:  ll_justfoldersizes_noexist
-2019_08_02_21_18_39 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_21_18_44 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_21_19_58 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_22_18_53 : FAILED 4/160 TESTS:  yahoo_all ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_02_22_22_43 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_22_22_52 : ALL 2 TESTS SUCCESSFUL
-2019_08_02_22_34_41 : ALL 1 TESTS SUCCESSFUL
-2019_08_02_23_18_10 : FAILED 4/160 TESTS:  first_sync_dry ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_03_01_48_18 : ALL 1 TESTS SUCCESSFUL
-2019_08_03_02_31_26 : FAILED 4/160 TESTS:  first_sync_dry ll_sep2 ll_domino1_domino2 ll_domino2
-2019_08_03_03_13_59 : ALL 1 TESTS SUCCESSFUL
-2019_08_03_03_19_02 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_36_15 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_36_24 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_37_08 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_37_15 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_38_09 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_38_17 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_39_26 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_39_30 : FAILED 1/2 TESTS:  firstclass
-2019_08_10_12_40_08 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_40_33 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_43_38 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_44_01 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_47_48 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_48_12 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_50_18 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_50_43 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_12_59_50 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_12_59_52 : FAILED 1/2 TESTS:  firstclass_fullfill
-2019_08_10_13_02_25 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_02_42 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_13_03_15 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_03_43 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_04_01 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_13_04_07 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_04_33 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_13_05_29 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_05_46 : ALL 2 TESTS SUCCESSFUL
-2019_08_10_13_06_36 : ALL 1 TESTS SUCCESSFUL
-2019_08_10_13_07_02 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_11_40_36 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_11_40_51 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_11_42_54 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_11_42_59 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_11_47_58 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_11_48_03 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_11_49_05 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_11_49_10 : FAILED 1/2 TESTS:  ll_justfolders_skipemptyfolders
-2019_08_29_11_55_17 : FAILED 1/1 TESTS:  perl_syntax
-2019_08_29_11_58_33 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_11_58_38 : FAILED 1/2 TESTS:  ll_justfolders_skipemptyfolders
-2019_08_29_19_10_36 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_10_45 : FAILED 1/2 TESTS:  ll_justfolders_skipemptyfolders
-2019_08_29_19_12_06 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_12_45 : FAILED 1/2 TESTS:  ll_delete1_delete1emptyfolders
-2019_08_29_19_15_03 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_15_26 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_21_00 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_21_17 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_21_58 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_22_03 : FAILED 1/2 TESTS:  ll_justfolders_skipemptyfolders
-2019_08_29_19_23_46 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_23_51 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_30_05 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_30_12 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_30_24 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_30_44 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_34_30 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_34_47 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_35_33 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_39_14 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_19_39_19 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_19_41_34 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_20_27_41 : FAILED 2/160 TESTS:  yahoo_all ll_justfolders_delete1emptyfolders
-2019_08_29_22_20_12 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_22_12 : FAILED 1/3 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_23_10 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_23_27 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_26_52 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_27_09 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_40_17 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_40_38 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_40_55 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_41_06 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_41_10 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_41_21 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_43_49 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_44_06 : FAILED 1/2 TESTS:  ll_justfolders_delete1emptyfolders
-2019_08_29_22_48_28 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_48_51 : ALL 2 TESTS SUCCESSFUL
-2019_08_29_22_48_58 : ALL 1 TESTS SUCCESSFUL
-2019_08_29_22_49_16 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_11_12_28 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_11_12_29 : FAILED 1/2 TESTS:  abort_tests
-2019_09_11_13_56_05 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_13_56_23 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_14_05_29 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_14_05_47 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_14_15_14 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_14_15_24 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_14_19_16 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_14_19_22 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_17_06_50 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_17_06_56 : ALL 2 TESTS SUCCESSFUL
-2019_09_11_23_13_46 : ALL 1 TESTS SUCCESSFUL
-2019_09_11_23_13_53 : ALL 2 TESTS SUCCESSFUL
-2019_09_12_02_50_23 : ALL 1 TESTS SUCCESSFUL
-2019_09_12_02_50_32 : ALL 2 TESTS SUCCESSFUL
-2019_09_12_02_58_26 : ALL 1 TESTS SUCCESSFUL
-2019_09_12_02_58_33 : ALL 2 TESTS SUCCESSFUL
-2019_09_12_02_59_21 : ALL 1 TESTS SUCCESSFUL
-2019_09_12_02_59_27 : ALL 2 TESTS SUCCESSFUL
-2019_09_12_03_15_52 : ALL 1 TESTS SUCCESSFUL
-2019_09_12_03_15_59 : ALL 2 TESTS SUCCESSFUL
-2019_09_16_21_56_34 : ALL 1 TESTS SUCCESSFUL
-2019_09_16_21_56_59 : ALL 2 TESTS SUCCESSFUL
-2019_09_17_00_22_50 : ALL 1 TESTS SUCCESSFUL
-2019_09_17_00_22_55 : FAILED 1/2 TESTS:  abort_tests
-2019_09_17_00_26_25 : ALL 1 TESTS SUCCESSFUL
-2019_09_17_00_26_28 : FAILED 1/2 TESTS:  ll_abort_noprocess
-2019_09_18_01_06_12 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_06_17 : FAILED 1/2 TESTS:  abort_tests
-2019_09_18_01_07_13 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_07_26 : FAILED 1/2 TESTS:  abort_tests
-2019_09_18_01_24_21 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_24_33 : FAILED 1/2 TESTS:  abort_tests
-2019_09_18_01_35_25 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_35_40 : FAILED 1/2 TESTS:  abort_tests
-2019_09_18_01_44_20 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_44_32 : FAILED 1/2 TESTS:  abort_tests
-2019_09_18_01_45_58 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_46_07 : FAILED 1/2 TESTS:  ll_abort
-2019_09_18_01_47_41 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_47_47 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_01_51_02 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_51_08 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_01_51_20 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_51_28 : FAILED 1/2 TESTS:  ll_abort
-2019_09_18_01_56_26 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_56_34 : FAILED 1/2 TESTS:  ll_abort_no_pidfile_option
-2019_09_18_01_57_51 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_01_57_57 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_02_05_31 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_02_05_38 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_02_05_49 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_02_05_55 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_02_07_53 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_02_07_59 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_02_08_49 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_02_08_55 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_08_45_27 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_08_45_39 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_09_21_21 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_09_21_28 : FAILED 1/2 TESTS:  ll_abort
-2019_09_18_09_24_42 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_09_24_49 : FAILED 1/2 TESTS:  ll_abort
-2019_09_18_09_27_49 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_09_27_55 : FAILED 1/2 TESTS:  ll_abort
-2019_09_18_09_29_12 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_09_29_19 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_09_30_23 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_09_30_50 : ALL 2 TESTS SUCCESSFUL
-2019_09_18_23_48_12 : ALL 1 TESTS SUCCESSFUL
-2019_09_18_23_48_22 : ALL 2 TESTS SUCCESSFUL
-2019_09_19_09_40_54 : ALL 1 TESTS SUCCESSFUL
-2019_09_19_10_27_06 : FAILED 1/161 TESTS:  option_tests
-2019_09_19_10_31_06 : ALL 1 TESTS SUCCESSFUL
-2019_09_19_10_31_37 : FAILED 1/2 TESTS:  option_tests
-2019_09_19_10_33_14 : ALL 1 TESTS SUCCESSFUL
-2019_09_19_10_33_50 : FAILED 1/2 TESTS:  option_tests
-2019_09_19_15_37_26 : ALL 1 TESTS SUCCESSFUL
-2019_09_19_15_37_53 : ALL 2 TESTS SUCCESSFUL
-2019_10_18_15_29_40 : ALL 1 TESTS SUCCESSFUL
-2019_10_18_15_30_11 : ALL 2 TESTS SUCCESSFUL
-2019_10_18_15_30_48 : ALL 1 TESTS SUCCESSFUL
-2019_10_18_15_31_05 : ALL 2 TESTS SUCCESSFUL
-2019_10_22_13_27_05 : ALL 1 TESTS SUCCESSFUL
-2019_10_22_13_27_22 : FAILED 1/2 TESTS:  ll_regextrans2_archive_per_year_flat_hard_year
-2019_10_22_13_29_36 : ALL 1 TESTS SUCCESSFUL
-2019_11_13_23_47_26 : ALL 1 TESTS SUCCESSFUL
-2019_11_13_23_48_08 : ALL 2 TESTS SUCCESSFUL
-2019_11_13_23_49_06 : ALL 1 TESTS SUCCESSFUL
-2019_11_13_23_49_22 : ALL 2 TESTS SUCCESSFUL
-2019_11_13_23_50_00 : ALL 1 TESTS SUCCESSFUL
-2019_11_13_23_50_14 : ALL 2 TESTS SUCCESSFUL
-2019_11_13_23_51_57 : ALL 1 TESTS SUCCESSFUL
-2019_11_13_23_52_05 : ALL 2 TESTS SUCCESSFUL
-2019_11_14_12_33_13 : ALL 1 TESTS SUCCESSFUL
-2019_11_14_12_33_54 : ALL 2 TESTS SUCCESSFUL
-2019_11_14_12_34_47 : ALL 1 TESTS SUCCESSFUL
-2019_11_14_12_34_55 : ALL 2 TESTS SUCCESSFUL
-2019_11_14_12_38_16 : ALL 1 TESTS SUCCESSFUL
-2019_11_14_12_43_50 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_12_39_18 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_39_19 : FAILED 5/6 TESTS:  ./W/learn/create_folder localhost titi HUwtEd INBOX.NEW_2
-2019_11_15_12_39_41 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_40_35 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_12_40_50 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_41_07 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_12_41_38 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_41_49 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_12_44_45 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_44_54 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_12_57_36 : FAILED 1/1 TESTS:  perl_syntax
-2019_11_15_12_58_08 : FAILED 1/1 TESTS:  perl_syntax
-2019_11_15_12_58_45 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_12_58_56 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_00_44 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_00_59 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_04_21 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_04_32 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_05_40 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_05_55 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_11_51 : FAILED 1/1 TESTS:  perl_syntax
-2019_11_15_13_13_02 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_13_11 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_15_02 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_15_18 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_18_24 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_18_33 : ALL 2 TESTS SUCCESSFUL
-2019_11_15_13_19_05 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_19_18 : FAILED 1/2 TESTS:  ll_delete2foldersonly_tmp
-2019_11_15_13_19_26 : ALL 1 TESTS SUCCESSFUL
-2019_11_15_13_19_37 : FAILED 1/2 TESTS:  ll_delete2foldersonly_tmp
-2019_11_19_20_42_08 : ALL 1 TESTS SUCCESSFUL
-2019_11_19_20_42_44 : FAILED 1/2 TESTS:  ll_delete2foldersonly_tmp
-2019_11_19_20_44_01 : ALL 1 TESTS SUCCESSFUL
-2019_11_19_20_44_07 : ALL 2 TESTS SUCCESSFUL
-2019_11_19_20_44_13 : ALL 1 TESTS SUCCESSFUL
-2019_11_19_21_32_57 : ALL 161 TESTS SUCCESSFUL
-2019_11_24_18_28_57 : ALL 1 TESTS SUCCESSFUL
-2019_11_24_18_29_21 : ALL 2 TESTS SUCCESSFUL
-2019_11_25_22_52_47 : ALL 1 TESTS SUCCESSFUL
-2019_11_25_22_53_03 : ALL 1 TESTS SUCCESSFUL
-2019_11_25_22_53_15 : ALL 2 TESTS SUCCESSFUL
-2019_11_25_23_15_06 : ALL 1 TESTS SUCCESSFUL
-2019_11_25_23_15_16 : ALL 2 TESTS SUCCESSFUL
-2019_11_25_23_27_46 : ALL 1 TESTS SUCCESSFUL
-2019_11_25_23_27_54 : ALL 2 TESTS SUCCESSFUL
-2019_11_28_12_38_36 : ALL 1 TESTS SUCCESSFUL
-2019_11_28_12_38_56 : ALL 2 TESTS SUCCESSFUL
-2019_11_28_15_56_07 : ALL 1 TESTS SUCCESSFUL
-2019_11_28_16_47_06 : FAILED 3/161 TESTS:  ks_justconnect_ipv6 ks_justconnect_ipv6_nossl testslive6
-2019_11_28_16_55_34 : ALL 1 TESTS SUCCESSFUL
-2019_11_28_17_05_35 : FAILED 2/4 TESTS:  ks_justconnect_ipv6 ks_justconnect_ipv6_nossl
-2019_11_29_10_00_15 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_10_00_15 : FAILED 1/2 TESTS:  tests_mailimapclient_connect
-2019_11_29_10_01_12 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_10_01_42 : ALL 4 TESTS SUCCESSFUL
-2019_11_29_12_40_34 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_14_25_16 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_15_09_06 : FAILED 3/161 TESTS:  yahoo_all ks_justconnect_ipv6_nossl testslive6
-2019_11_29_15_19_59 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_15_24_29 : ALL 4 TESTS SUCCESSFUL
-2019_11_29_15_25_29 : ALL 1 TESTS SUCCESSFUL
-2019_11_29_15_28_32 : ALL 2 TESTS SUCCESSFUL
-2019_12_01_21_34_37 : ALL 1 TESTS SUCCESSFUL
-2019_12_01_21_38_48 : FAILED 1/4 TESTS:  ks_justconnect_ipv6_nossl
-2019_12_01_22_25_15 : ALL 1 TESTS SUCCESSFUL
-2019_12_01_22_28_34 : ALL 4 TESTS SUCCESSFUL
-2019_12_02_11_28_25 : ALL 1 TESTS SUCCESSFUL
-2019_12_02_11_34_33 : FAILED 2/4 TESTS:  ks_justconnect_ipv6_nossl testslive6
-2019_12_02_19_23_38 : ALL 1 TESTS SUCCESSFUL
-2019_12_02_20_08_53 : FAILED 3/159 TESTS:  option_tests_in_var_tmp option_tests_in_var_tmp_sub ks_justconnect_ipv6
-2019_12_03_00_14_54 : ALL 1 TESTS SUCCESSFUL
-2019_12_03_00_16_15 : FAILED 2/4 TESTS:  option_tests_in_var_tmp_sub ks_justconnect_ipv6
-2019_12_03_00_17_36 : ALL 1 TESTS SUCCESSFUL
-2019_12_03_00_18_06 : ALL 2 TESTS SUCCESSFUL
-2019_12_03_00_18_15 : ALL 1 TESTS SUCCESSFUL
-2019_12_03_00_18_29 : ALL 1 TESTS SUCCESSFUL
-2019_12_03_00_23_53 : FAILED 3/4 TESTS:  option_tests_in_var_tmp option_tests_in_var_tmp_sub ks_justconnect_ipv6
-2019_12_06_10_45_32 : ALL 1 TESTS SUCCESSFUL
-2019_12_06_11_28_39 : FAILED 2/159 TESTS:  option_tests_in_var_tmp ks_justconnect_ipv6
-2019_12_06_11_32_47 : ALL 1 TESTS SUCCESSFUL
-2019_12_06_12_19_04 : FAILED 3/158 TESTS:  option_tests option_tests_in_var_tmp option_tests_in_var_tmp_sub
-2019_12_06_15_21_08 : ALL 1 TESTS SUCCESSFUL
-2019_12_06_15_22_30 : ALL 4 TESTS SUCCESSFUL
-2019_12_06_15_28_25 : ALL 1 TESTS SUCCESSFUL
-2019_12_06_15_31_58 : FAILED 1/4 TESTS:  option_tests_in_var_tmp
-2019_12_11_20_06_54 : ALL 1 TESTS SUCCESSFUL
-2019_12_11_21_28_55 : ALL 1 TESTS SUCCESSFUL
-2019_12_11_22_10_46 : FAILED 1/158 TESTS:  option_tests
-2019_12_12_15_15_00 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_16_04_53 : FAILED 1/158 TESTS:  option_tests_in_var_tmp_sub
-2019_12_12_16_35_25 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_16_45_10 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_17_40_39 : FAILED 1/158 TESTS:  option_tests
-2019_12_12_19_55_25 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_19_56_04 : ALL 2 TESTS SUCCESSFUL
-2019_12_12_19_56_27 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_20_00_08 : FAILED 1/8 TESTS:  option_tests
-2019_12_12_20_08_10 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_20_11_59 : ALL 8 TESTS SUCCESSFUL
-2019_12_12_20_28_44 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_21_24_43 : FAILED 1/158 TESTS:  yahoo_all
-2019_12_12_21_29_30 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_22_21_51 : FAILED 2/158 TESTS:  option_tests ll_abort_cgi_context_tail
-2019_12_12_22_22_22 : ALL 1 TESTS SUCCESSFUL
-2019_12_12_23_12_40 : ALL 158 TESTS SUCCESSFUL
-2019_12_12_23_12_55 : ALL 1 TESTS SUCCESSFUL
-2019_12_13_00_04_24 : ALL 158 TESTS SUCCESSFUL
-2019_12_13_00_04_39 : ALL 1 TESTS SUCCESSFUL
-2019_12_13_00_58_38 : ALL 158 TESTS SUCCESSFUL
-2019_12_15_02_00_45 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_02_01_28 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_02_17_41 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_02_18_28 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_02_18_43 : ALL 2 TESTS SUCCESSFUL
-2019_12_15_02_18_56 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_02_57_38 : ALL 158 TESTS SUCCESSFUL
-2019_12_15_23_49_50 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_23_49_59 : FAILED 1/2 TESTS:  ll_justlogin_dollar_char
-2019_12_15_23_56_02 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_23_56_07 : ALL 2 TESTS SUCCESSFUL
-2019_12_15_23_56_41 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_23_56_50 : FAILED 1/2 TESTS:  ll_justlogin_dollar_char
-2019_12_15_23_57_15 : ALL 1 TESTS SUCCESSFUL
-2019_12_15_23_57_19 : ALL 2 TESTS SUCCESSFUL
-2019_12_17_22_20_49 : ALL 1 TESTS SUCCESSFUL
-2019_12_17_22_21_01 : FAILED 1/2 TESTS:  ll_authmech_xoauth2_json_gmail_app
-2019_12_20_17_21_15 : ALL 1 TESTS SUCCESSFUL
-2019_12_20_17_59_52 : ALL 158 TESTS SUCCESSFUL
-2019_12_20_18_50_27 : ALL 1 TESTS SUCCESSFUL
-2019_12_20_18_55_47 : ALL 2 TESTS SUCCESSFUL
-2019_12_21_12_36_50 : ALL 1 TESTS SUCCESSFUL
-2019_12_21_12_42_18 : ALL 2 TESTS SUCCESSFUL
-2020_01_01_22_19_08 : ALL 1 TESTS SUCCESSFUL
-2020_01_01_22_59_11 : ALL 158 TESTS SUCCESSFUL
-2020_01_01_23_08_57 : ALL 1 TESTS SUCCESSFUL
-2020_01_01_23_18_28 : ALL 2 TESTS SUCCESSFUL
-2020_01_02_12_54_08 : ALL 1 TESTS SUCCESSFUL
-2020_01_02_12_58_26 : ALL 2 TESTS SUCCESSFUL
-2020_01_02_13_35_45 : ALL 1 TESTS SUCCESSFUL
-2020_01_02_13_38_50 : ALL 2 TESTS SUCCESSFUL
-2020_01_03_00_48_36 : ALL 1 TESTS SUCCESSFUL
-2020_01_03_00_53_07 : ALL 2 TESTS SUCCESSFUL
-2020_01_03_14_40_29 : ALL 1 TESTS SUCCESSFUL
-2020_01_03_14_45_00 : ALL 2 TESTS SUCCESSFUL
-2020_01_03_23_42_20 : ALL 1 TESTS SUCCESSFUL
-2020_01_04_00_20_39 : ALL 158 TESTS SUCCESSFUL
diff --git a/W/.valid.index.shtml b/W/.valid.index.shtml
deleted file mode 100644
index e69de29..0000000
diff --git a/W/CONCEPTION.txt b/W/CONCEPTION.txt
deleted file mode 100644
index a786035..0000000
--- a/W/CONCEPTION.txt
+++ /dev/null
@@ -1,26 +0,0 @@
-
-===== Synopsis =====
-
-$mailbox_1 = Mail::imapsync::mailbox->new();
-$mailbox_2 = Mail::imapsync::mailbox->new();
-
-
-$mailbox_1->host('imap1.lala.org');
-$mailbox_1->user('toto1');
-...
-
-$mailbox_2->host('imap2.lala.org');
-$mailbox_2->user('toto2');
-...
-
-
-$transfer = Mail::imapsync::transfer->new();
-$transfer->sync($mailbox_1, $mailbox_2);
-
-
-- an object for  mailbox 
-- an object for a transfer
-- ?an object for a folder?
-- ?an object for a message?
-
-
diff --git a/W/LOG_bat/learn_func.bat.txt b/W/LOG_bat/learn_func.bat.txt
deleted file mode 100644
index 73ca616..0000000
--- a/W/LOG_bat/learn_func.bat.txt
+++ /dev/null
@@ -1 +0,0 @@
-Failure running NOEXIST 
diff --git a/W/LOG_bat/test_exe_tests.bat.txt b/W/LOG_bat/test_exe_tests.bat.txt
deleted file mode 100644
index a72f628..0000000
--- a/W/LOG_bat/test_exe_tests.bat.txt
+++ /dev/null
@@ -1 +0,0 @@
-Failure running .\imapsync.exe --tests 
diff --git a/W/Mail-IMAPClient-3.42/Changes b/W/Mail-IMAPClient-3.42/Changes
deleted file mode 100644
index 3158e0c..0000000
--- a/W/Mail-IMAPClient-3.42/Changes
+++ /dev/null
@@ -1,2356 +0,0 @@
-
-== Revision History for Mail::IMAPClient
-Changes from 3.17_01 to ?       made by Phil Pearl (Lobbes)
-Changes from 2.99_01 to 3.16    made by Mark Overmeer
-Changes from 0.09    to 2.99_01 made by David Kernen
-	- Potential compatibility issues from 3.17+ highlighted with '*'
-
-version 3.42: Sun Feb 24 00:43:29 UTC 2019
-	- rt.cpan.org#12859: has_capability() changes in 3.41 broke imap4rev1()
-	  [Gilles Lamiral and Gábor Leszlauer]
-	- updated http:// to https:// URLs for referenced resources
-	- updated copyright for 2019
-
-version 3.41: Thu Feb 21 01:47:42 UTC 2019
-	- rt.cpan.org#128220: unseen(), messages() and related POD cleanup
-	  [Dan Jacobson]
-	- rt.cpan.org#128264: parse_message() minor code/POD cleanup
-	  [Dan Jacobson]
-	- rt.cpan.org#128215: verb missing in messages() POD
-	  [Gilles Lamiral and Dan Jacobson]
-	- rt.cpan.org#127271: simplify capability handling via has_capability enhancements
-	  +* has_capability() success returns(true) with server response data, not always '1'
-	  + enhanced t/capability.t test cases
-	  + updated POD for capability() and has_capability()
-	  [Gilles Lamiral and Mark Overmeer]
-	- rt.cpan.org#122373: use of IO::Socket::IP led to connect(empty args) regression
-	  [Gilles Lamiral]
-	- rt.cpan.org#128127: fix minor POD typo for search()
-	  [Gregor Herrmann]
-	- folders()/subscribed() remove mailboxes with \Noselect attribute
-	  [Ashley Willis]
-	- fetch_hash() remove quotes around header names (seen w/outlook.com)
-	  [Ashley Willis]
-	- use first over grep for minor efficiency gains
-	- other minor POD cleanup
-
-version 3.40: Thu Dec  6 01:44:16 UTC 2018
-	- rt.cpan.org#122373: support IPv6 by using IO::Socket::IP over IO::Socket::INET
-	  [Gilles Lamiral and Mark Overmeer]
-	- rt.cpan.org#127103: flags() undef value as an ARRAY reference on a bogus message
-	  [Gilles Lamiral]
-	- rt.cpan.org#124523: update examples/populate_mailbox.pl timegm usage
-	  [Bernhard M. W.]
-	- t/capability.t: added first set of tests
-	- t/quota.t: minor fix when tests skipped
-
-version 3.39: Fri Feb  3 00:43:00 UTC 2017
-	- rt.cpan.org#115726: uninitialized value via fetch_hash
-	  [Malte Stretz]
-	- rt.cpan.org#119523: better error reporting on failed TLS connections
-	  [Matthew Horsfall]
-	- rt.cpan.org#114904: document noop()
-	  [Glenn Golden]
-	- rt.cpan.org#97718: (redux) never retry DONE
-	  [Laurence Darby]
-	- _imap_command() new doretry => 0|1 option to suppress/allow retry
-	- updated copyright for 2017
-
-version 3.38: Tue Feb  9 02:48:21 UTC 2016
-	- rt.cpan.org#107592: redact credentials via debug if !Showcredentials
-	  [Gilles Lamiral]
-	- rt.cpan.org#110273: failure to quote password values
-	  (regression introduced in 3.36 via fix for rt.cpan.org#100601)
-	  [Gilles Lamiral]
-	- rt.cpan.org#107593: allow getquota("")
-	- *Quote() now returns qq("") for defined but empty values
-	- rt.cpan.org#107011: fix folders_hash() docs and usage in is_parent()
-	  [Gilles Lamiral]
-	- rt.cpan.org#106500: split UID EXPUNGE with a large sequence set
-	- added t/quota.t and t/lib/MyTest.pm for testing
-	- updated copyright for 2016
-
-version 3.37: Fri Aug 14 11:04:53 EDT 2015
-	- regex fix in rt.cpan.org#96575 required Perl 5.10
-	    updated regex to be backwards compatible with Perl 5.8
-	  [Paul Howarth]
-
-version 3.36: Fri Aug 14 01:40:50 UTC 2015
-	- rt.cpan.org#96575: parsing fixes for fetch_hash and bodystructure
-	  + better handling of data containing escaped characters
-	  [Ken Neighbors]
-	- rt.cpan.org#97718: hang waiting for tag if DONE sent outside of IDLE
-	  [Laurence Darby]
-	- rt.cpan.org#100683: failed literal commands hang waiting for '+'
-	  [Matthias Pitzl]
-	- rt.cpan.org#100601: login() fails if username requires use of literals
-	  [Andy Lyttle]
-	- *rt.cpan.org#103823: is_parent() should return undef on \NoInferiors
-	  [Gilles Lamiral]
-	- rt.cpan.org#105456: fetch_hash fails if sequence number contains '*'
-	  + *no longer removing unrequested data (except UID) in returned hashes
-	  [Gilles Lamiral]
-	- rt.cpan.org#91912: selectable broke in 3.29 due to \b around \NoSelect
-	  [Justin Vallon, Gilles Lamiral]
-	- some documentation, test cleanup and new tests
-
-version 3.35: Fri, Nov 22, 2013  2:18:41 PM
-	- *use Quote() over Massage() to avoid stripping double quotes from arg
-	  + removed constant NonFolderArg
-	  + may deprecate Massage() in a future release
-	- _list_or_lsub failed to handle folder names with double quotes
-	  + cleanup Escaped_results()
-	  + new methods: Escaped_history() _escaped_trans_data()
-	  + removed method: _list_response_preprocess()
-	  [Gilles Lamiral, Victor Lé]
-	- rt.cpan.org#90315: getacl on a folder returned as literal failed
-	  + _read_line could remove extra space when literal data was received
-	  [Carl Karcher]
-	- rt.cpan.org#89040: typo fixes
-	  [David Steinbrunner]
-
-version 3.34: Fri, Sep 27, 2013 12:50:17 AM
-	- make Makefile.PL use non-interactive and document test.txt usage
-	- new attribute: Socketargs => [ (IO::Socket::.. args) ]
-	  + cleanup connect() to more flexible with IO::Socket::* args
-	- untagged server data during send literal may cause client to hang
-	  [Arthur Wolfe, Josh Hillman]
-	  + _send_line() needs '+' only to know it is OK to send LITERAL data
-	  + created _response_code_sub() to simplify _get_response()
-	- remove internal "Folders" cache
-	- Allow for RFC 6154 "IMAP LIST Extension for Special-Use Mailboxes"
-	  [Mathias Reitinger]
-	  + new method: folders_hash()
-	  + deprecate: xlist_folders(), xlist()
-
-version 3.33: Tue, May 14, 2013 10:12:43 AM
-	- more cleanup on use of $@ and $!
-	- cleanup get_bodystructure / get_envelope
-	- allow Ssl arg as an arrayref to pass args to IO::Socket::SSL
-	  [Ramana V Mokkapati]
-	- no need to Massage() the folder name in uidnext()
-	- rt.cpan.org#84028: get_envelope() fails when subject ends w/backslash
-	  [Andy Lyttle]
-	- rt.cpan.org#79476: move()/copy() with sequence causes numeric warning
-	  [Oleg G]
-	- *move()/copy() no longer sort message(s) provided by caller
-
-version 3.32: Fri, Aug 10, 2012	 4:43:24 PM
-	- document RFC2087 quota related calls
-	  [Mathias Reitinger] documentation request
-	- rt.cpan.org#78474: idle/idle_data documentation error
-	  [Dima Kogan]
-	- Quote()/Massage() now uses literals for non ascii data
-	  [Mathias Reitinger] reported issues with utf8 data in password
-	- use Quote()/Massage() consistently now in:
-	    login() proxyauth() deleteacl() setacl() listrights() rename()
-	- documented deleteacl() and other minor pod cleanup
-	- ran Mail::IMAPClient::BodyStructure through perltidy
-	- update year in README/pod to 2012
-	- rt.cpan.org#74733: Fails with Parse::RecDescent >= 1.966_002
-	  rt.cpan.org#74593: Recent changes break Module::ExtractUse and ...
-	  [ANDK, TEAM, SREZIC, NBEBOUT at CPAN and nine from detonation]
-	  - Makefile.PL avoid buggy Parse::RecDescent 1.966_002 until 1.967_009
-	- rt.cpan.org#76989: Mail::IMAPClient::BodyStructure usage/docs
-	  [Pierluigi Frullani]
-	  - fix incorrect documentation on new()
-	  - lots of doc verbiage updates
-
-version 3.31: Mon, Mar 19, 2012 11:11:11 AM
-	- rt.cpan.org#74799: Support for partial data responses in fetch_hash
-	  [Philip Garrett]
-	  + bonus: cleaner handling of BODY.PEEK responses
-	- properly handle ALL|FULL|FAST fetch macros in fetch_hash
-
-version 3.30: Fri Nov 11 09:37:00 EST 2011
-	- rt.cpan.org#72347: Starttls array ref argument dereferenced twice
-	  [Jonathan Buhacoff]
-	- during connect(): Port now defaults 143 or 993 if $self->Ssl
-	  [Kodi Arfer]
-	- stop reconnect deep recursion if server disconnects on login
-	  [Luca Ferrario]
-	- reconnect() now returns 1 on success; on error undef or 0=recursive
-	- handle EBADF from syswrite in _send_bytes
-	- rt.cpan.org#67263: add RFC4978 IMAP COMPRESS Extension support
-	  [SDIZ]
-	  + new method: compress()
-	  + new attributes: Compress Readmoremethod
-	- general code cleanup:
-	  + new() now always returns $self or undef (never $sock any more)
-	  + Socket() now always return a socket or undef
-	  + login() now always return $self or undef
-	  + _read_more() will now use Readmoremethod if set
-	- missing second arg '' for encode_base64 causing AUTHENTICATE
-	  PLAIN to fail on lines longer than 76 characters
-	  [Yoshiho Yoshida]
-
-version 3.29: Tue Aug  9 00:33:52 EDT 2011
-	- rt.cpan.org#69876: ENVELOPE as part of fetch_hash convenience method
-	  [Chris Huttman]
-	  + added Mail::IMAPClient::BodyStructure::Envelope->parse_string($str)
-	    convenience method for handling ENVELOPE data from fetch_hash
-	- rt.cpan.org#68310: folders() should not call exists()/STATUS
-	  [Gilles Lamiral]
-	    - affects folders() and subscribed() methods
-	  + use selectable() instead of exists() in call
-	    - consider removing extra call to folders()/subscribed()
-	  + ensure separator is set properly in folders()
-	  + selectable now properly checks for \Noselect flag
-	  + update folders() POD to match implementation behavior
-	- rt.cpan.org#68648: [patch]: CAPABILITY after authenticate
-	  [Stef Simoens]
-	  + delete cache after State set to Authenticate
-	    - State() is no longer an auto-generated method
-	- rt.cpan.org#68755: provided socket loses blocking in 3.19-3.28
-	  [Martin Schmitt]
-
-version 3.28: Fri Mar  4 00:17:38 EST 2011
-	- rt.cpan.org#66004: internaldate() return undef if no internaldate in reply
-	  [Jason Long]
-	- rt.cpan.org#66367: fetch_hash uses Escaped_results() in 3.26/3.27
-	  (redo) rt.cpan.org#63524: fetch_hash() parse errors
-	  [Mathias Reitinger]
-	  + fetch_hash: only Escape() data in parenthesized list
-	  + update fetch_hash test and add a new test
-	- do not touch CRLF in Escape()/Unescape()
-	- added Escape() method
-	- rt.cpan.org#66287: flags results truncated due to Maxcommandlength
-	  [Erik Colson]
-	- rt.cpan.org#65694: SASL PLAIN: bad order of login data
-	  [Willi Mann]
-
-version 3.27: Sun Feb 13 14:37:27 EST 2011
-	- rt.cpan.org#65694: migrate fails
-	  [Erik Colson]
-	- rt.cpan.org#65470: uninitialized warning in message_to_file
-	  [Gilles Lamiral, Mark Hedges]
-	- rt.cpan.org#61835: (DOC) in LIST context undef may be returned
-	  [Stefan Völkel]
-	  + warn/highlight behavior in docs Errors section
-	- updated documentation
-	  + migrate() documentation fixed
-	  + moved Custom Authentication Mechanisms toward end
-	  + recommended use of scalar context due to historical API behavior
-
-version 3.26: Mon Jan 31 22:15:04 EST 2011
-	- *require Perl 5.8.1 as constant use is invalid on 5.6
-	- rt.cpan.org#63524: fetch_hash() parse errors
-	  [Brian Kroth]
-	  + fixed handling of LITERAL values in response
-	  + fixed handling of field names with a dash (e.g. X-SAVEDATE)
-	  + fetch_hash now uses Escaped_results() method
-	- *fixed Escaped_results() to properly join LITERAL data with
-	  the data that comes before and after it
-	- *rt.cpan.org#60945: append_file() does not interpret $date as expected
-	  [Jason Long]
-	  $date should now be 1 (to use the file mtime) or a valid RFC3501 date
-	- *rt.cpan.org#61292: memory consumption with message_string()/append()
-	   rt.cpan.org#61806: Major problem with one function in IMAPClient
-	  [Gilles Lamiral, Casey Duquette]
-	  + use @_ / $_[<num>] in critical places to avoid pass by
-	    value memory overhead
-	  + use in memory files in a few critical places as that code
-	    path in Mail::IMAPClient is significantly more efficient
-	    with internal memory usage
-	  + *new (undocumented/do-not-use-without-good-reason)
-	    attribute Maxappendstringlength used by append() and
-	    append_string() holds the size (in bytes, default 1 MiB)
-	    that triggers when message SCALAR(s) passed to these
-	    methods will be treated as an in memory file.  This
-	    attribute will likely be removed in a future version.
-	  + *append() and append_string() now call append_file() and
-	    use an im memory file when length($message) is greater
-	    than Maxappendstringlength; other minor code cleanup
-	  + *message_string() now calls message_to_file() and uses an
-	    in memory file
-	  + refactor message_to_file() to use internal _imap_uid_command()
-	  + update _read_line() to be more efficient w/CPU in critical
-	    section by pulling isa() checks out of main loop also
-	    conserve memory by not storing an extra copy of LITERAL
-	    data if the data was put into a filehandle from the caller
-	  + Memory/working set (KB) comparison (Perl 5.10 cygwin Win7):
-	    - test: message_string on 6.1M msg and then append 6.1M msg
-	      version | start | after message_string | after append
-	      --------+-------+----------------------+-------------
-	        2.2.9 |  7624 |                74404 |       131896
-	         3.25 |  7716 |                74408 |       156532
-	         3.26 |  7684 |                33372 |        42608
-	- minor arg cleanup of noop() and tag_and_run()
-	- rt.cpan.org#63444: relax get_envelope(), allow empty reply-to
-	  [Nikolay Kravchenko]
-	- rt.cpan.org#61068: append_string can invalidate a good $date
-	- rt.cpan.org#60045: Logout error if delay between BYE and tagged OK
-	  [Armin Wolfermann]
-	  no longer set an error when this happens
-	- rt.cpan.org#61062: migrate() errors
-	  [Johan Ekenberg]
-	  + rewrote migrate() to be functional and simple
-	- Update README and cleanup several old or out of date files
-
-version 3.25: Fri May 28 00:07:40 EDT 2010
-	- fix body_string parsing bug and added tests in t/body_string.t
-	  [Heiko Schlittermann] 
-	- rt.cpan.org#57661: uninitialized value warning in IMAPClient::thread
-	  [Max Bowsher]
-	- rt.cpan.org#57337: Correctly handle multiparts in BodyStructure.pm
-	  [Robert Norris]
-	  fixes in Mail::IMAPClient::BodyStructure::bodystructure for
-	  bugs still in release 3.24
-	- rt.cpan.org#57659: install fails when using cPanel GUI
-	  [Ken Parisi]
-	  hack Makefile.PL to use alarm() and timeout prompt() gracefully
-	- relax t/basic.t logout() error check (allow 'BYE' instead of 'OK')
-	- left examples/idle.pl out of MANIFEST for 3.24
-
-version 3.24: Fri May  7 17:02:35 EDT 2010
-	- rt.cpan.org#48912: wrong part numbers in multipart messages
-	  [Dmitry Bigunyak, Gabor Leszlauer]
-	- fix Mail::IMAPClient::BodyStructure::bodystructure to
-	  properly assign parts for messages using multipart and also
-	  include .TEXT parts as well (still not including top level
-	  HEADER and TEXT though - bug?)
-	- allow _load_module() to set $@ and LastError if module load fails
-	- rt.cpan.org#55527: [no] disconnect during DESTROY
-	  [Stefan Seifert]
-	- updated logout documentation to correctly state that DESTROY
-	  is not used to force an automatic logout on DESTROY despite
-	  documentation that indicated otherwise
-	- update append* documentation to match current implementation
-	- rt.cpan.org#55898: append_file can send too many bytes
-	  [Jeremy Robst]
-	- avoid append_file corner cases operating on lines instead of buffers
-	- use binmode on filehandle in append_file
-	- add tests to t/basic.t for append_file
-	- rt.cpan.org#57048: _quote_search() using $_ in loop instead of $v
-	  [Matthaus Kiem]
-	- added examples/idle.pl program showing use of idle and idle_data
-	- idle_data() should not read/block after server returns data
-	  [Marc Thielemann]
-	- idle_data() _get_response regexp updated to not match errors
-	- idle_data() now uses a timeout of 0 by default as documented
-	- _get_response() now checks for defined($code) to allow $code==0
-
-version 3.23: Fri Jan 29 00:39:27 EST 2010
-	- new beta idle_data() method to retrieve untagged messages during idle
-	  similar to method suggested by Daniel Richard G
-	- added/updated documentation for idle, idle_data, and done
-	- rt.cpan.org#53998: fix NTLM auth: call ntlm with challenge string
-	  [Dragoslav Mlakar]
-	- report the return value from select/_read_more on errors
-	- logout() again returns the success/failure of the LOGOUT command
-	- set/return error when $response->() returns undef in authenticate()
-	- new internal method _load_module() centralizing some 'require' calls
-	- localize use $@ in several places to avoid stomping on global val
-	- refactor code calling _read_more() to centralize error handling
-
-version 3.22: Thu Jan 21 15:25:54 EST 2010
-	- rt.cpan.org#52313: Getting read errors if Fast_io is set to 1
-	  [Jukka Huhta]
-	- updated Maxttemperrors docs related to EAGAIN handling
-	- new starttls() method and Starttls attribute to support STARTTLS
-	- update parse_headers to try harder to find UID in fetch response
-
-version 3.21: Tue Sep 22 19:45:13 EDT 2009
-	- rt.cpan.org#49691: rewrite of fetch_hash to resolve several issues
-	  [Robert Norris]
-	  includes new tests via t/fetch_hash.t
-	- rt.cpan.org#48980: (enhancement) add support for XLIST extension
-	  [Robert Norris]
-	- rt.cpan.org#49024: NIL personal name returned by *_addresses methods
-	  [Dmitry Bigunyak]
-	- rt.cpan.org#49401: IMAPClient expunge fails (unless folder arg used)
-	  [Gary Baluha]
-	- update/clarify close and expunge documentation a little
-
-version 3.20: Fri Aug 21 17:40:40 EDT 2009
-	- added file/tests in t/simple.t
-	- added methods Rfc3501_date/Rfc3501_datetime
-	  used by deprecated methods Rfc2060_date/Rfc2060_datetime
-	  rt.cpan.org#48510: Rfc3501_date/Rfc3501_datetime methods do
-	    not exist [sedmonds]
-	- login() hack to quote an empty password
-	  rt.cpan.org#48107: Cannot LOGIN with empty password [skunk]
-
-version 3.19: Fri Jun 19 14:59:15 EDT 2009
-	- *search() backwards compat: caller must quote single arg properly
-	  rt.cpan.org#47044: $imap->search does not return [ekuemmer]
-	- cleanup regexp in _send_line()
-	- reduce extra newlines injected by _debug()
-
-version 3.19_02: Tue Jun  9 00:47:52 EDT 2009
-	- _list_or_lsub() now calls _list_response_preprocess so
-	  consumers of this method no longer need to deal with how
-	  LITERAL data is represented in the returned data
-	- update _list_or_lsub_response_parse handling of folder names
-	  that came back as literal data
-	- update comments related to _list_response_preprocess
-version 3.19_01: Fri Jun  5 15:45:05 EDT 2009
-	- make parse_headers more robust to errors/non-header data
-
-version 3.18: Wed Jun  3 23:07:12 EDT 2009
-	- enhance fetch_hash to enable caller to specify list of messages
-	  suggestion by [Eugene Mamaev]
-	- better handling of untagged BYE response
-
-version 3.18_02: Wed May 27 10:02:24 EDT 2009
-	- *new attribute Ssl, when true causes IO::Socket::SSL to be
-	  used instead of IO::Socket::INET.  This change allows
-	  Reconnectretry logic to work on SSL connections too.
-	- have LastError cluck() if setting error to NO not connected
-	- handle errors from imap4rev1() in multiple places
-	- Reconnectretry/_imap_command enhancements/fixes
-	  + only run command if IsConnected
-	  + keep a temporary history of LastError(s)
-	  + sets LastError to NO not connected if ! IsConnected
-	  + retry =~ timeout|socket closed|* BYE| NO not connected
-	- _imap_command_do reduce data logged when using APPEND
-	- fetch() now handles messages() errors
-	- thread(), has_capability(), capability() better error checking
-	- authenticate() now uses _imap_command for retry mechanism
-	- size() now sets LastError when no RFC822.SIZE is found 
-
-version 3.18_01: Fri May 22 17:08:00 EDT 2009
-	- *update several methods to use common _get_response() method
-	- refactor most code handling imap responses
-	- new internal method _get_response() to reduce code duplication
-	- more regex cleanup $CR/$LF (not \r\n) per perlport/IMAP spec
-	- major cleanup/fix of append_file for rt.cpan.org#42434
-
-version 3.17: Thu May 21 01:40:08 EDT 2009
-	- ran all test code and lib/Mail/IMAPClient.pm through Perl::Tidy
-	- plan on using perltidy to standardize format going forward
-	- added 13 tests to t/basic.t to cover more methods
-	- fix some broken tests
-	- update Makefile.PL to provide info about optional modules
-
-version 3.17_05: Tue May 19 11:04:28 EDT 2009
-	- *reset LastError for every call to _imap_command_do()
-	- *run() - use _imap_command_do(), return arrayref in scalar context
-	- *tag_and_run() - return arrayref in scalar context
-	- *done() - use _imap_command_do(), return arrayref in scalar context
-	- *search() now returns empty arrayref not undef if no matches found
-	- _imap_command_do() made more flexible to avoid code duplication
-	- _list_response_parse renamed _list_or_lsub_response_parse
-	- updated POD with new/updated behavior
-	- append_string() now uses _imap_command_do() for Reconnectretry
-	- internally use defined return values instead of only LastError()
-	- run() updated to use same/similar code to _imap_command_do()
-	- make several return statements more consistent
-	- delete() now unsets current Folder attribute on success
-
-version 3.17_04: Fri May 15 17:18:52 EDT 2009
-	- updated POD with new reconnect() method and Reconnectretry attr
-	- *new _imap_command() after renaming old one to _imap_command_do
-	  support retrying commands X times EPIPE/ECONNRESET errors
-	- *new Reconnectretry attribute to control number of retry
-	  attempts (default is 0 - no reconnect/retry)
-	- *added reconnect() method to support Reconnectretry attr
-	  reconnect and updated _imap_command() method
-	- *_imap_command_do will return undef if command given has no TAG
-	- fixed message_string() logic/errors for failed size() calls
-	- local-ize $! anywhere we use Carp routines as older versions
-	  of Carp could cause $! to be reset
-	- several 'BUG?' comments -- raising red flag for future work
-	- minor cleanup of sort() logic
-	- reduce duplicate code, hopefully improved error handling:
-	  new _list_or_lsub() for list() and lsub()
-	  new _folders_or_subscribed() for folders() and subscribed()
-	  + new _list_response_preprocess() keeping old code/logic in
-	    for now, but may remove in the future (for buggy servers?)
-	- some updates for migrate() but this method needs much work
-	- body_string() now handles fetch() errors
-	- tag_and_run now handles _imap_command() errors
-	- changed non-timeout CORE::select() timeout from 0.001 to 0.025
-	- minor cleanup of _read_line() error handling/debug output
-	- get_bodystructure() handle more fetch() errors
-	- expunge() handle select() errors
-	- restore_message() handle store() errors
-	- uidvalidity() handle status() errors
-	- uidnext() handle status() errors
-	- is_parent() use _list_response_preprocess() for parsing
-	- move() send delete_message() errors to stderr
-	- simplify size() method
-
-version 3.17_03: Fri May  8 16:37:08 EDT 2009
-	- *added uidexpunge() for UID EXPUNGE UIDPLUS support
-	- *search() now DWIM: auto-escapes args, SCALAR refs not escaped
-	  rt.cpan.org#44936 [cjhenck]
-	- _quote_search() provides auto-escape capability for search()
-	- many POD updates as well as some major reformatting (incomplete)
-	- login now fails if passwd and user are not defined
-	- _sysread(): $self was in args to 'Readmethod' twice
-	- authenticate() return undef on scheme eq "" or LOGIN
-	- "require" instead "use" Digest::HMAC_MD5 for CRAM-MD5 support
-
-version 3.17_02: Fri May  1 16:44:21 EDT 2009
-	- cleanup of use/imported data
-	- use Socket $CRLF in many cases not \r\n per perlport/IMAP spec
-	- *new Keepalive attribute used via new()/Socket() enables SO_KEEPALIVE
-	- LastError now uses Carp::confess for stack trace if Debug is true
-	- Maxcommandlength now defaults to 1000 per RFC2683 section 3.2.1.5
-	- added noop() to support IMAP NOOP
-	- _imap_command now sets LastError if a OK/$good response is not seen
-	- fixed fetch_hash() to return FLAGS as "" not () when no FLAGS set
-
-version 3.17_01: Fri Apr 24 18:36:45 EDT 2009
-	- *new attribute Maxcommandlength used by fetch() to limit
-	  length of commands sent to a server.  This should removes
-	  need for utilities like imapsync to create their own split()
-	  functions and instead allows Mail::IMAPClient to hopefully
-	  "do the right thing"
-	- remove extra 'use' calls for Carp and Data::Dumper
-	- _read_more() improperly initialized vector causing select
-	  errors, thus timeouts were not working properly (now they
-	  work...)
-	- *change default timeout 30s => 600s: 30s seems too short in
-	   practice
-	- *explicit import of encode_base64 and decode_base64 from
-	  MIME::Base64 note the code forces a disconnect from the
-	  server on timeout as we can not easily recover from this
-	  situation right now in the code
-	- *numerous changes of error messages, removing superfluous
-	  text and now relying on LastError instead of $! or $@ when
-	  appropriate
-	- separator():
-	  + now return undef if an error occured for NAMESPACE or LIST calls
-	  + *no longer defaults to '/' if NAMESPACE call does not succeed
-	- new internal _list_response_parse() method for parsing LIST
-	  responses
-	- handle ECONNRESET errors on syswrite and mark connection as
-	  Unconnected
-	  + error "Connection lost" changed to "Write failed"
-	- previously untrapped syswrite error now generate "Write
-	  failed" errors
-	- fix in _imap_command where LastError would be erroneously
-	  set on LOGOUT
-	- _record() no longer tries to infer errors based on data
-	  being "recorded"
-	- _send_line()
-	  + cleanup in watching for: +|NO|BAD|BYE
-	  + now sets LastError when an unexpected response is seen
-	- _read_line()
-	  + handle select errors instead of ignoring them
-	  + forcefully _disconnect() on timeouts as this breaks app logic
-	  + reduced duplication of code on error handling
-	- added _disconnect() method to brute force drop connections
-	  on timeout
-	- added _list_response_parse() to reduce duplicate code for
-	  LIST parsing
-	- added _split_sequence() to support new Maxcommandlength argument
-	- fetch()
-	  + use new Maxcommandlength to split a request into multiple
-	    subrequests then aggregate results before passing them
-	    back to the caller
-	- fetch_hash(): added checks for failed IMAP commands
-	- parse_headers()
-	  + properly check if fetch fails
-	  + handle cases where $header and/or $field are not defined
-	- size():
-	  + return undef if LastError is set
-	  + fix case where SIZE is not found and return undef as expected
-
-version 3.16: Mon Apr  6 12:03:41 CEST 2009
-
-	Fixes:
-
-	- set LastError when the imap_command receives an unexpected 'BYE' answer.
-	  rt.cpan.org#44762 [Phil Lobbes]
-
-	- handle SIGPIPE cleanly.
-	  rt.cpan.org#43414 [Phil Lobbes]
-
-	- improve handling of quotes in folder names
-	  rt.cpan.org#43445 [Phil Lobbes]
-
-	- do not use $socket->eof(), because IO::Socket::SSL does not support it.
-	  rt.cpan.org#43415 [Phil Lobbes]
-
-	- remove excessive reconfiguration of fastio in _read_line()
-	  rt.cpan.org#43413 [Phil Lobbes]
-
-	Improvements:
-
-	- remove experied docs about automatically created calls, which
-	  do not exist since 3.00
-
-	- remove verbose explanation about reporting bugs.
-
-version 3.15: Fri Mar 20 13:20:39 CET 2009
-
-	Fixes:
-
-	- manual-page was using POD syntax incorrectly, which caused many
-	  broken links on search.cpan.org
-	  rt.cpan.org #44212 [R Hubbell]
-
-version 3.14: Mon Feb 16 14:18:09 CET 2009
-
-	Fixes:
-
-	- isparent() when list() returns nothing.
-	  rt.cpan.org#42932 [Phil Lobbes]
-
-	- Quote more characters in Massage(): add  CTL, [, ], % and *
-	  rt.cpan.org#42932 [Phil Lobbes]
-
-	- message_string() will only complain about a difference between
-	  reported message size and actually received size; it will not
-	  try to correct it anymore.
-	  rt.cpan.org#42987 [Phil Lobbes]
-
-	- No error when empty text in append_string()
-	  rt.cpan.org#42987 [Phil Lobbes]
-
-	- login() should not try authenticate() if auth is empty or undef
-	  rt.cpan.org#43277 [Phil Lobbes]
-
-version 3.13: Thu Jan 15 10:29:04 CET 2009
-
-	Fixes:
-
-	- "othermessage" in bodystructure parser should expect an MD5,
-	  not bodyparams.  Fix and test(!) by [Michael Stok]
-
-	Improvement:
-
-	- minor simplifications in code of run() and _imap_command()
-
-	- get_bodystructure trace message fix [Michael Stok]
-
-	- add Domain option for NTLM authentication.
-
-version 3.12: Mon Nov 24 15:34:58 CET 2008
-
-	Improvement:
-
-	- major performance improvement in append_message(), avoiding
-	  reading the whole file in memory as the docs promised but the
-	  code didn't do.  [David Podolsky]
-
-version 3.11: Wed Oct  8 10:57:31 CEST 2008
-
-	Fixes:
-
-	- some SSL connections process more bytes then needed, which
-	  made the select() timeout.  Nice fix by [David Sansome]
-	  rt.cpan.org#39776
-
-	Improvements:
-
-	- improved example imap_to_mbox by [Ralph Sobek]
-
-version 3.10: Sun Aug 24 21:26:27 CEST 2008
-
-	Fixes:
-
-	- INET socket scope error, introduced by 3.09
-	  rt.cpan.org#38689 [Matt Moen]
-
-version 3.09: Fri Aug 22 16:38:25 CEST 2008
-
-	Fixes:
-
-	- return status of append_message reversed.
-	  rt.cpan.org#36726 [Jakob Hirsch]
-
-	- no line-breaks in base64 encoded strings when logging-in
-	  rt.cpan.org#36879 [David Jonas]
-
-	- fix MD5 authentication.
-	  rt.cpan.org#38654 [Thomas Jarosch]
-
-	Improvements:
-
-	- extensions and clean-ups in examples/imap_to_mbox.pl by
-	  [Ralph Sobek]
-
-	- an absolute path as Server setting will open a local ::UNIX
-	  socket, not an ::INET
-	  rt.cpan.org#38655 [Thomas Jarosch]
-
-version 3.08: Tue Jun  3 09:36:24 CEST 2008
-
-	Fixes:
-
-	- message_to_file used wrong command.
-	  rt.cpan.org#36184 [Parse Int]
-
-	- oops, distribution released with OODoc/oodist, not make dist.
-	  [Randy Harmon]
-
-	- fix parsing of body-structure information for multi-parts.
-	  rt.cpan.org#36279 [Doug Claar]
-
-	Improvements:
-
-	- Updated README and TODO (Was 'Todo')
-
-version 3.07: Mon Apr 28 09:17:30 CEST 2008
-
-	Fixes:
-
-	- expunge with no folder specified produced "use of undef"
-	  error.  Fixed by [André Warnier]
-
-	- additional arguments for create [Michael Bacon]
-
-	- accepts LIST answer with multiple lines [Michael Bacon]
-
-	- ::BodyStructure::_address() should be _addresses()
-	  Fixed by rt.cpan.org#35471 [Brian Kelly]
-
-version 3.06: Mon Apr 14 23:44:03 CEST 2008
-
-	Fixes:
-
-	- expunge without argument must use selected folder. [John W]
-
-	- expunge with folder does not select it. [John W]
-
-	- the documentation still spoke about "autogenerated methods",
-	  but they were removed with 2.99 [John W]
-
-	- append_string needs LF -> CRLF translations, for some
-	  servers. rt.cpan.org #35031 [Jonathan Kamens]
-
-	Improvements:
-
-	- added ::setquota(), thanks to [Jappe Reuling]
-
-version 3.05: Wed Feb 20 08:59:37 CET 2008
-
-	Fixes:
-
-	- match ENVELOPE and BODYSTRUCTURE more strict in the
-	  grammar, to avoid confusion. [Zach Levow]
-
-	- get_envelope and get_bodystructure failed for servers which
-          did not return the whole answer in one piece. [Zach Levow]
-
-	- do not produce parser errors when get_envelope does not
-	  return an envelope. [Zach Levow]
-
-	- PLAIN login response possibly solely a '+' [Zach] and [Nick]
-
-version 3.04: Fri Jan 25 09:25:51 CET 2008
-
-	Fixes:
-
-	- read_header fix for UID on Windows Server 2003.
-          rt.cpan.org#32398 [Michiel Stelman]
-
-	Improvements:
-
-	- doc update on authentication, by [Thomas Jarosch]
-
-version 3.03: Wed Jan  9 22:11:36 CET 2008
-
-	Fixes:
-
-	- LIST (f.i. used by folders()) did not return anything when the
-	  passed argument had a trailing separator. [Gunther Heintze]
-
-	- Rfc2060_datetime() must include a zone.
-          rt.cpan.org#31971 [David Golden]
-
-	- folders() uses LIST, and then calls a STATUS on each of the
-	  names found.	This is superfluous, and will cause problems when
-	  the STATUS fails... for instance because of ACL limitations
-	  on the sub-folder.
-	  rt.cpan.org#31962 [Thomas Jarosch]
-
-	- fixed a zillion of problems in the BodyStructure parser.  The
-	  original author did not understand parsing, nor Perl.
-
-	- part numbering wrong when nested messages contained multiparts
-
-	Improvements:
-
-	- implementation of DIGEST-MD5 authentication [Thomas Jarosch]
-
-	- removed call for status() in Massage(), which hopefully speeds-up
-	  things without destroying anything.  It removed a possible deep
-	  recursion, which no-one reported (so should be ok to remove it)
-
-	- simplified folders() algorithm.
-
-	- merged folder commands, like subscribe into one.
-
-	- added unsubscribe()
-	  rt.cpan.org#31268 [G Miller]
-
-	- lazy-load Digest::HMAC_MD5
-
-version 3.02: Wed Dec  5 21:33:17 CET 2007
-
-	Fixes:
-
-	- Another attempt to get get FETCH UID right.  Patch by [David Golden]
-
-version 3.01: Wed Dec  5 09:55:43 CET 2007
-
-	Changes:
-
-	- removed version number from ::BodyStructure
-
-	Fixes:
-
-	- quote password at login.
-	  rt.cpan.org#31035 [Andy Harriston]
-
-	- empty return of flags command should be empty list, not undef.
-	  rt.cpan.org#31195 [David Golden]
-
-	- UID command does not work with folder management commands
-	  rt.cpan.org#31182 [Robbert Norris]
-
-	- _read_line simplifications avoids timeouts.
-	  rt.cpan.org#31221 [Robbert Norris]
-
-	- FETCH did not detect the UID of a message anymore.
-	  [David Golden]
-
-	Improvements:
-
-	- proxyauth for SUN/iPlanet/NetScape IMAP servers.
-	  patch by rt.cpan.org#31152 [Robbert Norris]
-
-	- use grep in stead of map in one occasion in MessageSet.pm
-	  [Yves Orton]
-
-version 3.00: Wed Nov 28 09:56:54 CET 2007
-
-	Fixes:
-
-	- "${peek}[]" should be "$peek\[]" for perl 5.6.1
-	   rt.cpan.org#30900 [Gerald Richter]
-
-version 2.99_07: Wed Nov 14 09:54:46 CET 2007
-
-	Fixes:
-
-	- forgot to update the translate grammar.
-
-version 2.99_06: Mon Nov 12 23:21:58 CET 2007
-
-	Fixes:
-
-	- body structure can have any number of optional parameters.
-	  Patch by [Gerald Richter].
-
-	- get_bodystructure did not take the output correctly [Gerald Richter]
-
-	- parser of body-structure did not handle optional body parameters
-	  Patch by [Gerald Richter], rt.cpan.org#4479 [Geoffrey D. Bennet]
-
-version 2.99_05: Mon Nov 12 00:17:42 CET 2007
-
-	Fixes:
-
-	- pod error in MessageSet.pm
-
-	- folders() without argument failed. [Gerald Richter]
-
-	Improvements:
-
-	- better use of format syntax in date formatting.
-
-	- Rfc2060_datetime also contains the time.
-
-	- append_file() now has options to pass flags and time of file
-	  in one go. [Thomas Jarosch]
-
-version 2.99_04: Sat Nov 10 20:55:18 CET 2007
-
-	Changes:
-
-	- Simplified initiation of IMAP object with own Socket with a new
-	  option: RawSocket [Flavio Poletti]
-
-	Fixes:
-
-	- fixed read_line [Flavio Poletti]
-
-	- fixed test-run in t/basic.t [Flavio Poletti]
-
-version 2.99_03: Thu Nov  1 12:36:44 CET 2007
-
-	Fixes:
-
-	- Remove note about optional Parse::RecDescent by Makefile.PL;
-	  it is not optional anymore
-
-	Improvements:
-
-	- When syswrite() returns 0, that might be caused by an error
-	  as well.  Take the timeout/maxtemperrors track.
-	  rt.cpan.org#4701 [C Meyer]
-
-	- add NTLM support for logging-in, cleanly intergrated. Requires
-	  the user to install Authen::NTLM.
-
-version 2.99_02: Fri Oct 26 11:47:35 CEST 2007
-
-	The whole Mail::IMAPClient was rewritten, hopefully without
-	breaking the interface.  Nearly no line was untouched.
-
-	The following things happened:
-	 - use warnings, use strict everywhere
-	 - removed many lines which were commented out, over the years
-	 - $self->_debug if $self->Debug checked debug flag twice
-	 - $self->LogError calls where quite inconsequent wrt $@ and carp
-	 - consequent layout, changed sporadic tabs in blanks
-	 - consequent calling convensions
-	 - \0x0d\0x0a is always \r\n
-	 - zillions of minor syntactical improvements
-	 - a few major algorithmic rewrites to simplify the code, still
-	   many oppotunities for improvements.
-	 - expanded "smart" accessor methods, search abbreviations,
-	   and autoloaded methods into separate subs.  In total much
-	   shorter, and certainly better understandable!
-	 - fixed many potential bugs.
-	 - labeled some weird things with #????
-	Over 1000 lines (30%!) and 25kB smaller in size
-	Needs to be tested!!!! Volunteers?
-
-	Fixes:
-
-	- Exchange 2007 only works with new parameter: IgnoreSizeErrors
-	  rt.cpan.org#28933 [Dregan], #5297 [Kevin P. Fleming]
-
-	- Passed socket did not get selected.
- 	  debian bug #401144, rt.cpan.org# [Alexander Zanger],
-	  #8480 [Karl Gaissmaier], #8481 [Karl Gaissmaier],
-	  #7298 [Herbert Engelmann]
-          http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=401144
-
-	- Seperator not correctly extracted from list command.
-	  rt.cpan.org#9236 [Eugene Koontz], #4662 [Rasjid]
-
-	- migrate() Massage'd foldername twice
-	  rt.cpan.org#20703 [Peter J. Holzer]
-
-	- migrate() could loop because error in regexp.
-	  rt.cpan.org#20703 [Peter J. Holzer]
-
-	- migrate() append_string result not tested.
-	  rt.cpan.org#8577 [guest]
-
-	- Failing fetch() returned undef, not empty list.
-          rt.cpan.org#18361 [Robert Terzi]
-
-	- Fix "use of uninitialised" warning when expunge is called
-	  rt.cpan.org#15002 [Matt Jackson]
-
-	- Fix count subfolders in is_parent, regexp did not take care
-	  of regex special characters in foldername and seperator.
-          rt.cpan.org#12883 [Mike Porter]
-
-	- In fetch_hash(), the capturing of UID was too complicated
-          (and simply wrong)
-	  rt.cpan.org#9341 [Gilles Lamiral]
-
-	- overload in MessageSet treated the 3rd arg (reverse) as
-	  message-set.
-
-	- do not send the password on a different line as the username
-	  in LOGIN.  Suggested by many people, amongst them
-	  rt.cpan.org#4449 [Lars Uffmann]
-
-	- select() with $timeout==0 (no timeout) returns immediately.
-	  Should be 'undef' as 4th select parameter.
-	  rt.cpan.org#5962 [Colin Robertson] and [Jules Agee]
-
-	- examine() remembers Massage()d folder name, not the unescaped
-	  version. rt.cpan.org#7859 [guest]
-
-	Improvements:
-
-	- PREAUTH support by rt.cpan.org#17693 [Danny Siu]
-
-	- Option "SupportedFlags", useful when the source supports
-	  different flags than the peer in migrate().
-	  Requested by rt.cpan.org#12961 [Don Christensen]
-
-	- Fast_io did not clear $@ on unimportant errors.
-	  rt.cpan.org#9835 [guest] and #11220 [Brian Helterline]
-
-	- Digest::HMAC_MD5 and MIME::Base64 are now prerequisits.
-	  rt.cpan.org#6391 [David Greaves]
-
-	- PLAIN (SASL) authentication added, option Proxy
-	  rt.cpan.org#5706 [Carl Provencher]
-
-	- removed Bodystructure.grammar and IMAPClient.cleanup from dist.
-
-	- reworked Bodystructure and MessageSet as well.
-
-	- EnableServerResponseInLiteral now autodetect (hence ignored)
-
-version 2.99_01:
-
-	After 4 years of silence, Mark Overmeer took maintenance.  David
-	Kernen could not be reached.  Please let him contact the new
-	maintainer.
-
-	A considerable clean-up took place, fixing bug and adapting the
-	distribution to current best practices.
-
-	- use "prompt" in Makefile.PL, to please CPAN-testers
-
-	- removed old Parse::RecDescent grammars
-
-	- include Artistic and Copying (GPL) into COPYRIGHT file
-
-	- remove INSTALL_perl5.80
-
-	- removed all the seperate Makefile.PLs and test directories
-
-	- removed the hard-copy of all involved RFCs: there are better
-	  sources for those.
-
-	- converted tests to use "Test::More"
-
-	- Authmechanism eq 'LOGIN' understood.
-
-	- test for CRAM-MD5 removed, because conflicts with test params
-	  from Makefile.PL
-
-	- test for fast-io removed, it is Perl core functionality
-
-	- require IO::Socket::INET 1.26 to avoid Port number work-around.
-
-	- Parse::RecDescent is required, and the grammars are pre-parsed
-	  in the distribution.  This makes the whole installation process
-	  a lot easier.
-
-	- Update Todo, and many other texts.
-
-	- added pod tester in t/pod.t
-
-	- cleaned-up the rt.cpan.org bug-list from spam.  The next
-	  release will contain fixes for the real reports.
-
-Changes in version 2.2.9
-------------------------
-Fixed problem in migrate that caused problems in versions of perl earlier
-than 5.6.  Thanks go to Steven Roberts for reporting the problem and
-identifying its cause.
-
-Fixed problem in the make process that caused tests for BodyStructure
-subclass to fail if the grammer had been compiled under a different
-version of Parse::RecDescent. This problem was detected by the dedicated
-people at testers@cpan.org.
-
-Fixed a compatibility problem using Parse::RecDescent version 1.94.
-This caused BodyStructure and Thread to fail for 5.8.x users. A number of
-people reported this bug to CPAN but it took me a while to realize what
-was going on. Really it took me a while to realize my Parse::RecDescent
-was out of date. ;-) Now this module is delivered with two versions of
-each of the affected grammars and Makefile.PL determines which version
-to use.  Upgrading to Parse::RecDescent 1.94 will require you to re-run
-Makefile.PL and reinstall Mail::IMAPClient.
-
-Changes in version 2.2.8
-------------------------
-Change the login method so that it always send password as a literal
-to get around problem 2544 reported by Phil Tracy which caused
-passwords containing asterisks to fail on some systems (but not any of
-mine...). Good catch, Phil.
-
-Added a new example that demonstrates the use of imtest (a utility
-that comes with Cyrus IMAP) and Mail::IMAPClient together. The
-example uses imtest to do secure authentication and then "passes" the
-connection over to Mail::IMAPClient (but imtest is still brokering
-the encryption/decryption). This example comes from an idea of
-Tara L. Andrews', whose brainstorm it was to use imtest to broker
-secure connections.  (But I still want to get encryption working with
-Mail::IMAPClient some day!)
-
-Fixed an error in which a "+" was used as a conncatenation error instead
-of a ".".  Thanks to Andrew Bramble for reporting this, even though he
-mistakenly identified it as a "typo". It is not a typo; a plus sign is the
-correct concatenation operator, as any decent Java book will tell you ;-)
-
-Fixed an error in the login method when the password contains a special
-character (such as an asterisk.) Thanks to Phil Tracey for reporting
-this bug.
-
-Fixed some bugs in _send_line (the "O" side of the I/O engine) that were
-reported by Danny Smith.
-
-Fixed a bug in the migrate method in the optimization code (which 
-gets called when socket writes are delayed due to a slow or busy target 
-host, aka EAGAIN errors). Thanks to Pedro Carvalho for identifying 
-this bug and its cause.
-
-Fixed a bug in migrate that caused migration of unread messages to fail. 
-This was due to the way Mail::IMAPClient's migrate method would try to send 
-an empty list of flags to the target server in the APPEND. Thanks to 
-Stephen Fralich at Syracuse University and for reporting this bug. 
-
-Fixed another bug in the migrate method that caused flags to get lost. Thanks
-go to Jean-Michel Besnard for reporting this.
-
-Fixed a bug in migrate that caused
-Fixed a bug in get_envelope that caused it to fail under certain conditions.
-Thanks go to Bob Brown for reporting this bug.
-
-
-Changes in version 2.2.7
-------------------------
-
-Added some new parameters to support alternate authentication mechanisms:
-
-	Prewritemethod
-      	Readmethod 
-
-Mail::IMAPClient has supported cram-md5 authentication "out of the box"
-as of 2.2.6 (courtesy of Ville Skyttä). I also have digest-md5 working
-in my lab with quality of protection levels "auth" and "integrity", but
-not "confidentiality". I'm hoping to get the confidentiality part working
-soon but so far have only managed to authenticate, send an encrypted command, 
-and receive and decrypt the response. This may sound like enough but I can't 
-seem to send a second command or receive a second response;-( In any event 
-2.2.8 will support at least qop=auth and qop=auth-int but maybe not 
-qop=auth-conf.
-
-Fixed a bug reported by Adrian that caused get_bodystructure to
-fail if the server returned a bodystructure with an embedded 
-literal. Also fixed the same bug in get_envelope, so I guess now
-everyone knows that get_envelope was just a tinkered-with copy of
-get_bodystructure... 
-
-Fixed two related bugs in Parser.pm that caused
-get_bodystructure and get_envelope to fail if the
-UID nnnnn part of a fetch response follows all the
-other stuff.  Thanks to Raphaël Langella for reporting this bug.
-
-Enhanced several methods to use MessageSets when the
-Ranges parameter is true. There are still more methods that
-need to be retrofitted to take advantage of the Range method
-(and its underlying MessageSet object). In the meantime, if you 
-need to get the functionality of the shorter message ranges provided
-by the Range method from a method that does not honor the Ranges
-parameter, then you should a) create a message set by passing the 
-messages to the Range method and then pass the scalar as a string
-to the method you want to use. For example, if you want to move 
-a whole lot of messages to Trash, do something like this:
->
->my $range = $imap->Range(scalar($imap->search("SentBefore", "01-Jan-2000"))); 
->$imap->move("Trash","$range");
->
-This will cause the range object to stringify out to what looks like
-a non-reference scalar before the move method gets the argument. If you
-omit the quotes around "$range" then this won't work.
-
-Fixed a bug in the list method that caused LIST "" "" to fail miserably.
-Thanks to John W Sopko Jr. for reporting this bug.
-
-Fixed a bug in the test suite that caused the cram-md5 tests to fail
-if you are not running the extended tests. (Introduced in 2.2.6)
-
-Fixed a bug that affected users on platforms that do not support 
-fcntl (i.e. NT).  Thanks to Raphaël Langella for reporting this bug.
-
-Changes in version 2.2.6
-------------------------
-
-Fixed a bug in the migrate method that caused the internaldate
-of migrated messages to sometimes be wrong. Credit goes to Jen Wu 
-for identifying both bug and fix. 
-
-Added a new method, "get_header", to provide a short-cut for a common
-use of parse_headers. Added two other methods, "subject" and "date",
-to provide shortcuts to get_header. 
-
-Changed the Mail::IMAPClient::MessageSet module to override array 
-dereferencing. (See below.)
-
-Changed fetch and search methods to use the Range method (and thus the
-Mail::IMAPClient::MessageSet module) for messages. The fetch method will
-use MessageSet objects all the time, but the search method will only 
-return MessageSet objects if you specify "Ranges => 1" (with Ranges being 
-a new parameter).  The default will be "Ranges => 0" (which preserves 
-the old behavior) but this default will go away in some future release.
-There should be no need to override the fetch method's new behavior, since
-it will be transparent to you unless you tend to fetch a lot of messages
-at once, in which case your fetches may be faster and perhaps less likely
-to fail due to the request exceeding your server's line limit. If you set
-the Ranges parameter to true, then you still should not see a difference,
-because a) when fetch is called in a list context then you will not get
-a MessageSet object, you'll get the same list as always, and b) the 
-MessageSet objects now override array de-referencing operations, so if you
-treat the returned MessageSet object as if it were an array then the object
-will humour you and act like a reference to an array of messages sequence
-numbers or message uids.
-
-Also changed the flags method to use the Range method. This should also
-be transparent since the methods arguments and return values do not change.
-
-Added built-in support for CRAM-MD5 authentication. This authentication 
-method will in this release be used only when requested. In future releases
-the default authentication will probably be the strongest authentication 
-supported "out of the box" that is available on your server. Since CRAM-MD5
-is the only authentication other than plain text that is currently supported
-"out of the box", it will be the default authentication mechanism for any 
-server that supports it. See the pod for the Authmechanism and Authcallback
-parameters (which were also added in this release) and the doc for the 
-authenticate method (which has been around a while). Many thanks to Ville Skyttä
-for providing the code that makes up the heart of this new support, as well
-as to Gisle Aas for the Digest::HMAC_MD5 and MIME::Base64.
-
-Made minor tweaks to the documentation. Again. (Will it ever be 100% right?)
-
-Changes in version 2.2.5
-------------------------
-Added the Range method to convert a bunch of message UID's or sequence numbers
-into compact ranges. Also added a supporting class for the returned range 
-objects with overloaded operators that support stringifying, adding to, and
-deleting from a range object's message set (Mail::IMAPClient::MessageSet). 
-I also wrote documentation for same, so check it out. In future releases, 
-I will probably enhance the base module to use MessageSet objects when 
-feasible (i.e. whenever I know that the argument in question should in fact 
-be a message specification). But I'll let you find all the bugs in the 
-MessageSet module first ;-) Thanks goes to Stefan Schmidt, who is the first
-to report using a server that restricted the size of a client request to 
-something smaller than what Mail::IMAPClient was generating for him. 
-(Originally the Range method was just supposed condense a message set into
-the shortest possible RFC2060-compliant string, but then I got all happy and
-started adding features. You know how it is...)
-
-
-Changes in version 2.2.4
--------------------------
-Fixed a bug in the done method (new in 2.2.3). 
-
-Added tests for idle and done. (That's how I found the bug in the done method, above.)
-
-Fixed minor bugs in test suite. (The test suite worked but wasn't always using the options
-I wanted tested. <sigh>)
-
-
-Changes in version 2.2.3
--------------------------
-
-NOTE: This version was distributed to beta testers only.
-
-Fixed the "Changes in version 2.2.2" section so that it correctly specifies
-version 2.2.2 (instead of being yet another 2.2.1 section).
-
-Fixed a bug in the migrate method that affected folders with spaces in their 
-names.
-
-Fixed a bug in the Massage method that affected folders with braces ({}) in 
-their names.
-
-Added a new class method, "Quote", that will quote your arguments for you. (So you
-no longer have to worry so much about quoting your quotes.
-
-Added optimizations to the migrate method and to the core I/O engine inspired
-by Jules Agee. (Actually they were not so much inspired by him as they were
-lifted right out of a patch he had out on sourceForge.net. I had to refit them
-for this version, and reformat his comments so they could fit in my window. Thanks
-Jules, wherever you are.)
-
-Added the fetch_hash method, which will fetch an entire folder's contents into a 
-hash indexed by message UID (or message sequence number if that's all you've got).
-
-Added a new example to the examples subdirectory, and corrected some minor bugs
-in existing examples.
-
-Added the idle and done methods, which together implement the IMAP IDLE extension
-(RFC2177), at John Rudd's suggestion.
-
-Changes in version 2.2.2
-------------------------
-Fixed a bug in Massage method (generally only used by other IMAPClient methods)
-that broke folder names with parens. 
-
-Updated bug reporting procedures. Also added a section in the documentation 
-for REPORTING THINGS THAT ARE NOT BUGS. Bug tracking is now done via 
-rt.cpan.org, which I stumbled upon quite by accident and with which I am 
-really pleased. A lot of credit goes to _somebody_ for putting this 
-out on CPAN. Unfortunately as of this writing I don't whom.
-
-Fixed a bug in the documentation regarding the logoff method, which is never
-implicitly invoked anymore; I gave up on that because the DESTROY method would
-sometimes be called after the Socket handle was already destroyed. (This is
-especially likely at program exit, when everything still in scope goes out of
-scope at the same time.) You should always log off explicitly if you want to 
-be a well behaviod IMAP client.
-
-Changes in version 2.2.1
-------------------------
-Updated append_string to wrap the date argument in double quotes if the argument was
-provided without quotes. Thanks to Grant Waldram for pointing out that some IMAP 
-servers require this behavior.
-
-Added a new method, selectable, which returns a true value if a folder is selectable.
-
-Documented in this Changes file a change that was actually made for 2.2.0, in which 
-newlines are chomped off of $@ (but not LastError).
-
-Added pointers in the documentation to point to Mark Bush's Authen::NTLM module. This 
-module will allow you to use NTML authentication with Mail::IMAPClient connections.
-Also changed the authenticate method so that it will work with Authen::NTML without
-the update mentioned in NTLM::Authen's README.
-
-Added a second example on using the new migrate method,
-migrate_mail2.pl. This example demonstrates more advanced techniques
-then the first, such as using the separator method to massage folder
-names and stuff like that.
-
-Added support for the IMAP THREAD extension. Added
-Mail::IMAPClient::Thread.pm to support this. (This pm file is generated
-during make from Thread/Thread.grammar.) This new function should be
-considered experimental. Note also that this extension has nothing to do
-with threaded perl or anything like that. This is still on the TODO list.
-
-Updated the search, sort, and thread methods to set $@ to "" before
-attempting their respective operations so that text in $@ won't be left
-over from some other error and therefore always indicative of an error
-in search, sort, or thread, respectively.
-
-Made many many tweaks to the documentation, including adding more examples
-(albeit simple ones) and fixing some errors.
-
-Changes in version 2.2.0
-------------------------
-Fixed some tests so that they are less likely to give false negatives. For
-example, test 41 would fail if the test account happened to have an
-empty inbox.
-
-Made improvements to Mail::IMAPClient::BodyStructure and renamed
-Mail::IMAPClient::Parse to Mail::IMAPClient::BodyStructure::Parse. (This
-should be transparent to apps since the ...Parse helper module is
-used by BodyStructure.pm only.) I also resumed my earlier practice of
-using ...Parse.pm from within BodyStructure.pm to avoid the overhead of
-compiling the grammar every time you use BodyStructure.pm. (Parse.pm is
-just the output from saving the compiled Parse::RecDescent grammar.) In a
-related change, I've moved the grammar into its own file (Parse.grammar)
-and taught Makefile.PL how to write a Makefile that converts the .grammar
-file into a .pm file. This work includes a number of fixes to how a body
-structure gets parsed and the parts list returned by the parts method,
-among other things. I was able to successfully parse every bodystructure
-I could get my hands on, and that's a lot.
-
-Also added a bunch of new methods to Mail::IMAPClient::BodyStructure
-and its child classes.  The child classes don't even have files of their
-own yet; they still live with their parent class! Notable amoung these
-changes is support for the FETCH ENVELOPE IMAP command (which was easy
-to build in once the BODYSTRUCTURE stuff was working) and some helper
-modules to get at the envelope info (as well as envelope information
-for MESSAGE/RFC822 attachments from the BODYSTRUCTURE output).  Have a
-look at the documentation for Mail::IMAPClient::BodyStructure for more
-information.
-
-Fixed a bug in the folders method regarding quotes and folders with
-spaces in the names. The bug must have been around for a while but
-rarely manifested itself because of the way methods that take folder
-name arguments always try to get the quoting right anyway but it was
-still there. Noticing it was the hard part (none of you guys reported
-it to me!).
-
-Fixed a bug reported by Jeremy Hinton regarding how the search method
-handles dates. It was screwing it all up but it should be much better now.
-
-Added the get_envelope method which is like the get_bodystructure method
-except for in ways in which it's different.
-
-Added the messages method (a suggestion from Danny Carroll), which is
-functionally equivalent to $imap->search("ALL") but easier to type.
-
-Added new arguments to the bodypart_string method so that you can get
-just a part of a part (or a part of a subpart for that matter...) I did
-this so I could verify BodyStructure's parts method by fetching the first
-few bytes of a part (just to prove that the part has a valid part number).
-
-Added new tests to test the migrate function and to do more thorough
-testing of the BodyStructure stuff. Also added a test to make sure that
-searches that come up empty handed return an undef instead of an empty
-array (reference), regardless of context. Which reminds me...
-
-Fixed a bug in which searches that don't find any hits would return a
-reference to an empty array instead of undef when called in a scalar
-context. This bug sounds awfully familiar, which is why I added the test
-mentioned above...
-
-
-Changes in version 2.1.5
-------------------------
-Fixed the migrate method so now it not only works, but also works
-as originally planned (i.e. without requiring source messages to
-be read entirely into memory).  If the message is smaller than
-the value in the Buffer parameter (default is 4096) then a normal
-$imap2->append($folder,$imap1->message_string) is done. However, if
-the message is over the buffer size then it is retrieved and written a
-bufferful at a time until the whole message has been read and sent. (The
-receiving server still expects the entire message at once, but it
-will have to wait because the message is being read from the source in
-smaller chunks and then written to the destination a chunk at a time.)
-This needs extensive testing before I'd be willing to trust it (or at
-least extensive logging so you know when something has gone terribly
-wrong) and I consider this method to be in BETA in this release. (Numerous
-people wrote complaining that migrate didn't work, and some even included
-patches to make it work, but the real bug in the last release wasn't
-that migrate was broken but that I had inadvertently included the pod for
-the method which I knew perfectly well was not ready to be released. My
-apologies to anyone who was affected by this.) The migrate method does
-seem to work okay on iPlanet (i.e. Netscape) Messenger Server 4.x. Please
-let me know if you have any issues on this or any other platform.
-
-Added a new example, migrate_mbox.pl, which will demonstrate the migrate method.
-
-Fixed a bug that will cause Mail::IMAPClient's message reading methods to misbehave if 
-the last line of the email message starts with a number followed by a space and either 
-"OK", "NO", or "BAD".  This bug was originally introduced in 1.04 as a fix for another 
-bug, but since the fix supports noncompliant behavior I'm disabling this behavior by 
-default.  If your IMAP clients start hanging every time you try to read literal text 
-(i.e. a message's test, or a folder name with spaces or funky characters) then you 
-may want to turn this on with the EnableServerResponseInLiteral parameter. Thanks go 
-to Manpreet Singh for reporting this bug.
-
-Fixed a bug in imap_to_mbox.pl that has been there since 2.0.0 (when the Uid 
-parameter started defaulting to "True"). Thanks to Christoph Viethen for reporting 
-the bug and suggesting the fix. BUT NOTE THIS: I often don't test the example programs,
-so you should think of them as examples and not free production programs. Eventually 
-I would like to add tests to my test suite (either the 'make test' test suite that you
-run or my own more extensive test suite) but it's not a super high priority right now.
-
-Significant improvements to the whole Mail::IMAPClient::BodyStructure module 
-were contributed by Pedro Melo Cunha. It's really much better now.
-
-Bullet-proofing added to some private methods. (Private meaning they are undocumented
-and not part of the module's API. This is perl not java.)
-
-Fix applied to unset_flag to support user-defined flags (thanks to E.Priogov 
-for submitting the bug report and patch).
-
-
-Changes in version 2.1.4
-------------------------
-Added Paul Warren's bugfix to the sort method.
-
-Added Mike Halderman's bugfix for the get_bodystructure method.
-
-Fixed a localization problem reported by Ivo Panecek. Because of this fix,
-the Errno.pm file is now a prerequisite to this module. This way I can just
-test to see if the error is an "EAGAIN" error (as defined in sys/errno.h and thus
-Errno.pm) instead of awkwardly checking the string value of $!. 
-
-I also renamed the MaxTempErrors parameter to Maxtemperrors in response the same 
-bug report.  Added a "MaxTempErrors" accessor method that will set and return 
-Maxtemperrors for backwards compatibility. Also, the number of temporary errors 
-gets reset after each successful I/O, so that the socket i/o operation fails only if
-you if your temporary I/O errors happen more than "Maxtemperrors" times in a row.
-The old behavior was to continue incrementing the count of temporary errors until
-either the entire message was written or until a total of Maxtemperrors had occurred,
-regardless of how many intervening successful syswrites occurred. This was a bug, but 
-Ivo politely suggested the new behavior as an enhancement. ;-) Also, you can now
-specify "UNLIMITED" as the Maxtemperrors, in which case these errors will be ignored.
-And the default for Maxtemperrors is now 100, but I'm open to any feedback you may
-have in this regard. 
-
-I also fixed the operator precedence problem that was reported by many folks in that
-very same part of the code. (As you may have guessed, that code was new in the last
-version!)
-
-One of the people who reported the precedence problem was Jules Agee, who also submitted
-a patch that may in the end provide an optimal solution to handling EAGAIN errors. 
-Unfortunately I have not had time to retrofit his patch into the current version of the
-module. But if I can manage to do this soon and it tests well I'll include it in the next
-release, in which case the Maxtemperrors parameter will be of interest only to historians.
-
-I also received a patch from John Ello that adds support for Netscape's proprietary 
-PROXYAUTH IMAP client command. I haven't included that support in this release because 
-you can already use the proxyauth method. It's one of those famous "default" methods 
-that, despite their fame and my documentation, nobody seems to know about. But you 
-can always say "$imap->proxyauth($uid)", for example, providing that $imap and $uid 
-are already what they're supposed to be. (I've been doing this myself for years.)
-
-However, John's patch does provide a cleaner interface (it remembers who you are as 
-well as who you were, for example) so I may include it later as part of a separate 
-module that extends Mail::IMAPClient. This would also give me an excuse for providing 
-the framework for plugging in Administrative methods that are proprietary to other imap 
-servers, so if you have a technique for acquiring administrative access to your users' 
-mailboxes (besides proxyauth) please let me know what it is. Perhaps we'll get something cool out of it, like a document on how to write administrative scripts for various 
-platforms and a suite of supporting methods for each. 
-
-Changes in version 2.1.3
-------------------------
-Added the new method append_string. It works similarly to append but will allow extra 
-arguments to supply the flags and internal date of the appended message. See the pod 
-for more details.
-
-(Thanks to Federico Edelman Anaya for suggesting this fix.)
-
-Fixed a bug in the AUTOLOAD subroutine that caused "myrights" (and possibly other 
-non-existant methods) to fail. Thanks go to Larry Rosenbaum for reporting the bug 
-and identifying the fix.
-
-Added the new method Escaped_results, which preprocesses results so that data 
-containing certain special characters are returned quoted with special characters 
-(like quotes!) escaped. (I needed this for the bodystructure stuff, below.)
-
-NEW! Added support for parsing bodystructures (as provided in the server response to 
-FETCH BODYSTRUCTURE). This support requires Parse::RecDescent and is implemented via two 
-new modules, Mail::IMAPClient::BodyStructure and Mail::IMAPClient::Parse. Note that 
-the latter module is used by the former; your programs need not and should not use it 
-directly so don't. Also, these modules are ALPHA and EXPERIMENTAL so no screaming when 
-they don't work. (Polite bug reports will of course be gratefully accepted.) Many 
-thanks to Damian Conway, the author of Parse::RecDescent, without which this feature 
-would not have been possible (or at least not very likely).
-
-Enhanced support for DOS systems (and DOS's offspring, such as windows) by removing 
-the "\c\n"s and replacing them with "\x0d\x0a". Thanks go to Marcio Marchini for his 
-help with this effort.
-
-Fixed the list of symbols imported along with Fcntl.pm. (Paul Linder asked me to put 
-this in the last release but I forgot.)
-
-Changes in version 2.1.2
-------------------------
-
-Fixed a bug in the is_parent method which made it inaccurate on some servers.
-
-Added new method "sort", which implements the SORT extenstion and which was contributed 
-by Josh Rotenberg. The SORT extension is documented at 
-http://search.ietf.org/internet-drafts/draft-ietf-imapext-sort-06.txt. A copy of the 
-draft is also included with the Mail::IMAPClient distribution, which means I also:
-
-Added draft-ietf-imapext-sort-06.txt to the docs subdirectory of the distribution.
-
-Fixed a bug in the folders method and the subscribed method (same bug, appeared twice) 
-which broke these methods under some conditions. Thanks again Josh Rotenberg for supplying the fix.
-
-Fixed bugs in getacl and listacl. Changed the interface for getacl significantly; 
-existing scripts using getacl will not behave the same way. But then on the other hand, 
-getacl was never documented before, so how could you be using it? 
-
-Implemented improvements to reduce memory usage by up to 30%. Thanks go Paul Linder, 
-who developed the memory usage patch after a considerable amount of analysis. The 
-improvements include the use of 'use constant', so your perl needs to support that 
-pragma in order to use Mail::IMAPClient.
-
-Added a new parameter, MaxTempErrors, which allows the programmer to control the number 
-of consecutive "Resource Temporarily Unavailable" errors that can occur before a write 
-to the server will fail. Also changed the behavior of the client when one of these 
-errors occurs. Previously, Mail::IMAPClient waited .25 seconds (a quarter of one 
-second) before retrying the read operation. Now it will wait (.25 * the number of 
-consecutive temporary errors) seconds before retrying the read. 
-
-Documented the "Buffer" parameter, which has been secretly available for some time. I 
-just forgot to document it. It sets the size of the read buffer when Fast_io is turned 
-on. (NOTE: As of version 2.1.5 it also controls the size of the buffer used by the 
-migrate method.) 
-
-Updated the Todo file. It was nice to see that a number of lines in the "Todo" file were now deletable. It was depressing to see that a number of original lines need to stay 
-in there. 
-
-
-Changes in version 2.1.1
-------------------------
-Added the "mark", "unmark", and imap4rev1 methods.
-
-Updated the documentation to include the new methods and to document "create", "store", 
-and "delete".
-
-Updated "message_string" to be smart about whether you're using IMAP4 or IMAP4REV1.
-
-Updated "message_to_file" to be smart about whether you're using IMAP4 or IMAP4REV1.
-
-Added several bug fixes to authenticate method. Many thanks to Daniel Wright who 
-reported these bugs and provided the information necessary to fix them.
-
-
-Changes in version 2.1.0
-------------------------
-
-Fixed a serious bug introduced in 2.0.9 when appending large messages.
-
-Made minor changes to improve the cyrus_expunge.pl example script.
-
-Made the set_flags routine RFC2060-compliant. Previously it prepended flag names with 
-backslashes, even if the flags were not reserved flags. This broke support for 
-user-defined flags, which I didn't realize was supposed to even be there until Scott 
-Renner clued me in. (Thanks, Scott.)
-
-Promoted the release level to "1". 
-
-Added a new 'internaldate' method. (Thanks to the folks at jwm3.org for donating the 
-code!)
-
-Added a new example, cyrus_expire.pl.
-
-Changes in version 2.0.8/2.0.9
-------------------------------
-Made minor changes to the tests in t/basic.t so that folders are explicitly closed 
-before they are deleted. (Don't worry, only folders created by the tests are 
-deleted. :-) Thanks go to Alan Young for reporting that some servers require this.
-
-Changed the routine that massages folder names into IMAP-compliant strings so that 
-single-quotes in a name do not force the folder to go through as "LITERAL" strings 
-(as defined in RFC2060). This shouldn't cause a problem for anybody (and in fact 
-should make life easier for some folks) but if you do have any trouble with 
-single-quotes in folder names PLEASE LET ME KNOW ASAP!! 
-
-Divided the sending of literal strings into two I/O operations (as required by RFC2060).
-This should correct problems with sending literals to some servers that will not read 
-any data sent before they reply with the "+ go ahead" message. (Thanks go to Keith Clay,
-who reported seeing this problem with the M-Store IMAP server.)
-
-Changed the "create" method so that it will autoquote the first argument to create 
-rather than the last. Normally the first argument is the last, but Cyrus users can 
-specify an optional 2nd argument, except when using pre-2.0.8 versions of 
-Mail::IMAPClient ;-) Thank you Chris Stratford for reporting this bug and 
-identifying its cause.
-
-Fixed a bug in body_string when the message is empty. (Thanks go to Vladimir Jebelev for 
-finding this bug and providing the fix.)
-
-Added a new example to the examples subdirectory. cyrus_expunge.pl is a script you 
-can use (after making minor tweaks) to periodically expunge your server's mail store. 
-
-Changes in version 2.0.7
-------------------------
-Fixed a bug in message_count. Thanks go to Alistair Adams for reporting this bug.
-
-Fixed a bug in folders that caused some foldernames to not be reported in the 
-returned array.
-
-Changes in version 2.0.6
-------------------------
-
-Applied patches from Phil Lobbe to tighten up sysreads and 'writes and to correct a
-bug in the I/O engine.
-
-Changes in version 2.0.5
-------------------------
-
-Fixed bug in parse_headers so that RFC822 headers now match the pattern /(\S*):\s*/
-instead of /(\S*): /. Thanks go to Paul Warren for reporting this bug and providing the
-fix.
-
-Added more robust error checking to prevent infinite loops during read attempts and
-fixed bugs in parse_headers. Thanks go to Phil Lobbes, who provided several useful 
-patches and who performed valuable pre-release testing.
-
-Changes in version 2.0.4
-------------------------
-
-Fixed bug in parse_headers when connected to an Exchange server with UID=>1. (Kudos to 
-Wilber Pol for that fix.)
-
-Fixed bugs in parse_headers and tightened reliability of I/O engine by implementing 
-many improvements suggested by Phil Lobbes, who also provided code for same.
-
-Added bugfix that under certain conditions caused server responses to be "repeated"
-when fast_io is turned on. Thanks to Jason Hellman for providing bug report and
-diagnostic data to fix this.
-
-Added a "LastIMAPCommand" method, which returns the last IMAP client command that 
-was sent to the server. 
-
-Removed the "=begin debugging" paragraph that somehow got included in CPAN's 
-html pages (even though it shouldn't have). 
-
-Began a process of redesigning the documentation. I would like to be able to present
-a more formal syntax for the various methods and hope to have that ready for the next
-release. 
-
-Tested successfully against Cyrus v 2.0.7.
-
-Tested unsuccessfully against mdaemon. This appears to be due to mdaemon's 
-noncompliance with rfc2060 so future support for mdaemon should not be expected 
-any time soon.  ;-(
-
-
-Changes in version 2.0.3
-------------------------
-
-Did major rewrite of message_string method, which should now be both cleaner 
-and more reliable.
-
-Fixed bug in move method that caused some folders to be incorrectly quoted. 
-Thanks go to Felix Finch for reporting this bug. Also, at his suggestion I 
-added information to move documentation explaining the need to expunge.
-
-Made many fixes and tweaks to pod text.
-
-Added a new method, Rfc2060_date, which takes times in the "seconds since 1/1/1970" 
-format and returns a string in RFC2060's "dd-Mon-yyyy" format (which is the format 
-you need to use in IMAP SEARCH commands).
-
-Changes in version 2.0.2
-------------------------
-Fixed bug that caused a compile error on some earlier versions of perl5. 
-
-Noticed that some older versions of perl give spurious "Ambiguous use" warnings 
-here and there, mostly because I'm not quoting the name of the "History" member 
-of the underlying Mail::IMAPClient hash. These warnings will go away when you upgrade 
-perl. (I may fix them later, or maybe not. Depends on if I have time.) 
-
-Added new parameter (and eponymous method) Peek, along with new tests for 'make test' 
-for same. See the pod for further info.
-
-Added some error checking to avoid trying to read or write with an 
-unconnected IMAPClient object.
-
-Made bug fixes to parse_headers and flags.
-
-Added missing documentation for the exciting new message_to_file method (oops). 
-Also cleaned up a few typos in the pod while I happened to be there. (I'm sure 
-there are still plenty left.)
-
-Fixed bugs in append and append_file. (Thanks to Mauro Bartolomeoli and to the people 
-at jwm3.org for reporting these bugs.) 
-
-Made changes to call to syswrite to guarantee delivery of entire message. (Only affects 
-appends of very large messages.)
-
-Added the 'close' method to the list of lower-case-is-okay methods (see the section 
-under version 2.0.0 on "NEW ERROR MESSAGES").
-
-Changes in version 2.0.1
-------------------------
-Several bug fixes related to the flags method and to spurious warning messages 
-when run with warnings turned on.
-
-A new method, message_to_file, writes message text directly into a file. This 
-bypasses saving the text in the history buffer and the overhead that entails, which 
-could be especially important when processing big ass messages. Of course the bad news 
-is that now you'll have to write all that shtuff out to a filehandle, but maybe you 
-wanted to do that anyway. Anyhow, between append_file and message_to_file, both 
-of which take filehandle arguments, there should be a way to "short circuit" the 
-copying of mail between two imap sessions. I just haven't got it completely figured 
-out yet how it would work. Got any ideas? Anyhow, this method is currently considered 
-experimental.
-
-A couple of new tests have been added to go along with our new little method.
-
-I've added a whole bunch more IMAP-related rfc's to the docs/ subdirectory. Trust me, 
-you are going to need them.
-
-Changes in version 2.0.0
------------------------
-NEW I/O ENGINE
-This version includes a major rewrite of the I/O engine. It's now cleaner and more 
-reliable. Also, output processing is less likely to match patterns that look like 
-server output but are really, say, message text contained in a literal or something 
-like that. Also, various problems with blank lines at the ends of messages either 
-magically appearing or disappearing should now go away. Basically, it's much better 
-is what I'm trying to say.
-
-NEW DEFAULT
-The Uid parameter now defaults to true. This should be transparent to existing scripts 
-(except for those scripts that produce embarrassing results because someone forgot to 
-specify Uid=>1, in which case they'll magically start behaving somehow).
-
-NEW METHOD
-The namespace method has been added, thus implementing RFC2342. If you have any scripts 
-that rely on the old, "default method" style of namespace implementation then you should 
-rename those method calls to be mixed case (thus forcing the AUTOLOADed default method). 
-
-NEW ERROR MESSAGES
-Mail::IMAPClient now issues a lot more warning messages when run in warn mode 
-(i.e. $^W is true). Of particular interest are methods implemented via the "default 
-method" AUTOLOAD hack. They will generate a warning telling you to use mixed- or 
-upper-case method names (but only if warnings are turned on, say with the -w switch 
-or $^W++ or something).  The exceptions are certain unimplemented yet quite popular 
-methods that, if ever explicitly implemented, will behave the same way as they do via 
-the default method. (Or at least they will remain downwardly compatible. I may add 
-bells and whistles by not by default.) Those methods are listed in the pod and right 
-here:  store, copy, subscribe, close, create, delete and expunge.
-
-NEW VERSION NUMBERING SCHEME
-Changed the version numbering scheme to match perl's (as of perl v5.6.0).
-
-NEW INSTALLATION TESTS
-Added a few new tests to the test suite. (Still need more, though.) Also changed fast_io 
-and uidplus test suites so that they just "do" the basic tests but with different 
-options set (i.e. Fast_io and Uid, respectively).
-
-OTHER CHANGES
-- The expunge method now optionally accepts the name of the folder to be expunged. It's 
-also been documented, even though it technically doesn't exist. (That won't stop it from 
-working, though.) Since expunge deletes messages that you thought were already deleted, 
-it's only appropriate to use a method that you thought existed but really doesn't, don't 
-you think? And if you're wondering how I managed to change the behavior of a method that 
-doesn't exist, well, I don't want to talk about it.
-
-- Speaking of methods that don't exist (also known as methods implemented via "the 
-default method"), effective with this release there are a number of unimplemented 
-methods that are guaranteed to always exhibit their current behavior. In other words, 
-even if I do eventually implement these methods explicitly, they will continue to 
-accept the same arguments and return the same results that they do now via the default 
-method. (Why I would even bother to do that is specifically not addressed in this 
-document.) Currently this means that these methods will not trigger warnings when 
-called via all-lowercase letters (see "NEW ERROR MESSAGES", above). In the future I 
-hope that it will also mean that these non-existant but functioning methods will also 
-be documented in the pod.
-
-- Fixed a bug in the flags method introduced in 1.19.  (Thanks to the people at jwm3.org 
-for reporting this!)
-
-
-Changes in version 1.19
------------------------
-Fixed a bug in which the Folder parameter returned quoted folder names, which sometimes 
-caused other methods to requote the folders an extra time. (The IMAP protocol is real 
-picky about that.) Thanks go to Felix Finch for both reporting the bug and identifying 
-the fix.
-
-Siggy Thorarinsson contributed the new "unseen_count" method and suggested a new 
-"peek mode" parameter.  I have not yet gotten around to implementing the new parameter 
-but have included the unseen_count method, since a) he was kind enough to write it, and 
-b) it tests well. 
-
-In the meantime, you cannot tell methods like "parse_headers" and "message_string" and 
-so forth whether or not you want them to mark messages as "\Seen". So, to make life 
-easier for you in particular I added a bunch of new methods: set_flag, unset_flag, 
-see, and deny_seeing. The latter two are derivitives of the former two, respectively, 
-which should make this sentence almost as difficult to parse as an IMAP conversation.
-
-Fixed bug in which "BAD" "OK" or "NO" lines prefixed by an asterisk (*) instead of the 
-tag are not handled correctly. This is especially likely when LOGIN to a UW IMAP server 
-fails. Thanks go to Phil Lobbes for squashing this bug.
-
-Fixed bug in logout that caused the socket handle to linger. Credit goes to 
-Jean-Philippe Bouchard for reporting this bug and for identifying the fix.
-
-Fixed bug in uidvalidity method where folder has special characters in it.
-
-Made several bug fixes to the example script examples/find_dup_msgs.pl. Thanks to Steve 
-Mayer for identifying these bugs.
-
-Changed Fast_io to automatically turn itself off if running on a platform that does 
-not provide the necessary fcntl macros (I won't mention any names, but it's initials 
-are "NT"). This will occur silently unless warnings are turned on or unless the Debug 
-parameter is set to true. Previously scripts running on this platform had to turn off 
-fast_io by hand, which is lame. (Thank you Kevin Cutts for reporting this problem.)
-
-Updated logic that X's out login credentials when printing debug output so that funky 
-characters in "User" or "Password" parameters won't break the regexp. (Kevin Cutts found 
-this one, too.)
-
-Tinkered with the Strip_cr method so it can accept multiple arguments OR an array 
-reference as an argument. See the updated pod for more info.
-
-Fixed a typo in the documentation in the section describing the fetch method. There 
-has been an entire paragraph missing from this section for who knows how long. Thanks 
-to Adam Wells, who reported this documentation error.
-
-Fixed bug in seen, recent, and unseen methods that caused them to return empty arrays 
-erroneously under certain conditions.
-
-Changes in version 1.18
------------------------
-Timeouts during read operations now work correctly.
-
-Fixed several bugs in the I/O engine. This should correct various problems with Fast_io 
-turned on (which is now the default).
-
-Reworked message_string and body_string methods to avoid bugs when Uid set to true.
-
-Changes in version 1.17
------------------------
-
-Added support for the Oracle IMAP4r1 server.
-
-Tinkered with the DESTROY method so that it does a local($@) before doing its evals. 
-This will perserve the value of $@ when the "new" method fails during a login but the 
-DESTROY's "logout" succeeds. The module was setting the $@ variable, but on some 
-versions of perl the DESTROY method would clobber $@ before anything useful could be 
-done with it! Thanks to Kimmo Hovi for reporting this problem, which was harder to 
-debug than you might think.
-
-Changes in version 1.16
------------------------
-
-IMPORTANT:  Made Fast_IO the default. You must specify Fast_io => 0 in your new method 
-call or invoke the Fast_io method (and supply 0 as an arg) to get the old behavior. 
-(This should be transparent to most users, but as always your mileage may vary.)
-
-Reduced the number of debug msgs printed in the _read_line internal method and added a 
-debug msg to report perl and Mail::IMAPClient versions.
-
-The message_count method will now return the number of messages in the currently select 
-folder if no folder argument is supplied. 
-
-The message_string method now does an IMAP FETCH RFC822 (instead of a 
-FETCH RFC822.HEADERS and a FETCH RFC822.TEXT), which should eliminate missing blank 
-lines at the ends of some messages on some IMAP server platforms. It also returns undef 
-if for some reason the underlying FETCH fails (i.e. there is no folder selected), 
-thanks to a suggestion by Pankaj Garg. It has also been slightly re-worked to support 
-the changes in the I/O engine from version 1.14.
-
-Re-worked the body_string method to support the I/O engine changes from v1.14.
-
-Fixed a bug in parse_headers when used with multiple headers and the Uid parameter set 
-to a true value.
-
-Documented in this file a fix for a bug in the flags method with the Uid parameter 
-turned on. (Belated thanks to Michael Lieberman for reporting this bug.)
-
-Changes in version 1.15
------------------------
-Fixes the test suite, which in v1.14 had an "exit" stmt that caused early termination 
-of the tests.  (I had put that "exit" in there on purpose, and left it in there by 
-accident.)
-
-Changes in version 1.14
------------------------
-Fixed a bug in the _readline subroutine (part of the I/O engine) that was caused by my 
-less-than-perfect interpretation of RFC2060. This fix will allow the Mail::IMAPClient 
-module to function correctly with servers that imbed literal datatypes in the middle 
-of response lines (rather than just at the end of them). Thanks to Pankaj Garg for 
-reporting this problem and providing the debugging output necessary to correct it.
-
-Fixed a bug in parse_headers that was introduced with the fix to the I/O engine 
-described above.
-
-Changes in version 1.13
------------------------
-Changed the parse_headers method so that it uses BODY.PEEK instead of BODY. This 
-prevents the parse_headers method from implicitly setting the "\Seen" flag for messages 
-that have not been otherwise read. This change could produce an incompatibility in 
-scripts that relied on the parse_headers previous behavior. 
-
-Fixed a bug in the flags method with the Uid parameter turned on.  (Thanks to Michael 
-Lieberman for reporting this bug.)
-
-Changes in version 1.12
------------------------
-Fixed a bug in the folders method when called first with a second arg and then without 
-a second arg.
-
-Tested sucessfully with perl-5.6.0. 
-
-Added a section to the pod documentation on how to report bugs. I've had to ask for 
-output from scripts with "Debug => 1" so many times that I eventually decided to 
-include the procedure for documenting bugs in the distribution. (Duh! It only took me 
-11 releases to come up with that brainstorm.) Often following the procedures to obtain 
-the documentation is enough; once people see what's going on (by turning on Debug =>1) 
-they no longer want to report a bug. 
-
-Did I mention it's a good idea to turn on debugging when trying to figure out why a 
-script isn't working? (It is.)
-
-In order to make the Debug parameter friendlier, it now prints to STDERR by default. 
-You can override this by supplying the spanking brand new Debug_fh parameter, which 
-if supplied had better well point to a filehandle (either by glob or by reference), 
-and by 'filehandle' I mean something besides STDIN!
-
-Debugging mode will now also X-out the login credentials used to login. This will make 
-it easier to share your debugging output.
-
-Added documentation for the State parameter, which must be set manually by programmers 
-who are not using Mail::IMAPClient's connect and/or login methods but who are instead 
-making their own connections and then using the Socket parameter to turn their 
-connections into IMAP clients.
-
-Fixed bug in parse_headers with Uid turned on.
-
-Fixed bug in parse_headers when using the argument "ALL".
-
-Changes in version 1.11
------------------------
-Added new example script, copy_folder.pl, to demonstrate one way to copy entire 
-folders between imap accounts (which may or may not be on the same server). This 
-example is right next to all the others, in the examples/ subdirectory of the 
-distribution.
-
-Changed error handling slightly. $@ now contains pretty much the same stuff as what 
-gets returned by LastError, even when LastError won't work (i.e. when an implicit 
-connect or login fails and so no object reference is returned by new). You can thank 
-John Milton for the friendly nagging that got me to do this.
-
-Added new test suite for the fast_io engine. This should make it easier to determine 
-whether or not the fast_io engine will work on your platform. 
-
-Implemented a work-around to allow the Port parameter to default despite a known bug in 
-IO::Socket::INET version 1.25 (distributed with perl 5.6.0).
-
-Fixed a bug in the message_string method in which the resulting text string for some 
-mime messages to be incompatible with append.
-
-Fixed a bug in the Fast_io i/o engine that could cause hangs during an append operation.
-
-Changed a number of regular expressions to accept mixed-case "Ok", "No" or "Bad" 
-responses from the server and to do multi-line matching.
-
-Fixed a bug in the append method that was causing extra carriage returns to appear in 
-messages whose lines were already terminated with the CR-LF sequence. Thanks to Heather 
-Adkins for reporting this bug.
-
-Enhanced the parse_headers routine so that it is less sensitive to variations of 
-case in message headers. Now, the case of the returned key matches the case of the 
-field as specified in the parse_headers method's arguments, regardless of its case 
-in the message being parsed. (You can thank Heather Atkins for this suggestion as 
-well.) See below for more changes to parse_headers in this release.
-
-Improved the append method so that it has better error handling and error recovery. 
-Thanks to Mark Keisler for pointing out some bugs in the error handling code in 
-this method.
-
-Added the append_file method, which is like the append method but it works on files 
-instead of strings.  The file provided to append must contain an RFC822-formatted 
-message. Use of the append_file method avoids having to stuff huge messages into 
-variables before appending them. Thanks to jwmIII (http://jwm3.org) for suggesting 
-this method.
-
-Changed the flags method and the parse_headers method so that a reference to an array 
-of message sequence numbers (or message UIDS if the Uid parameter is turned on) can 
-optionally be passed instead of a single message sequence number (or UID). Use of this 
-enhancement will change your return values so be sure to read the pod.  Thanks to 
-Adrian Smith (adrian.smith@ucpag.com) for delivering this enhancement.
-
-Fixed a bug in "message_string" that caused the blank lines between headers and body 
-to fall out of the string.
-
-Tinkered with the undocumented _send_line method to permit an optional argument 
-to suppress the automatic insertion of <CR><LF> at the end of strings being sent. 
-(NOTE: I'm telling you this because I'm a nice guy. This doesn't mean that _send_line 
-is now a programming interface.)
-
-Changes in version 1.10
------------------------
-
-Added two new methods, lsub and subscribed. lsub replaces the behavior of the default 
-method and should be downwardly compatible. The subscribed method works like the 
-folders method but the results include only subscribed folders. Thanks to Alexei 
-Kharchenko for providing the code for lsub (which is the foundation upon which 
-'subscribed' was built).
-
-Changes in version 1.09
------------------------
-
-Changed login method so that values for the User parameter that do not start and end 
-with quotes will be quoted when sent to the server. This is to support user id's 
-with embedded spaces, which are legal on some platforms. 
-
-Changed name of test input file created by perl Makefile.PL and used by 'make test' 
-from .test to test.txt to support weird, offbeat OS platforms that cannot handle 
-filenames beginning with a dot.
-
-Fixed bugs in seen, unseen, and recent methods.  (These are almost the same method 
-anyway; they are dynamically created at compile time from the same code, with 
-variable substitution filling in the places where "seen", "unseen", or "recent" 
-belong.) The bug caused these methods to return the transaction number of the 
-search as if it were the last message sequence number (or message uid) in
-the result set.
-
-Added the 'since' method, which accepts a date in either standard perl format (seconds 
-since 1/1/1970, or as output by time and as accepted by localtime) or in the date_text 
-format as defined in RFC2060 (dd-Mon-yyyy, where Mon is the English-language 
-three-letter abbreviation for the month). It searches for items in the currently 
-selected folder for messages sent since the day whose date is provided as an argument.
-
-Added 'sentsince', 'senton', 'sentbefore', 'on', and 'before' methods which are 
-totally 100% just like the 'since' method, except that they run different searches. 
-(Did I mention that it's useful to have RFC2060 handy when writing IMAP clients?)
-
-Added two new methods, run and tag_and_run, to allow IMAP client programmers finer 
-control over the IMAP conversation. These methods allow the programmer to compose 
-the entire IMAP command string and pass it as-is to the IMAP server. The difference 
-between these two methods is that the run method requires that the string include 
-the tag while the tag_and_run method requires that it does not.
-
-To a similar end, the pre-existing Socket parameter and eponymous accessor method 
-has been documented to allow direct access to the IMAP socket handle and to allow 
-the socket handle to be replaced with some other file handle, presumably one derived 
-from a more interesting technology (such as SSL).
-
-Fixed a bug that caused blank lines to be removed from 'literal' output (as defined 
-in RFC2060) when fast_io was not used. This bug was especially likely to show up in 
-routines that fetched a message's body text.  The fact that this bug did not occur 
-in the newer fast_io code may indicate that I've learned something, but on the other 
-hand we shouldn't jump to rash conclusions.
-
-I've run benchmarks on the fast_io code to determine whether or not it is faster and, 
-if so, under what circumstances. It appears that the fast_io code is quite faster, 
-except when reading large 'literal' strings (i.e. message bodies), in which case it 
-appears to take the same amount of time as the older i/o code but at the cost of 
-more cpu cycles (which means it may actually be slower on cpu-constrained systems). 
-The reason for this is that reads of literal strings are by their nature already 
-optimized, but without the overhead of fcntl calls. So if you expect to be doing 
-lots of message text (or multipart message body parts) fetching you should not use 
-fast_io, but in pretty much any other case you should go ahead and use it. In any 
-event, a number of people have tested fast_io so I no longer consider it 
-experimental, unless you're running perl on NT or CP/M or something funky like that, 
-in which case let me know how you make out! 
-
-Changes in version 1.08
------------------------
-
-Maintenance release 1.08a fixes a bug in the folders method when supplying the 
-optional argument (see "Enhanced folders method..." below) with some IMAP servers.
-
-Added option to build_ldif.pl (in the examples subdirectory) to allow new options and 
-to better handle quoted comments in e-mail addresses. Thanks to Jeffrey Fiedl, 
-whose book _Mastering Regular Expressions_ (O'Reilly) helped me to figure out a 
-good way to do this.
-
-Fixed documentation error that failed to mention constraints on when the append 
-method will return the uid of the appended message. (This feature only works with 
-servers that have the UIDPLUS capability.)
-
-Added/improved documentation somewhat.
-
-The copy method now returns a comma-separated list of uids if successful and if the 
-IMAP server supports UIDPLUS extentions. The move method now works similarly.
-
-Added new method uidnext, which accepts the name of a folder as an argument and returns 
-the next available message UID for that folder.
-
-The exists and append methods now will handle unquoted foldernames with embedded 
-spaces or quotes or whatever. Including quotes as part of the argument string is no 
-longer required but is still supported for backwards compatibility reasons. In other 
-words, $imap->exists(q("Some Folder")) is now no longer necessary (but will still work). $imap->exists(some folder) is good enough.
-
-Mail::IMAPClient has been tested successfully on Mirapoint 2.0.2. (Thanks to Jim 
-Hickstein.)
-
-I've now installed the UW imapd IMAP4rev1 v12.264 on one of my machines so I'm better 
-able to certify that platform. All the tests in 'make test' work there (or are at least 
-gently skipped). 
-
-Fixed bug in getacl in which folder names were quoted twice. (Thanks to Albert Chin for 
-squashing this bug.) Similar bugs existed in the other ACL methods and were similarly 
-fixed.
-
-Fixed a bug in message_uid that basically caused it to not work. Muchos gracias to 
-Luvox (aka fluvoxamine hydrochloride) for providing me with just the help I needed to 
-discover and fix this bug. 
-
-Enhanced folders method to allow an argument. If an argument is supplied, then 
-the folders method will restrict its results to subfolders of the supplied argument 
-(which should be the name of a parent folder, IMHO). This is implemented by supplying 
-arguments to the LIST IMAP Client command so we are optimizing network I/O at the 
-expense of possible server incompatibilities.  If you find server incompatibilities 
-with this then please let me know, and in the meantime you can always 
-grep(/^parent/,$imap->folders) or something. Or re-implement the folders 
-method yourself.
-
-
-Changes in version 1.07
------------------------
-Added a new parameter, Fast_io, which, if set to a true value, will attempt to 
-implement a faster I/O engine. USE THIS AT YOUR OWN RISK. It is alpha code. I don't 
-even know yet if it even helps.
-
-Added support for spaces in folder names for the autoloaded subscribe method.
-
-Added new methods setacl, getacl, deleteacl, and listrights. These methods are not yet 
-fully tested and should be considered beta for this release.
-
-Enhanced support for the myrights method (which is implemented via the default method).
-
-Fixed bug in append method that caused it to hang if server replied to original APPEND 
-with a NO (because, say, the mailbox's quota has been exceeded).
-
-Removed the autodiscovery of the folder hierarchy from the login method. This will 
-speed up logging in but may delay certain other methods later (but see the next item, 
-below).
-
-Updated the exists method to issue a "STATUS" IMAP Client command, rather than depend 
-on the folder hierarchy being discovered via 'LIST "" "*"'. Apparently this speeds 
-things up a lot for some configurations, although the difference will be negligable to 
-many.
-
-Updated Makefile.PL to support the PREFIX=~/ directive. Thanks to Henry C. Barta 
-(hbarta@wwa.com) for this fix.
-
-Added the Timeout parameter and eponymous accessor method, which, if set to a true 
-value, causes reads to time out after the number of seconds specified in the Timeout 
-parameter. The value can be in fractions of a second. This has not been fully tested 
-though, so use of this parameter is strictly "Beta".
-
-Enhanced support for the UID IMAP client command. Setting the new Uid parameter to a 
-true value will now cause the object to treat all message numbers as message UID 
-numbers rather than message sequence numbers. Setting the Uid parameter to a false 
-value will turn off this behavior again. 
-
-Updated test suite to handle servers that cannot do UIDPLUS and to add tests for 
-the Uid parameter.
-
-Incorporated bug fixes for recent_count and message_count in which some servers are 
-sticking in extra \r's, and updated DESTROY to remove spurious warning messages under 
-some versions of perl (thanks to Scott Wilson for catching and killing these bugs).
-
-
-Changes in version 1.06
------------------------
-Changed folders method so that it correctly handles mail folders whose names start and 
-end with quotes.
-
-Changed append method so that it returns the uid of the newly appended message if
-successful. Since the uid is a "true" value this should not affect the behavior of
-existing scripts, although it may enhance the behavior of new scripts ;-)
-
-Fixed bug in parse_headers that could cause script to die if there were no headers of
-the type requested and if there was a space on the blank line returned from FETCH.
-(Some blank lines are blanker than others...)
-
-Added the "flags" method, which returns an array (or array reference if called in scalar
-context) containing the flags that have been set for the message whose sequence number 
-has been provided as the argument to the method. 
-
-Added the "message_string" method, which accepts a message sequence number as an 
-argument and returns the contents of the message (including RFC822 headers) as a 
-single string.
-
-Added the "body_string" method, which accepts a message sequence number as an argument 
-and returns the contents of the message (not including RFC822 headers) as a single 
-string.
-
-Changes in version 1.05
------------------------
-
-Patched the 'make test' basic test to work correctly on systems that do not
-support double quotes in folder names. Thanks to Rex Walters for this fix.
-
-Added a new example script, build_dist.pl, that rumages through a folder 
-(specified on the command line) and collects the "From:" address, and then 
-appends a message to that folder with all those addresses in both the To: field 
-and the text, to facilitate cuting and pasting (or dragging and dropping) 
-into address books and so forth. (Note that the message doesn't actually get 
-sent to all those people; it just kind of looks that way.)
-
-Also added another example, build_ldif.pl, that is similar to build_dist.pl 
-except that instead of listing addresses in the message text, it creates a 
-MIME attachment and attaches a text file in LDIF format, which can then be
-imported into any address book that supports LDIF as an import file format.
-This example requires the MIME::Lite module. MIME::Lite was written by Eryq 
-(okay, Erik Dorfman is his legal name), and is totally available on CPAN. 
-
-This distribution has now been tested on Mirapoint Message Server Appliances
-(versions 1.6.1 and 1.7.1). Many thanks to Rex Walters for certifying this
-platform and for providing a test account for future releases.
-
-Changes in version 1.04
------------------------
-
-Fixed situation in which servers that include the "<tag> <COMMAND> OK\r\n" line
-as part of a literal (i.e. text delivered via {<length>}\r\n<length> bytes\r\n)
-caused the module to hang. This situation is pretty rare; I've only run across
-one server that does it. I'm sure it's a bug; I'm not sure whose. ;-}
-Many thanks to Thomas Stromberg for 1) pointing out this bug and 2) providing 
-me with facilities to find and fix it!
-
-Fixed potential bug in I/O engine that could cause module to hang when reading 
-a literal if the first read did not capture the entire literal.
-
-Cleaned up some unnecessary runtime warnings when a script is executed with 
-the -w switch.
-
-Added new tests to 'make test'. I just can't keep my hands off it! ;-)
-
-Enhanced the append method and several tests in 'make test' to be more widely
-compatible. Successfully tested on UW-IMAP, Cyrus v1.5.19, Netscape Messenger 
-4.1, and Netscape Messenger v3.6. If you know of others please add them to 
-the list! 
-
-Fixed a bug in the separator method (new in 1.03) that caused it to fail if
-'inbox' was specified in lowercase characters as the method's argument. 
-
-Added a new example, imap_to_mbox.pl, contributed by Thomas Stromberg. This 
-example converts a user's IMAP folders on an IMAP server into mbox format. 
-
-Changes in version 1.03
------------------------
-Reworked several methods to support double-quote characters within folder 
-names. This was kind of hard. This has been successfully tested with create, 
-delete, select, and folders, to name the ones that come to mind.
-
-Reworked the undocumented method that reads the socket to accept and handle
-more gracefully lines ending in {nnn}\r\n ( where nnn is a number of 
-characters to read). This seems to be part of the IMAP protocol although I 
-am at a total loss as to where it's explained, other than a brief description 
-of a "literal's" bnf syntax, which hardly counts. 
-
-Added separator object method, which returns the separator character in use 
-by the current server. 
-
-Added is_parent method, which returns 1, 0, or undef depending on whether a 
-folder has children, has no children, or is not permitted to have children.
-
-Added tests to 'make test' to test new function. Also changed 'make test' to 
-support IMAP systems that allow folders to be created only in the user's INBOX 
-(which is the exact opposite of what my IMAP server allows...oh, well).
-
-Fixed a bug that caused search to return an array of one undef'ed element 
-rather than undef if there were no hits.
-
-Changes in version 1.02
------------------------
-Fixed bugs in search and folders methods. 
-
-Fixed bug in new method that ignored Clear => 0 when specified as arguments to 
-new.
-
-Changes in version 1.01
------------------------
-Fixed a bug in test.pl that caused tests to fail if the extended tests were not used.
-
-Added method 'parse_headers' to parse the header fields of a message in the 
-IMAP store into a perl data structure.
-
-Changes in version 1.00
------------------------
-Made cosmetic changes to documentation.
-
-Fixed a bug introduced into the 'folders' method in .99.
-
-Changed 'new' method so that it returns undef if an implicit connection or 
-login is attempted but fails. Previous releases returned a Mail::IMAPClient 
-object that was not connected or not logged in, depending on what failed.
-
-Changed installation script so that it reuses the parameter file for test.pl 
-if it finds one. Installation can be run in the background if the test.txt file 
-exists. Touching it is good enough to prevent prompts; having a correctly 
-formatted version (as described in test_template.txt) is even better, as it will 
-allow you to do a thorough 'make test'.
-
-Changes in version .99 
-----------------------
-Added the Rfc822_date class method to create RFC822-compliant date fields in 
-messages being appended with the append method.
-
-Added the recent, seen, and unseen methods to return an array of sequence 
-numbers from a SEARCH RECENT, SEARCH SEEN, or SEARCH UNSEEN method call. 
-These methods are shortcuts to $imap->search("RECENT"), etc. 
-
-Added the recent_count method to return the number of RECENT messages in a 
-folder. Contributed by Rob Deker.
-
-Added 'use strict' compliance, courtesy of Mihai Ibanescu.
-
-Fixed a bug in the search method that resulted in a list with one empty member 
-being returned if a search had no hits. The search method now returns undef 
-if there are no hits.
-
-Added 'authenticate' method to provide very crude support for the IMAP 
-AUTHENTICATE command. The previous release didn't support AUTHENTICATE at all, 
-unless you used very low-level (and undocumented) methods. With the 
-'authenticate' method, the programmer still has to figure out how to 
-respond to the server's challenge. I hope to make it friendlier in the 
-next release. Or maybe the one after that. This method is at least a start, 
-albeit a pretty much untested one.
-
-Added Rfc822_date class method to facilitate creation of "Date:" header 
-field when creating text for the "append" method, although the method may 
-come in handy whenever you're creating a Date: header, even if it's not 
-in conjuction with an IMAP session.
-
-Added more tests, which will optionally run at 'make test' time, provided all 
-the necessary data (like username, hostname, password for testing an IMAP 
-session) are available.
-
-
-Changes in version 0.09  
------------------------
-Thu Aug 26 14:10:03 1999 - original version; created by h2xs 1.19
-
-# $Id: Changes,v 20001010.18 2003/06/12 21:35:48 dkernen Exp $
diff --git a/W/Mail-IMAPClient-3.42/MANIFEST b/W/Mail-IMAPClient-3.42/MANIFEST
deleted file mode 100644
index 6015af3..0000000
--- a/W/Mail-IMAPClient-3.42/MANIFEST
+++ /dev/null
@@ -1,42 +0,0 @@
-Changes
-MANIFEST
-Makefile.PL
-README
-examples/build_dist.pl
-examples/build_ldif.pl
-examples/cleanTest.pl
-examples/copy_folder.pl
-examples/cyrus_expire.pl
-examples/cyrus_expunge.pl
-examples/find_dup_msgs.pl
-examples/idle.pl
-examples/imap_to_mbox.pl
-examples/imtestExample.pl
-examples/migrate_mail2.pl
-examples/migrate_mbox.pl
-examples/populate_mailbox.pl
-examples/sharedFolder.pl
-lib/Mail/IMAPClient.pm
-lib/Mail/IMAPClient.pod
-lib/Mail/IMAPClient/BodyStructure.pm
-lib/Mail/IMAPClient/BodyStructure/Parse.grammar
-lib/Mail/IMAPClient/BodyStructure/Parse.pm
-lib/Mail/IMAPClient/BodyStructure/Parse.pod
-lib/Mail/IMAPClient/MessageSet.pm
-lib/Mail/IMAPClient/Thread.grammar
-lib/Mail/IMAPClient/Thread.pm
-lib/Mail/IMAPClient/Thread.pod
-prepare_dist
-t/basic.t
-t/body_string.t
-t/bodystructure.t
-t/fetch_hash.t
-t/lib/MyTest.pm
-t/messageset.t
-t/pod.t
-t/quota.t
-t/simple.t
-t/thread.t
-test_template.txt
-META.yml                                 Module meta-data (added by MakeMaker)
-META.json                                Module JSON meta-data (added by MakeMaker)
diff --git a/W/Mail-IMAPClient-3.42/META.json b/W/Mail-IMAPClient-3.42/META.json
deleted file mode 100644
index b09c60e..0000000
--- a/W/Mail-IMAPClient-3.42/META.json
+++ /dev/null
@@ -1,57 +0,0 @@
-{
-   "abstract" : "IMAP4 client library",
-   "author" : [
-      "Phil Pearl (Lobbes) <plobbes+mail-imapclient@gmail.com>"
-   ],
-   "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010",
-   "license" : [
-      "perl_5"
-   ],
-   "meta-spec" : {
-      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : 2
-   },
-   "name" : "Mail-IMAPClient",
-   "no_index" : {
-      "directory" : [
-         "t",
-         "inc"
-      ]
-   },
-   "prereqs" : {
-      "build" : {
-         "requires" : {
-            "ExtUtils::MakeMaker" : "0"
-         }
-      },
-      "configure" : {
-         "requires" : {
-            "ExtUtils::MakeMaker" : "0"
-         }
-      },
-      "runtime" : {
-         "requires" : {
-            "Carp" : "0",
-            "Errno" : "0",
-            "Fcntl" : "0",
-            "File::Temp" : "0",
-            "IO::File" : "0",
-            "IO::Select" : "0",
-            "IO::Socket" : "0",
-            "IO::Socket::INET" : "1.26",
-            "List::Util" : "0",
-            "MIME::Base64" : "0",
-            "Parse::RecDescent" : "1.94",
-            "Test::More" : "0",
-            "perl" : "5.008"
-         }
-      }
-   },
-   "release_status" : "stable",
-   "resources" : {
-      "homepage" : "https://sourceforge.net/projects/mail-imapclient/"
-   },
-   "version" : "3.42",
-   "x_serialization_backend" : "JSON::PP version 2.97001"
-}
diff --git a/W/Mail-IMAPClient-3.42/META.yml b/W/Mail-IMAPClient-3.42/META.yml
deleted file mode 100644
index 6adb776..0000000
--- a/W/Mail-IMAPClient-3.42/META.yml
+++ /dev/null
@@ -1,37 +0,0 @@
----
-abstract: 'IMAP4 client library'
-author:
-  - 'Phil Pearl (Lobbes) <plobbes+mail-imapclient@gmail.com>'
-build_requires:
-  ExtUtils::MakeMaker: '0'
-configure_requires:
-  ExtUtils::MakeMaker: '0'
-dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010'
-license: perl
-meta-spec:
-  url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: '1.4'
-name: Mail-IMAPClient
-no_index:
-  directory:
-    - t
-    - inc
-requires:
-  Carp: '0'
-  Errno: '0'
-  Fcntl: '0'
-  File::Temp: '0'
-  IO::File: '0'
-  IO::Select: '0'
-  IO::Socket: '0'
-  IO::Socket::INET: '1.26'
-  List::Util: '0'
-  MIME::Base64: '0'
-  Parse::RecDescent: '1.94'
-  Test::More: '0'
-  perl: '5.008'
-resources:
-  homepage: https://sourceforge.net/projects/mail-imapclient/
-version: '3.42'
-x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff --git a/W/Mail-IMAPClient-3.42/Makefile.PL b/W/Mail-IMAPClient-3.42/Makefile.PL
deleted file mode 100644
index 5d9cc3f..0000000
--- a/W/Mail-IMAPClient-3.42/Makefile.PL
+++ /dev/null
@@ -1,138 +0,0 @@
-use ExtUtils::MakeMaker;
-use warnings;
-use strict;
-
-use 5.008_001;
-
-my @missing;
-my %optional = (
-    "Authen::NTLM"     => { for => "Authmechanism 'NTLM'" },
-    "Authen::SASL"     => { for => "Authmechanism 'DIGEST-MD5'" },
-    "Compress::Zlib"   => { for => "COMPRESS DEFLATE support" },
-    "Digest::HMAC_MD5" => { for => "Authmechanism 'CRAM-MD5'" },
-    "Digest::MD5"      => { for => "Authmechanism 'DIGEST-MD5'" },
-    "IO::Socket::IP"   => { for => "IPv6 support" },
-    "IO::Socket::SSL"  => { for => "SSL enabled connections (Ssl => 1)" },
-    "Test::Pod"        => { for => "Pod tests", ver => "1.00" },
-);
-
-foreach my $mod ( sort keys %optional ) {
-    my $for = $optional{$mod}->{"for"} || "";
-    my $ver = $optional{$mod}->{"ver"} || "";
-    eval "use $mod $ver ();";
-    push @missing, $mod . ( $for ? " for $for" : "" ) if $@;
-}
-
-# similar message to one used in DBI:
-if (@missing) {
-    print( "The following optional modules were not found:",
-        map( "\n\t" . $_, @missing ), "\n" );
-
-    print <<'MSG';
-Optional modules are available from any CPAN mirror, reference:
-  https://metacpan.org/
-  https://www.cpan.org/modules/by-module/
-
-MSG
-    sleep 3;
-}
-
-# HACK: die on broken Parse::RecDescent 1.966002 through 1.967009
-# - rt.cpan.org#74593: Recent changes break Module::ExtractUse and ...
-# - rt.cpan.org#74733: Fails with Parse::RecDescent >= 1.966_002
-do {
-    eval { require version; require Parse::RecDescent; };
-    unless ($@) {
-        my $found = version->parse( Parse::RecDescent->VERSION() );
-        my $broke = version->parse("1.966002");
-        my $fixed = version->parse("1.967009");
-        if ( $found < $fixed and $found >= $broke ) {
-            die(
-                "Found broken Parse::RecDescent $found in your environment.\n",
-                "Please upgrade to version $fixed or greater.\n"
-            );
-        }
-    }
-};
-
-WriteMakefile(
-    NAME         => 'Mail::IMAPClient',
-    AUTHOR       => 'Phil Pearl (Lobbes) <plobbes+mail-imapclient@gmail.com>',
-    ABSTRACT     => 'IMAP4 client library',
-    VERSION_FROM => 'lib/Mail/IMAPClient.pm',
-    LICENSE      => 'perl',
-    META_MERGE   => {
-        resources => {
-            bugtracker => {
-                web =>
-'https://rt.cpan.org/Public/Dist/Display.html?Name=Mail-IMAPClient',
-                mailto => 'bug-Mail-IMAPClient@rt.cpan.org',
-            },
-            homepage   => 'https://sourceforge.net/projects/mail-imapclient/',
-            repository => {
-                url  => 'git://git.code.sf.net/p/mail-imapclient/git',
-                web  => 'https://sourceforge.net/p/mail-imapclient/git/',
-                type => 'git',
-            },
-        },
-    },
-    MIN_PERL_VERSION => '5.008',
-    PREREQ_PM        => {
-        'Carp'              => 0,
-        'Errno'             => 0,
-        'Fcntl'             => 0,
-        'IO::File'          => 0,
-        'IO::Select'        => 0,
-        'IO::Socket'        => 0,
-        'IO::Socket::INET'  => 1.26,
-        'List::Util'        => 0,
-        'MIME::Base64'      => 0,
-        'Parse::RecDescent' => 1.94,
-        'Test::More'        => 0,
-        'File::Temp'        => 0,
-    },
-    clean => { FILES => 'test.txt' },
-);
-
-set_test_data();
-
-exit 0;
-
-###
-### HELPERS
-###
-
-sub set_test_data {
-    unless ( -f "lib/Mail/IMAPClient.pm" ) {
-        warn("ERROR: not in installation directory\n");
-        return;
-    }
-
-    if ( -s "./test.txt" ) {
-        print("The file test.txt will be used for extended tests.\n");
-        return;
-    }
-
-    print <<EOF;
-
-(OPTIONAL) For extended tests during 'make test', create a file
-'test.txt' in the top level directory of this distribution (the same
-directory as the Makefile.PL, etc.).  This file must contain an IMAP
-server name or IP (server=...), a user account (user=...), and a
-password (passed=...).  A port (port=....) and an authentication
-mechanism to be used (authmechanism=...) can also be specified.
-
-Example:
-
---- BEGIN: test.txt ---
-server=localhost
-user=mytestuser
-passed=mypassword
-port=143
---- END: test.txt ---
-
-NOTE: When testing is completed, be sure to remove test.txt (either by
-hand or by 'make clean').
-
-EOF
-}
diff --git a/W/Mail-IMAPClient-3.42/README b/W/Mail-IMAPClient-3.42/README
deleted file mode 100644
index 07d52a7..0000000
--- a/W/Mail-IMAPClient-3.42/README
+++ /dev/null
@@ -1,96 +0,0 @@
-Mail::IMAPClient
-================
-Mail::IMAPClient is a Perl module that provides an interface for
-communicating with an IMAP server as an IMAP client.
-
-DEPENDENCIES
-============
-The following are the minimum requirements for using Mail::IMAPClient:
-
-- Perl 5.8
-    https://www.perl.org/
-- Perl modules from CPAN:
-    https://metacpan.org/
-      Required:
-        List::Util
-        MIME::Base64
-        Parse::RecDescent
-      Optional:
-        Authen::NTLM
-        Authen::SASL
-        Compress::Zlib
-        Digest::HMAC_MD5
-        Digest::MD5
-        IO::Socket::SSL
-- RFC 3501 (IMAP4REV1) compatible IMAP server
-    https://tools.ietf.org/html/rfc3501
-- Mail::IMAPClient (this package)
-
-INSTALLATION
-============
-1. Download Mail::IMAPClient module
-    https://metacpan.org/release/Mail-IMAPClient
-
-2. Read this README
-
-3. This module has a number of dependencies on other Perl modules
-   available from CPAN.  If any modules are missing, appropriate
-   warnings will be generated in the following step.
-
-4. Prepare to build this module and install any prerequisite modules:
-
-    perl Makefile.PL
-
-5. (OPTIONAL) For extended tests during 'make test', create a file
-   'test.txt' in the top level directory of this distribution (the
-   same directory as the Makefile.PL, etc.).  This file must contain
-   an IMAP server name or IP (server=...), a user account (user=...),
-   and password a (passed=...).  A port (port=....) and an
-   authentication mechanism to be used (authmechanism=...) can also be
-   specified.
-
-Example:
-
---- BEGIN: test.txt ---
-server=localhost
-user=mytestuser
-passed=mypassword
-port=143
---- END: test.txt ---
-
-   NOTE: When testing is completed, be sure to remove test.txt (either
-   by hand or by 'make clean').
-
-6. Build, test and install this module:
-
-    make
-    make test
-    (sudo) make install
-
-7. Read the documentation to become familiar with this module.
-
-Project Links
-=============
-- Bugs/tickets:
-    https://rt.cpan.org/Public/Dist/Display.html?Name=Mail-IMAPClient
-- Source code repository (git):
-    https://sourceforge.net/p/mail-imapclient/git/
-    https://github.com/plobbes/mail-imapclient/
-- CPAN releases:
-    https://metacpan.org/release/Mail-IMAPClient
-
-COPYRIGHT AND LICENSE
-=====================
-Copyright (C) 1999-2003 The Kernen Group, Inc.
-Copyright (C) 2007-2009 Mark Overmeer
-Copyright (C) 2010-2019 Phil Pearl (Lobbes)
-All rights reserved.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.0 or,
-at your option, any later version of Perl 5 you may have available.
-
-This program is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either the
-GNU General Public License or the Artistic License for more details.
diff --git a/W/Mail-IMAPClient-3.42/examples/build_dist.pl b/W/Mail-IMAPClient-3.42/examples/build_dist.pl
deleted file mode 100755
index 7848194..0000000
--- a/W/Mail-IMAPClient-3.42/examples/build_dist.pl
+++ /dev/null
@@ -1,172 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-
-use Mail::IMAPClient;
-
-=head1 DESCRIPTION
-
-B<build_dist.pl> accepts the name of a target folder as an argument. It
-then opens that folder and rummages through all the mail files in it, looking
-for "Reply-to:" headers (or "From:" headers, where there is no "Reply-to:").
-It then appends a message into the folder containing all of the addresses in 
-thus found as a list of recipients. This message can be used to conveniently 
-drag and drop names into an address book, distribution list, or e-mail message,
-using the GUI client of choice. 
-
-The email appended to the folder specified in the I<-f> option will have the
-subject "buid_dist.pl I<folder> Output".
-
-=head1 SYNTAX
-
-b<build_dist.pl> I<-h>
-
-b<build_dist.pl> I<-s servername -u username -p password -f folder [ -d ]>
-
-=over 4
-
-=item -f The folder name to process.
-
-=item -s The servername of the IMAP server 
-
-=item -u The user to log in as
-
-=item -p The password for the user specified in the I<-u> option
-
-=item -d Tells the IMAP client to turn on debugging info
-
-=item -h Prints out this document
-
-=back
-
-B<NOTE:> You can supply defaults for the above options by updating the script.
-
-=cut
-
-use Getopt::Std;
-
-getopts('s:u:p:f:d');
-
-# Update the following to supply defaults:
-
-$opt_f ||= "default folder";
-$opt_s ||= "default server";
-$opt_u ||= "default user";
-$opt_p ||= "default password";	# security risk: use with caution!
-
-# Let the compiler know we're serious about these two variables:
-$opt_h = $opt_h or $opt_d = $opt_d ; 
-
-exec "perldoc $0" if $opt_h;
-
-my $imap = Mail::IMAPClient->new( 
-		Server 	=> $opt_s ,
-		User 	=> $opt_u ,
-		Password=> $opt_p ,
-		Debug	=> $opt_d||0 ,
-) or die "can't connect to server\n";
-
-$imap->select($opt_f);
-
-my @msgs = $imap->search("NOT SUBJECT",qq("buid_dist.pl $opt_f Output"));
-my %list;
-foreach my $m (@msgs) {
-
-	my $ref = $imap->parse_headers($m,"Reply-to","From");
-	
-	warn "Couldn't get recipient address from msg#$m\n" 
-		unless 	scalar(@{$ref->{'Reply-to'}})   ||
-			scalar(@{$ref->{'From'}})	;	
-
-	my $from = scalar(@{$ref->{'Reply-to'}}) 	? 
-			  $ref->{'Reply-to'}[0]		: 
-			  $ref->{'From'}[0] 		;
-
-	my $addr = $from; 
-	$addr =~ s/.*<//;
-	$addr =~ s/[\<\>]//g;
-	$list{$addr} = $from unless exists $list{$addr};
-}
-
-$append = <<"EOMSG";
-To: ${\(join(",",values %list))}
-From: $opt_u\@$opt_s
-Date: ${\($imap->Rfc822_date(time))}
-Subject: build_dist.pl $opt_f Output
-
-The above note was never actually sent to the following people:
-
-${\(join("\n",keys %list))}
-
-Interesting, eh?
-
-Love,
-$opt_u
-
-EOMSG
-
-$imap->append($opt_f,$append) or warn "Couldn't append the message.";
-
-$imap->logout;
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-
-# $Id$
-# $Log: build_dist.pl,v $
-# Revision 19991216.7  2003/06/12 21:38:29  dkernen
-#
-# Preparing 2.2.8
-# Added Files: COPYRIGHT
-# Modified Files: Parse.grammar
-# Added Files: Makefile.old
-# 	Makefile.PL Todo sample.perldb
-# 	BodyStructure.pm
-# 	Parse.grammar Parse.pod
-#  	range.t
-#  	Thread.grammar
-#  	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-#  	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-# Revision 19991216.6  2000/12/11 21:58:50  dkernen
-#
-# Modified Files:
-# 	build_dist.pl build_ldif.pl copy_folder.pl find_dup_msgs.pl
-# 	imap_to_mbox.pl populate_mailbox.pl
-# to add CVS data
-#
-# Revision 19991216.5  1999/12/16 17:19:09  dkernen
-# Bring up to same level
-#
-# Revision 19991124.3  1999/12/16 17:14:22  dkernen
-# Incorporate changes for exists method performance enhancement
-#
-# Revision 19991124.02  1999/11/24 17:46:16  dkernen
-# More fixes to t/basic.t
-#
-# Revision 19991124.01  1999/11/24 16:51:46  dkernen
-# Changed t/basic.t to test for UIDPLUS before trying UID cmds
-#
-# Revision 1.8  1999/11/23 17:51:05  dkernen
-# Committing version 1.06 distribution copy
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/build_ldif.pl b/W/Mail-IMAPClient-3.42/examples/build_ldif.pl
deleted file mode 100755
index 72e8d8d..0000000
--- a/W/Mail-IMAPClient-3.42/examples/build_ldif.pl
+++ /dev/null
@@ -1,235 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-use Mail::IMAPClient;
-use MIME::Lite;
-use Data::Dumper;
-
-=head1 DESCRIPTION
-
-B<build_ldif.pl> accepts the name of a target folder as an argument. It
-then opens that folder and rummages through all the mail files in it, looking
-for "Reply-to:" headers (or "From:" headers, where there is no "Reply-to:").
-It then prints to STDOUT a file in ldif format containing entries for all of 
-the addresses that it finds. It also appends a message into the specified folder containing
-all of the addresses in both the B<To:> field of the message header and in an 
-LDIF-format attachment.
-
-B<build_ldif.pl> requires B<MIME::Lite>.
-
-=head1 SYNTAX
-
-B<build_ldif.pl> I<-h>
-
-B<build_ldif.pl> I<-s servername -u username -p password -f folder [ -d ]>
-
-=over 4
-
-=item -f The folder name to process.
-
-=item -s The servername of the IMAP server 
-
-=item -t Include "To" and "Cc" fields as well as "From"
-
-=item -u The user to log in as
-
-=item -p The password for the user specified in the I<-u> option
-
-=item -d Tells the IMAP client to turn on debugging info
-
-=item -n Suppress delivering message to folder
-
-=item -h Prints out this document
-
-=back
-
-B<NOTE:> You can supply defaults for the above options by updating the script.
-
-=cut
-
-use Getopt::Std;
-
-getopts('hs:u:p:f:dtn');
-
-# Update the following to supply defaults:
-
-$opt_f ||= "default folder";
-$opt_s ||= "default server";
-$opt_u ||= "default user";
-$opt_p ||= "default password";	# security risk: use with caution!
-
-# Let the compiler know we're serious about these variables:
-$opt_0 = ( $opt_h or $opt_d or $opt_t or $opt_n or $opt_0); 
-
-exec "perldoc $0" if $opt_h;
-
-my $imap = Mail::IMAPClient->new( 
-		Server 	=> $opt_s ,
-		User 	=> $opt_u ,
-		Password=> $opt_p ,
-		Debug	=> $opt_d||0 ,
-) or die "can't connect to server\n";
-
-$imap->select($opt_f); $imap->expunge;
-
-my @msgs = $imap->search("NOT SUBJECT",qq("buid_ldif.pl $opt_f Output"));
-my %list;
-foreach my $m (@msgs) {
-
-	my $ref = $imap->parse_headers($m,"Reply-to","From");
-	
-	warn "Couldn't get recipient address from msg#$m\n" 
-		unless 	scalar(@{$ref->{'Reply-to'}})   ||
-			scalar(@{$ref->{'From'}})	;	
-
-	my $from = scalar(@{$ref->{'Reply-to'}}) 	? 
-			  $ref->{'Reply-to'}[0]		: 
-			  $ref->{'From'}[0] 		;
-	my $name = $from				;
-
-	$name =~ s/<.*//				;
-	if ($name =~ /\@/) {
-		$name = $from				;
-		$name =~ s/\@.*//;			;
-	}
-	$name =~ s/\"//g				;
-	$name =~ s/^\s+|\s+$//g				;
-	my $addr = $from				; 
-	$addr =~ s/.*<//				;
-	$addr =~ s/[\<\>]//g				;
-	$list{lc($addr)} = [ $addr, $name ]
-		unless exists $list{lc($addr)} 		;
-	if ($opt_t) {					# Do "To" and "Cc", too
-		my $ref = $imap->parse_headers($m,"To","Cc")		;
-		my @array = ( 	@{$ref->{To}}	, @{$ref->{Cc}}	)	;
-		my @members = ()					;
-		foreach my $text (@array) 				{
-		  while ( $text =~ /	"([^"\\]*(\\.[^"\\]*)*"[^,]*),?	|
-					([^",]+),?			|
-					,
-			/gx 
-		  ) {
-			push @members, defined($1)?$1:$3 		;
-		  }
-		}
-		foreach my $to (@members) 				{ 
-
-			my $name = $to					;
-
-			$name =~ s/<.*//				;
-			if ($name =~ /\@/) {
-				$name = $to				;
-				$name =~ s/\@.*//;			;
-			}
-			$name =~ s/\"//g				;
-			$name =~ s/^\s+|\s+$//g				;
-			my $addr = $to					; 
-			$addr =~ s/.*<//				;
-			$addr =~ s/[\<\>]//g				;
-			$list{lc($addr)} = [ $addr, $name ]
-				unless exists $list{lc($addr)} 		;
-		}
-	
-	}
-}
-
-my $text = join "",map {
-	qq{dn: cn="} . $list{$_}[1] . 
-	qq{", mail=$list{$_}[0]\n} .
-	qq{cn: } . $list{$_}[1] . qq{\n} .
-	qq{mail: $list{$_}[0]\n} .
-	qq{objectclass: top\nobjectclass: person\n\n};
-} keys %list ;
-
-# Create a new multipart message:
-my $msg = MIME::Lite->new(
-        From    => $opt_u,
-        map({ ("To" => $list{$_}[0]) } keys %list),
-        Subject => "LDIF file from $opt_f",
-        Type    =>'TEXT',
-        Data    =>"Attached is the LDIF file of addresses from folder $opt_f."
-);
-$msg->attach(	Type     =>'text/ldif',
-		Filename => "$opt_f.ldif",
-                Data 	 => $text ,
-);
-print $text;
-$imap->append($opt_f, $msg->as_string) unless $opt_n;
-print Dumper($imap) if $opt_d;
-$imap->logout;
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 1999,2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-# $Id$
-# $Log: build_ldif.pl,v $
-# Revision 19991216.11  2003/06/12 21:38:30  dkernen
-#
-# Preparing 2.2.8
-# Added Files: COPYRIGHT
-# Modified Files: Parse.grammar
-# Added Files: Makefile.old
-# 	Makefile.PL Todo sample.perldb
-# 	BodyStructure.pm
-# 	Parse.grammar Parse.pod
-#  	range.t
-#  	Thread.grammar
-#  	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-#  	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-# Revision 19991216.10  2002/05/24 15:47:18  dkernen
-# Misc fixes
-#
-# Revision 19991216.9  2000/12/11 21:58:51  dkernen
-#
-# Modified Files:
-# 	build_dist.pl build_ldif.pl copy_folder.pl find_dup_msgs.pl
-# 	imap_to_mbox.pl populate_mailbox.pl
-# to add CVS data
-#
-# Revision 19991216.8  2000/03/02 19:57:13  dkernen
-#
-# Modified Files: build_ldif.pl -- to support new option to all "To:" and "Cc:" to be included in ldif file
-#
-# Revision 19991216.7  2000/02/21 16:16:10  dkernen
-#
-# Modified Files: build_ldif.pl  -- to allow for "To:" and "Cc:" header handling and
-# to handle quoted names in headers
-#
-# Revision 19991216.6  1999/12/28 13:56:59  dkernen
-# Fixed -h option (help).
-#
-# Revision 19991216.5  1999/12/16 17:19:10  dkernen
-# Bring up to same level
-#
-# Revision 19991124.3  1999/12/16 17:14:24  dkernen
-# Incorporate changes for exists method performance enhancement
-#
-# Revision 19991124.02  1999/11/24 17:46:18  dkernen
-# More fixes to t/basic.t
-#
-# Revision 19991124.01  1999/11/24 16:51:48  dkernen
-# Changed t/basic.t to test for UIDPLUS before trying UID cmds
-#
-# Revision 1.8  1999/11/23 17:51:05  dkernen
-# Committing version 1.06 distribution copy
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/cleanTest.pl b/W/Mail-IMAPClient-3.42/examples/cleanTest.pl
deleted file mode 100755
index a60f780..0000000
--- a/W/Mail-IMAPClient-3.42/examples/cleanTest.pl
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/local/bin/perl
-
-use Mail::IMAPClient;
-use IO::File;
-#
-# Example that will also clean out your test account if interrupted 'make test' 
-# runs have left junk folders there. Run from installation dir, installation/examples
-# subdir, or supply full path to the test.txt file (created during 'perl Makefile.PL'
-# and left in the installation dir until 'make clean').
-# If you 've already run 'make clean' or said no to extended tests, 
-# then you don't have the file anyway; re-run 'perl Makefile.PL', reply 'y' to the
-# extended tests prompt, then supply the test account's credentials as prompted.
-# Then try this again.
-#
-if ( -f "./test.txt" ) {
-	$configFile = "./test.txt"
-} elsif ( -f "../test.txt" ) {
-	$configFile = "../test.txt"
-} elsif ( $ARGV[0] and -f "$ARGV[0]" ) {
-	$configFile = $ARGV[0];
-} else {
-	print STDERR "Can't find test.txt. Please run this from the installation directory ",
-		"or supply the full path to test.txt as an argument on the command line.\n";
-}
-my $fh = IO::File->new("./test.txt") or die "./test.txt: $!\n";
-while (my $input = <$fh>) {
-	chomp $input;
-	my($k,$v) = split(/=/,$input,2);
-	$conf{$k}=$v;
-}
-my $imap = Mail::IMAPClient->new(Server=>$conf{server},User=>$conf{user},
-	Password=>$conf{passed}) or die "Connecting to $conf{server}: $! $@\n";
-
-for my $f ( grep(/^IMAPClient_/,$imap->folders) ) {
-	print "Deleting $f\n";
-	$imap->select($f);
-	$imap->delete_messages(@{$imap->messages}) ;
-	$imap->close($f);
-	$imap->delete($f);
-}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
diff --git a/W/Mail-IMAPClient-3.42/examples/copy_folder.pl b/W/Mail-IMAPClient-3.42/examples/copy_folder.pl
deleted file mode 100755
index 93193b2..0000000
--- a/W/Mail-IMAPClient-3.42/examples/copy_folder.pl
+++ /dev/null
@@ -1,147 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-++$|;
-use Getopt::Std;
-use Mail::IMAPClient;
-use vars qw/$opt_r $opt_h $opt_t $opt_f/;
-
-getopts("t:f:F:N:rh");
-if ( $opt_h ) {
-	print &usage;
-	exit;
-}
-
-my($to_id,$to_pass,$thost) = $opt_t =~ m{	
-						([^/]+)		# everything up to / is the id
-						/		# then a slash
-						([^@]+)		# then everything up to @ is pswd
-						@		# then an @-sign
-						(.*)		# then everything else is the host
-					}x ;
-my($from_id,$from_pass,$fhost) = 
-				$opt_f =~ m{
-						([^/]+)		# everything up to / is the id
-						/		# then a slash
-						([^@]+)		# then everything up to @ is pswd
-						@		# then an @-sign
-						(.*)		# then everything else is the host
-					  }x ;
-$to_id and $from_id and $to_pass and $from_pass and $thost and $fhost 
-	or die "Error: Must specify -t and -f (to and from)\n" . &usage;
-$opt_F or 
-	die 	"Error: Must specify '-F folder' or how will I know what folder to copy?\n" . 
-	&usage	;
-
-$opt_N ||= $opt_F;
-
-	
-print "Copying folder $opt_F from $from_id\@$fhost to ${to_id}'s $opt_N folder on $thost.\n";
-
-my ($from) = Mail::IMAPClient->new( Server => $fhost,
-				    User => $from_id,
-				    Password=> $from_pass,
-				    Fast_IO => 1,
-				    Uid => 1,
-				    Debug => 0,
-);
-
-
-my ($to) = Mail::IMAPClient->new( Server => $thost,
-				    User => $to_id,
-				    Password=> $to_pass,
-				    Fast_IO => 1,
-				    Uid => 1,
-				    Debug => 0,
-);
-
-my @folders = $opt_r ? @{$from->folders($opt_F)} : ( $opt_F ) ;
-
-foreach my $fold (@folders) {
-	print "Processing folder $fold\n";
-	$from->select($fold);
-	if ($opt_F ne $opt_N) {
-		$fold =~s/^$opt_F/$opt_N/o;
-	}
-	unless ($to->exists($fold)) { 
-		$to->create($fold) or warn "Couldn't create $fold\n" and next; 
-	}
-	$to->select($fold);
-	my @msgs = $from->search("ALL");
-	# my %flaghash = $from->flags(\@msgs);
-	foreach $msg (@msgs) {
-		print "Processing message $msg in folder $fold.\n";
-		my $string = $from->message_string($msg);
-		# print "String = $string\n";
-		my $new_id = $to->append($fold,$string) 
-			or warn "Couldn't append msg #$msg to target folder $fold.\n";
-		
-		$to->store($new_id,"+FLAGS (" . join(" ",@{$from->flags($msg)}) . ")");
-	}
-}
-
-sub usage {
-	return "Syntax:\n\t$0 -t to_id/to_pass\@to.host -f from_id/from_pass\@from.host \\\n" .
-	"\t\t-F folder [-N New_Folder] [-r]\n".
-	"\tor\n\t$0 -h\n\n".
-	"\twhere:\n\t\t".
-	"to_id\t\tis the id to recieve the folder\n\t\t".
-	"to_pass\t\tis the password for to_id\n\t\t".
-	"from\t\tis the uid who currently has the folder\n\t\t".
-	"from_pass\tis the password for from_id\n\t\t".
-	"to.host\t\tis the optional host where the 'to' uid has a mailbox\n\t\t".
-	"from.host\tis the optional host where the 'from' uid has a mailbox\n\t\t".
-	"folder\t\tis the folder to copy from\n\t\t".
-	"New_Folder\tis the folder to copy to (defaults to 'folder')\n\t\t".
-	"-h\t\tprints this help message\n\t\t".
-	"-r\t\tspecifies a recursive copy (only works on systems that support the idea " .
-	"\n\t\t\t\tof recursive folders)\n\t\t".
-	"\n"
-	;
-}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 1999,2000,2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-# History:
-# $Log: copy_folder.pl,v $
-# Revision 19991216.3  2003/06/12 21:38:30  dkernen
-#
-# Preparing 2.2.8
-# Added Files: COPYRIGHT
-# Modified Files: Parse.grammar
-# Added Files: Makefile.old
-# 	Makefile.PL Todo sample.perldb
-# 	BodyStructure.pm
-# 	Parse.grammar Parse.pod
-#  	range.t
-#  	Thread.grammar
-#  	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-#  	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-# Revision 19991216.2  2000/12/11 21:58:51  dkernen
-#
-# Modified Files:
-# 	build_dist.pl build_ldif.pl copy_folder.pl find_dup_msgs.pl
-# 	imap_to_mbox.pl populate_mailbox.pl
-# to add CVS data
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/cyrus_expire.pl b/W/Mail-IMAPClient-3.42/examples/cyrus_expire.pl
deleted file mode 100755
index 52a97d7..0000000
--- a/W/Mail-IMAPClient-3.42/examples/cyrus_expire.pl
+++ /dev/null
@@ -1,111 +0,0 @@
-#!/usr/local/bin/perl
-#$Id
-
-use Mail::IMAPClient;    # available from http://search.cpan.org/search?mode=module&query=IMAPClient
-use IO::File;
-use Getopt::Std;
-use vars qw/ $opt_d $opt_s $opt_p $opt_u $opt_P $opt_h /;
-
-&getopts('d:s:u:p:P:h');	# -d days_to_keep -u cyrys_user -p cyrus_pswd -s cyrus_server -P port
-
-my $days_to_keep = $opt_d||365;       			# Delete msgs older than -d arg or 365 days
-my $cutoff = time - ( $days_to_keep * 24 * 60 * 60 ) ;  # time - arg * 24 * 60 * 60 = cutoff date in seconds 
-
-# Change the following line (or replace it with something better):
-$opt_h and die help()."\n";
-my $h = $opt_s || "localhost" ; 
-my $u = $opt_u || "cyrys" ;
-my $p = $opt_p or die "Unable to continue. No password provided.\n" . help();
-
-my $imap = Mail::IMAPClient->new( 
-     Server  => "$h", 
-     User    => "$u",      		# $u, 
-     Password=> "$p",			# $p,
-     Uid => 1,				# True value
-     Port    => $opt_P||143,            # imapd
-     Debug => 0,                        # Make true to debug
-     Buffer => 4096*10,    		# True value; decrease on machines w/little memory
-     Fast_io => 1,              	# True value
-     Timeout => 30,          		# True value
-     # Debug_fh=> IO::File->new(">out.db"), # fhandle
-    ) 
-or die "$@";
- my $mcnt = my $fcnt = 0;
-print "Deleting messages older than ",$imap->Rfc2060_date($cutoff),"\n";
-for my $f ( $imap->folders ) {
- print "Expiring $f\n";
- unless ($imap->select($f) ) {
-  $imap->setacl($f,$u,"lrswipcda") or warn "Cannot setacl for $f: $@\n" and next;
-  $imap->select($f) or warn "Cannot select $f: $@" and next;
- }
- my @expired = $imap->search("SENTBEFORE",$imap->Rfc2060_date($cutoff));
- next unless @expired;
- $mcnt += scalar(@expired); $fcnt ++;
- print "Deleting ",scalar(@expired)," messages from $f\n";
- $imap->delete_message(@expired);
- $imap->expunge;
- $imap->close;
-}
- $imap->logout;
- print "Deleted a total of $mcnt messages in $fcnt folders.\n";
-exit;
-
-
-sub help {
-	return <<"EOHELP";
-
-Usage:
-
-	$0 [ -d days_to_keep ] [ -s mail_server ] [ -u cyrus_admin_id ] -p cyrus_password
-	$0 -h 
-
-	-h 		  -- prints this here help message
-	-d days_to_keep   -- $0 will delete messages older than "days_to_keep". (Default is 365)
-	-s mail_server    -- hostname or IP Address of IMAP mail server (defaults to "localhost")
-	-u cyrus_admin_id -- user name of Unix account that owns Cyrus server (defaults to "cyrus")
-	-p cyrus_password -- password for the "cyrus_admin_id" user account (no default)
-	-P cyrus_port     -- port where the cyrus imapd daemon is listening (defaults to value from 
-				/etc/services or '143')
-
-EOHELP
-
-}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-#$Log: cyrus_expire.pl,v $
-#Revision 19991216.2  2003/06/12 21:38:31  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/cyrus_expunge.pl b/W/Mail-IMAPClient-3.42/examples/cyrus_expunge.pl
deleted file mode 100755
index 2921832..0000000
--- a/W/Mail-IMAPClient-3.42/examples/cyrus_expunge.pl
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-
-use Mail::IMAPClient;
-use IO::File;
-
-# Change the following line (or replace it with something better):
-my($h,$u,$p) = ('cyrus_host','cyrus_admin_id','cyrus_admin_pswd');
-
-my $imap = Mail::IMAPClient->new(	Server  => "$h",			# imap host
-					User    => "$u",			# $u,	
-					Password=> "$p",			# $p,
-					Uid	=> 1,				# True value
-					Port    => 143,				# Cyrus
-					Debug	=> 0,				# True value
-					Buffer	=> 4096*10,			# True value
-					Fast_io	=> 1,				# True value
-					Timeout	=> 30,				# True value
-					# Debug_fh=> IO::File->new(">out.db"),	# fhandle
-				) 
-or die "$@";
-
-for my $f ( $imap->folders ) {
-	print "Expunging $f\n";
-	unless ($imap->select($f) ) {
-		$imap->setacl($f,$u,"lrswipcda") or warn "Cannot setacl for $f: $@\n" and next;
-		$imap->select($f) or warn "Cannot select $f: $@" and next;
-	}
-	$imap->expunge;
-}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-#
-#$Log: cyrus_expunge.pl,v $
-#Revision 19991216.3  2003/06/12 21:38:31  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-#Revision 1.1  2003/06/12 21:38:14  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/find_dup_msgs.pl b/W/Mail-IMAPClient-3.42/examples/find_dup_msgs.pl
deleted file mode 100755
index 21b41b8..0000000
--- a/W/Mail-IMAPClient-3.42/examples/find_dup_msgs.pl
+++ /dev/null
@@ -1,217 +0,0 @@
-#!/usr/local/bin/perl
-# $Id$
-
-use Mail::IMAPClient;
-use Mozilla::LDAP::Conn;
-use Getopt::Std;
-use vars qw/$rootdn $opt_a/;
-use Data::Dumper;
-
-# It then connects to a user's mailhost and rummages around, 
-#    looking for duplicate messages.
-# It will optionally delete messages that are duplicates (based on 
-#    msg-id header and number of bytes).
-# For help, enter:
-#	find_dup_msgs.pl -h  
-#
-
-getopts('ahdtvf:F:u:s:p:P:');
-
-if ( $opt_h ) {
-	print STDERR &usage;
-	exit;
-}
-
-my $uid = $opt_u or die &usage;
-$opt_s||='localhost';
-$opt_p or die &usage;
-$opt_P||=143;
-
-$opt_t 		and 
-	$opt_d 	and 
-	die 	"ERROR: Don't specify -d and -t together.\n" . &usage;
-
-
-my($pu,$pp) = get_admin(); 
-
-print "Connecting to $host:$opt_P\n" if $opt_v;
-my $imap = Imap->new(	Server	=> $opt_s,
-			User	=> $opt_u,
-			Password=> $opt_p,
-			Port	=> $opt_P,
-			Fast_io => 1,
-) or die "couldn't connect to $host port $opt_P: $!\n";
-
-my %folders; my %counts;
-
-FOLDER: foreach my $f ( $opt_F ? $opt_F :  $imap->folders  ) {
-	next if $opt_t and $f eq 'Trash';
-	$folders{$f} = 0;
-	$counts{$f} = $imap->message_count($f);
-	print "Processing folder $f\n" if $opt_v;
-	unless ( $imap->select($f)) {
-		warn "Error selecting $f: " . $imap->LastError . "\n";
-		next FOLDER;
-	}
-	my @msgs = $imap->search("ALL");
-	my %hash = ();
-	MESSAGE: foreach my $m (@msgs) {
-		my $mid;
-		if ($opt_a) {
-			my $h = $imap->parse_headers(
-				$m,"Date","Subject","From","Message-ID"
-			) or next MESSAGE;
-			$mid = 	"$h->{'Date'}[0]$;$h->{'Subject'}[0]$;".
-				"$h->{'From'}[0]$;$h->{'Message-ID'}[0]";
-
-		} else {
-			$mid = $imap->parse_headers(
-				$m,
-				"Message-ID"
-			)->{'Message-ID'}[0] 
-			or next MESSAGE;
-		}
-		my $size = $imap->size($m);
-		if ( exists $hash{$mid} and $hash{$mid} == $size ) { 
-			if ($opt_f) {
-				open F,">>$opt_f" or 
-					die "can't open $opt_f: $!\n";
-				print F $imap->message_string($m),
-					"___END OF SAVED MESSAGE___","\n";
-				close F;
-			}
-			$imap->move("Trash",$m) if $opt_t;
-			$imap->delete_message($m) if $opt_d;
-			$folders{$f}++;
-			print "Found a duplicate in ${f}; key = $mid\n" if $opt_v;
-
-		} else {
-
-			$hash{$mid} = $size;
-		}
-	}
-	print "$f hash:\n",Data::Dumper::Dumper(\%hash) if $opt_v;
-	$imap->expunge if ($opt_t or $opt_d);
-}
-
-my $total; 	my $totms; 
-map { $total += $_} values %folders;
-map { $totms += $_ } values %counts;
-print 	"Found $total duplicate messages in ${uid}'s mailbox. ",
-	"The breakdown is:\n",
-	"\tFolder\tNumber of Duplicates\tNumber of Msgs in Folder\n",
-	"\t------\t--------------------\t------------------------\n",
-	map { "\t$_\t$folders{$_}\t$counts{$_}\n" } keys %folders,
-	"\tTOTAL\t$total\t$totms\n"
-;
-
-
-sub usage {
-	return "Usage:\n" .
-		"\t$0 [-d|-t] [-v] [-f filename] [-a] [-P port] \\\n".
-		"\t\t-s server -u user -p password\n\n" .
-		"\t-a\t\tdo an especially aggressive search for duplicates\n".
-		"\t-d\t\tdelete duplicates (default is to just report them)\n".
-		"\t-f file\t\tsave deleted messages in file named 'file'\n" .
-		"\t-F fldr\t\tOnly check the folder named 'fldr' (default is to check all folders)\n" .
-		"\t-h\t\tprint this help message (all other options are ignored)\n" .
-		"\t-p password\tspecify the target user's password\n" .
-		"\t-P port\t\tspecify the port to connect to (default is 143)\n" .
-		"\t-s server\tspecify the target mail server\n" .
-		"\t-u uid\t\tspecify the target user\n" .
-		"\t-t\t\tmove deleted messages to trash folder\n" .
-		"\t-v\t\tprint verbose status messages while processing\n".
-		"\n" ;
-}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-# History:
-# $Log: find_dup_msgs.pl,v $
-# Revision 19991216.5  2003/06/12 21:38:32  dkernen
-#
-# Preparing 2.2.8
-# Added Files: COPYRIGHT
-# Modified Files: Parse.grammar
-# Added Files: Makefile.old
-# 	Makefile.PL Todo sample.perldb
-# 	BodyStructure.pm
-# 	Parse.grammar Parse.pod
-#  	range.t
-#  	Thread.grammar
-#  	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-#  	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-# Revision 1.1  2003/06/12 21:38:14  dkernen
-#
-# Preparing 2.2.8
-# Added Files: COPYRIGHT
-# Modified Files: Parse.grammar
-# Added Files: Makefile.old
-# 	Makefile.PL Todo sample.perldb
-# 	BodyStructure.pm
-# 	Parse.grammar Parse.pod
-#  	range.t
-#  	Thread.grammar
-#  	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-#  	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-# Revision 19991216.4  2002/08/23 14:34:51  dkernen
-#
-# Modified Files:	Changes IMAPClient.pm Makefile Makefile.PL test.txt for version 2.2.0
-# Added Files: Makefile Makefile.PL Parse.grammar Parse.pm Parse.pod  version 2.2.0
-# Added Files: parse.t  for version 2.2.0
-# Added Files: bodystructure.t  for 2.2.0
-# Modified Files: find_dup_msgs.pl  for v2.2.0
-#
-# Revision 1.6  2001/03/08 19:00:35  dkernen
-#
-# ----------------------------------------------------------------------
-# Modified Files:
-# 	copy_folder.pl 		delete_mailbox.pl 	find_dup_msgs.pl
-# 	mbox_check.pl 		process_orphans.pl 	rename_id.pl
-# 	scratch_indexes.pl
-# to get ready for nsusmsg02 upgrade
-# ----------------------------------------------------------------------
-#
-# Revision 1.5  2000/11/01 15:51:58  dkernen
-#
-# Modified Files: copy_folder.pl find_dup_msgs.pl restore_mbox.pl
-#
-# Revision 1.4  2000/04/13 21:17:18  dkernen
-#
-# Modified Files: find_dup_msgs.pl  - to add -a switch (for aggressive dup search)
-# Added Files: 	copy_folder.pl 	  - a utility for copying a folder from one user's
-# 				    mailbox to another's
-#
-# Revision 1.3  2000/03/14 16:40:21  dkernen
-#
-# Modified Files: find_dup_msgs.pl  -- to skip msgs with no message-id
-#
-# Revision 1.2  2000/03/13 19:05:50  dkernen
-#
-# Modified Files:
-# 	delete_mailbox.pl find_dup_msgs.pl restore_mbox.pl -- to add cvs comments
-# 	find_dup_msgs.pl -- to fix bug that occurred when -t (move-to-trash) switch is used
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/idle.pl b/W/Mail-IMAPClient-3.42/examples/idle.pl
deleted file mode 100755
index 1761307..0000000
--- a/W/Mail-IMAPClient-3.42/examples/idle.pl
+++ /dev/null
@@ -1,231 +0,0 @@
-#!/usr/bin/perl
-
-=head1 NAME
-
-idle.pl - example using IMAP idle
-
-=head1 SYNOPSIS
-
-idle.pl [options]
-
-  Options: [*] == Required, [+] == Multiple vals OK, (val) == Default
-    --o Server=<server>    *IMAP server name/IP
-    --o User=<user>        *User account to login to
-    --o Password=<passwd>  *Password to use for the User account
-                           (see security note below)
-    --o Port=<port>        port on Server to connect to
-    --o Ssl=<bool>         use SSL on this connection
-    --o Starttls=<bool>    call STARTTLS on this connection
-    --o Debug=<int>        enable debugging in Mail::IMAPClient
-    --o ImapclientKey=Val  any other Mail::IMAPClient attribute/value pair
-    --folder <folder>      folder (mailbox) to IMAP SELECT (INBOX)
-    --maxidle <sec>        maximum time to idle without receiving data (300)
-    --help                 display a brief help message
-    --man                  display the entire man page
-    --debug                enable script debugging
-
-=head1 NOTES
-
-=head2 --o Password=<password>
-
-A password specified as a command-line option may be visible
-to other users via the system process table. It may alternately be
-given in the PASSWORD environment variable.
-
-=head2 --maxidle <sec>
-
-RFC 2177 states, "The server MAY consider a client inactive if it has
-an IDLE command running, and if such a server has an inactivity
-timeout it MAY log the client off implicitly at the end of its timeout
-period. Because of that, clients using IDLE are advised to terminate
-the IDLE and re-issue it at least every 29 minutes to avoid being
-logged off."
-
-The default of --maxidle 300 is used to allow the client to notice
-when a connection has silently been closed upstream due to network or
-firewall issue or configuration without missing too many idle events.
-
-=cut
-
-use strict;
-use warnings;
-use File::Basename qw(basename);
-use Getopt::Long qw(GetOptions);
-use Mail::IMAPClient qw();
-use Pod::Usage qw(pod2usage);
-use POSIX qw();
-
-use constant {
-    FOLDER  => "INBOX",
-    MAXIDLE => 300,
-};
-
-$| = 1;    # set autoflush
-
-my $DEBUG   = 0;              # GLOBAL set by process_options()
-my $QUIT    = 0;
-my $VERSION = "1.00";
-my $Prog    = basename($0);
-
-###
-# main program
-main();
-
-sub main {
-    my %Opt = process_options();
-
-    pout("started $Prog\n");
-
-    my $imap = Mail::IMAPClient->new( %{ $Opt{opt} } )
-      or die("$Prog: error: Mail::IMAPClient->new: $@\n");
-
-    my ( $folder, $chkseen, $tag ) = ( $Opt{folder}, 1, undef );
-
-    $imap->select($folder)
-      or die("$Prog: error: select '$folder': $@\n");
-
-    $SIG{'INT'} = \&sigint_handler;
-
-    until ($QUIT) {
-        unless ( $imap->IsConnected ) {
-            warn("$Prog: reconnecting due to error: $@\n") if $imap->LastError;
-            $imap->connect or last;
-            $imap->select($folder) or last;
-            $tag = undef;
-        }
-
-        my $ret;
-        if ($chkseen) {
-            $chkseen = 0;
-
-            # end idle if necessary
-            if ($tag) {
-                $tag = undef;
-                $ret = $imap->done or last;
-            }
-
-            my $unseen = $imap->unseen_count;
-            last if $@;
-            pout("$unseen unseen/new message(s) in '$folder'\n") if $unseen;
-        }
-
-        # idle for X seconds unless data was returned by done
-        unless ($ret) {
-            $tag ||= $imap->idle
-              or die("$Prog: error: idle: $@\n");
-
-            warn( "$Prog: DEBUG: ", _ts(), " do idle_data($Opt{maxidle})\n" )
-              if $DEBUG;
-            $ret = $imap->idle_data( $Opt{maxidle} ) or last;
-
-            # connection can go stale so we exit/re-enter of idle state
-            # - RFC 2177 mentions 29m but firewalls may be more strict
-            unless (@$ret) {
-                warn( "$Prog: DEBUG: ", _ts(), " force exit of idle\n" )
-                  if $DEBUG;
-                $tag = undef;
-
-                # restarted lost connections on next iteration
-                $ret = $imap->done or next;
-            }
-        }
-
-        local ( $1, $2, $3 );
-        foreach my $resp (@$ret) {
-            $resp =~ s/\015?\012$//;
-
-            warn("$Prog: DEBUG: server response: $resp\n") if $DEBUG;
-
-            # ignore:
-            # - DONE command
-            # - <tag> OK IDLE...
-            next if ( $resp eq "DONE" );
-            next if ( $resp =~ /^\w+\s+OK\s+IDLE\b/ );
-
-            if ( $resp =~ /^\*\s+(\d+)\s+(EXISTS)\b/ ) {
-                my ( $num, $what ) = ( $1, $2 );
-                pout("$what: $num message(s) in '$folder'\n");
-                $chkseen++;
-            }
-            elsif ( $resp =~ /^\*\s+(\d+)\s+(EXPUNGE)\b/ ) {
-                my ( $num, $what ) = ( $1, $2 );
-                pout("$what: message $num from '$folder'\n");
-            }
-
-            # * 83 FETCH (FLAGS (\Seen))
-            elsif ( $resp =~ /^\*\s+(\d+)\s+(FETCH)\s+(.*)/ ) {
-                my ( $num, $what, $info ) = ( $1, $2, $3 );
-                $chkseen++ if ( $info =~ /[\(|\s]\\Seen[\)|\s]/ );
-                pout("$what: message $num from '$folder': $info\n");
-            }
-            else {
-                pout("server response: $resp\n");
-            }
-        }
-    }
-
-    my $rc = 0;
-    if ($@) {
-        if ($QUIT) {
-            warn("$Prog: caught signal\n");
-        }
-        else {
-            $rc = 1;
-        }
-        warn("$Prog: imap error: $@\n") if ( !$QUIT || $DEBUG );
-    }
-    exit($rc);
-}
-
-###
-# supporting routines
-
-sub pout {
-    print( _ts(), " ", @_ );
-}
-
-sub process_options {
-    my ( %Opt, @err );
-
-    GetOptions( \%Opt, "opt=s%", "debug:1", "help", "man", "folder=s",
-        "maxidle:i" )
-      or pod2usage( -verbose => 0 );
-
-    pod2usage( -message => "$Prog: version $VERSION\n", -verbose => 1 )
-      if ( $Opt{help} );
-    pod2usage( -verbose => 2 ) if ( $Opt{man} );
-
-    # set global DEBUG
-    $DEBUG = $Opt{debug} || 0;
-
-    # folder (mailbox) to watch
-    $Opt{folder} = FOLDER unless ( exists $Opt{folder} );
-
-    # restart idle when no idle_data seen for this long
-    $Opt{maxidle} = MAXIDLE unless ( exists $Opt{maxidle} );
-
-    $Opt{opt}->{Password} = $ENV{PASSWORD}
-      if ( !exists $Opt{opt}->{Password} && defined $ENV{PASSWORD} );
-
-    foreach my $arg (qw(Server User Password)) {
-        push( @err, "-o $arg=<val> is required" ) if !exists $Opt{opt}->{$arg};
-    }
-
-    pod2usage(
-        -verbose => 1,
-        -message => join( "", map( "$Prog: $_\n", @err ) )
-    ) if (@err);
-
-    return %Opt;
-}
-
-# example: 2005-10-02 07:50:32
-sub _ts {
-    my %opt = @_;
-    my $fmt = $opt{fmt} || "%Y-%m-%d %T";
-    return POSIX::strftime( $fmt, localtime(time) );
-}
-
-sub sigint_handler {
-    $QUIT = 1;
-}
diff --git a/W/Mail-IMAPClient-3.42/examples/imap_to_mbox.pl b/W/Mail-IMAPClient-3.42/examples/imap_to_mbox.pl
deleted file mode 100755
index 61acfe7..0000000
--- a/W/Mail-IMAPClient-3.42/examples/imap_to_mbox.pl
+++ /dev/null
@@ -1,266 +0,0 @@
-#!/usr/local/bin/perl
-# (c) 1999 Thomas Stromberg, Research Triangle Commerce, Inc.
-# This software is protected by the BSD License. No rights reserved anyhow.
-# <tstromberg@rtci.com>
-
-# DESC: Reads a users IMAP folders, and converts them to mbox
-#       Good for an interim switch-over from say, Exchange to Cyrus IMAP.
-
-# $Header$
-
-# History:
-# --------
-# 2008/08/07 - Added SSL support, fixed From header printing, and CR 
-#		elimination (sobek)
-
-# TODO:
-# ----- 
-# lsub instead of list option
-
-use warnings;
-use strict;
-
-use Mail::IMAPClient;	# a nice set of perl libs for imap 
-use IO::Socket::SSL;	# for SSL support
-
-use vars qw($opt_h $opt_u $opt_p $opt_P $opt_s $opt_i $opt_f $opt_m $opt_b
-	    $opt_c $opt_r $opt_w $opt_W $opt_S $opt_D $opt_U $opt_d $opt_I
-	    $opt_n);
-
-use Getopt::Std; 	# for the command-line overrides. good for user
-use File::Path;		# create full file paths. (yummy!)
-use File::Basename;	# find a nice basename for a folder.
-use Date::Manip;	# to create From header date
-$| = 1;
-
-sub connect_imap();
-sub find_folders();
-sub write_folder($$$$);
-sub help();
-
-# Config for the imap migration kit.
-
-getopts('u:p:P:s:i:f:m:b:c:r:w:W:SDUdhIn:') or
-    $opt_h = 1;
-
-my $SSL			= $opt_S || 0;
-my $SERVER		= $opt_s || 'machine';
-my $USER		= $opt_u || 'userid';
-my $PASSWORD		= $opt_p || 'password';
-my $PORT		= $opt_P || '143';
-my $INBOX_PATH		= $opt_i || "/var/mail/$USER"; 
-my $DOINBOX		= $opt_I ? 0 : 1 || 1;
-my $FOLDERS_PATH	= $opt_f || "./folders/$USER"; 
-my $DONT_MOVE		= $opt_m || '.mailboxlist|Trash|INBOXIIMAP|mlbxl'; 
-my $READ_DELIMITER	= $opt_r || '/';
-my $WRITE_DELIMITER	= $opt_w || '/';
-my $WRITE_MODE		= $opt_W || '>';
-my $BANNED_CHARS	= $opt_b || '.|^|%';
-my $CR			= $opt_c || "\r";
-my $NUMBER		= $opt_n || "";
-my $DELETE		= $opt_D || 0;
-my $DEBUG		= $opt_d || "0";
-my $UNSEEN		= $opt_U || 0;
-my $FAIL = 0;
-
-my $imap;		# definition for IMAP structure
-
-if ($opt_h) {
-    # print help here
-    help();
-}
-
-sub help() {
-    print "imap_to_mbox.pl - with the following optional arguments\:
-	-S	Use an SSL connection (default $SSL)
-	-s <s>	Server specification (default $SERVER)
-	-u <u>	User login (default $USER)
-	-p <p>	User password
-	-P <p>	Server Port (default $PORT)
-	-i <i>	INBOX save path (default $INBOX_PATH)
-	-I	skip INBOX (default $DOINBOX)
-	-f <f>	Save path for other folders (default $FOLDERS_PATH)
-	-m <r>	Regexp for IMAP folders not to be saved:
-		$DONT_MOVE
-	-r <r>	Read delimiter (default \"$READ_DELIMITER\")
-	-w <w>	Write Delimiter (default \"$WRITE_DELIMITER\")
-	-b <b>	Banned chars (default \"$BANNED_CHARS\")
-	-c <c>	Strip CRs from saved files [for Unix] (default \"$CR\")
-	-n <n>	Receive only <n> messages (Default ".($NUMBER ? "$NUMBER" : "all").")
-	-U	Unseen messages Only
-	-D	Delete downloaded files on server
-	-d	Debug mode (default $DEBUG)\n";
-    exit 1;
-}
-
-## do our magic tricks ######################################
-connect_imap();
-find_folders();
-
-
-sub connect_imap()
-{
-# Open an SSL session to the IMAP server
-# Handles the SSL setup, and gives us back a socket
-    my $ssl;
-    if ($opt_S) {
-	$ssl=IO::Socket::SSL->new(
-		PeerHost	=> "$SERVER:imaps"
-#	,	SSL_version	=> 'SSLv2'	# for older versions of openssl
-	);
-
-        defined $ssl
-            or die "Error connecting to $SERVER:imaps - $@";
-
-	$ssl->autoflush(1);
-    }
-
-    $imap = Mail::IMAPClient->new(
-        Socket		=> ($opt_S ? $ssl : 0),
-        Server		=> $SERVER,
-        User		=> $USER,
-        Password	=> $PASSWORD,
-        Port		=> $PORT,
-        Debug		=> $DEBUG,
-        Uid		=> 0,
-        Clear		=> 1,
-    )
-    or die ("Could not connect to $SERVER:$PORT with $USER: $! $?\n");
-}
-
-sub find_folders()
-{
-    my @folders = $imap->folders;
-#	push(@folders, "INBOX");
-
-    foreach my $folder (@folders) {
-	my $message_count;
-
-	if ($folder eq "INBOX" and $DOINBOX == 0) {
-	    print "* $folder is unwanted, skipping.\n";
-	    next;
-	}
-	if (!$UNSEEN) {
-	    $message_count = $imap->message_count($folder);
-	} else {
-	    $message_count = $imap->unseen_count($folder) || 0;
-	}
-	if(! $message_count) {
-	    print "* $folder is empty, skipping.\n";
-	    next;
-	}
-	if($folder =~ /$DONT_MOVE/) {
-	    warn "! $folder matches DONT_MOVE ruleset, skipping\n";
-	    next;
-	}
-
-	my $new_folder = $folder;
-	$new_folder =~ s/\./_/g;
-	$new_folder =~ s/\Q$READ_DELIMITER/$WRITE_DELIMITER/g;
-	my $path
-          = $new_folder eq "INBOX" ? "$INBOX_PATH"
-          : "$FOLDERS_PATH/$new_folder";
-
-	if ($NUMBER && $NUMBER < $message_count) {
-	    printf "x %4i %-45.45s => %s", $NUMBER, $folder, $path;
-	    write_folder $folder, $path, 1, $NUMBER;
-	} else {
-	    printf "x %4i %-45.45s => %s", $message_count, $folder, $path;
-	    write_folder $folder, $path, 1, $message_count;
-	}
-    }
-}
-
-sub write_folder($$$$)
-{   my($folder, $newpath, $first_message, $last_message) = @_;
-
-    $imap->select($folder)
-        or warn "Could not examine $folder: $!";
-
-    my $new_dir  = dirname  $newpath;
-    my $new_file = basename $newpath;
-
-    -d $new_dir
-    or mkpath($new_dir, 0700)
-    or die "Cannot create $new_dir:$!\n";
-
-    open my $mbox, $WRITE_MODE, $newpath
-        or die "Cannot create file $newpath: $!\n";
-
-    my @msgs = $imap->unseen if $UNSEEN;
-
-    for (my $i=$first_message; $i<$last_message+1; ++$i)
-    {	my $m = ($UNSEEN ? shift @msgs : $i);
-	my $date = UnixDate(ParseDate($imap->internaldate($m)),
-			 "%a %b %e %T %Y");
-	my $user = $imap->get_envelope($m)->from_addresses;
-	$user =~ s/^.*<([^>]*)>/$1/;
-	$user = '-' unless $user;
-	print '.' if $m%25 == 0;
-
-	my $msg_header = $imap->fetch($m, "FAST")
-            or warn "Could not fetch header $m from $folder\n";
-
-	my $msg_rfc822 = $imap->fetch($m, "RFC822");
-        unless($msg_rfc822)
-        {   warn "Could not fetch RFC822 $m from $folder\n";
-            $FAIL=1
-        }
-
-	undef my $start;
-	foreach (@$msg_rfc822)
-	{   my $message;
-	    if($_ =~ /\: / && !$message)
-            {   ++$message;
-                print $mbox "From $user $date\n";
-            }
-
-	    if(/^\)\r/)
-            {   undef $message;
-                print $mbox "\n\n";
-            }
-	    next unless $message;
-	    $_ =~ s/\r$//;
-	    $_ = $imap->Strip_cr($_) if $CR;
-	    print $mbox "$_";
-
-	}
-	if($DELETE && ! $FAIL)
-	{   $imap->delete_message($m)
-                or warn "Could not delete_message: $@\n";
-	    $FAIL = 0;
-	}
-    }
-
-    close $mbox
-        or die "Write errors to $newpath: $!\n";
-
-    if($DELETE)
-    {   $imap->expunge($folder)
-            or warn "Could not expunge: $@\n";
-    }
-
-    print "\n";
-}
-
-# 2008/08/07 - Added SSL support, fixed From header printing, and CR
-#		elimination (sobek)
-#
-# Revision 19991216.7  2002/08/23 13:29:48  dkernen
-#
-# Revision 19991216.6  2000/12/11 21:58:52  dkernen
-#
-# Revision 19991216.5  1999/12/16 17:19:12  dkernen
-# Bring up to same level
-#
-# Revision 19991124.3  1999/12/16 17:14:25  dkernen
-# Incorporate changes for exists method performance enhancement
-#
-# Revision 19991124.02  1999/11/24 17:46:19  dkernen
-# More fixes to t/basic.t
-#
-# Revision 19991124.01  1999/11/24 16:51:49  dkernen
-# Changed t/basic.t to test for UIDPLUS before trying UID cmds
-#
-# Revision 1.3  1999/11/23 17:51:06  dkernen
-# Committing version 1.06 distribution copy
diff --git a/W/Mail-IMAPClient-3.42/examples/imtestExample.pl b/W/Mail-IMAPClient-3.42/examples/imtestExample.pl
deleted file mode 100755
index 27938e9..0000000
--- a/W/Mail-IMAPClient-3.42/examples/imtestExample.pl
+++ /dev/null
@@ -1,226 +0,0 @@
-#!/usr/local/bin/perl
-
-use Sys::Hostname;
-use Mail::IMAPClient;
-use IPC::Open3;
-use IO::Socket::UNIX;
-use IO::Socket;
-use Socket;
-use Getopt::Std;
-&getopts('ha:df:i:o:p:r:m:u:x:w:p:s:');
-
-if ($opt_h) {
-	print <<"	HELP";
-	$0 -- uses imtest to connect and authenticate to imap server
-	
-	Options:
-	-h	 print this help message
-
-	-a auth  authenticate as user 'auth'. This value is passed as the '-a' value
-		 to imtest and defaults to whatever you supplied for -u.
-	-d 	 turn on Mail::IMAPClient debugging 
-	-f file	 write Mail::IMAPClient debugging info to file 'file'
-	-m mech  use authentication mechanism "mech"; default is to not supply -m to 
-		 imtest
-	-i path  path to imtest executable; default is to let your shell find it via the
-		 PATH environmental variable.
-	-p port  port on mail server to connect to (default is 143)
-	-r rlm   Use realm 'rlm' (default is name of mail server)
-	-s srvr  Name of IMAP mail server (default is the localhost's hostname)
-	-u usr   Use 'usr' as the user id (required)
-	-w pswd  Use 'pswd' as the password for 'usr' (required)
-	-x path  Path to Unix socket (fifo). Default is '/tmp/$0.sock'.
-	-o 'ops' Pass the string 'ops' directy to imtest as additional options.
-		 This is how you get "other" imtest options passed to imtest. (I only
-		 included switches for options that are either really common or useful 
-		 to the IMAPClient object as well as to imtest.)
-
-	Many of these switches have the same function here as with imtest. I added a 
-	few extras though!  
-
-	Example:
-	$0 	-o '-k 128 -l 128' -s imapmail -u test -w testpswd \
-		-i /usr/local/src/cyrus/cyrus-imapd-2.1.11/imtest/ \
-		-m DIGEST-MD5 
-
-	It's a good idea to test your options by running imtest from the command line
-	(but without the -x switch) first. Once you have it working by hand you should
-	be able to get it to work from this script (or one remarkably like it) without
-	too much bloodshed.
-
-	HELP
-	exit;
-}
-
-$opt_u and $opt_w or die "No userid/password credentials supplied. I hate that.\n";
-$opt_a ||= $opt_u;
-
-if ($opt_i ) {
-	$opt_i =~ m#^[/\.]# or $opt_i = "./$opt_i";
-	$opt_i =~ m#imtest$# or ( -x $opt_i  and -f $opt_i ) 
-		or $opt_i .= ( $opt_i =~ m#/$# ? "imtest" : "/imtest") ;
-	-x $opt_i and -f $opt_i or die "Cannot find executable $opt_i\n";
-}
-
-
-$opt_p ||= 143;
-$opt_s ||= hostname;
-$opt_r ||= $opt_s;
-$opt_x ||= "/tmp/$0.sock";
-
-
-my($rfh,$wfh,$efh) ;
-
-
-my($imt) = 	($opt_i ? "$opt_i " : "imtest ") .
-		($opt_m ? "-m $opt_m ":"" ) .
-		qq(-r $opt_r -a $opt_a -u $opt_u ).
-		qq(-x $opt_x -w $opt_w -p $opt_p $opt_s);
-
-open3($wfh,$rfh,$efh,$imt);
-
-my $line;
-
-until ($line =~ /^Security strength factor:/i ) {
-	$line = <$rfh> or die "EOF\n";
-	print STDERR "Prolog: $line" if $opt_d;
-}
-sleep 5;
-my $sock = IO::Socket::UNIX->new("$opt_x")
-	or warn "No socket: $!\n" and exit;
-
-print STDERR "<<<END OF PROLOG>>>\n" if $opt_d;
-my $imap = Mail::IMAPClient->new;
-$imap->Prewritemethod(\&Mail::IMAPClient::Strip_cr);
-$imap->User("$opt_u");
-$imap->Server("$opt_s");
-$imap->Port("$opt_p");
-$imap->Debug($opt_d);
-$imap->Debug_fh($opt_f||\*STDERR);
-$imap->State($imap->Connected);
-$imap->Socket($sock);
-
-# Your code goes here:
-
-$imap->Select("INBOX");
-for my $m (@{$imap->search("TEXT SUBJECT")} ) {
-	print "Message $m:\t",$imap->subject($m),"\n";
-}
-# You should have finished your code by about here
-$imap->logout;
-
-print STDERR "<<<END>>>\n" if $opt_d;
-
-exit;
-
-=head1 NAME
-
-imtestExample.pl -- uses imtest to connect and authenticate to imap server
-	
-
-=head1 DESCRIPTION
-
-	
-=head2 Options
-
-=over 4
-
-=item -h
-
-print this help message
-
-=item -a auth  
-
-authenticate as user 'auth'. This value is passed as the '-a' value
-to imtest and defaults to whatever you supplied for -u.
-
-=item -d 	 
-
-turn on Mail::IMAPClient debugging 
-
-=item -f file	 
-
-write Mail::IMAPClient debugging info to file 'file'
-
-=item -m mech  
-
-use authentication mechanism "mech"; default is to not supply -m to 
- imtest
-
-=item -i path  
-
-path to imtest executable; default is to let your shell find it via the
-PATH environmental variable.
-
-=item -p port  
-
-port on mail server to connect to (default is 143)
-
-=item -r rlm   
-
-Use realm 'rlm' (default is name of mail server)
-
-=item -s srvr  
-
-Name of IMAP mail server (default is the localhost's hostname)
-
-=item -u usr   
-
-Use 'usr' as the user id (required)
-
-=item -w pswd  
-
-Use 'pswd' as the password for 'usr' (required)
-
-=item -x path  
-
-Path to Unix socket (fifo). Default is '/tmp/$0.sock'.
-
-=item -o 'ops' 
-
-Pass the string 'ops' directy to imtest as additional options.
-This is how you get "other" imtest options passed to imtest. (I only
-included switches for options that are either really common or useful 
-to the IMAPClient object as well as to imtest.)
-
-Many of these switches have the same function here as with imtest. I added a 
-few extras though!  
-
-=back
-
-Example:
-
- 	imtestExample.pl -o '-k 128 -l 128' -s imapmail -u test -w testpswd 	\
-		-i /usr/local/src/cyrus/cyrus-imapd-2.1.11/imtest/ 		\
-		-m DIGEST-MD5 
-
-It's a good idea to test your options by running imtest from the command line
-(but without the -x switch) first. Once you have it working by hand you should
-be able to get it to work from this script (or one remarkably like it) without
-too much bloodshed.
-
-	
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-Based on a suggestion by Tara L. Andrews.
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
diff --git a/W/Mail-IMAPClient-3.42/examples/migrate_mail2.pl b/W/Mail-IMAPClient-3.42/examples/migrate_mail2.pl
deleted file mode 100755
index df3b673..0000000
--- a/W/Mail-IMAPClient-3.42/examples/migrate_mail2.pl
+++ /dev/null
@@ -1,326 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-#
-# An example of how to migrate from a Netscape server
-# (which uses a slash as a separator and which does
-# not allow subfolders under the INBOX, only next to it)
-# to a Cyrus server (which uses a dot (.) as a separator
-# and which requires subfolders to be under "INBOX").
-# There are also some allowed-character differences taken
-# into account but this is by no means complete AFAIK.
-#
-# This is an example. If you are doing mail migrations 
-# then this may in fact be a very helpful example but
-# it is unlikely to work 100% correctly as-is. 
-# A good place to start is by testing a rather large-volume
-# transfer of actual mail from the source server with the
-# -v option turned on and redirect output to a file for
-# perusal. Examine the output carefully for unexpected
-# results, such as a number of messages being skipped because
-# they're already in the target folder when you know darn
-# well this is the first time you ran the script. This
-# would indicate an incompatibility with the logic for
-# detecting duplicates, unless for some reason the source 
-# mailbox contains a lot of duplicate messages to begin with.
-# (The latter case is an example of why you should use an
-# actual mailbox stuffed with actual mail for test; if you
-# generate test messages and then test migrating those you
-# will only prove that your test messages are migratable.
-# 
-# Also, you may need to play with the rules
-# for translating folder names based on what kind of
-# names your target server and source server support.
-#
-# You may also need to play with the logic that determines
-# whether or not a message has already been migrated, 
-# especially if your source server has messages that 
-# did not come from an SMTP gateway or something like that.
-#
-# Some servers allow folders to contain mail and subfolders,
-# some allow folders to only contain either mail or subfolders.
-# If you are migrating from a "mixed use" type to a "single use"
-# type server then you'll have to figure out how to deal 
-# with this. (This script deals with this by creating folders like
-# "/blah_mail", "/blah/blah_mail", and "/blah/blah/blah_mail"
-# to hold mail if the source folder contains mail and subfolders
-# and the target server supports only single-use folders. 
-# You may not choose a different strategy.)
-#
-# Finally, it's possible that in some server-to-server
-# copies, the source server supports messages that the
-# target server considers unacceptable. For example, some
-# but not all IMAP servers flat out refuse to accept 
-# messages with "base newlines", which is to say messages
-# whose lines are match the pattern /[^\r]\n$/. There is
-# no logic in this script that deals with the situation;
-# you will have to identify it if it exists and figure
-# out how you want to handle it.
-# 
-# This is probably not an exhaustive list of issues you'll
-# face in a migration, but it's a start.
-#
-# If you're just migrating from an old version to a newer
-# version of the same server then you'll probably have
-# a much easier time of it.
-#
-#
-
-use Mail::IMAPClient;
-use Data::Dumper;
-use IO::File;
-use File::Basename ;
-use Getopt::Std;
-use strict;
-use vars qw/ 	$opt_B $opt_D $opt_T $opt_U
-		$opt_W $opt_b $opt_d $opt_h
-		$opt_t $opt_u $opt_w $opt_v
-		$opt_s $opt_S $opt_W $opt_p
-		$opt_P $opt_f $opt_F $opt_m 
-		$opt_M
-/;
-
-getopts('vs:S:u:U:dDb:B:f:F:w:W:p:P:t:T:hm:M:');
-
-if ( $opt_h ) {
-	print STDERR <<"HELP";
-
-$0 - 	an example script demonstrating the use of the Mail::IMAPClient's
-	migrate method.
-
-Syntax:
-	$0 -s source_server -u source_user -w source_password -p source_port \
-	   -d debug_source -f source_debugging_file -b source_buffsize       \
-	   -t source_timeout -m source_auth_mechanism                        \
-	   -S target_server -U target_user -W target_password -P target_port \
-	   -D debug_target -F target_debugging_file -B target_buffsize       \
-	   -T target_timeout -M target_auth_mechanism                        \
-	   -v
-
-where "source" refers to the "copied from" mailbox, target is the 
-"copied to" mailbox, and -v turns on verbose output.
-Authentication mechanisms default to "PLAIN".
-
-HELP
-	exit;
-}
-$opt_v and ++$|;
-print "$0: Started at ",scalar(localtime),"\n" if $opt_v;
-
-$opt_p||=143;
-$opt_P||=143;
-
-# Make a connection to the source mailbox:
-my $imap = Mail::IMAPClient->new(
-				Server  => $opt_s,
-				User    => $opt_u,
-				Password=> $opt_w,
-				Uid	=> 1,	
-				Port	=> $opt_p,	
-				Debug	=> $opt_d||0,
-				Buffer	=> $opt_b||4096,
-				Fast_io	=> 1,
-				( $opt_m ? ( Authmechanism => $opt_m) : () ),
-				Timeout	=> $opt_t,	 
-				($opt_f ? ( Debug_fh=>IO::File->new(">$opt_f" )) : ()),
-) or die "$@";
-
-# Make a connection to the target mailbox:
-my $imap2 = Mail::IMAPClient->new(	
-				Server  => $opt_S,
-				User    => $opt_U,
-				Password=> $opt_W,
-				Port	=> $opt_P,
-				Uid	=> 1,	
-				Debug	=> $opt_D||0,
-				( $opt_M ? ( Authmechanism => $opt_M) : () ),
-				($opt_F ? ( Debug_fh=>IO::File->new(">$opt_F")) : ()),
-				Buffer	=> $opt_B||4096,
-				Fast_io	=> 1,
-				Timeout	=> $opt_T,			 # True value
-) or die "$@";
-
-# Turn off buffering on debug files:
-$imap->Debug_fh->autoflush;
-$imap2->Debug_fh->autoflush;
-
-# Get folder hierarchy separator characters from source and target:
-my $sep1 = $imap->separator;
-my $sep2 = $imap2->separator;
-
-# Find out if source and target support subfolders inside INBOX:
-my $inferiorFlag1 = $imap->is_parent("INBOX");
-my $inferiorFlag2 = $imap2->is_parent("INBOX");
-
-# Set up a test folders to see if the source and target support mixed-use
-# folders (i.e. folders with both subfolders and mail messages):
-my $testFolder1 = "Migrate_Test_$$" ;		# Ex: Migrate_Test_1234
-$testFolder1 = $inferiorFlag2 ? 
-		"INBOX" . $sep2 . $testFolder1  : 
-		$testFolder1 ;
-
-# The following folder will be a subfolder of $testFolder1:
-my $testFolder2 = "Migrate_Test_$$" . $sep2 . "Migrate_test_subfolder_$$" ;
-$testFolder2 = $inferiorFlag2 ? "INBOX" . $sep2 . $testFolder2  : $testFolder2 ;
-
-$imap2->create($testFolder2) ;	# Create the subfolder first; RFC2060 dictates that
-				# the parent folder should be created at the same time
-
-
-# The following line inspired the selectable method.  It was also made obsolete by it,
-# but I'm leaving it as is to demonstrate use of lower-level method calls:
-my $mixedUse2 = grep(/NoSelect/i,$imap2->list("",$testFolder1))? 0 : 1;
-
-# Repeat the above with the source mailbox:
-$testFolder2 = "Migrate_Test_$$" . $sep1 . "Migrate_test_subfolder_$$" ;
-$testFolder2 = $inferiorFlag1 ? "INBOX" . $sep1 . $testFolder1  : $testFolder1 ;
-
-$imap->create($testFolder2) ;
-
-my $mixedUse1 = grep(/NoSelect/i,$imap->list("",$testFolder1))? 0 : 1;
-
-print 	"Imap host $opt_s:$opt_p uses a '$sep1' as a separator and ",
-	( defined($inferiorFlag1) ? "allows " : "does not allow "), 
-	"children in the INBOX. It supports ",
-	($mixedUse1?"mixed use ":"single use "), "folders.\n" if $opt_v;
-
-print 	"Imap host $opt_S:$opt_P uses a '$sep2' as a separator and ",
-	( defined($inferiorFlag2) ? "allows " : "does not allow "), 
-	"children in the INBOX. It supports ",
-	($mixedUse2?"mixed use ":"single use "), "folders.\n" if $opt_v;
-
-for ($testFolder1,$testFolder2) {$imap->delete($_); $imap2->delete($_);}
-
-my($totalMsgs, $totalBytes) = (0,0);
-
-# Now we will migrate the folder. Here we are doing one message at a time
-# so that we can do more granular status reporting and error checking.
-# A lazier way would be to do all the messages in one migrate method call
-# (specifying "ALL" as the message number) but then we wouldn't be able
-# to print out which message we were migrating and it would be a little 
-# bit tougher to control checking for duplicates and stuff like that.
-# We could also check the size of the message on the target right after 
-# the migrate as an extra safety check if we wanted to but I didn't bother
-# here. (I saved as an exercise for the reader. Yeah! That's it! An exercise!)
-
-# Iterate over all the folders in the source mailbox:
-for my $f ($imap->folders) { 
-	# Select the folder on the source side:
-	$imap->select($f) ; 
-
-	# Massage the foldername into an acceptable target-side foldername:
-	my $targF = "";
-	my $srcF = $f;
-	$srcF =~ s/^INBOX$sep1//i;
-	if ( $inferiorFlag2 ) {
-		$targF = $srcF eq "INBOX" ? "INBOX" : "INBOX.$f" ;
-	} else {
-		$targF = $srcF ;
-	}
-
-	$targF =~ s/$sep1/$sep2/go unless $sep1 eq $sep2;
-	$targF =~ tr/#\$\& '"/\@\@+_/;
-	if ( $imap->is_parent($f) and !$mixedUse2 ) {
-		$targF .= "_mail" ;
-	}
-	print "Migrating folder $f to $targF\n" if $opt_v;
-
-	# Create the (massaged) folder on the target side:
-	unless ( $imap2->exists($targF) ) {
-		$imap2->create($imap2->Massage($targF))
-			or warn "Cannot create $targF on " . $imap2->Server . ": $@\n" and next;
-	}
-
-	# ... and select it
-	$imap2->select($imap2->Massage($targF))  
-			or warn "Cannot select $targF on " . $imap2->Server . ": $@\n" and next;
-
-	# now that we know the target folder is selectable, we can close it again:
-	$imap2->close; 
-	my $count = 0;
-	my $expectedTotal = $imap->message_count($f) ;
-
-	# Now start iterating over all the messages on the source side...
-	for my $msg ($imap->messages) {
-		++$count; 
-		my $h = "";
-		# Get some basic info about the message:
-		eval { $h = ($imap->parse_headers($msg,"Message-id")||{})->{'Message-id'}[0]};
-		my $tsize = $imap->size($msg);
-		my $ret = 0 ; my $h2 = [];
-
-		# Make sure we didn't already migrate the message in a previous pass:
-		$imap2->select($targF);
-		if ( 	$tsize and $h and $h2 = $imap2->search( 
-					HEADER 	=> 'Message-id'	=> $imap2->Quote($h),
-					NOT 	=>  SMALLER 	=> $tsize, 
-					NOT	=>  LARGER	=> $tsize
-			)
-		) {
-			print  	
-				"Skipping $f/$msg to $targF. ",
-				"One or more messages (" ,join(", ",@$h2),
-				") with the same size and message id ($h) ",
-				"is already on the server. ",
-				"\n" 
-			if $opt_v;
-			$imap2->close;
-
-		} else {
-
-			print  	
-				"Migrating $f/$msg to $targF. ",
-				"Message #$count of $expectedTotal has ",
-				$tsize , " bytes.",
-				"\n" if $opt_v;
-			$imap2->close;
-
-			# Migrate the message:
-			my $ret = $imap->migrate($imap2,$msg,"$targF") ;
-			$ret and ( $totalMsgs++ , $totalBytes += $tsize);
-			$ret or warn "Cannot migrate $f/$msg to $targF on " . $imap2->Server . ": $@\n" ;
-		}
-	}
-}
-
-print "$0: Finished migrating $totalMsgs messages and $totalBytes bytes at ",scalar(localtime),"\n" 
-	if $opt_v;
-exit;
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-#$Log: migrate_mail2.pl,v $
-#Revision 19991216.4  2003/06/12 21:38:33  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/migrate_mbox.pl b/W/Mail-IMAPClient-3.42/examples/migrate_mbox.pl
deleted file mode 100755
index 1b5129a..0000000
--- a/W/Mail-IMAPClient-3.42/examples/migrate_mbox.pl
+++ /dev/null
@@ -1,131 +0,0 @@
-#!/usr/local/bin/perl
-#
-# This is an example demonstrating the use of the migrate method.
-# Note that the migrate method is considered experimental and should 
-# be used with caution. 
-# 
-#$Id$
-# 
-
-use Mail::IMAPClient;
-use IO::File;
-use File::Basename ;
-use Getopt::Std;
-use warnings;
-use vars qw/$opt_h $opt_H 
-	$opt_s $opt_u $opt_p $opt_d $opt_b $opt_o
-	$opt_S $opt_U $opt_P $opt_D $opt_B $opt_O
-/;
-
-getopts('Hhs:S:u:U:p:P:d:D:b:B:o:O:');
-if ($opt_h or $opt_H ) {
-print << "HELP";
-
-
-Usage:
-
-$0 -[h|H]	-- prints this message
-
-Lower-case options are for source server; upper-case options are for the target server.
-
-$0 	-s server -S server -u uid -U uid -p passwd -P passwd \
-	-b buffersize -B buffersize -o debugFile -O debugFile > error_file
-
-All uppercase options except -O default to the lowercase option that was specified. 
-If you don't specify any uppercase options at all then God help you, I don't know 
-what will happen.
-
-Always capture STDERR so that you'll be able to resolve any problems that come up.
-
-
-HELP
-
-exit;
-}
-
-my $imap = Mail::IMAPClient->new(
-	Server  => $opt_s,
-	User    => $opt_u,
-	Password=> $opt_p,
-	Uid	=> 1,
-	Debug	=> $opt_d,
-	Buffer	=> $opt_b||4096,
-	Fast_io	=> 1,
-	Timeout	=> 160,			   # True value
-	Debug_fh=> ( 
-		$opt_o ? IO::File->new(">$opt_o")||die "can't open $opt_o: $!\n" : undef ) 
-) or die "Error opening source connection: $@\n";
-
-my $imap2 = Mail::IMAPClient->new(	
-	Server  => $opt_S||$opt_s,
-	User    => $opt_U||$opt_u,
-	Password=> $opt_P||$opt_p,
-	Uid	=> 1,
-	Debug	=> $opt_D||$opt_d,
-	Buffer	=> $opt_B||$opt_b||4096,
-	Fast_io	=> 1,
-	Timeout	=> 160,	
-	Debug_fh=> ( 
-		$opt_O ? IO::File->new(">$opt_O")||die "can't open $opt_O: $!\n" : undef ) 
-) or die "Error opening target connection: $@\n";
-
-
-$imap->Debug_fh->autoflush;
-$imap2->Debug_fh->autoflush;
-
-for my $f ($imap->folders) { $imap->select($f) ; $imap->migrate($imap2,"ALL") ;}
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-#
-#$Log: migrate_mbox.pl,v $
-#Revision 19991216.2  2003/06/12 21:38:33  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-#Revision 1.1  2003/06/12 21:38:15  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-#
diff --git a/W/Mail-IMAPClient-3.42/examples/populate_mailbox.pl b/W/Mail-IMAPClient-3.42/examples/populate_mailbox.pl
deleted file mode 100755
index 86fcb96..0000000
--- a/W/Mail-IMAPClient-3.42/examples/populate_mailbox.pl
+++ /dev/null
@@ -1,246 +0,0 @@
-#!/usr/bin/perl
-
-use Time::Local;
-use FileHandle;
-use File::Copy;
-use Mail::IMAPClient;
-use Sys::Hostname;
-
-my $default_user = 'default';
-my $default_pswd = 'default';
-
-###
-# ARGS: DATE     = YYYYMMDDHHMM (defaults to current system date)
-#       UID      = IMAP account id (defaults to $default_user)
-#       PSWD     = uid's password (defaults to $default_pswd)
-#       HOST     = Target host (defaults to localhost)
-#       CLEAN    = 1   (defaults to 0; used to clean out mailbox 1st)
-#       CLEANONLY= 1   (defaults to 0; if 1 then only CLEAN is done)
-#       DOMAIN   = x.com (no default) the mail domain for UID's address
-#
-# EG:   populate_mailbox.pl DATE=200001010100 UID=testuser
-###
-
-( my ($x) = join( " ", @ARGV ) );
-$x =~ s~=~ ~g;
-chomp($x);
-
-my %hash = split( /\s+/, $x ) if $x;
-
-while ( my ( $k, $v ) = each %hash ) {
-    $hash{ uc $k } = $v;
-}
-
-while ( my ( $k, $v ) = each %hash ) {
-    delete $hash{$k} if $k =~ tr/[a-z]//;
-}
-
-$hash{UID}  ||= "$default_user";
-$hash{PSWD} ||= "$default_pswd";
-$hash{HOST} ||= hostname;
-
-while ( my ( $k, $v ) = each %hash ) {
-    print "Running with $k set to $v\n";
-}
-
-my $domain = $hash{DOMAIN} or die "No mail domain provided.\n";
-my $now = seconds( $hash{DATE} ) || time;
-
-my $six       = $now - ( 6 * 24 * 60 * 60 );
-my $seven     = $now - ( 7 * 24 * 60 * 60 );
-my $notthirty = $now - ( 29 * 24 * 60 * 60 );
-my $thirty    = $now - ( 30 * 24 * 60 * 60 );
-my $notsixty  = $now - ( 59 * 24 * 60 * 60 );
-my $sixty     = $now - ( 60 * 24 * 60 * 60 );
-my $notd365   = $now - ( 364 * 24 * 60 * 60 );
-my $d365      = $now - ( 365 * 24 * 60 * 60 );
-
-$hash{SUBJECTS} = [
-    "Sixty days old",
-    "Less than sixty days old",
-    "365 days old",
-    "Less than 365 days old",
-    "Trash/Incinerator -- 7 days old",
-    "Sent -- 29 days old",
-    "Sent -- 30 days old",
-    "Trash -- 6 days old",
-];
-
-$hash{FOLDERS} = [
-    "Sent",              "INBOX",
-    "Trash",             "365_folder",
-    "Trash/Incinerator", "not_365_folder",
-];
-
-&clean_mailbox if $hash{CLEANONLY} || $hash{CLEAN};
-exit if $hash{CLEANONLY};
-
-# send     to:          date:            subject:
-# -------- ---          -----           ---------
-sendmail( $hash{UID}, $sixty,    "Sixty days old" );
-sendmail( $hash{UID}, $notsixty, "Less than sixty days old" );
-sendmail( $hash{UID}, $d365,     "365 days old" );
-sendmail( $hash{UID}, $notd365,  "Less than 365 days old" );
-
-populate_trash( "Trash/Incinerator", $hash{UID}, $seven,     7 );
-populate_trash( "Trash",             $hash{UID}, $six,       6 );
-populate_trash( "Sent",              $hash{UID}, $thirty,    30 );
-populate_trash( "Sent",              $hash{UID}, $notthirty, 29 );
-
-movemail( "365 days old", "365_folder" );
-
-movemail( "Less than 365 days old", "not_365_folder" );
-
-exit;
-
-sub seconds {
-    my $d = shift or return undef;
-    my ( $yy, $moy, $dom, $hr, $min ) =
-      $d =~ m!  ^               # anchor at start       #
-                (\d\d\d\d)      # year                  #
-                (\d\d)          # month                 #
-                (\d\d)          # day                   #
-                (\d\d)          # hour                  #
-                (\d\d)          # minute                #
-                !x;
-
-    # allow year 0999 to be year 999, and year 0099 to be year 99
-    return timegm( 0, $min, $hr, $dom, $moy - 1,
-        ( $yy > 999 ? $yy : $yy - 1900 ) );
-}
-
-sub sendmail {
-    my ( $to, $date, $subject ) = @_;
-    my $text = <<EOTEXT ;
-To: $to\@$hash{DOMAIN}
-Date: @{[&rfc822_date($date)]}
-Subject: $subject
-
-Dear mail tester,
-
-This is a test message to test mail for messages \l$subject.
-
-I hope you like it!
-
-Love,
-The E-Mail Engineering Team
-
-EOTEXT
-
-    for ( my $x = 0 ; $x < 10 ; $x++ ) {
-        my $imap = Mail::IMAPClient->new(
-            Server   => $hash{HOST},
-            User     => $hash{UID},
-            Password => $hash{PSWD}
-        ) or die "can't connect: $!\n";
-
-        $imap->append( "INBOX", $text );
-        $imap->logout;
-    }
-}
-
-sub populate_trash {
-    my $where = shift;
-    my $to    = shift;
-    my $date  = shift;
-    my $d     = shift;
-
-    my ( $ss, $min, $hr, $day, $mon, $year ) = gmtime($date);
-    $mon++;
-    $year += 1900;
-    my $fn = sprintf( "%4.4d%2.2d%2.2d%2.2d%2.2d%2.2d",
-        $year, $mon, $day, $hr, $min, $ss );
-    my $x       = 0;
-    my $subject = "$where -- $d days old";
-    while ( $x++ < 10 ) {
-        my $fh;
-        $fh .= "Date: @{[&rfc822_date($date)]}\n";
-        $fh .= <<EOTRAH ;
-Subject: $subject
-
-This note was put in the $where folder $d days ago.  (My how time flies!)
-I hope you enjoyed testing with it!
-
-EOTRAH
-        my $imap = Mail::IMAPClient->new(
-            Server   => $hash{HOST},
-            User     => $hash{UID},
-            Password => $hash{PSWD}
-        ) or die "can't connect: $!\n";
-        $imap->append( $where, $fh );
-    }
-}
-
-sub movemail {
-    my ( $subj, $fold ) = @_;
-    my $fh = Mail::IMAPClient->new(
-        Debug    => 0,
-        Server   => $hash{HOST},
-        User     => $hash{UID},
-        Password => $hash{PSWD},
-    );
-
-    $fh->select("inbox") or die "cannot open inbox: $!\n";
-
-    foreach my $f ( $fh->search(qq(SUBJECT "$subj")) ) {
-        $fh->move( $fold, $f );
-    }
-}
-
-sub clean_mailbox {
-    my $fh = Mail::IMAPClient->new(
-        Debug    => 0,
-        Server   => $hash{HOST},
-        User     => $hash{UID},
-        Password => $hash{PSWD},
-    );
-    for my $x ( @{ $hash{FOLDERS} } ) {
-        my @msgs;
-        $fh->create($x) unless $fh->exists($x);
-        $fh->select($x);
-        for my $s ( @{ $hash{SUBJECTS} } ) {
-            push @msgs, $fh->search(qq(SUBJECT "$s"));
-        }
-        $fh->delete_message(@msgs) if scalar(@msgs);
-        $fh->expunge;
-    }
-}
-
-# Date: Fri, 09 Jul 1999 13:10:55 -0400
-sub rfc822_date {
-    my $date = shift;
-    my @date = localtime($date);
-    my @dow  = qw{ Sun Mon Tue Wed Thu Fri Sat };
-    my @mnt  = qw{ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec};
-
-    return sprintf(
-        "%s, %2.2d %s %4.4s %2.2d:%2.2d:%2.2d -0400",
-        $dow[ $date[6] ],
-        $date[3],
-        $mnt[ $date[4] ],
-        $date[5] += 1900,
-        $date[2], $date[1], $date[0]
-    );
-}
-
-=head1 AUTHOR
-
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server,
-Copyright (c) 1994-2000 Carnegie Mellon University.
-All rights reserved.
-
-=cut
diff --git a/W/Mail-IMAPClient-3.42/examples/sharedFolder.pl b/W/Mail-IMAPClient-3.42/examples/sharedFolder.pl
deleted file mode 100755
index dca8e38..0000000
--- a/W/Mail-IMAPClient-3.42/examples/sharedFolder.pl
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/usr/local/bin/perl
-#$Id$
-
-use Mail::IMAPClient;
-use Getopt::Std;
-use File::Basename;
-getopts('s:u:p:f:dh');
-
-if ($opt_h) {
-		
-	print STDERR "$0	-- example of how to select shared folder\n",
-	"\n\nUsage:\n",
-	"\t-s	server	-- specify name or ip address of mail server\n",
-	"\t-u	userid	-- specify login name of authenticating user\n",
-	"\t-p	passwd	-- specify login password of authenticating user\n",
-	"\t-f	folder	-- specify shared folder to access (i.e. '-f frank/INBOX')\n",
-	"\t-h		   display this help message\n\n";
-	"\t-d		   turn on debugging output\n\n";
-	exit;	
-}
-		
-my $server = $opt_s or die "No server name specified\n";
-my $user   = $opt_u or die "No user name specified\n";
-my $pass   = $opt_p or die "No password specified\n";
-my $folder = $opt_f or die "No shared folder specified\n";
-
-chomp $pass;
-my $imap = Mail::IMAPClient->new(Server=>$server,User=>$user,Password=>$pass,Debug=>$opt_d)
-	or die "Can't connect to $user\@$server: $@ $!\n";
-
-my($prefix,$prefSep) = @{$imap->namespace->[1][0]}
-	or die "Can't get shared folder namespace or separator: $@\n";
-
-
-my $target =  	$prefix .  
-		( $prefix =~ /\Q$prefSep\E$/ || $opt_f =~ /^\Q$prefSep/ ? "" : $prefSep ) . 
-		$opt_f ;
-
-print "Selecting $target\n";
-
-$imap->select($target)
-	or die "Cannot select $target: $@\n";
-
-print "Ok: $target has ", $imap->message_count($target)," messages.\n";
-
-$imap->logout;
-exit;
-
-
-=head1 AUTHOR 
-	
-David J. Kernen
-
-The Kernen Group, Inc.
-
-imap@kernengroup.com
-
-=head1 COPYRIGHT
-
-This example and Mail::IMAPClient are Copyright (c) 2003 
-by The Kernen Group, Inc. All rights reserved.
-
-This example is distributed with Mail::IMAPClient and 
-subject to the same licensing requirements as Mail::IMAPClient.
-
-imtest is a utility distributed with Cyrus IMAP server, 
-Copyright (c) 1994-2000 Carnegie Mellon University.  
-All rights reserved. 
-
-=cut
-
-#
-#$Log: sharedFolder.pl,v $
-#Revision 19991216.1  2003/06/12 21:38:35  dkernen
-#
-#Preparing 2.2.8
-#Added Files: COPYRIGHT
-#Modified Files: Parse.grammar
-#Added Files: Makefile.old
-#	Makefile.PL Todo sample.perldb
-#	BodyStructure.pm
-#	Parse.grammar Parse.pod
-# 	range.t
-# 	Thread.grammar
-# 	draft-crispin-imapv-17.txt rfc1731.txt rfc2060.txt rfc2062.txt
-# 	rfc2221.txt rfc2359.txt rfc2683.txt
-#
-#
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pm b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pm
deleted file mode 100644
index 5808181..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pm
+++ /dev/null
@@ -1,3580 +0,0 @@
-
-# _{name} methods are undocumented and meant to be private.
-
-require 5.008_001;
-
-use strict;
-use warnings;
-
-package Mail::IMAPClient;
-our $VERSION = '3.42';
-
-use Mail::IMAPClient::MessageSet;
-
-use IO::Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE);
-use IO::Select ();
-use Carp qw(carp);    #local $SIG{__WARN__} = \&Carp::cluck; #DEBUG
-
-use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
-use Errno qw(EAGAIN EBADF ECONNRESET EPIPE);
-use List::Util qw(first min max sum);
-use MIME::Base64 qw(encode_base64 decode_base64);
-use File::Spec ();
-
-use constant APPEND_BUFFER_SIZE => 1024 * 1024;
-
-use constant {
-    Unconnected   => 0,
-    Connected     => 1,    # connected; not logged in
-    Authenticated => 2,    # logged in; no mailbox selected
-    Selected      => 3,    # mailbox selected
-};
-
-use constant {
-    INDEX => 0,    # Array index for output line number
-    TYPE  => 1,    # Array index for line type (OUTPUT, INPUT, or LITERAL)
-    DATA  => 2,    # Array index for output line data
-};
-
-my %SEARCH_KEYS = map { ( $_ => 1 ) } qw(
-  ALL ANSWERED BCC BEFORE BODY CC DELETED DRAFT FLAGGED
-  FROM HEADER KEYWORD LARGER NEW NOT OLD ON OR RECENT
-  SEEN SENTBEFORE SENTON SENTSINCE SINCE SMALLER SUBJECT
-  TEXT TO UID UNANSWERED UNDELETED UNDRAFT UNFLAGGED
-  UNKEYWORD UNSEEN);
-
-# modules require(d) during runtime when applicable
-my %Load_Module = (
-    "Compress-Zlib" => "Compress::Zlib",
-    "INET"          => "IO::Socket::INET",
-    "IP"            => "IO::Socket::IP",
-    "SSL"           => "IO::Socket::SSL",
-    "UNIX"          => "IO::Socket::UNIX",
-    "BodyStructure" => "Mail::IMAPClient::BodyStructure",
-    "Envelope"      => "Mail::IMAPClient::BodyStructure::Envelope",
-    "Thread"        => "Mail::IMAPClient::Thread",
-);
-
-sub _load_module {
-    my $self   = shift;
-    my $modkey = shift;
-    my $module = $Load_Module{$modkey} || $modkey;
-
-    my $err = do {
-        local ($@);
-        eval "require $module";
-        $@;
-    };
-    if ($err) {
-        $self->LastError("Unable to load '$module': $err");
-        return undef;
-    }
-    return $module;
-}
-
-sub _debug {
-    my $self = shift;
-    return unless $self->Debug;
-
-    my $text = join '', @_;
-    $text =~ s/$CRLF/\n  /og;
-    $text =~ s/\s*$/\n/;
-
-    #use POSIX (); $text = POSIX::strftime("%F %T ", localtime).$text; #DEBUG
-    my $fh = $self->{Debug_fh} || \*STDERR;
-    print $fh $text;
-}
-
-BEGIN {
-
-    # set-up accessors
-    foreach my $datum (
-        qw(Authcallback Authmechanism Authuser Buffer Count Compress
-        Debug Debug_fh Domain Folder Ignoresizeerrors Keepalive
-        Maxappendstringlength Maxcommandlength Maxtemperrors
-        Password Peek Port Prewritemethod Proxy Ranges Readmethod
-        Readmoremethod Reconnectretry Server Showcredentials
-        Socketargs Ssl Starttls Supportedflags Timeout Uid User)
-      )
-    {
-        no strict 'refs';
-        *$datum = sub {
-            @_ > 1 ? ( $_[0]->{$datum} = $_[1] ) : $_[0]->{$datum};
-        };
-    }
-}
-
-sub LastError {
-    my $self = shift;
-    @_ or return $self->{LastError};
-    my $err = shift;
-
-    # allow LastError to be reset with undef
-    if ( defined $err ) {
-        $err =~ s/$CRLF$//og;
-        local ($!);    # old versions of Carp could reset $!
-        $self->_debug( Carp::longmess("ERROR: $err") );
-
-        # hopefully this is rare...
-        if ( $err =~ /NO not connected/ ) {
-            my $lerr = $self->{LastError} || "";
-            my $emsg = "Trying command when NOT connected!";
-            $emsg .= " LastError was: $lerr" if $lerr;
-            Carp::cluck($emsg);
-        }
-    }
-
-    # 2.x API support requires setting $@
-    $@ = $self->{LastError} = $err;
-}
-
-sub Fast_io(;$) {
-    my ( $self, $use ) = @_;
-    defined $use
-      or return $self->{Fast_io};
-
-    my $socket = $self->{Socket}
-      or return undef;
-
-    local ( $@, $! );    # avoid stomping on globals
-    unless ($use) {
-        eval { fcntl( $socket, F_SETFL, delete $self->{_fcntl} ) }
-          if exists $self->{_fcntl};
-        $self->{Fast_io} = 0;
-        return undef;
-    }
-
-    my $fcntl = eval { fcntl( $socket, F_GETFL, 0 ) };
-    if ($@) {
-        $self->{Fast_io} = 0;
-        $self->_debug("not using Fast_IO; not available on this platform")
-          unless $self->{_fastio_warning_}++;
-        return undef;
-    }
-
-    $self->{Fast_io} = 1;
-    my $newflags = $self->{_fcntl} = $fcntl;
-    $newflags |= O_NONBLOCK;
-    fcntl( $socket, F_SETFL, $newflags );
-}
-
-# removed
-sub EnableServerResponseInLiteral { undef }
-
-sub Wrap { shift->Clear(@_) }
-
-# The following class method is for creating valid dates in appended msgs:
-my @dow = qw(Sun Mon Tue Wed Thu Fri Sat);
-my @mnt = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
-
-sub Rfc822_date {
-    my $class = shift;
-    my $date  = $class =~ /^\d+$/ ? $class : shift;    # method or function?
-    my @date  = gmtime($date);
-
-    #Date: Fri, 09 Jul 1999 13:10:55 -0000
-    sprintf(
-        "%s, %02d %s %04d %02d:%02d:%02d -%04d",
-        $dow[ $date[6] ],
-        $date[3],
-        $mnt[ $date[4] ],
-        $date[5] + 1900,
-        $date[2], $date[1], $date[0], $date[8]
-    );
-}
-
-# The following methods create valid dates for use in IMAP search strings
-# - provide Rfc2060* methods/functions for backwards compatibility
-sub Rfc2060_date {
-    $_[0] =~ /^\d+$/ ? Rfc3501_date(@_) : shift->Rfc3501_date(@_);
-}
-
-sub Rfc3501_date {
-    my $class = shift;
-    my $stamp = $class =~ /^\d+$/ ? $class : shift;
-    my @date  = gmtime($stamp);
-
-    # 11-Jan-2000
-    sprintf( "%02d-%s-%04d", $date[3], $mnt[ $date[4] ], $date[5] + 1900 );
-}
-
-sub Rfc2060_datetime($;$) {
-    $_[0] =~ /^\d+$/ ? Rfc3501_datetime(@_) : shift->Rfc3501_datetime(@_);
-}
-
-sub Rfc3501_datetime($;$) {
-    my $class = shift;
-    my $stamp = $class =~ /^\d+$/ ? $class : shift;
-    my $zone  = shift || '+0000';
-    my @date  = gmtime($stamp);
-
-    # 11-Jan-2000 04:04:04 +0000
-    sprintf(
-        "%02d-%s-%04d %02d:%02d:%02d %s",
-        $date[3],
-        $mnt[ $date[4] ],
-        $date[5] + 1900,
-        $date[2], $date[1], $date[0], $zone
-    );
-}
-
-# Change CRLF into \n
-sub Strip_cr {
-    my $class = shift;
-    if ( !ref $_[0] && @_ == 1 ) {
-        ( my $string = $_[0] ) =~ s/$CRLF/\n/og;
-        return $string;
-    }
-
-    return wantarray
-      ? map { s/$CRLF/\n/og; $_ } ( ref $_[0] ? @{ $_[0] } : @_ )
-      : [ map { s/$CRLF/\n/og; $_ } ( ref $_[0] ? @{ $_[0] } : @_ ) ];
-}
-
-# The following defines a special method to deal with the Clear parameter:
-sub Clear {
-    my ( $self, $clear ) = @_;
-    defined $clear or return $self->{Clear};
-
-    my $oldclear = $self->{Clear};
-    $self->{Clear} = $clear;
-
-    my @keys = reverse $self->_trans_index;
-
-    for ( my $i = $clear ; $i < @keys ; $i++ ) {
-        delete $self->{History}{ $keys[$i] };
-    }
-
-    return $oldclear;
-}
-
-# read-only access to the transaction number
-sub Transaction { shift->Count }
-
-# remove doubles from list
-sub _remove_doubles(@) {
-    my %seen;
-    grep { !$seen{ $_->{name} }++ } @_;
-}
-
-# the constructor:
-sub new {
-    my $class = shift;
-    my $self  = {
-        LastError             => "",
-        Uid                   => 1,
-        Count                 => 0,
-        Clear                 => 2,
-        Keepalive             => 0,
-        Maxappendstringlength => 1024**2,
-        Maxcommandlength      => 1000,
-        Maxtemperrors         => undef,
-        State                 => Unconnected,
-        Authmechanism         => 'LOGIN',
-        Timeout               => 600,
-        History               => {},
-    };
-    while (@_) {
-        my $k = ucfirst lc shift;
-        my $v = shift;
-        $self->{$k} = $v if defined $v;
-    }
-    bless $self, ref($class) || $class;
-
-    # Fast_io is enabled by default when not given a socket
-    unless ( exists $self->{Fast_io} || $self->{Socket} || $self->{Rawsocket} )
-    {
-        $self->{Fast_io} = 1;
-    }
-
-    if ( my $sup = $self->{Supportedflags} ) {    # unpack into case-less HASH
-        my %sup = map { m/^\\?(\S+)/ ? lc $1 : () } @$sup;
-        $self->{Supportedflags} = \%sup;
-    }
-
-    $self->{Debug_fh} ||= \*STDERR;
-    CORE::select( ( select( $self->{Debug_fh} ), $|++ )[0] );
-
-    if ( $self->Debug ) {
-        $self->_debug( "Started at " . localtime() );
-        $self->_debug("Using Mail::IMAPClient version $VERSION on perl $]");
-    }
-
-    # BUG? return undef on Socket() failure?
-    $self->Socket( $self->{Socket} )
-      if $self->{Socket};
-
-    if ( $self->{Rawsocket} ) {
-        my $sock = delete $self->{Rawsocket};
-
-        # Ignore Rawsocket if Socket is set.  BUG? should we carp/croak?
-        $self->RawSocket($sock) unless $self->{Socket};
-    }
-
-    if ( !$self->{Socket} && $self->{Server} ) {
-        $self->connect or return undef;
-    }
-    return $self;
-}
-
-sub connect(@) {
-    my $self = shift;
-
-    # BUG? We should restrict which keys can be passed/set here.
-    %$self = ( %$self, @_ ) if @_;
-
-    my @sockargs = $self->Timeout ? ( Timeout => $self->Timeout ) : ();
-    push( @sockargs, $self->Debug ? ( Debug => $self->Debug ) : () );
-
-    # give caller control of IO::Socket::... args to new if desired
-    if ( $self->Socketargs and ref $self->Socketargs eq "ARRAY" ) {
-        push( @sockargs, @{ $self->Socketargs } );
-    }
-
-    # if no server, use " " to induce a non-fatal error
-    my $server = $self->Server || " ";
-    my $port = $self->Port || $self->Port( $self->Ssl ? "993" : "143" );
-    my ( $ioclass, $sock );
-
-    if ( File::Spec->file_name_is_absolute($server) ) {
-        $ioclass = $self->_load_module("UNIX");
-        unshift( @sockargs, Peer => $server );
-    }
-    else {
-        unshift(
-            @sockargs,
-            PeerAddr => $server,
-            PeerPort => $port,
-            Proto    => "tcp",
-        );
-
-        # pass SSL args if requested; default to IO::Socket::(IP|INET)
-        if ( $self->Ssl ) {
-            $ioclass = $self->_load_module("SSL");
-            push( @sockargs, @{ $self->Ssl } ) if ref $self->Ssl eq "ARRAY";
-        }
-        else {
-            $ioclass = $self->_load_module("IP");
-            $ioclass = $self->_load_module("INET") unless $ioclass;
-        }
-    }
-
-    if ($ioclass) {
-        $self->_debug("Connecting with $ioclass @sockargs");
-        $sock = $ioclass->new(@sockargs);
-    }
-
-    if ($sock) {
-        $self->_debug( "Connected to $server" . ( $! ? " errno($!)" : "" ) );
-        return $self->Socket($sock);
-    }
-    else {
-        my $lasterr = $self->LastError;
-        if ( !$lasterr and $self->Ssl and $ioclass ) {
-            $lasterr = $ioclass->errstr;
-        }
-        $lasterr ||= "";
-        $self->LastError("Unable to connect to $server: $lasterr");
-        return undef;
-    }
-}
-
-sub RawSocket(;$) {
-    my ( $self, $sock ) = @_;
-    defined $sock
-      or return $self->{Socket};
-
-    $self->{Socket}  = $sock;
-    $self->{_select} = IO::Select->new($sock);
-
-    delete $self->{_fcntl};
-    $self->Fast_io( $self->Fast_io );
-
-    return $sock;
-}
-
-sub Socket($) {
-    my ( $self, $sock ) = @_;
-    defined $sock
-      or return $self->{Socket};
-
-    $self->RawSocket($sock);
-    $self->State(Connected);
-
-    setsockopt( $sock, SOL_SOCKET, SO_KEEPALIVE, 1 ) if $self->Keepalive;
-
-    # LastError may be set by _read_line via _get_response
-    # look for "* (OK|BAD|NO|PREAUTH)"
-    my $code = $self->_get_response( '*', 'PREAUTH' ) or return undef;
-
-    if ( $code eq 'BYE' || $code eq 'NO' ) {
-        $self->State(Unconnected);
-        return undef;
-    }
-    elsif ( $code eq 'PREAUTH' ) {
-        $self->State(Authenticated);
-        return $self;
-    }
-
-    if ( $self->Starttls ) {
-        $self->starttls or return undef;
-    }
-
-    if ( defined $self->User && defined $self->Password ) {
-        $self->login or return undef;
-    }
-
-    return $self->{Socket};
-}
-
-# RFC2595 section 3.1
-sub starttls {
-    my ($self) = @_;
-
-    # BUG? RFC requirement checks commented out for now...
-    #if ( $self->IsUnconnected or $self->IsAuthenticated ) {
-    #    $self->LastError("NO must be connected but not authenticated");
-    #    return undef;
-    #}
-
-    # BUG? strict check on capability commented out for now...
-    #return undef unless $self->has_capability("STARTTLS");
-
-    $self->_imap_command("STARTTLS") or return undef;
-
-    # MUST discard cached capability info; should re-issue capability command
-    delete $self->{CAPABILITY};
-
-    my $ioclass  = $self->_load_module("SSL") or return undef;
-    my $sock     = $self->RawSocket;
-    my $blocking = $sock->blocking;
-
-    # BUG: force blocking for now
-    $sock->blocking(1);
-
-    # give caller control of args to start_SSL if desired
-    my @sslargs =
-        ( $self->Starttls and ref( $self->Starttls ) eq "ARRAY" )
-      ? ( @{ $self->Starttls } )
-      : ( Timeout => 30 );
-
-    unless ( $ioclass->start_SSL( $sock, @sslargs ) ) {
-        $self->LastError( "Unable to start TLS: " . $ioclass->errstr );
-        return undef;
-    }
-
-    # return blocking to previous setting
-    $sock->blocking($blocking);
-
-    return $self;
-}
-
-# RFC4978 COMPRESS
-sub compress {
-    my ($self) = @_;
-
-    # BUG? strict check on capability commented out for now...
-    #my $can = $self->has_capability("COMPRESS")
-    #return undef unless $can and $can eq "DEFLATE";
-
-    $self->_imap_command("COMPRESS DEFLATE") or return undef;
-
-    my $zcl = $self->_load_module("Compress-Zlib") or return undef;
-
-    # give caller control of args if desired
-    $self->Compress(
-        [
-            -WindowBits => -$zcl->MAX_WBITS(),
-            -Level      => $zcl->Z_BEST_SPEED()
-        ]
-    ) unless ( $self->Compress and ref( $self->Compress ) eq "ARRAY" );
-
-    my ( $rc, $do, $io );
-
-    ( $do, $rc ) = Compress::Zlib::deflateInit( @{ $self->Compress } );
-    unless ( $rc == $zcl->Z_OK ) {
-        $self->LastError("deflateInit failed (rc=$rc)");
-        return undef;
-    }
-
-    ( $io, $rc ) =
-      Compress::Zlib::inflateInit( -WindowBits => -$zcl->MAX_WBITS() );
-    unless ( $rc == $zcl->Z_OK ) {
-        $self->LastError("inflateInit failed (rc=$rc)");
-        return undef;
-    }
-
-    $self->{Prewritemethod} = sub {
-        my ( $imap, $string ) = @_;
-
-        my ( $rc, $out1, $out2 );
-        ( $out1, $rc ) = $do->deflate($string);
-        ( $out2, $rc ) = $do->flush( $zcl->Z_PARTIAL_FLUSH() )
-          unless ( $rc != $zcl->Z_OK );
-
-        unless ( $rc == $zcl->Z_OK ) {
-            $self->LastError("deflate/flush failed (rc=$rc)");
-            return undef;
-        }
-
-        return $out1 . $out2;
-    };
-
-    # need to retain some state for Readmoremethod/Readmethod calls
-    my ( $Zbuf, $Ibuf ) = ( "", "" );
-
-    $self->{Readmoremethod} = sub {
-        my $self = shift;
-        return 1 if ( length($Zbuf) || length($Ibuf) );
-        $self->__read_more(@_);
-    };
-
-    $self->{Readmethod} = sub {
-        my ( $imap, $fh, $buf, $len, $off ) = @_;
-
-        # get more data, but empty $Ibuf first if any data is left
-        my ( $lz, $li ) = ( length $Zbuf, length $Ibuf );
-        if ( $lz || !$li ) {
-            my $ret = sysread( $fh, $Zbuf, $len, length $Zbuf );
-            $lz = length $Zbuf;
-            return $ret if ( !$ret && !$lz );    # $ret is undef or 0
-        }
-
-        # accumulate inflated data in $Ibuf
-        if ($lz) {
-            my ( $tbuf, $rc ) = $io->inflate( \$Zbuf );
-            unless ( $rc == $zcl->Z_OK ) {
-                $self->LastError("inflate failed (rc=$rc)");
-                return undef;
-            }
-            $Ibuf .= $tbuf;
-        }
-
-        # pull desired length of data from $Ibuf
-        my $tbuf = substr( $Ibuf, 0, $len );
-        substr( $Ibuf, 0, $len ) = "";
-        substr( $$buf, $off ) = $tbuf;
-
-        return length $tbuf;
-    };
-
-    return $self;
-}
-
-sub login {
-    my $self = shift;
-    my $auth = $self->Authmechanism;
-
-    if ( $auth && $auth ne 'LOGIN' ) {
-        $self->authenticate( $auth, $self->Authcallback )
-          or return undef;
-    }
-    else {
-        my $user   = $self->User;
-        my $passwd = $self->Password;
-
-        return undef unless ( defined($passwd) and defined($user) );
-
-        # if user is passed as a literal:
-        # 1. send passwd as a literal
-        # 2. empty literal passwd are sent as an blank line ($CRLF)
-        $user = $self->Quote($user);
-        if ( $user =~ /^{/ ) {
-            my $nopasswd = ( $passwd eq "" ) ? 1 : 0;
-            $passwd = $self->Quote( $passwd, 1 );    # force literal
-            $passwd .= $CRLF if ($nopasswd);         # blank line
-        }
-        else {
-            $passwd = $self->Quote($passwd);
-        }
-
-        $self->_imap_command("LOGIN $user $passwd")
-          or return undef;
-    }
-
-    $self->State(Authenticated);
-    if ( $self->Compress ) {
-        $self->compress or return undef;
-    }
-    return $self;
-}
-
-sub noop {
-    my ($self) = @_;
-    $self->_imap_command("NOOP") ? $self->Results : undef;
-}
-
-sub proxyauth {
-    my ( $self, $user ) = @_;
-    $user = $self->Quote($user);
-    $self->_imap_command("PROXYAUTH $user") ? $self->Results : undef;
-}
-
-sub separator {
-    my ( $self, $target ) = @_;
-    unless ( defined $target ) {
-
-        # separator is namespace's 1st thing's 1st thing's 2nd thing:
-        my $ns = $self->namespace or return undef;
-        if ($ns) {
-            my $sep = $ns->[0][0][1];
-            return $sep if $sep;
-        }
-        $target = '';
-    }
-
-    return $self->{separators}{$target}
-      if exists $self->{separators}{$target};
-
-    my $list = $self->list( undef, $target ) or return undef;
-
-    foreach my $line (@$list) {
-        my $rec = $self->_list_or_lsub_response_parse($line);
-        next unless defined $rec->{name};
-        $self->{separators}{ $rec->{name} } = $rec->{delim};
-    }
-    return $self->{separators}{$target};
-}
-
-# BUG? caller gets empty list even if Error
-# - returning an array with a single undef value seems even worse though
-sub sort {
-    my ( $self, $crit, @a ) = @_;
-
-    $crit =~ /^\(.*\)$/    # wrap criteria in parens
-      or $crit = "($crit)";
-
-    my @hits;
-    if ( $self->_imap_uid_command( SORT => $crit, @a ) ) {
-        my @results = $self->History;
-        foreach (@results) {
-            chomp;
-            s/$CR$//;
-            s/^\*\s+SORT\s+// or next;
-            push @hits, grep /\d/, split;
-        }
-    }
-    return wantarray ? @hits : \@hits;
-}
-
-sub _list_or_lsub {
-    my ( $self, $cmd, $reference, $target ) = @_;
-    defined $reference or $reference = '';
-    defined $target    or $target    = '*';
-    length $target     or $target    = '""';
-
-    $target eq '*' || $target eq '""'
-      or $target = $self->Quote($target);
-
-    $self->_imap_command(qq($cmd "$reference" $target))
-      or return undef;
-
-    return wantarray ? $self->Escaped_history : $self->Escaped_results;
-}
-
-sub list { shift->_list_or_lsub( "LIST", @_ ) }
-sub lsub { shift->_list_or_lsub( "LSUB", @_ ) }
-
-# deprecated 3.34
-sub xlist {
-    my ($self) = @_;
-    return undef unless $self->has_capability("XLIST");
-    shift->_list_or_lsub( "XLIST", @_ );
-}
-
-sub _folders_or_subscribed {
-    my ( $self, $method, $what ) = @_;
-    my @folders;
-
-    # do BLOCK allowing use of "last if undef/error" and avoiding dup code
-    do {
-        {
-            my @list;
-            if ($what) {
-                my $sep = $self->separator($what) || $self->separator(undef);
-                last unless defined $sep;
-
-                my $whatsub = $what =~ m/\Q${sep}\E$/ ? "$what*" : "$what$sep*";
-
-                my $tref = $self->$method( undef, $whatsub ) or last;
-                shift @$tref;    # remove command
-                push @list, @$tref;
-
-                # BUG?: this behavior has been around since 2.x, why?
-                my $cansel = $self->selectable($what);
-                last unless defined $cansel;
-                if ($cansel) {
-                    $tref = $self->$method( undef, $what ) or last;
-                    shift @$tref;    # remove command
-                    push @list, @$tref;
-                }
-            }
-            else {
-                my $tref = $self->$method( undef, undef ) or last;
-                shift @$tref;        # remove command
-                push @list, @$tref;
-            }
-
-            foreach my $resp (@list) {
-                my $rec = $self->_list_or_lsub_response_parse($resp);
-                next unless defined $rec->{name};
-                next if first { lc($_) eq '\noselect' } @{ $rec->{attrs} };
-                push @folders, $rec;
-            }
-        }
-    };
-
-    my @clean = _remove_doubles @folders;
-    return wantarray ? @clean : \@clean;
-}
-
-sub folders {
-    my ( $self, $what ) = @_;
-
-    my @folders =
-      map( $_->{name}, $self->_folders_or_subscribed( "list", $what ) );
-    return wantarray ? @folders : \@folders;
-}
-
-sub folders_hash {
-    my ( $self, $what ) = @_;
-
-    my @folders_hash = $self->_folders_or_subscribed( "list", $what );
-    return wantarray ? @folders_hash : \@folders_hash;
-}
-
-# deprecated 3.34
-sub xlist_folders {
-    my ($self) = @_;
-    my $xlist = $self->xlist;
-    return undef unless defined $xlist;
-
-    my %xlist;
-    my $xlist_re = qr/\A\\(Inbox|AllMail|Trash|Drafts|Sent|Spam|Starred)\Z/;
-
-    for my $resp (@$xlist) {
-        my $rec = $self->_list_or_lsub_response_parse($resp);
-        next unless defined $rec->{name};
-        for my $attr ( @{ $rec->{attrs} } ) {
-            $xlist{$1} = $rec->{name} if ( $attr =~ $xlist_re );
-        }
-    }
-
-    return wantarray ? %xlist : \%xlist;
-}
-
-sub subscribed {
-    my ( $self, $what ) = @_;
-    my @folders =
-      map( $_->{name}, $self->_folders_or_subscribed( "lsub", $what ) );
-    return wantarray ? @folders : \@folders;
-}
-
-sub deleteacl {
-    my ( $self, $target, $user ) = @_;
-    $target = $self->Quote($target);
-    $user   = $self->Quote($user);
-
-    $self->_imap_command(qq(DELETEACL $target $user))
-      or return undef;
-
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub setacl {
-    my ( $self, $target, $user, $acl ) = @_;
-    $target ||= $self->Folder;
-    $target = $self->Quote($target);
-
-    $user ||= $self->User;
-    $user = $self->Quote($user);
-    $acl  = $self->Quote($acl);
-
-    $self->_imap_command(qq(SETACL $target $user $acl))
-      or return undef;
-
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub getacl {
-    my ( $self, $target ) = @_;
-    defined $target or $target = $self->Folder;
-    my $mtarget = $self->Quote($target);
-    $self->_imap_command(qq(GETACL $mtarget))
-      or return undef;
-
-    my @history = $self->History;
-    my $hash;
-    for ( my $x = 0 ; $x < @history ; $x++ ) {
-        next if $history[$x] !~ /^\* ACL/;
-
-        my $perm =
-            $history[$x] =~ /^\* ACL $/
-          ? $history[ ++$x ] . $history[ ++$x ]
-          : $history[$x];
-
-        $perm =~ s/\s?$CRLF$//o;
-        until ( $perm =~ /\Q$target\E"?$/ || !$perm ) {
-            $perm =~ s/\s([^\s]+)\s?$// or last;
-            my $p = $1;
-            $perm =~ s/\s([^\s]+)\s?$// or last;
-            my $u = $1;
-            $hash->{$u} = $p;
-            $self->_debug("Permissions: $u => $p");
-        }
-    }
-    return $hash;
-}
-
-sub listrights {
-    my ( $self, $target, $user ) = @_;
-    $target ||= $self->Folder;
-    $target = $self->Quote($target);
-
-    $user ||= $self->User;
-    $user = $self->Quote($user);
-
-    $self->_imap_command(qq(LISTRIGHTS $target $user))
-      or return undef;
-
-    my $resp = first { /^\* LISTRIGHTS/ } $self->History;
-    my @rights = split /\s/, $resp;
-    my $rights = join '', @rights[ 4 .. $#rights ];
-    $rights =~ s/"//g;
-    return wantarray ? split( //, $rights ) : $rights;
-}
-
-sub select {
-    my ( $self, $target ) = @_;
-    defined $target or return undef;
-
-    my $qqtarget = $self->Quote($target);
-    my $old      = $self->Folder;
-
-    $self->_imap_command("SELECT $qqtarget")
-      or return undef;
-
-    $self->State(Selected);
-    $self->Folder($target);
-    return $old || $self;    # ??$self??
-}
-
-sub message_string {
-    my ( $self, $msg ) = @_;
-
-    return undef unless defined $self->imap4rev1;
-    my $peek = $self->Peek      ? '.PEEK'        : '';
-    my $cmd  = $self->imap4rev1 ? "BODY$peek\[]" : "RFC822$peek";
-
-    my $string;
-    $self->message_to_file( \$string, $msg );
-
-    unless ( $self->Ignoresizeerrors ) {    # Check size with expected size
-        my $expected_size = $self->size($msg);
-        return undef unless defined $expected_size;
-
-        # RFC822.SIZE may be wrong, see RFC2683 3.4.5 "RFC822.SIZE"
-        if ( length($string) != $expected_size ) {
-            $self->LastError( "message_string() "
-                  . "expected $expected_size bytes but received "
-                  . length($string)
-                  . " you may need the IgnoreSizeErrors option" );
-            return undef;
-        }
-    }
-
-    return $string;
-}
-
-sub bodypart_string {
-    my ( $self, $msg, $partno, $bytes, $offset ) = @_;
-
-    unless ( $self->imap4rev1 ) {
-        $self->LastError( "Unable to get body part; server "
-              . $self->Server
-              . " does not support IMAP4REV1" )
-          unless $self->LastError;
-        return undef;
-    }
-
-    $offset ||= 0;
-    my $cmd = "BODY"
-      . ( $self->Peek ? '.PEEK' : '' )
-      . "[$partno]"
-      . ( $bytes ? "<$offset.$bytes>" : '' );
-
-    $self->fetch( $msg, $cmd )
-      or return undef;
-
-    $self->_transaction_literals;
-}
-
-# message_to_file( $self, $file, @msgs )
-sub message_to_file {
-    my ( $self, $file, @msgs ) = @_;
-
-    # $file can be a name or a scalar reference (for in memory file)
-    # avoid IO::File bug handling scalar refs in perl <= 5.8.8?
-    # - buggy: $fh = IO::File->new( $file, 'r' )
-    my $fh;
-    if ( ref $file and ref $file ne "SCALAR" ) {
-        $fh = $file;
-    }
-    else {
-        $$file = "" if ( ref $file eq "SCALAR" and !defined $$file );
-        local ($!);
-        open( $fh, ">>", $file );
-        unless ( defined($fh) ) {
-            $self->LastError("Unable to open file '$file': $!");
-            return undef;
-        }
-    }
-
-    binmode($fh);
-
-    unless (@msgs) {
-        $self->LastError("message_to_file: NO messages specified!");
-        return undef;
-    }
-
-    my $peek = $self->Peek ? '.PEEK' : '';
-    $peek = sprintf( $self->imap4rev1 ? "BODY%s\[]" : "RFC822%s", $peek );
-
-    my @args = ( join( ",", @msgs ), $peek );
-
-    return $self->_imap_uid_command( { outref => $fh }, "FETCH" => @args )
-      ? $self
-      : undef;
-}
-
-sub message_uid {
-    my ( $self, $msg ) = @_;
-
-    my $ref = $self->fetch( $msg, "UID" ) or return undef;
-    foreach (@$ref) {
-        return $1 if m/\(UID\s+(\d+)\s*\)$CR?$/o;
-    }
-    return undef;
-}
-
-# cleaned up and simplified but see TODO in code...
-sub migrate {
-    my ( $self, $peer, $msgs, $folder ) = @_;
-
-    unless ( $peer and $peer->IsConnected ) {
-        $self->LastError( ( $peer ? "Invalid" : "Unconnected" )
-            . " target "
-              . ref($self)
-              . " object in migrate()"
-              . ( $peer ? ( ": " . $peer->LastError ) : "" ) );
-        return undef;
-    }
-
-    # sanity check to see if $self is same object as $peer
-    if ( $self eq $peer ) {
-        $self->LastError("dest must not be the same object as self");
-        return undef;
-    }
-
-    $folder = $self->Folder unless ( defined $folder );
-    unless ($folder) {
-        $self->LastError("No folder selected on source mailbox.");
-        return undef;
-    }
-
-    unless ( $peer->exists($folder) or $peer->create($folder) ) {
-        $self->LastError( "Create folder '$folder' on target host failed: "
-              . $peer->LastError );
-        return undef;
-    }
-
-    if ( !defined $msgs or uc($msgs) eq "ALL" ) {
-        $msgs = $self->search("ALL") or return undef;
-    }
-
-    # message size and (internal) date
-    my @headers = qw(RFC822.SIZE INTERNALDATE FLAGS);
-    my $range   = $self->Range($msgs);
-
-    $self->_debug("Messages to migrate from '$folder': $range");
-
-    foreach my $mid ( $range->unfold ) {
-
-        # fetch size internaldate and flags of original message
-        # - TODO: add flags here...
-        my $minfo = $self->fetch_hash( $mid, @headers )
-          or return undef;
-
-        my ( $size, $date ) = @{ $minfo->{$mid} }{@headers};
-        return undef unless ( defined $size and defined $date );
-
-        $self->_debug("Copy message $mid (sz=$size,dt=$date) from '$folder'");
-
-        my @flags = grep !/\\Recent/i, $self->flags($mid);
-        my $flags = join ' ', $peer->supported_flags(@flags);
-
-        # TODO: - use File::Temp tempfile if $msg > bufferSize?
-        # read message to $msg
-        my $msg;
-        $self->message_to_file( \$msg, $mid )
-          or return undef;
-
-        my $newid = $peer->append_file( $folder, \$msg, undef, $flags, $date );
-
-        unless ( defined $newid ) {
-            $self->LastError(
-                "Append to '$folder' on target failed: " . $peer->LastError );
-            return undef;
-        }
-
-        $self->_debug("Copied UID $mid in '$folder' to target UID $newid");
-    }
-
-    return $self;
-}
-
-# Optimization of wait time between syswrite calls only runs if syscalls
-# run too fast and fill the buffer causing "EAGAIN: Resource Temp. Unavail"
-# errors. The premise is that $maxwrite will be approx. the same as the
-# smallest buffer between the sending and receiving side. Waiting time
-# between syscalls should ideally be exactly as long as it takes the
-# receiving side to empty that buffer, minus a little bit to prevent it
-# from emptying completely and wasting time in the select call.
-
-sub _optimal_sleep($$$) {
-    my ( $self, $maxwrite, $waittime, $last5writes ) = @_;
-
-    push @$last5writes, $waittime;
-    shift @$last5writes if @$last5writes > 5;
-
-    my $bufferavail = ( sum @$last5writes ) / @$last5writes;
-
-    if ( $bufferavail < .4 * $maxwrite ) {
-
-        # Buffer is staying pretty full; we should increase the wait
-        # period to reduce transmission overhead/number of packets sent
-        $waittime *= 1.3;
-    }
-    elsif ( $bufferavail > .9 * $maxwrite ) {
-
-        # Buffer is nearly or totally empty; we're wasting time in select
-        # call that could be used to send data, so reduce the wait period
-        $waittime *= .5;
-    }
-
-    CORE::select( undef, undef, undef, $waittime );
-    $waittime;
-}
-
-sub body_string {
-    my ( $self, $msg ) = @_;
-    my $ref =
-      $self->fetch( $msg, "BODY" . ( $self->Peek ? ".PEEK" : "" ) . "[TEXT]" )
-      or return undef;
-
-    my $string = join '', map { $_->[DATA] }
-      grep { $self->_is_literal($_) } @$ref;
-
-    return $string
-      if $string;
-
-    my $head;
-    while ( $head = shift @$ref ) {
-        $self->_debug("body_string: head = '$head'");
-
-        last
-          if $head =~
-          /(?:.*FETCH .*\(.*BODY\[TEXT\])|(?:^\d+ BAD )|(?:^\d NO )/i;
-    }
-
-    unless (@$ref) {
-        $self->LastError(
-            "Unable to parse server response from " . $self->LastIMAPCommand );
-        return undef;
-    }
-
-    my $popped;
-    $popped = pop @$ref
-      until ( $popped && $popped =~ /^\)$CRLF$/o )
-      || !grep /^\)$CRLF$/o, @$ref;
-
-    if ( $head =~ /BODY\[TEXT\]\s*$/i ) {    # Next line is a literal
-        $string .= shift @$ref while @$ref;
-        $self->_debug("String is now $string")
-          if $self->Debug;
-    }
-
-    $string;
-}
-
-sub examine {
-    my ( $self, $target ) = @_;
-    defined $target or return undef;
-
-    $self->_imap_command( 'EXAMINE ' . $self->Quote($target) )
-      or return undef;
-
-    my $old = $self->Folder;
-    $self->Folder($target);
-    $self->State(Selected);
-    $old || $self;
-}
-
-sub idle {
-    my $self  = shift;
-    my $good  = '+';
-    my $count = $self->Count + 1;
-    $self->_imap_command( "IDLE", $good ) ? $count : undef;
-}
-
-sub idle_data {
-    my $self    = shift;
-    my $timeout = scalar(@_) ? shift : 0;
-    my $socket  = $self->Socket;
-
-    # current index in Results array
-    my $trans_c1 = $self->_next_index;
-
-    # look for all untagged responses
-    my ( $rc, $ret );
-
-    do {
-        $ret =
-          $self->_read_more( { error_on_timeout => 0 }, $socket, $timeout );
-
-        # set rc on first pass or on errors
-        $rc = $ret if ( !defined($rc) or $ret < 0 );
-
-        # not using /\S+/ because that can match 0 in "* 0 RECENT"
-        # leading the library to act as if things failed
-        if ( $ret > 0 ) {
-            $self->_get_response( '*', qr/(?!BAD|BYE|NO)(?:\d+\s+\w+|\S+)/ )
-              or return undef;
-            $timeout = 0;    # check for more data without blocking!
-        }
-    } while $ret > 0 and $self->IsConnected;
-
-    # select returns -1 on errors
-    return undef if $rc < 0;
-
-    my $trans_c2 = $self->_next_index;
-
-    # if current index in Results array has changed return data
-    my @res;
-    if ( $trans_c1 < $trans_c2 ) {
-        @res = $self->Results;
-        @res = @res[ $trans_c1 .. ( $trans_c2 - 1 ) ];
-    }
-    return wantarray ? @res : \@res;
-}
-
-sub done {
-    my $self = shift;
-    my $count = shift || $self->Count;
-
-    # DONE looks like a tag when sent and not already in IDLE
-    $self->_imap_command(
-        { addtag => 0, tag => qr/(?:$count|DONE)/, doretry => 0 }, "DONE" )
-      or return undef;
-    return $self->Results;
-}
-
-# tag_and_run( $self, $string, $good )
-sub tag_and_run {
-    my $self = shift;
-    $self->_imap_command(@_) or return undef;
-    return $self->Results;
-}
-
-sub reconnect {
-    my $self = shift;
-
-    if ( $self->IsAuthenticated ) {
-        $self->_debug("reconnect called but already authenticated");
-        return 1;
-    }
-
-    # safeguard from deep recursion via connect
-    if ( $self->{_doing_reconnect} ) {
-        $self->_debug("recursive call to reconnect, returning 0\n");
-        $self->LastError("unexpected reconnect recursion")
-          unless $self->LastError;
-        return 0;
-    }
-
-    my $einfo = $self->LastError || "";
-    $self->_debug( "reconnecting to ", $self->Server, ", last error: $einfo" );
-    $self->{_doing_reconnect} = 1;
-
-    # reconnect and select appropriate folder
-    my $ret;
-    if ( $self->connect ) {
-        $ret = 1;
-        if ( defined $self->Folder ) {
-            $ret = defined( $self->select( $self->Folder ) ) ? 1 : undef;
-        }
-    }
-
-    delete $self->{_doing_reconnect};
-    return $ret ? 1 : $ret;
-}
-
-# wrapper for _imap_command_do to enable retrying on lost connections
-# options:
-#   doretry => 0|1 - suppress|allow retry after reconnect
-sub _imap_command {
-    my $self = shift;
-    my $opt = ref( $_[0] ) eq "HASH" ? $_[0] : {};
-
-    my $tries = 0;
-    my $retry = $self->Reconnectretry || 0;
-    my ( $rc, @err );
-
-    # LastError (if set) will be overwritten masking any earlier errors
-    while ( $tries++ <= $retry ) {
-
-        # do command on the first try or if Connected (reconnect ongoing)
-        if ( $tries == 1 or $self->IsConnected ) {
-            $rc = $self->_imap_command_do(@_);
-            push( @err, $self->LastError ) if $self->LastError;
-        }
-
-        if ( !defined($rc) and $retry and $self->IsUnconnected ) {
-            last
-              unless (
-                   $! == EPIPE
-                or $! == ECONNRESET
-                or $self->LastError =~ /(?:error\(.*?\)|timeout) waiting\b/
-                or $self->LastError =~ /(?:socket closed|\* BYE)\b/
-
-                # BUG? reconnect if caller ignored/missed earlier errors?
-                # or $self->LastError =~ /NO not connected/
-              );
-            my $ret = $self->reconnect;
-            if ($ret) {
-                $self->_debug("reconnect success($ret) on try #$tries/$retry");
-                last if exists $opt->{doretry} and !$opt->{doretry};
-            }
-            elsif ( defined $ret and $ret == 0 ) {    # escaping recursion
-                return undef;
-            }
-            else {
-                $self->_debug("reconnect failure on try #$tries/$retry");
-                push( @err, $self->LastError ) if $self->LastError;
-            }
-        }
-        else {
-            last;
-        }
-    }
-
-    unless ($rc) {
-        my ( %seen, @keep, @info );
-
-        foreach my $str (@err) {
-            my ( $sz, $len ) = ( 96, length($str) );
-            $str =~ s/$CR?$LF$/\\n/omg;
-            if ( !$self->Debug and $len > $sz * 2 ) {
-                my $beg = substr( $str, 0,    $sz );
-                my $end = substr( $str, -$sz, $sz );
-                $str = $beg . "..." . $end;
-            }
-            next if $seen{$str}++;
-            push( @keep, $str );
-        }
-        foreach my $msg (@keep) {
-            push( @info, $msg . ( $seen{$msg} > 1 ? " ($seen{$msg}x)" : "" ) );
-        }
-        $self->LastError( join( "; ", @info ) );
-    }
-
-    return $rc;
-}
-
-# _imap_command_do runs a command, inserting a tag and CRLF as requested
-# options:
-#   addcrlf => 0|1  - suppress adding CRLF to $string
-#   addtag  => 0|1  - suppress adding $tag to $string
-#   tag     => $tag - use this $tag instead of incrementing $self->Count
-#   outref  => ...  - see _get_response()
-sub _imap_command_do {
-    my $self   = shift;
-    my $opt    = ref( $_[0] ) eq "HASH" ? shift : {};
-    my $string = shift or return undef;
-    my $good   = shift;
-
-    my @gropt = ( $opt->{outref} ? { outref => $opt->{outref} } : () );
-
-    $opt->{addcrlf} = 1 unless exists $opt->{addcrlf};
-    $opt->{addtag}  = 1 unless exists $opt->{addtag};
-
-    # reset error in case the last error was non-fatal but never cleared
-    if ( $self->LastError ) {
-
-        #DEBUG $self->_debug( "Reset LastError: " . $self->LastError );
-        $self->LastError(undef);
-    }
-
-    my $clear = $self->Clear;
-    $self->Clear($clear)
-      if $self->Count >= $clear && $clear > 0;
-
-    my $count = $self->Count( $self->Count + 1 );
-    my $tag = $opt->{tag} || $count;
-    $string = "$tag $string" if $opt->{addtag};
-
-    # for APPEND (append_string) only log first line of command
-    my $logstr = ( $string =~ /^($tag\s+APPEND\s+.*?)$CR?$LF/ ) ? $1 : $string;
-
-    # BUG? use $self->_next_index($tag) ? or 0 ???
-    # $self->_record($tag, [$self->_next_index($tag), "INPUT", $logstr] );
-    $self->_record( $count, [ 0, "INPUT", $logstr ] );
-
-    # $suppress (adding CRLF) set to 0 if $opt->{addcrlf} is TRUE
-    unless ( $self->_send_line( $string, $opt->{addcrlf} ? 0 : 1 ) ) {
-        $self->LastError( "Error sending '$logstr': " . $self->LastError );
-        return undef;
-    }
-
-    # look for "<tag> (OK|BAD|NO|$good)" (or "+..." if $good is '+')
-    my $code = $self->_get_response( @gropt, $tag, $good ) or return undef;
-
-    if ( $code eq 'OK' ) {
-        return $self;
-    }
-    elsif ( $good and $code eq $good ) {
-        return $self;
-    }
-    else {
-        return undef;
-    }
-}
-
-sub _response_code_sub {
-    my ( $self, $tag, $good ) = @_;
-
-    # tag/good can be a ref (compiled regex) otherwise quote it
-    my $qtag  = ref($tag)  ? $tag  : defined($tag)  ? quotemeta($tag)  : undef;
-    my $qgood = ref($good) ? $good : defined($good) ? quotemeta($good) : undef;
-
-    # using closure, a variable alias, and sub returns on first match
-    # - $_[0] is $o->[DATA]
-    # - returns list ( $code, $byemsg )
-    my $getcodesub = sub {
-        if ( defined $qgood ) {
-            if ( $good eq '+' and $_[0] =~ /^$qgood/ ) {
-                return ($good);
-            }
-            if ( defined $qtag and $_[0] =~ /^$qtag\s+($qgood)/i ) {
-                return ( ref($qgood) ? $1 : uc($1) );
-            }
-        }
-        if ( defined $qtag ) {
-            if ( $tag eq '+' and $_[0] =~ /^$qtag/ ) {
-                return ($tag);
-            }
-            if ( $_[0] =~ /^$qtag\s+(OK|BAD|NO)\b/i ) {
-                my $code = uc($1);
-                $self->LastError( $_[0] ) unless ( $code eq 'OK' );
-                return ($code);
-            }
-        }
-        if ( $_[0] =~ /^\*\s+(BYE)\b/i ) {
-            return ( uc($1), $_[0] );    # ( 'BYE', $byemsg )
-        }
-        return (undef);
-    };
-
-    return $getcodesub;
-}
-
-# _get_response get IMAP response optionally send data somewhere
-# options:
-#   outref => GLOB|CODE - reference to send output to (see _read_line)
-sub _get_response {
-    my $self = shift;
-    my $opt  = ref( $_[0] ) eq "HASH" ? shift : {};
-    my $tag  = shift;
-    my $good = shift;
-
-    my $outref  = $opt->{outref};
-    my @readopt = defined($outref) ? ($outref) : ();
-    my $getcode = $self->_response_code_sub( $tag, $good );
-
-    my ( $count, $out, $code, $byemsg ) = ( $self->Count, [], undef, undef );
-    until ( defined $code ) {
-        my $output = $self->_read_line(@readopt) or return undef;
-        $out = $output;    # keep last response just in case
-
-        # not using last on first match? paranoia or right thing?
-        # only uc() when match is not on case where $tag|$good is a ref()
-        foreach my $o (@$output) {
-            $self->_record( $count, $o );
-            $self->_is_output($o) or next;
-            my ( $tcode, $tbyemsg ) = $getcode->( $o->[DATA] );
-            $code   = $tcode   if ( defined $tcode );
-            $byemsg = $tbyemsg if ( defined $tbyemsg );
-        }
-    }
-
-    if ( defined $code ) {
-        $code =~ s/$CR?$LF?$//o;
-        $code = uc($code) unless ( $good and $code eq $good );
-
-        # RFC 3501 7.1.5: $code on successful LOGOUT is OK not BYE
-        # sometimes we may fail to wait long enough to read a tagged
-        # OK so don't be strict about setting an error on LOGOUT!
-        if ( $code eq 'BYE' ) {
-            $self->State(Unconnected);
-            if ($byemsg) {
-                $self->LastError($byemsg)
-                  unless ( $good and $code eq $good );
-            }
-        }
-    }
-    elsif ( !$self->LastError ) {
-        my $info = "unexpected response: " . join( " ", @$out );
-        $self->LastError($info);
-    }
-
-    return $code;
-}
-
-sub _imap_uid_command {
-    my $self = shift;
-    my @opt  = ref( $_[0] ) eq "HASH" ? (shift) : ();
-    my $cmd  = shift;
-
-    my $args = @_ ? join( " ", '', @_ ) : '';
-    my $uid = $self->Uid ? 'UID ' : '';
-    $self->_imap_command( @opt, "$uid$cmd$args" );
-}
-
-sub run {
-    my $self = shift;
-    my $string = shift or return undef;
-
-    my $tag = $string =~ /^(\S+) / ? $1 : undef;
-    unless ($tag) {
-        $self->LastError("No tag found in string passed to run(): $string");
-        return undef;
-    }
-
-    $self->_imap_command( { addtag => 0, addcrlf => 0, tag => $tag }, $string )
-      or return undef;
-
-    $self->{History}{$tag} = $self->{History}{ $self->Count }
-      unless $tag eq $self->Count;
-
-    return $self->Results;
-}
-
-# _record saves the conversation into the History structure:
-sub _record {
-    my ( $self, $count, $array ) = @_;
-    if ( $array->[DATA] =~ /^\d+ LOGIN/i && !$self->Showcredentials ) {
-        $array->[DATA] =~ s/LOGIN.*/LOGIN XXXXXXXX XXXXXXXX/i;
-    }
-
-    push @{ $self->{History}{$count} }, $array;
-}
-
-# try to avoid exposing auth info via debug unless Showcredentials is true
-sub _redact_line {
-    my ( $self, $string ) = @_;
-    $self->Showcredentials and return undef;
-
-    my ( $tag, $cmd ) = ( $self->Count, undef );
-    my $retext = "[Redact: Count=$tag Showcredentials=OFF]";
-    my $show   = $retext;
-
-    # tagged command?
-    if ( $string =~ s/^($tag\s+(\S+)\s+)// ) {
-        ( $show, $cmd ) = ( $1, $2 );
-
-        # login <username|literal> <password|literal>
-        if ( $cmd =~ /login/i ) {
-
-            # username as literal
-            if ( $string =~ /^{/ ) {
-                $show .= $string;
-            }
-
-            # username (possibly quoted) string, then literal? password
-            elsif ( $string =~ s/^((?:"(?>(?:(?>[^"\\]+)|\\.)*)"|\S+)\s*)// ) {
-                $show .= $1;
-                $show .= ( $string =~ /^{/ ) ? $string : $retext;
-            }
-        }
-        elsif ( $cmd =~ /^auth/i ) {
-            $show .= $string;
-        }
-        else {
-            return undef;    # show it all
-        }
-    }
-
-    return $show;
-}
-
-# _send_line handles literal data and supports the Prewritemethod
-sub _send_line {
-    my ( $self, $string, $suppress ) = @_;
-
-    $string =~ s/$CR?$LF?$/$CRLF/o
-      unless $suppress;
-
-    # handle case where string contains a literal
-    if ( $string =~ s/^([^$LF\{]*\{\d+\}$CRLF)(?=.)//o ) {
-        my $first = $1;
-        if ( $self->Debug ) {
-            my $dat =
-              ( $self->IsConnected and !$self->IsAuthenticated )
-              ? $self->_redact_line($string)
-              : undef;
-            $self->_debug( "Sending literal: $first\tthen: ", $dat || $string );
-        }
-        $self->_send_line($first) or return undef;
-
-        # look for "$tag NO" or "+ ..."
-        my $code = $self->_get_response( $self->Count, '+' ) or return undef;
-        return undef unless $code eq '+';
-    }
-
-    # non-literal part continues...
-    if ( my $prew = $self->Prewritemethod ) {
-        $string = $prew->( $self, $string );
-    }
-
-    if ( $self->Debug ) {
-        my $dat =
-          ( $self->IsConnected and !$self->IsAuthenticated )
-          ? $self->_redact_line($string)
-          : undef;
-        $self->_debug( "Sending: ", $dat || $string );
-    }
-
-    unless ( $self->IsConnected ) {
-        $self->LastError("NO not connected");
-        return undef;
-    }
-
-    $self->_send_bytes( \$string );
-}
-
-sub _send_bytes($) {
-    my ( $self, $byteref ) = @_;
-    my ( $total, $temperrs, $maxwrite ) = ( 0, 0, 0 );
-    my $waittime = .02;
-    my @previous_writes;
-
-    my $maxagain = $self->Maxtemperrors;
-    undef $maxagain if $maxagain and lc($maxagain) eq 'unlimited';
-
-    local $SIG{PIPE} = 'IGNORE';    # handle SIGPIPE as normal error
-
-    my $socket = $self->Socket;
-    while ( $total < length $$byteref ) {
-        my $written =
-          syswrite( $socket, $$byteref, length($$byteref) - $total, $total );
-
-        if ( defined $written ) {
-            $temperrs = 0;
-            $total += $written;
-            next;
-        }
-
-        if ( $! == EAGAIN ) {
-            if ( defined $maxagain && $temperrs++ > $maxagain ) {
-                $self->LastError("Persistent error '$!'");
-                return undef;
-            }
-
-            $waittime =
-              $self->_optimal_sleep( $maxwrite, $waittime, \@previous_writes );
-            next;
-        }
-
-        # Unconnected might be apropos for more than just these?
-        my $emsg = $! ? "$!" : "no error caught";
-        $self->State(Unconnected)
-          if ( $! == EPIPE or $! == ECONNRESET or $! == EBADF );
-        $self->LastError("Write failed '$emsg'");
-
-        return undef;    # no luck
-    }
-
-    $self->_debug("Sent $total bytes");
-    return $total;
-}
-
-# _read_line: read one line from the socket
-#
-# $output = $self->_read_line($literal_callback)
-#    literal_callback is optional, but if supplied it must be either
-#    be a filehandle, coderef, or undef.
-#
-#    Returns a reference to an array of arrays, i.e.:
-#    $output = [
-#        [ $index, 'OUTPUT|LITERAL', $output_line ],
-#        [ $index, 'OUTPUT|LITERAL', $output_line ],
-#        ...
-#    \];
-
-# BUG?: make memory more efficient
-sub _read_line {
-    my ( $self, $literal_callback ) = @_;
-
-    my $socket = $self->Socket;
-    unless ( $self->IsConnected && $socket ) {
-        $self->LastError("NO not connected");
-        return undef;
-    }
-
-    my $iBuffer = "";
-    my $oBuffer = [];
-    my $index   = $self->_next_index;
-    my $timeout = $self->Timeout;
-    my $readlen = $self->Buffer || 4096;
-    my $transno = $self->Transaction;
-
-    my $literal_cbtype = "";
-    if ($literal_callback) {
-        if ( UNIVERSAL::isa( $literal_callback, "GLOB" ) ) {
-            $literal_cbtype = "GLOB";
-        }
-        elsif ( UNIVERSAL::isa( $literal_callback, "CODE" ) ) {
-            $literal_cbtype = "CODE";
-        }
-        else {
-            $self->LastError( "'$literal_callback' is an "
-                  . "invalid callback; must be a filehandle or CODE" );
-            return undef;
-        }
-    }
-
-    my $temperrs = 0;
-    my $maxagain = $self->Maxtemperrors;
-    undef $maxagain if $maxagain and lc($maxagain) eq 'unlimited';
-
-    until (
-        @$oBuffer    # there's stuff in output buffer:
-          && $oBuffer->[-1][TYPE] eq 'OUTPUT'    # that thing is an output line:
-          && $oBuffer->[-1][DATA] =~
-          /$CR?$LF$/o            # the last thing there has cr-lf:
-          && !length $iBuffer    # and the input buffer has been MT'ed:
-      )
-    {
-
-        if ($timeout) {
-            my $rc = $self->_read_more( $socket, $timeout );
-            return undef unless ( $rc > 0 );
-        }
-
-        my $emsg;
-        my $ret =
-          $self->_sysread( $socket, \$iBuffer, $readlen, length $iBuffer );
-
-        if ($timeout) {
-            if ( defined $ret ) {
-                $temperrs = 0;
-            }
-            else {
-                $emsg = "error while reading data from server: $!";
-                if ( $! == ECONNRESET ) {
-                    $self->State(Unconnected);
-                }
-                elsif ( $! == EAGAIN ) {
-                    if ( defined $maxagain && $temperrs++ >= $maxagain ) {
-                        $emsg .= " ($temperrs)";
-                    }
-                    else {
-                        next;    # try again
-                    }
-                }
-            }
-        }
-
-        if ( defined $ret && $ret == 0 ) {    # Caught EOF...
-            $emsg = "socket closed while reading data from server";
-            $self->State(Unconnected);
-        }
-
-        # save errors and return
-        if ($emsg) {
-            $self->LastError($emsg);
-            $self->_record(
-                $transno,
-                [
-                    $self->_next_index($transno), "ERROR", "$transno * NO $emsg"
-                ]
-            );
-            return undef;
-        }
-
-        while ( $iBuffer =~ s/^(.*?$CR?$LF)//o )    # consume line
-        {
-            my $current_line = $1;
-            if ( $current_line !~ s/\{(\d+)\}$CR?$LF$//o ) {
-                push @$oBuffer, [ $index++, 'OUTPUT', $current_line ];
-                next;
-            }
-
-            push @$oBuffer, [ $index++, 'OUTPUT', $current_line ];
-
-            ## handle LITERAL
-            # BLAH BLAH {nnn}$CRLF
-            # [nnn bytes of literally transmitted stuff]
-            # [part of line that follows literal data]$CRLF
-
-            my $expected_size = $1;
-
-            $self->_debug( "LITERAL: received literal in line "
-                  . "$current_line of length $expected_size; attempting to "
-                  . "retrieve from the "
-                  . length($iBuffer)
-                  . " bytes in: $iBuffer<END_OF_iBuffer>" );
-
-            my $litstring;
-            if ( length $iBuffer >= $expected_size ) {
-
-                # already received all data
-                $litstring = substr $iBuffer, 0, $expected_size, '';
-            }
-            else {    # literal data still to arrive
-                $litstring = $iBuffer;
-                $iBuffer   = '';
-
-                my $litreadb = length($litstring);
-                my $temperrs = 0;
-                my $maxagain = $self->Maxtemperrors;
-                undef $maxagain if $maxagain and lc($maxagain) eq 'unlimited';
-
-                while ( $expected_size > $litreadb ) {
-                    if ($timeout) {
-                        my $rc = $self->_read_more( $socket, $timeout );
-                        return undef unless ( $rc > 0 );
-                    }
-                    else {    # 25 ms before retry
-                        CORE::select( undef, undef, undef, 0.025 );
-                    }
-
-                    # $litstring is emptied when $literal_cbtype is GLOB
-                    my $ret =
-                      $self->_sysread( $socket, \$litstring,
-                        $expected_size - $litreadb,
-                        length($litstring) );
-
-                    if ($timeout) {
-                        if ( defined $ret ) {
-                            $temperrs = 0;
-                        }
-                        else {
-                            $emsg = "error while reading data from server: $!";
-                            if ( $! == ECONNRESET ) {
-                                $self->State(Unconnected);
-                            }
-                            elsif ( $! == EAGAIN ) {
-                                if ( defined $maxagain
-                                    && $temperrs++ >= $maxagain )
-                                {
-                                    $emsg .= " ($temperrs)";
-                                }
-                                else {
-                                    undef $emsg;
-                                    next;    # try again
-                                }
-                            }
-                        }
-                    }
-
-                    # EOF: note IO::Socket::SSL does not support eof()
-                    if ( defined $ret and $ret == 0 ) {
-                        $emsg = "socket closed while reading data from server";
-                        $self->State(Unconnected);
-                    }
-                    elsif ( defined $ret and $ret > 0 ) {
-                        $litreadb += $ret;
-
-                        # conserve memory when using literal_callback GLOB
-                        if ( $literal_cbtype eq "GLOB" ) {
-                            print $literal_callback $litstring;
-                            $litstring = "" unless ($emsg);
-                        }
-                    }
-
-                    $self->_debug( "Received ret="
-                          . ( defined($ret) ? $ret : "<undef>" )
-                          . " $litreadb of $expected_size" );
-
-                    # save errors and return
-                    if ($emsg) {
-                        $self->LastError($emsg);
-                        $self->_record(
-                            $transno,
-                            [
-                                $self->_next_index($transno), "ERROR",
-                                "$transno * NO $emsg"
-                            ]
-                        );
-                        $litstring = "" unless defined $litstring;
-                        $self->_debug( "ERROR while processing LITERAL, "
-                              . " buffer=\n"
-                              . $litstring
-                              . "<END>\n" );
-                        return undef;
-                    }
-                }
-            }
-
-            if ( defined $litstring ) {
-                if ( $literal_cbtype eq "GLOB" ) {
-                    print $literal_callback $litstring;
-                }
-                elsif ( $literal_cbtype eq "CODE" ) {
-                    $literal_callback->($litstring);
-                }
-            }
-
-            push @$oBuffer, [ $index++, 'LITERAL', $litstring ]
-              if ( $literal_cbtype ne "GLOB" );
-        }
-    }
-
-    $self->_debug( "Read: " . join "", map { "\t" . $_->[DATA] } @$oBuffer )
-      if ( $self->Debug );
-
-    @$oBuffer ? $oBuffer : undef;
-}
-
-sub _sysread {
-    my ( $self, $fh, $buf, $len, $off ) = @_;
-    my $rm = $self->Readmethod;
-    $rm ? $rm->(@_) : sysread( $fh, $$buf, $len, $off );
-}
-
-sub _read_more {
-    my $self = shift;
-    my $rm   = $self->Readmoremethod;
-    $rm ? $rm->( $self, @_ ) : $self->__read_more(@_);
-}
-
-sub __read_more {
-    my $self = shift;
-    my $opt = ref( $_[0] ) eq "HASH" ? shift : {};
-    my ( $socket, $timeout ) = @_;
-
-    # IO::Socket::SSL buffers some data internally, so there might be some
-    # data available from the previous sysread of which the file-handle
-    # (used by select()) doesn't know of.
-    return 1 if $socket->isa("IO::Socket::SSL") && $socket->pending;
-
-    my $rvec = '';
-    vec( $rvec, fileno($socket), 1 ) = 1;
-
-    my $rc = CORE::select( $rvec, undef, $rvec, $timeout );
-
-    # fast track success
-    return $rc if $rc > 0;
-
-    # by default set an error on timeout
-    my $err_on_timeout =
-      exists $opt->{error_on_timeout} ? $opt->{error_on_timeout} : 1;
-
-    # $rc is 0 then we timed out
-    return $rc if !$rc and !$err_on_timeout;
-
-    # set the appropriate error and return
-    my $transno = $self->Transaction;
-    my $msg =
-        ( $rc ? "error($rc)" : "timeout" )
-      . " waiting ${timeout}s for data from server"
-      . ( $! ? ": $!" : "" );
-    $self->LastError($msg);
-    $self->_record( $transno,
-        [ $self->_next_index($transno), "ERROR", "$transno * NO $msg" ] );
-    $self->_disconnect;    # BUG: can not handle timeouts gracefully
-    return $rc;
-}
-
-sub _trans_index() {
-    sort { $a <=> $b } keys %{ $_[0]->{History} };
-}
-
-# all default to last transaction
-sub _transaction(;$) {
-    @{ $_[0]->{History}{ $_[1] || $_[0]->Transaction } || [] };
-}
-
-sub _trans_data(;$) {
-    map { $_->[DATA] } $_[0]->_transaction( $_[1] );
-}
-
-sub _escaped_trans_data(;$) {
-    my ( $self, $trans ) = @_;
-    my @a;
-    my $prevwasliteral = 0;
-    foreach my $line ( $self->_transaction($trans) ) {
-        next unless defined $line;
-
-        my $data = $line->[DATA];
-
-        # literal is appended to previous data
-        if ( $self->_is_literal($line) ) {
-            $data = $self->Escape($data);
-            $a[-1] .= qq("$data");
-            $prevwasliteral = 1;
-        }
-        else {
-            if ($prevwasliteral) {
-                $a[-1] .= $data;
-            }
-            else {
-                push( @a, $data );
-            }
-            $prevwasliteral = 0;
-        }
-    }
-
-    return wantarray ? @a : \@a;
-}
-
-sub Report {
-    my $self = shift;
-    map { $self->_trans_data($_) } $self->_trans_index;
-}
-
-sub LastIMAPCommand(;$) {
-    my ( $self, $trans ) = @_;
-    my $msg = ( $self->_transaction($trans) )[0];
-    $msg ? $msg->[DATA] : undef;
-}
-
-sub History(;$) {
-    my ( $self, $trans ) = @_;
-    my ( $cmd,  @a )     = $self->_trans_data($trans);
-    return wantarray ? @a : \@a;
-}
-
-sub Results(;$) {
-    my ( $self, $trans ) = @_;
-    my @a = $self->_trans_data($trans);
-    return wantarray ? @a : \@a;
-}
-
-sub _transaction_literals() {
-    my $self = shift;
-    join '', map { $_->[DATA] }
-      grep { $self->_is_literal($_) } $self->_transaction;
-}
-
-sub Escaped_history {
-    my ( $self, $trans ) = @_;
-    my ( $cmd,  @a )     = $self->_escaped_trans_data($trans);
-    return wantarray ? @a : \@a;
-}
-
-sub Escaped_results {
-    my ( $self, $trans ) = @_;
-    my @a = $self->_escaped_trans_data($trans);
-    return wantarray ? @a : \@a;
-}
-
-sub Escape {
-    my $data = $_[1];
-    $data =~ s/([\\\"])/\\$1/og;
-    return $data;
-}
-
-sub Unescape {
-    my $data = $_[1];
-    $data =~ s/\\([\\\"])/$1/og;
-    return $data;
-}
-
-sub logout {
-    my $self = shift;
-    my $rc = $self->_imap_command( "LOGOUT", "BYE" );
-    $self->_disconnect;
-    return $rc;
-}
-
-sub _disconnect {
-    my $self = shift;
-
-    delete $self->{CAPABILITY};
-    delete $self->{_IMAP4REV1};
-    $self->State(Unconnected);
-    if ( my $sock = delete $self->{Socket} ) {
-        local ($@);
-        eval { $sock->close };
-    }
-    return $self;
-}
-
-# LIST/XLIST/LSUB Response
-#   Contents: name attributes, hierarchy delimiter, name
-#   Example: * LIST (\Noselect) "/" ~/Mail/foo
-# NOTE: liberal matching as folder name data may be Escape()d
-sub _list_or_lsub_response_parse {
-    my ( $self, $resp ) = @_;
-
-    return undef unless defined $resp;
-    my %info;
-
-    $resp =~ s/\015?\012$//;
-    if (
-        $resp =~ / ^\* \s+ (?:LIST|XLIST|LSUB) \s+ # * LIST|XLIST|LSUB
-                 \( ([^\)]*) \)                \s+ # (attrs)
-           (?:   \" ([^"]*)  \" | NIL  )       \s  # "delimiter" or NIL
-           (?:\s*\" (.*)     \" | (.*) )           # "name" or name
-         /ix
-      )
-    {
-        @info{qw(attrs delim name)} =
-          ( [ split( / /, $1 ) ], $2, defined($3) ? $self->Unescape($3) : $4 );
-    }
-    return wantarray ? %info : \%info;
-}
-
-sub exists {
-    my ( $self, $folder ) = @_;
-    $self->status($folder) ? $self : undef;
-}
-
-# Updated to handle embedded literal strings
-sub get_bodystructure {
-    my ( $self, $msg ) = @_;
-
-    my $class = $self->_load_module("BodyStructure") or return undef;
-
-    my $out = $self->fetch( $msg, "BODYSTRUCTURE" ) or return undef;
-
-    my $bs = "";
-    my $output = first { /BODYSTRUCTURE\s+\(/i } @$out;
-
-    unless ( $output =~ /$CRLF$/o ) {
-        $output = '';
-        $self->_debug("get_bodystructure: reassembling original response");
-        my $started = 0;
-        foreach my $o ( $self->_transaction ) {
-            next unless $self->_is_output_or_literal($o);
-            $started++ if $o->[DATA] =~ /BODYSTRUCTURE \(/i;
-            $started or next;
-
-            if ( length($output) && $self->_is_literal($o) ) {
-                my $data = $o->[DATA];
-                $data =~ s/"/\\"/g;
-                $data =~ s/\(/\\\(/g;
-                $data =~ s/\)/\\\)/g;
-                $output .= qq("$data");
-            }
-            else {
-                $output .= $o->[DATA];
-            }
-        }
-        $self->_debug("get_bodystructure: reassembled output=$output<END>");
-    }
-
-    {
-        local ($@);
-        $bs = eval { $class->new($output) };
-    }
-
-    $self->_debug(
-        "get_bodystructure: msg $msg returns: " . ( $bs || "UNDEF" ) );
-    $bs;
-}
-
-# Updated to handle embedded literal strings
-sub get_envelope {
-    my ( $self, $msg ) = @_;
-
-    # Envelope class is defined within BodyStructure
-    my $class = $self->_load_module("BodyStructure") or return undef;
-    $class .= "::Envelope";
-
-    my $out = $self->fetch( $msg, 'ENVELOPE' ) or return undef;
-
-    my $bs = "";
-    my $output = first { /ENVELOPE \(/i } @$out;
-
-    unless ( $output =~ /$CRLF$/o ) {
-        $output = '';
-        $self->_debug("get_envelope: reassembling original response");
-        my $started = 0;
-        foreach my $o ( $self->_transaction ) {
-            next unless $self->_is_output_or_literal($o);
-            $started++ if $o->[DATA] =~ /ENVELOPE \(/i;
-            $started or next;
-
-            if ( length($output) && $self->_is_literal($o) ) {
-                my $data = $o->[DATA];
-                $data =~ s/"/\\"/g;
-                $data =~ s/\(/\\\(/g;
-                $data =~ s/\)/\\\)/g;
-                $output .= qq("$data");
-            }
-            else {
-                $output .= $o->[DATA];
-            }
-        }
-        $self->_debug("get_envelope: reassembled output=$output<END>");
-    }
-
-    {
-        local ($@);
-        $bs = eval { $class->new($output) };
-    }
-
-    $self->_debug( "get_envelope: msg $msg returns: " . ( $bs || "UNDEF" ) );
-    $bs;
-}
-
-# fetch( [{option},] [$seq_set|ALL], @msg_data_items )
-# options:
-#   escaped => 0|1  # return Results or Escaped_results
-sub fetch {
-    my $self = shift;
-    my $opt  = ref( $_[0] ) eq "HASH" ? shift : {};
-    my $what = shift || "ALL";
-
-    my $take = $what;
-    if ( $what eq 'ALL' ) {
-        my $msgs = $self->messages or return undef;
-        $take = $self->Range($msgs);
-    }
-    elsif ( ref $what || $what =~ /^[,:\d]+\w*$/ ) {
-        $take = $self->Range($what);
-    }
-
-    my ( @data, $cmd );
-    my ( $seq_set, @fetch_att ) = $self->_split_sequence( $take, "FETCH", @_ );
-
-    for ( my $x = 0 ; $x <= $#$seq_set ; $x++ ) {
-        my $seq = $seq_set->[$x];
-        $self->_imap_uid_command( FETCH => $seq, @fetch_att, @_ )
-          or return undef;
-        my $res = $opt->{escaped} ? $self->Escaped_results : $self->Results;
-
-        # only keep last command and last response (* OK ...)
-        $cmd = shift(@$res);
-        pop(@$res) if ( $x != $#{$seq_set} );
-        push( @data, @$res );
-    }
-
-    if ( $cmd and !wantarray ) {
-        $cmd =~ s/^(\d+\s+.*?FETCH\s+)\S+(\s*)/$1$take$2/;
-        unshift( @data, $cmd );
-    }
-
-    #wantarray ? $self->History : $self->Results;
-    return wantarray ? @data : \@data;
-}
-
-# Some servers have a maximum command length.  If Maxcommandlength is
-# set, split a sequence to fit within the length restriction.
-sub _split_sequence {
-    my ( $self, $take, @args ) = @_;
-
-    # split take => sequence-set and (optional) fetch-att
-    my ( $seq, @att ) = split( / /, $take, 2 );
-
-    # use the entire sequence unless Maxcommandlength is set
-    my @seqs;
-    my $maxl = $self->Maxcommandlength;
-    if ($maxl) {
-
-        # estimate command length, the sum of the lengths of:
-        #   tag, command, fetch-att + $CRLF
-        push @args, $self->Transaction, $self->Uid ? "UID" : (), "\015\012";
-
-        # do not split on anything smaller than 64 chars
-        my $clen = length join( " ", @att, @args );
-        my $diff = $maxl - $clen;
-        my $most = $diff > 64 ? $diff : 64;
-
-        @seqs = ( $seq =~ m/(.{1,$most})(?:,|$)/g ) if defined $seq;
-        $self->_debug( "split_sequence: length($maxl-$clen) parts: ",
-            $#seqs + 1 )
-          if ( $#seqs != 0 );
-    }
-    else {
-        push( @seqs, $seq ) if defined $seq;
-    }
-    return \@seqs, @att;
-}
-
-# fetch_hash( [$seq_set|ALL], @msg_data_items, [\%msg_by_ids] )
-# - TODO: make more efficient use of memory on large fetch results
-sub fetch_hash {
-    my $self  = shift;
-    my $uids  = ref $_[-1] ? pop @_ : {};
-    my @words = @_;
-
-    # take an optional leading list of messages argument or default to
-    # ALL let fetch turn that list of messages into a msgref as needed
-    # fetch has similar logic for dealing with message list
-    my $msgs = 'ALL';
-    if ( defined $words[0] ) {
-        if ( ref $words[0] ) {
-            $msgs = shift @words;
-        }
-        else {
-            if ( $words[0] eq 'ALL' ) {
-                $msgs = shift @words;
-            }
-            elsif ( $words[0] =~ s/^([*,:\d]+)\s*// ) {
-                $msgs = $1;
-                shift @words if $words[0] eq "";
-            }
-        }
-    }
-
-    # message list (if any) is now removed from @words
-    my $what = ( @words > 1 or $words[0] =~ /\s/ ) ? "(@words)" : "@words";
-
-    # RFC 3501:
-    #   fetch = "FETCH" SP sequence-set SP ("ALL" / "FULL" / "FAST" /
-    #           fetch-att / "(" fetch-att *(SP fetch-att) ")")
-    my $output = $self->fetch( $msgs, $what )
-      or return undef;
-
-    my $asked_for_uid = $what =~ /[\s(]UID[)\s]/i;
-
-    while ( my $l = shift @$output ) {
-        next if $l !~ m/^\*\s(\d+)\sFETCH\s\(/g;
-        my ( $mid, $entry ) = ( $1, {} );
-        my ( $key, $value );
-      ATTR:
-        while ( $l and $l !~ m/\G\s*\)\s*$/gc ) {
-            if ( $l =~ m/\G\s*([^\s\[]+(?:\[[^\]]*\])?(?:<[^>]*>)?)\s*/gc ) {
-                $key = uc($1);
-
-                # strip quotes around header names - seen w/outlook.com
-                if ( $key =~ /^BODY\[HEADER\.FIELDS \("[^"]+".*?\)\]$/ ) {
-                    $key =~ s/"//g;
-                }
-            }
-            elsif ( !defined $key ) {
-
-                # some kind of malformed response
-                $self->LastError("Invalid item name in FETCH response: $l");
-                return undef;
-            }
-            if ( $l =~ m/\G\s*$/gc ) {
-                $value         = shift @$output;
-                $entry->{$key} = $value;
-                $l             = shift @$output;
-                next ATTR;
-            }
-            elsif (
-                $l =~ m/\G(?:"((?>(?:(?>[^"\\]+)|\\.)*))"|([^()\s]+))\s*/gc )
-            {
-                $value = defined $1 ? $1 : $2;
-                $entry->{$key} = $value;
-                next ATTR;
-            }
-            elsif ( $l =~ m/\G\(/gc ) {
-                my $depth = 1;
-                $value = "";
-                while ( $l =~
-                    m/\G("((?>(?:(?>[^"\\]+)|\\.)*))"\s*|[()]|[^()"]+)/gc )
-                {
-                    my $stuff = $1;
-                    if ( $stuff eq "(" ) {
-                        $depth++;
-                        $value .= "(";
-                    }
-                    elsif ( $stuff eq ")" ) {
-                        $depth--;
-                        if ( $depth == 0 ) {
-                            $entry->{$key} = $value;
-                            next ATTR;
-                        }
-                        $value .= ")";
-                    }
-                    else {
-                        $value .= $stuff;
-                    }
-
-                    # consume literal data if any
-                    if ( $l =~ m/\G\s*$/gc and scalar(@$output) ) {
-                        my $elit = $self->Escape( shift @$output );
-                        $l = shift @$output;
-                        $value .= ( length($value) ? " " : "" ) . qq{"$elit"};
-                    }
-                }
-                $l =~ m/\G\s*/gc;
-            }
-            else {
-                $self->LastError("Invalid item value in FETCH response: $l");
-                return undef;
-            }
-        }
-
-        # NOTE: old code tried to remove any "unrequested" data in $entry
-        # - UID is sometimes not explicitly requested, are there others?
-        # - rt#115726: Uid and $entry->{UID} not set, ignore unsolicited data
-        if ( $self->Uid ) {
-            if ( $entry->{UID} ) {
-                $uids->{ $entry->{UID} } = $entry;
-                delete $entry->{UID} unless $asked_for_uid;
-            }
-            else {
-                $self->_debug("ignoring unsolicited response: $l");
-            }
-        }
-        else {
-            $uids->{$mid} = $entry;
-        }
-    }
-
-    return wantarray ? %$uids : $uids;
-}
-
-sub store {
-    my ( $self, @a ) = @_;
-    $self->_imap_uid_command( STORE => @a )
-      or return undef;
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub _imap_folder_command($$@) {
-    my ( $self, $command ) = ( shift, shift );
-    my $folder = $self->Quote(shift);
-
-    $self->_imap_command( join ' ', $command, $folder, @_ )
-      or return undef;
-
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub subscribe($)   { shift->_imap_folder_command( SUBSCRIBE   => @_ ) }
-sub unsubscribe($) { shift->_imap_folder_command( UNSUBSCRIBE => @_ ) }
-sub create($)      { shift->_imap_folder_command( CREATE      => @_ ) }
-
-sub delete($) {
-    my $self = shift;
-    $self->_imap_folder_command( DELETE => @_ ) or return undef;
-    $self->Folder(undef);
-    return wantarray ? $self->History : $self->Results;
-}
-
-# rfc2086
-sub myrights($) { $_[0]->_imap_folder_command( MYRIGHTS => $_[1] ) }
-
-sub close {
-    my $self = shift;
-    $self->_imap_command('CLOSE')
-      or return undef;
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub expunge {
-    my ( $self, $folder ) = @_;
-
-    return undef unless ( defined $folder or defined $self->Folder );
-
-    my $old = defined $self->Folder ? $self->Folder : '';
-
-    if ( !defined($folder) || $folder eq $old ) {
-        $self->_imap_command('EXPUNGE')
-          or return undef;
-    }
-    else {
-        $self->select($folder) or return undef;
-        my $succ = $self->_imap_command('EXPUNGE');
-
-        # if $old eq '' IMAP4 select should close $folder without EXPUNGE
-        return undef unless ( $self->select($old) and $succ );
-    }
-
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub uidexpunge {
-    my ( $self, $msgspec ) = ( shift, shift );
-
-    return undef unless $self->has_capability("UIDPLUS");
-    unless ( $self->Uid ) {
-        $self->LastError("Uid must be enabled for uidexpunge");
-        return undef;
-    }
-
-    my $msg =
-      UNIVERSAL::isa( $msgspec, 'Mail::IMAPClient::MessageSet' )
-      ? $msgspec
-      : $self->Range($msgspec);
-
-    $msg->cat(@_) if @_;
-
-    my ( @data, $cmd );
-    my ($seq_set) = $self->_split_sequence( $msg, "UID EXPUNGE" );
-
-    for ( my $x = 0 ; $x <= $#$seq_set ; $x++ ) {
-        my $seq = $seq_set->[$x];
-        $self->_imap_uid_command( "EXPUNGE" => $seq )
-          or return undef;
-        my $res = $self->Results;
-
-        # only keep last command and last response (* OK ...)
-        $cmd = shift(@$res);
-        pop(@$res) if ( $x != $#{$seq_set} );
-        push( @data, @$res );
-    }
-
-    if ( $cmd and !wantarray ) {
-        $cmd =~ s/^(\d+\s+.*?EXPUNGE\s+)\S+(\s*)/$1$msg$2/;
-        unshift( @data, $cmd );
-    }
-
-    #wantarray ? $self->History : $self->Results;
-    return wantarray ? @data : \@data;
-}
-
-sub rename {
-    my ( $self, $from, $to ) = @_;
-
-    $from = $self->Quote($from);
-    $to   = $self->Quote($to);
-
-    $self->_imap_command(qq(RENAME $from $to)) ? $self : undef;
-}
-
-sub status {
-    my ( $self, $folder ) = ( shift, shift );
-    defined $folder or return undef;
-
-    my $which = @_ ? join( " ", @_ ) : 'MESSAGES';
-
-    my $box = $self->Quote($folder);
-    $self->_imap_command("STATUS $box ($which)")
-      or return undef;
-
-    return wantarray ? $self->History : $self->Results;
-}
-
-sub flags {
-    my ( $self, $msgspec ) = ( shift, shift );
-    my $msg =
-      UNIVERSAL::isa( $msgspec, 'Mail::IMAPClient::MessageSet' )
-      ? $msgspec
-      : $self->Range($msgspec);
-
-    $msg->cat(@_) if @_;
-
-    # Send command
-    my $ref = $self->fetch( $msg, "FLAGS" ) or return undef;
-
-    my $u_f     = $self->Uid;
-    my $flagset = {};
-
-    # Parse results, setting entry in result hash for each line
-    foreach my $line (@$ref) {
-        $self->_debug("flags: line = '$line'");
-        if (
-            $line =~ /\* \s+ (\d+) \s+ FETCH \s+    # * nnn FETCH
-             \(
-               (?:\s* UID \s+ (\d+) \s* )? # optional: UID nnn <space>
-               FLAGS \s* \( (.*?) \) \s*   # FLAGS (\Flag1 \Flag2) <space>
-               (?:\s* UID \s+ (\d+) \s* )? # optional: UID nnn
-             \)
-            /x
-          )
-        {
-            my $mailid = $u_f ? ( $2 || $4 ) : $1;
-            $flagset->{$mailid} = [ split " ", $3 ];
-        }
-    }
-
-    # Return a hash from msgid to flag array?
-    return $flagset
-      if ref $msgspec;
-
-    # Or, just one response? Return it if so
-    my $flagsref = $flagset->{$msgspec};
-    return wantarray ? @{ $flagsref || [] } : $flagsref;
-}
-
-# reduce a list, stripping undeclared flags. Flags with or without
-# leading backslash.
-sub supported_flags(@) {
-    my $self = shift;
-    my $sup  = $self->Supportedflags
-      or return @_;
-
-    return map { $sup->($_) } @_
-      if ref $sup eq 'CODE';
-
-    grep { $sup->{ /^\\(\S+)/ ? lc $1 : () } } @_;
-}
-
-sub parse_headers {
-    my ( $self, $msgspec, @fields ) = @_;
-    my $fields = join ' ', @fields;
-    my $msg = ref $msgspec eq 'ARRAY' ? $self->Range($msgspec) : $msgspec;
-    my $peek = !defined $self->Peek || $self->Peek ? '.PEEK' : '';
-
-    my $string = "$msg BODY$peek"
-      . ( $fields eq 'ALL' ? '[HEADER]' : "[HEADER.FIELDS ($fields)]" );
-
-    my $raw = $self->fetch($string) or return undef;
-    my $cmd = shift @$raw;
-
-    my %headers;    # message ids to headers
-    my $h;          # fields for current msgid
-    my $field;      # previous field name, for unfolding
-    my %fieldmap = map { ( lc($_) => $_ ) } @fields;
-    my $msgid;
-
-    # BUG: parsing this way is prone to be buggy but works most of the time
-    # some example responses:
-    # * OK Message 1 no longer exists
-    # * 1 FETCH (UID 26535 BODY[HEADER] "")
-    # * 5 FETCH (UID 30699 BODY[HEADER] {1711}
-    # header: value...
-    foreach my $header ( map { split /$CR?$LF/o } @$raw ) {
-
-        # Windows2003/Maillennium/others? have UID after headers
-        if (
-            $header =~ s/^\* \s+ (\d+) \s+ FETCH \s+
-                        \( (.*?) BODY\[HEADER (?:\.FIELDS)? .*? \]\s*//ix
-          )
-        {    # start new message header
-            ( $msgid, my $msgattrs ) = ( $1, $2 );
-            $h = {};
-            if ( $self->Uid ) {    # undef when win2003
-                $msgid = $msgattrs =~ m/\b UID \s+ (\d+)/x ? $1 : undef;
-            }
-            $headers{$msgid} = $h if $msgid;
-        }
-        $header =~ /\S/ or next;    # skip empty lines.
-
-        # ( for vi
-        if ( $header =~ /^\)/ ) {    # end of this message
-            undef $h;                # inbetween headers
-            next;
-        }
-        elsif ( !$msgid && $header =~ /^\s*UID\s+(\d+).*\)$/ ) {
-            $headers{$1} = $h;       # found UID win2003/Maillennium
-
-            undef $h;
-            next;
-        }
-
-        unless ( defined $h ) {
-            $self->_debug("found data between fetch headers: $header");
-            next;
-        }
-
-        if ( $header and $header =~ s/^(\S+)\:\s*// ) {
-            $field = $fieldmap{ lc $1 } || $1;
-            push @{ $h->{$field} }, $header;
-        }
-        elsif ( $field and ref $h->{$field} eq 'ARRAY' ) {    # folded header
-            $h->{$field}[-1] .= $header;
-        }
-        else {
-
-            # show data if it is not like  '"")' or '{123}'
-            $self->_debug("non-header data between fetch headers: $header")
-              if ( $header !~ /^(?:\s*\"\"\)|\{\d+\})$CR?$LF$/o );
-        }
-    }
-
-    # if we asked for one message, just return its hash,
-    # otherwise, return hash of numbers => header hash
-    ref $msgspec eq 'ARRAY' ? \%headers : $headers{$msgspec};
-}
-
-sub subject { $_[0]->get_header( $_[1], "Subject" ) }
-sub date    { $_[0]->get_header( $_[1], "Date" ) }
-sub rfc822_header { shift->get_header(@_) }
-
-sub get_header {
-    my ( $self, $msg, $field ) = @_;
-    my $headers = $self->parse_headers( $msg, $field );
-    $headers ? $headers->{$field}[0] : undef;
-}
-
-sub recent_count {
-    my ( $self, $folder ) = ( shift, shift );
-
-    $self->status( $folder, 'RECENT' )
-      or return undef;
-
-    my $r =
-      first { s/\*\s+STATUS\s+.*\(RECENT\s+(\d+)\s*\)/$1/ } $self->History;
-    chomp $r;
-    $r;
-}
-
-sub message_count {
-    my $self = shift;
-    my $folder = shift || $self->Folder;
-
-    $self->status( $folder, 'MESSAGES' )
-      or return undef;
-
-    foreach my $result ( $self->Results ) {
-        return $1 if $result =~ /\(MESSAGES\s+(\d+)\s*\)/i;
-    }
-
-    undef;
-}
-
-sub recent()   { shift->search('recent') }
-sub seen()     { shift->search('seen') }
-sub unseen()   { shift->search('unseen') }
-sub messages() { shift->search('ALL') }
-
-sub sentbefore($$) { shift->_search_date( sentbefore => @_ ) }
-sub sentsince($$)  { shift->_search_date( sentsince  => @_ ) }
-sub senton($$)     { shift->_search_date( senton     => @_ ) }
-sub since($$)      { shift->_search_date( since      => @_ ) }
-sub before($$)     { shift->_search_date( before     => @_ ) }
-sub on($$)         { shift->_search_date( on         => @_ ) }
-
-sub _search_date($$$) {
-    my ( $self, $how, $time ) = @_;
-    my $imapdate;
-
-    if ( $time =~ /\d\d-\D\D\D-\d\d\d\d/ ) {
-        $imapdate = $time;
-    }
-    elsif ( $time =~ /^\d+$/ ) {
-        my @ltime = localtime $time;
-        $imapdate = sprintf( "%2.2d-%s-%4.4d",
-            $ltime[3],
-            $mnt[ $ltime[4] ],
-            $ltime[5] + 1900 );
-    }
-    else {
-        $self->LastError("Invalid date format supplied for '$how': $time");
-        return undef;
-    }
-
-    $self->_imap_uid_command( SEARCH => $how, $imapdate )
-      or return undef;
-
-    my @hits;
-    foreach ( $self->History ) {
-        chomp;
-        s/$CR?$LF$//o;
-        s/^\*\s+SEARCH\s+//i or next;
-        push @hits, grep /\d/, split;
-    }
-    $self->_debug("Hits are: @hits");
-    return wantarray ? @hits : \@hits;
-}
-
-sub or {
-    my ( $self, @what ) = @_;
-    if ( @what < 2 ) {
-        $self->LastError("Invalid number of arguments passed to or()");
-        return undef;
-    }
-
-    my $or =
-      "OR " . $self->Quote( shift @what ) . " " . $self->Quote( shift @what );
-
-    $or = "OR $or " . $self->Quote($_) for @what;
-
-    $self->_imap_uid_command( SEARCH => $or )
-      or return undef;
-
-    my @hits;
-    foreach ( $self->History ) {
-        chomp;
-        s/$CR?$LF$//o;
-        s/^\*\s+SEARCH\s+//i or next;
-        push @hits, grep /\d/, split;
-    }
-    $self->_debug("Hits are now: @hits");
-
-    return wantarray ? @hits : \@hits;
-}
-
-sub disconnect { shift->logout }
-
-sub _quote_search {
-    my ( $self, @args ) = @_;
-    my @ret;
-    foreach my $v (@args) {
-        if ( ref($v) eq "SCALAR" ) {
-            push( @ret, $$v );
-        }
-        elsif ( exists $SEARCH_KEYS{ uc($v) } ) {
-            push( @ret, $v );
-        }
-        elsif ( @args == 1 ) {
-            push( @ret, $v );    # <3.17 compat: caller responsible for quoting
-        }
-        else {
-            push( @ret, $self->Quote($v) );
-        }
-    }
-    return @ret;
-}
-
-sub search {
-    my ( $self, @args ) = @_;
-
-    @args = $self->_quote_search(@args);
-
-    $self->_imap_uid_command( SEARCH => @args )
-      or return undef;
-
-    my @hits;
-    foreach ( $self->History ) {
-        chomp;
-        s/$CR?$LF$//o;
-        s/^\*\s+SEARCH\s+(?=.*?\d)// or next;
-        push @hits, grep /^\d+$/, split;
-    }
-
-    @hits
-      or $self->_debug("Search successful but found no matching messages");
-
-    # return empty list
-    return
-        wantarray     ? @hits
-      : !@hits        ? \@hits
-      : $self->Ranges ? $self->Range( \@hits )
-      :                 \@hits;
-}
-
-# returns a Thread data structure
-my $thread_parser;
-
-sub thread {
-    my $self = shift;
-
-    return undef unless defined $self->has_capability("THREAD=REFERENCES");
-    my $algorythm = shift
-      || (
-        $self->has_capability("THREAD=REFERENCES")
-        ? 'REFERENCES'
-        : 'ORDEREDSUBJECT'
-      );
-
-    my $charset = shift || 'UTF-8';
-    my @a = @_ ? @_ : 'ALL';
-
-    $a[-1] = $self->Quote( $a[-1], 1 )
-      if @a > 1 && !exists $SEARCH_KEYS{ uc $a[-1] };
-
-    $self->_imap_uid_command( THREAD => $algorythm, $charset, @a )
-      or return undef;
-
-    unless ($thread_parser) {
-        return if ( defined($thread_parser) and $thread_parser == 0 );
-
-        my $class = $self->_load_module("Thread");
-        unless ($class) {
-            $thread_parser = 0;
-            return undef;
-        }
-        $thread_parser = $class->new;
-    }
-
-    my $thread;
-    foreach ( $self->History ) {
-        /^\*\s+THREAD\s+/ or next;
-        s/$CR?$LF|$LF+/ /og;
-        $thread = $thread_parser->start($_);
-    }
-
-    unless ($thread) {
-        $self->LastError(
-"Thread search completed successfully but found no matching messages"
-        );
-        return undef;
-    }
-
-    $thread;
-}
-
-sub delete_message {
-    my $self = shift;
-    my @msgs = map { ref $_ eq 'ARRAY' ? @$_ : split /\,/ } @_;
-
-    $self->store( join( ',', @msgs ), '+FLAGS.SILENT', '(\Deleted)' )
-      ? scalar @msgs
-      : undef;
-}
-
-sub restore_message {
-    my $self = shift;
-    my $msgs = join ',', map { ref $_ eq 'ARRAY' ? @$_ : split /\,/ } @_;
-
-    $self->store( $msgs, '-FLAGS', '(\Deleted)' ) or return undef;
-    scalar grep /^\*\s\d+\sFETCH\s\(.*FLAGS.*(?!\\Deleted)/, $self->Results;
-}
-
-sub uidvalidity {
-    my ( $self, $folder ) = @_;
-    $self->status( $folder, "UIDVALIDITY" ) or return undef;
-    my $line = first { /UIDVALIDITY/i } $self->History;
-    defined $line && $line =~ /\(UIDVALIDITY\s+([^\)]+)/ ? $1 : undef;
-}
-
-sub uidnext {
-    my ( $self, $folder ) = @_;
-    $self->status( $folder, "UIDNEXT" ) or return undef;
-    my $line = first { /UIDNEXT/i } $self->History;
-    defined $line && $line =~ /\(UIDNEXT\s+([^\)]+)/ ? $1 : undef;
-}
-
-# sort @caps for consistency?
-sub capability {
-    my $self = shift;
-
-    if ( $self->{CAPABILITY} ) {
-        my @caps = keys %{ $self->{CAPABILITY} };
-        return wantarray ? @caps : \@caps;
-    }
-
-    $self->_imap_command('CAPABILITY')
-      or return undef;
-
-    my @caps = map { split } grep /^\*\s+CAPABILITY\s+/, $self->History;
-    splice( @caps, 0, 2 );    # remove * CAPABILITY from array
-
-    # use iterator as we may append to @caps for CAPA=VALUE
-    for ( my $i = 0 ; $i < @caps ; $i++ ) {
-        $self->{CAPABILITY}->{ uc $caps[$i] } ||= [];
-        my ( $capa, $cval ) = split( /=/, $caps[$i], 2 );
-        if ( defined $cval ) {
-            $capa = uc $capa;
-            push( @caps, $capa ) unless exists $self->{CAPABILITY}->{$capa};
-            push( @{ $self->{CAPABILITY}->{$capa} }, $cval );
-        }
-    }
-
-    return wantarray ? @caps : \@caps;
-}
-
-# use "" not undef when lookup fails to differentiate imap command
-# failure vs lack of capability
-sub has_capability {
-    my ( $self, $which ) = @_;
-    $self->capability or return undef;
-    my $aref = [];
-
-    # exists in CAPABILITIES? possibly in CAPA=VALUE format?
-    if ( defined $which ) {
-        $which = uc $which;
-        if ( exists $self->{CAPABILITY}{$which} ) {
-            if ( @{ $self->{CAPABILITY}{$which} } ) {
-                $aref = $self->{CAPABILITY}{$which};
-            }
-            else {
-                $aref = [$which];
-            }
-        }
-    }
-
-    return @$aref if wantarray;
-    return scalar @$aref ? $aref : "";
-}
-
-sub imap4rev1 {
-    my $self = shift;
-    return $self->{_IMAP4REV1} if exists $self->{_IMAP4REV1};
-    $self->{_IMAP4REV1} = $self->has_capability('IMAP4REV1');
-}
-
-#??? what a horror!
-sub namespace {
-
-    # Returns a nested list as follows:
-    # [
-    #  [
-    #   [ $user_prefix,  $user_delim  ] (,[$user_prefix2  ,$user_delim  ],...),
-    #  ],
-    #  [
-    #   [ $shared_prefix,$shared_delim] (,[$shared_prefix2,$shared_delim],... ),
-    #  ],
-    #  [
-    #   [$public_prefix, $public_delim] (,[$public_prefix2,$public_delim],...),
-    #  ],
-    # ];
-
-    my $self = shift;
-    unless ( $self->has_capability("NAMESPACE") ) {
-        $self->LastError( "NO NAMESPACE not supported by " . $self->Server )
-          unless $self->LastError;
-        return undef;
-    }
-
-    my $got = $self->_imap_command("NAMESPACE") or return undef;
-    my @namespaces = map { /^\* NAMESPACE (.*)/ ? $1 : () } $got->Results;
-
-    my $namespace = shift @namespaces;
-    $namespace =~ s/$CR?$LF$//o;
-
-    my ( $personal, $shared, $public ) = $namespace =~ m#
-        (NIL|\((?:\([^\)]+\)\s*)+\))\s
-        (NIL|\((?:\([^\)]+\)\s*)+\))\s
-        (NIL|\((?:\([^\)]+\)\s*)+\))
-    #xi;
-
-    my @ns;
-    $self->_debug("NAMESPACE: pers=$personal, shared=$shared, pub=$public");
-    foreach ( $personal, $shared, $public ) {
-        uc $_ ne 'NIL' or next;
-        s/^\((.*)\)$/$1/;
-
-        my @pieces = m#\(([^\)]*)\)#g;
-        $self->_debug("NAMESPACE pieces: @pieces");
-
-        push @ns, [ map { [m#"([^"]*)"\s*#g] } @pieces ];
-    }
-
-    return wantarray ? @ns : \@ns;
-}
-
-sub internaldate {
-    my ( $self, $msg ) = @_;
-    $self->_imap_uid_command( FETCH => $msg, 'INTERNALDATE' )
-      or return undef;
-    my $hist = join '', $self->History;
-    return $hist =~ /\bINTERNALDATE "([^"]*)"/i ? $1 : undef;
-}
-
-sub is_parent {
-    my ( $self, $folder ) = @_;
-    my $list = $self->list( undef, $folder ) or return undef;
-
-    my $attrs;
-    foreach my $resp (@$list) {
-        my $rec = $self->_list_or_lsub_response_parse($resp);
-        next unless defined $rec->{attrs};
-        $self->_debug("unexpected attrs data: @$list\n") if $attrs;
-        $attrs = $rec->{attrs};
-    }
-
-    if ($attrs) {
-        return undef if first { lc($_) eq '\noinferiors' } @$attrs;
-        return 1     if first { lc($_) eq '\haschildren' } @$attrs;
-        return 0     if first { lc($_) eq '\hasnochildren' } @$attrs;
-    }
-    else {
-        $self->_debug( join( "\n\t", "no attrs for '$folder' in:", @$list ) );
-    }
-
-    # BUG? This may be overkill for normal use cases...
-    # flag not supported or not returned for some reason, try via folders()
-    my $sep = $self->separator($folder) || $self->separator(undef);
-    return undef unless defined $sep;
-
-    my $lead = $folder . $sep;
-    my $len  = length $lead;
-    scalar grep { $lead eq substr( $_, 0, $len ) } $self->folders;
-}
-
-sub selectable {
-    my ( $self, $f ) = @_;
-    my $info = $self->list( "", $f ) or return undef;
-    return not( grep /[\s(]\\Noselect[)\s]/i, @$info );
-}
-
-# append( $self, $folder, $text [, $optmsg] )
-# - conserve memory and use $_[0] to avoid copying $text (it may be huge!)
-# - BUG?: should deprecate this method in favor of append_string
-sub append {
-    my $self   = shift;
-    my $folder = shift;
-
-    # $message_string is whatever is left in @_
-    $self->append_string( $folder, ( @_ > 1 ? join( $CRLF, @_ ) : $_[0] ) );
-}
-
-sub _clean_flags {
-    my ( $self, $flags ) = @_;
-    $flags =~ s/^\s+//;
-    $flags =~ s/\s+$//;
-    $flags = "($flags)" if $flags !~ /^\(.*\)$/;
-    return $flags;
-}
-
-# RFC 3501: date-day-fixed = (SP DIGIT) / 2DIGIT
-sub _clean_date {
-    my ( $self, $date ) = @_;
-    $date =~ s/^\s+// if $date !~ /^\s\d/;
-    $date =~ s/\s+$//;
-    $date = qq("$date") if $date !~ /^"/;
-    return $date;
-}
-
-sub _append_command {
-    my ( $self, $folder, $flags, $date, $length ) = @_;
-    return join( " ",
-        "APPEND $folder",
-        ( $flags ? $flags : () ),
-        ( $date  ? $date  : () ),
-        "{" . $length . "}",
-    );
-}
-
-# append_string( $self, $folder, $text, $flags, $date )
-# - conserve memory and use $_[2] to avoid copying $text (it may be huge!)
-sub append_string($$$;$$) {
-    my ( $self, $folder, $flags, $date ) = @_[ 0, 1, 3, 4 ];
-
-    #my $text = $_[2]; # conserve memory and use $_[2] instead!
-    my $maxl = $self->Maxappendstringlength;
-
-    # on "large" strings use append_file to conserve memory
-    if ( $_[2] and $maxl and length( $_[2] ) > $maxl ) {
-        $self->_debug("append_string: using in memory file");
-        return $self->append_file( $folder, \( $_[2] ), undef, $flags, $date );
-    }
-
-    my $text = defined( $_[2] ) ? $_[2] : '';
-
-    $folder = $self->Quote($folder);
-    $flags  = $self->_clean_flags($flags) if ( defined $flags );
-    $date   = $self->_clean_date($date) if ( defined $date );
-    $text =~ s/\r?\n/$CRLF/og;
-
-    my $cmd = $self->_append_command( $folder, $flags, $date, length($text) );
-    $cmd .= $CRLF . $text . $CRLF;
-
-    $self->_imap_command( { addcrlf => 0 }, $cmd ) or return undef;
-
-    my $data = join '', $self->Results;
-
-    # look for something like return size or self if no size found:
-    # <tag> OK [APPENDUID <uid> <size>] APPEND completed
-    my $ret = $data =~ m#\s+(\d+)\]# ? $1 : $self;
-
-    return $ret;
-}
-
-# BUG?: not much/any savings on cygwin perl 5.10 when using in memory file
-# BUG?: we do not retry if sending data fails after getting the OK to send
-sub append_file {
-    my ( $self, $folder, $file, $control, $flags, $date ) = @_;
-
-    my @err;
-    push( @err, "folder not specified" )
-      unless ( defined($folder) and $folder ne "" );
-
-    my $fh;
-    if ( !defined($file) ) {
-        push( @err, "file not specified" );
-    }
-    elsif ( ref($file) and ref($file) ne "SCALAR" ) {
-        $fh = $file;    # let the caller pass in their own file handle directly
-    }
-    elsif ( !ref($file) and !-f $file ) {
-        push( @err, "file '$file' not found" );
-    }
-    else {
-
-        # $file can be a name or a scalar reference (for in memory file)
-        # avoid IO::File bug handling scalar refs in perl <= 5.8.8?
-        # - buggy: $fh = IO::File->new( $file, 'r' )
-        local ($!);
-        open( $fh, "<", $file )
-          or push( @err, "Unable to open file '$file': $!" );
-    }
-
-    if (@err) {
-        $self->LastError( join( ", ", @err ) );
-        return undef;
-    }
-
-    binmode($fh);
-
-    $folder = $self->Quote($folder)       if ( defined $folder );
-    $flags  = $self->_clean_flags($flags) if ( defined $flags );
-
-    # allow the date to be specified or even use mtime on file
-    if ($date) {
-        $date = $self->Rfc3501_datetime( ( stat($fh) )[9] ) if ( $date eq "1" );
-        $date = $self->_clean_date($date);
-    }
-
-    # BUG? seems wasteful to do this always, provide a "fast path" option?
-    my $length = 0;
-    {
-        local $/ = "\n";    # just in case global is not default
-        while ( my $line = <$fh> ) {    # do no read the whole file at once!
-            $line =~ s/\r?\n$/$CRLF/;
-            $length += length($line);
-        }
-        seek( $fh, 0, 0 );
-    }
-
-    my $cmd = $self->_append_command( $folder, $flags, $date, $length );
-    my $rc = $self->_imap_command( $cmd, '+' );
-    unless ($rc) {
-        $self->LastError( "Error sending '$cmd': " . $self->LastError );
-        return undef;
-    }
-
-    # Now send the message itself
-    my ( $buffer, $buflen ) = ( "", 0 );
-    until ( !$buflen and eof($fh) ) {
-
-        if ( $buflen < APPEND_BUFFER_SIZE ) {
-          FILLBUFF:
-            while ( my $line = <$fh> ) {
-                $line =~ s/\r?\n$/$CRLF/;
-                $buffer .= $line;
-                $buflen = length($buffer);
-                last FILLBUFF if ( $buflen >= APPEND_BUFFER_SIZE );
-            }
-        }
-
-        # exit loop entirely if we are out of data
-        last unless $buflen;
-
-        # save anything over desired buffer size for next iteration
-        my $savebuff =
-          ( $buflen > APPEND_BUFFER_SIZE )
-          ? substr( $buffer, APPEND_BUFFER_SIZE )
-          : undef;
-
-        # reduce buffer to desired size
-        $buffer = substr( $buffer, 0, APPEND_BUFFER_SIZE );
-
-        my $bytes_written = $self->_send_bytes( \$buffer );
-        unless ($bytes_written) {
-            $self->LastError( "Error appending message: " . $self->LastError );
-            return undef;
-        }
-
-        # retain any saved data and continue loop
-        $buffer = defined($savebuff) ? $savebuff : "";
-        $buflen = length($buffer);
-    }
-
-    # finish off append
-    unless ( $self->_send_bytes( \$CRLF ) ) {
-        $self->LastError( "Error appending CRLF: " . $self->LastError );
-        return undef;
-    }
-
-    # Now for the crucial test: Did the append work or not?
-    # look for "<tag> (OK|BAD|NO)"
-    my $code = $self->_get_response( $self->Count ) or return undef;
-
-    if ( $code eq 'OK' ) {
-        my $data = join '', $self->Results;
-
-        # look for something like return size or self if no size found:
-        # <tag> OK [APPENDUID <uid> <size>] APPEND completed
-        my $ret = $data =~ m#\s+(\d+)\]# ? $1 : $self;
-
-        return $ret;
-    }
-    else {
-        return undef;
-    }
-}
-
-# BUG? we should retry if "socket closed while..." but do not currently
-sub authenticate {
-    my ( $self, $scheme, $response ) = @_;
-    $scheme   ||= $self->Authmechanism;
-    $response ||= $self->Authcallback;
-    my $clear = $self->Clear;
-    $self->Clear($clear)
-      if $self->Count >= $clear && $clear > 0;
-
-    if ( !$scheme ) {
-        $self->LastError("Authmechanism not set");
-        return undef;
-    }
-    elsif ( $scheme eq 'LOGIN' ) {
-        $self->LastError("Authmechanism LOGIN is invalid, use login()");
-        return undef;
-    }
-
-    my $string = "AUTHENTICATE $scheme";
-
-    # use _imap_command for retry mechanism...
-    $self->_imap_command( $string, '+' ) or return undef;
-
-    my $count = $self->Count;
-    my $code;
-
-    # look for "+ <anyword>" or just "+"
-    foreach my $line ( $self->Results ) {
-        if ( $line =~ /^\+\s*(.*?)\s*$/ ) {
-            $code = $1;
-            last;
-        }
-    }
-
-    # BUG? use _load_module for these too?
-    if ( $scheme eq 'CRAM-MD5' ) {
-        $response ||= sub {
-            my ( $code, $client ) = @_;
-            require Digest::HMAC_MD5;
-            my $hmac =
-              Digest::HMAC_MD5::hmac_md5_hex( decode_base64($code),
-                $client->Password );
-            encode_base64( $client->User . " " . $hmac, '' );
-        };
-    }
-    elsif ( $scheme eq 'DIGEST-MD5' ) {
-        $response ||= sub {
-            my ( $code, $client ) = @_;
-            require Authen::SASL;
-            require Digest::MD5;
-
-            my $authname =
-              defined $client->Authuser ? $client->Authuser : $client->User;
-
-            my $sasl = Authen::SASL->new(
-                mechanism => 'DIGEST-MD5',
-                callback  => {
-                    user     => $client->User,
-                    pass     => $client->Password,
-                    authname => $authname
-                }
-            );
-
-            # client_new is an empty function for DIGEST-MD5
-            my $conn = $sasl->client_new( 'imap', 'localhost', '' );
-            my $answer = $conn->client_step( decode_base64 $code);
-
-            encode_base64( $answer, '' )
-              if defined $answer;
-        };
-    }
-    elsif ( $scheme eq 'PLAIN' ) {    # PLAIN SASL
-        $response ||= sub {
-            my ( $code, $client ) = @_;
-            encode_base64(            # [authname] user password
-                join(
-                    chr(0),
-                    defined $client->Proxy
-                    ? ( $client->User, $client->Proxy )
-                    : ( "", $client->User ),
-                    defined $client->Password ? $client->Password : "",
-                ),
-                ''
-            );
-        };
-    }
-    elsif ( $scheme eq 'NTLM' ) {
-        $response ||= sub {
-            my ( $code, $client ) = @_;
-
-            require Authen::NTLM;
-            Authen::NTLM::ntlm_user( $client->User );
-            Authen::NTLM::ntlm_password( $client->Password );
-            Authen::NTLM::ntlm_domain( $client->Domain ) if $client->Domain;
-            Authen::NTLM::ntlm($code);
-        };
-    }
-
-    my $resp = $response->( $code, $self );
-    unless ( defined($resp) ) {
-        $self->LastError( "Error getting $scheme data: " . $self->LastError );
-        return undef;
-    }
-    unless ( $self->_send_line($resp) ) {
-        $self->LastError( "Error sending $scheme data: " . $self->LastError );
-        return undef;
-    }
-
-    # this code may be a little too custom to try and use _get_response()
-    # look for "+ <anyword>" (not just "+") otherwise "<tag> (OK|BAD|NO)"
-    undef $code;
-    until ($code) {
-        my $output = $self->_read_line or return undef;
-        foreach my $o (@$output) {
-            $self->_record( $count, $o );
-            $code = $o->[DATA] =~ /^\+\s+(.*?)\s*$/ ? $1 : undef;
-
-            if ($code) {
-                unless ( $self->_send_line( $response->( $code, $self ) ) ) {
-                    $self->LastError(
-                        "Error sending $scheme data: " . $self->LastError );
-                    return undef;
-                }
-                undef $code;    # clear code as we are not finished yet
-            }
-
-            if ( $o->[DATA] =~ /^$count\s+(OK|NO|BAD)\b/i ) {
-                $code = uc($1);
-                $self->LastError( $o->[DATA] ) unless ( $code eq 'OK' );
-            }
-            elsif ( $o->[DATA] =~ /^\*\s+BYE/ ) {
-                $self->State(Unconnected);
-                $self->LastError( $o->[DATA] );
-                return undef;
-            }
-        }
-    }
-
-    return undef unless $code eq 'OK';
-
-    Authen::NTLM::ntlm_reset()
-      if $scheme eq 'NTLM';
-
-    $self->State(Authenticated);
-    return $self;
-}
-
-# UIDPLUS response from a copy: [COPYUID (uidvalidity) (origuid) (newuid)]
-sub copy {
-    my ( $self, $target, @msgs ) = @_;
-
-    my $msgs =
-        $self->Ranges
-      ? $self->Range(@msgs)
-      : join ',', map { ref $_ ? @$_ : $_ } @msgs;
-
-    $self->_imap_uid_command( COPY => $msgs, $self->Quote($target) )
-      or return undef;
-
-    my @results = $self->History;
-
-    my @uids;
-    foreach (@results) {
-        chomp;
-        s/$CR?$LF$//o;
-        s/^.*\[COPYUID\s+\d+\s+[\d:,]+\s+([\d:,]+)\].*/$1/ or next;
-        push @uids, /(\d+):(\d+)/ ? ( $1 ... $2 ) : ( split /\,/ );
-
-    }
-    return @uids ? join( ",", @uids ) : $self;
-}
-
-sub move {
-    my ( $self, $target, @msgs ) = @_;
-
-    $self->exists($target)
-      or $self->create($target) && $self->subscribe($target);
-
-    my $uids =
-      $self->copy( $target, map { ref $_ eq 'ARRAY' ? @$_ : $_ } @msgs )
-      or return undef;
-
-    unless ( $self->delete_message(@msgs) ) {
-        local ($!);    # old versions of Carp could reset $!
-        carp $self->LastError;
-    }
-
-    return $uids;
-}
-
-sub set_flag {
-    my ( $self, $flag, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-    $flag = "\\$flag"
-      if $flag =~ /^(?:Answered|Flagged|Deleted|Seen|Draft)$/i;
-
-    my $which = $self->Ranges ? $self->Range(@msgs) : join( ',', @msgs );
-    return $self->store( $which, '+FLAGS.SILENT', "($flag)" );
-}
-
-sub see {
-    my ( $self, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-    return $self->set_flag( '\\Seen', @msgs );
-}
-
-sub mark {
-    my ( $self, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-    return $self->set_flag( '\\Flagged', @msgs );
-}
-
-sub unmark {
-    my ( $self, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-    return $self->unset_flag( '\\Flagged', @msgs );
-}
-
-sub unset_flag {
-    my ( $self, $flag, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-
-    $flag = "\\$flag"
-      if $flag =~ /^(?:Answered|Flagged|Deleted|Seen|Draft)$/i;
-
-    return $self->store( join( ",", @msgs ), "-FLAGS.SILENT ($flag)" );
-}
-
-sub deny_seeing {
-    my ( $self, @msgs ) = @_;
-    @msgs = @{ $msgs[0] } if ref $msgs[0] eq 'ARRAY';
-    return $self->unset_flag( '\\Seen', @msgs );
-}
-
-sub size {
-    my ( $self, $msg ) = @_;
-    my $data = $self->fetch( $msg, "(RFC822.SIZE)" ) or return undef;
-
-    # beware of response like: * NO Cannot open message $msg
-    my $cmd = shift @$data;
-    my $err;
-    foreach my $line (@$data) {
-        return $1 if ( $line =~ /RFC822\.SIZE\s+(\d+)/ );
-        $err = $line if ( $line =~ /\* NO\b/ );
-    }
-
-    if ($err) {
-        my $info = "$err was returned for $cmd";
-        $info =~ s/$CR?$LF//og;
-        $self->LastError($info);
-    }
-    elsif ( !$self->LastError ) {
-        my $info = "no RFC822.SIZE found in: " . join( " ", @$data );
-        $self->LastError($info);
-    }
-    return undef;
-}
-
-sub getquotaroot {
-    my ( $self, $what ) = @_;
-    my $who = defined $what ? $self->Quote($what) : "INBOX";
-    return $self->_imap_command("GETQUOTAROOT $who") ? $self->Results : undef;
-}
-
-# BUG? using user/$User here and INBOX in quota/quota_usage
-sub getquota {
-    my ( $self, $what ) = @_;
-    my $who = defined $what ? $self->Quote($what) : "user/" . $self->User;
-    return $self->_imap_command("GETQUOTA $who") ? $self->Results : undef;
-}
-
-# usage: $self->setquota($quotaroot, storage => 512, ...)
-sub setquota(@) {
-    my ( $self, $what ) = ( shift, shift );
-    my $who = defined $what ? $self->Quote($what) : "user/" . $self->User;
-    my @limits;
-    while (@_) {
-        my ( $k, $v ) = ( $self->Quote( uc( shift @_ ) ), shift @_ );
-        push( @limits, "($k $v)" );
-    }
-    my $limits = join( ' ', @limits );
-    $self->_imap_command("SETQUOTA $who $limits") ? $self->Results : undef;
-}
-
-sub quota {
-    my ( $self, $what ) = ( shift, shift || "INBOX" );
-    my $tref = $self->getquota($what) or return undef;
-    shift @$tref;    # pop off command
-    return ( map { /.*STORAGE\s+\d+\s+(\d+).*\n$/ ? $1 : () } @$tref )[0];
-}
-
-sub quota_usage {
-    my ( $self, $what ) = ( shift, shift || "INBOX" );
-    my $tref = $self->getquota($what) or return undef;
-    shift @$tref;    # pop off command
-    return ( map { /.*STORAGE\s+(\d+)\s+\d+.*\n$/ ? $1 : () } @$tref )[0];
-}
-
-# rfc3501:
-#   atom-specials   = "(" / ")" / "{" / SP / CTL / list-wildcards /
-#                  quoted-specials / resp-specials
-#   list-wildcards  = "%" / "*"
-#   quoted-specials = DQUOTE / "\"
-#   resp-specials   = "]"
-# rfc2060:
-#   CTL ::= <any ASCII control character and DEL, 0x00 - 0x1f, 0x7f>
-# Paranoia/safety:
-#   encode strings with "}" / "[" / "]" / non-ascii chars
-sub Quote($;$) {
-    my ( $self, $name, $force ) = @_;
-    if ( $force or $name =~ /["\\[:^ascii:][:cntrl:]]/s ) {
-        return "{" . length($name) . "}" . $CRLF . $name;
-    }
-    elsif ( $name =~ /[(){}\s%*\[\]]/s or $name eq "" ) {
-        return qq("$name");
-    }
-    else {
-        return $name;
-    }
-}
-
-# legacy behavior: strip double quote around folder name args!
-sub Massage($;$) {
-    my ( $self, $name, $notFolder ) = @_;
-    $name =~ s/^\"(.*)\"$/$1/s unless $notFolder;
-    return $self->Quote($name);
-}
-
-sub unseen_count {
-    my ( $self, $folder ) = ( shift, shift );
-    $folder ||= $self->Folder;
-    $self->status( $folder, 'UNSEEN' ) or return undef;
-
-    my $r =
-      first { s/\*\s+STATUS\s+.*\(UNSEEN\s+(\d+)\s*\)/$1/ } $self->History;
-
-    $r =~ s/\D//g;
-    return $r;
-}
-
-sub State($) {
-    my ( $self, $state ) = @_;
-
-    if ( defined $state ) {
-        $self->{State} = $state;
-
-        # discard cached capability info after authentication
-        delete $self->{CAPABILITY} if ( $state == Authenticated );
-    }
-
-    return defined( $self->{State} ) ? $self->{State} : Unconnected;
-}
-
-sub Status          { shift->State }
-sub IsUnconnected   { shift->State == Unconnected }
-sub IsConnected     { shift->State >= Connected }
-sub IsAuthenticated { shift->State >= Authenticated }
-sub IsSelected      { shift->State == Selected }
-
-# The following private methods all work on an output line array.
-# _data returns the data portion of an output array:
-sub _data { ref $_[1] && defined $_[1]->[TYPE] ? $_[1]->[DATA] : undef }
-
-# _index returns the index portion of an output array:
-sub _index { ref $_[1] && defined $_[1]->[TYPE] ? $_[1]->[INDEX] : undef }
-
-# _type returns the type portion of an output array:
-sub _type { ref $_[1] && $_[1]->[TYPE] }
-
-# _is_literal returns true if this is a literal:
-sub _is_literal { ref $_[1] && $_[1]->[TYPE] && $_[1]->[TYPE] eq 'LITERAL' }
-
-# _is_output_or_literal returns true if this is an
-#      output line (or the literal part of one):
-
-sub _is_output_or_literal {
-    ref $_[1]
-      && defined $_[1]->[TYPE]
-      && ( $_[1]->[TYPE] eq "OUTPUT" || $_[1]->[TYPE] eq "LITERAL" );
-}
-
-# _is_output returns true if this is an output line:
-sub _is_output { ref $_[1] && $_[1]->[TYPE] && $_[1]->[TYPE] eq "OUTPUT" }
-
-# _is_input returns true if this is an input line:
-sub _is_input { ref $_[1] && $_[1]->[TYPE] && $_[1]->[TYPE] eq "INPUT" }
-
-# _next_index returns next_index for a transaction; may legitimately
-# return 0 when successful.
-sub _next_index { my $r = $_[0]->_transaction( $_[1] ); $r }
-
-sub Range {
-    my ( $self, $targ ) = ( shift, shift );
-
-    UNIVERSAL::isa( $targ, 'Mail::IMAPClient::MessageSet' )
-      ? $targ->cat(@_)
-      : Mail::IMAPClient::MessageSet->new( $targ, @_ );
-}
-
-1;
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pod b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pod
deleted file mode 100644
index 4298f64..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient.pod
+++ /dev/null
@@ -1,4033 +0,0 @@
-=head1 NAME
-
-Mail::IMAPClient - An IMAP Client API
-
-=head1 SYNOPSIS
-
-  use Mail::IMAPClient;
-
-  my $imap = Mail::IMAPClient->new(
-    Server   => 'localhost',
-    User     => 'username',
-    Password => 'password',
-    Ssl      => 1,
-    Uid      => 1,
-  );
-
-  my $folders = $imap->folders
-    or die "List folders error: ", $imap->LastError, "\n";
-  print "Folders: @$folders\n";
-
-  $imap->select( $Opt{folder} )
-    or die "Select '$Opt{folder}' error: ", $imap->LastError, "\n";
-
-  $imap->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE")
-    or die "Fetch hash '$Opt{folder}' error: ", $imap->LastError, "\n";
-
-  $imap->logout
-    or die "Logout error: ", $imap->LastError, "\n";
-
-=head1 DESCRIPTION
-
-This module provides methods implementing the IMAP protocol to support
-interacting with IMAP message stores.
-
-The module is used by constructing or instantiating a new IMAPClient
-object via the L</new> constructor method.  Once the object has been
-instantiated, the L</connect> method is either implicitly or
-explicitly called.  At that point methods are available that implement
-the IMAP client commands as specified in B<RFC3501>.  When processing
-is complete, the L</logout> object method should be called.
-
-This documentation is not meant to be a replacement for RFC3501 nor
-any other IMAP related RFCs.
-
-Note that this documentation uses the term I<folder> in place of
-RFC3501's use of I<mailbox>.  This documentation reserves the use of
-the term I<mailbox> to refer to the set of folders owned by a specific
-IMAP id.
-
-=head2 Connection State
-
-RFC3501 defines four possible states for an IMAP connection: not
-authenticated, authenticated, selected, and logged out.  These
-correspond to the IMAPClient constants C<Connected>, C<Authenticated>,
-C<Selected>, and C<Unconnected>, respectively.  These constants can be
-used in conjunction with the L</Status> method to determine the status
-of an IMAPClient object and its underlying IMAP session.
-
-Note that an IMAPClient object can be in the C<Unconnected> state both
-before a server connection is made and after it has ended.  This
-differs slightly from RFC3501, which does not define a pre-connection
-status.  For a discussion of the methods available for examining the
-IMAPClient object's status, see the section labeled
-L</"Status Methods">, below.
-
-=head2 Advanced Authentication Mechanisms
-
-RFC3501 defines two commands for authenticating to an IMAP server:
-
-=over 4
-
-=item LOGIN
-
-LOGIN is for plain text authentication.
-
-=item AUTHENTICATE
-
-AUTHENTICATE for more advanced and/or secure authentication mechanisms.
-
-=back
-
-Mail::IMAPClient supports the following AUTHENTICATE mechanisms:
-
-=over 4
-
-=item DIGEST-MD5
-
-DIGEST-MD5 authentication requires the L<Authen::SASL> and
-L<Digest::MD5> modules.  See also L</Authuser>.
-
-=item CRAM-MD5
-
-CRAM-MD5 requires the L<Digest::HMAC_MD5> module.
-
-=item PLAIN (SASL)
-
-PLAIN (SASL) authentication allows the optional use of the L</Proxy>
-parameter.  RFC 4616 documents this syntax for SASL PLAIN:
-
-  message = [authzid] UTF8NUL authcid UTF8NUL passwd
-
-When L</Proxy> is defined, L</User> is used as 'authzid' and L</Proxy>
-is used as 'authcid'.  Otherwise, L</User> is used as 'authcid'.
-
-=item NTLM
-
-NTLM authentication requires the L<Authen::NTLM> module.  See also
-L</Domain>.
-
-=back
-
-=head2 Errors
-
-If you attempt an operation that results in an error, then you can
-retrieve the text of the error message by using the L</LastError>
-method.  However, the L</LastError> method is an object method (not a
-class method) and can only be used once an object is successfully
-created.  In cases where an object is not successfully created the
-C<$@> variable is set with an error message.
-
-Mail::IMAPClient resets C<$@> and L</LastError> to undef before most
-IMAP requests, so the values only have a short lifespan.
-L</LastError> will always contain error info from the last error,
-until another error is encountered, another IMAP command is issued or
-it is explicitly cleared.
-
-Please note that the use of C<$@> is subject to change in the future
-release so it is best to use L</LastError> for error checking once a
-Mail::IMAPClient object has been created.
-
-Errors in the L</new> method can prevent your object from ever being
-created.  If the L</Server>, L</User>, and L</Password> parameters are
-supplied to L</new>, it will attempt to call L</connect> and
-L</login>.  Any of these methods could fail and cause the L</new>
-method call to return C<undef> and leaving the variable C<$@> is set
-to an error message.
-
-WARNING: (due to historical API behavior) on errors, many methods may
-return undef regardless of LIST/SCALAR context.  Therefore, it may be
-wise to use most methods in a scalar context.  Regardless, check
-L</LastError> for details on errors.
-
-=head2 Transactions
-
-RFC3501 requires that each line in an IMAP conversation be prefixed
-with a tag.  A typical conversation consists of the client issuing a
-tag-prefixed command string, and the server replying with one of more
-lines of output.  Those lines of output will include a command
-completion status code prefixed by the same tag as the original
-command string.
-
-The IMAPClient module uses a simple counter to ensure that each client
-command is issued with a unique tag value.  This tag value is referred
-to by the IMAPClient module as the transaction number.  A history is
-maintained by the IMAPClient object documenting each transaction.  The
-L</Transaction> method returns the number of the last transaction, and
-can be used to retrieve lines of text from the object's history.
-
-The L</Clear> parameter is used to control the size of the session
-history so that long-running sessions do not eat up unreasonable
-amounts of memory.  See the discussion of L</Clear> parameter for more
-information.
-
-The L</Report> transaction returns the history of the entire IMAP
-session since the initial connection or for the last L</Clear>
-transactions.  This provides a record of the entire conversation,
-including client command strings and server responses, and is a
-wonderful debugging tool as well as a useful source of raw data for
-custom parsing.
-
-=head1 CLASS METHODS
-
-There are a couple of methods that can be invoked as class methods.
-Generally they can be invoked as an object method as well.  Note that
-if the L</new> method is called as an object method, the object
-returned is identical to what have would been returned if L</new> had
-been called as a class method.  It doesn't give you a copy of the
-original object.
-
-=head2 new
-
-Example:
-
-  my $imap = Mail::IMAPClient->new(%args)
-    or die "new failed: $@\n";
-
-The L</new> method creates a new instance of an IMAPClient object.
-
-If the L</Server> parameter is passed as an argument to B<new>, then
-B<new> will implicitly call the L</connect> method, placing the new
-object in the I<Connected> state.  If L</User> and L</Password> values
-are also provided, then L</connect> will in turn call L</login>, and
-the resulting object will be returned from B<new> in the
-I<Authenticated> state.
-
-If the L</Server> parameter is not supplied then the IMAPClient
-object is created in the I<Unconnected> state.
-
-If the B<new> method is passed arguments then those arguments will be
-treated as a list of key=>value pairs.  The key should be one of the
-parameters as documented under L</"Parameters"> below.
-
-Here are some examples:
-
-  use Mail::IMAPClient;
-  
-  # returns an unconnected Mail::IMAPClient object:
-  my $imap = Mail::IMAPClient->new;
-  # ...
-  # intervening code using the 1st object, then:
-  # (returns a new, authenticated Mail::IMAPClient object)
-  $imap = Mail::IMAPClient->new(
-      Server   => $host,
-      User     => $id,
-      Password => $pass,
-      Clear    => 5,   # Unnecessary since '5' is the default
-      # ...            # Other key=>value pairs go here
-  ) or die "Cannot connect to $host as $id: $@";
-
-See also L</Parameters>, L</connect> and L</login> for more
-information on how to manually connect and login after B<new>.
-
-=head2 Quote
-
-Example:
-
-  $imap->search( HEADER => 'Message-id' => \$imap->Quote($msg_id) );
-
-The B<Quote> method accepts a value as an argument and returns its
-argument as a correctly quoted string or a literal string.  Since
-version 3.17 Mail::IMAPClient automatically quotes search arguments we
-use a SCALARREF so search will not modify or re-quote the value
-returned by B<Quote>.
-
-Note this method should not be used on folder names for
-Mail::IMAPClient methods, since methods that accept folder names as an
-argument will quote the folder name arguments automatically.
-
-If you are getting unexpected results when running methods with values
-that have (or might have) embedded spaces, double quotes, braces, or
-parentheses, then calling B<Quote> may be necessary.  This method
-should B<not> be used with arguments that are wrapped in quotes or
-parens if those quotes or parens are required by RFC3501.  For
-example, if the RFC requires an argument in this format:
-
-  ( argument )
-
-and the argument is (or might be) "pennies (from heaven)", then one
-could use:
-
-  $argument = "(" . $imap->Quote($argument) . ")"
-
-Of course, the fact that sometimes these characters are sometimes
-required delimiters is precisely the reason you must quote them when
-they are I<not> delimiting.
-
-However, there are times when a method fails unexpectedly and may
-require the use of B<Quote> to work.  Should this happen, you can
-probably file a bug/enhancement request for Mail::IMAPClient to
-safeguard the particular call/case better.
-
-An example is RFC822 Message-id's, which I<usually> don't contain
-quotes or parens.  When dealing with these it is usually best to take
-proactive, defensive measures from the very start and use B<Quote>.
-
-=head2 Range
-
-Example:
-
-  my $parsed = $imap->parse_headers(
-      $imap->Range( $imap->messages ), "Date", "Subject"
-  );
-
-The B<Range> method will condense a list of message sequence numbers
-or message UID's into the most compact format supported by RFC3501.
-It accepts one or more arguments, each of which can be:
-
-=over 4
-
-=item a) a message number,
-
-=item b) a comma-separated list of message numbers,
-
-=item c) a colon-separated range of message numbers (i.e. "$begin:$end")
-
-=item d) a combination of messages and message ranges, separated by commas
-(i.e. 1,3,5:8,10), or
-
-=item e) a reference to an array whose elements are like I<a)> through I<d)>.
-
-=back
-
-The B<Range> method returns a L<Mail::IMAPClient::MessageSet> object.
-The object uses L<overload> and if treated as a string it will act
-like a string.  This means you can ignore its objectivity and just
-treat it like a string whose value is your message set expressed in
-compact format.
-
-This method provides an easy way to add or remove messages from a
-message set.
-
-For more information see L<Mail::IMAPClient::MessageSet>.
-
-=head2 Rfc3501_date
-
-Example:
-
-  $Rfc3501_date = $imap->Rfc3501_date($seconds);
-  # or:
-  $Rfc3501_date = Mail::IMAPClient->Rfc3501_date($seconds);
-
-The B<Rfc3501_date> method accepts one input argument, a number of
-seconds since the epoch date.  It returns an RFC3501 compliant date
-string for that date (as required in date-related arguments to SEARCH,
-such as "since", "before", etc.).
-
-=head2 Rfc3501_datetime
-
-Example:
-
-  $date = $imap->Rfc3501_datetime($seconds);
-  # or:
-  $date = Mail::IMAPClient->Rfc3501_datetime($seconds);
-
-The B<Rfc3501_datetime> method accepts one or two arguments: a
-obligatory timestamp and an optional zone.  The zone shall be
-formatted as C<< [+-]\d{4} >>, and defaults to C<< +0000 >>.  The
-timestamp follows the definition of the output of the platforms
-specific C<time>, usually in seconds since Jan 1st 1970.  However, you
-have to correct the number yourself for the zone.
-
-=head2 Rfc822_date
-
-Example:
-
-  $Rfc822_date = $imap->Rfc822_date($seconds);
-  # or:
-  $Rfc822_date = Mail::IMAPClient->Rfc822_date($seconds);
-
-The B<Rfc822_date> method accepts one input argument, a number of
-seconds since the epoch date.  It returns an RFC822 compliant date
-string for that date (without the 'Date:' prefix).  Useful for putting
-dates in message strings before calling L</append>, L</search>, etc.
-
-=head2 Strip_cr
-
-Examples:
-
-  my $stripped = $imap->Strip_cr($string);
-  # or:
-  my @list = $imap->some_imap_method;
-  @list = $imap->Strip_cr(@list);
-  # or:
-  my $list = [ $imap->some_imap_method ];   # returns an array ref
-  $list = $imap->Strip_cr($list);
-
-The B<Strip_cr> method strips carriage returns from input and returns
-the new string to the caller.  This method accepts one or more lines
-of text as arguments, and returns those lines with all <CR><LF>
-sequences changed to <LF>.  Any input argument with no carriage
-returns is returned unchanged.  If the first argument (not counting
-the class name or object reference) is an array reference, then
-members of that array are processed as above and subsequent arguments
-are ignored.  If the method is called in scalar context then an array
-reference is returned instead of an array of results.
-
-NOTE: B<Strip_cr> does not remove new line characters.
-
-=head1 OBJECT METHODS
-
-Object methods must be invoked against objects created via the L</new>
-method and cannot be invoked as class methods.
-
-There object methods typically fall into one of two categories.  There
-are mailbox methods which participate in the IMAP session's
-conversation (i.e. they issue IMAP client commands) and object control
-methods which do not result in IMAP commands but which may affect
-later commands or provide details of previous ones.
-
-This object control methods can be further broken  down into two
-types, Parameter accessor methods, which affect the behavior of future
-mailbox methods, and L</"Status Methods">, which report on the affects
-of previous mailbox methods.
-
-Methods that do not result in new IMAP client commands being issued
-(such as the L</Transaction>, L</Status>, and L</History> methods) all
-begin with an uppercase letter, to distinguish them from methods that
-do correspond to IMAP client commands.  Class methods and eponymous
-parameter methods likewise begin with an uppercase letter because they
-also do not correspond to an IMAP client command.
-
-As a general rule, mailbox control methods return C<undef> on failure
-and something besides C<undef> when they succeed.  This rule is
-modified in the case of methods that return search results.  When
-called in a list context, searches that do not find matching results
-return an empty list.  When called in a scalar context, searches with
-no hits return 'undef' instead of an array reference.  If you want to
-know why you received no hits, you should check L</LastError> or
-C<$@>, which will be empty if the search was successful but had no
-matching results but populated with an error message if the search
-encountered a problem (such as invalid parameters).
-
-A number of IMAP commands do not have corresponding Mail::IMAPClient
-methods.  Patches are welcome.  In the pre-2.99 releases of this
-module, they were automatically created (AUTOLOAD), but that was very
-error-prone and stalled the progress of this module.
-
-=head1 Mailbox Control Methods
-
-=head2 append
-
-Example:
-
-  my $uid_or_true = $imap->append( $folder, $msgtext )
-    or die "Could not append: ", $imap->LastError;
-
-WARNING: This method may be deprecated in the future, consider using
-L</append_string> instead of this method.
-
-The B<append> method adds a message to the specified folder.  See
-L</append_string> for details as it is effectively an alias for that
-method.
-
-DEPRECATED BEHAVIOR: Additional arguments are added to the message
-text, separated with <CR><LF>.
-
-=head2 append_string
-
-Example:
-
-   # brackets indicate optional arguments (not array refs):
-   my $uidort = $imap->append_string( $folder, $msgtext [,$flags [,$date ] ] )
-       or die "Could not append_string: ", $imap->LastError;
-
-Arguments:
-
-=over 4
-
-=item $folder
-
-the name of the folder to append the message to
-
-=item $msgtext
-
-the message text (including headers) of the message
-
-=item $flags
-
-An optional list of flags to set.  The list must be specified as
-a space-separated list of flags, including any backslashes that may be
-necessary and optionally enclosed by parenthesis.
-
-=item $date
-
-An optional RFC3501 date argument to set as the internal date.  It
-should be in the format described for I<date_time> fields in RFC3501,
-i.e. "dd-Mon-yyyy hh:mm:ss +0000".
-
-If you want to specify a date/time but you don't want any flags then
-specify I<undef> as the third ($flags) argument.
-
-=back
-
-Returns:
-
-=over 4
-
-=item error: undef
-
-On error, undef can be returned regardless of LIST/SCALAR context.
-Check L</LastError> for details.
-
-=item success: UID or $imap
-
-With UIDPLUS the UID of the new message is returned otherwise a true
-value (currently $self) is returned.
-
-=back
-
-To protect against "bare newlines", B<append> will insert a carriage
-return before any newline that is "bare".
-
-=head2 append_file
-
-Example:
-
-  my $new_msg_uid = $imap->append_file(
-      $folder,
-      $file,
-      [ undef, $flags, $date ] # optional
-  ) or die "Could not append_file: ", $imap->LastError;
-
-The B<append_file> method adds a message to the specified folder.
-Note: The brackets in the example indicate optional arguments; they do
-not mean that the argument should be an array reference.
-
-Arguments:
-
-=over 4
-
-=item $folder
-
-the name of the folder to append the message to
-
-=item $file
-
-a filename, filehandle or SCALAR reference which holds an
-RFC822-formatted message
-
-=item undef
-
-a deprecated argument used as a place holder for backwards
-compatibility
-
-=item $flags
-
-The optional argument is handled the same as append_string.
-
-=item $date
-
-The optional argument is handled the same as append_string (RFC3501
-date), with the exception that if $date is "1" (one) then the
-modification time (mtime) of the file will be used.
-
-=back
-
-Returns:
-
-=over 4
-
-=item error: undef
-
-On error, undef can be returned regardless of LIST/SCALAR context.
-Check L</LastError> for details.
-
-=item success: UID or $imap
-
-With UIDPLUS the UID of the new message is returned otherwise a true
-value (currently $self) is returned.
-
-=back
-
-To protect against "bare newlines", B<append_file> will insert a
-carriage return before any newline that is "bare".
-
-The B<append_file> method provides a mechanism for allowing large
-messages to be appended without holding the whole file in memory.
-
-Version note: In 2.x an optional third argument to use for
-C<input_record_separator> was allowed, however this argument is
-ignored/not supported as of 3.x.
-
-=head2 authenticate
-
-Example:
-
-  $imap->authenticate( $authentication_mechanism, $coderef )
-    or die "Could not authenticate: ", $imap->LastError;
-
-This method implements the AUTHENTICATE IMAP client command.  It can
-be called directly or may be called by L</login> if the
-L</Authmechanism> parameter is set to anything except 'LOGIN'.
-
-The B<authenticate> method accepts two arguments, an authentication
-type to be used (ie CRAM-MD5) and a code or subroutine reference to
-execute to obtain a response.  The B<authenticate> method assumes that
-the authentication type specified in the first argument follows a
-challenge-response flow.  The B<authenticate> method issues the IMAP
-Client AUTHENTICATE command and receives a challenge from the server.
-That challenge (minus any tag prefix or enclosing '+' characters but
-still in the original base64 encoding) is passed as the only argument
-to the code or subroutine referenced in the second argument.  The
-return value from the 2nd argument's code is written to the server as
-is, except that a <CR><LF> sequence is appended if necessary.
-
-If one or both of the arguments are not specified in the call to
-B<authenticate> but their corresponding parameters have been set
-(L</Authmechanism> and L</Authcallback>, respectively) then the parameter
-values are used. Arguments provided to the method call however will
-override parameter settings.
-
-If you do not specify a second argument and you have not set the
-L</Authcallback> parameter, then the first argument must be
-one of the authentication mechanisms for which Mail::IMAPClient
-has built in support.
-
-See also the L</login> method, which is the simplest form of
-authentication defined by RFC3501.
-
-=head2 before
-
-Example:
-
-  my @msgs = $imap->before($Rfc3501_date)
-    or warn "No messages found before $Rfc3501_date.\n";
-
-The B<before> method works just like the L</"since"> method, below,
-except it returns a list of messages whose internal system dates are
-before the date supplied as the argument to the B<before> method.
-
-=head2 body_string
-
-Example:
-
-  my $string = $imap->body_string($msgId)
-    or die "body_string failed: ", $imap->LastError;
-
-The B<body_string> method accepts a message sequence number (or a
-message UID, if the L</Uid> parameter is set to true) as an argument
-and returns the message body as a string.  The returned value contains
-the entire message in one scalar variable, without the message
-headers.
-
-=head2 bodypart_string
-
-Example:
-
-  my $string = $imap->bodypart_string(
-      $msgid, $part_number, $length, $offset
-  ) or die "Could not get bodypart string: ", $imap->LastError;
-
-The B<bodypart_string> method accepts a message sequence number (or a
-message UID, if the L</Uid> parameter is set to true) and a body part
-as arguments and returns the message part as a string.  The returned
-value contains the entire message part (or, optionally, a portion of
-the part) in one scalar variable.
-
-If an optional third argument is provided, that argument is the number
-of bytes to fetch.  (The default is the whole message part.)  If an
-optional fourth argument is provided then that fourth argument is the
-offset into the part at which the fetch should begin.  The default is
-offset zero, or the beginning of the message part.
-
-If you specify an offset without specifying a length then the offset
-will be ignored and the entire part will be returned.
-
-B<bodypart_string> will return C<undef> if it encounters an error.
-
-=head2 capability
-
-Example:
-
-  my $features = $imap->capability
-    or die "Could not determine capability: ", $imap->LastError;
-
-The B<capability> method returns an array (or arrayref in scalar
-context) of capabilities as returned by the CAPABILITY IMAP client
-command.  If the CAPABILITY IMAP client command fails for any reason
-then the B<capability> method will return C<undef>.  Supported
-capabilities are cached by the client, however, this cache is deleted
-after a connection is set to I<Authenticated> and when L</starttls> is
-called.
-
-See also L</has_capability>.
-
-=head2 close
-
-Example:
-
-  $imap->close or die "Could not close: $@\n";
-
-The B<close> method is used to close the currently selected folder via
-the CLOSE IMAP client command.  According to RFC3501, the CLOSE
-command performs an implicit EXPUNGE, which means that any messages
-that are flagged as I<\Deleted> (i.e. with the L</delete_message>
-method) will now be deleted.  If you haven't deleted any messages then
-B<close> can be thought of as an "unselect".
-
-Note: this closes the currently selected folder, not the IMAP session.
-
-See also L</delete_message>, L</expunge>, and RFC3501.
-
-=head2 compress
-
-Example:
-
-  $imap->compress or die "Could not enable RFC4978 compression: $@\n";
-
-The B<compress> method accepts no arguments.  This method is used to
-instruct the server to use the DEFLATE (RFC1951) compression
-extension.  See the L</Compress> attribute for how to specify
-arguments for use during the initialization process.
-
-Version note: method added in Mail::IMAPClient 3.30
-
-=head2 connect
-
-Example:
-
-  $imap->connect or die "Could not connect: $@\n";
-
-The B<connect> method connects an imap object to the server.  It
-returns C<undef> if it fails to connect for any reason.  If values are
-available for the L</User> and L</Password> parameters at the time
-that B<connect> is invoked, then B<connect> will call the L</login>
-method after connecting and return the result of the L</login> method
-to B<connect>'s caller.  If either or both of the L</User> and
-L</Password> parameters are unavailable but the connection to the
-server succeeds then B<connect> returns a pointer to the IMAPClient
-object.
-
-The L</Server> parameter must be set (either during L</new> method
-invocation or via the L</Server> object method) before invoking
-B<connect>.  When the parameter is an absolute file path, an UNIX
-socket will get opened.  If the L</Server> parameter is supplied to
-the L</new> method then B<connect> is implicitly called during object
-construction.
-
-The B<connect> method sets the state of the object to C<Connected> if
-it successfully connects to the server.  It returns C<undef> on
-failure.
-
-=head2 copy
-
-Example:
-
-  # Here brackets indicate optional arguments:
-  my $uidList = $imap->copy($folder, $msg_1 [ , ... , $msg_n ])
-    or die "Could not copy: $@\n";
-
-Or:
-
-  # Now brackets indicate an array ref!
-  my $uidList = $imap->copy($folder, [ $msg_1, ... , $msg_n ])
-    or die "Could not copy: $@\n";
-
-The B<copy> method requires a folder name as the first argument, and a
-list of one or more messages sequence numbers (or messages UID's, if
-the I<UID> parameter is set to a true value).  The message sequence
-numbers or UID's should refer to messages in the currently selected
-folder.  Those messages will be copied into the folder named in the
-first argument.
-
-The B<copy> method returns C<undef> on failure and a true value if
-successful.  If the server to which the current Mail::IMAPClient
-object is connected supports the UIDPLUS capability then the true
-value returned by B<copy> will be a comma separated list of UID's,
-which are the UID's of the newly copied messages in the target folder.
-
-=head2 create
-
-Example:
-
-  $imap->create($new_folder)
-    or die "Could not create $new_folder: $@\n";
-
-The B<create> method accepts one argument, the name of a folder (or
-what RFC3501 calls a "mailbox") to create.  If you specify additional
-arguments to the B<create> method and your server allows additional
-arguments to the CREATE IMAP client command then the extra argument(s)
-will be passed to your server.
-
-If you specify additional arguments to the B<create> method and your
-server does not allow additional arguments to the CREATE IMAP client
-command then the extra argument(s) will still be passed to your server
-and the create will fail.
-
-B<create> returns a true value on success and C<undef> on failure.
-
-=head2 date
-
-Example:
-
-  my $date = $imap->date($msg);
-
-The B<date> method accepts one argument, a message sequence number (or
-a message UID if the L</Uid> parameter is set to a true value).  It
-returns the date of message as specified in the message's RFC822
-"Date: " header, without the "Date: " prefix.
-
-The B<date> method is a short-cut for:
-
-  my $date = $imap->get_header($msg,"Date");
-
-=head2 delete
-
-Example:
-
-  $imap->delete($folder) or die "Could not delete $folder: $@\n";
-
-The B<delete> method accepts a single argument, the name of a folder
-to delete.  It returns a true value on success and C<undef> on
-failure.
-
-=head2 deleteacl
-
-Example:
-
-  $imap->deleteacl( $folder, $userid )
-    or die "Could not delete acl: $@\n";
-
-The B<deleteacl> method accepts two input arguments, a folder name, a
-user id (or authentication identifier, to use the terminology of
-RFC2086).  See RFC2086 for more information.  (This is somewhat
-experimental and its implementation may change.)
-
-=head2 delete_message
-
-Example:
-
-  my @msgs = $imap->seen;
-  scalar(@msgs) and $imap->delete_message(\@msgs)
-    or die "Could not delete_message: $@\n";
-
-The above could also be rewritten like this:
-
-  # scalar context returns array ref
-  my $msgs = scalar($imap->seen);
-
-  scalar(@$msgs) and $imap->delete_message($msgs)
-    or die "Could not delete_message: $@\n";
-
-Or, as a one-liner:
-
-  $imap->delete_message( scalar($imap->seen) )
-    or warn "Could not delete_message: $@\n";
-  # just give warning in case failure is
-  # due to having no 'seen' msgs in the 1st place!
-
-The B<delete_message> method accepts a list of arguments.  If the
-L</Uid> parameter is not set to a true value, then each item in the
-list should be either:
-
-=over 4
-
-=item *
-
-a message sequence number,
-
-=item *
-
-a comma-separated list of message sequence numbers,
-
-=item *
-
-a reference to an array of message sequence numbers, or
-
-=back
-
-If the L</Uid> parameter is set to a true value, then each item in the
-list should be either:
-
-=over 4
-
-=item *
-
-a message UID,
-
-=item *
-
-a comma-separated list of UID's, or
-
-=item *
-
-a reference to an array of message UID's.
-
-=back
-
-The messages identified by the sequence numbers or UID's will be
-deleted.  If successful, B<delete_message> returns the number of
-messages it was told to delete.  However, since the delete is done by
-issuing the I<+FLAGS.SILENT> option of the STORE IMAP client command,
-there is no guarantee that the delete was successful for every
-message.  In this manner the B<delete_message> method sacrifices
-accuracy for speed.  Generally, though, if a single message in a list
-of messages fails to be deleted it's because it was already deleted,
-which is what you wanted anyway so why worry about it? If there is a
-more severe error, i.e. the server replies "NO", "BAD", or, banish the
-thought, "BYE", then B<delete_message> will return C<undef>.
-
-If you must have guaranteed results then use the IMAP STORE client
-command (via the default method) and use the +FLAGS (\Deleted) option,
-and then parse your results manually.
-
-Eg:
-
-  $imap->store( $msg_id, '+FLAGS (\Deleted)' );
-  my @results = $imap->History( $imap->Transaction );
-    ...           # code to parse output goes here
-
-(Frankly I see no reason to bother with any of that; if a message
-doesn't get deleted it's almost always because it's already not there,
-which is what you want anyway.  But 'your mileage may vary' and all
-that.)
-
-The IMAPClient object must be in C<Selected> status to use the
-B<delete_message> method.
-
-B<NOTE>: All the messages identified in the input argument(s) must be in
-the currently selected folder.  Failure to comply with this
-requirement will almost certainly result in the wrong message(s) being
-deleted.
-
-B<ADDITIONAL NOTE>: In the grand tradition of the IMAP protocol,
-deleting a message doesn't actually delete the message.  Really.  If
-you want to make sure the message has been deleted, you need to
-expunge the folder (via the L</expunge> method, which is implemented
-via the default method).  Or at least L</close> it.  This is generally
-considered a feature, since after deleting a message, you can change
-your mind and undelete it at any time before your L</expunge> or
-L</close>.
-
-See also: the L</delete> method, to delete a folder, the L</expunge>
-method, to expunge a folder, the L</restore_message> method to
-undelete a message, and the L</close> method (implemented here via the
-default method) to close a folder.  Oh, and don't forget about RFC3501.
-
-=head2 deny_seeing
-
-Example:
-
-  # Reset all read msgs to unread
-  # (produces error if there are no seen msgs):
-  $imap->deny_seeing( scalar($imap->seen) )
-    or die "Could not deny_seeing: $@\n";
-
-The B<deny_seeing> method accepts a list of one or more message
-sequence numbers, or a single reference to an array of one or more
-message sequence numbers, as its argument(s).  It then unsets the
-"\Seen" flag for those messages (so that you can "deny" that you ever
-saw them).  Of course, if the L</Uid> parameter is set to a true value
-then those message sequence numbers should be unique message id's.
-
-Note that specifying C<$imap-E<gt>deny_seeing(@msgs)> is just a
-shortcut for specifying C<$imap-E<gt>unset_flag("Seen",@msgs)>.
-
-=head2 disconnect
-
-Example:
-
-  $imap->disconnect or warn "Could not logout: $@\n";
-
-This method calls L</logout>, see L</logout> for details.
-
-=head2 done
-
-Example:
-
-  my $tag = $imap->idle or warn "idle failed: $@\n";
-  doSomethingA();
-  my $idlemsgs = $imap->idle_data() or warn "idle_data error: $@\n";
-  doSomethingB();
-  my $results = $imap->done($tag) or warn "Error from done: $@\n";
-
-The B<done> method tells the IMAP server to terminate the IDLE
-command.  The only argument is the I<tag> (identifier) received from
-the previous call to L</idle>.  If I<tag> is not specified a default
-I<tag> based on the B<Count> attribute is assumed to be the I<tag> to
-look for in the response from the server.
-
-If an invalid I<tag> is specified, or the default I<tag> is wrong,
-then B<done> will hang indefinitely or until a timeout occurs.
-
-If B<done> is called when an L</idle> command is not active then the
-server will likely respond with an error like I<* BAD Invalid tag>.
-
-On failure <undef> is returned and L</LastError> is set.
-
-See also L</idle>, L</idle_data> and L</Results>.
-
-=head2 examine
-
-Example:
-
-  $imap->examine($folder) or die "Could not examine: $@\n";
-
-The B<examine> method selects a folder in read-only mode and changes
-the object's state to "Selected".  The folder selected via the
-B<examine> method can be examined but no changes can be made unless it
-is first selected via the L</select> method.
-
-The B<examine> method accepts one argument, which is the name of the
-folder to select.
-
-=head2 exists
-
-Example:
-
-  $imap->exists($folder) or warn "$folder not found: $@\n";
-
-Accepts one argument, a folder name.  Returns true if the folder
-exists or false if it does not exist.
-
-=head2 expunge
-
-Example:
-
-  $imap->expunge($folder) or die "Could not expunge: $@\n";
-
-The B<expunge> method accepts one optional argument, a folder name.
-It expunges the folder specified as the argument, or the currently
-selected folder (if any) when no argument is supplied.
-
-Although RFC3501 does not permit optional arguments (like a folder
-name) to the EXPUNGE client command, the L</expunge> method does.
-Note: expunging a folder deletes the messages that have the \Deleted
-flag set (i.e. messages flagged via L</delete_message>).
-
-See also the L</close> method, which "deselects" as well as expunges.
-
-=head2 fetch
-
-Usage:
-
-  $imap->fetch( [$seq_set|ALL], @msg_data_items )
-
-Example:
-
-  my $output = $imap->fetch(@args) or die "Could not fetch: $@\n";
-
-The B<fetch> method implements the FETCH IMAP client command.  It
-accepts a list of arguments, which will be converted into a
-space-delimited list of arguments to the FETCH IMAP client command.
-If no arguments are supplied then B<fetch> does a FETCH ALL.  If the
-L</Uid> parameter is set to a true value then the first argument will
-be treated as a UID or list of UID's, which means that the UID FETCH
-IMAP client command will be run instead of FETCH.  (It would really be
-a good idea at this point to review RFC3501.)
-
-If called in array context, B<fetch> will return an array of output
-lines.  The output lines will be returned just as they were received
-from the server, so your script will have to be prepared to parse out
-the bits you want.  The only exception to this is literal strings,
-which will be inserted into the output line at the point at which they
-were encountered (without the {nnn} literal field indicator).  See
-RFC3501 for a description of literal fields.
-
-If B<fetch> is called in a scalar context, then a reference to an array
-(as described above) is returned instead of the entire array.
-
-B<fetch> returns C<undef> on failure.  Inspect L</LastError> or C<$@>
-for an explanation of your error.
-
-=head2 fetch_hash
-
-Usage:
-
-  $imap->fetch_hash( [$seq_set|ALL], @msg_data_items, [\%msg_by_ids] )
-
-Examples:
-
-  my $hashref = $imap->fetch_hash("RFC822.SIZE");
-
- OR
-
-  my $hashref = {};
-  $imap->fetch_hash( "RFC822.SIZE", $hashref );
-  print "Msg #$_ is $hashref->{$_}->{'RFC822.SIZE'} bytes\n" for (keys %$hashref);
-
-The B<fetch_hash> method accepts a list of message attributes to be
-fetched (as described in RFC3501).  It returns a hash whose keys are
-all the messages in the currently selected folder and whose values are
-key-value pairs of fetch keywords and the message's value for that
-keyword (see sample output below).
-
-If B<fetch_hash> is called in scalar context, it returns a reference
-to the hash instead of the hash itself.  If the last argument is a hash
-reference, then that hash reference will be used as the place where
-results are stored (and that reference will be returned upon
-successful completion).  If the last argument is not a reference then
-it will be treated as one of the FETCH attributes and a new hash will
-be created and returned (either by value or by reference, depending on
-the context in which B<fetch_hash> was called).
-
-For example, if you have a folder with 3 messages and want the size
-and internal date for each of them, you could do the following:
-
-  use Mail::IMAPClient;
-  use Data::Dumper;
-  # ... other code goes here
-  $imap->select($folder);
-  my $hash = $imap->fetch_hash( "RFC822.SIZE", "INTERNALDATE" );
-  # (Same as:
-  #  my $hash = $imap->fetch_hash("RFC822.SIZE");
-  #  $imap->fetch_hash( "INTERNALDATE", $hash );
-  # ).
-  print Data::Dumper->Dumpxs( [$hash], ['$hash'] );
-
-This would result in L<Data::Dumper> output similar to the following:
-
-   $hash = {
-       '1' => {
-                  'INTERNALDATE' => '21-Sep-2002 18:21:56 +0000',
-                  'RFC822.SIZE' => '1586',
-              },
-       '2' => {
-                  'INTERNALDATE' => '22-Sep-2002 11:29:42 +0000',
-                  'RFC822.SIZE' => '1945',
-              },
-       '3' => {
-                  'INTERNALDATE' => '23-Sep-2002 09:16:51 +0000',
-                  'RFC822.SIZE' => '134314',
-              }
-     };
-
-By itself this method may be useful for tasks like obtaining the size
-of every message in a folder.  It issues one command and receives one
-(possibly long!) response from the server.
-
-If the fetch request causes the server to return data in a
-parenthesized list, the data within the parenthesized list may be
-escaped via the Escape() method. Use the Unescape() method to get the
-raw values back in this case.
-
-=head2 flags
-
-Example:
-
-  my $flags = $imap->flags($msgid)
-    or die "flags failed: $@\n";
-
-The B<flags> method implements the FETCH IMAP client command to list a
-single message's flags.  It accepts one argument, a message sequence
-number (or a message UID, if the L</Uid> parameter is true), and
-returns an array (or a reference to an array, if called in scalar
-context) listing the flags that have been set.  Flag names are
-provided with leading backslashes.
-
-As of version 1.11, you can supply either a list of message id's or a
-reference to an array of message id's (which means either sequence
-number, if the Uid parameter is false, or message UID's, if the Uid
-parameter is true) instead of supplying a single message sequence
-number or UID.  If you do, then the return value will not be an array
-or array reference; instead, it will be a hash reference, with each
-key being a message sequence number (or UID) and each value being a
-reference to an array of flags set for that message.
-
-For example, if you want to display the flags for every message in the
-folder where you store e-mail related to your plans for world
-domination, you could do something like this:
-
-  use Mail::IMAPClient;
-  my $imap = Mail::IMAPClient->new(
-      Server   => $imaphost,
-      User     => $login,
-      Password => $pass,
-      Uid      => 1,        # optional
-  );
-
-  $imap->select("World Domination");
-  # get the flags for every message in my 'World Domination' folder
-  $flaghash = $imap->flags( scalar( $imap->search("ALL") ) );
-
-  # pump through sorted hash keys to print results:
-  for my $k ( sort { $flaghash->{$a} <=> $flaghash->{$b} } keys %$flaghash ) {
-      # print: Message 1: \Flag1, \Flag2, \Flag3
-      print "Message $k:\t", join( ", ", @{$flaghash->{$k}} ), "\n";
-  }
-
-=head2 folders
-
-Example:
-
-  $imap->folders or die "Could not list folders: $@\n";
-
-The B<folders> method returns an array listing the available folders.
-It will only be successful if the object is in the I<Authenticated> or
-I<Selected> states.
-
-The B<folders> method accepts one optional argument, which is a
-prefix.  If a prefix is supplied to the B<folders> method, then only
-folders beginning with the prefix will be returned.
-
-For example:
-
-  print join( ", ", $imap->folders ), ".\n";
-  # Prints:
-  # INBOX, Sent, Projects, Projects/Completed, Projects/Ongoing, Projects Software.
-  print join( ", ", $imap->folders("Projects") ), ".\n";
-  # Prints:
-  # Projects, Projects/Completed, Projects/Ongoing, Projects Software.
-  print join( ", ", $imap->folders("Projects" . $imap->separator) ), ".\n";
-  # Prints:
-  # Projects/Completed, Projects/Ongoing
-
-Please note that documentation previously suggested that if you just
-want to list a folder's subfolders (and not the folder itself), then
-you need to include the hierarchy separator character (as returned by
-the L</separator> method). However, this does not match the behavior
-of the existing implementation, so you will need to manually exclude
-the parent folder from the results.
-
-=head2 folders_hash
-
-  my @fhashes = $imap->folders_hash
-    or die "Could not get list of folder hashes.\n";
-
-The B<folders_hash> method accepts one optional argument, which is a
-prefix.  If a prefix is supplied to the B<folders_hash> method, then
-only folders beginning with the prefix will be returned.
-
-An array(ref) of hashes is returned that contain information about the
-requested folders.  Each hash contains three keys (name, attrs, delim)
-and looks like the following:
-
-  {
-    name  => 'Mail/Box/Name',
-    attrs => [ '\Marked', '\HasNoChildren' ],
-    delim => '/',
-  }
-
-IMAP servers implementing RFC6154 return attributes to be used to
-identify special-use mailboxes (folders).
-
-  my $sattr_re = /\A\\(?:All|Archive|Drafts|Flagged|Junk|Sent|Trash)\Z/;
-  foreach my $fhash (@fhashes) {
-      next unless defined $fhash->{name};
-      my @special = grep { $sattr_re } @{ $fhash->{attrs} };
-      print("special: $fhash->{name} : @special\n") if (@special);
-  }
-
-Version note: method added in Mail::IMAPClient 3.34
-
-=head2 xlist_folders (DEPRECATED)
-
-This method is deprecated as of version 3.34.  Please use folders_hash
-instead.  See RFC6154 for attributes to be used to identify
-special-use mailboxes (folders).
-
-Example:
-
-  my $xlist = $imap->xlist_folders
-    or die "Could not get xlist folders.\n";
-
-IMAP servers implementing the XLIST extension (such as Gmail)
-designate particular folders to be used for particular functions.
-This is useful in the case where you want to know which folder should
-be used for Trash when the actual folder name can't be predicted
-(e.g. in the case of Gmail, the folder names change depending on the
-user's locale settings).
-
-The B<xlist_folders> method returns a hash listing any "xlist" folder
-names, with the values listing the actual folders that should be used
-for those names.  For example, using this method with a Gmail user
-using the English (US) locale might give this output from
-L<Data::Dumper>:
-
-  $VAR1 = {
-      'Inbox'   => 'Inbox',
-      'AllMail' => '[Gmail]/All Mail',
-      'Trash'   => '[Gmail]/Trash',
-      'Drafts'  => '[Gmail]/Drafts',
-      'Sent'    => '[Gmail]/Sent Mail',
-      'Spam'    => '[Gmail]/Spam',
-      'Starred' => '[Gmail]/Starred'
-  };
-
-The same list for a user using the French locale might look like this:
-
-  $VAR1 = {
-      'Inbox'   => 'Bo&AO4-te de r&AOk-ception',
-      'AllMail' => '[Gmail]/Tous les messages',
-      'Trash'   => '[Gmail]/Corbeille',
-      'Drafts'  => '[Gmail]/Brouillons',
-      'Sent'    => '[Gmail]/Messages envoy&AOk-s',
-      'Spam'    => '[Gmail]/Spam',
-      'Starred' => '[Gmail]/Suivis'
-  };
-
-Mail::IMAPClient recognizes the following "xlist" folder names:
-
-=over 4
-
-=item Inbox
-
-=item AllMail
-
-=item Trash
-
-=item Drafts
-
-=item Sent
-
-=item Spam
-
-=item Starred
-
-=back
-
-These are currently the only ones supported by Gmail.  The XLIST
-extension is not documented, and there are no other known
-implementations other than Gmail, so this list is based on what Gmail
-provides.
-
-If the server does not support the XLIST extension, this method
-returns undef.
-
-Version note: method added in Mail::IMAPClient 3.21
-
-=head2 has_capability
-
-Example:
-
-  my $has_feature = $imap->has_capability($feature)
-    or die "Could not do has_capability($feature): $@\n";
-
-Returns:
-
-=over 4
-
-=item C<undef>
-
-If the underlying L</capability> calls fails then C<undef> is
-returned.
-
-=item C<""> or C<()>
-
-If the server does not have the requested capability, then either an
-empty string (C<""> in scalar context) or an empty list (C<()> in list
-context) is returned.
-
-=item a I<true> value
-
-If the server has the requested capability, then a I<true> value is
-returned.  The I<true> value depends upon the server response for the
-capability requested.  The value will be an array reference in scalar
-context or an array in list context. The returned data is useful for
-understanding more about specific capabilities.  For example, consider
-the following server CAPABILITY response:
-
-  * CAPABILITY IMAP4rev1 SORT SORT=DISPLAY I18NLEVEL=1 AUTH=PLAIN AUTH=XTEST
-
-Results are returned as shown by the trailing comments:
-
-  $c = $imap->has_capability("IMAP4rev1");    # [ "IMAP4rev1" ]
-  @c = $imap->has_capability("IMAP4rev1");    # ( "IMAP4rev1" )
-  $c = $imap->has_capability("SORT");         # [ "DISPLAY" ]
-  @c = $imap->has_capability("SORT=DISPLAY"); # ( "SORT=DISPLAY" )
-  $c = $imap->has_capability("AUTH");         # [ "PLAIN", "XTEST" ]
-  @c = $imap->has_capability("AUTH");         # ( "PLAIN", "XTEST" )
-  $c = $imap->has_capability("AUTH=XTEST");   # [ "AUTH=XTEST" ]
-  @c = $imap->has_capability("AUTH=XTEST");   # ( "AUTH=XTEST" )
-  $c = $imap->has_capability("AUTH=NADA");    # ''
-  @c = $imap->has_capability("AUTH=NADA");    # ()
-  $c = $imap->has_capability("NADA");         # ''
-  @c = $imap->has_capability("NADA");         # ()
-
-=back
-
-=head2 idle
-
-Example:
-
-  my $tag = $imap->idle or warn "idle failed: $@\n";
-  doSomethingA();
-  my $idlemsgs = $imap->idle_data() or warn "idle_data error: $@\n";
-  doSomethingB();
-  my $results = $imap->done($tag) or warn "Error from done: $@\n";
-
-The B<idle> method tells the IMAP server the client is ready to accept
-unsolicited mailbox update messages (on the selected folder/mailbox).
-This method is only valid on servers that support the IMAP IDLE
-extension, see RFC2177 for details.
-
-The B<idle> method accepts no arguments and returns the I<tag>
-(identifier) that was sent by the client for this command.  This tag
-should be supplied as the argument to L</done> when ending the IDLE
-command.
-
-On failure <undef> is returned and L</LastError> is set.
-
-The method L</idle_data> may be used once B<idle> has been successful.
-However, no mailbox operations may be called until the B<idle> command
-has been terminated by calling L</done>.  Failure to do so will result
-in an error and the idle command will typically be terminated by the
-server.
-
-See also L</idle_data> and L</done>.
-
-=head2 idle_data
-
-Usage:
-
-  # an optional timeout in seconds may be specified
-  $imap->idle_data( [$timeout] )
-
-Example:
-
-  my $tag = $imap->idle or warn "idle failed: $@\n";
-  doSomethingA();
-  my $idlemsgs = $imap->idle_data() or warn "idle_data error: $@\n";
-  doSomethingB();
-  my $results = $imap->done($tag) or warn "Error from done: $@\n";
-
-The B<idle_data> method can be used to accept any unsolicited mailbox
-update messages that have been sent by the server during an L</idle>
-command.  This method does not send any commands to the server, it
-simply looks for and optionally waits for data from the server and
-returns that data to the caller.
-
-The B<idle_data> method accepts an optional $timeout argument and
-returns an array (or an array reference if called in scalar context)
-with the messages from the server.
-
-By default a timeout of 0 seconds is used (do not block).  Internally
-the timeout is passed to L<perlfunc/select>.  The timeout controls how
-long the select call blocks if there are no messages waiting to be
-read from the server.
-
-On failure <undef> is returned and L</LastError> is set.
-
-See also L</imap> and L</done>.
-
-Version note: method added in Mail::IMAPClient 3.23
-Warning: this method is considered experimental and the
-interface/output may change in a future version.
-
-=head2 imap4rev1
-
-Example:
-
-  $imap->imap4rev1 or die "Could not imap4rev1: $@\n";
-
-Returns true if the IMAP server to which the IMAPClient object is
-connected has the IMAP4REV1 capability.  If the server does not have
-the capability then the empty string "" is returned, if the underlying
-L</capability> calls fails then undef is returned.
-
-=head2 internaldate
-
-Example:
-
-  my $msg_internal_date = $imap->internaldate($msgid)
-    or die "internaldate failed: $@\n";
-
-B<internaldate> accepts one argument, a message id (or UID if the
-L</Uid> parameter is true), and returns that message's internal date
-or undef if the call fails or internal date is not returned.
-
-=head2 get_bodystructure
-
-Example:
-
-  my $bodyStructObject = $imap->get_bodystructure($msgid)
-    or die "Could not get_bodystructure: $@\n";
-
-The B<get_bodystructure> method accepts one argument, a message
-sequence number or, if L</Uid> is true, a message UID.  It obtains the
-message's body structure and returns a parsed
-L<Mail::IMAPClient::BodyStructure> object for the message.
-
-=head2 get_envelope
-
-Example:
-
-  my $envObject = $imap->get_envelope(@args)
-    or die "Could not get_envelope: $@\n";
-
-The B<get_envelope> method accepts one argument, a message sequence
-number or, if L</Uid> is true, a message UID.  It obtains the
-message's envelope and returns a
-B<Mail::IMAPClient::BodyStructure::Envelope> object for the envelope,
-which is just a version of the envelope that's been parsed into a Perl
-object.
-
-For more information on how to use this object once you've gotten it,
-see the L<Mail::IMAPClient::BodyStructure> documentation.  (As of this
-writing there is no separate pod document for
-B<Mail::IMAPClient::BodyStructure::Envelope>.)
-
-=head2 getacl
-
-Example:
-
-  my $hash = $imap->getacl($folder)
-    or die "Could not getacl for $folder: $@\n";
-
-B<getacl> accepts one argument, the name of a folder.  If no argument
-is provided then the currently selected folder is used as the default.
-It returns a reference to a hash.  The keys of the hash are userids
-that have access to the folder, and the value of each element are the
-permissions for that user.  The permissions are listed in a string in
-the order returned from the server with no white space or punctuation
-between them.
-
-=head2 get_header
-
-Example:
-
-  my $messageId = $imap->get_header( $msg, "Message-Id" );
-
-The B<get_header> method accepts two arguments, a message sequence
-number or UID and the name of an RFC822 header (without the trailing
-colon).  It returns the value for that header in the message whose
-sequence number or UID was passed as the first argument.  If no value
-can be found it returns C<undef>; if multiple values are found it
-returns the first one.  Its return value is always a scalar.
-B<get_header> uses case insensitive matching to get the value, so you
-do not have to worry about the case of your second argument.
-
-The B<get_header> method is a short-cut for:
-
-  my $messageId = $imap->parse_headers($msg,"Subject")->{"Subject"}[0];
-
-=head2 getquotaroot
-
-Example:
-
-  my $results = $imap->getquotaroot($mailboxname)
-    or die "Could not getquotaroot for $mailboxname: $@\n";
-
-The B<getquotaroot> method implements the RFC2087 GETQUOTAROOT
-command.  The "$mailboxname" defaults to "INBOX" if no argument is
-provided.
-
-On error C<undef> is returned, otherwise L</Results> are returned.
-The results should have the untagged QUOTAROOT response from the
-server along with the QUOTAROOT's resource usage and limits in an
-untagged QUOTA response.
-
-See also B<RFC2087>, L</getquota>, L</setquota>, L</quota> and L</quota_usage>.
-
-=head2 getquota
-
-Example:
-
-  my $results = $imap->getquota($quotaroot)
-    or die "Could not getquota for $quotaroot: $@\n";
-
-The B<getquota> method implements the RFC2087 GETQUOTA command.  The
-"$quotaroot" defaults to "user/I<User>" if no argument is provided.
-
-On error C<undef> is returned, otherwise L</Results> are returned.
-The results from the server should have the untagged QUOTA response
-from the server.
-
-See also B<RFC2087>, L</getquotaroot>, L</quota> and L</quota_usage>.
-
-=head2 quota
-
-Example:
-
-  my $limit = $imap->quota($quotaroot)
-    or die "Could not get quota limit for $quotaroot: $@\n";
-
-The B<quota> method takes the L</Results> from L<getquota> and parses
-out the "STORAGE" limit returned by the server.  The "$quotaroot"
-defaults to "INBOX" if no argument is provided.
-
-On error C<undef> is returned, otherwise the integer "STORAGE" limit
-provided by the server is returned.
-
-See also B<RFC2087>, L</getquotaroot>, L</getquota> and L</quota_usage>.
-
-=head2 quota_usage
-
-Example:
-
-  my $usage = $imap->quota_usage($quotaroot)
-    or die "Could not get quota usage for $quotaroot: $@\n";
-
-The B<quota_usage> method takes the L</Results> from L<getquota> and
-parses out the "STORAGE" usage returned by the server.  The
-"$quotaroot" defaults to "INBOX" if no argument is provided.
-
-On error C<undef> is returned, otherwise the integer "STORAGE" usage
-provided by the server is returned.
-
-See also B<RFC2087>, L</getquotaroot>, L</getquota> and L</quota>.
-
-=head2 setquota
-
-Example:
-
-  my $results = $imap->setquota( $quotaroot, $resource, $limit )
-    or die "Could not setquota for $quotaroot: $@\n";
-
-The B<setquota> method implements the RFC2087 SETQUOTA command.  It
-accepts multiple pairs of $resource and $limit arguments.  The
-"$quotaroot" defaults to "user/I<User>" if not defined.
-
-On error C<undef> is returned, otherwise L</Results> are returned.
-
-See also B<RFC2087>, L</getquotaroot> and L</getquota>.
-
-=head2 is_parent
-
-Example:
-
-  my $hasKids = $imap->is_parent($folder);
-
-The B<is_parent> method accepts one argument, the name of a folder. It
-returns a value that indicates whether or not the folder has children.
-The value it returns is either:
-
-=over 4
-
-=item C<1> (or a positive integer)
-
-The C<\HasChildren> attribute is set, indicating that the folder has
-children.
-
-=item C<0> (zero)
-
-The C<\HasNoChildren> attribute is set, indicating that the folder has
-no children at this time.
-
-=item C<undef>
-
-The C<\NoInferiors> attribute is set, indicating the folder is not
-permitted to have children.
-
-=back
-
-Eg:
-
-  my $parenthood = $imap->is_parent($folder);
-  if ( defined($parenthood) ) {
-      if ($parenthood) {
-          print "$folder has children.\n";
-      }
-      else {
-          print "$folder is permitted children, but has none.\n";
-      }
-  }
-  else {
-      print "$folder is not permitted to have children.\n";
-  }
-
-=head2 list
-
-Example:
-
-  my @raw_output = $imap->list(@args)
-    or die "Could not list: $@\n";
-
-The B<list> method implements the IMAP LIST client command.  Arguments
-are passed to the IMAP server as received, separated from each other
-by spaces.  If no arguments are supplied then the default list command
-C<tag LIST "" '*'> is issued.
-
-The B<list> method returns an array (or an array reference, if called
-in a scalar context).  The array is the unadulterated output of the
-LIST command.  (If you want your output adulterated then see the
-L</folders> method, above.)
-
-An C<undef> value is returned in case of errors.  Be sure to check for
-it.
-
-=head2 listrights
-
-Example:
-
-  $imap->listrights( $folder, $user )
-    or die "Could not listrights: $@\n";
-
-The B<listrights> method implements the IMAP LISTRIGHTS client command
-(L<RFC2086>).  It accepts two arguments, the foldername and a user id.
-It returns the rights the specified user has for the specified folder.
-If called in a scalar context then the rights are returned a strings,
-with no punctuation or white space or any nonsense like that.  If called
-in array context then B<listrights> returns an array in which each
-element is one right.
-
-=head2 login
-
-Example:
-
-  $imap->login or die "Could not login: $@\n";
-
-The B<login> method implements the IMAP LOGIN client command to log
-into the server.  It automatically calls L</authenticate> if the
-I<Authmechanism> parameter is set to anything except 'LOGIN' otherwise
-a clear text LOGIN is attempted.
-
-The I<User> and I<Password> parameters must be set before the B<login>
-method can be invoked.  On success, a Mail::IMAPClient object with the
-Status of I<Authenticated> is returned.  On failure, undef is returned
-and $@ is set.  The methods L</new>, L</connect>, and L</Socket> may
-automatically invoke B<login> see the documentation of each method for
-details.
-
-If the L</Compress> parameter is set, the L</compress> method will
-automatically be called after successful authentication.
-
-See also L</proxyauth> and L</Proxy> for additional information
-regarding ways of authenticating with a server via SASL and/or
-PROXYAUTH.
-
-=head2 proxyauth
-
-Example:
-
-  $imap->login( "admin", "password" );
-  $imap->proxyauth("someuser");
-
-The B<proxyauth> method implements the IMAP PROXYAUTH client command.
-The command is used by Sun/iPlanet/Netscape IMAP servers to allow an
-administrative user to masquerade as another user.
-
-=head2 logout
-
-Example:
-
-  $imap->logout or die "Could not logout: $@\n";
-
-The B<logout> method implements the LOGOUT IMAP client command.  This
-method causes the server to end the connection and the IMAPClient
-client enters the I<Unconnected> state.  This method does not, destroy
-the IMAPClient object, thus the L</connect> and L</login> methods can
-be used to establish a new IMAP session.
-
-Note that RFC2683 section 3.1.2 (Severed connections) makes some
-recommendations on how IMAP clients should behave.  It is up to the
-user of this module to decide on the preferred behavior and code
-accordingly.
-
-Version note: documentation (from 2.x through 3.23) claimed that
-Mail::IMAPClient would attempt to log out of the server during
-B<DESTROY> if the object is in the L</Connected> state.  This
-documentation was apparently incorrect from at least 2.2.2 and
-possibly earlier versions on up.
-
-=head2 lsub
-
-Example:
-
-  $imap->lsub(@args) or die "Could not lsub: $@\n";
-
-The B<lsub> method implements the IMAP LSUB client command.  Arguments
-are passed to the IMAP server as received, separated from each other
-by spaces.  If no arguments are supplied then the default lsub command
-C<tag LSUB "" '*'> is issued.
-
-The B<lsub> method returns an array (or an array reference, if called
-in a scalar context).  The array is the unaltered output of the LSUB
-command.  If you want an array of subscribed folders then see the
-L</subscribed> method, below.
-
-=head2 mark
-
-Example:
-
-  $imap->mark(@msgs) or die "Could not mark: $@\n";
-
-The B<mark> method accepts a list of one or more messages sequence
-numbers, or a single reference to an array of one or more message
-sequence numbers, as its argument(s).  It then sets the "\Flagged"
-flag for those message(s).  Of course, if the L</Uid> parameter is set
-to a true value then those message sequence numbers had better be
-unique message id's.
-
-Note that specifying C<$imap-E<gt>see(@msgs)> is just a shortcut for
-specifying C<$imap-E<gt>set_flag("Flagged",@msgs)>.
-
-=head2 Massage
-
-Example:
-
-  $imap->search(HEADER => 'Message-id' => $imap->Massage($msg_id,1));
-
-WARNING: This method may be deprecated in the future, consider using
-L</Quote> instead of this method.
-
-The B<Massage> method accepts a value as an argument and, optionally,
-a second value that, when true, indicates that the first argument is
-not the name of an existing folder.
-
-WARNING: If the first argument has double quotes at the beginning and
-end of its value, those double quote will be stripped unless the
-second argument does not evaluate to true.
-
-It returns its argument as a correctly quoted string or a literal
-string.
-
-Note that you should rarely use this on folder names, since methods
-that accept folder names as an argument will call B<Quote> for
-you.
-
-=head2 message_count
-
-Example:
-
-  my $msgcount = $imap->message_count($folder);
-  defined($msgcount) or die "message_count failed: $@\n";
-
-The B<message_count> method accepts the name of a folder as an
-argument and returns the number of messages in that folder.
-Internally, it invokes the L</status> method (see above) and parses
-out the results to obtain the number of messages.  If you don't supply
-an argument to B<message_count> then it will return the number of
-messages in the currently selected folder (assuming of course that
-you've used the L</select> or L</examine> method to select it instead
-of trying something funky).  Note that RFC2683 contains warnings about
-the use of the IMAP I<STATUS> command (and thus the L</status> method
-and therefore the B<message_count> method) against the currently
-selected folder.  You should carefully consider this before using
-B<message_count> on the currently selected folder.  You may be better
-off using L</search> or one of its variants (especially L</messages>),
-and then counting the results.  On the other hand, I regularly violate
-this rule on my server without suffering any dire consequences.  Your
-mileage may vary.
-
-=head2 message_string
-
-Example:
-
-  my $string = $imap->message_string($msgid)
-    or die "message_string failed: $@\n";
-
-The B<message_string> method accepts a message sequence number (or
-message UID if L</Uid> is true) as an argument and returns the message
-as a string.  The returned value contains the entire message in one
-scalar variable, including the message headers.  Note that using this
-method will set the message's "\Seen" flag as a side effect, unless
-I<Peek> is set to a true value.
-
-=head2 message_to_file
-
-Example:
-
-  $imap->message_to_file( $file, @msgs )
-    or die "message_to_file failed: $@\n";
-
-The B<message_to_file> method accepts a filename or file handle and
-one or more message sequence numbers (or message UIDs if L</Uid> is
-true) as arguments and places the message string(s) (including RFC822
-headers) into the file named in the first argument (or prints them to
-the file handle, if a file handle is passed).  The returned value is
-true on success and C<undef> on failure.
-
-If the first argument is a reference, it is assumed to be an open
-file handle and will not be closed when the method completes, If it is
-a file, it is opened in append mode, written to, then closed.
-
-Note that using this method will set the message's "\Seen" flag as a
-side effect.  But you can use the L</deny_seeing> method to set it
-back, or set the L</Peek> parameter to a true value to prevent setting
-the "\Seen" flag at all.
-
-This method currently works by making some basic assumptions about the
-server's behavior, notably that the message text will be returned as a
-literal string but that nothing else will be.  If you have a better
-idea then I'd like to hear it.
-
-=head2 message_uid
-
-Example:
-
-  my $msg_uid = $imap->message_uid($msg_seq_no)
-    or die "Could not get uid for $msg_seq_no: $@\n";
-
-The B<message_uid> method accepts a message sequence number (or
-message UID if L</Uid> is true) as an argument and returns the
-message's UID.  Yes, if L</Uid> is true then it will use the IMAP UID
-FETCH UID client command to obtain and return the very same argument
-you supplied.  This is an IMAP feature so don't complain to me about
-it.
-
-=head2 messages
-
-Example:
-
-  # Get a list of messages in the current folder:
-  my @msgs = $imap->messages or warn "Could not list messages\n";
-  # Get a reference to an array of messages in the current folder:
-  my $msgs = $imap->messages or die "Get messages failed: $@\n";
-
-If called in list context, the B<messages> method returns a list of
-all the messages in the currently selected folder.  If called in
-scalar context, it returns a reference to an array containing all the
-messages in the folder.  This is the same as specifying
-C<$imap-E<gt>L</search>("ALL")>.
-
-An empty list is returned when no messages are found.  On failure
-<undef> is returned and L</LastError> is set.
-
-=head2 migrate
-
-Example:
-
-  $imap_src->migrate( $imap_dest, "ALL", $targetFolder )
-    or die "Could not migrate: ", $imap_src->LastError;
-
-The B<migrate> method copies the indicated message(s) B<from> the
-currently selected folder B<to> another Mail::IMAPClient object's
-session.  It requires these arguments:
-
-=over 4
-
-=item 1.
-
-a reference to the target Mail::IMAPClient object (not the calling
-object, which is connected to the source account);
-
-=item 2.
-
-the message(s) to be copied, specified as either a) the message
-sequence number (or message UID if the UID parameter is true) of a
-single message, b) a reference to an array of message sequence numbers
-(or message UID's if the UID parameter is true) or c) the special
-string "ALL", which is a shortcut for the results of
-C<L</search>("ALL")>.
-
-=item 3.
-
-the name of the destination folder on the target mailbox to receive
-the message(s).  If this argument is not supplied or is I<undef> then
-the currently selected folder on the calling object will be used. The
-destination folder will be automatically created if necessary.
-
-=back
-
-The target ($imap_dest) Mail::IMAPClient object must not be the same
-object as the source ($imap_src).
-
-This method does not attempt to minimize memory usage.  In the future
-it could be enhanced to (optionally) write message data to a temporary
-file to avoid storing the entire message in memory.
-
-To work around potential network timeouts on large messages, consider
-setting L</Reconnectretry> to 1 on both $imap_src and $imap_dest.
-
-See also C<Supportedflags>.
-
-=head2 move
-
-Example:
-
-  my $newUid = $imap->move( $newFolder, $oldUid )
-    or die "Could not move: $@\n";
-  $imap->expunge;
-
-The B<move> method moves messages from the currently selected folder
-to the folder specified in the first argument to B<move>.  If the
-L</Uid> parameter is not true, then the rest of the arguments should
-be either:
-
-=over 4
-
-=item a)
-
-a message sequence number,
-
-=item b)
-
-a comma-separated list of message sequence numbers, or
-
-=item c)
-
-a reference to an array of message sequence numbers.
-
-=back
-
-If the L</Uid> parameter is true, then the arguments should be:
-
-=over 4
-
-=item a)
-
-a message UID,
-
-=item b)
-
-a comma-separated list of message UID's, or
-
-=item c)
-
-a reference to an array of message UID's.
-
-=back
-
-If the target folder does not exist then it will be created.
-
-If move is successful, then it returns a true value.  Furthermore, if
-the Mail::IMAPClient object is connected to a server that has the
-UIDPLUS capability, then the true value will be the comma-separated
-list of UID's for the newly copied messages.  The list will be in the
-order in which the messages were moved which should correspond to the
-order of the message UID provided by the caller.
-
-If the move is not successful then B<move> returns C<undef>.
-
-Note that a move really just involves copying the message to the new
-folder and then setting the I<\Deleted> flag.  To actually delete the
-original message you will need to run L</expunge> (or L</close>).
-
-=head2 namespace
-
-Example:
-
-  my $refs = $imap->namespace
-    or die "namespace failed: $@\n";
-
-The namespace method runs the NAMESPACE IMAP command (as defined in
-RFC 2342).  When called in a list context, it returns a list of three
-references.  Each reference looks like this:
-
-  [
-    [ $prefix_1, $separator_1 ],
-    [ $prefix_2, $separator_2 ],
-    [ $prefix_n, $separator_n ],
-  ]
-
-The first reference provides a list of prefixes and separator
-characters for the available personal namespaces.  The second
-reference provides a list of prefixes and separator characters for the
-available shared namespaces.  The third reference provides a list of
-prefixes and separator characters for the available public namespaces.
-
-If any of the three namespaces are unavailable on the current server
-then an 'undef' is returned instead of a reference.  So for example if
-shared folders were not supported on the server but personal and
-public namespaces were both available (with one namespace each), the
-returned value might resemble this:
-
-  [ [ "", "/" ] , undef, [ "#news", "." ] ];
-
-If the B<namespace> method is called in scalar context, it returns a
-reference to the above-mentioned list of three references, thus
-creating a single structure that would pretty-print something like
-this:
-
-  $VAR1 = [
-      [
-          [ $user_prefix_1, $user_separator_1 ],
-          [ $user_prefix_2, $user_separator_2 ],
-          [ $user_prefix_n, $user_separator_n ],
-      ],                    # or undef
-      [
-          [ $shared_prefix_1, $shared_separator_1 ],
-          [ $shared_prefix_2, $shared_separator_2 ],
-          [ $shared_prefix_n, $shared_separator_n ],
-      ],                    # or undef
-      [
-          [ $public_prefix_1, $public_separator_1 ],
-          [ $public_prefix_2, $public_separator_2 ],
-          [ $public_prefix_n, $public_separator_n ],
-      ],                    # or undef
-  ];
-
-=head2 on
-
-Example:
-
-  my @msgs = $imap->on($Rfc3501_date)
-    or warn "Could not find messages sent on $Rfc3501_date: $@\n";
-
-The B<on> method works just like the L</since> method, below, except
-it returns a list of messages whose internal system dates are the same
-as the date supplied as the argument.
-
-=head2 parse_headers
-
-Example:
-
-  my $hashref = $imap->parse_headers( $msg || \@msgs, "Date", "Subject" )
-    or die "Could not parse_headers: $@\n";
-
-The B<parse_headers> method accepts as arguments a message sequence
-number and a list of header fields.  It returns a hash reference in
-which the keys are the header field names (without the colon) and the
-values are references to arrays of values.  On failure <undef> is
-returned and L</LastError> is set.
-
-A picture would look something like this:
-
-  $hashref = $imap->parse_headers( 1, "Date", "Received", "Subject", "To");
-  $hashref = {
-      "Date"     => [ "Thu, 09 Sep 1999 09:49:04 -0400" ]  ,
-      "Received" => [ q/
-        from mailhub ([111.11.111.111]) by mailhost.bigco.com
-        (Netscape Messaging Server 3.6)  with ESMTP id AAA527D for
-        <bigshot@bigco.com>; Fri, 18 Jun 1999 16:29:07 +0000
-        /, q/
-        from directory-daemon by mailhub.bigco.com (PMDF V5.2-31 #38473)
-        id <0FDJ0010174HF7@mailhub.bigco.com> for bigshot@bigco.com
-        (ORCPT rfc822;big.shot@bigco.com); Fri, 18 Jun 1999 16:29:05 +0000 (GMT)
-        /, q/
-        from someplace ([999.9.99.99]) by smtp-relay.bigco.com (PMDF V5.2-31 #38473)
-        with ESMTP id <0FDJ0000P74H0W@smtp-relay.bigco.com> for big.shot@bigco.com; Fri,
-        18 Jun 1999 16:29:05 +0000 (GMT)
-        /] ,
-      "Subject" => [ qw/ Help! I've fallen and I can't get up!/ ] ,
-      "To"      => [ "Big Shot <big.shot@bigco.com> ] ,
-  };
-
-The text in the example for the "Received" array has been formatted to
-make reading the example easier.  The actual values returned are just
-strings of words separated by spaces and with newlines and carriage
-returns stripped off.  The I<Received> header is probably the main
-reason that the B<parse_headers> method creates a hash of lists rather
-than a hash of values.
-
-If the second argument to B<parse_headers> is 'ALL' or if it is
-unspecified then all available headers are included in the returned
-hash of lists.
-
-If you're not emotionally prepared to deal with a hash of lists then
-you can always call the L</fetch> method yourself with the appropriate
-parameters and parse the data out any way you want to.  Also, in the
-case of headers whose contents are also reflected in the envelope, you
-can use the L</get_envelope> method as an alternative to
-L</parse_headers>.
-
-If the L</Uid> parameter is true then the first argument will be
-treated as a message UID.  If the first argument is a reference to an
-array of message sequence numbers (or UID's if L</Uid> is true), then
-B<parse_headers> will be run against each message in the array.  In
-this case the return value is a hash, in which the key is the message
-sequence number (or UID) and the value is a reference to a hash as
-described above.
-
-An example of using B<parse_headers> to print the date and subject of
-every message in your demo folder could look like this:
-
-  use Mail::IMAPClient;
-  my $imap = Mail::IMAPClient->new(
-      Server => $imaphost, User => $login, Password => $pass, Uid => 1
-  );
-
-  $imap->select("demo");
-
-  my $msgs = $imap->search("ALL");
-  for my $h (
-
-   # get the Subject and Date from every message in folder "demo" the
-   # first arg is a reference to an array listing all messages in the
-   # folder (which is what gets returned by the $imap->search("ALL")
-   # method when called in scalar context) and the remaining arguments
-   # are the fields to parse out The key is the message number, which
-   # in this case we don't care about:
-
-    values %{ $imap->parse_headers( $msgs , "Subject", "Date") } )
-  {
-      # $h is the value of each element in the hash ref returned
-      # from parse_headers, and $h is also a reference to a hash.
-      # We'll only print the first occurrence of each field because
-      # we don't expect more than one Date: or Subject: line per
-      # message.
-      print map { "$_:\t$h->{$_}[0]\n"} keys %$h;
-  }
-
-=head2 recent
-
-Example:
-
-  my @recent = $imap->recent or warn "No recent msgs: $@\n";
-
-The B<recent> method performs an IMAP SEARCH RECENT search against the
-selected folder and returns an array of sequence numbers (or UID's, if
-the L</Uid> parameter is true) of messages that are recent.
-
-=head2 recent_count
-
-Example:
-
-  my $count = 0;
-  defined($count = $imap->recent_count($folder))
-    or die "recent_count failed: $@\n";
-
-The B<recent_count> method accepts as an argument a folder name.  It
-returns the number of recent messages in the folder (as returned by
-the IMAP client command "STATUS folder RECENT"), or C<undef> in the
-case of an error.  The B<recent_count> method was contributed by Rob
-Deker (deker@ikimbo.com).
-
-=head2 noop
-
-Example:
-
-  $imap->noop or die "noop failed: $@\n";
-
-The B<noop> method performs an IMAP NOOP command.  Per RFC3501 this
-command does nothing and always succeeds.  However, if a connection
-times out or other errors occur while communicating with the server,
-this method can still fail.  This command can be used as a periodic
-poll to check for (untagged) status updates (new messages, etc.) from
-the server and also to reset any inactivity/auto-logout timers the
-server may maintain.
-
-=head2 reconnect
-
-Example:
-
-  $imap->noop or $imap->reconnect or die "noop failed: $@\n";
-
-Attempt to reconnect if the IMAP connection unless $imap is already in
-the IsConnected state.  This method calls L</connect> and optionally
-L</select> if a Folder was previously selected.  On success, returns
-the (same) $imap object.  On failure <undef> is returned and
-L</LastError> is set.
-
-Version note: method added in Mail::IMAPClient 3.17
-
-=head2 rename
-
-Example:
-
-  $imap->rename( $oldname, $nedwname )
-    or die "rename failed: $@\n";
-
-The B<rename> method accepts two arguments: the name of an existing
-folder, and a new name for the folder.  The existing folder will be
-renamed to the new name using the RENAME IMAP client command.
-B<rename> will return a true value if successful, or C<undef> if
-unsuccessful.
-
-=head2 restore_message
-
-Example:
-
-  $imap->restore_message(@msgs) or die "restore_message failed: $@\n";
-
-The B<restore_message> method is used to undo a previous
-L</delete_message> operation (but not if there has been an intervening
-L</expunge> or L</close>).  The IMAPClient object must be in
-L</Selected> status to use the B<restore_message> method.
-
-The B<restore_message> method accepts a list of arguments.  If the
-L</Uid> parameter is not set to a true value, then each item in the
-list should be either:
-
-=over 4
-
-=item >
-
-a message sequence number,
-
-=item >
-
-a comma-separated list of message sequence numbers,
-
-=item >
-
-a reference to an array of message sequence numbers, or
-
-=back
-
-If the L</Uid> parameter is set to a true value, then each item in the
-list should be either:
-
-=over 4
-
-=item >
-
-a message UID,
-
-=item >
-
-a comma-separated list of UID's, or
-
-=item >
-
-a reference to an array of message UID's.
-
-=back
-
-The messages identified by the sequence numbers or UID's will have
-their I<\Deleted> flags cleared, effectively "undeleting" the
-messages.  B<restore_message> returns the number of messages it was
-able to restore.
-
-Note that B<restore_messages> is similar to calling
-C<L</unset_flag>("\Deleted",@msgs)>, except that B<restore_messages>
-returns a (slightly) more meaningful value. Also it's easier to type.
-
-=head2 run
-
-Example:
-
-  $imap->run(@args) or die "run failed: $@\n";
-
-The B<run> method is provided to make those uncommon things
-possible... however, we would like you to contribute the knowledge of
-missing features with us.
-
-The B<run> method excepts one or two arguments.  The first argument is
-a string containing an IMAP client command, including a tag and all
-required arguments.  The optional second argument is a string to look
-for that will indicate success.  (The default is C</OK.*/>).  The
-B<run> method returns an array (or arrayref in scalar context) of
-output lines from the command, which you are free to parse as you see
-fit.
-
-The B<run> method does not do any syntax checking, other than
-rudimentary checking for a tag.
-
-When B<run> processes the command, it increments the transaction count
-and saves the command and responses in the History buffer in the same
-way other commands do.  However, it also creates a special entry in
-the History buffer named after the tag supplied in the string passed
-as the first argument.  If you supply a numeric value as the tag then
-you may risk overwriting a previous transaction's entry in the History
-buffer.
-
-If you want the control of B<run> but you don't want to worry about
-tags then see L</"tag_and_run">, below.
-
-=head2 search
-
-Example:
-
-  my $msgs1 = $imap->search(@args);
-  if ($msgs1) {
-      print "search matches: @$msgs1";
-  }
-  else {
-      warn "Error in search: $@\n" if $@;
-  }
-
-  # or  note: be sure to quote string properly
-  my $msgs2 = $imap->search( \( $imap->Quote($msgid), "FROM", q{"me"} ) )
-    or warn "search failed: $@\n";
-
-  # or  note: be sure to quote string properly
-  my $msgs3 = $imap->search('TEXT "string not in mailbox"')
-    or warn "search failed: $@\n";
-
-The B<search> method implements the SEARCH IMAP client command.  Any
-arguments supplied to B<search> are prefixed with a space then
-appended to the SEARCH IMAP client command.  The SEARCH IMAP client
-command allows for many options and arguments.  See RFC3501 for
-details.
-
-As of version 3.17 B<search> tries to "DWIM" by automatically quoting
-things that likely need quotes when the words do not match any of the
-following:
-
-    ALL ANSWERED BCC BEFORE BODY CC DELETED DRAFT FLAGGED
-    FROM HEADER KEYWORD LARGER NEW NOT OLD ON OR RECENT
-    SEEN SENTBEFORE SENTON SENTSINCE SINCE SMALLER SUBJECT
-    TEXT TO UID UNANSWERED UNDELETED UNDRAFT UNFLAGGED
-    UNKEYWORD UNSEEN
-
-The following options exist to avoid the automatic quoting (note:
-caller is responsible for verifying the data sent in these cases is
-properly escaped/quoted):
-
-=over 4
-
-=item *
-
-specify a single string/argument in the call to search.
-
-=item *
-
-specify args as scalar references (SCALAR) and the values of those
-SCALAR refs will be passed along as-is.
-
-=back
-
-The B<search> method returns an array containing sequence numbers of
-messages that passed the SEARCH IMAP client command's search criteria.
-If the L</Uid> parameter is true then the array will contain message
-UID's.  If B<search> is called in scalar context then a pointer to the
-array will be passed, instead of the array itself.  If no messages
-meet the criteria then B<search> returns an empty list (when in list
-context) or C<undef> (in scalar context).
-
-Since a valid, successful search can legitimately return zero matches,
-you may wish to distinguish between a search that correctly returns
-zero hits and a search that has failed for some other reason (i.e.
-invalid search parameters).  Therefore, the C<$@> variable will always
-be cleared before the I<SEARCH> command is issued to the server, and
-will thus remain empty unless the server gives a I<BAD> or I<NO>
-response to the I<SEARCH> command.
-
-=head2 see
-
-Example:
-
-  $imap->see(@msgs) or die "see failed: $@\n";
-
-The B<see> method accepts a list of one or more messages sequence
-numbers, or a single reference to an array of one or more message
-sequence numbers, as its argument(s).  It then sets the I<\Seen> flag
-for those message(s).  Of course, if the L</Uid> parameter is set to a
-true value then those message sequence numbers had better be unique
-message id's, but then you already knew that, didn't you?
-
-Note that specifying C<$imap-E<gt>see(@msgs)> is just a shortcut for
-specifying C<$imap-E<gt>L</set_flag>("Seen",@msgs)>.
-
-=head2 seen
-
-Example:
-
-  my @seenMsgs = $imap->seen or warn "No seen msgs: $@\n";
-
-The B<seen> method performs an IMAP SEARCH SEEN search against the
-selected folder and returns an array of sequence numbers of messages
-that have already been seen (ie their I<\Seen> flag is set).  If the
-L</Uid> parameter is true then an array of message UID's will be
-returned instead.  If called in scalar context than a reference to the
-array (rather than the array itself) will be returned.
-
-=head2 select
-
-Example:
-
-  $imap->select($folder) or die "select failed: $@\n";
-
-The B<select> method selects a folder and changes the object's state
-to I<Selected>.  It accepts one argument, which is the name of the
-folder to select.
-
-=head2 selectable
-
-Example:
-
-  foreach my $f ( grep( $imap->selectable($_), $imap->folders ) ) {
-      $imap->select($f);
-  }
-
-The B<selectable> method accepts one value, a folder name, and returns
-true if the folder is selectable or false if it is not selectable.
-
-=head2 sentbefore
-
-Example:
-
-  my @msgs = $imap->sentbefore($Rfc3501_date)
-    or warn "Could not find any msgs sent before $Rfc3501_date: $@\n";
-
-The B<sentbefore> method works just like L</"sentsince">, below,
-except it searches for messages that were sent before the date
-supplied as an argument to the method.
-
-=head2 senton
-
-Example:
-
-  my @msgs = $imap->senton($Rfc3501_date)
-    or warn "Could not find any messages sent on $Rfc3501_date: $@\n";
-
-The B<senton> method works just like L</"sentsince">, below, except it
-searches for messages that were sent on the exact date supplied as an
-argument to the method.
-
-=head2 sentsince
-
-Example:
-
-  my @msgs = $imap->sentsince($Rfc3501_date)
-    or warn "Could not find any messages sent since $Rfc3501_date: $@\n";
-
-The B<sentsince> method accepts one argument, a date in either epoch
-time format (seconds since 1/1/1970, or as output by
-L<time|perlfunc/time> and as accepted by
-L<localtime|perlfunc/localtime>) or in the I<date_text> format as
-defined in RFC3501 (dd-Mon-yyyy, where Mon is the English-language
-three-letter abbreviation for the month).
-
-It searches for items in the currently selected folder for messages
-sent since the day whose date is provided as the argument.  It uses
-the RFC822 I<Date:> header to determine the I<sentsince> date.
-(Actually, it the server that uses the I<Date:> header; this
-documentation just assumes that the date is coming from the I<Date:>
-header because that's what RFC3501 dictates.)
-
-In the case of arguments supplied as a number of seconds, the returned
-result list will include items sent on or after that day, regardless
-of whether they arrived before the specified time on that day.  The
-IMAP protocol does not support searches at a granularity finer than a
-day, so neither do I.  On the other hand, the only thing I check for
-in a I<date_text> argument is that it matches the pattern
-C</\d\d-\D\D\D-\d\d\d\d/> (notice the lack of anchors), so if your
-server lets you add something extra to a I<date_text> string then so
-will Mail::IMAPClient.
-
-If you'd like, you can use the L</Rfc3501_date> method to convert from
-epoch time (as returned by L<time|perlfunc/time>) into an RFC3501 date
-specification.
-
-=head2 separator
-
-Example:
-
-  my $sepChar = $imap->separator(@args)
-    or die "Could not get separator: $@\n";
-
-The B<separator> method returns the character used as a separator
-character in folder hierarchies.  On UNIX-based servers, this is often
-but not necessarily a forward slash (/).  It accepts one argument, the
-name of a folder whose hierarchy's separator should be returned.  If
-no folder name is supplied then the separator for the INBOX is
-returned, which probably is good enough.
-
-If you want your programs to be portable from IMAP server brand X to
-IMAP server brand Y, then you should never use hard-coded separator
-characters to specify subfolders.  (In fact, it's even more
-complicated than that, since some server don't allow any subfolders at
-all, some only allow subfolders under the "INBOX" folder, and some
-forbid subfolders in the inbox but allow them "next" to the inbox.
-Furthermore, some server implementations do not allow folders to
-contain both subfolders and mail messages; other servers allow this.)
-
-=head2 set_flag
-
-Example:
-
-  $imap->set_flag( "Seen", @msgs )
-    or die "Could not set flag: $@\n";
-
-The B<set_flag> method accepts the name of a flag as its first
-argument and a list of one or more messages sequence numbers, or a
-single reference to an array of one or more message sequence numbers,
-as its next argument(s).  It then sets the flag specified for those
-message(s).  Of course, if the L</Uid> parameter is set to a true
-value then those message sequence numbers had better be unique message
-id's, just as you'd expect.
-
-Note that when specifying the flag in question, the preceding
-backslash (\) is entirely optional.  (For you, that is.
-Mail::IMAPClient still has remember to stick it in there before
-passing the command to the server if the flag is one of the reserved
-flags specified in RFC3501.  This is in fact so important that the
-method checks its argument and adds the backslash when necessary,
-which is why you don't have to worry about it overly much.)
-
-=head2 setacl
-
-Example:
-
-  $imap->setacl( $folder, $userid, $aclstring )
-    or die "Could not set acl: $@\n";
-
-The B<setacl> method accepts three input arguments, a folder name, a
-user id (or authentication identifier, to use the terminology of
-RFC2086), and an access rights modification string.  See RFC2086 for
-more information.  (This is somewhat experimental and its
-implementation may change.)
-
-=head2 since
-
-Example:
-
-  my @msgs = $imap->since($date)
-    or warn "Could not find any messages since $date: $@\n";
-
-The B<since> method accepts a date in either epoch format (seconds
-since 1/1/1970, or as output by L<perlfunc/time> and as accepted by
-L<perlfunc/localtime>) or in the I<date_text> format as defined in
-RFC3501 (dd-Mon-yyyy, where Mon is the English-language three-letter
-abbreviation for the month).  It searches for items in the currently
-selected folder for messages whose internal dates are on or after the
-day whose date is provided as the argument.  It uses the internal
-system date for a message to determine if that message was sent since
-the given date.
-
-In the case of arguments supplied as a number of seconds, the returned
-result list will include items whose internal date is on or after that
-day, regardless of whether they arrived before the specified time on
-that day.
-
-If B<since> is called in a list context then it will return a list of
-messages meeting the I<SEARCH SINCE> criterion, or an empty list if no
-messages meet the criterion.
-
-If B<since> is called in a scalar context then it will return a
-reference to an array of messages meeting the I<SEARCH SINCE>
-criterion, or C<undef> if no messages meet the criterion.
-
-Since B<since> is a front-end to L</search>, some of the same rules
-apply.  For example, the C<$@> variable will always be cleared before
-the I<SEARCH> command is issued to the server, and will thus remain
-empty unless the server gives a I<BAD> or I<NO> response to the
-I<SEARCH> command.
-
-=head2 size
-
-Example:
-
-  my $size = $imap->size($msgId)
-    or die "Could not find size of message $msgId: $@\n";
-
-The B<size> method accepts one input argument, a sequence number (or
-message UID if the L</Uid> parameter is true).  It returns the size of
-the message in the currently selected folder with the supplied
-sequence number (or UID).  The IMAPClient object must be in a
-I<Selected> state in order to use this method.
-
-=head2 sort
-
-Example:
-
-  my @msgs = $imap->sort(@args);
-  warn "Error in sort: $@\n" if $@;
-
-The B<sort> method is just like the L</search> method, only different.
-It implements the SORT extension as described in
-F<https://tools.ietf.org/html/rfc5256>.
-It would be wise to use the L</has_capability> method to verify that
-the SORT capability is available on your server before trying to use
-the B<sort> method.  If you forget to check and you're connecting to a
-server that doesn't have the SORT capability then B<sort> will return
-undef.  L</LastError> will then say you are "BAD".  If your server
-doesn't support the SORT capability then you'll have to use L</search>
-and then sort the results yourself.
-
-The first argument to B<sort> is a space-delimited list of sorting
-criteria.  The Internet Draft that describes SORT requires that this
-list be wrapped in parentheses, even if there is only one sort
-criterion.  If you forget the parentheses then the B<sort> method will
-add them.  But you have to forget both of them, or none.  This isn't
-CMS running under VM!
-
-The second argument is a character set to use for sorting.  Different
-character sets use different sorting orders, so this argument is
-important.  Since all servers must support UTF-8 and US-ASCII if they
-support the SORT capability at all, you can use one of those if you
-don't have some other preferred character set in mind.
-
-The rest of the arguments are searching criteria, just as you would
-supply to the L</search> method.  These are all documented in RFC3501.
-If you just want all of the messages in the currently selected folder
-returned to you in sorted order, use I<ALL> as your only search
-criterion.
-
-The B<sort> method returns an array containing sequence numbers of
-messages that passed the SORT IMAP client command's search criteria.
-If the L</Uid> parameter is true then the array will contain message
-UID's.  If B<sort> is called in scalar context then a pointer to the
-array will be passed, instead of the array itself.  The message
-sequence numbers or unique identifiers are ordered according to the
-sort criteria specified.  The sort criteria are nested in the order
-specified; that is, items are sorted first by the first criterion, and
-within the first criterion they are sorted by the second criterion,
-and so on.
-
-The sort method will clear C<$@> before attempting the I<SORT>
-operation just as the L</search> method does.
-
-=head2 starttls
-
-Example:
-
-  $imap->starttls() or die "starttls failed: $@\n";
-
-The B<starttls> method accepts no arguments.  This method is used to
-upgrade an exiting connection which is not authenticated to a TLS/SSL
-connection by using the IMAP STARTTLS command followed by using the
-B<start_SSL> class method from L<IO::Socket::SSL> to do the necessary
-TLS negotiation.  The negotiation is done in a blocking fashion with a
-default B<Timeout> of 30 seconds.  The arguments used in the call to
-B<start_SSL> can be controlled by setting the Mail::IMAPClient
-L</Starttls> attribute to an ARRAY reference containing the desired
-arguments.
-
-Version note: method added in Mail::IMAPClient 3.22
-
-=head2 status
-
-Example:
-
-  my @rawdata = $imap->status( $folder, qw/(Messages)/ )
-    or die "Error obtaining status: $@\n";
-
-The B<status> method accepts one argument, the name of a folder (or
-mailbox, to use RFC3501's terminology), and returns an array
-containing the results of running the IMAP STATUS client command
-against that folder.  If additional arguments are supplied then they
-are appended to the IMAP STATUS client command string, separated from
-the rest of the string and each other with spaces.
-
-If B<status> is not called in an array context then it returns a
-reference to an array rather than the array itself.
-
-The B<status> method should not be confused with the B<Status> method
-(with an uppercase 'S'), which returns information about the
-IMAPClient object.  (See the section labeled L</"Status Methods">,
-below).
-
-=head2 store
-
-Example:
-
-  $imap->store(@args) or die "Could not store: $@\n";
-
-The B<store> method accepts a message sequence number or
-comma-separated list of message sequence numbers as a first argument,
-a message data item name, and a value for the message data item.
-Currently, data items are the word "FLAGS" followed by a space and a
-list of flags (in parens).  The word "FLAGS" can be modified by
-prefixing it with either a "+" or a "-" (to indicate "add these flags"
-or "remove these flags") and by suffixing it with ".SILENT" (which
-reduces the amount of output from the server; very useful with large
-message sets).  Normally you won't need to call B<store> because there
-are oodles of methods that will invoke store for you with the correct
-arguments.  Furthermore, these methods are friendlier and more
-flexible with regards to how you specify your arguments.  See for
-example L</see>, L</deny_seeing>, L</delete_message>, and
-L</restore_message>.  Or L</mark>, L</unmark>, L</set_flag>, and
-L</unset_flag>.
-
-=head2 subject
-
-Example:
-
-  my $subject = $imap->subject($msg);
-
-The B<subject> method accepts one argument, a message sequence number
-(or a message UID, if the I<Uid> parameter is true).  The text in the
-"Subject" header of that message is returned (without the "Subject: "
-prefix).  This method is a short-cut for:
-
-  my $subject = $imap->get_header($msg, "Subject");
-
-=head2 subscribed
-
-Example:
-
-  my @subscribedFolders = $imap->subscribed
-    or warn "Could not find subscribed folders: $@\n";
-
-The B<subscribed> method works like the B<folders> method, above,
-except that the returned list (or array reference, if called in scalar
-context) contains only the subscribed folders.
-
-Like L</folders>, you can optionally provide a prefix argument to the
-B<subscribed> method.
-
-=head2 tag_and_run
-
-Example:
-
-  my $output = $imap->tag_and_run(@args)
-    or die "Could not tag_and_run: $@\n";
-
-The B<tag_and_run> method accepts one or two arguments.  The first
-argument is a string containing an IMAP client command, without a tag
-but with all required arguments.  The optional second argument is a
-string to look for that will indicate success (without pattern
-delimiters).  The default is C<OK.*>.
-
-The B<tag_and_run> method will prefix your string (from the first
-argument) with the next transaction number and run the command.  It
-returns an array of output lines from the command, which you are free
-to parse as you see fit.  Using this method instead of B<run> (above)
-will free you from having to worry about handling the tags (and from
-worrying about the side affects of naming your own tags).
-
-=head2 uidexpunge
-
-Example:
-
-  $imap->uidexpunge(@uids) or die "Could not uidexpunge: $@\n";
-
-The B<uidexpunge> method implements the UID EXPUNGE IMAP (RFC4315
-UIDPLUS ext) client command to permanently remove all messages that
-have the \Deleted flag set and have a UID that is included in the list
-of UIDs.
-
-B<uidexpunge> returns an array or arrayref (scalar context) of output
-lines returned from the UID EXPUNGE command.
-
-B<uidexpunge> returns undef on failure.
-
-If the server does not support the UIDPLUS extension, this method
-returns undef.
-
-=head2 uidnext
-
-Example:
-
-  my $nextUid = $imap->uidnext($folder) or die "uidnext failed: $@\n";
-
-The B<uidnext> method accepts one argument, the name of a folder, and
-returns the numeric string that is the next available message UID for
-that folder.
-
-=head2 thread
-
-Example:
-
-  my $thread = $imap->thread( $algorithm, $charset, @search_args );
-
-The B<thread> method accepts zero to three arguments.  The first
-argument is the threading algorithm to use, generally either
-I<ORDEREDSUBJECT> or I<REFERENCES>.  The second argument is the
-character set to use, and the third argument is the set of search
-arguments to use.
-
-If the algorithm is not supplied, it defaults to I<REFERENCES> if
-available, or I<ORDEREDSUBJECT> if available.  If neither of these is
-available then the B<thread> method returns undef.
-
-If the character set is not specified it will default to I<UTF-8>.
-
-If the search arguments are not specified, the default is I<ALL>.
-
-If B<thread> is called for an object connected to a server that does
-not support the THREADS extension then the B<thread> method will
-return C<undef>.
-
-The B<threads> method will issue the I<THREAD> command as defined in
-F<https://tools.ietf.org/html/rfc5256>.
-It returns an array of threads.  Each element in the array is either a
-message id or a reference to another array of (sub)threads.
-
-If the L</Uid> parameter is set to a true value then the message id's
-returned in the thread structure will be message UID's.  Otherwise
-they will be message sequence numbers.
-
-=head2 uidvalidity
-
-Example:
-
-  my $validity = $imap->uidvalidity($folder)
-    or die "uidvalidity failed: $@\n";
-
-The B<uidvalidity> method accepts one argument, the name of a folder,
-and returns the numeric string that is the unique identifier validity
-value for the folder.
-
-=head2 unmark
-
-Example:
-
-  $imap->unmark(@msgs) or die "Could not unmark: $@\n";
-
-The B<unmark> method accepts a list of one or more messages sequence
-numbers, or a single reference to an array of one or more message
-sequence numbers, as its argument(s).  It then unsets the I<\Flagged>
-flag for those message(s).  Of course, if the L</Uid> parameter is set
-to a true value then those message sequence numbers should really be
-unique message id's.
-
-Note that specifying C<$imap-E<gt>unmark(@msgs)> is just a shortcut
-for specifying C<$imap-E<gt>unset_flag("Flagged",@msgs)>.
-
-Note also that the I<\Flagged> flag is just one of many possible
-flags.  This is a little confusing, but you'll have to get used to the
-idea that among the reserved flags specified in RFC3501 is one name
-I<\Flagged>.  There is no specific meaning for this flag; it means
-whatever the mailbox owner (or delegate) wants it to mean when it is
-turned on.
-
-=head2 unseen
-
-Example:
-
-  my @unread = $imap->unseen or warn "Could not find unseen msgs: $@\n";
-
-The B<unseen> method performs an IMAP SEARCH UNSEEN search against the
-selected folder and returns an array of sequence numbers of messages
-that have not yet been seen (ie their I<\Seen> flag is not set).  If
-the L</Uid> parameter is true then an array of message UID's will be
-returned instead.  If called in scalar context than a pointer to the
-array (rather than the array itself) will be returned.
-
-=head2 unseen_count
-
-Example:
-
-  foreach my $f ($imap->folders) {
-      print "The $f folder has ",
-        $imap->unseen_count($f)||0, " unseen messages.\n";
-  }
-
-The B<unseen_count> method accepts the name of a folder as an argument
-and returns the number of unseen messages in that folder.  If no
-folder argument is provided then it returns the number of unseen
-messages in the currently selected Folder.
-
-=head2 unset_flag
-
-Example:
-
-  $imap->unset_flag( "\Seen", @msgs )
-    or die "unset_flag failed: $@\n";
-
-The B<unset_flag> method accepts the name of a flag as its first
-argument and a list of one or more messages sequence numbers, or a
-single reference to an array of one or more message sequence numbers,
-as its next argument(s).  It then unsets the flag specified for those
-message(s).  Of course, if the L</Uid> parameter is set to a true
-value then those message sequence numbers had better be unique message
-id's, just as you'd expect.
-
-=head1 Other IMAP Client Commands
-
-Until release C<2.99>, when you called a method which did not exist,
-they where automatically translated into an IMAP call with the same
-name via an AUTOLOAD hack.  This "feature" was removed for various
-reasons: people made typos in the capitalization of method names, and
-the program still seemed to work correctly.  Besides, it blocked
-further development of this module, because people did not contribute
-their private extensions to the protocol implementation.
-
-=head2 copy($msg, $folder)
-
-Copy a message from the currently selected folder in the folder whose
-name is in C<$folder>
-
-=head2 subscribe($folder)
-
-Subscribe to a folder
-
-B<CAUTION:> Once again, remember to quote your quotes (or use the
-L</Quote> method) if you want quotes to be part of the IMAP command
-string.
-
-You can also use the default method to override the behavior of
-implemented IMAP methods by changing the case of the method name,
-preferably to all-uppercase so as not to conflict with the Class
-method and accessor method namespace.  For example, if you don't want
-the L</search> method's behavior (which returns a list of message
-numbers) but would rather have an array of raw data returned from your
-L</search> operation, you can issue the following snippet:
-
-  my @raw = $imap->SEARCH("SUBJECT","Whatever...");
-
-which is slightly more efficient than the equivalent:
-
-  $imap->search("SUBJECT","Whatever...");
-  my @raw = $imap->Results;
-
-Of course you probably want the search results tucked nicely into a
-list for you anyway, in which case you might as well use the
-L</search> method.
-
-=head1 Parameters
-
-There are several parameters that influence the behavior of an
-IMAPClient object.  Each is set by specifying a named value pair
-during new method invocation as follows:
-
-  my $imap = Mail::IMAPClient->new ( parameter  => "value",
-      parameter2 => "value",
-      ...
-  );
-
-Parameters can also be set after an object has been instantiated by
-using the parameter's eponymous accessor method like this:
-
-  my $imap = Mail::IMAPClient->new;
-     $imap->parameter( "value");
-     $imap->parameter2("value");
-
-The eponymous accessor methods can also be used without arguments to
-obtain the current value of the parameter as follows:
-
-  my $imap = Mail::IMAPClient->new;
-     $imap->parameter( "value");
-     $imap->parameter2("value");
-
-    ...    # A whole bunch of awesome Perl code, omitted for brevity
-
-  my $forgot  = $imap->parameter;
-  my $forgot2 = $imap->parameter2;
-
-Note that in these examples I'm using 'parameter' and 'parameter2' as
-generic parameter names.  The IMAPClient object doesn't actually have
-parameters named 'parameter' and 'parameter2'.  On the contrary, the
-available parameters are:
-
-=head2 Authmechanism
-
-Example:
-
-  $imap->Authmechanism("CRAM-MD5");
-  # or
-  my $authmech = $imap->Authmechanism();
-
-If specified, the I<Authmechanism> causes the specified authentication
-mechanism to be used whenever Mail::IMAPClient would otherwise invoke
-B<login>.  If the value specified for the I<Authmechanism> parameter
-is not a valid authentication mechanism for your server then you will
-never ever be able to log in again for the rest of your Perl script,
-probably.  So you might want to check, like this:
-
-  my $authmech = "CRAM-MD5";
-  $imap->has_capability($authmech) and $imap->Authmechanism($authmech);
-
-Of course if you know your server supports your favorite authentication
-mechanism then you know, so you can then include your I<Authmechanism>
-with your B<new> call, as in:
-
-  my $imap = Mail::IMAPClient->new(
-      User    => $user,
-      Passord => $passord,
-      Server  => $server,
-      Authmechanism  => $authmech,
-      %etc
-  );
-
-If I<Authmechanism> is supplied but I<Authcallback> is not then you
-had better be supporting one of the authentication mechanisms that
-Mail::IMAPClient supports "out of the box" (such as CRAM-MD5).
-
-=head2 Authcallback
-
-Example:
-
-  $imap->Authcallback( \&callback );
-
-This specifies a default callback to the default authentication
-mechanism (see L</Authmechanism>, above).  Together, these two methods
-replace automatic calls to login with automatic calls that look like
-this (sort of):
-
-  $imap->authenticate($imap->Authmechanism,$imap->Authcallback);
-
-If I<Authmechanism> is supplied but I<Authcallback> is not then you
-had better be supporting one of the authentication mechanisms that
-Mail::IMAPClient supports "out of the box" (such as CRAM-MD5).
-
-=head2 Authuser
-
-The I<Authuser> parameter is used by the DIGEST-MD5 L</Authmechanism>.
-
-Typically when you authenticate the username specified in the User
-parameter is used.  However, when using the DIGEST-MD5
-I<Authmechanism> the I<Authuser> can be used to specify a different
-username for the login.
-
-This can be useful to mark messages as seen for the I<Authuser> if you
-don't know the password of the user as the seen state is often a
-per-user state.
-
-=head2 Buffer
-
-Example:
-
-  $Buffer = $imap->Buffer();
-  # or:
-  $imap->Buffer($new_value);
-
-The I<Buffer> parameter sets the size of a block of I/O.  It is
-ignored unless L</Fast_io>, below, is set to a true value (the
-default), or unless you are using the L</migrate> method.  It's value
-should be the number of bytes to attempt to read in one I/O operation.
-The default value is 4096.
-
-When using the L</migrate> method, you can often achieve dramatic
-improvements in throughput by adjusting this number upward.  However,
-doing so also entails a memory cost, so if set too high you risk
-losing all the benefits of the L</migrate> method's chunking
-algorithm.  Your program can thus terminate with an "out of memory"
-error and you'll have no one but yourself to blame.
-
-Note that, as hinted above, the I<Buffer> parameter affects the
-behavior of the L</migrate> method regardless of whether you have
-L</Fast_io> turned on.  Believe me, you don't want to go around
-migrating tons of mail without using buffered I/O!
-
-=head2 Clear
-
-Example:
-
-  $Clear = $imap->Clear();
-  # or:
-  $imap->Clear($integer);
-
-The name of this parameter, for historical reasons, is somewhat
-misleading.  It should be named I<Wrap>, because it specifies how many
-transactions are stored in the wrapped history buffer.  But it didn't
-always work that way; the buffer used to actually get cleared.  The
-name though remains the same in the interests of backwards
-compatibility.
-
-I<Clear> specifies that the object's history buffer should be wrapped
-after every I<n> transactions, where I<n> is the value specified for
-the I<Clear> parameter.  Calling the eponymous B<Clear> method without
-an argument will return the current value of the I<Clear> parameter
-but will not cause clear the history buffer to wrap.
-
-Setting I<Clear> to 0 turns off automatic history buffer wrapping, and
-setting it to 1 turns off the history buffer facility (except for the
-last transaction, which cannot be disabled without breaking the
-IMAPClient module).  Setting I<Clear> to 0 will not cause an immediate
-clearing of the history buffer; setting it to 1 (or any other number)
-will (except of course for that inevitable last transaction).
-
-The default I<Clear> value is set to five (5) in order to conserve
-memory.
-
-=head2 Compress
-
-If set, Mail::IMAPClient attempts to enable use of the RFC4978
-COMPRESS DEFLATE extension.  This requires that the server supports
-this CAPABILITY.  This attribute can be set to a true value to enable
-or an ARRAYREF to control the arguments used in the call to
-Compress::Zlib::deflateInit().
-
-Mail::IMAPClient will automatically use L<Compress::Zlib> to
-deflate/inflate the data to/from the server.  This attribute is used
-in the L</login> method.
-
-See also L</compress> and L</capability>.
-
-Version note: attribute added in Mail::IMAPClient 3.30
-
-=head2 Debug
-
-Example:
-
-  $Debug = $imap->Debug();
-  # or:
-  $imap->Debug($true_or_false);
-
-Sets the debugging flag to either a true or false value.  Can be
-supplied with the L</new> method call or separately by calling the
-B<Debug> object method.  Use of this parameter is strongly recommended
-when debugging scripts and required when reporting bugs.
-
-=head2 Debug_fh
-
-Example:
-
-  $Debug_fh = $imap->Debug_fh();
-  # or:
-  $imap->Debug_fh($fileHandle);
-
-Specifies the file handle to which debugging information should be
-printed.  It can either a file handle object reference or a file handle
-glob.  The default is to print debugging info to STDERR.
-
-For example, you can:
-
-  use Mail::IMAPClient;
-  use IO::File;
-  # set $user, $pass, and $server here
-  my $dh = IO::File->new(">debugging.output")
-    or die "Can't open debugging.output: $!\n";
-  my $imap = Mail::IMAPClient->new(
-      User=>$user, Password=>$pass, Server=>$server, Debug=>1, Debug_fh => $dh
-  );
-
-which is the same as:
-
-  use Mail::IMAPClient;
-  use IO::File;
-  # set $user, $pass, and $server here
-  my $imap = Mail::IMAPClient->new(
-      User     => $user,
-      Password => $pass,
-      Server   => $server,
-      Debug    => "yes, please",
-      Debug_fh => IO::File->new(">debugging.output")
-        || die "Can't open debugging.output: $!\n"
-  );
-
-You can also:
-
-  use Mail::IMAPClient;
-  # set $user, $pass, and $server here
-  open(DBG,">debugging.output")
-    or die "Can't open debugging.output: $!\n";
-  my $imap = Mail::IMAPClient->new(
-    User=>$user, Password=>$pass, Server=>$server, Debug=> 1, Debug_fh => *DBG
-  );
-
-Specifying this parameter is not very useful unless L</Debug> is set
-to a true value.
-
-=head2 Domain
-
-The I<Domain> parameter is used by the NTLM L</Authmechanism>.  The
-domain is an optional parameter for NTLM authentication.
-
-=head2 EnableServerResponseInLiteral
-
-Removed in 2.99_01 (now autodetect)
-
-=head2 Fast_io
-
-Example:
-
-  $Fast_io = $imap->Fast_io();
-  # or:
-  $imap->Fast_io($true_or_false);
-
-The I<Fast_io> parameter controls whether or not the Mail::IMAPClient
-object will attempt to use non-blocking I/O on the IMAP socket.  It is
-turned on by default (unless the caller provides the socket to be
-used).
-
-See also L</Buffer>.
-
-=head2 Folder
-
-Example:
-
-  $Folder = $imap->Folder();
-  # or:
-  $imap->Folder($new_value);
-
-The I<Folder> parameter returns the name of the currently-selected
-folder (in case you forgot).  It can also be used to set the name of
-the currently selected folder, which is completely unnecessary if you
-used the L</select> method (or L</select>'s read-only equivalent, the
-L</examine> method) to select it.
-
-Note that setting the I<Folder> parameter does not automatically
-select a new folder; you use the L</select> or L</examine> object
-methods for that.  Generally, the I<Folder> parameter should only be
-queried (by using the no-argument form of the B<Folder> method).  You
-will only need to set the I<Folder> parameter if you use some
-mysterious technique of your own for selecting a folder, which you
-probably won't do.
-
-=head2 Ignoresizeerrors
-
-Certain (caching) servers, like Exchange 2007, often report the wrong
-message size.  Instead of chopping the message into a size that it
-fits the specified size, the reported size will be simply ignored when
-this parameter is set to C<1>.
-
-=head2 Keepalive
-
-Some firewalls and network gear like to timeout connections
-prematurely if the connection sits idle.  The B<Keepalive> parameter,
-when set to a true value, affects the behavior of L</new> and
-L</Socket> by enabling SO_KEEPALIVE on the socket.
-
-Version note: attribute added in Mail::IMAPClient 3.17
-
-=head2 Maxcommandlength
-
-The B<Maxcommandlength> attribute is used by fetch() to limit length
-of commands sent to a server.  The default is 1000 chars, following
-the recommendation of RFC2683 section 3.2.1.5.
-
-B<Note>: this attribute should also be used for several other methods
-but this has not yet been implemented please feel free to file bugs
-for methods where you run into problems with this.
-
-This attribute should remove the need for utilities like imapsync to
-create their own split() functions and instead allows Mail::IMAPClient
-to DWIM.
-
-In practice, this parameter has proven to be useful to overcome a
-limit of 8000 octets for UW-IMAPD and 16384 octets for Courier/Cyrus
-IMAP servers.
-
-Version note: attribute added in Mail::IMAPClient 3.17
-
-=head2 Maxtemperrors
-
-Example:
-
-  $Maxtemperrors = $imap->Maxtemperrors();
-  # or:
-  $imap->Maxtemperrors($number);
-
-The I<Maxtemperrors> parameter specifies the number of times a read or
-write operation is allowed to fail on a "Resource Temporarily
-Available" (e.g. EAGAIN) error.  The default setting is I<undef> which
-means there is no limit.
-
-Setting this parameter to the string "unlimited" (instead of undef) to
-ignore "Resource Temporarily Unavailable" errors is deprecated.
-
-B<Note>: This setting should be used with caution and may be removed
-in a future release.  Setting this can cause methods to return to the
-caller before data is received (and then handled) properly thereby
-possibly then leaving the module in a bad state.  In the future, this
-behavior may be changed in an attempt to avoid this situation.
-
-=head2 Password
-
-Example:
-
-  $Password = $imap->Password();
-  # or:
-  $imap->Password($new_value);
-
-Specifies the password to use when logging into the IMAP service on
-the host specified in the I<Server> parameter as the user specified in
-the I<User> parameter.  Can be supplied with the B<new> method call or
-separately by calling the B<Password> object method.
-
-If I<Server>, I<User>, and I<Password> are all provided to the L</new>
-method, then the newly instantiated object will be connected to the
-host specified in I<Server> (at either the port specified in I<Port>
-or the default port 143) and then logged on as the user specified in
-the I<User> parameter (using the password provided in the I<Password>
-parameter).  See the discussion of the L</"new"> method, below.
-
-=head2 Peek
-
-Example:
-
-  $Peek = $imap->Peek();
-  # or:
-  $imap->Peek($true_or_false);
-
-Setting I<Peek> to a true value will prevent the L</body_string>,
-L</message_string> and L</message_to_file> methods from automatically
-setting the I<\Seen> flag.  Setting L</"Peek"> to 0 (zero) will force
-L</"body_string">, L</"message_string">, L</"message_to_file">, and
-L</"parse_headers"> to always set the I<\Seen> flag.
-
-The default is to set the seen flag whenever you fetch the body of a
-message but not when you just fetch the headers.  Passing I<undef> to
-the eponymous B<Peek> method will reset the I<Peek> parameter to its
-pristine, default state.
-
-=head2 Port
-
-Example:
-
-  $Port = $imap->Port();
-  # or:
-  $imap->Port($new_value);
-
-Specifies the port on which the IMAP server is listening.  A default
-value of 993 (if L</Ssl> is true) or 143 is set during a call to
-L</connect> if no value is provided by the caller.  This argument can
-be supplied with the L</new> method call or separately by calling the
-L</Port> object method.
-
-=head2 Prewritemethod
-
-I<Prewritemethod> parameter should contain a reference to a subroutine
-that will do "special things" to data before it is sent to the IMAP
-server (such as encryption or signing).
-
-This method will be called immediately prior to sending an IMAP client
-command to the server.  Its first argument is a reference to the
-I<Mail::IMAPClient> object and the second argument is a string
-containing the command that will be sent to the server.  Your
-I<Prewritemethod> should return a string that has been signed or
-encrypted or whatever; this returned string is what will actually be
-sent to the server.
-
-Your I<Prewritemethod> will probably need to know more than this to do
-whatever it does.  It is recommended that you tuck all other pertinent
-information into a hash, and store a reference to this hash somewhere
-where your method can get to it, possibly in the I<Mail::IMAPClient>
-object itself.
-
-Note that this method should not actually send anything over the
-socket connection to the server; it merely converts data prior to
-sending.
-
-See also L</Readmethod>.
-
-=head2 Ranges
-
-Example:
-
-  $imap->Ranges(1);
-  # or:
-  my $search = $imap->search(@search_args);
-  if ( $imap->Ranges) { # $search is a MessageSet object
-      print "This is my condensed search result: $search\n";
-      print "This is every message in the search result: ",
-        join(",",@$search),"\n;
-  }
-
-If set to a true value, then the L</search> method will return a
-L<Mail::IMAPClient::MessageSet> object if called in a scalar context,
-instead of the array reference that B<fetch> normally returns when
-called in a scalar context.  If set to zero or if undefined, then
-B<search> will continue to return an array reference when called in
-scalar context.
-
-This parameter has no affect on the B<search> method when B<search>
-is called in a list context.
-
-=head2 RawSocket
-
-Example:
-        $socket = $imap->RawSocket;
-        # or:
-        $imap->RawSocket($socketh);
-
-The I<RawSocket> method can be used to obtain the socket handle of the
-current connection (say, to do I/O on the connection that is not
-otherwise supported by Mail::IMAPClient) or to replace the current
-socket with a new handle (for instance an SSL handle, see
-L<IO::Socket::SSL>, but be sure to see the L</Socket> method as well).
-
-If you supply a socket handle yourself, either by doing something like:
-
-        $imap=Mail::IMAPClient->new(RawSocket => $sock, User => ... );
-
-or by doing something like:
-
-        $imap = Mail::IMAPClient->new(User => $user,
-                    Password => $pass, Server => $host);
-        # blah blah blah
-        $imap->RawSocket($ssl);
-
-then it will be up to you to establish the connection AND to
-authenticate, either via the L</login> method, or the fancier
-L</authenticate>, or, since you know so much anyway, by just doing raw
-I/O against the socket until you're logged in.  If you do any of this
-then you should also set the L</State> parameter yourself to reflect
-the current state of the object (i.e. Connected, Authenticated, etc).
-
-Note that no operation will be attempted on the socket when this
-method is called.  In particular, after the TCP connections towards
-the IMAP server is established, the protocol mandates the server to
-send an initial greeting message, and you will have to explicitly cope
-with this message before doing any other operation, e.g. trying to
-call L</login>. Caveat emptor.
-
-For a more DWIM approach to setting the socket see L</Socket>.
-
-=head2 Readmethod
-
-Example:
-
-  $imap->Readmethod(   # IMAP, HANDLE, BUFFER, LENGTH, OFFSET
-      sub {
-          my ( $self, $handle, $buffer, $count, $offset ) = @_;
-          my $rc = sysread( $handle, $$buffer, $count, $offset );
-          # do something useful here...
-      }
-  );
-
-B<Readmethod> should contain a reference to a subroutine that will
-replace sysread.  The subroutine will be passed the following
-arguments: first the used Mail::IMAPClient object.  Second, a
-reference to a socket.  Third, a reference to a scalar variable into
-which data is read (BUFFER). The data placed here should be "finished
-data", so if you are decrypting or removing signatures then be sure to
-do that before you place data into this buffer.  Fourth, the number of
-bytes requested to be read; the LENGTH of the request.  Lastly, the
-OFFSET into the BUFFER where the data should be read.  If not supplied
-it should default to zero.
-
-Note that this method completely replaces reads from the connection
-to the server, so if you define one of these then your subroutine will
-have to actually do the read.  It is for things like this that we have
-the L</Socket> parameter and eponymous accessor method.
-
-Your I<Readmethod> will probably need to know more than this to do
-whatever it does.  It is recommended that you tuck all other pertinent
-information into a hash, and store a reference to this hash somewhere
-where your method can get to it, possibly in the I<Mail::IMAPClient>
-object itself.
-
-See also L</Prewritemethod>.
-
-=head2 Readmoremethod
-
-B<Readmoremethod> should contain a reference to a subroutine that will
-replace/enhance the behavior of the internal _read_more() method.  The
-subroutine will be passed the following arguments: first the used
-Mail::IMAPClient object.  Second, a reference to a socket.  Third, a
-timeout value which is used as the timeout value for CORE::select() by
-default.  Depending upon changes/features introduced by Readmethod
-changes may be required here.
-
-Version note: attribute added in Mail::IMAPClient 3.30
-
-=head2 Reconnectretry
-
-If an IMAP connection sits idle too long, the connection may be closed
-by the server or firewall, etc.  The B<Reconnectretry> parameter, when
-given a positive integer value, will cause Mail::IMAPClient to
-retrying IMAP commands up to X times when an EPIPE or ECONNRESET error
-occurs.  This is disabled (0) by default.
-
-See also L</Keepalive>
-
-Version note: attribute added in Mail::IMAPClient 3.17
-
-=head2 Server
-
-Example:
-
-  $Server = $imap->Server();
-  # or:
-  $imap->Server($hostname);
-
-Specifies the hostname or IP address of the host running the IMAP
-server.  If provided as part of the L</new> method call, then the new
-IMAP object will automatically be connected at the time of
-instantiation.  (See the L</new> method, below.) Can be supplied with
-the L</new> method call or separately by calling the B<Server> object
-method.
-
-=head2 Showcredentials
-
-Normally debugging output will mask the login credentials when the
-plain text login mechanism is used.  Setting I<Showcredentials> to a
-true value will suppress this, so that you can see the string being
-passed back and forth during plain text login.  Only set this to true
-when you are debugging problems with the IMAP LOGIN command, and then
-turn it off right away when you're finished working on that problem.
-
-Example:
-
-  print "This is very risky!\n" if $imap->Showcredentials();
-  # or:
-  $imap->Showcredentials(0);    # mask credentials again
-
-=head2 Socket
-
-B<PLEASE NOTE> The semantics of this method has changed as of version
-2.99_04 of this module.  If you need the old semantics use
-L</RawSocket>.
-
-Example:
-
-  $Socket = $imap->Socket();
-  # or:
-  $imap->Socket($socket_fh);
-
-The I<Socket> method can be used to obtain the socket handle of the
-current connection.  This may be necessary to do I/O on the connection
-that is not otherwise supported by Mail::IMAPClient) or to replace the
-current socket with a new handle (for instance an SSL handle, see
-IO::Socket::SSL).
-
-If you supply a socket handle yourself, either by doing something like:
-
-  $imap = Mail::IMAPClient->new( Socket => $sock, User => ... );
-
-or by doing something like:
-
-  $imap = Mail::IMAPClient->new(
-    User => $user, Password => $pass, Server => $host
-  );
-  $imap->Socket($ssl);
-
-then you are responsible for establishing the connection, i.e. make
-sure that C<$ssl> in the example is a valid and connected socket.
-
-This method is primarily used to provide a drop-in replacement for
-IO::Socket::(INET|IP), used by L</connect> by default.  In fact, this
-method is called by L</connect> itself after having established a
-suitable IO::Socket::(INET|IP) socket connection towards the target
-server; for this reason, this method also carries the normal
-operations associated with L</connect>, namely:
-
-=over 4
-
-=item *
-
-read the initial greeting message from the server;
-
-=item *
-
-call L</login> if the conditions apply (see L</connect> for details);
-
-=item *
-
-leave the I<Mail::IMAPClient> object in a suitable state.
-
-=back
-
-For these reasons, the following example will work "out of the box":
-
-   use IO::Socket::SSL;
-   my $imap = Mail::IMAPClient->new
-    ( User     => 'your-username',
-      Password => 'your-password',
-      Socket   => IO::Socket::SSL->new
-      (  Proto    => 'tcp',
-         PeerAddr => 'some.imap.server',
-         PeerPort => 993, # IMAP over SSL standard port
-      ),
-   );
-
-If you need more control over the socket, e.g. you have to implement a
-fancier authentication method, see L</RawSocket>.
-
-=head2 Starttls
-
-If an IMAP connection must start TLS/SSL after connecting to a server
-then set this attribute.  If the value is set to an arrayref then they
-will be used as arguments to IO::Socket::SSL->start_SSL.  By default
-this connection is set to blocking while establishing the connection
-with a timeout of 30 seconds.  The socket will be reset to the
-original blocking/non-blocking value after a successful TLS
-negotiation has occurred.  The arguments used in the call to start_SSL
-can be controlled by setting this attribute to an ARRAY reference
-containing the desired arguments.
-
-Version note: attribute added in Mail::IMAPClient 3.22
-
-=head2 Socketargs
-
-The arguments used in the call to IO::Socket::{UNIX|INET|IP|SSL}->new
-can be controlled by setting this attribute to an ARRAY reference
-containing the desired arguments.
-
-For example, to always pass MultiHomed => 1 to IO::Socket::...->new
-the following can be used:
-
-  $imap = Mail::IMAPClient->new(
-    ..., Socketargs => [ MultiHomed => 1 ], ...
-  );
-
-See also L</Ssl> for specific control of the args to IO::Socket::SSL.
-
-Version note: attribute added in Mail::IMAPClient 3.34
-
-=head2 Ssl
-
-If an IMAP connection requires SSL you can set the Ssl attribute to
-'1' and Mail::IMAPClient will automatically use L<IO::Socket::SSL>
-instead of IO::Socket::(INET|IP) to connect to the server.  This
-attribute is used in the L</connect> method.  The arguments used in
-the call to IO::Socket::SSL->new can be controlled by setting this
-attribute to an ARRAY reference containing the desired arguments.
-
-See also L</connect> for details on connection initiation and
-L</Socket> and L</Rawsocket> if you need to take more control of
-connection management.
-
-Version note: attribute added in Mail::IMAPClient 3.18
-
-=head2 Supportedflags
-
-Especially when C<migrate()> is used, the receiving peer may need to
-be configured explicitly with the list of supported flags; that may
-be different from the source IMAP server.
-
-The names are to be specified as an ARRAY.  Black-slashes and casing
-will be ignored.
-
-You may also specify a CODE reference, which will be called for each
-of the flags separately.  In this case, the flags are not (yet)
-normalized.  The returned lists of the CODE calls are shape the
-resulting flag list.
-
-=head2 Timeout
-
-Example:
-
-  $Timeout = $imap->Timeout();
-  # or:
-  $imap->Timeout($seconds);
-
-Specifies the timeout value in seconds for reads (default is 600).
-Specifying a I<Timeout> will prevent Mail::IMAPClient from blocking
-in a read.
-
-Since timeouts are implemented via the Perl L<select|perlfunc/select>
-operator, the I<Timeout> parameter may be set to a fractional number
-of seconds.  Setting I<Timeout> to 0 (zero) disables the timeout
-feature.
-
-=head2 Uid
-
-Example:
-
-  $Uid = $imap->Uid();
-  # or:
-  $imap->Uid($true_or_false);
-
-If L</Uid> is set to a true value (i.e. 1) then the behavior of the
-L</fetch>, L</search>, L</copy>, and L</store> methods (and their
-derivatives) is changed so that arguments that would otherwise be
-message sequence numbers are treated as message UID's and so that
-return values (in the case of the L</search> method and its
-derivatives) that would normally be message sequence numbers are
-instead message UID's.
-
-Internally this is implemented as a switch that, if turned on, causes
-methods that would otherwise issue an IMAP FETCH, STORE, SEARCH, or
-COPY client command to instead issue UID FETCH, UID STORE, UID SEARCH,
-or UID COPY, respectively.  The main difference between message
-sequence numbers and message UID's is that, according to RFC3501,
-UID's must not change during a session and should not change between
-sessions, and must never be reused.  Sequence numbers do not have that
-same guarantee and in fact may be reused right away.
-
-Since folder names also have a unique identifier (UIDVALIDITY), which
-is provided when the folder is L</select>ed or L</examine>d or by
-doing something like "$imap->status($folder,"UIDVALIDITY"), it is
-possible to uniquely identify every message on the server, although
-normally you won't need to bother.
-
-The methods currently affected by turning on the L</Uid> flag are:
-
-  copy            fetch
-  search          store
-  message_string  message_uid
-  body_string     flags
-  move            size
-  parse_headers   thread
-
-Note that if for some reason you only want the L</Uid> parameter turned
-on for one command, then you can choose between the following two
-snippets, which are equivalent:
-
-Example 1:
-
-  $imap->Uid(1);
-  my @uids = $imap->search('SUBJECT',"Just a silly test"); #
-  $imap->Uid(0);
-
-Example 2:
-
-  my @uids;
-  foreach $r ($imap->UID("SEARCH","SUBJECT","Just a silly test") {
-      chomp $r;
-      $r =~ s/\r$//;
-      $r =~ s/^\*\s+SEARCH\s+// or next;
-      push @uids, grep(/\d/,(split(/\s+/,$r)));
-  }
-
-In the second example, we used the default method to issue the UID
-IMAP client command, being careful to use an all-uppercase method name
-so as not to inadvertently call the L</Uid> accessor method.  Then we
-parsed out the message UIDs manually, since we don't have the benefit
-of the built-in L</search> method doing it for us.
-
-Please be very careful when turning the L</Uid> parameter on and off
-throughout a script.  If you loose track of whether you've got the
-L</Uid> parameter turned on you might do something sad, like deleting
-the wrong message.  Remember, like all eponymous accessor methods, the
-B<Uid> method without arguments will return the current value for the
-L</Uid> parameter, so do yourself a favor and check.  The safest
-approach is probably to turn it on at the beginning (or just let it
-default to being on) and then leave it on.  (Remember that leaving it
-turned off can lead to problems if changes to a folder's contents
-cause resequencing.)
-
-By default, the L</Uid> parameter is turned on.
-
-=head2 User
-
-Example:
-
-  $User = $imap->User();
-  # or:
-  $imap->User($userid);
-
-Specifies the userid to use when logging into the IMAP service.  Can
-be supplied with the L</new> method call or separately by calling the
-B<User> object method.
-
-Parameters can be set during L</new> method invocation by passing named
-parameter/value pairs to the method, or later by calling the
-parameter's eponymous object method.
-
-=head1 Status Methods
-
-There are several object methods that return the status of the object.
-They can be used at any time to check the status of an IMAPClient
-object, but are particularly useful for determining the cause of
-failure when a connection and login are attempted as part of a single
-L</new> method invocation.  The status methods are:
-
-=head2 Escaped_history
-
-Example:
-
-  my @history = $imap->Escaped_history;
-
-The B<Escaped_history> method is almost identical to the B<History>
-method.  Unlike the B<History> method, however, server output
-transmitted literally will be wrapped in double quotes, with all
-double quotes, backslashes escaped.  If called in a scalar context,
-B<Escaped_history> returns an array reference rather than an array.
-
-B<Escaped_history> is useful if you are retrieving output and
-processing it manually, and you are depending on the above special
-characters to delimit the data.  It is not useful when retrieving
-message contents; use B<message_string> or B<body_string> for that.
-
-=head2 Escaped_results
-
-Example:
-
-  my @results = $imap->Escaped_results;
-
-The B<Escaped_results> method is almost identical to the B<Results>
-method.  Unlike the B<Results> method, however, server output
-transmitted literally will be wrapped in double quotes, with all
-double quotes, backslashes escaped.  If called in a scalar context,
-B<Escaped_results> returns an array reference rather than an array.
-
-B<Escaped_results> is useful if you are retrieving output and
-processing it manually, and you are depending on the above special
-characters to delimit the data.  It is not useful when retrieving
-message contents; use B<message_string> or B<body_string> for that.
-
-=head2 History
-
-Example:
-
-  my @history = $imap->History;
-
-The B<History> method is almost identical to the L</Results> method.
-Unlike the L</Results> method, however, the IMAP command that was
-issued to create the results being returned is not included in the
-returned results.  If called in a scalar context, B<History> returns
-an array reference rather than an array.
-
-=head2 IsUnconnected
-
-returns a true value if the object is currently in an L</Unconnected>
-state.
-
-=head2 IsConnected
-
-returns a true value if the object is currently in either a
-L</Connected>, L</Authenticated>, or L</Selected> state.
-
-=head2 IsAuthenticated
-
-returns a true value if the object is currently in either an
-L</Authenticated> or L</Selected> state.
-
-=head2 IsSelected
-
-returns a true value if the object is currently in a L</Selected>
-state.
-
-=head2 LastError
-
-Internally B<LastError> is implemented just like a parameter (as
-described in L</"Parameters">, above).  There is a I<LastError>
-attribute and an eponymous accessor method which returns the
-I<LastError> text string describing the last error condition
-encountered by the server.
-
-Note that some errors are more serious than others, so I<LastError>'s
-value is only meaningful if you encounter an error condition that you
-don't like.  For example, if you use the L</exists> method to see if a
-folder exists and the folder does not exist, then an error message
-will be recorded in I<LastError> even though this is not a
-particularly serious error.  On the other hand, if you didn't use
-L</exists> and just tried to L</select> a non-existing folder, then
-L</select> would return C<undef> after setting I<LastError> to
-something like C<NO SELECT failed: Can't open mailbox "mailbox": no
-such mailbox>.  At this point it would be useful to print out the
-contents of I<LastError> as you L<die|perlfunc/die>.
-
-=head2 LastIMAPCommand
-
-New in version 2.0.4, B<LastIMAPCommand> returns the exact IMAP
-command string to be sent to the server.  Useful mainly in
-constructing error messages when L</LastError> just isn't enough.
-
-=head2 Report
-
-The B<Report> method returns an array containing a history of the IMAP
-session up to the point that B<Report> was called.  It is primarily
-meant to assist in debugging but can also be used to retrieve raw
-output for manual parsing.  The value of the L</Clear> parameter
-controls how many transactions are in the report.
-
-=head2 Results
-
-The B<Results> method returns an array containing the results of one
-IMAP client command.  It accepts one argument, the transaction number
-of the command whose results are to be returned.  If transaction
-number is unspecified then B<Results> returns the results of the last
-IMAP client command issued.  If called in a scalar context, B<Results>
-returns an array reference rather than an array.
-
-=head2 State
-
-The B<State> method returns a numerical value that indicates the
-current status of the IMAPClient object.  If invoked with an argument,
-it will set the object's state to that value.  If invoked without an
-argument, it behaves just like L</Status>, below.
-
-Normally you will not have to invoke this function.  An exception is
-if you are bypassing the Mail::IMAPClient module's L</connect> and/or
-L</login> modules to set up your own connection (say, for example,
-over a secure socket), in which case you must manually do what the
-L</connect> and L</login> methods would otherwise do for you.
-
-=head2 Status
-
-The B<Status> method returns a numerical value that indicates the
-current status of the IMAPClient object.  (Not to be confused with the
-L</status> method, all lower-case, which is the implementation of the
-I<STATUS> IMAP client command.)
-
-=head2 Transaction
-
-The B<Transaction> method returns the tag value (or transaction
-number) of the last IMAP client command.
-
-=head1 Custom Authentication Mechanisms
-
-If you just want to use plain text authentication or any of the
-supported L</"Advanced Authentication Mechanisms"> then there is no
-need to read this section.
-
-There are a number of methods and parameters that you can use to build
-your own authentication mechanism.  All of the methods and parameters
-discussed in this section are described in more detail elsewhere in
-this document.  This section provides a starting point for building
-your own authentication mechanism.
-
-There are I<many> authentication mechanisms out there, if your
-preferred mechanism is not currently supported but you manage to get
-it working please consider donating them to this module.  Patches and
-suggestions are always welcome.
-
-Support for add-on authentication mechanisms in Mail::IMAPClient is
-pretty straight forward.  You create a callback to be used to provide
-the response to the server's challenge.  The L</Authcallback> parameter
-contains a reference to the callback, which can be an anonymous
-subroutine or a named subroutine.  Then, you identify your
-authentication mechanism, either via the L</Authmechanism> parameter or
-as an argument to L</authenticate>.
-
-You may also need to provide a subroutine to encrypt (or whatever)
-data before it is sent to the server.  The L</Prewritemethod> parameter
-must contain a reference to this subroutine.  And, you will need to
-decrypt data from the server; a reference to the subroutine that does
-this must be stored in the L</Readmethod> parameter.
-
-This framework is based on the assumptions that a) the mechanism you
-are using requires a challenge-response exchange, and b) the mechanism
-does not fundamentally alter the exchange between client and server
-but merely wraps the exchange in a layer of encryption.  It also
-assumes that the line-oriented nature of the IMAP conversation is
-preserved; authentication mechanisms that break up messages into
-blocks of a predetermined size may still be possible but will
-certainly be more difficult to implement.
-
-Alternatively, if you have access to B<imtest>, a utility included in
-the Cyrus IMAP distribution, you can use that utility to broker your
-communications with the IMAP server.  This is quite easy to implement.
-An example, F<examples/imtestExample.pl>, can be found in the
-C<examples> subdirectory of the source distribution.
-
-The following list summarizes the methods and parameters that you may
-find useful in implementing advanced authentication:
-
-=over 4
-
-=item The authenticate method
-
-The L</authenticate> method uses the L</Authmechanism> parameter to
-determine how to authenticate with the server see the method
-documentation for details.
-
-=item Socket and RawSocket
-
-The L</Socket> and L</RawSocket> methods provide access to the socket
-connection.  The socket is typically automatically created by the
-L</connect> method, but if you are implementing an advanced
-authentication technique you may choose to set up your own socket
-connection and then set this parameter manually, bypassing the
-B<connect> method completely.  This is also useful if you want to use
-IO::Socket::(INET|IP) alternatives like IO::Socket::SSL and need full
-control.
-
-L</RawSocket> simply gets/sets the socket without attempting any
-interaction on it.  In this case, you have to be sure to handle all
-the preliminary operations and manually set the Mail::IMAPClient
-object in sync with its actual status with respect to this socket (see
-below for additional parameters regarding this, especially the
-L</State> parameter).
-
-Unlike L</RawSocket>, L</Socket> attempts to carry on preliminary
-connection phases if the conditions apply.  If both parameters are
-present, this takes the precedence over L</RawSocket>.  If
-L</Starttls> is set, then the L</starttls> method will be called by
-L</Socket>.
-
-B<PLEASE NOTE> As of version 2.99_04 of this module, semantics for
-L</Socket> have changed to make it more "DWIM".  L</RawSocket> was
-introduced as a replacement for the L</Socket> parameter in older
-version.
-
-=item State, Server, User, Password, Proxy and Domain Parameters
-
-If you need to make your own connection to the server and perform your
-authentication manually, then you can set these parameters to keep
-your Mail::IMAPClient object in sync with its actual status.  Of
-these, only the L</State> parameter is always necessary.  The others
-need to be set only if you think your program will need them later.
-
-=item Authmechanism
-
-Set this to the value that AUTHENTICATE should send to the server as
-the authentication mechanism.  If you are brokering your own
-authentication then this parameter may be less useful.  It exists
-primarily so that you can set it when you call L</new> to instantiate
-your object.  The L</new> method will call L</connect>, which will
-call L</login>.  If L</login> sees that you have set an
-B<Authmechanism> then it will call B<authenticate>, using your
-B<Authmechanism> and B<Authcallback> parameters as arguments.
-
-=item Authcallback
-
-The L</Authcallback>, if set, holds a pointer to a subroutine
-(CODEREF).  The L</login> method will use this as the callback
-argument to the B<authenticate> method if the B<Authmechanism> and
-B<Authcallback> parameters are both set.  If you set B<Authmechanism>
-but not B<Authcallback> then the default callback for your mechanism
-will be used.  All supported authentication mechanisms have a default
-callback; in every other case not supplying the callback results in an
-error.
-
-Most advanced authentication mechanisms require a challenge-response
-exchange.  After the L</authenticate> method sends "<tag> AUTHENTICATE
-<Authmechanism>\015\012" to the IMAP server, the server replies with a
-challenge.  The L</authenticate> method then invokes the code whose
-reference is stored in the B<Authcallback> parameter as follows:
-
-  $Authcallback->( $challenge, $imap )
-
-where C<$Authcallback> is the code reference stored in the
-B<Authcallback> parameter, C<$challenge> is the challenge received
-from the IMAP server, and C<$imap> is a pointer to the
-Mail::IMAPClient object.  The return value from the B<Authcallback>
-routine should be the response to the challenge, and that return value
-will be sent by the L</authenticate> method to the server.
-
-=item Prewritemethod/Readmethod
-
-The B<Prewritemethod> can hold a subroutine that will do whatever
-encryption is necessary and then return the result to the caller so it
-in turn can be sent to the server.
-
-The B<Readmethod> can hold a subroutine to be used to replace
-B<sysread> usually performed by Mail::IMAPClient.
-
-See L</Prewritemethod> and L</Readmethod> for details.
-
-=back
-
-=head1 REPORTING BUGS
-
-Please send bug reports to C<bug-Mail-IMAPClient@rt.cpan.org> or
-https://rt.cpan.org/Public/Dist/Display.html?Name=Mail-IMAPClient
-
-=head1 COPYRIGHT AND LICENSE
-
-  Copyright (C) 1999-2003 The Kernen Group, Inc.
-  Copyright (C) 2007-2009 Mark Overmeer
-  Copyright (C) 2010-2019 Phil Pearl (Lobbes)
-  All rights reserved.
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.8.0 or,
-at your option, any later version of Perl 5 you may have available.
-
-This program is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either the
-GNU General Public License or the Artistic License for more details.
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure.pm b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure.pm
deleted file mode 100644
index c54ff0d..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure.pm
+++ /dev/null
@@ -1,576 +0,0 @@
-use warnings;
-use strict;
-
-package Mail::IMAPClient::BodyStructure;
-use Mail::IMAPClient::BodyStructure::Parse;
-
-# BUG?: old code used name "HEAD" instead of "HEADER", change?
-my $HEAD = "HEAD";
-
-# my has file scope, not limited to package!
-my $parser = Mail::IMAPClient::BodyStructure::Parse->new
-  or die "Cannot parse rules: $@\n"
-  . "Try remaking Mail::IMAPClient::BodyStructure::Parse.\n";
-
-sub new {
-    my $class         = shift;
-    my $bodystructure = shift;
-
-    my $self = $parser->start($bodystructure)
-      or return undef;
-
-    $self->{_prefix} = "";
-    $self->{_id}     = exists $self->{bodystructure} ? $HEAD : 1;
-    $self->{_top}    = 1;
-
-    bless $self, ref($class) || $class;
-}
-
-sub _get_thingy {
-    my $thingy = shift;
-    my $object = shift || ( ref $thingy ? $thingy : undef );
-
-    unless ( $object && ref $object ) {
-        warn $@ = "No argument passed to $thingy method.";
-        return undef;
-    }
-
-    unless ( UNIVERSAL::isa( $object, 'HASH' ) && exists $object->{$thingy} ) {
-        my $a = $thingy =~ /^[aeiou]/i ? 'an' : 'a';
-        my $has = ref $object eq 'HASH' ? join( ", ", keys %$object ) : '';
-        warn $@ =
-            ref($object)
-          . " $object does not have $a $thingy. "
-          . ( $has ? "It has $has" : '' );
-        return undef;
-    }
-
-    my $value = $object->{$thingy};
-    $value =~ s/\\ ( [\\\(\)"\x0d\x0a] )/$1/gx;
-    $value =~ s/^"(.*)"$/$1/;
-    $value;
-}
-
-BEGIN {
-    no strict 'refs';
-    foreach my $datum (
-        qw/ bodytype bodysubtype bodyparms bodydisp bodyid bodydesc bodyenc
-        bodysize bodylang envelopestruct textlines /
-      )
-    {
-        *$datum = sub { _get_thingy( $datum, @_ ) };
-    }
-}
-
-sub parts {
-    my $self = shift;
-    return wantarray ? @{ $self->{PartsList} } : $self->{PartsList}
-      if exists $self->{PartsList};
-
-    my @parts;
-    $self->{PartsList} = \@parts;
-
-    # BUG?: should this default to ($HEAD, TEXT)
-    unless ( exists $self->{bodystructure} ) {
-        $self->{PartsIndex}{1} = $self;
-        @parts = ( $HEAD, 1 );
-        return wantarray ? @parts : \@parts;
-    }
-
-    foreach my $p ( $self->bodystructure ) {
-        my $id = $p->id;
-        push @parts, $id;
-        $self->{PartsIndex}{$id} = $p;
-        my $type = uc $p->bodytype || '';
-
-        push @parts, "$id.$HEAD"
-          if $type eq 'MESSAGE';
-    }
-
-    wantarray ? @parts : \@parts;
-}
-
-sub bodystructure {
-    my $self   = shift;
-    my $partno = 0;
-    my @parts;
-
-    if ( $self->{_top} ) {
-        $self->{_id}     ||= $HEAD;
-        $self->{_prefix} ||= $HEAD;
-        $partno = 0;
-        foreach my $b ( @{ $self->{bodystructure} } ) {
-            $b->{_id}     = ++$partno;
-            $b->{_prefix} = $partno;
-            push @parts, $b, $b->bodystructure;
-        }
-        return wantarray ? @parts : \@parts;
-    }
-
-    my $prefix = $self->{_prefix} || "";
-    $prefix =~ s/\.?$/./;
-
-    foreach my $p ( @{ $self->{bodystructure} } ) {
-        $partno++;
-
-        # BUG?: old code didn't add .TEXT sections, should we skip these?
-        # - This code needs to be generalised (maybe it belongs in parts()?)
-        # - Should every message should have HEAD (actually MIME) and TEXT?
-        #   at least dovecot and iplanet appear to allow this even for
-        #   non-multipart sections
-        my $pno   = $partno;
-        my $stype = $self->{bodytype} || "";
-        my $ptype = $p->{bodytype} || "";
-
-        # a message and the multipart inside of it "collapse together"
-        if ( $partno == 1 and $stype eq 'MESSAGE' and $ptype eq 'MULTIPART' ) {
-            $pno = "TEXT";
-            $p->{_prefix} = "$prefix";
-        }
-        else {
-            $p->{_prefix} = "$prefix$partno";
-        }
-        $p->{_id} ||= "$prefix$pno";
-
-        push @parts, $p, $p->{bodystructure} ? $p->bodystructure : ();
-    }
-
-    wantarray ? @parts : \@parts;
-}
-
-sub id {
-    my $self = shift;
-    return $self->{_id}
-      if exists $self->{_id};
-
-    return $HEAD
-      if $self->{_top};
-
-    # BUG?: can this be removed? ... seems wrong
-    if ( $self->{bodytype} eq 'MULTIPART' ) {
-        my $p = $self->{_id} || $self->{_prefix};
-        $p =~ s/\.$//;
-        return $p;
-    }
-    else {
-        return $self->{_id} ||= 1;
-    }
-}
-
-package Mail::IMAPClient::BodyStructure::Part;
-our @ISA = qw/Mail::IMAPClient::BodyStructure/;
-
-package Mail::IMAPClient::BodyStructure::Envelope;
-our @ISA = qw/Mail::IMAPClient::BodyStructure/;
-
-sub new {
-    my ( $class, $envelope ) = @_;
-    $parser->envelope($envelope);
-}
-
-sub parse_string {
-    my ( $class, $envelope ) = @_;
-    $envelope = "(" . $envelope . ")" unless ( $envelope =~ /^\(/ );
-    $parser->envelopestruct($envelope);
-}
-
-sub from_addresses    { shift->_addresses( from    => 1 ) }
-sub sender_addresses  { shift->_addresses( sender  => 1 ) }
-sub replyto_addresses { shift->_addresses( replyto => 1 ) }
-sub to_addresses      { shift->_addresses( to      => 0 ) }
-sub cc_addresses      { shift->_addresses( cc      => 0 ) }
-sub bcc_addresses     { shift->_addresses( bcc     => 0 ) }
-
-sub _addresses($$$) {
-    my ( $self, $name, $isSender ) = @_;
-    ref $self->{$name} eq 'ARRAY'
-      or return ();
-
-    my @list;
-    foreach ( @{ $self->{$name} } ) {
-        my $pn = $_->personalname;
-        my $name = $pn && $pn ne 'NIL' ? "$pn " : '';
-        push @list, $name . '<' . $_->mailboxname . '@' . $_->hostname . '>';
-    }
-
-    wantarray     ? @list
-      : $isSender ? $list[0]
-      :             \@list;
-}
-
-BEGIN {
-    no strict 'refs';
-    for my $datum (
-        qw(subject inreplyto from messageid bcc date
-        replyto to sender cc)
-      )
-    {
-        *$datum = sub { @_ > 1 ? $_[0]->{$datum} = $_[1] : $_[0]->{$datum} }
-    }
-}
-
-package Mail::IMAPClient::BodyStructure::Address;
-our @ISA = qw/Mail::IMAPClient::BodyStructure/;
-
-for my $datum (qw(personalname mailboxname hostname sourcename)) {
-    no strict 'refs';
-    *$datum = sub { shift->{$datum}; };
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Mail::IMAPClient::BodyStructure - parse fetched results
-
-=head1 SYNOPSIS
-
-  use Mail::IMAPClient;
-  use Mail::IMAPClient::BodyStructure;
-
-  my $imap = Mail::IMAPClient->new(
-      Server => $server, User => $login, Password => $pass
-  );
-
-  $imap->select("INBOX") or die "Could not select INBOX: $@\n";
-
-  my @recent = $imap->search("recent") or die "No recent msgs in INBOX\n";
-
-  foreach my $id (@recent) {
-      my $bsdat = $imap->fetch( $id, "bodystructure" );
-      my $bso   = Mail::IMAPClient::BodyStructure->new( join("", $imap->History) );
-      my $mime  = $bso->bodytype . "/" . $bso->bodysubtype;
-      my $parts = map( "\n\t" . $_, $bso->parts );
-      print "Msg $id (Content-type: $mime) contains these parts:$parts\n";
-  }
-
-=head1 DESCRIPTION
-
-This extension will parse the result of an IMAP FETCH BODYSTRUCTURE
-command into a perl data structure.  It also provides helper methods
-to help pull information out of the data structure.
-
-This module requires Parse::RecDescent.
-
-=head1 Class Methods
-
-The following class method is available:
-
-=head2 new
-
-This class method is the constructor method for instantiating new
-Mail::IMAPClient::BodyStructure objects.  The B<new> method accepts
-one argument, a string containing a server response to a FETCH
-BODYSTRUCTURE directive.
-
-The module B<Mail::IMAPClient> provides the B<get_bodystructure>
-convenience method to simplify use of this module when starting with
-just a messages sequence number or unique ID (UID).
-
-=head1 Object Methods
-
-The following object methods are available:
-
-=head2 bodytype
-
-The B<bodytype> object method requires no arguments.  It returns the
-bodytype for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodysubtype
-
-The B<bodysubtype> object method requires no arguments.  It returns the
-bodysubtype for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodyparms
-
-The B<bodyparms> object method requires no arguments.  It returns the
-bodyparms for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodydisp
-
-The B<bodydisp> object method requires no arguments.  It returns the
-bodydisp for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodyid
-
-The B<bodyid> object method requires no arguments.  It returns the
-bodyid for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodydesc
-
-The B<bodydesc> object method requires no arguments.  It returns the
-bodydesc for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodyenc
-
-The B<bodyenc> object method requires no arguments.  It returns the
-bodyenc for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodysize
-
-The B<bodysize> object method requires no arguments.  It returns the
-bodysize for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodylang
-
-The B<bodylang> object method requires no arguments.  It returns the
-bodylang for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 bodystructure
-
-The B<bodystructure> object method requires no arguments.  It returns
-the bodystructure for the message whose structure is described by the
-calling B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 envelopestruct
-
-The B<envelopestruct> object method requires no arguments.  It returns
-a B<Mail::IMAPClient::BodyStructure::Envelope> object for the message
-from the calling B<Mail::IMAPClient::Bodystructure> object.
-
-=head2 textlines
-
-The B<textlines> object method requires no arguments.  It returns the
-textlines for the message whose structure is described by the calling
-B<Mail::IMAPClient::Bodystructure> object.
-
-=head1 Mail::IMAPClient::BodyStructure::Envelope
-
-The IMAP standard specifies that output from the IMAP B<FETCH
-ENVELOPE> command will be an RFC2060 envelope structure.  It further
-specifies that output from the B<FETCH BODYSTRUCTURE> command may also
-contain embedded envelope structures (if, for example, a message's
-subparts contain one or more included messages).  Objects belonging to
-B<Mail::IMAPClient::BodyStructure::Envelope> are Perl representations
-of these envelope structures, which is to say the nested parenthetical
-lists of RFC2060 translated into a Perl datastructure.
-
-Note that all of the fields relate to the specific part to which they
-belong.  In other words, output from a FETCH nnnn ENVELOPE command
-(or, in B<Mail::IMAPClient>, C<$imap->fetch($msgid,"ENVELOPE")> or
-C<my $env = $imap->get_envelope($msgid)>) are for the message, but
-fields from within a bodystructure relate to the message subpart and
-not the parent message.
-
-An envelope structure's B<Mail::IMAPClient::BodyStructure::Envelope>
-representation is a hash of thingies that looks like this:
-
-  {
-     subject   => "subject",
-     inreplyto => "reference_message_id",
-     from      => [ addressStruct1 ],
-     messageid => "message_id",
-     bcc       => [ addressStruct1, addressStruct2 ],
-     date      => "Tue, 09 Jul 2002 14:15:53 -0400",
-     replyto   => [ adressStruct1, addressStruct2 ],
-     to        => [ adressStruct1, addressStruct2 ],
-     sender    => [ adressStruct1 ],
-     cc        => [ adressStruct1, addressStruct2 ],
-  }
-
-The B<...::Envelope> object also has methods for accessing data in the
-structure. They are:
-
-=over 4
-
-=item date
-
-Returns the date of the message.
-
-=item inreplyto
-
-Returns the message id of the message to which this message is a reply.
-
-=item subject
-
-Returns the subject of the message.
-
-=item messageid
-
-Returns the message id of the message.
-
-=back
-
-You can also use the following methods to get addressing information.
-Each of these methods returns an array of
-B<Mail::IMAPClient::BodyStructure::Address> objects, which are perl
-data structures representing RFC2060 address structures.  Some of
-these arrays would naturally contain one element (such as B<from>,
-which normally contains a single "From:" address); others will often
-contain more than one address.  However, because RFC2060 defines all
-of these as "lists of address structures", they are all translated
-into arrays of B<...::Address> objects.
-
-See the section on B<Mail::IMAPClient::BodyStructure::Address>, below,
-for alternate (and preferred) ways of accessing these data.
-
-The methods available are:
-
-=over 4
-
-=item bcc
-
-Returns an array of blind cc'ed recipients' address structures.
-(Don't expect much in here unless the message was sent from the
-mailbox you're poking around in, by the way.)
-
-=item cc
-
-Returns an array of cc'ed recipients' address structures.
-
-=item from
-
-Returns an array of "From:" address structures--usually just one.
-
-=item replyto
-
-Returns an array of "Reply-to:" address structures.  Once again there
-is usually just one address in the list.
-
-=item sender
-
-Returns an array of senders' address structures--usually just one and
-usually the same as B<from>.
-
-=item to
-
-Returns an array of recipients' address structures.
-
-=back
-
-Each of the methods that returns a list of address structures (i.e. a
-list of B<Mail::IMAPClient::BodyStructure::Address> arrays) also has
-an analogous method that will return a list of E-Mail addresses
-instead.  The addresses are in the format C<personalname
-E<lt>mailboxname@hostnameE<gt>> (see the section on
-B<Mail::IMAPClient::BodyStructure::Address>, below) However, if the
-personal name is 'NIL' then it is omitted from the address.
-
-These methods are:
-
-=over 4
-
-=item bcc_addresses
-
-Returns a list (or an array reference if called in scalar context) of
-blind cc'ed recipients' email addresses.  (Don't expect much in here
-unless the message was sent from the mailbox you're poking around in,
-by the way.)
-
-=item cc_addresses
-
-Returns a list of cc'ed recipients' email addresses.  If called in a
-scalar context it returns a reference to an array of email addresses.
-
-=item from_addresses
-
-Returns a list of "From:" email addresses.  If called in a scalar
-context it returns the first email address in the list.  (It's usually
-a list of just one anyway.)
-
-=item replyto_addresses
-
-Returns a list of "Reply-to:" email addresses.  If called in a scalar
-context it returns the first email address in the list.
-
-=item sender_addresses
-
-Returns a list of senders' email addresses.  If called in a scalar
-context it returns the first email address in the list.
-
-=item to_addresses
-
-Returns a list of recipients' email addresses.  If called in a scalar
-context it returns a reference to an array of email addresses.
-
-=back
-
-Note that context affects the behavior of all of the above methods.
-
-Those fields that will commonly contain multiple entries (i.e. they
-are recipients) will return an array reference when called in scalar
-context.  You can use this behavior to optimize performance.
-
-Those fields that will commonly contain just one address (the
-sender's) will return the first (and usually only) address.  You can
-use this behavior to optimize your development time.
-
-=head1 Addresses and the Mail::IMAPClient::BodyStructure::Address
-
-Several components of an envelope structure are address structures.
-They are each parsed into their own object,
-B<Mail::IMAPClient::BodyStructure::Address>, which looks like this:
-
-   {
-      mailboxname  => 'somebody.special',
-      hostname     => 'somplace.weird.com'
-      personalname => 'Somebody Special
-      sourceroute  => 'NIL'
-   }
-
-RFC2060 specifies that each address component of a bodystructure is a
-list of address structures, so B<Mail::IMAPClient::BodyStructure>
-parses each of these into an array of
-B<Mail::IMAPClient::BodyStructure::Address> objects.
-
-Each of these objects has the following methods available to it:
-
-=over 4
-
-=item mailboxname
-
-Returns the "mailboxname" portion of the address, which is the part to
-the left of the '@' sign.
-
-=item hostname
-
-Returns the "hostname" portion of the address, which is the part to
-the right of the '@' sign.
-
-=item personalname
-
-Returns the "personalname" portion of the address, which is the part
-of the address that's treated like a comment.
-
-=item sourceroute
-
-Returns the "sourceroute" portion of the address, which is typically "NIL".
-
-=back
-
-Taken together, the parts of an address structure form an address that
-will look something like this:
-
-C<personalname E<lt>mailboxname@hostnameE<gt>>
-
-Note that because the B<Mail::IMAPClient::BodyStructure::Address>
-objects come in arrays, it's generally easier to use the methods
-available to B<Mail::IMAPClient::BodyStructure::Envelope> to obtain
-all of the addresses in a particular array in one operation.  These
-methods are provided, however, in case you'd rather do things the hard
-way.  (And also because the aforementioned methods from
-B<Mail::IMAPClient::BodyStructure::Envelope> need them anyway.)
-
-=cut
-
-=head1 AUTHOR
-
-Original author: David J. Kernen; Reworked by: Mark Overmeer;
-Maintained by Phil Pearl.
-
-=head1 SEE ALSO
-
-perl(1), Mail::IMAPClient, Parse::RecDescent, and RFC2060.
-
-=cut
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.grammar b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.grammar
deleted file mode 100644
index d99d7a3..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.grammar
+++ /dev/null
@@ -1,189 +0,0 @@
-# Directives
-# ( none)
-# Start-up Actions
-
-{
-    my $mibs  = "Mail::IMAPClient::BodyStructure";
-    my $subpartCount = 0;
-    my $partCount    = 0;
-
-    sub take_optional_items($$@)
-    {   my ($r, $items) = (shift, shift);
-        foreach (@_)
-        {   my $opt = $_ .'(?)';
-            exists $items->{$opt} or next;
-            $r->{$_} = UNIVERSAL::isa($items->{$opt}, 'ARRAY')
-                     ? $items->{$opt}[0] : $items->{$opt};
-        }
-    }
-
-    sub merge_hash($$)
-    {   my $to   = shift;
-        my $from = shift or return;
-	while( my($k,$v) = each %$from) { $to->{$k} = $v }
-    }
-}
-
-# Atoms
-
-TEXT:		/^"TEXT"|^TEXT/i 	{ $return = "TEXT"   }
-PLAIN:		/^"PLAIN"|^PLAIN/i 	{ $return = "PLAIN"  }
-HTML:		/"HTML"|HTML/i 		{ $return = "HTML"   }
-MESSAGE:	/^"MESSAGE"|^MESSAGE/i 	{ $return = "MESSAGE"}
-RFC822:		/^"RFC822"|^RFC822/i  	{ $return = "RFC822" }
-NIL:		/^NIL/i			{ $return = "NIL"    }
-RFCNONCOMPLY:	/^\(\)/i		{ $return = "NIL"    }
-NUMBER:		/^(\d+)/		{ $return = $item[1] }
-
-# Strings:
-
-SINGLE_QUOTED_STRING: "'" /(?:\\['\\]|[^'])*/ "'" { $return = $item{__PATTERN1__} }
-DOUBLE_QUOTED_STRING: '"' /(?:\\["\\]|[^"])*/ '"' { $return = $item{__PATTERN1__} }
-
-BARESTRING:	...!/^[)('"]/	/^(?!\(|\))(?:\\ |\S)+/
-	{ $return = $item{__PATTERN1__} }
-
-STRING:		DOUBLE_QUOTED_STRING | SINGLE_QUOTED_STRING | BARESTRING
-
-STRINGS:	"(" STRING(s) ")" { $return = $item{'STRING(s)'} }
-
-textlines:	NIL | NUMBER
-
-rfc822message:  MESSAGE RFC822    { $return = "MESSAGE RFC822" }
-
-bodysubtype:	PLAIN | HTML | NIL | STRING
-
-key:		STRING
-value:		NIL | NUMBER | STRING | KVPAIRS
-
-kvpair:		...!")" key value
-	{ $return = { $item{key} => $item{value} } }
-
-KVPAIRS:	"(" kvpair(s) ")"
-       { $return = { map { (%$_) } @{$item{'kvpair(s)'}} } }
-
-bodytype:	STRING
-bodyparms:	NIL | KVPAIRS
-bodydisp:	NIL | KVPAIRS
-bodyid:		...!/[()]/ NIL | STRING
-bodydesc:	...!/[()]/ NIL | STRING
-bodysize:	...!/[()]/ NIL | NUMBER
-bodyenc:	NIL | STRING | KVPAIRS
-bodyMD5:	NIL | STRING
-bodylang:	NIL | STRING | STRINGS
-bodyextra:	NIL | STRING | STRINGS
-bodyloc:	NIL | STRING
-
-personalname:	NIL | STRING
-sourceroute:	NIL | STRING
-mailboxname:	NIL | STRING
-hostname:	NIL | STRING
-
-addressstruct:	"(" personalname sourceroute mailboxname hostname ")"
-	{ bless { personalname => $item{personalname}
-		, sourceroute  => $item{sourceroute}
-		, mailboxname  => $item{mailboxname}
-		, hostname     => $item{hostname}
-	        }, 'Mail::IMAPClient::BodyStructure::Address';
-	}
-
-subject:	NIL | STRING
-inreplyto:	NIL | STRING
-messageid:	NIL | STRING
-date:		NIL | STRING
-
-ADDRESSES:	NIL | RFCNONCOMPLY
-	| "(" addressstruct(s) ")" { $return = $item{'addressstruct(s)'} }
-
-cc:		ADDRESSES
-bcc:		ADDRESSES
-from:		ADDRESSES
-replyto:	ADDRESSES
-sender:		ADDRESSES
-to:		ADDRESSES
-
-envelopestruct:	"(" date subject from sender replyto to cc
-	        bcc inreplyto messageid ")"
-	{ $return = bless {}, "Mail::IMAPClient::BodyStructure::Envelope";
-	  $return->{$_} = $item{$_}
-	     for qw/date subject from sender replyto to cc/
-	       , qw/bcc inreplyto messageid/;
-	  1;
-	}
-
-basicfields: 	bodysubtype bodyparms(?) bodyid(?)
-		bodydesc(?) bodyenc(?) bodysize(?)
-	{  $return = { bodysubtype => $item{bodysubtype} };
-	   take_optional_items($return, \%item,
-	      qw/bodyparms bodyid bodydesc bodyenc bodysize/);
-	   1;
-	}
-
-textmessage: 	TEXT <commit> basicfields textlines(?) bodyMD5(?)
-		bodydisp(?) bodylang(?) bodyextra(?)
-	{
-	  $return = $item{basicfields} || {};
-	  $return->{bodytype} = 'TEXT';
-	  take_optional_items($return, \%item
-            , qw/textlines bodyMD5 bodydisp bodylang bodyextra/);
-	  1;
-	}
-
-othertypemessage: bodytype basicfields bodyMD5(?) bodydisp(?)
-	          bodylang(?) bodyextra(?)
-	{ $return = { bodytype => $item{bodytype} };
-	  take_optional_items($return, \%item
-             , qw/bodyMD5 bodydisp bodylang bodyextra/ );
-	  merge_hash($return, $item{basicfields});
-	  1;
-	}
-
-nestedmessage:	rfc822message <commit> bodyparms bodyid bodydesc bodyenc
-#		bodysize envelopestruct bodystructure textlines
-		bodysize envelopestruct(?) bodystructure(?) textlines(?)
-		bodyMD5(?) bodydisp(?) bodylang(?) bodyextra(?)
-	{
-	  $return = {};
-	  $return->{$_} = $item{$_}
-	      for qw/bodyparms bodyid bodydesc bodyenc bodysize/;
-#             envelopestruct bodystructure textlines/;
-
-	  take_optional_items($return, \%item
-            , qw/envelopestruct bodystructure textlines/
-	    , qw/bodyMD5 bodydisp bodylang bodyextra/);
-
-	  merge_hash($return, $item{bodystructure}[0]);
-	  merge_hash($return, $item{basicfields});
-	  $return->{bodytype}    = "MESSAGE" ;
-	  $return->{bodysubtype} = "RFC822" ;
-	  1;
-	}
-
-multipart:	subpart(s) <commit> bodysubtype
-		bodyparms(?) bodydisp(?) bodylang(?) bodyloc(?) bodyextra(?)
-		<defer: $subpartCount = 0>
-	{ $return =
-	    { bodysubtype   => $item{bodysubtype}
-	    , bodytype      => 'MULTIPART'
-	    , bodystructure => $item{'subpart(s)'}
-	    };
-	  take_optional_items($return, \%item
-              , qw/bodyparms bodydisp bodylang bodyloc bodyextra/);
-	  1;
-	}
-
-subpart:  "(" part ")" {$return = $item{part}} <defer: ++$subpartCount;>
-
-part:	  multipart        { $return = bless $item{multipart}, $mibs }
-	| textmessage      { $return = bless $item{textmessage}, $mibs }
-	| nestedmessage    { $return = bless $item{nestedmessage}, $mibs }
-	| othertypemessage { $return = bless $item{othertypemessage}, $mibs }
-
-bodystructure:	"(" part(s) ")"
-	{ $return = $item{'part(s)'} }
-
-start:		/.*?\(.*?BODYSTRUCTURE \(/i part(1)  /\).*\)\r?\n?/
-	{ $return = $item{'part(1)'}[0] }
-
-envelope:	/.*?\(.*?ENVELOPE/ envelopestruct /.*\)/
-	{ $return = $item{envelopestruct} }
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pm b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pm
deleted file mode 100644
index 4055e60..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pm
+++ /dev/null
@@ -1,17063 +0,0 @@
-package Mail::IMAPClient::BodyStructure::Parse;
-use Parse::RecDescent;
-{ my $ERRORS;
-
-
-package Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse;
-use strict;
-use vars qw($skip $AUTOLOAD  );
-@Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ISA = ();
-$skip = '\s*';
-
-    my $mibs  = "Mail::IMAPClient::BodyStructure";
-    my $subpartCount = 0;
-    my $partCount    = 0;
-
-    sub take_optional_items($$@)
-    {   my ($r, $items) = (shift, shift);
-        foreach (@_)
-        {   my $opt = $_ .'(?)';
-            exists $items->{$opt} or next;
-            $r->{$_} = UNIVERSAL::isa($items->{$opt}, 'ARRAY')
-                     ? $items->{$opt}[0] : $items->{$opt};
-        }
-    }
-
-    sub merge_hash($$)
-    {   my $to   = shift;
-        my $from = shift or return;
-	while( my($k,$v) = each %$from) { $to->{$k} = $v }
-    }
-;
-
-
-{
-local $SIG{__WARN__} = sub {0};
-# PRETEND TO BE IN Parse::RecDescent NAMESPACE
-*Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::AUTOLOAD   = sub
-{
-    no strict 'refs';
-
-    ${"AUTOLOAD"} =~ s/^Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse/Parse::RecDescent/;
-    goto &{${"AUTOLOAD"}};
-}
-}
-
-push @Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ISA, 'Parse::RecDescent';
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::envelopestruct
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"envelopestruct"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [envelopestruct]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' date subject from sender replyto to cc bcc inreplyto messageid ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{envelopestruct});
-        %item = (__RULE__ => q{envelopestruct});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [date]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{date})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::date($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [date]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [date]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{date}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [subject]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{subject})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::subject($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [subject]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [subject]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{subject}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [from]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{from})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::from($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [from]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [from]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{from}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [sender]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{sender})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::sender($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [sender]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [sender]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{sender}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [replyto]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{replyto})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::replyto($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [replyto]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [replyto]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{replyto}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [to]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{to})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::to($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [to]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [to]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{to}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [cc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{cc})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::cc($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [cc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [cc]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{cc}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bcc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bcc})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bcc($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bcc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bcc]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bcc}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [inreplyto]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{inreplyto})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::inreplyto($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [inreplyto]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [inreplyto]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{inreplyto}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [messageid]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelopestruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{messageid})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::messageid($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [messageid]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelopestruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [messageid]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{messageid}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = bless {}, "Mail::IMAPClient::BodyStructure::Envelope";
-	  $return->{$_} = $item{$_}
-	     for qw/date subject from sender replyto to cc/
-	       , qw/bcc inreplyto messageid/;
-	  1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' date subject from sender replyto to cc bcc inreplyto messageid ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{envelopestruct},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{envelopestruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{envelopestruct},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{envelopestruct},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::subpart
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"subpart"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [subpart]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{subpart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' part ')' <defer:{  ++$subpartCount; }>]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{subpart});
-        %item = (__RULE__ => q{subpart});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [part]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{subpart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{part})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::part($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [part]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{subpart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [part]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{part}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {$return = $item{part}};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        
-
-        Parse::RecDescent::_trace(q{Trying directive: [<defer:{  ++$subpartCount; }>]},
-                    Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE; 
-        $_tok = do { push @{$thisparser->{deferred}}, sub {  ++$subpartCount; }; };
-        if (defined($_tok))
-        {
-            Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
-                        . $_tok . q{])},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        else
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match directive>>},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        
-        last unless defined $_tok;
-        push @item, $item{__DIRECTIVE1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' part ')' <defer:{  ++$subpartCount; }>]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{subpart},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{subpart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{subpart},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{subpart},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"NIL"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [NIL]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{NIL},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^NIL/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^NIL/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{NIL},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{NIL});
-        %item = (__RULE__ => q{NIL});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^NIL/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{NIL},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^NIL)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{NIL},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "NIL"    };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^NIL/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{NIL},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{NIL},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{NIL},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{NIL},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{NIL},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::PLAIN
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"PLAIN"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [PLAIN]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{PLAIN},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^"PLAIN"|^PLAIN/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^"PLAIN"|^PLAIN/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{PLAIN},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{PLAIN});
-        %item = (__RULE__ => q{PLAIN});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^"PLAIN"|^PLAIN/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{PLAIN},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^"PLAIN"|^PLAIN)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{PLAIN},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "PLAIN"  };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^"PLAIN"|^PLAIN/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{PLAIN},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{PLAIN},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{PLAIN},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{PLAIN},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{PLAIN},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::RFC822
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"RFC822"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [RFC822]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{RFC822},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^"RFC822"|^RFC822/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^"RFC822"|^RFC822/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{RFC822},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{RFC822});
-        %item = (__RULE__ => q{RFC822});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^"RFC822"|^RFC822/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{RFC822},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^"RFC822"|^RFC822)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{RFC822},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "RFC822" };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^"RFC822"|^RFC822/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{RFC822},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{RFC822},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{RFC822},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{RFC822},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{RFC822},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysubtype
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodysubtype"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodysubtype]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodysubtype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{PLAIN, or HTML, or NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [PLAIN]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysubtype});
-        %item = (__RULE__ => q{bodysubtype});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [PLAIN]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysubtype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::PLAIN($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [PLAIN]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysubtype},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [PLAIN]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{PLAIN}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [PLAIN]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [HTML]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysubtype});
-        %item = (__RULE__ => q{bodysubtype});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [HTML]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysubtype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::HTML($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [HTML]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysubtype},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [HTML]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{HTML}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [HTML]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysubtype});
-        %item = (__RULE__ => q{bodysubtype});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysubtype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysubtype},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[3];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysubtype});
-        %item = (__RULE__ => q{bodysubtype});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysubtype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysubtype},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodysubtype},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodysubtype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodysubtype},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodysubtype},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::from
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"from"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [from]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{from},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{from},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{from});
-        %item = (__RULE__ => q{from});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{from},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{from},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{from},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{from},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{from},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{from},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{from},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{from},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::multipart
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"multipart"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [multipart]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{subpart});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [subpart <commit> bodysubtype bodyparms bodydisp bodylang bodyloc bodyextra <defer:{  $subpartCount = 0 }>]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{multipart});
-        %item = (__RULE__ => q{multipart});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [subpart]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::subpart, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [subpart]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [subpart]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{subpart(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        
-
-        Parse::RecDescent::_trace(q{Trying directive: [<commit>]},
-                    Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE; 
-        $_tok = do { $commit = 1 };
-        if (defined($_tok))
-        {
-            Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
-                        . $_tok . q{])},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        else
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match directive>>},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        
-        last unless defined $_tok;
-        push @item, $item{__DIRECTIVE1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodysubtype]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodysubtype})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysubtype($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodysubtype]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodysubtype]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodysubtype}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyparms]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyparms})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyparms, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyparms]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyparms]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyparms(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodydisp]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodydisp})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydisp, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodydisp]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodydisp]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydisp(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodylang]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodylang})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodylang, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodylang]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodylang]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodylang(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyloc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyloc})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyloc, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyloc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyloc]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyloc(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyextra]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{multipart},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyextra})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyextra, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyextra]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{multipart},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyextra]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyextra(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        
-
-        Parse::RecDescent::_trace(q{Trying directive: [<defer:{  $subpartCount = 0 }>]},
-                    Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE; 
-        $_tok = do { push @{$thisparser->{deferred}}, sub {  $subpartCount = 0 }; };
-        if (defined($_tok))
-        {
-            Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
-                        . $_tok . q{])},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        else
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match directive>>},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        
-        last unless defined $_tok;
-        push @item, $item{__DIRECTIVE2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return =
-	    { bodysubtype   => $item{bodysubtype}
-	    , bodytype      => 'MULTIPART'
-	    , bodystructure => $item{'subpart(s)'}
-	    };
-	  take_optional_items($return, \%item
-              , qw/bodyparms bodydisp bodylang bodyloc bodyextra/);
-	  1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [subpart <commit> bodysubtype bodyparms bodydisp bodylang bodyloc bodyextra <defer:{  $subpartCount = 0 }>]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{multipart},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{multipart},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{multipart},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{multipart},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyid
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyid"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyid]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/[()]/, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/[()]/ NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyid});
-        %item = (__RULE__ => q{bodyid});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/[()]/]}, Parse::RecDescent::_tracefirst($text),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        $_savetext = $text;
-
-        if ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:[()])/)
-        {
-            $text = $_savetext;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        $text = $_savetext;
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{NIL})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyid},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/[()]/ NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyid});
-        %item = (__RULE__ => q{bodyid});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyid},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyid},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyid},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyid},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodylang
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodylang"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodylang]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodylang},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING, or STRINGS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodylang});
-        %item = (__RULE__ => q{bodylang});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodylang},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodylang},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodylang});
-        %item = (__RULE__ => q{bodylang});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodylang},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodylang},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRINGS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodylang});
-        %item = (__RULE__ => q{bodylang});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRINGS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodylang},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRINGS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRINGS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodylang},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRINGS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRINGS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRINGS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodylang},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodylang},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodylang},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodylang},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyloc
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyloc"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyloc]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyloc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyloc});
-        %item = (__RULE__ => q{bodyloc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyloc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyloc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyloc});
-        %item = (__RULE__ => q{bodyloc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyloc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyloc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyloc},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyloc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyloc},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyloc},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::inreplyto
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"inreplyto"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [inreplyto]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{inreplyto},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{inreplyto});
-        %item = (__RULE__ => q{inreplyto});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{inreplyto},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{inreplyto},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{inreplyto});
-        %item = (__RULE__ => q{inreplyto});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{inreplyto},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{inreplyto},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{inreplyto},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{inreplyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{inreplyto},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{inreplyto},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"ADDRESSES"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{ADDRESSES},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or RFCNONCOMPLY, or '('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{ADDRESSES});
-        %item = (__RULE__ => q{ADDRESSES});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{ADDRESSES},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{ADDRESSES},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [RFCNONCOMPLY]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{ADDRESSES});
-        %item = (__RULE__ => q{ADDRESSES});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [RFCNONCOMPLY]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{ADDRESSES},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::RFCNONCOMPLY($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [RFCNONCOMPLY]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{ADDRESSES},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [RFCNONCOMPLY]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{RFCNONCOMPLY}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [RFCNONCOMPLY]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' addressstruct ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{ADDRESSES});
-        %item = (__RULE__ => q{ADDRESSES});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [addressstruct]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{ADDRESSES},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{addressstruct})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::addressstruct, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [addressstruct]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{ADDRESSES},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [addressstruct]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{addressstruct(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{'addressstruct(s)'} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' addressstruct ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{ADDRESSES},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{ADDRESSES},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{ADDRESSES},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{ADDRESSES},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::key
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"key"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [key]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{key},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{key},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{key});
-        %item = (__RULE__ => q{key});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{key},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{key},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{key},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{key},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{key},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{key},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{key},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{key},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::rfc822message
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"rfc822message"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [rfc822message]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{rfc822message},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{MESSAGE});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [MESSAGE RFC822]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{rfc822message});
-        %item = (__RULE__ => q{rfc822message});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [MESSAGE]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{rfc822message},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::MESSAGE($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [MESSAGE]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{rfc822message},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [MESSAGE]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{MESSAGE}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [RFC822]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{rfc822message},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{RFC822})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::RFC822($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [RFC822]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{rfc822message},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [RFC822]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{RFC822}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "MESSAGE RFC822" };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [MESSAGE RFC822]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{rfc822message},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{rfc822message},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{rfc822message},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{rfc822message},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bcc
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bcc"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bcc]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bcc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bcc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bcc});
-        %item = (__RULE__ => q{bcc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bcc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bcc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bcc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bcc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bcc},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bcc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bcc},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bcc},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydisp
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodydisp"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodydisp]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodydisp},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or KVPAIRS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodydisp});
-        %item = (__RULE__ => q{bodydisp});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodydisp},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodydisp},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [KVPAIRS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodydisp});
-        %item = (__RULE__ => q{bodydisp});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [KVPAIRS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodydisp},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::KVPAIRS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [KVPAIRS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodydisp},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [KVPAIRS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{KVPAIRS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [KVPAIRS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodydisp},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodydisp},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodydisp},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodydisp},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::KVPAIRS
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"KVPAIRS"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [KVPAIRS]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{KVPAIRS},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' kvpair ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{KVPAIRS});
-        %item = (__RULE__ => q{KVPAIRS});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [kvpair]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{KVPAIRS},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{kvpair})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::kvpair, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [kvpair]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{KVPAIRS},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [kvpair]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{kvpair(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = { map { (%$_) } @{$item{'kvpair(s)'}} } };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' kvpair ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{KVPAIRS},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{KVPAIRS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{KVPAIRS},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{KVPAIRS},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyMD5
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyMD5"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyMD5]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyMD5},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyMD5});
-        %item = (__RULE__ => q{bodyMD5});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyMD5},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyMD5},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyMD5});
-        %item = (__RULE__ => q{bodyMD5});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyMD5},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyMD5},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyMD5},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyMD5},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyMD5},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyMD5},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::part
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"part"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [part]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{part},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{multipart, or textmessage, or nestedmessage, or othertypemessage});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [multipart]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{part});
-        %item = (__RULE__ => q{part});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [multipart]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{part},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::multipart($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [multipart]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{part},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [multipart]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{multipart}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = bless $item{multipart}, $mibs };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [multipart]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [textmessage]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{part});
-        %item = (__RULE__ => q{part});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [textmessage]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{part},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::textmessage($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [textmessage]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{part},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [textmessage]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{textmessage}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = bless $item{textmessage}, $mibs };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [textmessage]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [nestedmessage]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{part});
-        %item = (__RULE__ => q{part});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [nestedmessage]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{part},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::nestedmessage($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [nestedmessage]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{part},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [nestedmessage]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{nestedmessage}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = bless $item{nestedmessage}, $mibs };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [nestedmessage]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [othertypemessage]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[3];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{part});
-        %item = (__RULE__ => q{part});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [othertypemessage]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{part},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::othertypemessage($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [othertypemessage]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{part},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [othertypemessage]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{othertypemessage}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = bless $item{othertypemessage}, $mibs };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [othertypemessage]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{part},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{part},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{part},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{part},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::TEXT
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"TEXT"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [TEXT]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{TEXT},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^"TEXT"|^TEXT/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^"TEXT"|^TEXT/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{TEXT},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{TEXT});
-        %item = (__RULE__ => q{TEXT});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^"TEXT"|^TEXT/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{TEXT},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^"TEXT"|^TEXT)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{TEXT},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "TEXT"   };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^"TEXT"|^TEXT/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{TEXT},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{TEXT},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{TEXT},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{TEXT},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{TEXT},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::MESSAGE
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"MESSAGE"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [MESSAGE]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{MESSAGE},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^"MESSAGE"|^MESSAGE/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^"MESSAGE"|^MESSAGE/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{MESSAGE},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{MESSAGE});
-        %item = (__RULE__ => q{MESSAGE});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^"MESSAGE"|^MESSAGE/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{MESSAGE},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^"MESSAGE"|^MESSAGE)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{MESSAGE},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "MESSAGE"};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^"MESSAGE"|^MESSAGE/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{MESSAGE},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{MESSAGE},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{MESSAGE},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{MESSAGE},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{MESSAGE},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::start
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"start"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [start]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{start},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/.*?\\(.*?BODYSTRUCTURE \\(/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/.*?\\(.*?BODYSTRUCTURE \\(/i part /\\).*\\)\\r?\\n?/]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{start});
-        %item = (__RULE__ => q{start});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/.*?\\(.*?BODYSTRUCTURE \\(/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:.*?\(.*?BODYSTRUCTURE \()/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [part]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{start},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{part})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::part, 1, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [part]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{start},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [part]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{part(1)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/\\).*\\)\\r?\\n?/]}, Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{/\\).*\\)\\r?\\n?/})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:\).*\)\r?\n?)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN2__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{'part(1)'}[0] };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/.*?\\(.*?BODYSTRUCTURE \\(/i part /\\).*\\)\\r?\\n?/]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{start},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{start},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{start},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::addressstruct
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"addressstruct"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [addressstruct]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{addressstruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' personalname sourceroute mailboxname hostname ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{addressstruct});
-        %item = (__RULE__ => q{addressstruct});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [personalname]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{addressstruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{personalname})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::personalname($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [personalname]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{addressstruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [personalname]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{personalname}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [sourceroute]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{addressstruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{sourceroute})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::sourceroute($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [sourceroute]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{addressstruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [sourceroute]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{sourceroute}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [mailboxname]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{addressstruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{mailboxname})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::mailboxname($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [mailboxname]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{addressstruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [mailboxname]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{mailboxname}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [hostname]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{addressstruct},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{hostname})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::hostname($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [hostname]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{addressstruct},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [hostname]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{hostname}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { bless { personalname => $item{personalname}
-		, sourceroute  => $item{sourceroute}
-		, mailboxname  => $item{mailboxname}
-		, hostname     => $item{hostname}
-	        }, 'Mail::IMAPClient::BodyStructure::Address';
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' personalname sourceroute mailboxname hostname ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{addressstruct},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{addressstruct},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{addressstruct},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{addressstruct},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::date
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"date"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [date]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{date},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{date});
-        %item = (__RULE__ => q{date});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{date},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{date},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{date});
-        %item = (__RULE__ => q{date});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{date},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{date},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{date},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{date},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{date},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{date},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::hostname
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"hostname"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [hostname]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{hostname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{hostname});
-        %item = (__RULE__ => q{hostname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{hostname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{hostname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{hostname});
-        %item = (__RULE__ => q{hostname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{hostname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{hostname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{hostname},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{hostname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{hostname},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{hostname},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::HTML
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"HTML"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [HTML]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{HTML},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/"HTML"|HTML/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/"HTML"|HTML/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{HTML},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{HTML});
-        %item = (__RULE__ => q{HTML});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/"HTML"|HTML/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{HTML},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:"HTML"|HTML)/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{HTML},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "HTML"   };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/"HTML"|HTML/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{HTML},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{HTML},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{HTML},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{HTML},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{HTML},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::kvpair
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"kvpair"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [kvpair]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{kvpair},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{')'});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [')' key value]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{kvpair});
-        %item = (__RULE__ => q{kvpair});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        $_savetext = $text;
-
-        if ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $_savetext;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        $text = $_savetext;
-
-        Parse::RecDescent::_trace(q{Trying subrule: [key]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{kvpair},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{key})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::key($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [key]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{kvpair},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [key]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{key}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [value]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{kvpair},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{value})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::value($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [value]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{kvpair},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [value]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{value}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = { $item{key} => $item{value} } };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [')' key value]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{kvpair},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{kvpair},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{kvpair},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{kvpair},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::replyto
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"replyto"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [replyto]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{replyto},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{replyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{replyto});
-        %item = (__RULE__ => q{replyto});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{replyto},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{replyto},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{replyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{replyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{replyto},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{replyto},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{replyto},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{replyto},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::mailboxname
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"mailboxname"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [mailboxname]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{mailboxname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{mailboxname});
-        %item = (__RULE__ => q{mailboxname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{mailboxname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{mailboxname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{mailboxname});
-        %item = (__RULE__ => q{mailboxname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{mailboxname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{mailboxname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{mailboxname},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{mailboxname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{mailboxname},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{mailboxname},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::basicfields
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"basicfields"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [basicfields]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{bodysubtype});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [bodysubtype bodyparms bodyid bodydesc bodyenc bodysize]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{basicfields});
-        %item = (__RULE__ => q{basicfields});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodysubtype]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysubtype($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodysubtype]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodysubtype]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodysubtype}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyparms]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyparms})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyparms, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyparms]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyparms]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyparms(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyid]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyid})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyid, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyid]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyid]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyid(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodydesc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodydesc})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydesc, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodydesc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodydesc]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydesc(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyenc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyenc})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyenc, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyenc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyenc]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyenc(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodysize]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{basicfields},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodysize})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysize, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodysize]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{basicfields},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodysize]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodysize(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {  $return = { bodysubtype => $item{bodysubtype} };
-	   take_optional_items($return, \%item,
-	      qw/bodyparms bodyid bodydesc bodyenc bodysize/);
-	   1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [bodysubtype bodyparms bodyid bodydesc bodyenc bodysize]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{basicfields},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{basicfields},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{basicfields},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{basicfields},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysize
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodysize"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodysize]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodysize},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/[()]/, or NUMBER});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/[()]/ NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysize});
-        %item = (__RULE__ => q{bodysize});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/[()]/]}, Parse::RecDescent::_tracefirst($text),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        $_savetext = $text;
-
-        if ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:[()])/)
-        {
-            $text = $_savetext;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        $text = $_savetext;
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysize},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{NIL})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysize},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/[()]/ NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NUMBER]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodysize});
-        %item = (__RULE__ => q{bodysize});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodysize},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NUMBER($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NUMBER]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodysize},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NUMBER]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NUMBER}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NUMBER]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodysize},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodysize},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodysize},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodysize},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::othertypemessage
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"othertypemessage"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [othertypemessage]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{bodytype});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [bodytype basicfields bodyMD5 bodydisp bodylang bodyextra]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{othertypemessage});
-        %item = (__RULE__ => q{othertypemessage});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodytype]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodytype($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodytype]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodytype]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodytype}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [basicfields]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{basicfields})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::basicfields($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [basicfields]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [basicfields]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{basicfields}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyMD5]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyMD5})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyMD5, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyMD5]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyMD5]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyMD5(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodydisp]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodydisp})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydisp, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodydisp]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodydisp]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydisp(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodylang]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodylang})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodylang, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodylang]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodylang]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodylang(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyextra]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{othertypemessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyextra})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyextra, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyextra]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{othertypemessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyextra]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyextra(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = { bodytype => $item{bodytype} };
-	  take_optional_items($return, \%item
-             , qw/bodyMD5 bodydisp bodylang bodyextra/ );
-	  merge_hash($return, $item{basicfields});
-	  1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [bodytype basicfields bodyMD5 bodydisp bodylang bodyextra]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{othertypemessage},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{othertypemessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{othertypemessage},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{othertypemessage},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydesc
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodydesc"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodydesc]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodydesc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/[()]/, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/[()]/ NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodydesc});
-        %item = (__RULE__ => q{bodydesc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/[()]/]}, Parse::RecDescent::_tracefirst($text),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        $_savetext = $text;
-
-        if ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:[()])/)
-        {
-            $text = $_savetext;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        $text = $_savetext;
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodydesc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{NIL})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodydesc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/[()]/ NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodydesc});
-        %item = (__RULE__ => q{bodydesc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodydesc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodydesc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodydesc},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodydesc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodydesc},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodydesc},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyenc
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyenc"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyenc]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyenc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING, or KVPAIRS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyenc});
-        %item = (__RULE__ => q{bodyenc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyenc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyenc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyenc});
-        %item = (__RULE__ => q{bodyenc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyenc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyenc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [KVPAIRS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyenc});
-        %item = (__RULE__ => q{bodyenc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [KVPAIRS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyenc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::KVPAIRS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [KVPAIRS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyenc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [KVPAIRS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{KVPAIRS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [KVPAIRS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyenc},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyenc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyenc},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyenc},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"STRING"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [STRING]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{DOUBLE_QUOTED_STRING, or SINGLE_QUOTED_STRING, or BARESTRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [DOUBLE_QUOTED_STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{STRING});
-        %item = (__RULE__ => q{STRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [DOUBLE_QUOTED_STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::DOUBLE_QUOTED_STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [DOUBLE_QUOTED_STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{STRING},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [DOUBLE_QUOTED_STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{DOUBLE_QUOTED_STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [DOUBLE_QUOTED_STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [SINGLE_QUOTED_STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{STRING});
-        %item = (__RULE__ => q{STRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [SINGLE_QUOTED_STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::SINGLE_QUOTED_STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [SINGLE_QUOTED_STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{STRING},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [SINGLE_QUOTED_STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{SINGLE_QUOTED_STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [SINGLE_QUOTED_STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [BARESTRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{STRING});
-        %item = (__RULE__ => q{STRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [BARESTRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::BARESTRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [BARESTRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{STRING},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [BARESTRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{BARESTRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [BARESTRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{STRING},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{STRING},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{STRING},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::envelope
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"envelope"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [envelope]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{envelope},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/.*?\\(.*?ENVELOPE/});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/.*?\\(.*?ENVELOPE/ envelopestruct /.*\\)/]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{envelope});
-        %item = (__RULE__ => q{envelope});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/.*?\\(.*?ENVELOPE/]}, Parse::RecDescent::_tracefirst($text),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:.*?\(.*?ENVELOPE)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [envelopestruct]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{envelope},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{envelopestruct})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::envelopestruct($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [envelopestruct]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{envelope},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [envelopestruct]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{envelopestruct}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/.*\\)/]}, Parse::RecDescent::_tracefirst($text),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{/.*\\)/})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:.*\))/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN2__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{envelopestruct} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/.*?\\(.*?ENVELOPE/ envelopestruct /.*\\)/]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{envelope},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{envelope},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{envelope},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{envelope},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::to
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"to"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [to]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{to},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{to},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{to});
-        %item = (__RULE__ => q{to});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{to},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{to},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{to},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{to},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{to},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{to},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{to},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{to},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::textlines
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"textlines"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [textlines]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{textlines},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or NUMBER});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{textlines});
-        %item = (__RULE__ => q{textlines});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textlines},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textlines},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NUMBER]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{textlines});
-        %item = (__RULE__ => q{textlines});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textlines},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NUMBER($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NUMBER]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textlines},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NUMBER]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NUMBER}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NUMBER]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{textlines},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{textlines},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{textlines},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{textlines},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::nestedmessage
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"nestedmessage"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [nestedmessage]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{rfc822message});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [rfc822message <commit> bodyparms bodyid bodydesc bodyenc bodysize envelopestruct bodystructure textlines bodyMD5 bodydisp bodylang bodyextra]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{nestedmessage});
-        %item = (__RULE__ => q{nestedmessage});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [rfc822message]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::rfc822message($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [rfc822message]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [rfc822message]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{rfc822message}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        
-
-        Parse::RecDescent::_trace(q{Trying directive: [<commit>]},
-                    Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE; 
-        $_tok = do { $commit = 1 };
-        if (defined($_tok))
-        {
-            Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
-                        . $_tok . q{])},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        else
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match directive>>},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        
-        last unless defined $_tok;
-        push @item, $item{__DIRECTIVE1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodyparms]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodyparms})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyparms($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodyparms]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodyparms]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyparms}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodyid]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodyid})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyid($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodyid]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodyid]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyid}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodydesc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodydesc})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydesc($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodydesc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodydesc]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydesc}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodyenc]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodyenc})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyenc($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodyenc]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodyenc]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyenc}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying subrule: [bodysize]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{bodysize})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodysize($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [bodysize]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [bodysize]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodysize}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [envelopestruct]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{envelopestruct})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::envelopestruct, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [envelopestruct]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [envelopestruct]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{envelopestruct(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodystructure]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodystructure})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodystructure, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodystructure]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodystructure]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodystructure(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [textlines]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{textlines})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::textlines, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [textlines]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [textlines]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{textlines(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyMD5]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyMD5})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyMD5, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyMD5]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyMD5]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyMD5(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodydisp]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodydisp})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydisp, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodydisp]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodydisp]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydisp(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodylang]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodylang})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodylang, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodylang]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodylang]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodylang(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyextra]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{nestedmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyextra})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyextra, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyextra]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{nestedmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyextra]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyextra(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {
-	  $return = {};
-	  $return->{$_} = $item{$_}
-	      for qw/bodyparms bodyid bodydesc bodyenc bodysize/;
-#             envelopestruct bodystructure textlines/;
-
-	  take_optional_items($return, \%item
-            , qw/envelopestruct bodystructure textlines/
-	    , qw/bodyMD5 bodydisp bodylang bodyextra/);
-
-	  merge_hash($return, $item{bodystructure}[0]);
-	  merge_hash($return, $item{basicfields});
-	  $return->{bodytype}    = "MESSAGE" ;
-	  $return->{bodysubtype} = "RFC822" ;
-	  1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [rfc822message <commit> bodyparms bodyid bodydesc bodyenc bodysize envelopestruct bodystructure textlines bodyMD5 bodydisp bodylang bodyextra]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{nestedmessage},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{nestedmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{nestedmessage},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{nestedmessage},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::sender
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"sender"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [sender]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{sender},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{sender},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{sender});
-        %item = (__RULE__ => q{sender});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{sender},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{sender},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sender},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sender},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{sender},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{sender},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{sender},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{sender},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::SINGLE_QUOTED_STRING
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"SINGLE_QUOTED_STRING"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [SINGLE_QUOTED_STRING]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{SINGLE_QUOTED_STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'''});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [''' /(?:\\\\['\\\\]|[^'])*/ ''']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{SINGLE_QUOTED_STRING});
-        %item = (__RULE__ => q{SINGLE_QUOTED_STRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [''']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "'"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/(?:\\\\['\\\\]|[^'])*/]}, Parse::RecDescent::_tracefirst($text),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{/(?:\\\\['\\\\]|[^'])*/})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:(?:\\['\\]|[^'])*)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying terminal: [''']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{'''})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "'"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [''' /(?:\\\\['\\\\]|[^'])*/ ''']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{SINGLE_QUOTED_STRING},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{SINGLE_QUOTED_STRING},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{SINGLE_QUOTED_STRING},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodystructure
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodystructure"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodystructure]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodystructure},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' part ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodystructure});
-        %item = (__RULE__ => q{bodystructure});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [part]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodystructure},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{part})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::part, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [part]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodystructure},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [part]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{part(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{'part(s)'} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' part ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodystructure},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodystructure},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodystructure},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodystructure},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRINGS
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"STRINGS"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [STRINGS]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{STRINGS},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' STRING ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{STRINGS});
-        %item = (__RULE__ => q{STRINGS});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{STRINGS},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{STRING})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{STRINGS},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [STRING]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{'STRING(s)'} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' STRING ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{STRINGS},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{STRINGS},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{STRINGS},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{STRINGS},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::BARESTRING
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"BARESTRING"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [BARESTRING]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{BARESTRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^[)('"]/});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^[)('"]/ /^(?!\\(|\\))(?:\\\\ |\\S)+/]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{BARESTRING});
-        %item = (__RULE__ => q{BARESTRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^[)('"]/]}, Parse::RecDescent::_tracefirst($text),
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        $_savetext = $text;
-
-        if ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^[)('"])/)
-        {
-            $text = $_savetext;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        $text = $_savetext;
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^(?!\\(|\\))(?:\\\\ |\\S)+/]}, Parse::RecDescent::_tracefirst($text),
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{/^(?!\\(|\\))(?:\\\\ |\\S)+/})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^(?!\(|\))(?:\\ |\S)+)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN2__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^[)('"]/ /^(?!\\(|\\))(?:\\\\ |\\S)+/]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{BARESTRING},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{BARESTRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{BARESTRING},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{BARESTRING},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyparms
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyparms"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyparms]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyparms},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or KVPAIRS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyparms});
-        %item = (__RULE__ => q{bodyparms});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyparms},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyparms},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [KVPAIRS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyparms});
-        %item = (__RULE__ => q{bodyparms});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [KVPAIRS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyparms},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::KVPAIRS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [KVPAIRS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyparms},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [KVPAIRS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{KVPAIRS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [KVPAIRS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyparms},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyparms},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyparms},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyparms},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::DOUBLE_QUOTED_STRING
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"DOUBLE_QUOTED_STRING"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [DOUBLE_QUOTED_STRING]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{DOUBLE_QUOTED_STRING},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'"'});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['"' /(?:\\\\["\\\\]|[^"])*/ '"']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{DOUBLE_QUOTED_STRING});
-        %item = (__RULE__ => q{DOUBLE_QUOTED_STRING});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['"']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A\"/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/(?:\\\\["\\\\]|[^"])*/]}, Parse::RecDescent::_tracefirst($text),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{/(?:\\\\["\\\\]|[^"])*/})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:(?:\\["\\]|[^"])*)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['"']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{'"'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A\"/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(qq{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{__PATTERN1__} };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['"' /(?:\\\\["\\\\]|[^"])*/ '"']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{DOUBLE_QUOTED_STRING},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{DOUBLE_QUOTED_STRING},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{DOUBLE_QUOTED_STRING},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::sourceroute
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"sourceroute"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [sourceroute]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{sourceroute},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{sourceroute});
-        %item = (__RULE__ => q{sourceroute});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{sourceroute},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{sourceroute},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{sourceroute});
-        %item = (__RULE__ => q{sourceroute});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{sourceroute},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{sourceroute},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{sourceroute},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{sourceroute},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{sourceroute},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{sourceroute},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodytype
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodytype"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodytype]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodytype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodytype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodytype});
-        %item = (__RULE__ => q{bodytype});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodytype},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodytype},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodytype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodytype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodytype},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodytype},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodytype},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodytype},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::messageid
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"messageid"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [messageid]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{messageid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{messageid});
-        %item = (__RULE__ => q{messageid});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{messageid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{messageid},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{messageid});
-        %item = (__RULE__ => q{messageid});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{messageid},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{messageid},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{messageid},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{messageid},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{messageid},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{messageid},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::value
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"value"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [value]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{value},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or NUMBER, or STRING, or KVPAIRS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{value});
-        %item = (__RULE__ => q{value});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{value},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{value},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NUMBER]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{value});
-        %item = (__RULE__ => q{value});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{value},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NUMBER($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NUMBER]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{value},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NUMBER]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NUMBER}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NUMBER]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{value});
-        %item = (__RULE__ => q{value});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{value},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{value},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [KVPAIRS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[3];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{value});
-        %item = (__RULE__ => q{value});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [KVPAIRS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{value},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::KVPAIRS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [KVPAIRS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{value},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [KVPAIRS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{KVPAIRS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [KVPAIRS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{value},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{value},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{value},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{value},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::personalname
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"personalname"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [personalname]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{personalname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{personalname});
-        %item = (__RULE__ => q{personalname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{personalname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{personalname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{personalname});
-        %item = (__RULE__ => q{personalname});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{personalname},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{personalname},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{personalname},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{personalname},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{personalname},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{personalname},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::cc
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"cc"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [cc]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{cc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{ADDRESSES});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [ADDRESSES]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{cc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{cc});
-        %item = (__RULE__ => q{cc});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [ADDRESSES]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{cc},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::ADDRESSES($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [ADDRESSES]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{cc},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [ADDRESSES]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{cc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{ADDRESSES}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [ADDRESSES]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{cc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{cc},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{cc},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{cc},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{cc},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NUMBER
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"NUMBER"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{NUMBER},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^(\\d+)/});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^(\\d+)/]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{NUMBER});
-        %item = (__RULE__ => q{NUMBER});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^(\\d+)/]}, Parse::RecDescent::_tracefirst($text),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^(\d+))/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item[1] };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^(\\d+)/]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{NUMBER},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{NUMBER},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{NUMBER},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::textmessage
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"textmessage"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [textmessage]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{TEXT});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [TEXT <commit> basicfields textlines bodyMD5 bodydisp bodylang bodyextra]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{textmessage});
-        %item = (__RULE__ => q{textmessage});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [TEXT]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::TEXT($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [TEXT]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [TEXT]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{TEXT}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        
-
-        Parse::RecDescent::_trace(q{Trying directive: [<commit>]},
-                    Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE; 
-        $_tok = do { $commit = 1 };
-        if (defined($_tok))
-        {
-            Parse::RecDescent::_trace(q{>>Matched directive<< (return value: [}
-                        . $_tok . q{])},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        else
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match directive>>},
-                        Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        }
-        
-        last unless defined $_tok;
-        push @item, $item{__DIRECTIVE1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying subrule: [basicfields]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{basicfields})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::basicfields($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [basicfields]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [basicfields]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{basicfields}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [textlines]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{textlines})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::textlines, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [textlines]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [textlines]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{textlines(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyMD5]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyMD5})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyMD5, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyMD5]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyMD5]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyMD5(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodydisp]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodydisp})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodydisp, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodydisp]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodydisp]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodydisp(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodylang]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodylang})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodylang, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodylang]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodylang]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodylang(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [bodyextra]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{textmessage},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{bodyextra})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyextra, 0, 1, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [bodyextra]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{textmessage},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [bodyextra]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{bodyextra(?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {
-	  $return = $item{basicfields} || {};
-	  $return->{bodytype} = 'TEXT';
-	  take_optional_items($return, \%item
-            , qw/textlines bodyMD5 bodydisp bodylang bodyextra/);
-	  1;
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [TEXT <commit> basicfields textlines bodyMD5 bodydisp bodylang bodyextra]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{textmessage},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{textmessage},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{textmessage},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{textmessage},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::RFCNONCOMPLY
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"RFCNONCOMPLY"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [RFCNONCOMPLY]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{RFCNONCOMPLY},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^\\(\\)/i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^\\(\\)/i]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{RFCNONCOMPLY},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{RFCNONCOMPLY});
-        %item = (__RULE__ => q{RFCNONCOMPLY});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^\\(\\)/i]}, Parse::RecDescent::_tracefirst($text),
-                      q{RFCNONCOMPLY},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^\(\))/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{RFCNONCOMPLY},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = "NIL"    };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^\\(\\)/i]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{RFCNONCOMPLY},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{RFCNONCOMPLY},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{RFCNONCOMPLY},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{RFCNONCOMPLY},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{RFCNONCOMPLY},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::subject
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"subject"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [subject]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{subject},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{subject});
-        %item = (__RULE__ => q{subject});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{subject},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{subject},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{subject});
-        %item = (__RULE__ => q{subject});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{subject},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{subject},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{subject},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{subject},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{subject},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{subject},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::bodyextra
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"bodyextra"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [bodyextra]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{bodyextra},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    my $def_at = @{$thisparser->{deferred}};
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NIL, or STRING, or STRINGS});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NIL]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyextra});
-        %item = (__RULE__ => q{bodyextra});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NIL]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyextra},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::NIL($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NIL]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyextra},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NIL]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NIL}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NIL]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRING]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyextra});
-        %item = (__RULE__ => q{bodyextra});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRING]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyextra},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRING($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRING]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyextra},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRING]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRING}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRING]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [STRINGS]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[2];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{bodyextra});
-        %item = (__RULE__ => q{bodyextra});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [STRINGS]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{bodyextra},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse::STRINGS($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [STRINGS]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{bodyextra},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [STRINGS]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{STRINGS}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{>>Matched production: [STRINGS]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-     splice
-                @{$thisparser->{deferred}}, $def_at unless $_matched;
-                  
-    unless ( $_matched || defined($score) )
-    {
-             splice @{$thisparser->{deferred}}, $def_at;
-              
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{bodyextra},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{bodyextra},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{bodyextra},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{bodyextra},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-}
-package Mail::IMAPClient::BodyStructure::Parse; sub new { my $self = bless( {
-                 'localvars' => '',
-                 'startcode' => '',
-                 'rules' => {
-                              'envelopestruct' => bless( {
-                                                           'calls' => [
-                                                                        'date',
-                                                                        'subject',
-                                                                        'from',
-                                                                        'sender',
-                                                                        'replyto',
-                                                                        'to',
-                                                                        'cc',
-                                                                        'bcc',
-                                                                        'inreplyto',
-                                                                        'messageid'
-                                                                      ],
-                                                           'prods' => [
-                                                                        bless( {
-                                                                                 'error' => undef,
-                                                                                 'number' => 0,
-                                                                                 'patcount' => 0,
-                                                                                 'line' => undef,
-                                                                                 'items' => [
-                                                                                              bless( {
-                                                                                                       'lookahead' => 0,
-                                                                                                       'pattern' => '(',
-                                                                                                       'line' => 105,
-                                                                                                       'description' => '\'(\'',
-                                                                                                       'hashname' => '__STRING1__'
-                                                                                                     }, 'Parse::RecDescent::InterpLit' ),
-                                                                                              bless( {
-                                                                                                       'line' => 105,
-                                                                                                       'implicit' => undef,
-                                                                                                       'subrule' => 'date',
-                                                                                                       'lookahead' => 0,
-                                                                                                       'argcode' => undef,
-                                                                                                       'matchrule' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'lookahead' => 0,
-                                                                                                       'line' => 105,
-                                                                                                       'implicit' => undef,
-                                                                                                       'subrule' => 'subject',
-                                                                                                       'argcode' => undef
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 105,
-                                                                                                       'subrule' => 'from',
-                                                                                                       'lookahead' => 0,
-                                                                                                       'argcode' => undef,
-                                                                                                       'matchrule' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'argcode' => undef,
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 105,
-                                                                                                       'subrule' => 'sender',
-                                                                                                       'lookahead' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'lookahead' => 0,
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 105,
-                                                                                                       'subrule' => 'replyto',
-                                                                                                       'argcode' => undef,
-                                                                                                       'matchrule' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'subrule' => 'to',
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 105,
-                                                                                                       'lookahead' => 0,
-                                                                                                       'argcode' => undef
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'argcode' => undef,
-                                                                                                       'subrule' => 'cc',
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 105,
-                                                                                                       'lookahead' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'implicit' => undef,
-                                                                                                       'subrule' => 'bcc',
-                                                                                                       'line' => 106,
-                                                                                                       'lookahead' => 0,
-                                                                                                       'argcode' => undef
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'matchrule' => 0,
-                                                                                                       'lookahead' => 0,
-                                                                                                       'line' => 106,
-                                                                                                       'implicit' => undef,
-                                                                                                       'subrule' => 'inreplyto',
-                                                                                                       'argcode' => undef
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'argcode' => undef,
-                                                                                                       'lookahead' => 0,
-                                                                                                       'implicit' => undef,
-                                                                                                       'line' => 106,
-                                                                                                       'subrule' => 'messageid',
-                                                                                                       'matchrule' => 0
-                                                                                                     }, 'Parse::RecDescent::Subrule' ),
-                                                                                              bless( {
-                                                                                                       'description' => '\')\'',
-                                                                                                       'hashname' => '__STRING2__',
-                                                                                                       'lookahead' => 0,
-                                                                                                       'line' => 106,
-                                                                                                       'pattern' => ')'
-                                                                                                     }, 'Parse::RecDescent::InterpLit' ),
-                                                                                              bless( {
-                                                                                                       'hashname' => '__ACTION1__',
-                                                                                                       'code' => '{ $return = bless {}, "Mail::IMAPClient::BodyStructure::Envelope";
-	  $return->{$_} = $item{$_}
-	     for qw/date subject from sender replyto to cc/
-	       , qw/bcc inreplyto messageid/;
-	  1;
-	}',
-                                                                                                       'line' => 107,
-                                                                                                       'lookahead' => 0
-                                                                                                     }, 'Parse::RecDescent::Action' )
-                                                                                            ],
-                                                                                 'dircount' => 0,
-                                                                                 'strcount' => 2,
-                                                                                 'uncommit' => undef,
-                                                                                 'actcount' => 1
-                                                                               }, 'Parse::RecDescent::Production' )
-                                                                      ],
-                                                           'line' => 105,
-                                                           'opcount' => 0,
-                                                           'name' => 'envelopestruct',
-                                                           'changed' => 0,
-                                                           'impcount' => 0,
-                                                           'vars' => ''
-                                                         }, 'Parse::RecDescent::Rule' ),
-                              'subpart' => bless( {
-                                                    'name' => 'subpart',
-                                                    'opcount' => 0,
-                                                    'changed' => 0,
-                                                    'impcount' => 0,
-                                                    'vars' => '',
-                                                    'line' => 175,
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'actcount' => 1,
-                                                                          'uncommit' => undef,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'hashname' => '__STRING1__',
-                                                                                                'description' => '\'(\'',
-                                                                                                'line' => 175,
-                                                                                                'pattern' => '(',
-                                                                                                'lookahead' => 0
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'argcode' => undef,
-                                                                                                'lookahead' => 0,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'part',
-                                                                                                'line' => 175,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' ),
-                                                                                       bless( {
-                                                                                                'line' => 175,
-                                                                                                'pattern' => ')',
-                                                                                                'lookahead' => 0,
-                                                                                                'hashname' => '__STRING2__',
-                                                                                                'description' => '\')\''
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'line' => 175,
-                                                                                                'lookahead' => 0,
-                                                                                                'hashname' => '__ACTION1__',
-                                                                                                'code' => '{$return = $item{part}}'
-                                                                                              }, 'Parse::RecDescent::Action' ),
-                                                                                       bless( {
-                                                                                                'line' => 175,
-                                                                                                'lookahead' => 0,
-                                                                                                'code' => 'push @{$thisparser->{deferred}}, sub {  ++$subpartCount; };',
-                                                                                                'hashname' => '__DIRECTIVE1__',
-                                                                                                'name' => '<defer:{  ++$subpartCount; }>'
-                                                                                              }, 'Parse::RecDescent::Directive' )
-                                                                                     ],
-                                                                          'dircount' => 1,
-                                                                          'line' => undef,
-                                                                          'strcount' => 2,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'calls' => [
-                                                                 'part'
-                                                               ]
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'NIL' => bless( {
-                                                'opcount' => 0,
-                                                'name' => 'NIL',
-                                                'changed' => 0,
-                                                'impcount' => 0,
-                                                'vars' => '',
-                                                'prods' => [
-                                                             bless( {
-                                                                      'actcount' => 1,
-                                                                      'uncommit' => undef,
-                                                                      'strcount' => 0,
-                                                                      'dircount' => 0,
-                                                                      'line' => undef,
-                                                                      'items' => [
-                                                                                   bless( {
-                                                                                            'description' => '/^NIL/i',
-                                                                                            'mod' => 'i',
-                                                                                            'ldelim' => '/',
-                                                                                            'hashname' => '__PATTERN1__',
-                                                                                            'rdelim' => '/',
-                                                                                            'lookahead' => 0,
-                                                                                            'line' => 34,
-                                                                                            'pattern' => '^NIL'
-                                                                                          }, 'Parse::RecDescent::Token' ),
-                                                                                   bless( {
-                                                                                            'hashname' => '__ACTION1__',
-                                                                                            'code' => '{ $return = "NIL"    }',
-                                                                                            'lookahead' => 0,
-                                                                                            'line' => 34
-                                                                                          }, 'Parse::RecDescent::Action' )
-                                                                                 ],
-                                                                      'patcount' => 1,
-                                                                      'number' => 0,
-                                                                      'error' => undef
-                                                                    }, 'Parse::RecDescent::Production' )
-                                                           ],
-                                                'calls' => [],
-                                                'line' => 34
-                                              }, 'Parse::RecDescent::Rule' ),
-                              'PLAIN' => bless( {
-                                                  'opcount' => 0,
-                                                  'name' => 'PLAIN',
-                                                  'impcount' => 0,
-                                                  'changed' => 0,
-                                                  'vars' => '',
-                                                  'line' => 30,
-                                                  'prods' => [
-                                                               bless( {
-                                                                        'error' => undef,
-                                                                        'actcount' => 1,
-                                                                        'uncommit' => undef,
-                                                                        'strcount' => 0,
-                                                                        'line' => undef,
-                                                                        'dircount' => 0,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'hashname' => '__PATTERN1__',
-                                                                                              'rdelim' => '/',
-                                                                                              'pattern' => '^"PLAIN"|^PLAIN',
-                                                                                              'line' => 30,
-                                                                                              'lookahead' => 0,
-                                                                                              'mod' => 'i',
-                                                                                              'description' => '/^"PLAIN"|^PLAIN/i',
-                                                                                              'ldelim' => '/'
-                                                                                            }, 'Parse::RecDescent::Token' ),
-                                                                                     bless( {
-                                                                                              'lookahead' => 0,
-                                                                                              'line' => 30,
-                                                                                              'code' => '{ $return = "PLAIN"  }',
-                                                                                              'hashname' => '__ACTION1__'
-                                                                                            }, 'Parse::RecDescent::Action' )
-                                                                                   ],
-                                                                        'patcount' => 1,
-                                                                        'number' => 0
-                                                                      }, 'Parse::RecDescent::Production' )
-                                                             ],
-                                                  'calls' => []
-                                                }, 'Parse::RecDescent::Rule' ),
-                              'RFC822' => bless( {
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'error' => undef,
-                                                                         'actcount' => 1,
-                                                                         'uncommit' => undef,
-                                                                         'strcount' => 0,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'line' => 33,
-                                                                                               'pattern' => '^"RFC822"|^RFC822',
-                                                                                               'lookahead' => 0,
-                                                                                               'rdelim' => '/',
-                                                                                               'hashname' => '__PATTERN1__',
-                                                                                               'ldelim' => '/',
-                                                                                               'description' => '/^"RFC822"|^RFC822/i',
-                                                                                               'mod' => 'i'
-                                                                                             }, 'Parse::RecDescent::Token' ),
-                                                                                      bless( {
-                                                                                               'code' => '{ $return = "RFC822" }',
-                                                                                               'hashname' => '__ACTION1__',
-                                                                                               'lookahead' => 0,
-                                                                                               'line' => 33
-                                                                                             }, 'Parse::RecDescent::Action' )
-                                                                                    ],
-                                                                         'line' => undef,
-                                                                         'dircount' => 0,
-                                                                         'patcount' => 1,
-                                                                         'number' => 0
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'calls' => [],
-                                                   'line' => 33,
-                                                   'vars' => '',
-                                                   'impcount' => 0,
-                                                   'changed' => 0,
-                                                   'opcount' => 0,
-                                                   'name' => 'RFC822'
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'bodysubtype' => bless( {
-                                                        'vars' => '',
-                                                        'impcount' => 0,
-                                                        'changed' => 0,
-                                                        'opcount' => 0,
-                                                        'name' => 'bodysubtype',
-                                                        'line' => 54,
-                                                        'prods' => [
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'line' => undef,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'subrule' => 'PLAIN',
-                                                                                                    'implicit' => undef,
-                                                                                                    'line' => 54,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'strcount' => 0,
-                                                                              'number' => 0,
-                                                                              'patcount' => 0,
-                                                                              'actcount' => 0,
-                                                                              'uncommit' => undef
-                                                                            }, 'Parse::RecDescent::Production' ),
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'strcount' => 0,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 54,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'HTML',
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'line' => 54,
-                                                                              'dircount' => 0,
-                                                                              'patcount' => 0,
-                                                                              'number' => 1,
-                                                                              'actcount' => 0,
-                                                                              'uncommit' => undef
-                                                                            }, 'Parse::RecDescent::Production' ),
-                                                                     bless( {
-                                                                              'uncommit' => undef,
-                                                                              'actcount' => 0,
-                                                                              'number' => 2,
-                                                                              'patcount' => 0,
-                                                                              'line' => 54,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'subrule' => 'NIL',
-                                                                                                    'implicit' => undef,
-                                                                                                    'line' => 54,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'strcount' => 0,
-                                                                              'error' => undef
-                                                                            }, 'Parse::RecDescent::Production' ),
-                                                                     bless( {
-                                                                              'strcount' => 0,
-                                                                              'line' => 54,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'line' => 54,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'STRING',
-                                                                                                    'lookahead' => 0,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'patcount' => 0,
-                                                                              'number' => 3,
-                                                                              'actcount' => 0,
-                                                                              'uncommit' => undef,
-                                                                              'error' => undef
-                                                                            }, 'Parse::RecDescent::Production' )
-                                                                   ],
-                                                        'calls' => [
-                                                                     'PLAIN',
-                                                                     'HTML',
-                                                                     'NIL',
-                                                                     'STRING'
-                                                                   ]
-                                                      }, 'Parse::RecDescent::Rule' ),
-                              'from' => bless( {
-                                                 'opcount' => 0,
-                                                 'name' => 'from',
-                                                 'vars' => '',
-                                                 'impcount' => 0,
-                                                 'changed' => 0,
-                                                 'calls' => [
-                                                              'ADDRESSES'
-                                                            ],
-                                                 'prods' => [
-                                                              bless( {
-                                                                       'error' => undef,
-                                                                       'uncommit' => undef,
-                                                                       'actcount' => 0,
-                                                                       'patcount' => 0,
-                                                                       'number' => 0,
-                                                                       'strcount' => 0,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'matchrule' => 0,
-                                                                                             'argcode' => undef,
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'ADDRESSES',
-                                                                                             'line' => 100,
-                                                                                             'lookahead' => 0
-                                                                                           }, 'Parse::RecDescent::Subrule' )
-                                                                                  ],
-                                                                       'line' => undef,
-                                                                       'dircount' => 0
-                                                                     }, 'Parse::RecDescent::Production' )
-                                                            ],
-                                                 'line' => 100
-                                               }, 'Parse::RecDescent::Rule' ),
-                              'multipart' => bless( {
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 1,
-                                                                            'number' => 0,
-                                                                            'patcount' => 0,
-                                                                            'line' => undef,
-                                                                            'dircount' => 2,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'expected' => undef,
-                                                                                                  'repspec' => 's',
-                                                                                                  'min' => 1,
-                                                                                                  'argcode' => undef,
-                                                                                                  'max' => 100000000,
-                                                                                                  'subrule' => 'subpart',
-                                                                                                  'line' => 162,
-                                                                                                  'lookahead' => 0
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 162,
-                                                                                                  'name' => '<commit>',
-                                                                                                  'hashname' => '__DIRECTIVE1__',
-                                                                                                  'code' => '$commit = 1'
-                                                                                                }, 'Parse::RecDescent::Directive' ),
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'subrule' => 'bodysubtype',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 162,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' ),
-                                                                                         bless( {
-                                                                                                  'repspec' => '?',
-                                                                                                  'expected' => undef,
-                                                                                                  'matchrule' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'min' => 0,
-                                                                                                  'max' => 1,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 163,
-                                                                                                  'subrule' => 'bodyparms'
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'min' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'matchrule' => 0,
-                                                                                                  'expected' => undef,
-                                                                                                  'repspec' => '?',
-                                                                                                  'line' => 163,
-                                                                                                  'subrule' => 'bodydisp',
-                                                                                                  'lookahead' => 0,
-                                                                                                  'max' => 1
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'max' => 1,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 163,
-                                                                                                  'subrule' => 'bodylang',
-                                                                                                  'repspec' => '?',
-                                                                                                  'expected' => undef,
-                                                                                                  'matchrule' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'min' => 0
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'max' => 1,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 163,
-                                                                                                  'subrule' => 'bodyloc',
-                                                                                                  'expected' => undef,
-                                                                                                  'matchrule' => 0,
-                                                                                                  'repspec' => '?',
-                                                                                                  'min' => 0,
-                                                                                                  'argcode' => undef
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'max' => 1,
-                                                                                                  'subrule' => 'bodyextra',
-                                                                                                  'line' => 163,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'repspec' => '?',
-                                                                                                  'matchrule' => 0,
-                                                                                                  'expected' => undef,
-                                                                                                  'argcode' => undef,
-                                                                                                  'min' => 0
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'hashname' => '__DIRECTIVE2__',
-                                                                                                  'name' => '<defer:{  $subpartCount = 0 }>',
-                                                                                                  'code' => 'push @{$thisparser->{deferred}}, sub {  $subpartCount = 0 };',
-                                                                                                  'line' => 164,
-                                                                                                  'lookahead' => 0
-                                                                                                }, 'Parse::RecDescent::Directive' ),
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 165,
-                                                                                                  'hashname' => '__ACTION1__',
-                                                                                                  'code' => '{ $return =
-	    { bodysubtype   => $item{bodysubtype}
-	    , bodytype      => \'MULTIPART\'
-	    , bodystructure => $item{\'subpart(s)\'}
-	    };
-	  take_optional_items($return, \\%item
-              , qw/bodyparms bodydisp bodylang bodyloc bodyextra/);
-	  1;
-	}'
-                                                                                                }, 'Parse::RecDescent::Action' )
-                                                                                       ],
-                                                                            'strcount' => 0
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'calls' => [
-                                                                   'subpart',
-                                                                   'bodysubtype',
-                                                                   'bodyparms',
-                                                                   'bodydisp',
-                                                                   'bodylang',
-                                                                   'bodyloc',
-                                                                   'bodyextra'
-                                                                 ],
-                                                      'line' => 162,
-                                                      'vars' => '',
-                                                      'impcount' => 0,
-                                                      'changed' => 0,
-                                                      'name' => 'multipart',
-                                                      'opcount' => 0
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'bodyid' => bless( {
-                                                   'opcount' => 0,
-                                                   'name' => 'bodyid',
-                                                   'changed' => 0,
-                                                   'impcount' => 0,
-                                                   'vars' => '',
-                                                   'calls' => [
-                                                                'NIL',
-                                                                'STRING'
-                                                              ],
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'number' => 0,
-                                                                         'patcount' => 1,
-                                                                         'line' => undef,
-                                                                         'dircount' => 0,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'hashname' => '__PATTERN1__',
-                                                                                               'rdelim' => '/',
-                                                                                               'lookahead' => -1,
-                                                                                               'line' => 68,
-                                                                                               'pattern' => '[()]',
-                                                                                               'mod' => '',
-                                                                                               'description' => '/[()]/',
-                                                                                               'ldelim' => '/'
-                                                                                             }, 'Parse::RecDescent::Token' ),
-                                                                                      bless( {
-                                                                                               'matchrule' => 0,
-                                                                                               'line' => 68,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'NIL',
-                                                                                               'lookahead' => 0,
-                                                                                               'argcode' => undef
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'strcount' => 0,
-                                                                         'uncommit' => undef,
-                                                                         'actcount' => 0,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' ),
-                                                                bless( {
-                                                                         'line' => 68,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'argcode' => undef,
-                                                                                               'line' => 68,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'STRING',
-                                                                                               'lookahead' => 0,
-                                                                                               'matchrule' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 0,
-                                                                         'number' => 1,
-                                                                         'patcount' => 0,
-                                                                         'actcount' => 0,
-                                                                         'uncommit' => undef,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'line' => 68
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'bodylang' => bless( {
-                                                     'line' => 73,
-                                                     'calls' => [
-                                                                  'NIL',
-                                                                  'STRING',
-                                                                  'STRINGS'
-                                                                ],
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'error' => undef,
-                                                                           'number' => 0,
-                                                                           'patcount' => 0,
-                                                                           'line' => undef,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'lookahead' => 0,
-                                                                                                 'subrule' => 'NIL',
-                                                                                                 'implicit' => undef,
-                                                                                                 'line' => 73,
-                                                                                                 'argcode' => undef,
-                                                                                                 'matchrule' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'dircount' => 0,
-                                                                           'strcount' => 0,
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'patcount' => 0,
-                                                                           'number' => 1,
-                                                                           'strcount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'argcode' => undef,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'STRING',
-                                                                                                 'line' => 73,
-                                                                                                 'lookahead' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'dircount' => 0,
-                                                                           'line' => 73,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'number' => 2,
-                                                                           'patcount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'implicit' => undef,
-                                                                                                 'line' => 73,
-                                                                                                 'subrule' => 'STRINGS',
-                                                                                                 'argcode' => undef
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'line' => 73,
-                                                                           'dircount' => 0,
-                                                                           'strcount' => 0,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'opcount' => 0,
-                                                     'name' => 'bodylang',
-                                                     'vars' => '',
-                                                     'impcount' => 0,
-                                                     'changed' => 0
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'bodyloc' => bless( {
-                                                    'line' => 75,
-                                                    'calls' => [
-                                                                 'NIL',
-                                                                 'STRING'
-                                                               ],
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 0,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'matchrule' => 0,
-                                                                                                'argcode' => undef,
-                                                                                                'implicit' => undef,
-                                                                                                'line' => 75,
-                                                                                                'subrule' => 'NIL',
-                                                                                                'lookahead' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'line' => undef,
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 0
-                                                                        }, 'Parse::RecDescent::Production' ),
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'strcount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'implicit' => undef,
-                                                                                                'line' => 75,
-                                                                                                'subrule' => 'STRING',
-                                                                                                'lookahead' => 0,
-                                                                                                'argcode' => undef,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'line' => 75,
-                                                                          'dircount' => 0,
-                                                                          'patcount' => 0,
-                                                                          'number' => 1,
-                                                                          'actcount' => 0,
-                                                                          'uncommit' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'opcount' => 0,
-                                                    'name' => 'bodyloc',
-                                                    'vars' => '',
-                                                    'impcount' => 0,
-                                                    'changed' => 0
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'inreplyto' => bless( {
-                                                      'opcount' => 0,
-                                                      'name' => 'inreplyto',
-                                                      'impcount' => 0,
-                                                      'changed' => 0,
-                                                      'vars' => '',
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'STRING'
-                                                                 ],
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'patcount' => 0,
-                                                                            'number' => 0,
-                                                                            'strcount' => 0,
-                                                                            'line' => undef,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'subrule' => 'NIL',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 91,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'implicit' => undef,
-                                                                                                  'subrule' => 'STRING',
-                                                                                                  'line' => 91,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'line' => 91,
-                                                                            'strcount' => 0,
-                                                                            'number' => 1,
-                                                                            'patcount' => 0
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'line' => 91
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'ADDRESSES' => bless( {
-                                                      'line' => 95,
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0,
-                                                                            'patcount' => 0,
-                                                                            'number' => 0,
-                                                                            'strcount' => 0,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 95,
-                                                                                                  'implicit' => undef,
-                                                                                                  'subrule' => 'NIL',
-                                                                                                  'argcode' => undef
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'line' => undef,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'patcount' => 0,
-                                                                            'number' => 1,
-                                                                            'strcount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 95,
-                                                                                                  'subrule' => 'RFCNONCOMPLY',
-                                                                                                  'lookahead' => 0,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'line' => 95,
-                                                                            'dircount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'actcount' => 1,
-                                                                            'uncommit' => undef,
-                                                                            'strcount' => 2,
-                                                                            'line' => 96,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 96,
-                                                                                                  'pattern' => '(',
-                                                                                                  'description' => '\'(\'',
-                                                                                                  'hashname' => '__STRING1__'
-                                                                                                }, 'Parse::RecDescent::InterpLit' ),
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'min' => 1,
-                                                                                                  'repspec' => 's',
-                                                                                                  'matchrule' => 0,
-                                                                                                  'expected' => undef,
-                                                                                                  'subrule' => 'addressstruct',
-                                                                                                  'line' => 96,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'max' => 100000000
-                                                                                                }, 'Parse::RecDescent::Repetition' ),
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 96,
-                                                                                                  'pattern' => ')',
-                                                                                                  'description' => '\')\'',
-                                                                                                  'hashname' => '__STRING2__'
-                                                                                                }, 'Parse::RecDescent::InterpLit' ),
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 96,
-                                                                                                  'code' => '{ $return = $item{\'addressstruct(s)\'} }',
-                                                                                                  'hashname' => '__ACTION1__'
-                                                                                                }, 'Parse::RecDescent::Action' )
-                                                                                       ],
-                                                                            'patcount' => 0,
-                                                                            'number' => 2,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'RFCNONCOMPLY',
-                                                                   'addressstruct'
-                                                                 ],
-                                                      'vars' => '',
-                                                      'impcount' => 0,
-                                                      'changed' => 0,
-                                                      'opcount' => 0,
-                                                      'name' => 'ADDRESSES'
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'key' => bless( {
-                                                'calls' => [
-                                                             'STRING'
-                                                           ],
-                                                'prods' => [
-                                                             bless( {
-                                                                      'error' => undef,
-                                                                      'number' => 0,
-                                                                      'patcount' => 0,
-                                                                      'items' => [
-                                                                                   bless( {
-                                                                                            'argcode' => undef,
-                                                                                            'implicit' => undef,
-                                                                                            'line' => 56,
-                                                                                            'subrule' => 'STRING',
-                                                                                            'lookahead' => 0,
-                                                                                            'matchrule' => 0
-                                                                                          }, 'Parse::RecDescent::Subrule' )
-                                                                                 ],
-                                                                      'dircount' => 0,
-                                                                      'line' => undef,
-                                                                      'strcount' => 0,
-                                                                      'uncommit' => undef,
-                                                                      'actcount' => 0
-                                                                    }, 'Parse::RecDescent::Production' )
-                                                           ],
-                                                'line' => 56,
-                                                'impcount' => 0,
-                                                'changed' => 0,
-                                                'vars' => '',
-                                                'opcount' => 0,
-                                                'name' => 'key'
-                                              }, 'Parse::RecDescent::Rule' ),
-                              'rfc822message' => bless( {
-                                                          'prods' => [
-                                                                       bless( {
-                                                                                'error' => undef,
-                                                                                'actcount' => 1,
-                                                                                'uncommit' => undef,
-                                                                                'dircount' => 0,
-                                                                                'items' => [
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'subrule' => 'MESSAGE',
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 52,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'argcode' => undef,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'subrule' => 'RFC822',
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 52,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 52,
-                                                                                                      'hashname' => '__ACTION1__',
-                                                                                                      'code' => '{ $return = "MESSAGE RFC822" }'
-                                                                                                    }, 'Parse::RecDescent::Action' )
-                                                                                           ],
-                                                                                'line' => undef,
-                                                                                'strcount' => 0,
-                                                                                'number' => 0,
-                                                                                'patcount' => 0
-                                                                              }, 'Parse::RecDescent::Production' )
-                                                                     ],
-                                                          'calls' => [
-                                                                       'MESSAGE',
-                                                                       'RFC822'
-                                                                     ],
-                                                          'line' => 52,
-                                                          'changed' => 0,
-                                                          'impcount' => 0,
-                                                          'vars' => '',
-                                                          'opcount' => 0,
-                                                          'name' => 'rfc822message'
-                                                        }, 'Parse::RecDescent::Rule' ),
-                              'bcc' => bless( {
-                                                'opcount' => 0,
-                                                'name' => 'bcc',
-                                                'vars' => '',
-                                                'impcount' => 0,
-                                                'changed' => 0,
-                                                'calls' => [
-                                                             'ADDRESSES'
-                                                           ],
-                                                'prods' => [
-                                                             bless( {
-                                                                      'patcount' => 0,
-                                                                      'number' => 0,
-                                                                      'strcount' => 0,
-                                                                      'items' => [
-                                                                                   bless( {
-                                                                                            'matchrule' => 0,
-                                                                                            'subrule' => 'ADDRESSES',
-                                                                                            'implicit' => undef,
-                                                                                            'line' => 99,
-                                                                                            'lookahead' => 0,
-                                                                                            'argcode' => undef
-                                                                                          }, 'Parse::RecDescent::Subrule' )
-                                                                                 ],
-                                                                      'line' => undef,
-                                                                      'dircount' => 0,
-                                                                      'uncommit' => undef,
-                                                                      'actcount' => 0,
-                                                                      'error' => undef
-                                                                    }, 'Parse::RecDescent::Production' )
-                                                           ],
-                                                'line' => 99
-                                              }, 'Parse::RecDescent::Rule' ),
-                              'bodydisp' => bless( {
-                                                     'opcount' => 0,
-                                                     'name' => 'bodydisp',
-                                                     'changed' => 0,
-                                                     'impcount' => 0,
-                                                     'vars' => '',
-                                                     'line' => 67,
-                                                     'calls' => [
-                                                                  'NIL',
-                                                                  'KVPAIRS'
-                                                                ],
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'error' => undef,
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'patcount' => 0,
-                                                                           'number' => 0,
-                                                                           'strcount' => 0,
-                                                                           'line' => undef,
-                                                                           'dircount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'line' => 67,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'NIL',
-                                                                                                 'lookahead' => 0,
-                                                                                                 'argcode' => undef
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ]
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'error' => undef,
-                                                                           'strcount' => 0,
-                                                                           'line' => 67,
-                                                                           'dircount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'lookahead' => 0,
-                                                                                                 'implicit' => undef,
-                                                                                                 'line' => 67,
-                                                                                                 'subrule' => 'KVPAIRS',
-                                                                                                 'argcode' => undef,
-                                                                                                 'matchrule' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'patcount' => 0,
-                                                                           'number' => 1,
-                                                                           'actcount' => 0,
-                                                                           'uncommit' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ]
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'KVPAIRS' => bless( {
-                                                    'vars' => '',
-                                                    'impcount' => 0,
-                                                    'changed' => 0,
-                                                    'opcount' => 0,
-                                                    'name' => 'KVPAIRS',
-                                                    'line' => 62,
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'dircount' => 0,
-                                                                          'line' => undef,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'description' => '\'(\'',
-                                                                                                'hashname' => '__STRING1__',
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 62,
-                                                                                                'pattern' => '('
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 62,
-                                                                                                'subrule' => 'kvpair',
-                                                                                                'max' => 100000000,
-                                                                                                'min' => 1,
-                                                                                                'argcode' => undef,
-                                                                                                'expected' => undef,
-                                                                                                'matchrule' => 0,
-                                                                                                'repspec' => 's'
-                                                                                              }, 'Parse::RecDescent::Repetition' ),
-                                                                                       bless( {
-                                                                                                'hashname' => '__STRING2__',
-                                                                                                'description' => '\')\'',
-                                                                                                'line' => 62,
-                                                                                                'pattern' => ')',
-                                                                                                'lookahead' => 0
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'hashname' => '__ACTION1__',
-                                                                                                'code' => '{ $return = { map { (%$_) } @{$item{\'kvpair(s)\'}} } }',
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 63
-                                                                                              }, 'Parse::RecDescent::Action' )
-                                                                                     ],
-                                                                          'strcount' => 2,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'actcount' => 1,
-                                                                          'uncommit' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'calls' => [
-                                                                 'kvpair'
-                                                               ]
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'bodyMD5' => bless( {
-                                                    'calls' => [
-                                                                 'NIL',
-                                                                 'STRING'
-                                                               ],
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 0,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'line' => undef,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'argcode' => undef,
-                                                                                                'line' => 72,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'NIL',
-                                                                                                'lookahead' => 0,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' ),
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'actcount' => 0,
-                                                                          'uncommit' => undef,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'matchrule' => 0,
-                                                                                                'subrule' => 'STRING',
-                                                                                                'implicit' => undef,
-                                                                                                'line' => 72,
-                                                                                                'lookahead' => 0,
-                                                                                                'argcode' => undef
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'dircount' => 0,
-                                                                          'line' => 72,
-                                                                          'strcount' => 0,
-                                                                          'number' => 1,
-                                                                          'patcount' => 0
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'line' => 72,
-                                                    'name' => 'bodyMD5',
-                                                    'opcount' => 0,
-                                                    'vars' => '',
-                                                    'changed' => 0,
-                                                    'impcount' => 0
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'part' => bless( {
-                                                 'name' => 'part',
-                                                 'opcount' => 0,
-                                                 'vars' => '',
-                                                 'impcount' => 0,
-                                                 'changed' => 0,
-                                                 'line' => 177,
-                                                 'prods' => [
-                                                              bless( {
-                                                                       'error' => undef,
-                                                                       'number' => 0,
-                                                                       'patcount' => 0,
-                                                                       'line' => undef,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'multipart',
-                                                                                             'line' => 177,
-                                                                                             'lookahead' => 0,
-                                                                                             'argcode' => undef,
-                                                                                             'matchrule' => 0
-                                                                                           }, 'Parse::RecDescent::Subrule' ),
-                                                                                    bless( {
-                                                                                             'line' => 177,
-                                                                                             'lookahead' => 0,
-                                                                                             'code' => '{ $return = bless $item{multipart}, $mibs }',
-                                                                                             'hashname' => '__ACTION1__'
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'dircount' => 0,
-                                                                       'strcount' => 0,
-                                                                       'uncommit' => undef,
-                                                                       'actcount' => 1
-                                                                     }, 'Parse::RecDescent::Production' ),
-                                                              bless( {
-                                                                       'uncommit' => undef,
-                                                                       'actcount' => 1,
-                                                                       'number' => 1,
-                                                                       'patcount' => 0,
-                                                                       'line' => 178,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'lookahead' => 0,
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'textmessage',
-                                                                                             'line' => 178,
-                                                                                             'argcode' => undef,
-                                                                                             'matchrule' => 0
-                                                                                           }, 'Parse::RecDescent::Subrule' ),
-                                                                                    bless( {
-                                                                                             'hashname' => '__ACTION1__',
-                                                                                             'code' => '{ $return = bless $item{textmessage}, $mibs }',
-                                                                                             'line' => 178,
-                                                                                             'lookahead' => 0
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'dircount' => 0,
-                                                                       'strcount' => 0,
-                                                                       'error' => undef
-                                                                     }, 'Parse::RecDescent::Production' ),
-                                                              bless( {
-                                                                       'error' => undef,
-                                                                       'actcount' => 1,
-                                                                       'uncommit' => undef,
-                                                                       'strcount' => 0,
-                                                                       'line' => 179,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'matchrule' => 0,
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'nestedmessage',
-                                                                                             'line' => 179,
-                                                                                             'lookahead' => 0,
-                                                                                             'argcode' => undef
-                                                                                           }, 'Parse::RecDescent::Subrule' ),
-                                                                                    bless( {
-                                                                                             'line' => 179,
-                                                                                             'lookahead' => 0,
-                                                                                             'hashname' => '__ACTION1__',
-                                                                                             'code' => '{ $return = bless $item{nestedmessage}, $mibs }'
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'dircount' => 0,
-                                                                       'patcount' => 0,
-                                                                       'number' => 2
-                                                                     }, 'Parse::RecDescent::Production' ),
-                                                              bless( {
-                                                                       'error' => undef,
-                                                                       'actcount' => 1,
-                                                                       'uncommit' => undef,
-                                                                       'dircount' => 0,
-                                                                       'line' => 180,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'matchrule' => 0,
-                                                                                             'lookahead' => 0,
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'othertypemessage',
-                                                                                             'line' => 180,
-                                                                                             'argcode' => undef
-                                                                                           }, 'Parse::RecDescent::Subrule' ),
-                                                                                    bless( {
-                                                                                             'lookahead' => 0,
-                                                                                             'line' => 180,
-                                                                                             'hashname' => '__ACTION1__',
-                                                                                             'code' => '{ $return = bless $item{othertypemessage}, $mibs }'
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'strcount' => 0,
-                                                                       'number' => 3,
-                                                                       'patcount' => 0
-                                                                     }, 'Parse::RecDescent::Production' )
-                                                            ],
-                                                 'calls' => [
-                                                              'multipart',
-                                                              'textmessage',
-                                                              'nestedmessage',
-                                                              'othertypemessage'
-                                                            ]
-                                               }, 'Parse::RecDescent::Rule' ),
-                              'TEXT' => bless( {
-                                                 'line' => 27,
-                                                 'prods' => [
-                                                              bless( {
-                                                                       'uncommit' => undef,
-                                                                       'actcount' => 1,
-                                                                       'number' => 0,
-                                                                       'patcount' => 1,
-                                                                       'line' => undef,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'hashname' => '__PATTERN1__',
-                                                                                             'rdelim' => '/',
-                                                                                             'lookahead' => 0,
-                                                                                             'pattern' => '^"TEXT"|^TEXT',
-                                                                                             'line' => 29,
-                                                                                             'mod' => 'i',
-                                                                                             'description' => '/^"TEXT"|^TEXT/i',
-                                                                                             'ldelim' => '/'
-                                                                                           }, 'Parse::RecDescent::Token' ),
-                                                                                    bless( {
-                                                                                             'line' => 29,
-                                                                                             'lookahead' => 0,
-                                                                                             'code' => '{ $return = "TEXT"   }',
-                                                                                             'hashname' => '__ACTION1__'
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'dircount' => 0,
-                                                                       'strcount' => 0,
-                                                                       'error' => undef
-                                                                     }, 'Parse::RecDescent::Production' )
-                                                            ],
-                                                 'calls' => [],
-                                                 'vars' => '',
-                                                 'impcount' => 0,
-                                                 'changed' => 0,
-                                                 'name' => 'TEXT',
-                                                 'opcount' => 0
-                                               }, 'Parse::RecDescent::Rule' ),
-                              'MESSAGE' => bless( {
-                                                    'name' => 'MESSAGE',
-                                                    'opcount' => 0,
-                                                    'impcount' => 0,
-                                                    'changed' => 0,
-                                                    'vars' => '',
-                                                    'line' => 32,
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'actcount' => 1,
-                                                                          'uncommit' => undef,
-                                                                          'strcount' => 0,
-                                                                          'line' => undef,
-                                                                          'dircount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'description' => '/^"MESSAGE"|^MESSAGE/i',
-                                                                                                'mod' => 'i',
-                                                                                                'ldelim' => '/',
-                                                                                                'hashname' => '__PATTERN1__',
-                                                                                                'rdelim' => '/',
-                                                                                                'lookahead' => 0,
-                                                                                                'pattern' => '^"MESSAGE"|^MESSAGE',
-                                                                                                'line' => 32
-                                                                                              }, 'Parse::RecDescent::Token' ),
-                                                                                       bless( {
-                                                                                                'code' => '{ $return = "MESSAGE"}',
-                                                                                                'hashname' => '__ACTION1__',
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 32
-                                                                                              }, 'Parse::RecDescent::Action' )
-                                                                                     ],
-                                                                          'patcount' => 1,
-                                                                          'number' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'calls' => []
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'start' => bless( {
-                                                  'opcount' => 0,
-                                                  'name' => 'start',
-                                                  'vars' => '',
-                                                  'changed' => 0,
-                                                  'impcount' => 0,
-                                                  'calls' => [
-                                                               'part'
-                                                             ],
-                                                  'prods' => [
-                                                               bless( {
-                                                                        'error' => undef,
-                                                                        'strcount' => 0,
-                                                                        'line' => undef,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'hashname' => '__PATTERN1__',
-                                                                                              'pattern' => '.*?\\(.*?BODYSTRUCTURE \\(',
-                                                                                              'line' => 185,
-                                                                                              'lookahead' => 0,
-                                                                                              'rdelim' => '/',
-                                                                                              'mod' => 'i',
-                                                                                              'description' => '/.*?\\\\(.*?BODYSTRUCTURE \\\\(/i',
-                                                                                              'ldelim' => '/'
-                                                                                            }, 'Parse::RecDescent::Token' ),
-                                                                                     bless( {
-                                                                                              'lookahead' => 0,
-                                                                                              'subrule' => 'part',
-                                                                                              'line' => 185,
-                                                                                              'max' => 1,
-                                                                                              'min' => 1,
-                                                                                              'argcode' => undef,
-                                                                                              'expected' => undef,
-                                                                                              'matchrule' => 0,
-                                                                                              'repspec' => '1'
-                                                                                            }, 'Parse::RecDescent::Repetition' ),
-                                                                                     bless( {
-                                                                                              'mod' => '',
-                                                                                              'description' => '/\\\\).*\\\\)\\\\r?\\\\n?/',
-                                                                                              'ldelim' => '/',
-                                                                                              'hashname' => '__PATTERN2__',
-                                                                                              'line' => 185,
-                                                                                              'pattern' => '\\).*\\)\\r?\\n?',
-                                                                                              'lookahead' => 0,
-                                                                                              'rdelim' => '/'
-                                                                                            }, 'Parse::RecDescent::Token' ),
-                                                                                     bless( {
-                                                                                              'hashname' => '__ACTION1__',
-                                                                                              'code' => '{ $return = $item{\'part(1)\'}[0] }',
-                                                                                              'line' => 186,
-                                                                                              'lookahead' => 0
-                                                                                            }, 'Parse::RecDescent::Action' )
-                                                                                   ],
-                                                                        'dircount' => 0,
-                                                                        'patcount' => 2,
-                                                                        'number' => 0,
-                                                                        'actcount' => 1,
-                                                                        'uncommit' => undef
-                                                                      }, 'Parse::RecDescent::Production' )
-                                                             ],
-                                                  'line' => 185
-                                                }, 'Parse::RecDescent::Rule' ),
-                              'addressstruct' => bless( {
-                                                          'prods' => [
-                                                                       bless( {
-                                                                                'actcount' => 1,
-                                                                                'uncommit' => undef,
-                                                                                'strcount' => 2,
-                                                                                'items' => [
-                                                                                             bless( {
-                                                                                                      'line' => 82,
-                                                                                                      'pattern' => '(',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'hashname' => '__STRING1__',
-                                                                                                      'description' => '\'(\''
-                                                                                                    }, 'Parse::RecDescent::InterpLit' ),
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'personalname',
-                                                                                                      'line' => 82,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'sourceroute',
-                                                                                                      'line' => 82,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 82,
-                                                                                                      'subrule' => 'mailboxname',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'argcode' => undef,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'hostname',
-                                                                                                      'line' => 82,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'pattern' => ')',
-                                                                                                      'line' => 82,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'hashname' => '__STRING2__',
-                                                                                                      'description' => '\')\''
-                                                                                                    }, 'Parse::RecDescent::InterpLit' ),
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 83,
-                                                                                                      'code' => '{ bless { personalname => $item{personalname}
-		, sourceroute  => $item{sourceroute}
-		, mailboxname  => $item{mailboxname}
-		, hostname     => $item{hostname}
-	        }, \'Mail::IMAPClient::BodyStructure::Address\';
-	}',
-                                                                                                      'hashname' => '__ACTION1__'
-                                                                                                    }, 'Parse::RecDescent::Action' )
-                                                                                           ],
-                                                                                'line' => undef,
-                                                                                'dircount' => 0,
-                                                                                'patcount' => 0,
-                                                                                'number' => 0,
-                                                                                'error' => undef
-                                                                              }, 'Parse::RecDescent::Production' )
-                                                                     ],
-                                                          'calls' => [
-                                                                       'personalname',
-                                                                       'sourceroute',
-                                                                       'mailboxname',
-                                                                       'hostname'
-                                                                     ],
-                                                          'line' => 82,
-                                                          'changed' => 0,
-                                                          'impcount' => 0,
-                                                          'vars' => '',
-                                                          'name' => 'addressstruct',
-                                                          'opcount' => 0
-                                                        }, 'Parse::RecDescent::Rule' ),
-                              'date' => bless( {
-                                                 'vars' => '',
-                                                 'impcount' => 0,
-                                                 'changed' => 0,
-                                                 'opcount' => 0,
-                                                 'name' => 'date',
-                                                 'line' => 93,
-                                                 'prods' => [
-                                                              bless( {
-                                                                       'actcount' => 0,
-                                                                       'uncommit' => undef,
-                                                                       'strcount' => 0,
-                                                                       'dircount' => 0,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'matchrule' => 0,
-                                                                                             'line' => 93,
-                                                                                             'implicit' => undef,
-                                                                                             'subrule' => 'NIL',
-                                                                                             'lookahead' => 0,
-                                                                                             'argcode' => undef
-                                                                                           }, 'Parse::RecDescent::Subrule' )
-                                                                                  ],
-                                                                       'line' => undef,
-                                                                       'patcount' => 0,
-                                                                       'number' => 0,
-                                                                       'error' => undef
-                                                                     }, 'Parse::RecDescent::Production' ),
-                                                              bless( {
-                                                                       'uncommit' => undef,
-                                                                       'actcount' => 0,
-                                                                       'number' => 1,
-                                                                       'patcount' => 0,
-                                                                       'dircount' => 0,
-                                                                       'line' => 93,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'matchrule' => 0,
-                                                                                             'argcode' => undef,
-                                                                                             'implicit' => undef,
-                                                                                             'line' => 93,
-                                                                                             'subrule' => 'STRING',
-                                                                                             'lookahead' => 0
-                                                                                           }, 'Parse::RecDescent::Subrule' )
-                                                                                  ],
-                                                                       'strcount' => 0,
-                                                                       'error' => undef
-                                                                     }, 'Parse::RecDescent::Production' )
-                                                            ],
-                                                 'calls' => [
-                                                              'NIL',
-                                                              'STRING'
-                                                            ]
-                                               }, 'Parse::RecDescent::Rule' ),
-                              'hostname' => bless( {
-                                                     'changed' => 0,
-                                                     'impcount' => 0,
-                                                     'vars' => '',
-                                                     'opcount' => 0,
-                                                     'name' => 'hostname',
-                                                     'calls' => [
-                                                                  'NIL',
-                                                                  'STRING'
-                                                                ],
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'error' => undef,
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'patcount' => 0,
-                                                                           'number' => 0,
-                                                                           'strcount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'argcode' => undef,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'NIL',
-                                                                                                 'line' => 80,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'matchrule' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'line' => undef,
-                                                                           'dircount' => 0
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'patcount' => 0,
-                                                                           'number' => 1,
-                                                                           'strcount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'argcode' => undef,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'line' => 80,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'STRING',
-                                                                                                 'matchrule' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'line' => 80,
-                                                                           'dircount' => 0,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'line' => 80
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'HTML' => bless( {
-                                                 'name' => 'HTML',
-                                                 'opcount' => 0,
-                                                 'changed' => 0,
-                                                 'impcount' => 0,
-                                                 'vars' => '',
-                                                 'prods' => [
-                                                              bless( {
-                                                                       'error' => undef,
-                                                                       'actcount' => 1,
-                                                                       'uncommit' => undef,
-                                                                       'items' => [
-                                                                                    bless( {
-                                                                                             'ldelim' => '/',
-                                                                                             'description' => '/"HTML"|HTML/i',
-                                                                                             'mod' => 'i',
-                                                                                             'lookahead' => 0,
-                                                                                             'pattern' => '"HTML"|HTML',
-                                                                                             'line' => 31,
-                                                                                             'rdelim' => '/',
-                                                                                             'hashname' => '__PATTERN1__'
-                                                                                           }, 'Parse::RecDescent::Token' ),
-                                                                                    bless( {
-                                                                                             'lookahead' => 0,
-                                                                                             'line' => 31,
-                                                                                             'code' => '{ $return = "HTML"   }',
-                                                                                             'hashname' => '__ACTION1__'
-                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                  ],
-                                                                       'line' => undef,
-                                                                       'dircount' => 0,
-                                                                       'strcount' => 0,
-                                                                       'number' => 0,
-                                                                       'patcount' => 1
-                                                                     }, 'Parse::RecDescent::Production' )
-                                                            ],
-                                                 'calls' => [],
-                                                 'line' => 31
-                                               }, 'Parse::RecDescent::Rule' ),
-                              'kvpair' => bless( {
-                                                   'line' => 59,
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'error' => undef,
-                                                                         'dircount' => 0,
-                                                                         'line' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'hashname' => '__STRING1__',
-                                                                                               'description' => '\')\'',
-                                                                                               'line' => 59,
-                                                                                               'pattern' => ')',
-                                                                                               'lookahead' => -1
-                                                                                             }, 'Parse::RecDescent::InterpLit' ),
-                                                                                      bless( {
-                                                                                               'matchrule' => 0,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'key',
-                                                                                               'line' => 59,
-                                                                                               'lookahead' => 0,
-                                                                                               'argcode' => undef
-                                                                                             }, 'Parse::RecDescent::Subrule' ),
-                                                                                      bless( {
-                                                                                               'subrule' => 'value',
-                                                                                               'implicit' => undef,
-                                                                                               'line' => 59,
-                                                                                               'lookahead' => 0,
-                                                                                               'argcode' => undef,
-                                                                                               'matchrule' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' ),
-                                                                                      bless( {
-                                                                                               'hashname' => '__ACTION1__',
-                                                                                               'code' => '{ $return = { $item{key} => $item{value} } }',
-                                                                                               'line' => 60,
-                                                                                               'lookahead' => 0
-                                                                                             }, 'Parse::RecDescent::Action' )
-                                                                                    ],
-                                                                         'strcount' => 1,
-                                                                         'number' => 0,
-                                                                         'patcount' => 0,
-                                                                         'actcount' => 1,
-                                                                         'uncommit' => undef
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'calls' => [
-                                                                'key',
-                                                                'value'
-                                                              ],
-                                                   'name' => 'kvpair',
-                                                   'opcount' => 0,
-                                                   'vars' => '',
-                                                   'changed' => 0,
-                                                   'impcount' => 0
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'replyto' => bless( {
-                                                    'opcount' => 0,
-                                                    'name' => 'replyto',
-                                                    'vars' => '',
-                                                    'changed' => 0,
-                                                    'impcount' => 0,
-                                                    'line' => 101,
-                                                    'calls' => [
-                                                                 'ADDRESSES'
-                                                               ],
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'strcount' => 0,
-                                                                          'line' => undef,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'matchrule' => 0,
-                                                                                                'argcode' => undef,
-                                                                                                'subrule' => 'ADDRESSES',
-                                                                                                'implicit' => undef,
-                                                                                                'line' => 101,
-                                                                                                'lookahead' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'dircount' => 0,
-                                                                          'patcount' => 0,
-                                                                          'number' => 0,
-                                                                          'actcount' => 0,
-                                                                          'uncommit' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ]
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'mailboxname' => bless( {
-                                                        'impcount' => 0,
-                                                        'changed' => 0,
-                                                        'vars' => '',
-                                                        'opcount' => 0,
-                                                        'name' => 'mailboxname',
-                                                        'line' => 79,
-                                                        'calls' => [
-                                                                     'NIL',
-                                                                     'STRING'
-                                                                   ],
-                                                        'prods' => [
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'patcount' => 0,
-                                                                              'number' => 0,
-                                                                              'strcount' => 0,
-                                                                              'dircount' => 0,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'matchrule' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'implicit' => undef,
-                                                                                                    'line' => 79,
-                                                                                                    'subrule' => 'NIL',
-                                                                                                    'lookahead' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'line' => undef,
-                                                                              'uncommit' => undef,
-                                                                              'actcount' => 0
-                                                                            }, 'Parse::RecDescent::Production' ),
-                                                                     bless( {
-                                                                              'number' => 1,
-                                                                              'patcount' => 0,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'lookahead' => 0,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'STRING',
-                                                                                                    'line' => 79,
-                                                                                                    'argcode' => undef,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'line' => 79,
-                                                                              'dircount' => 0,
-                                                                              'strcount' => 0,
-                                                                              'uncommit' => undef,
-                                                                              'actcount' => 0,
-                                                                              'error' => undef
-                                                                            }, 'Parse::RecDescent::Production' )
-                                                                   ]
-                                                      }, 'Parse::RecDescent::Rule' ),
-                              'basicfields' => bless( {
-                                                        'calls' => [
-                                                                     'bodysubtype',
-                                                                     'bodyparms',
-                                                                     'bodyid',
-                                                                     'bodydesc',
-                                                                     'bodyenc',
-                                                                     'bodysize'
-                                                                   ],
-                                                        'prods' => [
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'number' => 0,
-                                                                              'patcount' => 0,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'lookahead' => 0,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'bodysubtype',
-                                                                                                    'line' => 114,
-                                                                                                    'argcode' => undef,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' ),
-                                                                                           bless( {
-                                                                                                    'max' => 1,
-                                                                                                    'subrule' => 'bodyparms',
-                                                                                                    'line' => 114,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'repspec' => '?',
-                                                                                                    'min' => 0,
-                                                                                                    'argcode' => undef
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'min' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'repspec' => '?',
-                                                                                                    'subrule' => 'bodyid',
-                                                                                                    'line' => 114,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'max' => 1
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'lookahead' => 0,
-                                                                                                    'subrule' => 'bodydesc',
-                                                                                                    'line' => 115,
-                                                                                                    'max' => 1,
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0,
-                                                                                                    'repspec' => '?',
-                                                                                                    'expected' => undef,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0,
-                                                                                                    'repspec' => '?',
-                                                                                                    'expected' => undef,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 115,
-                                                                                                    'subrule' => 'bodyenc',
-                                                                                                    'max' => 1
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'max' => 1,
-                                                                                                    'subrule' => 'bodysize',
-                                                                                                    'line' => 115,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'repspec' => '?',
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 116,
-                                                                                                    'code' => '{  $return = { bodysubtype => $item{bodysubtype} };
-	   take_optional_items($return, \\%item,
-	      qw/bodyparms bodyid bodydesc bodyenc bodysize/);
-	   1;
-	}',
-                                                                                                    'hashname' => '__ACTION1__'
-                                                                                                  }, 'Parse::RecDescent::Action' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'line' => undef,
-                                                                              'strcount' => 0,
-                                                                              'uncommit' => undef,
-                                                                              'actcount' => 1
-                                                                            }, 'Parse::RecDescent::Production' )
-                                                                   ],
-                                                        'line' => 114,
-                                                        'impcount' => 0,
-                                                        'changed' => 0,
-                                                        'vars' => '',
-                                                        'opcount' => 0,
-                                                        'name' => 'basicfields'
-                                                      }, 'Parse::RecDescent::Rule' ),
-                              'bodysize' => bless( {
-                                                     'opcount' => 0,
-                                                     'name' => 'bodysize',
-                                                     'vars' => '',
-                                                     'changed' => 0,
-                                                     'impcount' => 0,
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'line' => undef,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'hashname' => '__PATTERN1__',
-                                                                                                 'lookahead' => -1,
-                                                                                                 'pattern' => '[()]',
-                                                                                                 'line' => 70,
-                                                                                                 'rdelim' => '/',
-                                                                                                 'mod' => '',
-                                                                                                 'description' => '/[()]/',
-                                                                                                 'ldelim' => '/'
-                                                                                               }, 'Parse::RecDescent::Token' ),
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'argcode' => undef,
-                                                                                                 'line' => 70,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'NIL',
-                                                                                                 'lookahead' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'dircount' => 0,
-                                                                           'strcount' => 0,
-                                                                           'number' => 0,
-                                                                           'patcount' => 1,
-                                                                           'actcount' => 0,
-                                                                           'uncommit' => undef,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'error' => undef,
-                                                                           'actcount' => 0,
-                                                                           'uncommit' => undef,
-                                                                           'line' => 70,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'argcode' => undef,
-                                                                                                 'line' => 70,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'NUMBER',
-                                                                                                 'lookahead' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'dircount' => 0,
-                                                                           'strcount' => 0,
-                                                                           'number' => 1,
-                                                                           'patcount' => 0
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'calls' => [
-                                                                  'NIL',
-                                                                  'NUMBER'
-                                                                ],
-                                                     'line' => 70
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'othertypemessage' => bless( {
-                                                             'opcount' => 0,
-                                                             'name' => 'othertypemessage',
-                                                             'vars' => '',
-                                                             'impcount' => 0,
-                                                             'changed' => 0,
-                                                             'line' => 132,
-                                                             'prods' => [
-                                                                          bless( {
-                                                                                   'error' => undef,
-                                                                                   'uncommit' => undef,
-                                                                                   'actcount' => 1,
-                                                                                   'patcount' => 0,
-                                                                                   'number' => 0,
-                                                                                   'strcount' => 0,
-                                                                                   'line' => undef,
-                                                                                   'items' => [
-                                                                                                bless( {
-                                                                                                         'matchrule' => 0,
-                                                                                                         'lookahead' => 0,
-                                                                                                         'line' => 132,
-                                                                                                         'implicit' => undef,
-                                                                                                         'subrule' => 'bodytype',
-                                                                                                         'argcode' => undef
-                                                                                                       }, 'Parse::RecDescent::Subrule' ),
-                                                                                                bless( {
-                                                                                                         'matchrule' => 0,
-                                                                                                         'argcode' => undef,
-                                                                                                         'subrule' => 'basicfields',
-                                                                                                         'implicit' => undef,
-                                                                                                         'line' => 132,
-                                                                                                         'lookahead' => 0
-                                                                                                       }, 'Parse::RecDescent::Subrule' ),
-                                                                                                bless( {
-                                                                                                         'min' => 0,
-                                                                                                         'argcode' => undef,
-                                                                                                         'expected' => undef,
-                                                                                                         'matchrule' => 0,
-                                                                                                         'repspec' => '?',
-                                                                                                         'lookahead' => 0,
-                                                                                                         'line' => 132,
-                                                                                                         'subrule' => 'bodyMD5',
-                                                                                                         'max' => 1
-                                                                                                       }, 'Parse::RecDescent::Repetition' ),
-                                                                                                bless( {
-                                                                                                         'lookahead' => 0,
-                                                                                                         'subrule' => 'bodydisp',
-                                                                                                         'line' => 132,
-                                                                                                         'max' => 1,
-                                                                                                         'argcode' => undef,
-                                                                                                         'min' => 0,
-                                                                                                         'repspec' => '?',
-                                                                                                         'expected' => undef,
-                                                                                                         'matchrule' => 0
-                                                                                                       }, 'Parse::RecDescent::Repetition' ),
-                                                                                                bless( {
-                                                                                                         'repspec' => '?',
-                                                                                                         'matchrule' => 0,
-                                                                                                         'expected' => undef,
-                                                                                                         'argcode' => undef,
-                                                                                                         'min' => 0,
-                                                                                                         'max' => 1,
-                                                                                                         'line' => 133,
-                                                                                                         'subrule' => 'bodylang',
-                                                                                                         'lookahead' => 0
-                                                                                                       }, 'Parse::RecDescent::Repetition' ),
-                                                                                                bless( {
-                                                                                                         'repspec' => '?',
-                                                                                                         'matchrule' => 0,
-                                                                                                         'expected' => undef,
-                                                                                                         'argcode' => undef,
-                                                                                                         'min' => 0,
-                                                                                                         'max' => 1,
-                                                                                                         'subrule' => 'bodyextra',
-                                                                                                         'line' => 133,
-                                                                                                         'lookahead' => 0
-                                                                                                       }, 'Parse::RecDescent::Repetition' ),
-                                                                                                bless( {
-                                                                                                         'code' => '{ $return = { bodytype => $item{bodytype} };
-	  take_optional_items($return, \\%item
-             , qw/bodyMD5 bodydisp bodylang bodyextra/ );
-	  merge_hash($return, $item{basicfields});
-	  1;
-	}',
-                                                                                                         'hashname' => '__ACTION1__',
-                                                                                                         'line' => 134,
-                                                                                                         'lookahead' => 0
-                                                                                                       }, 'Parse::RecDescent::Action' )
-                                                                                              ],
-                                                                                   'dircount' => 0
-                                                                                 }, 'Parse::RecDescent::Production' )
-                                                                        ],
-                                                             'calls' => [
-                                                                          'bodytype',
-                                                                          'basicfields',
-                                                                          'bodyMD5',
-                                                                          'bodydisp',
-                                                                          'bodylang',
-                                                                          'bodyextra'
-                                                                        ]
-                                                           }, 'Parse::RecDescent::Rule' ),
-                              'bodydesc' => bless( {
-                                                     'impcount' => 0,
-                                                     'changed' => 0,
-                                                     'vars' => '',
-                                                     'opcount' => 0,
-                                                     'name' => 'bodydesc',
-                                                     'calls' => [
-                                                                  'NIL',
-                                                                  'STRING'
-                                                                ],
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'number' => 0,
-                                                                           'patcount' => 1,
-                                                                           'dircount' => 0,
-                                                                           'line' => undef,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'description' => '/[()]/',
-                                                                                                 'mod' => '',
-                                                                                                 'ldelim' => '/',
-                                                                                                 'hashname' => '__PATTERN1__',
-                                                                                                 'lookahead' => -1,
-                                                                                                 'pattern' => '[()]',
-                                                                                                 'line' => 69,
-                                                                                                 'rdelim' => '/'
-                                                                                               }, 'Parse::RecDescent::Token' ),
-                                                                                        bless( {
-                                                                                                 'argcode' => undef,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'NIL',
-                                                                                                 'line' => 69,
-                                                                                                 'matchrule' => 0
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'strcount' => 0,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' ),
-                                                                  bless( {
-                                                                           'line' => 69,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'implicit' => undef,
-                                                                                                 'subrule' => 'STRING',
-                                                                                                 'line' => 69,
-                                                                                                 'argcode' => undef
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'dircount' => 0,
-                                                                           'strcount' => 0,
-                                                                           'number' => 1,
-                                                                           'patcount' => 0,
-                                                                           'actcount' => 0,
-                                                                           'uncommit' => undef,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'line' => 69
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'bodyenc' => bless( {
-                                                    'line' => 71,
-                                                    'calls' => [
-                                                                 'NIL',
-                                                                 'STRING',
-                                                                 'KVPAIRS'
-                                                               ],
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 0,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'argcode' => undef,
-                                                                                                'line' => 71,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'NIL',
-                                                                                                'lookahead' => 0,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'line' => undef,
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' ),
-                                                                 bless( {
-                                                                          'error' => undef,
-                                                                          'actcount' => 0,
-                                                                          'uncommit' => undef,
-                                                                          'strcount' => 0,
-                                                                          'dircount' => 0,
-                                                                          'line' => 71,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'argcode' => undef,
-                                                                                                'lookahead' => 0,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'STRING',
-                                                                                                'line' => 71,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'patcount' => 0,
-                                                                          'number' => 1
-                                                                        }, 'Parse::RecDescent::Production' ),
-                                                                 bless( {
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 0,
-                                                                          'number' => 2,
-                                                                          'patcount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'matchrule' => 0,
-                                                                                                'argcode' => undef,
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 71,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'KVPAIRS'
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'line' => 71,
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'changed' => 0,
-                                                    'impcount' => 0,
-                                                    'vars' => '',
-                                                    'name' => 'bodyenc',
-                                                    'opcount' => 0
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'STRING' => bless( {
-                                                   'name' => 'STRING',
-                                                   'opcount' => 0,
-                                                   'vars' => '',
-                                                   'changed' => 0,
-                                                   'impcount' => 0,
-                                                   'line' => 46,
-                                                   'calls' => [
-                                                                'DOUBLE_QUOTED_STRING',
-                                                                'SINGLE_QUOTED_STRING',
-                                                                'BARESTRING'
-                                                              ],
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'uncommit' => undef,
-                                                                         'actcount' => 0,
-                                                                         'number' => 0,
-                                                                         'patcount' => 0,
-                                                                         'line' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'lookahead' => 0,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'DOUBLE_QUOTED_STRING',
-                                                                                               'line' => 46,
-                                                                                               'argcode' => undef,
-                                                                                               'matchrule' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 0,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' ),
-                                                                bless( {
-                                                                         'patcount' => 0,
-                                                                         'number' => 1,
-                                                                         'strcount' => 0,
-                                                                         'dircount' => 0,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'matchrule' => 0,
-                                                                                               'argcode' => undef,
-                                                                                               'line' => 46,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'SINGLE_QUOTED_STRING',
-                                                                                               'lookahead' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'line' => 46,
-                                                                         'uncommit' => undef,
-                                                                         'actcount' => 0,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' ),
-                                                                bless( {
-                                                                         'uncommit' => undef,
-                                                                         'actcount' => 0,
-                                                                         'number' => 2,
-                                                                         'patcount' => 0,
-                                                                         'dircount' => 0,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'matchrule' => 0,
-                                                                                               'argcode' => undef,
-                                                                                               'implicit' => undef,
-                                                                                               'subrule' => 'BARESTRING',
-                                                                                               'line' => 46,
-                                                                                               'lookahead' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'line' => 46,
-                                                                         'strcount' => 0,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ]
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'envelope' => bless( {
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 1,
-                                                                           'patcount' => 2,
-                                                                           'number' => 0,
-                                                                           'strcount' => 0,
-                                                                           'dircount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'rdelim' => '/',
-                                                                                                 'pattern' => '.*?\\(.*?ENVELOPE',
-                                                                                                 'line' => 188,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'hashname' => '__PATTERN1__',
-                                                                                                 'ldelim' => '/',
-                                                                                                 'description' => '/.*?\\\\(.*?ENVELOPE/',
-                                                                                                 'mod' => ''
-                                                                                               }, 'Parse::RecDescent::Token' ),
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'implicit' => undef,
-                                                                                                 'line' => 188,
-                                                                                                 'subrule' => 'envelopestruct',
-                                                                                                 'lookahead' => 0,
-                                                                                                 'argcode' => undef
-                                                                                               }, 'Parse::RecDescent::Subrule' ),
-                                                                                        bless( {
-                                                                                                 'ldelim' => '/',
-                                                                                                 'description' => '/.*\\\\)/',
-                                                                                                 'mod' => '',
-                                                                                                 'line' => 188,
-                                                                                                 'pattern' => '.*\\)',
-                                                                                                 'lookahead' => 0,
-                                                                                                 'rdelim' => '/',
-                                                                                                 'hashname' => '__PATTERN2__'
-                                                                                               }, 'Parse::RecDescent::Token' ),
-                                                                                        bless( {
-                                                                                                 'lookahead' => 0,
-                                                                                                 'line' => 189,
-                                                                                                 'code' => '{ $return = $item{envelopestruct} }',
-                                                                                                 'hashname' => '__ACTION1__'
-                                                                                               }, 'Parse::RecDescent::Action' )
-                                                                                      ],
-                                                                           'line' => undef,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'calls' => [
-                                                                  'envelopestruct'
-                                                                ],
-                                                     'line' => 188,
-                                                     'impcount' => 0,
-                                                     'changed' => 0,
-                                                     'vars' => '',
-                                                     'name' => 'envelope',
-                                                     'opcount' => 0
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'to' => bless( {
-                                               'line' => 103,
-                                               'prods' => [
-                                                            bless( {
-                                                                     'error' => undef,
-                                                                     'uncommit' => undef,
-                                                                     'actcount' => 0,
-                                                                     'patcount' => 0,
-                                                                     'number' => 0,
-                                                                     'strcount' => 0,
-                                                                     'items' => [
-                                                                                  bless( {
-                                                                                           'argcode' => undef,
-                                                                                           'lookahead' => 0,
-                                                                                           'subrule' => 'ADDRESSES',
-                                                                                           'implicit' => undef,
-                                                                                           'line' => 103,
-                                                                                           'matchrule' => 0
-                                                                                         }, 'Parse::RecDescent::Subrule' )
-                                                                                ],
-                                                                     'line' => undef,
-                                                                     'dircount' => 0
-                                                                   }, 'Parse::RecDescent::Production' )
-                                                          ],
-                                               'calls' => [
-                                                            'ADDRESSES'
-                                                          ],
-                                               'name' => 'to',
-                                               'opcount' => 0,
-                                               'vars' => '',
-                                               'changed' => 0,
-                                               'impcount' => 0
-                                             }, 'Parse::RecDescent::Rule' ),
-                              'textlines' => bless( {
-                                                      'vars' => '',
-                                                      'changed' => 0,
-                                                      'impcount' => 0,
-                                                      'opcount' => 0,
-                                                      'name' => 'textlines',
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'NUMBER'
-                                                                 ],
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'patcount' => 0,
-                                                                            'number' => 0,
-                                                                            'strcount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 50,
-                                                                                                  'subrule' => 'NIL'
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'dircount' => 0,
-                                                                            'line' => undef,
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'patcount' => 0,
-                                                                            'number' => 1,
-                                                                            'strcount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'subrule' => 'NUMBER',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 50,
-                                                                                                  'argcode' => undef
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'dircount' => 0,
-                                                                            'line' => 50,
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'line' => 50
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'nestedmessage' => bless( {
-                                                          'opcount' => 0,
-                                                          'name' => 'nestedmessage',
-                                                          'changed' => 0,
-                                                          'impcount' => 0,
-                                                          'vars' => '',
-                                                          'prods' => [
-                                                                       bless( {
-                                                                                'line' => undef,
-                                                                                'items' => [
-                                                                                             bless( {
-                                                                                                      'matchrule' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'rfc822message',
-                                                                                                      'line' => 141
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'line' => 141,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'hashname' => '__DIRECTIVE1__',
-                                                                                                      'name' => '<commit>',
-                                                                                                      'code' => '$commit = 1'
-                                                                                                    }, 'Parse::RecDescent::Directive' ),
-                                                                                             bless( {
-                                                                                                      'argcode' => undef,
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 141,
-                                                                                                      'subrule' => 'bodyparms',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'matchrule' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'line' => 141,
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'bodyid',
-                                                                                                      'lookahead' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'matchrule' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 141,
-                                                                                                      'subrule' => 'bodydesc'
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'subrule' => 'bodyenc',
-                                                                                                      'implicit' => undef,
-                                                                                                      'line' => 141,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'argcode' => undef,
-                                                                                                      'implicit' => undef,
-                                                                                                      'subrule' => 'bodysize',
-                                                                                                      'line' => 142,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'matchrule' => 0
-                                                                                                    }, 'Parse::RecDescent::Subrule' ),
-                                                                                             bless( {
-                                                                                                      'max' => 1,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'subrule' => 'envelopestruct',
-                                                                                                      'line' => 143,
-                                                                                                      'repspec' => '?',
-                                                                                                      'expected' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'min' => 0
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'max' => 1,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 143,
-                                                                                                      'subrule' => 'bodystructure',
-                                                                                                      'repspec' => '?',
-                                                                                                      'expected' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'min' => 0
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'argcode' => undef,
-                                                                                                      'min' => 0,
-                                                                                                      'repspec' => '?',
-                                                                                                      'matchrule' => 0,
-                                                                                                      'expected' => undef,
-                                                                                                      'line' => 143,
-                                                                                                      'subrule' => 'textlines',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'max' => 1
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'max' => 1,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'subrule' => 'bodyMD5',
-                                                                                                      'line' => 144,
-                                                                                                      'expected' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'repspec' => '?',
-                                                                                                      'min' => 0,
-                                                                                                      'argcode' => undef
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'max' => 1,
-                                                                                                      'line' => 144,
-                                                                                                      'subrule' => 'bodydisp',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'repspec' => '?',
-                                                                                                      'matchrule' => 0,
-                                                                                                      'expected' => undef,
-                                                                                                      'argcode' => undef,
-                                                                                                      'min' => 0
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'line' => 144,
-                                                                                                      'subrule' => 'bodylang',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'max' => 1,
-                                                                                                      'min' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'expected' => undef,
-                                                                                                      'repspec' => '?'
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'expected' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'repspec' => '?',
-                                                                                                      'min' => 0,
-                                                                                                      'argcode' => undef,
-                                                                                                      'max' => 1,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'subrule' => 'bodyextra',
-                                                                                                      'line' => 144
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'line' => 145,
-                                                                                                      'lookahead' => 0,
-                                                                                                      'hashname' => '__ACTION1__',
-                                                                                                      'code' => '{
-	  $return = {};
-	  $return->{$_} = $item{$_}
-	      for qw/bodyparms bodyid bodydesc bodyenc bodysize/;
-#             envelopestruct bodystructure textlines/;
-
-	  take_optional_items($return, \\%item
-            , qw/envelopestruct bodystructure textlines/
-	    , qw/bodyMD5 bodydisp bodylang bodyextra/);
-
-	  merge_hash($return, $item{bodystructure}[0]);
-	  merge_hash($return, $item{basicfields});
-	  $return->{bodytype}    = "MESSAGE" ;
-	  $return->{bodysubtype} = "RFC822" ;
-	  1;
-	}'
-                                                                                                    }, 'Parse::RecDescent::Action' )
-                                                                                           ],
-                                                                                'dircount' => 1,
-                                                                                'strcount' => 0,
-                                                                                'number' => 0,
-                                                                                'patcount' => 0,
-                                                                                'actcount' => 1,
-                                                                                'uncommit' => undef,
-                                                                                'error' => undef
-                                                                              }, 'Parse::RecDescent::Production' )
-                                                                     ],
-                                                          'calls' => [
-                                                                       'rfc822message',
-                                                                       'bodyparms',
-                                                                       'bodyid',
-                                                                       'bodydesc',
-                                                                       'bodyenc',
-                                                                       'bodysize',
-                                                                       'envelopestruct',
-                                                                       'bodystructure',
-                                                                       'textlines',
-                                                                       'bodyMD5',
-                                                                       'bodydisp',
-                                                                       'bodylang',
-                                                                       'bodyextra'
-                                                                     ],
-                                                          'line' => 141
-                                                        }, 'Parse::RecDescent::Rule' ),
-                              'sender' => bless( {
-                                                   'line' => 102,
-                                                   'calls' => [
-                                                                'ADDRESSES'
-                                                              ],
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'error' => undef,
-                                                                         'actcount' => 0,
-                                                                         'uncommit' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'argcode' => undef,
-                                                                                               'subrule' => 'ADDRESSES',
-                                                                                               'implicit' => undef,
-                                                                                               'line' => 102,
-                                                                                               'lookahead' => 0,
-                                                                                               'matchrule' => 0
-                                                                                             }, 'Parse::RecDescent::Subrule' )
-                                                                                    ],
-                                                                         'line' => undef,
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 0,
-                                                                         'number' => 0,
-                                                                         'patcount' => 0
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'vars' => '',
-                                                   'impcount' => 0,
-                                                   'changed' => 0,
-                                                   'opcount' => 0,
-                                                   'name' => 'sender'
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'SINGLE_QUOTED_STRING' => bless( {
-                                                                 'calls' => [],
-                                                                 'prods' => [
-                                                                              bless( {
-                                                                                       'strcount' => 2,
-                                                                                       'line' => undef,
-                                                                                       'items' => [
-                                                                                                    bless( {
-                                                                                                             'lookahead' => 0,
-                                                                                                             'line' => 40,
-                                                                                                             'pattern' => '\'',
-                                                                                                             'description' => '\'\'\'',
-                                                                                                             'hashname' => '__STRING1__'
-                                                                                                           }, 'Parse::RecDescent::InterpLit' ),
-                                                                                                    bless( {
-                                                                                                             'hashname' => '__PATTERN1__',
-                                                                                                             'rdelim' => '/',
-                                                                                                             'lookahead' => 0,
-                                                                                                             'pattern' => '(?:\\\\[\'\\\\]|[^\'])*',
-                                                                                                             'line' => 40,
-                                                                                                             'description' => '/(?:\\\\\\\\[\'\\\\\\\\]|[^\'])*/',
-                                                                                                             'mod' => '',
-                                                                                                             'ldelim' => '/'
-                                                                                                           }, 'Parse::RecDescent::Token' ),
-                                                                                                    bless( {
-                                                                                                             'hashname' => '__STRING2__',
-                                                                                                             'description' => '\'\'\'',
-                                                                                                             'line' => 40,
-                                                                                                             'pattern' => '\'',
-                                                                                                             'lookahead' => 0
-                                                                                                           }, 'Parse::RecDescent::InterpLit' ),
-                                                                                                    bless( {
-                                                                                                             'code' => '{ $return = $item{__PATTERN1__} }',
-                                                                                                             'hashname' => '__ACTION1__',
-                                                                                                             'line' => 40,
-                                                                                                             'lookahead' => 0
-                                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                                  ],
-                                                                                       'dircount' => 0,
-                                                                                       'patcount' => 1,
-                                                                                       'number' => 0,
-                                                                                       'actcount' => 1,
-                                                                                       'uncommit' => undef,
-                                                                                       'error' => undef
-                                                                                     }, 'Parse::RecDescent::Production' )
-                                                                            ],
-                                                                 'line' => 38,
-                                                                 'impcount' => 0,
-                                                                 'changed' => 0,
-                                                                 'vars' => '',
-                                                                 'opcount' => 0,
-                                                                 'name' => 'SINGLE_QUOTED_STRING'
-                                                               }, 'Parse::RecDescent::Rule' ),
-                              'bodystructure' => bless( {
-                                                          'calls' => [
-                                                                       'part'
-                                                                     ],
-                                                          'prods' => [
-                                                                       bless( {
-                                                                                'dircount' => 0,
-                                                                                'items' => [
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 182,
-                                                                                                      'pattern' => '(',
-                                                                                                      'description' => '\'(\'',
-                                                                                                      'hashname' => '__STRING1__'
-                                                                                                    }, 'Parse::RecDescent::InterpLit' ),
-                                                                                             bless( {
-                                                                                                      'min' => 1,
-                                                                                                      'argcode' => undef,
-                                                                                                      'expected' => undef,
-                                                                                                      'matchrule' => 0,
-                                                                                                      'repspec' => 's',
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 182,
-                                                                                                      'subrule' => 'part',
-                                                                                                      'max' => 100000000
-                                                                                                    }, 'Parse::RecDescent::Repetition' ),
-                                                                                             bless( {
-                                                                                                      'hashname' => '__STRING2__',
-                                                                                                      'description' => '\')\'',
-                                                                                                      'pattern' => ')',
-                                                                                                      'line' => 182,
-                                                                                                      'lookahead' => 0
-                                                                                                    }, 'Parse::RecDescent::InterpLit' ),
-                                                                                             bless( {
-                                                                                                      'lookahead' => 0,
-                                                                                                      'line' => 183,
-                                                                                                      'code' => '{ $return = $item{\'part(s)\'} }',
-                                                                                                      'hashname' => '__ACTION1__'
-                                                                                                    }, 'Parse::RecDescent::Action' )
-                                                                                           ],
-                                                                                'line' => undef,
-                                                                                'strcount' => 2,
-                                                                                'number' => 0,
-                                                                                'patcount' => 0,
-                                                                                'actcount' => 1,
-                                                                                'uncommit' => undef,
-                                                                                'error' => undef
-                                                                              }, 'Parse::RecDescent::Production' )
-                                                                     ],
-                                                          'line' => 182,
-                                                          'impcount' => 0,
-                                                          'changed' => 0,
-                                                          'vars' => '',
-                                                          'name' => 'bodystructure',
-                                                          'opcount' => 0
-                                                        }, 'Parse::RecDescent::Rule' ),
-                              'STRINGS' => bless( {
-                                                    'impcount' => 0,
-                                                    'changed' => 0,
-                                                    'vars' => '',
-                                                    'opcount' => 0,
-                                                    'name' => 'STRINGS',
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 1,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'pattern' => '(',
-                                                                                                'line' => 48,
-                                                                                                'lookahead' => 0,
-                                                                                                'hashname' => '__STRING1__',
-                                                                                                'description' => '\'(\''
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'line' => 48,
-                                                                                                'subrule' => 'STRING',
-                                                                                                'lookahead' => 0,
-                                                                                                'max' => 100000000,
-                                                                                                'min' => 1,
-                                                                                                'argcode' => undef,
-                                                                                                'matchrule' => 0,
-                                                                                                'expected' => undef,
-                                                                                                'repspec' => 's'
-                                                                                              }, 'Parse::RecDescent::Repetition' ),
-                                                                                       bless( {
-                                                                                                'hashname' => '__STRING2__',
-                                                                                                'description' => '\')\'',
-                                                                                                'pattern' => ')',
-                                                                                                'line' => 48,
-                                                                                                'lookahead' => 0
-                                                                                              }, 'Parse::RecDescent::InterpLit' ),
-                                                                                       bless( {
-                                                                                                'hashname' => '__ACTION1__',
-                                                                                                'code' => '{ $return = $item{\'STRING(s)\'} }',
-                                                                                                'lookahead' => 0,
-                                                                                                'line' => 48
-                                                                                              }, 'Parse::RecDescent::Action' )
-                                                                                     ],
-                                                                          'line' => undef,
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 2,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'calls' => [
-                                                                 'STRING'
-                                                               ],
-                                                    'line' => 48
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'BARESTRING' => bless( {
-                                                       'vars' => '',
-                                                       'changed' => 0,
-                                                       'impcount' => 0,
-                                                       'opcount' => 0,
-                                                       'name' => 'BARESTRING',
-                                                       'prods' => [
-                                                                    bless( {
-                                                                             'error' => undef,
-                                                                             'number' => 0,
-                                                                             'patcount' => 2,
-                                                                             'items' => [
-                                                                                          bless( {
-                                                                                                   'description' => '/^[)(\'"]/',
-                                                                                                   'mod' => '',
-                                                                                                   'ldelim' => '/',
-                                                                                                   'hashname' => '__PATTERN1__',
-                                                                                                   'line' => 43,
-                                                                                                   'pattern' => '^[)(\'"]',
-                                                                                                   'lookahead' => -1,
-                                                                                                   'rdelim' => '/'
-                                                                                                 }, 'Parse::RecDescent::Token' ),
-                                                                                          bless( {
-                                                                                                   'mod' => '',
-                                                                                                   'description' => '/^(?!\\\\(|\\\\))(?:\\\\\\\\ |\\\\S)+/',
-                                                                                                   'ldelim' => '/',
-                                                                                                   'hashname' => '__PATTERN2__',
-                                                                                                   'pattern' => '^(?!\\(|\\))(?:\\\\ |\\S)+',
-                                                                                                   'line' => 43,
-                                                                                                   'lookahead' => 0,
-                                                                                                   'rdelim' => '/'
-                                                                                                 }, 'Parse::RecDescent::Token' ),
-                                                                                          bless( {
-                                                                                                   'lookahead' => 0,
-                                                                                                   'line' => 44,
-                                                                                                   'code' => '{ $return = $item{__PATTERN1__} }',
-                                                                                                   'hashname' => '__ACTION1__'
-                                                                                                 }, 'Parse::RecDescent::Action' )
-                                                                                        ],
-                                                                             'line' => undef,
-                                                                             'dircount' => 0,
-                                                                             'strcount' => 0,
-                                                                             'uncommit' => undef,
-                                                                             'actcount' => 1
-                                                                           }, 'Parse::RecDescent::Production' )
-                                                                  ],
-                                                       'calls' => [],
-                                                       'line' => 43
-                                                     }, 'Parse::RecDescent::Rule' ),
-                              'bodyparms' => bless( {
-                                                      'line' => 66,
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'KVPAIRS'
-                                                                 ],
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'line' => 66,
-                                                                                                  'implicit' => undef,
-                                                                                                  'subrule' => 'NIL',
-                                                                                                  'lookahead' => 0,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'line' => undef,
-                                                                            'dircount' => 0,
-                                                                            'strcount' => 0,
-                                                                            'number' => 0,
-                                                                            'patcount' => 0,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'number' => 1,
-                                                                            'patcount' => 0,
-                                                                            'line' => 66,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'argcode' => undef,
-                                                                                                  'subrule' => 'KVPAIRS',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 66,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'strcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'actcount' => 0
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'opcount' => 0,
-                                                      'name' => 'bodyparms',
-                                                      'impcount' => 0,
-                                                      'changed' => 0,
-                                                      'vars' => ''
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'DOUBLE_QUOTED_STRING' => bless( {
-                                                                 'line' => 41,
-                                                                 'prods' => [
-                                                                              bless( {
-                                                                                       'items' => [
-                                                                                                    bless( {
-                                                                                                             'lookahead' => 0,
-                                                                                                             'pattern' => '"',
-                                                                                                             'line' => 41,
-                                                                                                             'description' => '\'"\'',
-                                                                                                             'hashname' => '__STRING1__'
-                                                                                                           }, 'Parse::RecDescent::Literal' ),
-                                                                                                    bless( {
-                                                                                                             'hashname' => '__PATTERN1__',
-                                                                                                             'rdelim' => '/',
-                                                                                                             'line' => 41,
-                                                                                                             'pattern' => '(?:\\\\["\\\\]|[^"])*',
-                                                                                                             'lookahead' => 0,
-                                                                                                             'mod' => '',
-                                                                                                             'description' => '/(?:\\\\\\\\["\\\\\\\\]|[^"])*/',
-                                                                                                             'ldelim' => '/'
-                                                                                                           }, 'Parse::RecDescent::Token' ),
-                                                                                                    bless( {
-                                                                                                             'hashname' => '__STRING2__',
-                                                                                                             'description' => '\'"\'',
-                                                                                                             'line' => 41,
-                                                                                                             'pattern' => '"',
-                                                                                                             'lookahead' => 0
-                                                                                                           }, 'Parse::RecDescent::Literal' ),
-                                                                                                    bless( {
-                                                                                                             'code' => '{ $return = $item{__PATTERN1__} }',
-                                                                                                             'hashname' => '__ACTION1__',
-                                                                                                             'line' => 41,
-                                                                                                             'lookahead' => 0
-                                                                                                           }, 'Parse::RecDescent::Action' )
-                                                                                                  ],
-                                                                                       'line' => undef,
-                                                                                       'dircount' => 0,
-                                                                                       'strcount' => 2,
-                                                                                       'number' => 0,
-                                                                                       'patcount' => 1,
-                                                                                       'actcount' => 1,
-                                                                                       'uncommit' => undef,
-                                                                                       'error' => undef
-                                                                                     }, 'Parse::RecDescent::Production' )
-                                                                            ],
-                                                                 'calls' => [],
-                                                                 'vars' => '',
-                                                                 'impcount' => 0,
-                                                                 'changed' => 0,
-                                                                 'opcount' => 0,
-                                                                 'name' => 'DOUBLE_QUOTED_STRING'
-                                                               }, 'Parse::RecDescent::Rule' ),
-                              'sourceroute' => bless( {
-                                                        'line' => 78,
-                                                        'prods' => [
-                                                                     bless( {
-                                                                              'actcount' => 0,
-                                                                              'uncommit' => undef,
-                                                                              'line' => undef,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'subrule' => 'NIL',
-                                                                                                    'implicit' => undef,
-                                                                                                    'line' => 78,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'strcount' => 0,
-                                                                              'number' => 0,
-                                                                              'patcount' => 0,
-                                                                              'error' => undef
-                                                                            }, 'Parse::RecDescent::Production' ),
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'actcount' => 0,
-                                                                              'uncommit' => undef,
-                                                                              'line' => 78,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'matchrule' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'line' => 78,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'STRING',
-                                                                                                    'lookahead' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' )
-                                                                                         ],
-                                                                              'dircount' => 0,
-                                                                              'strcount' => 0,
-                                                                              'number' => 1,
-                                                                              'patcount' => 0
-                                                                            }, 'Parse::RecDescent::Production' )
-                                                                   ],
-                                                        'calls' => [
-                                                                     'NIL',
-                                                                     'STRING'
-                                                                   ],
-                                                        'vars' => '',
-                                                        'changed' => 0,
-                                                        'impcount' => 0,
-                                                        'name' => 'sourceroute',
-                                                        'opcount' => 0
-                                                      }, 'Parse::RecDescent::Rule' ),
-                              'bodytype' => bless( {
-                                                     'changed' => 0,
-                                                     'impcount' => 0,
-                                                     'vars' => '',
-                                                     'name' => 'bodytype',
-                                                     'opcount' => 0,
-                                                     'line' => 65,
-                                                     'prods' => [
-                                                                  bless( {
-                                                                           'uncommit' => undef,
-                                                                           'actcount' => 0,
-                                                                           'number' => 0,
-                                                                           'patcount' => 0,
-                                                                           'dircount' => 0,
-                                                                           'items' => [
-                                                                                        bless( {
-                                                                                                 'matchrule' => 0,
-                                                                                                 'lookahead' => 0,
-                                                                                                 'subrule' => 'STRING',
-                                                                                                 'implicit' => undef,
-                                                                                                 'line' => 65,
-                                                                                                 'argcode' => undef
-                                                                                               }, 'Parse::RecDescent::Subrule' )
-                                                                                      ],
-                                                                           'line' => undef,
-                                                                           'strcount' => 0,
-                                                                           'error' => undef
-                                                                         }, 'Parse::RecDescent::Production' )
-                                                                ],
-                                                     'calls' => [
-                                                                  'STRING'
-                                                                ]
-                                                   }, 'Parse::RecDescent::Rule' ),
-                              'messageid' => bless( {
-                                                      'line' => 92,
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'line' => undef,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'lookahead' => 0,
-                                                                                                  'subrule' => 'NIL',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 92,
-                                                                                                  'argcode' => undef,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'strcount' => 0,
-                                                                            'number' => 0,
-                                                                            'patcount' => 0,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'dircount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'line' => 92,
-                                                                                                  'implicit' => undef,
-                                                                                                  'subrule' => 'STRING'
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'line' => 92,
-                                                                            'strcount' => 0,
-                                                                            'number' => 1,
-                                                                            'patcount' => 0,
-                                                                            'error' => undef
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'STRING'
-                                                                 ],
-                                                      'name' => 'messageid',
-                                                      'opcount' => 0,
-                                                      'vars' => '',
-                                                      'impcount' => 0,
-                                                      'changed' => 0
-                                                    }, 'Parse::RecDescent::Rule' ),
-                              'value' => bless( {
-                                                  'vars' => '',
-                                                  'changed' => 0,
-                                                  'impcount' => 0,
-                                                  'name' => 'value',
-                                                  'opcount' => 0,
-                                                  'line' => 57,
-                                                  'calls' => [
-                                                               'NIL',
-                                                               'NUMBER',
-                                                               'STRING',
-                                                               'KVPAIRS'
-                                                             ],
-                                                  'prods' => [
-                                                               bless( {
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'matchrule' => 0,
-                                                                                              'argcode' => undef,
-                                                                                              'line' => 57,
-                                                                                              'implicit' => undef,
-                                                                                              'subrule' => 'NIL',
-                                                                                              'lookahead' => 0
-                                                                                            }, 'Parse::RecDescent::Subrule' )
-                                                                                   ],
-                                                                        'line' => undef,
-                                                                        'dircount' => 0,
-                                                                        'strcount' => 0,
-                                                                        'number' => 0,
-                                                                        'patcount' => 0,
-                                                                        'actcount' => 0,
-                                                                        'uncommit' => undef,
-                                                                        'error' => undef
-                                                                      }, 'Parse::RecDescent::Production' ),
-                                                               bless( {
-                                                                        'error' => undef,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'matchrule' => 0,
-                                                                                              'line' => 57,
-                                                                                              'implicit' => undef,
-                                                                                              'subrule' => 'NUMBER',
-                                                                                              'lookahead' => 0,
-                                                                                              'argcode' => undef
-                                                                                            }, 'Parse::RecDescent::Subrule' )
-                                                                                   ],
-                                                                        'line' => 57,
-                                                                        'dircount' => 0,
-                                                                        'strcount' => 0,
-                                                                        'number' => 1,
-                                                                        'patcount' => 0,
-                                                                        'actcount' => 0,
-                                                                        'uncommit' => undef
-                                                                      }, 'Parse::RecDescent::Production' ),
-                                                               bless( {
-                                                                        'error' => undef,
-                                                                        'line' => 57,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'matchrule' => 0,
-                                                                                              'lookahead' => 0,
-                                                                                              'subrule' => 'STRING',
-                                                                                              'implicit' => undef,
-                                                                                              'line' => 57,
-                                                                                              'argcode' => undef
-                                                                                            }, 'Parse::RecDescent::Subrule' )
-                                                                                   ],
-                                                                        'dircount' => 0,
-                                                                        'strcount' => 0,
-                                                                        'number' => 2,
-                                                                        'patcount' => 0,
-                                                                        'actcount' => 0,
-                                                                        'uncommit' => undef
-                                                                      }, 'Parse::RecDescent::Production' ),
-                                                               bless( {
-                                                                        'patcount' => 0,
-                                                                        'number' => 3,
-                                                                        'strcount' => 0,
-                                                                        'line' => 57,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'matchrule' => 0,
-                                                                                              'argcode' => undef,
-                                                                                              'lookahead' => 0,
-                                                                                              'implicit' => undef,
-                                                                                              'subrule' => 'KVPAIRS',
-                                                                                              'line' => 57
-                                                                                            }, 'Parse::RecDescent::Subrule' )
-                                                                                   ],
-                                                                        'dircount' => 0,
-                                                                        'uncommit' => undef,
-                                                                        'actcount' => 0,
-                                                                        'error' => undef
-                                                                      }, 'Parse::RecDescent::Production' )
-                                                             ]
-                                                }, 'Parse::RecDescent::Rule' ),
-                              'personalname' => bless( {
-                                                         'calls' => [
-                                                                      'NIL',
-                                                                      'STRING'
-                                                                    ],
-                                                         'prods' => [
-                                                                      bless( {
-                                                                               'error' => undef,
-                                                                               'actcount' => 0,
-                                                                               'uncommit' => undef,
-                                                                               'strcount' => 0,
-                                                                               'items' => [
-                                                                                            bless( {
-                                                                                                     'matchrule' => 0,
-                                                                                                     'argcode' => undef,
-                                                                                                     'lookahead' => 0,
-                                                                                                     'implicit' => undef,
-                                                                                                     'subrule' => 'NIL',
-                                                                                                     'line' => 77
-                                                                                                   }, 'Parse::RecDescent::Subrule' )
-                                                                                          ],
-                                                                               'line' => undef,
-                                                                               'dircount' => 0,
-                                                                               'patcount' => 0,
-                                                                               'number' => 0
-                                                                             }, 'Parse::RecDescent::Production' ),
-                                                                      bless( {
-                                                                               'error' => undef,
-                                                                               'uncommit' => undef,
-                                                                               'actcount' => 0,
-                                                                               'number' => 1,
-                                                                               'patcount' => 0,
-                                                                               'items' => [
-                                                                                            bless( {
-                                                                                                     'argcode' => undef,
-                                                                                                     'lookahead' => 0,
-                                                                                                     'implicit' => undef,
-                                                                                                     'line' => 77,
-                                                                                                     'subrule' => 'STRING',
-                                                                                                     'matchrule' => 0
-                                                                                                   }, 'Parse::RecDescent::Subrule' )
-                                                                                          ],
-                                                                               'line' => 77,
-                                                                               'dircount' => 0,
-                                                                               'strcount' => 0
-                                                                             }, 'Parse::RecDescent::Production' )
-                                                                    ],
-                                                         'line' => 77,
-                                                         'opcount' => 0,
-                                                         'name' => 'personalname',
-                                                         'vars' => '',
-                                                         'changed' => 0,
-                                                         'impcount' => 0
-                                                       }, 'Parse::RecDescent::Rule' ),
-                              'cc' => bless( {
-                                               'changed' => 0,
-                                               'impcount' => 0,
-                                               'vars' => '',
-                                               'opcount' => 0,
-                                               'name' => 'cc',
-                                               'calls' => [
-                                                            'ADDRESSES'
-                                                          ],
-                                               'prods' => [
-                                                            bless( {
-                                                                     'strcount' => 0,
-                                                                     'dircount' => 0,
-                                                                     'line' => undef,
-                                                                     'items' => [
-                                                                                  bless( {
-                                                                                           'matchrule' => 0,
-                                                                                           'argcode' => undef,
-                                                                                           'lookahead' => 0,
-                                                                                           'implicit' => undef,
-                                                                                           'line' => 98,
-                                                                                           'subrule' => 'ADDRESSES'
-                                                                                         }, 'Parse::RecDescent::Subrule' )
-                                                                                ],
-                                                                     'patcount' => 0,
-                                                                     'number' => 0,
-                                                                     'actcount' => 0,
-                                                                     'uncommit' => undef,
-                                                                     'error' => undef
-                                                                   }, 'Parse::RecDescent::Production' )
-                                                          ],
-                                               'line' => 98
-                                             }, 'Parse::RecDescent::Rule' ),
-                              'NUMBER' => bless( {
-                                                   'line' => 36,
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'uncommit' => undef,
-                                                                         'actcount' => 1,
-                                                                         'number' => 0,
-                                                                         'patcount' => 1,
-                                                                         'line' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'mod' => '',
-                                                                                               'description' => '/^(\\\\d+)/',
-                                                                                               'ldelim' => '/',
-                                                                                               'hashname' => '__PATTERN1__',
-                                                                                               'pattern' => '^(\\d+)',
-                                                                                               'line' => 36,
-                                                                                               'lookahead' => 0,
-                                                                                               'rdelim' => '/'
-                                                                                             }, 'Parse::RecDescent::Token' ),
-                                                                                      bless( {
-                                                                                               'code' => '{ $return = $item[1] }',
-                                                                                               'hashname' => '__ACTION1__',
-                                                                                               'line' => 36,
-                                                                                               'lookahead' => 0
-                                                                                             }, 'Parse::RecDescent::Action' )
-                                                                                    ],
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 0,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'calls' => [],
-                                                   'changed' => 0,
-                                                   'impcount' => 0,
-                                                   'vars' => '',
-                                                   'opcount' => 0,
-                                                   'name' => 'NUMBER'
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'textmessage' => bless( {
-                                                        'changed' => 0,
-                                                        'impcount' => 0,
-                                                        'vars' => '',
-                                                        'opcount' => 0,
-                                                        'name' => 'textmessage',
-                                                        'line' => 122,
-                                                        'prods' => [
-                                                                     bless( {
-                                                                              'error' => undef,
-                                                                              'uncommit' => undef,
-                                                                              'actcount' => 1,
-                                                                              'patcount' => 0,
-                                                                              'number' => 0,
-                                                                              'strcount' => 0,
-                                                                              'items' => [
-                                                                                           bless( {
-                                                                                                    'lookahead' => 0,
-                                                                                                    'implicit' => undef,
-                                                                                                    'line' => 122,
-                                                                                                    'subrule' => 'TEXT',
-                                                                                                    'argcode' => undef,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' ),
-                                                                                           bless( {
-                                                                                                    'code' => '$commit = 1',
-                                                                                                    'name' => '<commit>',
-                                                                                                    'hashname' => '__DIRECTIVE1__',
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 122
-                                                                                                  }, 'Parse::RecDescent::Directive' ),
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'implicit' => undef,
-                                                                                                    'subrule' => 'basicfields',
-                                                                                                    'line' => 122,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'matchrule' => 0
-                                                                                                  }, 'Parse::RecDescent::Subrule' ),
-                                                                                           bless( {
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0,
-                                                                                                    'repspec' => '?',
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'subrule' => 'textlines',
-                                                                                                    'line' => 122,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'max' => 1
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'min' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'expected' => undef,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'repspec' => '?',
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 122,
-                                                                                                    'subrule' => 'bodyMD5',
-                                                                                                    'max' => 1
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'repspec' => '?',
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0,
-                                                                                                    'max' => 1,
-                                                                                                    'subrule' => 'bodydisp',
-                                                                                                    'line' => 123,
-                                                                                                    'lookahead' => 0
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'max' => 1,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'line' => 123,
-                                                                                                    'subrule' => 'bodylang',
-                                                                                                    'repspec' => '?',
-                                                                                                    'expected' => undef,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'min' => 0
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'subrule' => 'bodyextra',
-                                                                                                    'line' => 123,
-                                                                                                    'lookahead' => 0,
-                                                                                                    'max' => 1,
-                                                                                                    'min' => 0,
-                                                                                                    'argcode' => undef,
-                                                                                                    'matchrule' => 0,
-                                                                                                    'expected' => undef,
-                                                                                                    'repspec' => '?'
-                                                                                                  }, 'Parse::RecDescent::Repetition' ),
-                                                                                           bless( {
-                                                                                                    'code' => '{
-	  $return = $item{basicfields} || {};
-	  $return->{bodytype} = \'TEXT\';
-	  take_optional_items($return, \\%item
-            , qw/textlines bodyMD5 bodydisp bodylang bodyextra/);
-	  1;
-	}',
-                                                                                                    'hashname' => '__ACTION1__',
-                                                                                                    'line' => 124,
-                                                                                                    'lookahead' => 0
-                                                                                                  }, 'Parse::RecDescent::Action' )
-                                                                                         ],
-                                                                              'line' => undef,
-                                                                              'dircount' => 1
-                                                                            }, 'Parse::RecDescent::Production' )
-                                                                   ],
-                                                        'calls' => [
-                                                                     'TEXT',
-                                                                     'basicfields',
-                                                                     'textlines',
-                                                                     'bodyMD5',
-                                                                     'bodydisp',
-                                                                     'bodylang',
-                                                                     'bodyextra'
-                                                                   ]
-                                                      }, 'Parse::RecDescent::Rule' ),
-                              'RFCNONCOMPLY' => bless( {
-                                                         'calls' => [],
-                                                         'prods' => [
-                                                                      bless( {
-                                                                               'error' => undef,
-                                                                               'actcount' => 1,
-                                                                               'uncommit' => undef,
-                                                                               'strcount' => 0,
-                                                                               'line' => undef,
-                                                                               'items' => [
-                                                                                            bless( {
-                                                                                                     'mod' => 'i',
-                                                                                                     'description' => '/^\\\\(\\\\)/i',
-                                                                                                     'ldelim' => '/',
-                                                                                                     'hashname' => '__PATTERN1__',
-                                                                                                     'rdelim' => '/',
-                                                                                                     'lookahead' => 0,
-                                                                                                     'line' => 35,
-                                                                                                     'pattern' => '^\\(\\)'
-                                                                                                   }, 'Parse::RecDescent::Token' ),
-                                                                                            bless( {
-                                                                                                     'code' => '{ $return = "NIL"    }',
-                                                                                                     'hashname' => '__ACTION1__',
-                                                                                                     'lookahead' => 0,
-                                                                                                     'line' => 35
-                                                                                                   }, 'Parse::RecDescent::Action' )
-                                                                                          ],
-                                                                               'dircount' => 0,
-                                                                               'patcount' => 1,
-                                                                               'number' => 0
-                                                                             }, 'Parse::RecDescent::Production' )
-                                                                    ],
-                                                         'line' => 35,
-                                                         'vars' => '',
-                                                         'changed' => 0,
-                                                         'impcount' => 0,
-                                                         'opcount' => 0,
-                                                         'name' => 'RFCNONCOMPLY'
-                                                       }, 'Parse::RecDescent::Rule' ),
-                              'subject' => bless( {
-                                                    'line' => 90,
-                                                    'calls' => [
-                                                                 'NIL',
-                                                                 'STRING'
-                                                               ],
-                                                    'prods' => [
-                                                                 bless( {
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'argcode' => undef,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'NIL',
-                                                                                                'line' => 90,
-                                                                                                'lookahead' => 0,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'line' => undef,
-                                                                          'dircount' => 0,
-                                                                          'strcount' => 0,
-                                                                          'number' => 0,
-                                                                          'patcount' => 0,
-                                                                          'actcount' => 0,
-                                                                          'uncommit' => undef,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' ),
-                                                                 bless( {
-                                                                          'uncommit' => undef,
-                                                                          'actcount' => 0,
-                                                                          'patcount' => 0,
-                                                                          'number' => 1,
-                                                                          'strcount' => 0,
-                                                                          'line' => 90,
-                                                                          'items' => [
-                                                                                       bless( {
-                                                                                                'line' => 90,
-                                                                                                'implicit' => undef,
-                                                                                                'subrule' => 'STRING',
-                                                                                                'lookahead' => 0,
-                                                                                                'argcode' => undef,
-                                                                                                'matchrule' => 0
-                                                                                              }, 'Parse::RecDescent::Subrule' )
-                                                                                     ],
-                                                                          'dircount' => 0,
-                                                                          'error' => undef
-                                                                        }, 'Parse::RecDescent::Production' )
-                                                               ],
-                                                    'opcount' => 0,
-                                                    'name' => 'subject',
-                                                    'changed' => 0,
-                                                    'impcount' => 0,
-                                                    'vars' => ''
-                                                  }, 'Parse::RecDescent::Rule' ),
-                              'bodyextra' => bless( {
-                                                      'impcount' => 0,
-                                                      'changed' => 0,
-                                                      'vars' => '',
-                                                      'name' => 'bodyextra',
-                                                      'opcount' => 0,
-                                                      'calls' => [
-                                                                   'NIL',
-                                                                   'STRING',
-                                                                   'STRINGS'
-                                                                 ],
-                                                      'prods' => [
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'line' => undef,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'subrule' => 'NIL',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 74,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'argcode' => undef,
-                                                                                                  'matchrule' => 0
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'dircount' => 0,
-                                                                            'strcount' => 0,
-                                                                            'number' => 0,
-                                                                            'patcount' => 0,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'strcount' => 0,
-                                                                            'dircount' => 0,
-                                                                            'line' => 74,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 74,
-                                                                                                  'subrule' => 'STRING',
-                                                                                                  'lookahead' => 0,
-                                                                                                  'argcode' => undef
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'patcount' => 0,
-                                                                            'number' => 1
-                                                                          }, 'Parse::RecDescent::Production' ),
-                                                                   bless( {
-                                                                            'error' => undef,
-                                                                            'actcount' => 0,
-                                                                            'uncommit' => undef,
-                                                                            'strcount' => 0,
-                                                                            'items' => [
-                                                                                         bless( {
-                                                                                                  'matchrule' => 0,
-                                                                                                  'subrule' => 'STRINGS',
-                                                                                                  'implicit' => undef,
-                                                                                                  'line' => 74,
-                                                                                                  'lookahead' => 0,
-                                                                                                  'argcode' => undef
-                                                                                                }, 'Parse::RecDescent::Subrule' )
-                                                                                       ],
-                                                                            'dircount' => 0,
-                                                                            'line' => 74,
-                                                                            'patcount' => 0,
-                                                                            'number' => 2
-                                                                          }, 'Parse::RecDescent::Production' )
-                                                                 ],
-                                                      'line' => 74
-                                                    }, 'Parse::RecDescent::Rule' )
-                            },
-                 '_check' => {
-                               'prevoffset' => '',
-                               'thiscolumn' => '',
-                               'itempos' => '',
-                               'prevline' => '',
-                               'prevcolumn' => '',
-                               'thisoffset' => ''
-                             },
-                 '_AUTOACTION' => undef,
-                 'deferrable' => 1,
-                 'namespace' => 'Parse::RecDescent::Mail::IMAPClient::BodyStructure::Parse',
-                 '_AUTOTREE' => undef
-               }, 'Parse::RecDescent' );
-}
\ No newline at end of file
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pod b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pod
deleted file mode 100644
index 418259c..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/BodyStructure/Parse.pod
+++ /dev/null
@@ -1,15 +0,0 @@
-=head1 NAME
-
-Mail::IMAPClient::BodyStructure::Parse - used internally by Mail::IMAPClient::BodyStructure
-
-=head1 DESCRIPTION
-
-This module is used internally by L<Mail::IMAPClient::BodyStructure>
-and is generated using L<Parse::RecDescent>. It is not meant to be used
-directly by other scripts nor is there much point in debugging it.
-
-=head1 SYNOPSIS
-
-This module is used internally by L<Mail::IMAPClient::BodyStructure>
-and is not meant to be used or called directly from applications. So
-don't do that.
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/MessageSet.pm b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/MessageSet.pm
deleted file mode 100644
index b03a78c..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/MessageSet.pm
+++ /dev/null
@@ -1,280 +0,0 @@
-use warnings;
-use strict;
-
-package Mail::IMAPClient::MessageSet;
-
-=head1 NAME
-
-Mail::IMAPClient::MessageSet - ranges of message sequence numbers
-
-=cut
-
-use overload
-    '""'     => "str"
-  , '.='     => sub {$_[0]->cat($_[1])}
-  , '+='     => sub {$_[0]->cat($_[1])}
-  , '-='     => sub {$_[0]->rem($_[1])}
-  , '@{}'    => "unfold"
-  , fallback => 1;
-
-sub new
-{   my $class = shift;
-    my $range = $class->range(@_);
-    bless \$range, $class;
-}
-
-sub str { overload::StrVal( ${$_[0]} ) }
-
-sub _unfold_range($)
-# {   my $x = shift; return if $x =~ m/[^0-9,:]$/; $x =~ s/\:/../g; eval $x; }
-{   map { /(\d+)\s*\:\s*(\d+)/ ? ($1..$2) : $_ }
-        split /\,/, shift;
-}
-
-sub rem
-{   my $self   = shift;
-    my %delete = map { ($_ => 1) } map { _unfold_range $_ } @_;
-    $$self     = $self->range(grep {not $delete{$_}} $self->unfold);
-    $self;
-}
-
-sub cat
-{   my $self = shift;
-    $$self = $self->range($$self, @_);
-    $self;
-}
-
-sub range
-{   my $self = shift;
-
-    my @msgs;
-    foreach my $m (@_)
-    {   defined $m && length $m
-            or next;
-
-        foreach my $mm (ref $m eq 'ARRAY' ? @$m : $m)
-        {   push @msgs, _unfold_range $mm;
-        }
-    }
-
-    @msgs
-        or return undef;
-
-    @msgs = sort {$a <=> $b} @msgs;
-    my $low = my $high = shift @msgs;
-
-    my @ranges;
-    foreach my $m (@msgs)
-    {   next if $m == $high; # double
-
-        if($m == $high + 1) { $high = $m }
-        else
-        {   push @ranges, $low == $high ? $low : "$low:$high";
-            $low = $high = $m;
-        }
-    }
-
-    push @ranges, $low == $high ? $low : "$low:$high" ;
-    join ",", @ranges;
-}
-
-sub unfold
-{   my $self = shift;
-    wantarray ? ( _unfold_range $$self ) : [ _unfold_range $$self ];
-}
-
-=head1 SYNOPSIS
-
- my @msgs = $imap->search("SUBJECT","Virus"); # returns 1,3,4,5,6,9,10
- my $msgset = Mail::IMAPClient::MessageSet->new(@msgs);
- print $msgset;  # prints "1,3:6,9:10"
-
- # add message 14 to the set:
- $msgset += 14;
- print $msgset;  # prints "1,3:6,9:10,14"
-
- # add messages 16,17,18,19, and 20 to the set:
- $msgset .= "16,17,18:20";
- print $msgset;  # prints "1,3:6,9:10,14,16:20"
-
- # Hey, I didn't really want message 17 in there; let's take it out:
- $msgset -= 17;
- print $msgset;  # prints "1,3:6,9:10,14,16,18:20"
-
- # Now let's iterate over each message:
- for my $msg (@$msgset)
- {  print "$msg\n";  # Prints: "1\n3\n4\n5\n6..16\n18\n19\n20\n"
- }
- print join("\n", @$msgset)."\n";     # same simpler
- local $" = "\n"; print "@$msgset\n"; # even more simple
-
-=head1 DESCRIPTION
-
-The B<Mail::IMAPClient::MessageSet> module is designed to make life easier
-for programmers who need to manipulate potentially large sets of IMAP
-message UID's or sequence numbers.
-
-This module presents an object-oriented interface into handling your
-message sets. The object reference returned by the L<new> method is an
-overloaded reference to a scalar variable that contains the message set's
-compact RFC2060 representation. The object is overloaded so that using
-it like a string returns this compact message set representation. You
-can also add messages to the set (using either a '.=' operator or a '+='
-operator) or remove messages (with the '-=' operator). And if you use
-it as an array reference, it will humor you and act like one by calling
-L<unfold> for you.
-
-RFC2060 specifies that multiple messages can be provided to certain IMAP
-commands by separating them with commas. For example, "1,2,3,4,5" would
-specify messages 1, 2, 3, 4, and (you guessed it!) 5. However, if you are
-performing an operation on lots of messages, this string can get quite long.
-So long that it may slow down your transaction, and perhaps even cause the
-server to reject it. So RFC2060 also permits you to specify a range of
-messages, so that messages 1, 2, 3, 4 and 5 can also be specified as
-"1:5".
-
-This is where B<Mail::IMAPClient::MessageSet> comes in. It will convert
-your message set into the shortest correct syntax. This could potentially
-save you tons of network I/O, as in the case where you want to fetch the
-flags for all messages in a 10000 message folder, where the messages
-are all numbered sequentially. Delimited as commas, and making the
-best-case assumption that the first message is message "1", it would take
-48893 bytes to specify the whole message set using the comma-delimited
-method. To specify it as a range, it takes just seven bytes (1:10000).
-
-Note that the L<Mail::IMAPClient> B<Range> method can be used as
-a short-cut to specifying C<Mail::IMAPClient::MessageSet-E<gt>new(@etc)>.)
-
-=head1 CLASS METHODS
-
-The only class method you need to worry about is B<new>. And if you create
-your B<Mail::IMAPClient::MessageSet> objects via L<Mail::IMAPClient>'s
-B<Range> method then you don't even need to worry about B<new>.
-
-=head2 new
-
-Example:
-
- my $msgset = Mail::IMAPClient::MessageSet->new(@msgs);
-
-The B<new> method requires at least one argument. That argument can be
-either a message, a comma-separated list of messages, a colon-separated
-range of messages, or a combination of comma-separated messages and
-colon-separated ranges. It can also be a reference to an array of messages,
-comma-separated message lists, and colon separated ranges.
-
-If more then one argument is supplied to B<new>, then those arguments should
-be more message numbers, lists, and ranges (or references to arrays of them)
-just as in the first argument.
-
-The message numbers passed to B<new> can really be any kind of number at
-all but to be useful in a L<Mail::IMAPClient> session they should be either
-message UID's (if your I<Uid> parameter is true) or message sequence numbers.
-
-The B<new> method will return a reference to a B<Mail::IMAPClient::MessageSet>
-object. That object, when double quoted, will act just like a string whose
-value is the message set expressed in the shortest possible way, with the
-message numbers sorted in ascending order and with duplicates removed.
-
-=head1 OBJECT METHODS
-
-The only object method currently available to a B<Mail::IMAPClient::MessageSet>
-object is the L<unfold> method.
-
-=head2 unfold
-
-Example:
-
-    my $msgset = $imap->Range( $imap->messages ) ;
-    my @all_messages = $msgset->unfold;
-
-The B<unfold> method returns an array of messages that belong to the
-message set. If called in a scalar context it returns a reference to the
-array instead.
-
-=head1 OVERRIDDEN OPERATIONS
-
-B<Mail::IMAPClient::MessageSet> overrides a number of operators in order
-to make manipulating your message sets easier. The overridden operations are:
-
-=head2 stringify
-
-Attempts to stringify a B<Mail::IMAPClient::MessageSet> object will result in
-the compact message specification being returned, which is almost certainly
-what you will want.
-
-=head2 Auto-increment
-
-Attempts to autoincrement a B<Mail::IMAPClient::MessageSet> object will
-result in a message (or messages) being added to the object's message set.
-
-Example:
-
-    $msgset += 34;
-    # Message #34 is now in the message set
-
-=head2 Concatenate
-
-Attempts to concatenate to a B<Mail::IMAPClient::MessageSet> object will
-result in a message (or messages) being added to the object's message set.
-
-Example:
-
-    $msgset .= "34,35,36,40:45";
-    # Messages 34,35,36,40,41,42,43,44,and 45 are now in the message set
-
-The C<.=> operator and the C<+=> operator can be used interchangeably, but
-as you can see by looking at the examples there are times when use of one
-has an aesthetic advantage over use of the other.
-
-=head2 Autodecrement
-
-Attempts to autodecrement a B<Mail::IMAPClient::MessageSet> object will
-result in a message being removed from the object's message set.
-
-Examples:
-
-    $msgset -= 34;
-    # Message #34 is no longer in the message set
-    $msgset -= "1:10";
-    # Messages 1 through 10 are no longer in the message set
-
-If you attempt to remove a message that was not in the original message set
-then your resulting message set will be the same as the original, only more
-expensive. However, if you attempt to remove several messages from the message
-set and some of those messages were in the message set and some were not,
-the additional overhead of checking for the messages that were not there
-is negligible. In either case you get back the message set you want regardless
-of whether it was already like that or not.
-
-=head1 AUTHOR
-
- David J. Kernen
- The Kernen Consulting Group, Inc
-
-=head1 COPYRIGHT
-
- Copyright 1999, 2000, 2001, 2002 The Kernen Group, Inc.
- All rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the terms of either:
-
-=over 4
-
-=item a) the "Artistic License" which comes with this Kit, or
-
-=item b) the GNU General Public License as published by the Free Software
-Foundation; either version 1, or (at your option) any later version.
-
-=back
-
-This program is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU
-General Public License or the Artistic License for more details. All your
-base are belong to us.
-
-=cut
-
-1;
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.grammar b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.grammar
deleted file mode 100644
index 543c182..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.grammar
+++ /dev/null
@@ -1,18 +0,0 @@
-# Atoms:
-
-NUMBER: /\d+/
-
-# Rules:
-
-threadmember:	NUMBER    { $return = $item{NUMBER} ; }	|
-		thread 	  { $return = $item{thread} ; } 
-
-thread:	"(" threadmember(s) ")"
-	{
-		$return = $item{'threadmember(s)'}||undef;	
-	}
-
-# Start:
-start: /^\* THREAD /i thread(s?) {
-	$return=$item{'thread(s?)'}||undef;
-}
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pm b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pm
deleted file mode 100644
index b0e16c1..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pm
+++ /dev/null
@@ -1,1039 +0,0 @@
-package Mail::IMAPClient::Thread;
-use Parse::RecDescent;
-{ my $ERRORS;
-
-
-package Parse::RecDescent::Mail::IMAPClient::Thread;
-use strict;
-use vars qw($skip $AUTOLOAD  );
-@Parse::RecDescent::Mail::IMAPClient::Thread::ISA = ();
-$skip = '\s*';
-
-
-{
-local $SIG{__WARN__} = sub {0};
-# PRETEND TO BE IN Parse::RecDescent NAMESPACE
-*Parse::RecDescent::Mail::IMAPClient::Thread::AUTOLOAD   = sub
-{
-    no strict 'refs';
-
-    ${"AUTOLOAD"} =~ s/^Parse::RecDescent::Mail::IMAPClient::Thread/Parse::RecDescent/;
-    goto &{${"AUTOLOAD"}};
-}
-}
-
-push @Parse::RecDescent::Mail::IMAPClient::Thread::ISA, 'Parse::RecDescent';
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::Thread::thread
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"thread"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [thread]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{thread},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{'('});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: ['(' threadmember ')']},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{thread});
-        %item = (__RULE__ => q{thread});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: ['(']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = "("; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [threadmember]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{thread},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{threadmember})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::Thread::threadmember, 1, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [threadmember]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{thread},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [threadmember]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{threadmember(s)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [')']},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{')'})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   do { $_tok = ")"; 1 } and
-             substr($text,0,length($_tok)) eq $_tok and
-             do { substr($text,0,length($_tok)) = ""; 1; }
-        )
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $_tok . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                            if defined $::RD_TRACE;
-        push @item, $item{__STRING2__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {
-		$return = $item{'threadmember(s)'}||undef;	
-	};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: ['(' threadmember ')']<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-
-    unless ( $_matched || defined($score) )
-    {
-        
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{thread},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{thread},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{thread},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{thread},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::Thread::threadmember
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"threadmember"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [threadmember]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{threadmember},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{NUMBER, or thread});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [NUMBER]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{threadmember});
-        %item = (__RULE__ => q{threadmember});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{threadmember},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::Thread::NUMBER($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [NUMBER]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{threadmember},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [NUMBER]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{NUMBER}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{NUMBER} ; };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [NUMBER]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [thread]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[1];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{threadmember});
-        %item = (__RULE__ => q{threadmember});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying subrule: [thread]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{threadmember},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        if (1) { no strict qw{refs};
-        $expectation->is(q{})->at($text);
-        unless (defined ($_tok = Parse::RecDescent::Mail::IMAPClient::Thread::thread($thisparser,$text,$repeating,$_noactions,sub { \@arg },undef)))
-        {
-            
-            Parse::RecDescent::_trace(q{<<Didn't match subrule: [thread]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{threadmember},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            $expectation->failed();
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched subrule: [thread]<< (return value: [}
-                    . $_tok . q{]},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{thread}} = $_tok;
-        push @item, $_tok;
-        
-        }
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do { $return = $item{thread} ; };
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [thread]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-
-    unless ( $_matched || defined($score) )
-    {
-        
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{threadmember},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{threadmember},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{threadmember},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{threadmember},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::Thread::NUMBER
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"NUMBER"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [NUMBER]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{NUMBER},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/\\d+/});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/\\d+/]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{NUMBER});
-        %item = (__RULE__ => q{NUMBER});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/\\d+/]}, Parse::RecDescent::_tracefirst($text),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:\d+)/)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/\\d+/]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-
-    unless ( $_matched || defined($score) )
-    {
-        
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{NUMBER},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{NUMBER},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{NUMBER},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{NUMBER},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-
-# ARGS ARE: ($parser, $text; $repeating, $_noactions, \@args, $_itempos)
-sub Parse::RecDescent::Mail::IMAPClient::Thread::start
-{
-	my $thisparser = $_[0];
-	use vars q{$tracelevel};
-	local $tracelevel = ($tracelevel||0)+1;
-	$ERRORS = 0;
-    my $thisrule = $thisparser->{"rules"}{"start"};
-
-    Parse::RecDescent::_trace(q{Trying rule: [start]},
-                  Parse::RecDescent::_tracefirst($_[1]),
-                  q{start},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-
-    
-    my $err_at = @{$thisparser->{errors}};
-
-    my $score;
-    my $score_return;
-    my $_tok;
-    my $return = undef;
-    my $_matched=0;
-    my $commit=0;
-    my @item = ();
-    my %item = ();
-    my $repeating =  $_[2];
-    my $_noactions = $_[3];
-    my @arg =    defined $_[4] ? @{ &{$_[4]} } : ();
-    my $_itempos = $_[5];
-    my %arg =    ($#arg & 01) ? @arg : (@arg, undef);
-    my $text;
-    my $lastsep;
-    my $current_match;
-    my $expectation = new Parse::RecDescent::Expectation(q{/^\\* THREAD /i});
-    $expectation->at($_[1]);
-    
-    my $thisline;
-    tie $thisline, q{Parse::RecDescent::LineCounter}, \$text, $thisparser;
-
-    
-
-    while (!$_matched && !$commit)
-    {
-        
-        Parse::RecDescent::_trace(q{Trying production: [/^\\* THREAD /i thread]},
-                      Parse::RecDescent::_tracefirst($_[1]),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        my $thisprod = $thisrule->{"prods"}[0];
-        $text = $_[1];
-        my $_savetext;
-        @item = (q{start});
-        %item = (__RULE__ => q{start});
-        my $repcount = 0;
-
-
-        Parse::RecDescent::_trace(q{Trying terminal: [/^\\* THREAD /i]}, Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        undef $lastsep;
-        $expectation->is(q{})->at($text);
-        
-
-        unless ($text =~ s/\A($skip)/$lastsep=$1 and ""/e and   $text =~ m/\A(?:^\* THREAD )/i)
-        {
-            $text = $lastsep . $text if defined $lastsep;
-            $expectation->failed();
-            Parse::RecDescent::_trace(q{<<Didn't match terminal>>},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-
-            last;
-        }
-        $current_match = substr($text, $-[0], $+[0] - $-[0]);
-        substr($text,0,length($current_match),q{});
-        Parse::RecDescent::_trace(q{>>Matched terminal<< (return value: [}
-                        . $current_match . q{])},
-                          Parse::RecDescent::_tracefirst($text))
-                    if defined $::RD_TRACE;
-        push @item, $item{__PATTERN1__}=$current_match;
-        
-
-        Parse::RecDescent::_trace(q{Trying repeated subrule: [thread]},
-                  Parse::RecDescent::_tracefirst($text),
-                  q{start},
-                  $tracelevel)
-                    if defined $::RD_TRACE;
-        $expectation->is(q{thread})->at($text);
-        
-        unless (defined ($_tok = $thisparser->_parserepeat($text, \&Parse::RecDescent::Mail::IMAPClient::Thread::thread, 0, 100000000, $_noactions,$expectation,sub { \@arg },undef)))
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match repeated subrule: [thread]>>},
-                          Parse::RecDescent::_tracefirst($text),
-                          q{start},
-                          $tracelevel)
-                            if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched repeated subrule: [thread]<< (}
-                    . @$_tok . q{ times)},
-
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $item{q{thread(s?)}} = $_tok;
-        push @item, $_tok;
-        
-
-
-        Parse::RecDescent::_trace(q{Trying action},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        
-
-        $_tok = ($_noactions) ? 0 : do {
-	$return=$item{'thread(s?)'}||undef;
-};
-        unless (defined $_tok)
-        {
-            Parse::RecDescent::_trace(q{<<Didn't match action>> (return value: [undef])})
-                    if defined $::RD_TRACE;
-            last;
-        }
-        Parse::RecDescent::_trace(q{>>Matched action<< (return value: [}
-                      . $_tok . q{])},
-                      Parse::RecDescent::_tracefirst($text))
-                        if defined $::RD_TRACE;
-        push @item, $_tok;
-        $item{__ACTION1__}=$_tok;
-        
-
-        Parse::RecDescent::_trace(q{>>Matched production: [/^\\* THREAD /i thread]<<},
-                      Parse::RecDescent::_tracefirst($text),
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-
-
-
-        $_matched = 1;
-        last;
-    }
-
-
-    unless ( $_matched || defined($score) )
-    {
-        
-
-        $_[1] = $text;  # NOT SURE THIS IS NEEDED
-        Parse::RecDescent::_trace(q{<<Didn't match rule>>},
-                     Parse::RecDescent::_tracefirst($_[1]),
-                     q{start},
-                     $tracelevel)
-                    if defined $::RD_TRACE;
-        return undef;
-    }
-    if (!defined($return) && defined($score))
-    {
-        Parse::RecDescent::_trace(q{>>Accepted scored production<<}, "",
-                      q{start},
-                      $tracelevel)
-                        if defined $::RD_TRACE;
-        $return = $score_return;
-    }
-    splice @{$thisparser->{errors}}, $err_at;
-    $return = $item[$#item] unless defined $return;
-    if (defined $::RD_TRACE)
-    {
-        Parse::RecDescent::_trace(q{>>Matched rule<< (return value: [} .
-                      $return . q{])}, "",
-                      q{start},
-                      $tracelevel);
-        Parse::RecDescent::_trace(q{(consumed: [} .
-                      Parse::RecDescent::_tracemax(substr($_[1],0,-length($text))) . q{])},
-                      Parse::RecDescent::_tracefirst($text),
-                      , q{start},
-                      $tracelevel)
-    }
-    $_[1] = $text;
-    return $return;
-}
-}
-package Mail::IMAPClient::Thread; sub new { my $self = bless( {
-                 '_AUTOTREE' => undef,
-                 '_AUTOACTION' => undef,
-                 'namespace' => 'Parse::RecDescent::Mail::IMAPClient::Thread',
-                 'startcode' => '',
-                 'rules' => {
-                              'thread' => bless( {
-                                                   'calls' => [
-                                                                'threadmember'
-                                                              ],
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'error' => undef,
-                                                                         'actcount' => 1,
-                                                                         'uncommit' => undef,
-                                                                         'line' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'line' => 10,
-                                                                                               'pattern' => '(',
-                                                                                               'lookahead' => 0,
-                                                                                               'hashname' => '__STRING1__',
-                                                                                               'description' => '\'(\''
-                                                                                             }, 'Parse::RecDescent::InterpLit' ),
-                                                                                      bless( {
-                                                                                               'lookahead' => 0,
-                                                                                               'subrule' => 'threadmember',
-                                                                                               'line' => 10,
-                                                                                               'max' => 100000000,
-                                                                                               'min' => 1,
-                                                                                               'argcode' => undef,
-                                                                                               'expected' => undef,
-                                                                                               'matchrule' => 0,
-                                                                                               'repspec' => 's'
-                                                                                             }, 'Parse::RecDescent::Repetition' ),
-                                                                                      bless( {
-                                                                                               'pattern' => ')',
-                                                                                               'line' => 10,
-                                                                                               'lookahead' => 0,
-                                                                                               'hashname' => '__STRING2__',
-                                                                                               'description' => '\')\''
-                                                                                             }, 'Parse::RecDescent::InterpLit' ),
-                                                                                      bless( {
-                                                                                               'hashname' => '__ACTION1__',
-                                                                                               'code' => '{
-		$return = $item{\'threadmember(s)\'}||undef;	
-	}',
-                                                                                               'line' => 11,
-                                                                                               'lookahead' => 0
-                                                                                             }, 'Parse::RecDescent::Action' )
-                                                                                    ],
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 2,
-                                                                         'number' => 0,
-                                                                         'patcount' => 0
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'line' => 10,
-                                                   'impcount' => 0,
-                                                   'changed' => 0,
-                                                   'vars' => '',
-                                                   'opcount' => 0,
-                                                   'name' => 'thread'
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'threadmember' => bless( {
-                                                         'line' => 5,
-                                                         'prods' => [
-                                                                      bless( {
-                                                                               'error' => undef,
-                                                                               'strcount' => 0,
-                                                                               'dircount' => 0,
-                                                                               'items' => [
-                                                                                            bless( {
-                                                                                                     'matchrule' => 0,
-                                                                                                     'argcode' => undef,
-                                                                                                     'lookahead' => 0,
-                                                                                                     'subrule' => 'NUMBER',
-                                                                                                     'implicit' => undef,
-                                                                                                     'line' => 7
-                                                                                                   }, 'Parse::RecDescent::Subrule' ),
-                                                                                            bless( {
-                                                                                                     'hashname' => '__ACTION1__',
-                                                                                                     'code' => '{ $return = $item{NUMBER} ; }',
-                                                                                                     'line' => 7,
-                                                                                                     'lookahead' => 0
-                                                                                                   }, 'Parse::RecDescent::Action' )
-                                                                                          ],
-                                                                               'line' => undef,
-                                                                               'patcount' => 0,
-                                                                               'number' => 0,
-                                                                               'actcount' => 1,
-                                                                               'uncommit' => undef
-                                                                             }, 'Parse::RecDescent::Production' ),
-                                                                      bless( {
-                                                                               'error' => undef,
-                                                                               'actcount' => 1,
-                                                                               'uncommit' => undef,
-                                                                               'strcount' => 0,
-                                                                               'dircount' => 0,
-                                                                               'items' => [
-                                                                                            bless( {
-                                                                                                     'matchrule' => 0,
-                                                                                                     'argcode' => undef,
-                                                                                                     'lookahead' => 0,
-                                                                                                     'line' => 8,
-                                                                                                     'implicit' => undef,
-                                                                                                     'subrule' => 'thread'
-                                                                                                   }, 'Parse::RecDescent::Subrule' ),
-                                                                                            bless( {
-                                                                                                     'lookahead' => 0,
-                                                                                                     'line' => 8,
-                                                                                                     'hashname' => '__ACTION1__',
-                                                                                                     'code' => '{ $return = $item{thread} ; }'
-                                                                                                   }, 'Parse::RecDescent::Action' )
-                                                                                          ],
-                                                                               'line' => 7,
-                                                                               'patcount' => 0,
-                                                                               'number' => 1
-                                                                             }, 'Parse::RecDescent::Production' )
-                                                                    ],
-                                                         'calls' => [
-                                                                      'NUMBER',
-                                                                      'thread'
-                                                                    ],
-                                                         'impcount' => 0,
-                                                         'changed' => 0,
-                                                         'vars' => '',
-                                                         'opcount' => 0,
-                                                         'name' => 'threadmember'
-                                                       }, 'Parse::RecDescent::Rule' ),
-                              'NUMBER' => bless( {
-                                                   'line' => 1,
-                                                   'prods' => [
-                                                                bless( {
-                                                                         'line' => undef,
-                                                                         'items' => [
-                                                                                      bless( {
-                                                                                               'ldelim' => '/',
-                                                                                               'mod' => '',
-                                                                                               'description' => '/\\\\d+/',
-                                                                                               'rdelim' => '/',
-                                                                                               'pattern' => '\\d+',
-                                                                                               'line' => 3,
-                                                                                               'lookahead' => 0,
-                                                                                               'hashname' => '__PATTERN1__'
-                                                                                             }, 'Parse::RecDescent::Token' )
-                                                                                    ],
-                                                                         'dircount' => 0,
-                                                                         'strcount' => 0,
-                                                                         'number' => 0,
-                                                                         'patcount' => 1,
-                                                                         'actcount' => 0,
-                                                                         'uncommit' => undef,
-                                                                         'error' => undef
-                                                                       }, 'Parse::RecDescent::Production' )
-                                                              ],
-                                                   'calls' => [],
-                                                   'opcount' => 0,
-                                                   'name' => 'NUMBER',
-                                                   'impcount' => 0,
-                                                   'changed' => 0,
-                                                   'vars' => ''
-                                                 }, 'Parse::RecDescent::Rule' ),
-                              'start' => bless( {
-                                                  'opcount' => 0,
-                                                  'name' => 'start',
-                                                  'impcount' => 0,
-                                                  'changed' => 0,
-                                                  'vars' => '',
-                                                  'calls' => [
-                                                               'thread'
-                                                             ],
-                                                  'prods' => [
-                                                               bless( {
-                                                                        'error' => undef,
-                                                                        'actcount' => 1,
-                                                                        'uncommit' => undef,
-                                                                        'strcount' => 0,
-                                                                        'line' => undef,
-                                                                        'items' => [
-                                                                                     bless( {
-                                                                                              'ldelim' => '/',
-                                                                                              'mod' => 'i',
-                                                                                              'description' => '/^\\\\* THREAD /i',
-                                                                                              'rdelim' => '/',
-                                                                                              'pattern' => '^\\* THREAD ',
-                                                                                              'line' => 16,
-                                                                                              'lookahead' => 0,
-                                                                                              'hashname' => '__PATTERN1__'
-                                                                                            }, 'Parse::RecDescent::Token' ),
-                                                                                     bless( {
-                                                                                              'lookahead' => 0,
-                                                                                              'subrule' => 'thread',
-                                                                                              'line' => 16,
-                                                                                              'max' => 100000000,
-                                                                                              'min' => 0,
-                                                                                              'argcode' => undef,
-                                                                                              'expected' => undef,
-                                                                                              'matchrule' => 0,
-                                                                                              'repspec' => 's?'
-                                                                                            }, 'Parse::RecDescent::Repetition' ),
-                                                                                     bless( {
-                                                                                              'lookahead' => 0,
-                                                                                              'line' => 16,
-                                                                                              'code' => '{
-	$return=$item{\'thread(s?)\'}||undef;
-}',
-                                                                                              'hashname' => '__ACTION1__'
-                                                                                            }, 'Parse::RecDescent::Action' )
-                                                                                   ],
-                                                                        'dircount' => 0,
-                                                                        'patcount' => 1,
-                                                                        'number' => 0
-                                                                      }, 'Parse::RecDescent::Production' )
-                                                             ],
-                                                  'line' => 15
-                                                }, 'Parse::RecDescent::Rule' )
-                            },
-                 '_check' => {
-                               'thisoffset' => '',
-                               'prevcolumn' => '',
-                               'prevline' => '',
-                               'itempos' => '',
-                               'thiscolumn' => '',
-                               'prevoffset' => ''
-                             },
-                 'localvars' => ''
-               }, 'Parse::RecDescent' );
-}
\ No newline at end of file
diff --git a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pod b/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pod
deleted file mode 100644
index 46a5a26..0000000
--- a/W/Mail-IMAPClient-3.42/lib/Mail/IMAPClient/Thread.pod
+++ /dev/null
@@ -1,14 +0,0 @@
-=head1 NAME
-
-Mail::IMAPClient::Thread - used internally by Mail::IMAPClient->thread
-
-=head1 DESCRIPTION
-
-This module is used internally by L<Mail::IMAPClient> and is 
-generated using L<Parse::RecDescent>. It is not meant to be used directly by 
-other scripts nor is there much point in debugging it. 
-
-=head1 SYNOPSIS
-
-This module is used internally by L<Mail::IMAPClient> and is not meant to 
-be used or called directly from applications. So don't do that.
diff --git a/W/Mail-IMAPClient-3.42/prepare_dist b/W/Mail-IMAPClient-3.42/prepare_dist
deleted file mode 100755
index 1312151..0000000
--- a/W/Mail-IMAPClient-3.42/prepare_dist
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use File::Copy qw/move/;
-use Parse::RecDescent 1.94;
-
-sub read_file {
-    my $file = shift;
-    local ( $/, *FH );
-    open( FH, $file ) or return undef;
-    return <FH>;
-}
-
-build_parser(
-    'lib/Mail/IMAPClient/BodyStructure/Parse.grammar',
-    'Mail::IMAPClient::BodyStructure::Parse'
-);
-
-build_parser( 'lib/Mail/IMAPClient/Thread.grammar',
-    'Mail::IMAPClient::Thread' );
-
-sub build_parser {
-    my ( $grammarfn, $package ) = @_;
-
-    print("* building $package\n");
-
-    my $grammar = read_file($grammarfn)
-      or die("cannot read grammar from $grammarfn: $!\n");
-
-    Parse::RecDescent->Precompile( $grammar, $package );
-
-    # clumpsy output by Parse::RecDescent
-    my $outfn = $package . '.pm';
-    $outfn =~ s/.*\:\://;
-
-    my $realfn = $grammarfn;
-    $realfn =~ s/\.\w+$/.pm/;
-
-    move( $outfn, $realfn )
-      or die("cannot move $outfn to $realfn: $!\n");
-}
diff --git a/W/Mail-IMAPClient-3.42/t/basic.t b/W/Mail-IMAPClient-3.42/t/basic.t
deleted file mode 100644
index b71ac68..0000000
--- a/W/Mail-IMAPClient-3.42/t/basic.t
+++ /dev/null
@@ -1,508 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use IO::File qw();
-use Test::More;
-use File::Temp qw(tempfile);
-
-use lib "t/lib";
-use MyTest;
-my $params;
-
-BEGIN {
-    eval { $params = MyTest->new; };
-    $@
-      ? plan skip_all => $@
-      : plan tests    => 111;
-}
-
-BEGIN { use_ok('Mail::IMAPClient') or exit; }
-
-my $debug   = $ARGV[0];
-my $range   = 0;
-my $uidplus = 0;
-
-my %new_args = (
-    Clear         => 0,
-    Uid           => $uidplus,
-    Debug         => $debug,
-);
-
-{
-    my $ret;
-    eval {
-	my $imap = Mail::IMAPClient->new();
-	$ret = $imap->connect();
-    };
-    ok( !$@, "allow no args to connect()" ) or diag( '$@:' . $@ );
-    ok( !defined $ret, "connect() returns undef" ) or diag("returned($ret)");
-}
-
-# allow other options to be placed in test.txt
-%new_args = ( %new_args, %${params} );
-
-my $imap = Mail::IMAPClient->new(
-    %new_args,
-    Range    => $range,
-    Debug_fh => ( $debug ? IO::File->new( 'imap1.debug', 'w' ) : undef ),
-);
-
-ok( defined $imap, 'created client' );
-$imap
-  or die "Cannot log into $new_args{Server} as $new_args{User}.\n"
-  . "Are server/user/password correct?\n";
-
-isa_ok( $imap, 'Mail::IMAPClient' );
-
-{
-    my $type = ref $imap->Socket;
-    ok( $type =~ /^IO::Socket::.*/, "Socket ref is $type" );
-}
-
-$imap->Debug_fh->autoflush() if $imap->Debug_fh;
-
-my $testmsg = <<__TEST_MSG;
-Date:  @{[$imap->Rfc822_date(time)]}
-To: <$new_args{User}\@$new_args{Server}>
-From: Perl <$new_args{User}\@$new_args{Server}>
-Subject: Testing from pid $$
-
-This is a test message generated by $0 during a 'make test' as part of
-the installation of the Mail::IMAPClient module from CPAN.
-__TEST_MSG
-
-ok( $imap->noop,                    "noop" );
-ok( $imap->tag_and_run("NOOP\r\n"), "tag_and_run" );
-
-my $sep = $imap->separator;
-ok( defined $sep, "separator is '$sep'" );
-
-{
-    my $list = $imap->list();
-    is( ref($list), "ARRAY", "list" );
-
-    my $lsub = $imap->lsub();
-    is( ref($lsub), "ARRAY", "lsub" );
-}
-
-my ( $target, $target2 );
-{
-    my $ispar = $imap->is_parent('INBOX');
-    my $pre = $ispar ? "INBOX${sep}" : "";
-    ( $target, $target2 ) = ( "${pre}IMAPClient_$$", "${pre}IMAPClient_2_$$" );
-    ok( defined $ispar, "INBOX is_parent '$ispar' (note: target '$target')" );
-}
-
-ok( $imap->select('inbox'), "select inbox" );
-
-# folders
-{
-    my @f = $imap->folders();
-    ok( @f, "folders" . ( $debug ? ":@f" : "" ) );
-    my @fh      = $imap->folders_hash();
-    my @fh_keys = qw(attrs delim name);
-    ok( @fh, "folders_hash keys: @fh_keys" );
-    is_deeply(
-        [ sort keys %{ $fh[0] } ],
-        [ sort @fh_keys ],
-        "folders eq folders_hash"
-      );
-}
-
-# test append_file
-my $append_file_size;
-{
-    my ( $afh, $afn ) = tempfile UNLINK => 1;
-
-    # write message to autoflushed file handle since we keep $afh around
-    my $oldfh = select($afh);
-    $| = 1;
-    select($oldfh);
-    print( $afh $testmsg ) or die("print testmsg failed");
-    cmp_ok( -s $afn, '>', 0, "tempfile has size" );
-
-    ok( $imap->create($target), "create target" );
-
-    my $uid = $imap->append_file( $target, $afn );
-    ok( defined $uid, "append_file test message to $target" );
-
-    ok( $imap->select($target), "select $target" );
-
-    my $msg = ( $uidplus and $uid ) ? $uid : ( $imap->messages )[0];
-    my $size = $imap->size($msg);
-
-    cmp_ok( $size, '>', 0, "has size $size" );
-
-    my $string = $imap->message_string($msg);
-    ok( defined $string, "returned string" );
-
-    cmp_ok( length($string), '==', $size, "string matches server size" );
-
-    # dovecot may disconnect client if deleting selected folder
-    ok( $imap->select("INBOX"), "select INBOX" );
-    ok( $imap->delete($target), "delete folder $target" );
-
-    $append_file_size = $size;
-}
-
-# rt.cpan.org#91912: selectable test for /NoSelect
-{
-    my $targetno   = $target . "_noselect";
-    my $targetsubf = $targetno . "${sep}subfolder";
-    ok( $imap->create($targetsubf), "create target subfolder" );
-    my @f = $imap->folders();
-    ok( (!grep { $_ eq $targetno } @f), "folders() excludes /Noselect mailbox" )
-	or diag("folders() included $targetno");
-    ok( !$imap->selectable($targetno),
-        "not selectable (non-mailbox w/inferior)" );
-    ok( $imap->delete($targetsubf), "delete target subfolder" );
-    ok( $imap->delete($targetno),   "delete parent folder" );
-}
-
-ok( $imap->create($target), "create target" );
-ok( $imap->select($target), "select $target" );
-
-# Test append / append_string if we also have UID capability
-SKIP: {
-    skip "UIDPLUS not supported", 3 unless $imap->has_capability("UIDPLUS");
-
-    my $ouid = $imap->Uid();
-    $imap->Uid(1);
-
-    # test with date that has a leading space
-    my $d = " 1-Jan-2011 01:02:03 -0500";
-    my $uid = $imap->append_string( $target, $testmsg, undef, $d );
-    ok( defined $uid, "append test message to $target with date (uid=$uid)" );
-
-    # hash results do not have UID unless requested
-    my $h1 = $imap->fetch_hash( $uid, "RFC822.SIZE" );
-    is( ref($h1), "HASH", "fetch_hash($uid,RFC822.SIZE)" );
-    is( scalar keys %$h1, 1, "fetch_hash: fetched one msg (as requested)" );
-    is( !exists $h1->{$uid}->{UID}, 1, "fetch_hash: no UID (not requested)" );
-
-    $h1 = $imap->fetch_hash( $uid, "UID RFC822.SIZE" );
-    is( exists $h1->{$uid}->{UID}, 1, "fetch_hash: has UID (as requested)" );
-
-    ok( $imap->delete_message($uid), "delete_message $uid" );
-    ok( $imap->uidexpunge($uid),     "uidexpunge $uid" );
-
-=begin comment
-
-    my $ol = $imap->Maxcommandlength();
-    $imap->Maxcommandlength(64);
-    my $exp = $imap->uidexpunge($uid . "," . join(",", map{$_*2} 2..40) );
-    $imap->Maxcommandlength($ol);
-    is( $exp->[0], $imap->Count . " UID EXPUNGE $uid", "UID EXPUNGE $uid" );
-    is( grep( /^\* $uid EXPUNGE/, @$exp ), !undef, "found EXPUNGE response" );
-
-=cut
-
-    # multiple args joined internally in append()
-    $uid = $imap->append( $target, $testmsg, "Some extra text too" );
-    ok( defined $uid, "append test message to $target with date (uid=$uid)" );
-    ok( $imap->delete_message($uid), "delete_message $uid" );
-    ok( $imap->uidexpunge($uid),     "uidexpunge $uid" );
-
-    $imap->Uid($ouid);
-}
-
-# test append
-{
-    my $uid = $imap->append( $target, $testmsg );
-    ok( defined $uid, "append test message to $target" );
-
-    my $msg = ( $uidplus and $uid ) ? $uid : ( $imap->messages )[0];
-    my $size = $imap->size($msg);
-
-    cmp_ok( $size, '>', 0, "has size $size" );
-
-    my $string = $imap->message_string($msg);
-    ok( defined $string, "returned string" );
-
-    cmp_ok( length($string), '==', $size, "string == server size" );
-
-    {
-        my $var;
-        ok( $imap->message_to_file( \$var, $msg ), "to SCALAR ref" );
-        cmp_ok( length($var), '==', $size, "correct size" );
-
-        my ( $fh, $fn ) = tempfile UNLINK => 1;
-        ok( $imap->message_to_file( $fn, $msg ), "to file $fn" );
-
-        cmp_ok( -s $fn, '==', $size, "correct size" );
-    }
-
-    cmp_ok( $size, '==', $append_file_size, "size matches string/file" );
-
-    # save first message/folder for use below...
-    #OFF ok( $imap->delete($target), "delete folder $target" );
-}
-
-#OFF ok( $imap->create($target), "create target" );
-ok( $imap->exists($target),  "exists $target" );
-ok( $imap->create($target2), "create $target2" );
-ok( $imap->exists($target2), "exists $target2" );
-
-is( defined $imap->is_parent($sep), 1, "is_parent($sep)" );
-is( !$imap->is_parent($target2),    1, "is_parent($target2)" );
-
-{
-    ok( $imap->subscribe($target), "subscribe $target" );
-
-    my $sub1 = $imap->subscribed();
-    is( ( grep( /^\Q$target\E$/, @$sub1 ) )[0], "$target", "subscribed" );
-
-    ok( $imap->unsubscribe($target), "unsubscribe target" );
-
-    my $sub2 = $imap->subscribed();
-    is( ( grep( /^\Q$target\E$/, @$sub2 ) )[0], undef, "unsubscribed" );
-}
-
-my $fwquotes = qq($target has "quotes");
-if ( $imap->create($fwquotes) ) {
-    ok( 1,                        "create '$fwquotes'" );
-    ok( $imap->select($fwquotes), "select '$fwquotes'" );
-    ok( $imap->close,             "close  '$fwquotes'" );
-    $imap->select('inbox');
-    ok( $imap->delete($fwquotes), "delete '$fwquotes'" );
-}
-else {
-    my $err = $imap->LastError || "(no error)";
-    ok( 1, "failed creation with quotes, assume not supported: $err" );
-    ok( 1, "skipping 1/3 tests" );
-    ok( 1, "skipping 2/3 tests" );
-    ok( 1, "skipping 3/3 tests" );
-}
-
-ok( $imap->select($target), "select $target" );
-
-my $fields = $imap->search( "HEADER", "Message-id", "NOT_A_MESSAGE_ID" );
-is( scalar @$fields, 0, 'bogus message id does not exist' );
-
-{
-    my $geth = $imap->get_header( 123456789, "Subject" );
-    is( $geth, undef, "get_header on bogus message returns undef" );
-}
-
-my @seen = $imap->seen;
-cmp_ok( scalar @seen, '==', 1, 'have seen 1' );
-
-ok( $imap->deny_seeing( \@seen ), 'deny seeing' );
-my @unseen = $imap->unseen;
-cmp_ok( scalar @unseen, '==', 1, 'have unseen 1' );
-
-ok( $imap->see( \@seen ), "let's see one" );
-cmp_ok( scalar @seen, '==', 1, 'have seen 1' );
-
-$imap->deny_seeing(@seen);    # reset
-
-$imap->Peek(1);
-my $subject = $imap->parse_headers( $seen[0], "Subject" )->{Subject}[0];
-unlike( join( "", $imap->flags( $seen[0] ) ), qr/\\Seen/i, 'Peek==1' );
-
-$imap->deny_seeing(@seen);
-$imap->Peek(0);
-$subject = $imap->parse_headers( $seen[0], "Subject" )->{Subject}[0];
-like( join( "", $imap->flags( $seen[0] ) ), qr/\\Seen/i, 'Peek==0' );
-
-$imap->deny_seeing(@seen);
-$imap->Peek(undef);
-$subject = $imap->parse_headers( $seen[0], "Subject" )->{Subject}[0];
-unlike( join( "", $imap->flags( $seen[0] ) ), qr/\\Seen/i, 'Peek==undef' );
-
-my $uid2 = $imap->copy( $target2, 1 );
-ok( $uid2, "copy $target2" );
-
-my @res = $imap->fetch( 1, "RFC822.TEXT" );
-ok( scalar @res, "fetch rfc822" );
-
-{
-    my $h1 = $imap->fetch_hash("RFC822.SIZE");
-    is( ref($h1), "HASH", "fetch_hash(RFC822.SIZE)" );
-
-    my $id = ( sort { $a <=> $b } keys %$h1 )[0];
-    my $h2 = $imap->fetch_hash( $id, "RFC822.SIZE" );
-    is( ref($h2), "HASH", "fetch_hash($id,RFC822.SIZE)" );
-    is( scalar keys %$h2, 1, "fetch_hash($id,RFC822.SIZE) => fetched one msg" );
-}
-
-{
-    my $seq = "1:*";
-    my @dat = (qw(RFC822.SIZE INTERNALDATE));
-
-    my $h1 = $imap->fetch_hash( $seq, @dat );
-    is( ref($h1), "HASH", "fetch_hash($seq, " . join( ", ", @dat ) . ")" );
-
-    # verify legacy and less desirable use case still works
-    my $h2 = $imap->fetch_hash("$seq @dat");
-    is( ref($h2), "HASH", "fetch_hash('$seq @dat')" );
-
-    is_deeply( $h1, $h2, "fetch_hash same result with array or string args" );
-}
-
-my $h = $imap->parse_headers( 1, "Subject" );
-ok( $h, "got subject" );
-like( $h->{Subject}[0], qr/^Testing from pid/, "subject matched" );
-
-ok( $imap->select($target), "select $target" );
-my @hits = $imap->search( SUBJECT => 'Testing' );
-cmp_ok( scalar @hits, '==', 1, 'hit subject Testing' );
-ok( defined $hits[0], "subject is defined" );
-
-ok( $imap->delete_message(@hits), 'delete hits' );
-my $flaghash = $imap->flags( \@hits );
-my $flagflag = 0;
-foreach my $v ( values %$flaghash ) {
-    $flagflag += grep /\\Deleted/, @$v;
-}
-cmp_ok( $flagflag, '==', scalar @hits, "delete verified" );
-
-my @nohits = $imap->search( \qq(SUBJECT "Productioning") );
-cmp_ok( scalar @nohits, '==', 0, 'no hits expected' );
-
-ok( $imap->restore_message(@hits), 'restore messages' );
-
-$flaghash = $imap->flags( \@hits );
-foreach my $v ( values %$flaghash ) {
-    $flagflag-- unless grep /\\Deleted/, @$v;
-}
-cmp_ok( $flagflag, '==', 0, "restore verified" );
-
-$imap->select($target2);
-ok(
-    $imap->delete_message( scalar( $imap->search("ALL") ) )
-      && $imap->close
-      && $imap->delete($target2),
-    "delete $target2"
-);
-
-$imap->select("INBOX");
-$@ = undef;
-@hits =
-  $imap->search( BEFORE => Mail::IMAPClient::Rfc2060_date(time), "UNDELETED" );
-ok( !$@, "search undeleted" ) or diag( '$@:' . $@ );
-
-#
-# Test migrate method
-#
-
-my $im2 = Mail::IMAPClient->new(
-    %new_args,
-    Timeout  => 30,
-    Debug_fh => ( $debug ? IO::File->new(">./imap2.debug") : undef ),
-);
-ok( defined $im2, 'started second imap client' );
-
-my $source = $target;
-$imap->select($source)
-  or die "cannot select source $source: $@";
-
-$imap->append( $source, $testmsg ) for 1 .. 5;
-$imap->close;
-$imap->select($source);
-
-my $migtarget = $target . '_mirror';
-
-$im2->create($migtarget)
-  or die "can't create $migtarget: $@";
-
-$im2->select($migtarget)
-  or die "can't select $migtarget: $@";
-
-$imap->migrate( $im2, scalar( $imap->search("ALL") ), $migtarget )
-  or die "couldn't migrate: $@";
-
-$im2->close;
-$im2->select($migtarget)
-  or die "can't select $migtarget: $@";
-
-ok( !$@, "LastError not set" ) or diag( '$@:' . $@ );
-
-#
-my $total_bytes1 = 0;
-for ( $imap->search("ALL") ) {
-    my $s = $imap->size($_);
-    $total_bytes1 += $s;
-    print "Size of msg $_ is $s\n" if $debug;
-}
-
-my $total_bytes2 = 0;
-for ( $im2->search("ALL") ) {
-    my $s = $im2->size($_);
-    $total_bytes2 += $s;
-    print "Size of msg $_ is $s\n" if $debug;
-}
-
-ok( !$@, "LastError not set" ) or diag( '$@:' . $@ );
-cmp_ok( $total_bytes1, '==', $total_bytes2, 'size source==target' );
-
-# cleanup
-$im2->select($migtarget);
-$im2->delete_message( @{ $im2->messages } )
-  if $im2->message_count;
-
-ok( $im2->close, "close" );
-$im2->delete($migtarget);
-
-ok_relaxed_logout($im2);
-
-# Test IDLE
-SKIP: {
-    skip "IDLE not supported", 4 unless $imap->has_capability("IDLE");
-    ok( my $idle = $imap->idle, "idle" );
-    sleep 1;
-    ok( $imap->idle_data,   "idle_data" );
-    ok( $imap->done($idle), "done" );
-    ok( !$@, "LastError not set" ) or diag( '$@:' . $@ );
-}
-
-$imap->select('inbox');
-if ( $imap->rename( $target, "${target}NEW" ) ) {
-    ok( 1, 'rename' );
-    $imap->close;
-    $imap->select("${target}NEW");
-    $imap->delete_message( @{ $imap->messages } ) if $imap->message_count;
-    $imap->close;
-    $imap->delete("${target}NEW");
-}
-else {
-    ok( 0, 'rename failed' );
-    $imap->delete_message( @{ $imap->messages } )
-      if $imap->message_count;
-    $imap->close;
-    $imap->delete($target);
-}
-
-{
-    $imap->select('inbox');
-    my $bogusf = $imap->flags(42);
-    is( $bogusf, undef, '(scalar) flags returns undef for bogus message' );
-    my @bogusf = $imap->flags(42);
-    is( $bogusf[0], undef, '(list) flags returns array with undef element 0 for bogus message' );
-}
-
-$imap->_disconnect;
-ok( $imap->reconnect, "reconnect" );
-
-ok_relaxed_logout($imap);
-
-# STARTTLS - an optional feature
-if ( $imap->_load_module("SSL") ) {
-    $imap->connect( Ssl => 0, Starttls => 1 );
-    ok( 1, "OPTIONAL connect(Starttls=>1)" . ( $@ ? ": (error) $@ " : "" ) );
-}
-else {
-    ok( 1, "skipping optional STARTTLS test" );
-}
-
-# LOGOUT
-# - on successful LOGOUT $code is OK (not BYE!) see RFC 3501 sect 7.1.5
-#   however some servers return BYE instead so we let that pass here...
-sub ok_relaxed_logout {
-    my $imap = shift;
-    local ($@);
-    my $rc = $imap->logout;
-    my $err = $imap->LastError || "";
-    ok( ( $rc or $err =~ /^\* BYE/ ), "logout" . ( $err ? ": $err" : "" ) );
-}
diff --git a/W/Mail-IMAPClient-3.42/t/body_string.t b/W/Mail-IMAPClient-3.42/t/body_string.t
deleted file mode 100644
index 06f254b..0000000
--- a/W/Mail-IMAPClient-3.42/t/body_string.t
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/usr/bin/perl
-#
-# tests for body_string()
-#
-# body_string() calls fetch() internally. rather than refactor
-# body_string() just for testing, we subclass M::IC and use the
-# overidden fetch() to feed it test data.
-
-use strict;
-use warnings;
-use IO::Socket qw(:crlf);
-use Test::More tests => 3;
-
-BEGIN { use_ok('Mail::IMAPClient') or exit; }
-
-my @tests = (
-    [
-        "simple fetch",
-        [
-          '12 FETCH 1 BODY[TEXT]',
-          '* 1 FETCH (FLAGS (\\Seen \\Recent) BODY[TEXT]',
-          "This is a test message$CRLF" . "Line Z (last line)$CRLF",
-          ")$CRLF",
-          "12 OK Fetch completed.$CRLF",
-        ],
-        [ 1 ],
-        "This is a test message$CRLF" . "Line Z (last line)$CRLF",
-    ],
-
-    # 2010-05-27: test for bug reported by Heiko Schlittermann
-    [
-        "uwimap IMAP4rev1 2007b.404 fetch unseen",
-        [
-          '4 FETCH 1 BODY[TEXT]',
-          '* 1 FETCH (BODY[TEXT]',
-          "This is a test message$CRLF" . "Line Z (last line)$CRLF",
-          ")$CRLF",
-          "* 1 FETCH (FLAGS (\\Recent \\Seen)$CRLF",
-          "4 OK Fetch completed$CRLF",
-        ],
-        [ 1 ],
-        "This is a test message$CRLF" . "Line Z (last line)$CRLF",
-    ],
-);
-
-package Test::Mail::IMAPClient;
-
-use base qw(Mail::IMAPClient);
-
-sub new {
-    my ( $class, %args ) = @_;
-    my %me = %args;
-    return bless \%me, $class;
-}
-
-sub fetch {
-    my ( $self, @args ) = @_;
-    return $self->{_next_fetch_response} || [];
-}
-
-package main;
-
-sub run_tests {
-    my ( $imap, $tests ) = @_;
-
-    for my $test (@$tests) {
-        my ( $comment, $fetch, $request, $response ) = @$test;
-        $imap->{_next_fetch_response} = $fetch;
-        my $r = $imap->body_string(@$request);
-        is_deeply( $r, $response, $comment );
-    }
-}
-
-my $imap = Test::Mail::IMAPClient->new( Uid => 0, Debug => 0 );
-
-run_tests( $imap, \@tests );
diff --git a/W/Mail-IMAPClient-3.42/t/bodystructure.t b/W/Mail-IMAPClient-3.42/t/bodystructure.t
deleted file mode 100644
index c608fad..0000000
--- a/W/Mail-IMAPClient-3.42/t/bodystructure.t
+++ /dev/null
@@ -1,172 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More tests => 49;
-
-BEGIN { use_ok('Mail::IMAPClient::BodyStructure') or exit; }
-
-my $bs = <<'END_OF_BS';
-(BODYSTRUCTURE ("TEXT" "PLAIN" ("CHARSET" "us-ascii") NIL NIL "7BIT" 511 20 NIL NIL NIL))
-END_OF_BS
-
-my $bsobj = Mail::IMAPClient::BodyStructure->new($bs);
-ok( defined $bsobj, 'parsed first' );
-is( $bsobj->bodytype,    'TEXT',  'bodytype' );
-is( $bsobj->bodysubtype, 'PLAIN', 'bodysubtype' );
-
-my $bs2 = <<'END_OF_BS2';
-(BODYSTRUCTURE (("TEXT" "PLAIN" ("CHARSET" 'us-ascii') NIL NIL "7BIT" 2 1 NIL NIL NIL)("MESSAGE" "RFC822" NIL NIL NIL "7BIT" 3930 ("Tue, 16 Jul 2002 15:29:17 -0400" "Re: [Fwd: Here is the the list of uids]" (("Michael Etcetera" NIL "michael.etcetera" "generic.com")) (("Michael Etcetera" NIL "michael.etcetera" "generic.com")) (("Michael Etcetera" NIL "michael.etcetera" "generic.com")) (("Michael Etcetera" NIL "michael.etcetera" "generic.com")) (("David J Kavid" NIL "david.kavid" "generic.com")) NIL NIL "<72f9a217.a21772f9@generic.com>") (("TEXT" "PLAIN" ("CHARSET" "us-ascii") NIL NIL "7BIT" 369 11 NIL NIL NIL)("MESSAGE" "RFC822" NIL NIL NIL "7BIT" 2599 ("Tue, 9 Jul 2002 13:42:04 -0400" "Here is the the list of uids" (("Nicholas Kringle" NIL "nicholas.kringle" "generic.com")) (("Nicholas Kringle" NIL "nicholas.kringle" "generic.com")) (("Nicholas Kringle" NIL "nicholas.kringle" "generic.com")) (("Michael Etcetera" NIL "michael.etcetera" "generic.com")) (("Richard W Continued" NIL "richard.continued" "generic.com")) NIL NIL "<015401c2276f$f09b7c10$59cab08c@one.two.generic.com>") ((("TEXT" "PLAIN" ("CHARSET" "iso-8859-1") NIL NIL "QUOTED-PRINTABLE" 256 10 NIL NIL NIL)("TEXT" "HTML" ("CHARSET" "iso-8859-1") NIL NIL "QUOTED-PRINTABLE" 791 22 NIL NIL NIL) "ALTERNATIVE" ("BOUNDARY" "----=_NextPart_001_0151_01C2274E.6969D0F0") NIL NIL) "MIXED" ("BOUNDARY" "----=_NextPart_000_0150_01C2274E.6969D0F0") NIL NIL) 75 NIL NIL NIL) "MIXED" ("BOUNDARY" "--1f34eac2082b02") NIL ("EN")) 118 NIL NIL NIL) "MIXED" ("BOUNDARY" "------------F600BD8FDDD648ABA72A09E0") NIL NIL))
-END_OF_BS2
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs2);
-ok( defined $bsobj, 'parsed second' );
-is( $bsobj->bodytype,    'MULTIPART', 'bodytype' );
-is( $bsobj->bodysubtype, 'MIXED',     'bodysubtype' );
-
-is(
-    join( "#", $bsobj->parts ),
-
-    # Parsing in version 3.03-3.23, changed (broke) outcome from
-    #  this: "1#2#2.HEAD#2.1#2.2#2.2.HEAD#2.2.1#2.2.1.1#2.2.1.2"
-    #  to:   "1#2#2.HEAD#2.1#2.1.1#2.1.2#2.1.2.HEAD#2.1.2.1#2.1.2.1.1#2.1.2.1.1.1#2.1.2.1.1.2"
-    # Patches to BodyStructure.pm in 3.25 changed it to this:
-    "1#2#2.HEAD#2.TEXT#2.1#2.2#2.2.HEAD#2.2.TEXT#2.2.1#2.2.1.1#2.2.1.2",
-    'parts'
-);
-
-my $bs3 = <<'END_OF_BS3';
-FETCH (UID 1 BODYSTRUCTURE (("TEXT" "PLAIN" ("charset" "ISO-8859-1")
-NIL NIL "quoted-printable" 1744 0)("TEXT" "HTML" ("charset"
-"ISO-8859-1") NIL NIL "quoted-printable" 1967 0) "ALTERNATIVE"))
-END_OF_BS3
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs3);
-ok( defined $bsobj, 'parsed third' );
-
-my $bs4 = <<'END_OF_BS4';
-* 9 FETCH (UID 9 BODYSTRUCTURE (("TEXT" "PLAIN" ("charset" "us-ascii") NIL "Notification" "7BIT" 588 0)("MESSAGE" "DELIVERY-STATUS" NIL NIL "Delivery report" "7BIT" 459)("MESSAGE" "RFC822" NIL NIL "Undelivered Message" "8bit" 10286 ("Thu, 31 May 2007 11:25:56 +0200 (CEST)" "*****SPAM***** RE: Daily News" (("admin@activtrades.com" NIL "polettld" "ensma.fr")) (("admin@activtrades.com" NIL "polettld" "ensma.fr")) (("admin@activtrades.com" NIL "polettld" "ensma.fr")) ((NIL NIL "polettld" "ensma.fr")) NIL NIL "NIL" "<20070531133257.92825.qmail@cc299962-a.haaks1.ov.home.nl>") (("TEXT" "PLAIN" ("charset" "iso-8859-1") NIL NIL "7bit" 1510 0)("MESSAGE" "RFC822" ("name" "message" "x-spam-type" "original") NIL "Original message" "8bit" 5718) "MIXED")) "REPORT"))
-END_OF_BS4
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs4);
-ok( defined $bsobj, 'parsed fourth' );
-
-# test bodyMD5, contributed by Micheal Stok
-my $bs5 = <<'END_OF_BS5';
-* 6 FETCH (UID 17280 BODYSTRUCTURE ((("text" "plain" ("charset" "utf-8") NIL NIL "quoted-printable" 1143 37 NIL NIL NIL)("text" "html" ("charset" "utf-8") NIL NIL "quoted-printable" 4618 106 NIL NIL NIL) "alternative" ("boundary" "Boundary-00=_Z7P340MWKGMMYJ0CCJD0") NIL NIL)("image" "tiff" ("name" "8dd0e430.tif") NIL NIL "base64" 204134 "pmZp5QOBa9BIqFNmvxUiyQ==" ("attachment" ("filename" "8dd0e430.tif")) NIL) "mixed" ("boundary" "Boundary-00=_T7P340MWKGMMYJ0CCJD0") NIL NIL))
-END_OF_BS5
-
-my @exp;
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs5);
-@exp = qw(1 1.1 1.2 2);
-ok( defined $bsobj, 'parsed fifth' );
-is_deeply( [ $bsobj->parts ], \@exp, 'bs5 parts' )
-  or diag( join(" ", $bsobj->parts ) );
-
-#
-my $bs6 = q{(BODYSTRUCTURE (("text" "plain" ("charset" "UTF-8" "format" "flowed") NIL NIL "8bit" 82 6 NIL NIL NIL NIL)("message" "rfc822" ("name" "this is internal letter.eml") NIL NIL "7bit" 243436 ("Mon, 24 Aug 2009 10:51:22 +0400" "this is internal letter" ((NIL NIL "icestar" "inbox.ru")) ((NIL NIL "icestar" "inbox.ru")) ((NIL NIL "icestar" "inbox.ru")) ((NIL NIL "dima" "adriver.ru")) NIL NIL NIL "<4A92386A.9080307@inbox.ru>") (("text" "plain" ("charset" "UTF-8" "format" "flowed") NIL NIL "7bit" 116 7 NIL NIL NIL NIL)("text" "xml" ("name" "mediaplan.xml" "charset" "us-ascii") NIL NIL "base64" 31412 424 NIL ("inline" ("filename" "mediaplan.xml")) NIL NIL)("application" "zip" ("name" "banners2.zip") NIL NIL "base64" 209942 NIL ("inline" ("filename" "banners2.zip")) NIL NIL) "mixed" ("boundary" "------------070804080502030807020509") NIL NIL NIL) 3326 NIL ("inline" ("filename" "this is internal letter.eml")) NIL NIL) "mixed" ("boundary" "------------070704030806000803040203") NIL NIL NIL))};
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs6);
-@exp   = qw(1 2 2.HEAD 2.TEXT 2.1 2.2 2.3);
-ok( defined $bsobj, 'parsed sixth' );
-is_deeply( [ $bsobj->parts ], \@exp, 'bs6 parts' )
-  or diag( join(" ", $bsobj->parts ) );
-
-#
-my $bs7 = q{(BODYSTRUCTURE (("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 20 1 NIL NIL NIL NIL)("message" "rfc822" NIL NIL NIL "7bit" 1810 ("Fri,07 May 2010 01:55:07 -0400" "wrap inner a" (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) ((NIL NIL "phil" "perkpartners.com")) NIL NIL NIL "<25015.1273211707@local>") (("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 27 3 NIL NIL NIL NIL)("message" "rfc822" NIL NIL NIL "7bit" 783 ("Fri, 07 May 2010 01:54:14 -0400" "inner msg #1" (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) ((NIL NIL "phil" "perkpartners.com")) NIL NIL NIL "<24986.1273211654@local>") ("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 25 3 NIL NIL NIL NIL) 23 NIL ("inline" ("filename" "52")) NIL NIL) "mixed" ("boundary" "=-=-=") NIL NIL NIL) 58 NIL ("inline" ("filename" "53")) NIL NIL) "mixed" ("boundary""==-=-=") NIL NIL NIL))};
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs7);
-@exp   = qw(1 2 2.HEAD 2.TEXT 2.1 2.2 2.2.HEAD 2.2.1);
-ok( defined $bsobj, 'parsed seventh' );
-is_deeply( [ $bsobj->parts ], \@exp, 'bs7 parts' )
-  or diag( join(" ", $bsobj->parts ) );
-
-#
-my $bs8 = q{(BODYSTRUCTURE (("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 31 2 NIL NIL NIL NIL)("message" "rfc822" NIL NIL "My forwarded message" "7bit" 2833 ("Fri, 07 May 2010 01:55:40 -0400" "outer msg" (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) ((NIL NIL "phil" "perkpartners.com")) NIL NIL NIL "<25030.1273211740@local>") (("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 20 1 NIL NIL NIL NIL)("message" "rfc822" NIL NIL NIL "7bit" 1810 ("Fri, 07 May 2010 01:55:07 -0400" "wrap inner a" (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) ((NIL NIL "phil" "perkpartners.com")) NIL NIL NIL "<25015.1273211707@local>") (("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 27 3 NIL NIL NIL NIL)("message" "rfc822" NIL NIL NIL "7bit" 783 ("Fri, 07 May 2010 01:54:14 -0400" "inner msg #1" (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) (("Phil Pearl" NIL "phil" "perkpartners.com")) ((NIL NIL "phil" "perkpartners.com")) NIL NIL NIL "<24986.1273211654@local>") ("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 25 3 NIL NIL NIL NIL) 23 NIL ("inline" ("filename" "52")) NIL NIL) "mixed" ("boundary" "=-=-=") NIL NIL NIL) 58 NIL ("inline" ("filename" "53")) NIL NIL) "mixed" ("boundary" "==-=-=") NIL NIL NIL) 91 NIL ("inline" ("filename" "52")) NIL NIL)("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 30 2 NIL NIL NIL NIL)("application" "octet-stream" NIL NIL "My attachment" "7bit" 76 NIL ("attachment" ("filename" ".signature.cell")) NIL NIL)("text" "plain" ("charset" "us-ascii") NIL NIL "7bit" 31 2 NIL NIL NIL NIL) "mixed" ("boundary" "===-=-=") NIL NIL NIL))};
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs8);
-@exp   = qw(1 2 2.HEAD 2.TEXT 2.1 2.2 2.2.HEAD 2.2.TEXT 2.2.1 2.2.2 2.2.2.HEAD 2.2.2.1 3 4 5);
-ok( defined $bsobj, 'parsed eighth' );
-is_deeply( [ $bsobj->parts ], \@exp, 'bs8 parts' )
-  or diag( join(" ", $bsobj->parts ) );
-
-# Ryan Finnie MIME torture test
-my $bs9 = q{(BODYSTRUCTURE (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 617 16 NIL NIL NIL NIL)("message" "rfc822" NIL NIL "I'll be whatever I wanna do. --Fry" "7bit" 582 ("23 Oct 2003 22:25:56 -0700" "plain jane message" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066973156.4264.42.camel@localhost>") ("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 311 9 NIL NIL NIL NIL) 18 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Would you kindly shut your noise-hole? --Bender" "7bit" 1460 ("23 Oct 2003 23:15:11 -0700" "messages inside messages inside..." (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066976111.4263.74.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 193 3 NIL NIL NIL NIL)("message" "rfc822" NIL NIL "At the risk of sounding negative, no. --Leela" "7bit" 697 ("23 Oct 2003 23:09:05 -0700" "the original message" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066975745.4263.70.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 78 3 NIL NIL NIL NIL)("application" "x-gzip" ("NAME" "foo.gz") NIL NIL "base64" 58 NIL ("attachment" ("filename" "foo.gz")) NIL NIL) "mixed" ("boundary" "=-XFYecI7w+0shpolXq8bb") NIL NIL NIL) 25 NIL ("inline" NIL) NIL NIL) "mixed" ("boundary" "=-9Brg7LoMERBrIDtMRose") NIL NIL NIL) 49 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Dirt doesn't need luck! --Professor" "7bit" 817 ("23 Oct 2003 22:40:49 -0700" "this message JUST contains an attachment" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066974048.4264.62.camel@localhost>") ("application" "x-gzip" ("NAME" "blah.gz") NIL "Attachment has identical content to above foo.gz" "base64" 396 NIL ("attachment" ("filename" "blah.gz")) NIL NIL) 17 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Hold still, I don't have good depth perception! --Leela" "7bit" 1045 ("23 Oct 2003 23:09:16 -0700" "Attachment filename vs. name" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066975756.4263.70.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 377 6 NIL NIL NIL NIL)("application" "x-gzip" ("NAME" "blah2.gz") NIL "filename is blah1.gz, name is blah2.gz" "base64" 58 NIL ("attachment" ("filename" "blah1.gz")) NIL NIL) "mixed" ("boundary" "=-1066975756jd02") NIL NIL NIL) 29 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Hello little man. I WILL DESTROY YOU! --Moro" "7bit" 1149 ("23 Oct 2003 23:09:21 -0700" "No filename? No problem!" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066975761.4263.70.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 517 10 NIL NIL NIL NIL)("application" "x-gzip" NIL NIL "I'm getting sick of witty things to say" "base64" 58 NIL ("attachment" NIL) NIL NIL) "mixed" ("boundary" "=-1066975756jd03") NIL NIL NIL) 33 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Friends! Help! A guinea pig tricked me! --Zoidberg" "7bit" 896 ("23 Oct 2003 22:40:45 -0700" "html and text, both inline" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066974044.4264.62.camel@localhost>") (("text" "html" ("CHARSET" "utf-8") NIL NIL "8bit" 327 11 NIL NIL NIL NIL)("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 61 2 NIL NIL NIL NIL) "mixed" ("boundary" "=-ZCKMfHzvHMyK1iBu4kff") NIL NIL NIL) 33 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Smeesh! --Amy" "7bit" 642 ("23 Oct 2003 22:41:29 -0700" "text and text, both inline" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066974089.4265.64.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 62 2 NIL NIL NIL NIL)("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 68 2 NIL NIL NIL NIL) "mixed" ("boundary" "=-pNc4wtlOIxs8RcX7H/AK") NIL NIL NIL) 24 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "That's not a cigar. Uh... and it's not mine. --Hermes" "7bit" 1515 ("23 Oct 2003 22:39:17 -0700" "HTML and... HTML?" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066973957.4263.59.camel@localhost>") (("text" "html" ("CHARSET" "utf-8") NIL NIL "8bit" 824 22 NIL NIL NIL NIL)("text" "html" ("NAME" "htmlfile.html" "CHARSET" "UTF-8") NIL NIL "8bit" 118 6 NIL ("attachment" ("filename" "htmlfile.html")) NIL NIL) "mixed" ("boundary" "=-zxh/IezwzZITiphpcbJZ") NIL NIL NIL) 49 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "The spirit is willing, but the flesh is spongy, and bruised. --Zapp" "7bit" 6683 ("23 Oct 2003 22:23:16 -0700" "smiley!" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066972996.4264.39.camel@localhost>") ((((("text" "plain" ("charset" "us-ascii") NIL NIL "quoted-printable" 1606 42 NIL NIL NIL NIL)("text" "html" ("charset" "utf-8") NIL NIL "quoted-printable" 2173 54 NIL NIL NIL NIL) "alternative" ("boundary" "=-dHujWM/Xizz57x/JOmDF") NIL NIL NIL)("image" "png" ("name" "smiley-3.png") "<1066971953.4232.15.camel@localhost>" NIL "base64" 1122 NIL ("attachment" ("filename" "smiley-3.png")) NIL NIL) "related" ("type" "multipart/alternative" "boundary" "=-GpwozF9CQ7NdF+fd+vMG") NIL NIL NIL)("image" "gif" ("name" "dot.gif") NIL NIL "base64" 96 NIL ("attachment" ("filename" "dot.gif")) NIL NIL) "mixed" ("boundary" "=-CgV5jm9HAY9VbUlAuneA") NIL NIL NIL)("application" "pgp-signature" ("name" "signature.asc") NIL "This is a digitally signed message part" "7bit" 196 NIL NIL NIL NIL) "signed" ("micalg" "pgp-sha1" "protocol" "application/pgp-signature" "boundary" "=-vH3FQO9a8icUn1ROCoAi") NIL NIL NIL) 176 NIL ("inline" NIL) NIL NIL)("message" "rfc822" NIL NIL "Kittens give Morbo gas. --Morbo" "7bit" 3113 ("23 Oct 2003 22:32:37 -0700" "the PROPER way to do alternative/related" (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) (("Ryan Finnie" NIL "rfinnie" "domain.dom")) ((NIL NIL "bob" "domain.dom")) NIL NIL NIL "<1066973557.4265.51.camel@localhost>") (("text" "plain" ("CHARSET" "US-ASCII") NIL NIL "8bit" 863 22 NIL NIL NIL NIL)(("text" "html" ("CHARSET" "utf-8") NIL NIL "8bit" 1283 22 NIL NIL NIL NIL)("image" "gif" NIL "<1066973340.4232.46.camel@localhost>" NIL "base64" 116 NIL NIL NIL NIL) "related" ("boundary" "=-bFkxH1S3HVGcxi+o/5jG") NIL NIL NIL) "alternative" ("type" "multipart/alternative" "boundary" "=-tyGlQ9JvB5uvPWzozI+y") NIL NIL NIL) 79 NIL ("inline" NIL) NIL NIL) "mixed" ("boundary" "=-qYxqvD9rbH0PNeExagh1") NIL NIL NIL))};
-
-$bsobj = Mail::IMAPClient::BodyStructure->new($bs9);
-@exp   = qw(1 2 2.HEAD 2.1 3 3.HEAD 3.TEXT 3.1 3.2 3.2.HEAD 3.2.TEXT 3.2.1 3.2.2 4 4.HEAD 4.1 5 5.HEAD 5.TEXT 5.1 5.2 6 6.HEAD 6.TEXT 6.1 6.2 7 7.HEAD 7.TEXT 7.1 7.2 8 8.HEAD 8.TEXT 8.1 8.2 9 9.HEAD 9.TEXT 9.1 9.2 10 10.HEAD 10.TEXT 10.1 10.1.1 10.1.1.1 10.1.1.1.1 10.1.1.1.2 10.1.1.2 10.1.2 10.2 11 11.HEAD 11.TEXT 11.1 11.2 11.2.1 11.2.2);
-ok( defined $bsobj, 'parsed ninth' );
-is_deeply( [ $bsobj->parts ], \@exp, 'bs9 parts' )
-  or diag( join(" ", $bsobj->parts ) );
-
-# envelope
-# date, subject, from, sender, reply-to, to, cc, bcc, in-reply-to, message-id
-{
-    my $resp = q{* 2 FETCH (UID 42895 ENVELOPE ("Mon, 29 Nov 2010 18:28:23 +0200" "subj" (("Phil Pearl" NIL "phil+from" "dom.loc")) (("Phil Pearl" NIL "phil+sender" "dom.loc")) () ((NIL NIL "phil+to" "dom.loc")) NIL NIL NIL "<msgid>"))};
-    my $env = Mail::IMAPClient::BodyStructure::Envelope->new($resp);
-    is( $env->subject, "subj", "subject" );
-    is( $env->inreplyto, "NIL", "inreplyto" );
-    is( $env->messageid, "<msgid>", "messageid" );
-    is( $env->bcc, "NIL", "bcc" );
-    is( $env->cc, "NIL", "cc" );
-    is( $env->replyto, "NIL", "replyto" );
-
-    # personalname mailboxname hostname sourcename
-    my $to = $env->to_addresses;
-    is_deeply( $to, [ '<phil+to@dom.loc>' ], "to_addresses" );
-}
-
-# envelope: parse_string
-# date, subject, from, sender, reply-to, to, cc, bcc, in-reply-to, message-id
-{
-    my $str = q{"Mon, 29 Nov 2010 18:28:23 +0200" "subj" (("Phil Pearl" NIL "phil+from" "dom.loc")) (("Phil Pearl" NIL "phil+sender" "dom.loc")) () ((NIL NIL "phil+to" "dom.loc")) NIL NIL NIL "<msgid>"};
-    my $env = Mail::IMAPClient::BodyStructure::Envelope->parse_string($str);
-    is( $env->subject, "subj", "subject" );
-    is( $env->inreplyto, "NIL", "inreplyto" );
-    is( $env->messageid, "<msgid>", "messageid" );
-    is( $env->bcc, "NIL", "bcc" );
-    is( $env->cc, "NIL", "cc" );
-    is( $env->replyto, "NIL", "replyto" );
-
-    # personalname mailboxname hostname sourcename
-    my $to = $env->to_addresses;
-    is_deeply( $to, [ '<phil+to@dom.loc>' ], "to_addresses" );
-}
-
-# envelope: parse_string
-# date, subject, from, sender, reply-to, to, cc, bcc, in-reply-to, message-id
-{
-    my $str = q{("Mon, 29 Nov 2010 18:28:23 +0200" "subj" (("Phil Pearl" NIL "phil+from" "dom.loc")) (("Phil Pearl" NIL "phil+sender" "dom.loc")) () ((NIL NIL "phil+to" "dom.loc")) NIL NIL NIL "<msgid>")};
-    my $env = Mail::IMAPClient::BodyStructure::Envelope->parse_string($str);
-    is( $env->subject, "subj", "subject" );
-    is( $env->inreplyto, "NIL", "inreplyto" );
-    is( $env->messageid, "<msgid>", "messageid" );
-    is( $env->bcc, "NIL", "bcc" );
-    is( $env->cc, "NIL", "cc" );
-    is( $env->replyto, "NIL", "replyto" );
-
-    # personalname mailboxname hostname sourcename
-    my $to = $env->to_addresses;
-    is_deeply( $to, [ '<phil+to@dom.loc>' ], "to_addresses" );
-}
-
-# envelope: parse_string with backslashes
-# date, subject, from, sender, reply-to, to, cc, bcc, in-reply-to, message-id
-{
-    my $str = q{("Thu, 19 Jun 2014 17:12:34 -0700" "subj" (("Ken N" NIL "ken+from" "dom.loc")) (("Ken N" NIL "ken+sender" "dom.loc")) () (("backslash\\\\" NIL "ken+to" "dom.loc")) NIL NIL NIL "<msgid>")};
-    my $env = Mail::IMAPClient::BodyStructure::Envelope->parse_string($str);
-    ok( defined $env, 'parsed envelope string with backslashes' );
-  SKIP: {
-      skip "ENVELOPE could not be parsed", 7 unless defined $env;
-      is( $env->subject, "subj", "subject" );
-      is( $env->inreplyto, "NIL", "inreplyto" );
-      is( $env->messageid, "<msgid>", "messageid" );
-      is( $env->bcc, "NIL", "bcc" );
-      is( $env->cc, "NIL", "cc" );
-      is( $env->replyto, "NIL", "replyto" );
-
-      # personalname mailboxname hostname sourcename
-      my $to = $env->to_addresses;
-      is_deeply( $to, [ 'backslash\\\\ <ken+to@dom.loc>' ], "to_addresses" );
-    }
-}
diff --git a/W/Mail-IMAPClient-3.42/t/fetch_hash.t b/W/Mail-IMAPClient-3.42/t/fetch_hash.t
deleted file mode 100644
index b8d4538..0000000
--- a/W/Mail-IMAPClient-3.42/t/fetch_hash.t
+++ /dev/null
@@ -1,342 +0,0 @@
-#!/usr/bin/perl
-#
-# tests for fetch_hash()
-#
-# fetch_hash() calls fetch() internally. rather than refactor
-# fetch_hash() just for testing, we instead subclass M::IC and use the
-# overidden fetch() to feed it test data.
-
-use strict;
-use warnings;
-use Test::More tests => 28;
-
-BEGIN { use_ok('Mail::IMAPClient') or exit; }
-
-my @tests = (
-    [
-        "unquoted value",
-        [ q{* 1 FETCH (UNQUOTED foobar)}, ],
-        [ [1], qw(UNQUOTED) ],
-        { "1" => { "UNQUOTED" => q{foobar}, } },
-    ],
-    [
-        "quoted value",
-        [ q{* 1 FETCH (QUOTED "foo bar baz")}, ],
-        [ [1], qw(QUOTED) ],
-        { "1" => { "QUOTED" => q{foo bar baz}, }, },
-    ],
-     [
-        "escaped-backslash before end-quote",
-        [ q{* 1 FETCH (QUOTED "foo bar baz\\\\")}, ],
-        [ [1], qw(QUOTED) ],
-        { "1" => { "QUOTED" => q{foo bar baz\\\\}, }, },
-    ],
-    [
-        "parenthesized value",
-        [ q{* 1 FETCH (PARENS (foo bar))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo bar}, }, },
-    ],
-    [
-        "parenthesized value with quotes",
-        [ q{* 1 FETCH (PARENS (foo "bar" baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo "bar" baz}, }, },
-    ],
-    [
-        "parenthesized value with parens at start",
-        [ q{* 1 FETCH (PARENS ((foo) bar baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{(foo) bar baz}, }, },
-    ],
-    [
-        "parenthesized value with parens in middle",
-        [ q{* 1 FETCH (PARENS (foo (bar) baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo (bar) baz}, }, },
-    ],
-    [
-        "parenthesized value with parens at end",
-        [ q{* 1 FETCH (PARENS (foo bar (baz)))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo bar (baz)}, }, },
-    ],
-    [
-        "parenthesized value with quoted parentheses",
-        [ q{* 1 FETCH (PARENS (foo "(bar)" baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo "(bar)" baz}, }, },
-    ],
-    [
-        "parenthesized value with quoted unclosed parentheses",
-        [ q{* 1 FETCH (PARENS (foo "(bar" baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo "(bar" baz}, }, },
-    ],
-    [
-        "parenthesized value with quoted unopened parentheses",
-        [ q{* 1 FETCH (PARENS (foo "bar)" baz))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{foo "bar)" baz}, }, },
-    ],
-    [
-        "complex parens",
-        [ q{* 1 FETCH (PARENS ((((foo) "bar") baz (quux))))}, ],
-        [ [1], qw(PARENS) ],
-        { "1" => { "PARENS" => q{(((foo) "bar") baz (quux))}, }, },
-    ],
-    [
-        "basic literal value",
-        [ q{* 1 FETCH (LITERAL}, q{foo}, q{)}, ],
-        [ [1], qw(LITERAL) ],
-        { "1" => { "LITERAL" => q{foo}, }, },
-    ],
-    [
-        "multiline literal value",
-        [ q{* 1 FETCH (LITERAL}, q{foo\r\nbar\r\nbaz\r\n}, q{)}, ],
-        [ [1], qw(LITERAL) ],
-        { "1" => { "LITERAL" => q{foo\r\nbar\r\nbaz\r\n}, }, },
-    ],
-    [
-        "multiple attributes",
-        [ q{* 1 FETCH (FOO foo BAR bar BAZ baz)}, ],
-        [ [1], qw(FOO BAR BAZ) ],
-        {
-            "1" => {
-                "FOO" => q{foo},
-                "BAR" => q{bar},
-                "BAZ" => q{baz},
-            },
-        },
-    ],
-    [
-        "dotted attribute",
-        [ q{* 1 FETCH (FOO.BAR foobar)}, ],
-        [ [1], qw(FOO.BAR) ],
-        { "1" => { "FOO.BAR" => q{foobar}, }, },
-    ],
-    [
-        "complex attribute",
-        [ q{* 1 FETCH (FOO.BAR[BAZ (QUUX)] quuz)}, ],
-        [ [1], q{FOO.BAR[BAZ (QUUX)]} ],
-        { "1" => { q{FOO.BAR[BAZ (QUUX)]} => q{quuz}, }, },
-    ],
-    [
-        "BODY.PEEK[] requests match BODY[] responses",
-        [q{* 1 FETCH (BODY[] foo)}],
-        [ [1], qw(BODY.PEEK[]) ],
-        { "1" => { "BODY[]" => q{foo}, }, },
-    ],
-    [
-        "BODY.PEEK[] requests match BODY.PEEK[] responses also",
-        [q{* 1 FETCH (BODY.PEEK[] foo)}],
-        [ [1], qw(BODY.PEEK[]) ],
-        { "1" => { "BODY.PEEK[]" => q{foo}, }, },
-    ],
-    [
-        "BODY[]<0.1024> requests match BODY[]<0> responses",
-        [ q{* 1 FETCH (BODY[]<0>}, q{foo}, ")\r\n" ],
-        [ [1], qw(BODY[]<0.1024>) ],
-        { "1" => { "BODY[]<0>" => q{foo}, }, },
-    ],
-    [
-        "BODY.PEEK[]<0.1024> requests match BODY[]<0> responses",
-        [ q{* 1 FETCH (BODY[]<0>}, q{foo}, ")\r\n" ],
-        [ [1], qw(BODY.PEEK[]<0.1024>) ],
-        { "1" => { "BODY[]<0>" => q{foo}, }, },
-    ],
-    [
-        "non-escaped BODY[HEADER.FIELDS (...)]",
-        [
-q{* 1 FETCH (FLAGS () BODY[HEADER.FIELDS (TO FROM SUBJECT DATE)]},
-            'From: Phil Pearl (Lobbes) <phil+from@perkpartners.com>
-To: phil+to@perkpartners.com
-Subject: foo "bar\" (baz\)
-Date: Sat, 22 Jan 2011 20:43:58 -0500
-
-'
-        ],
-        [ [1], ( qw(FLAGS), 'BODY[HEADER.FIELDS (TO FROM SUBJECT DATE)]' ) ],
-        {
-            '1' => {
-                'BODY[HEADER.FIELDS (TO FROM SUBJECT DATE)]' =>
-                  'From: Phil Pearl (Lobbes) <phil+from@perkpartners.com>
-To: phil+to@perkpartners.com
-Subject: foo "bar\" (baz\)
-Date: Sat, 22 Jan 2011 20:43:58 -0500
-
-',
-                'FLAGS' => '',
-            },
-        },
-    ],
-    [
-        "with quotes BODY[HEADER.FIELDS (...)]",
-        [
-q{* 1 FETCH (FLAGS () BODY[HEADER.FIELDS ("TO" "FROM" "SUBJECT" "DATE")]},
-            'From: Phil Pearl (Lobbes) <phil+from@perkpartners.com>
-To: phil+to@perkpartners.com
-Subject: foo "bar\" (baz\)
-Date: Sat, 22 Jan 2011 20:43:58 -0500
-
-'
-        ],
-        [ [1], ( qw(FLAGS), 'BODY[HEADER.FIELDS (TO FROM SUBJECT DATE)]' ) ],
-        {
-            '1' => {
-                'BODY[HEADER.FIELDS (TO FROM SUBJECT DATE)]' =>
-                  'From: Phil Pearl (Lobbes) <phil+from@perkpartners.com>
-To: phil+to@perkpartners.com
-Subject: foo "bar\" (baz\)
-Date: Sat, 22 Jan 2011 20:43:58 -0500
-
-',
-                'FLAGS' => '',
-            },
-        },
-    ],
-);
-
-my @uid_tests = (
-    [
-        "uid enabled",
-        [ q{* 1 FETCH (UID 123 UNQUOTED foobar)}, ],
-        [ [123], qw(UNQUOTED) ],
-        { "123" => { "UNQUOTED" => q{foobar}, } },
-    ],
-    [
-        "ENVELOPE with escaped-backslash before end-quote",
-        [ q{* 1 FETCH (UID 1 FLAGS (\Seen) ENVELOPE ("Fri, 28 Jan 2011 00:03:30 -0500" "Subject" (("Ken N" NIL "ken" "dom.loc")) (("Ken N" NIL "ken" "dom.loc")) (("Ken N" NIL "ken" "dom.loc")) (("Ken Backslash\\\\" NIL "ken.bl" "dom.loc")) NIL NIL NIL "<msgid>")) } ],
-        [ [1], qw(UID FLAGS ENVELOPE) ],
-        {
-            "1" => {
-                'UID'        => '1',
-                'FLAGS'      => '\\Seen',
-                'ENVELOPE' =>
-q{"Fri, 28 Jan 2011 00:03:30 -0500" "Subject" (("Ken N" NIL "ken" "dom.loc")) (("Ken N" NIL "ken" "dom.loc")) (("Ken N" NIL "ken" "dom.loc")) (("Ken Backslash\\\\" NIL "ken.bl" "dom.loc")) NIL NIL NIL "<msgid>"}
-            },
-        },
-    ],
-    [
-        "escaped ENVELOPE subject",
-        [
-q{* 1 FETCH (UID 1 X-SAVEDATE "28-Jan-2011 16:52:31 -0500" FLAGS (\Seen) ENVELOPE ("Fri, 28 Jan 2011 00:03:30 -0500"},
-            q{foo "bar\\" (baz\\)},
-q{ (("Phil Pearl" NIL "phil" "dom.loc")) (("Phil Pearl" NIL "phil" "dom.loc")) (("Phil Pearl" NIL "phil" "dom.loc")) ((NIL NIL "phil" "dom.loc")) NIL NIL NIL "<msgid>")) }
-        ],
-        [ [1], qw(UID X-SAVEDATE FLAGS ENVELOPE) ],
-        {
-            "1" => {
-                'X-SAVEDATE' => '28-Jan-2011 16:52:31 -0500',
-                'UID'        => '1',
-                'FLAGS'      => '\\Seen',
-                'ENVELOPE' =>
-q{"Fri, 28 Jan 2011 00:03:30 -0500" "foo \\"bar\\\\\\" (baz\\\\)" (("Phil Pearl" NIL "phil" "dom.loc")) (("Phil Pearl" NIL "phil" "dom.loc")) (("Phil Pearl" NIL "phil" "dom.loc")) ((NIL NIL "phil" "dom.loc")) NIL NIL NIL "<msgid>"}
-            },
-        },
-    ],
-    [
-        "real life example",
-        [
-'* 1 FETCH (UID 541 FLAGS (\\Seen) INTERNALDATE "15-Sep-2009 20:05:45 +1000" RFC822.SIZE 771 BODY[HEADER.FIELDS (TO FROM DATE SUBJECT)]',
-            'Date: Tue, 15 Sep 2009 20:05:45 +1000
-To: rob@pyro
-From: rob@pyro
-Subject: test Tue, 15 Sep 2009 20:05:45 +1000
-
-',
-            ' BODY[]',
-            'Return-Path: <rob@pyro>
-Delivered-To: rob@pyro
-Received: from pyro (pyro [127.0.0.1])
-        by pyro.home (Postfix) with ESMTP id A5C8115A066
-        for <rob@pyro>; Tue, 15 Sep 2009 20:05:45 +1000 (EST)
-Date: Tue, 15 Sep 2009 20:05:45 +1000
-To: rob@pyro
-From: rob@pyro
-Subject: test Tue, 15 Sep 2009 20:05:45 +1000
-X-Mailer: swaks v20061116.0 jetmore.org/john/code/#swaks
-Message-Id: <20090915100545.A5C8115A066@pyro.home>
-Lines: 1
-
-This is a test mailing
-',
-            ')
-',
-        ],
-        [
-            [1],
-            q{BODY.PEEK[HEADER.FIELDS (To From Date Subject)]},
-            qw(FLAGS INTERNALDATE RFC822.SIZE BODY[])
-        ],
-        {
-            "541" => {
-                'BODY[]' => 'Return-Path: <rob@pyro>
-Delivered-To: rob@pyro
-Received: from pyro (pyro [127.0.0.1])
-        by pyro.home (Postfix) with ESMTP id A5C8115A066
-        for <rob@pyro>; Tue, 15 Sep 2009 20:05:45 +1000 (EST)
-Date: Tue, 15 Sep 2009 20:05:45 +1000
-To: rob@pyro
-From: rob@pyro
-Subject: test Tue, 15 Sep 2009 20:05:45 +1000
-X-Mailer: swaks v20061116.0 jetmore.org/john/code/#swaks
-Message-Id: <20090915100545.A5C8115A066@pyro.home>
-Lines: 1
-
-This is a test mailing
-',
-                'INTERNALDATE' => '15-Sep-2009 20:05:45 +1000',
-                'FLAGS'        => '\\Seen',
-                'BODY[HEADER.FIELDS (TO FROM DATE SUBJECT)]' =>
-                  'Date: Tue, 15 Sep 2009 20:05:45 +1000
-To: rob@pyro
-From: rob@pyro
-Subject: test Tue, 15 Sep 2009 20:05:45 +1000
-
-',
-                'RFC822.SIZE' => '771',
-            },
-        },
-    ],
-);
-
-package Test::Mail::IMAPClient;
-
-use vars qw(@ISA);
-@ISA = qw(Mail::IMAPClient);
-
-sub new {
-    my ( $class, %args ) = @_;
-    my %me = %args;
-    return bless \%me, $class;
-}
-
-sub fetch {
-    my ( $self, @args ) = @_;
-    return $self->{_next_fetch_response} || [];
-}
-
-sub Escaped_results {
-    my ( $self, @args ) = @_;
-    return $self->{_next_fetch_response} || [];
-}
-
-package main;
-
-sub run_tests {
-    my ( $imap, $tests ) = @_;
-
-    for my $test (@$tests) {
-        my ( $comment, $fetch, $request, $expect ) = @$test;
-        $imap->{_next_fetch_response} = $fetch;
-        my $r = $imap->fetch_hash(@$request);
-        is_deeply( $r, $expect, $comment );
-    }
-}
-
-my $imap = Test::Mail::IMAPClient->new( Uid => 0 );
-run_tests( $imap, \@tests );
-
-$imap->Uid(1);
-run_tests( $imap, \@uid_tests );
diff --git a/W/Mail-IMAPClient-3.42/t/lib/MyTest.pm b/W/Mail-IMAPClient-3.42/t/lib/MyTest.pm
deleted file mode 100644
index b2baff0..0000000
--- a/W/Mail-IMAPClient-3.42/t/lib/MyTest.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-package MyTest;
-
-use strict;
-use warnings;
-
-my $infile = "test.txt";
-
-sub new {
-    my ($class) = @_;
-    my %self;
-
-    open( my $fh, "<", $infile )
-      or die("test parameters not provided in $infile\n");
-
-    my %argmap = ( passed => "Password", authmech => "Authmechanism" );
-    while ( my $l = <$fh> ) {
-        chomp $l;
-        next if $l =~ /^\s*#/;
-        my ( $p, $v ) = split( /=/, $l, 2 );
-        s/^\s+//, s/\s+$// for $p, $v;
-        $p = $argmap{$p} if $argmap{$p};
-        $self{ ucfirst($p) } = $v if defined $v;
-    }
-    close($fh);
-
-    my @missing;
-    foreach my $p (qw/Server User Password/) {
-        push( @missing, $p ) unless defined $self{$p};
-    }
-
-    die("missing value for: @missing") if (@missing);
-    return \%self;
-}
-
-1;
diff --git a/W/Mail-IMAPClient-3.42/t/messageset.t b/W/Mail-IMAPClient-3.42/t/messageset.t
deleted file mode 100644
index 9d3520e..0000000
--- a/W/Mail-IMAPClient-3.42/t/messageset.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More tests => 7;
-
-BEGIN { use_ok('Mail::IMAPClient::MessageSet') or exit; }
-
-my $one   = q/1:4,3:6,10:15,20:25,2:8/;
-my $range = Mail::IMAPClient::MessageSet->new($one);
-is( $range, "1:8,10:15,20:25", 'range simplify' );
-
-is(
-    join( ",", $range->unfold ),
-    "1,2,3,4,5,6,7,8,10,11,12,13,14,15,20,21,22,23,24,25",
-    'range unfold'
-);
-
-$range .= "30,31,32,31:34,40:44";
-is( $range, "1:8,10:15,20:25,30:34,40:44", 'overload concat' );
-
-is(
-    join( ",", $range->unfold ),
-    "1,2,3,4,5,6,7,8,10,11,12,13,14,15,20,21,22,23,24,25,"
-      . "30,31,32,33,34,40,41,42,43,44",
-    'unfold extended'
-);
-
-$range -= "1:2";
-is( $range, "3:8,10:15,20:25,30:34,40:44", 'overload subtract' );
-
-is(
-    join( ",", $range->unfold ),
-    "3,4,5,6,7,8,10,11,12,13,14,15,20,21,22,23,24,25,"
-      . "30,31,32,33,34,40,41,42,43,44",
-    'subtract unfold'
-);
diff --git a/W/Mail-IMAPClient-3.42/t/pod.t b/W/Mail-IMAPClient-3.42/t/pod.t
deleted file mode 100644
index a79ef22..0000000
--- a/W/Mail-IMAPClient-3.42/t/pod.t
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More;
-
-eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-
-all_pod_files_ok();
diff --git a/W/Mail-IMAPClient-3.42/t/quota.t b/W/Mail-IMAPClient-3.42/t/quota.t
deleted file mode 100644
index 59ff73d..0000000
--- a/W/Mail-IMAPClient-3.42/t/quota.t
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More;
-
-use lib "t/lib";
-use MyTest;
-my $params;
-
-BEGIN {
-    eval { $params = MyTest->new; };
-    $@
-      ? plan skip_all => $@
-      : plan tests    => 7;
-}
-
-BEGIN { use_ok('Mail::IMAPClient') or exit; }
-
-my %args = ( Debug => $ARGV[0], %$params );
-my $imap = Mail::IMAPClient->new(%args);
-ok( !$@, "successful login" ) or diag( '$@:' . $@ );
-
-# RFC 2087: QUOTA
-SKIP: {
-    my ( $res, $root );
-    skip "QUOTA not supported", 5 unless $imap->has_capability("QUOTA");
-
-    foreach my $root ( "", "INBOX", "/blah" ) {
-        $res = $imap->getquotaroot($root);
-        ok( $res, "getquotaroot($root)" ) or diag( '$@:' . $@ );
-
-        #my $tag = $imap->Count;
-        #foreach my $r ( @{$res||[]} ) {
-        #    next if $r =~ /^$tag\s+/;
-        #    chomp($r);
-        #    warn("gqr r=$r\n");
-        #}
-    }
-
-    ok( $imap->getquota("User quota"), "getquota" ) or diag( '$@:' . $@ );
-
-    my $dne = "ThisDoesNotExist";
-    ok( !$imap->getquota($dne), "getquota($dne)" ) or diag( '$@:' . $@ );
-}
diff --git a/W/Mail-IMAPClient-3.42/t/simple.t b/W/Mail-IMAPClient-3.42/t/simple.t
deleted file mode 100644
index 335e121..0000000
--- a/W/Mail-IMAPClient-3.42/t/simple.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More tests => 13;
-
-BEGIN { use_ok('Mail::IMAPClient') or exit; }
-
-{
-    my $obj = Mail::IMAPClient->new();
-
-    my %t = ( 0 => "01-Jan-1970" );
-    foreach my $k ( sort keys %t ) {
-        my $v = $t{$k};
-        my $s = $v . ' 00:00:00 +0000';
-
-        is( Mail::IMAPClient::Rfc2060_date($k), $v, "Rfc2060_date($k)=$v" );
-        is( Mail::IMAPClient::Rfc3501_date($k), $v, "Rfc3501_date($k)=$v" );
-        is( Mail::IMAPClient::Rfc3501_datetime($k),
-            $s, "Rfc3501_datetime($k)=$s" );
-        is( Mail::IMAPClient::Rfc2060_datetime($k),
-            $s, "Rfc3501_datetime($k)=$s" );
-        is( $obj->Rfc3501_date($k),     $v, "->Rfc3501_date($k)=$v" );
-        is( $obj->Rfc2060_date($k),     $v, "->Rfc2060_date($k)=$v" );
-        is( $obj->Rfc3501_datetime($k), $s, "->Rfc3501_datetime($k)=$s" );
-        is( $obj->Rfc2060_datetime($k), $s, "->Rfc2060_datetime($k)=$s" );
-
-        foreach my $z (qw(+0000 -0500)) {
-            my $vz = $v . ' 00:00:00 ' . $z;
-            is( Mail::IMAPClient::Rfc2060_datetime( $k, $z ),
-                $vz, "Rfc2060_datetime($k)=$vz" );
-            is( Mail::IMAPClient::Rfc3501_datetime( $k, $z ),
-                $vz, "Rfc3501_datetime($k)=$vz" );
-        }
-    }
-}
diff --git a/W/Mail-IMAPClient-3.42/t/thread.t b/W/Mail-IMAPClient-3.42/t/thread.t
deleted file mode 100644
index 2e569b8..0000000
--- a/W/Mail-IMAPClient-3.42/t/thread.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More tests => 7;
-
-BEGIN { use_ok('Mail::IMAPClient::Thread') or exit; }
-
-my $t1 = <<'e1';
-* THREAD (166)(167)(168)(169)(172)(170)(171)(173)(174 175 176 178 181 180)(179)(177 183 182 188 184 185 186 187 189)(190)(191)(192)(193)(194 195)(196 197 198)(199)(200 202)(201)(203)(204)(205)(206 207)(208) 
-e1
-
-my $t2 = <<'e2';
-* THREAD (166)(167)(168)(169)(172)((170)(179))(171)(173)((174)(175)(176)(178)(181)(180))((177)(183)(182)(188 (184)(189))(185 186)(187))(190)(191)(192)(193)((194)(195 196))(197 198)(199)(200 202)(201)(203)(204)(205 206 207)(208)
-e2
-
-my $parser = Mail::IMAPClient::Thread->new;
-ok( defined $parser, 'created parser' );
-
-isa_ok( $parser, 'Parse::RecDescent' );    #  !!!
-
-my $thr1 = $parser->start($t1);
-ok( defined $thr1, 'thread1 start' );
-
-cmp_ok( scalar(@$thr1), '==', 25 );
-
-my $thr2 = $parser->start($t2);
-ok( defined $thr2, 'thread2 start' );
-
-cmp_ok( scalar(@$thr2), '==', 23 );
diff --git a/W/Mail-IMAPClient-3.42/test_template.txt b/W/Mail-IMAPClient-3.42/test_template.txt
deleted file mode 100644
index 6c6db28..0000000
--- a/W/Mail-IMAPClient-3.42/test_template.txt
+++ /dev/null
@@ -1,5 +0,0 @@
-server=imap.server.hostname
-user=username
-passed=password
-port=143
-authmechanism=LOGIN
diff --git a/W/OSI_request.txt b/W/OSI_request.txt
deleted file mode 100644
index 61e80c7..0000000
--- a/W/OSI_request.txt
+++ /dev/null
@@ -1,29 +0,0 @@
-
-
- Rationale:Clearly state rationale for a new license
-
- There is few licenses on the free work market allowing anything
- from the author point of view. The purpose of any license is
- to write what can be done without having to contact the authors.
- There is no such permissive license in the OSI list.  
-
-CC0 WTFPL and Bugroff are too restrictive licenses
-
- CC0 https://creativecommons.org/about/cc0
- WTFPL  http://www.wtfpl.net/about/
- Bugroff http://tunes.org/legalese/bugroff.html
- 
- I 
- 
-
- Distinguish: Compare to and contrast with the most similar OSI-approved license(s)
-
- There is no similar OSI-approved license. All 
- 
- Legal review: Describe any legal review the license has been through, and provide results of any legal analysis if available
-
- None.
- 
- Proliferation category: Recommend which license proliferation category is appropriate
-
- The NOLIMIT license allows any work under it to be relicensed under any other license.
diff --git a/W/TESTING.txt b/W/TESTING.txt
deleted file mode 100644
index db28ff7..0000000
--- a/W/TESTING.txt
+++ /dev/null
@@ -1,23 +0,0 @@
-TESTING on Unix
----------------
-
-Tests will break as they are home specific.
-You need a running imap server on localhost with several accounts
-toto with a password located in the file $HOME/var/pass/secret.toto
-titi with a password located in the file $HOME/var/pass/secret.titi
-tata with a password located in the file $HOME/var/pass/secret.tata
-
-Of course, you can change the file tests.sh and run tests with:
-
-  sh -x tests.sh
-
-Specific tests can be run by using them as argument to tests.sh:
-
-  sh -x tests.sh ll_ssl_justconnect ll_bad_host ...
-
-The tests.sh script break on first failure ("set -e" directive).
-
-Since I added more tests you also need a remote imap server see the
-file tests.sh and help yourself. No time to make a universal test
-file.
-
diff --git a/W/TIME.txt b/W/TIME.txt
deleted file mode 100644
index fa03bf2..0000000
--- a/W/TIME.txt
+++ /dev/null
@@ -1,108 +0,0 @@
-    Added make git
- 90 Added XOATH FAQ item, thanks to Eduardo, email feedback, amazon gift.
-120 Fixed Scott issue, took long time (all messages list) even with --useuid --delete --nousecache --maxage 1
-240 Fixed long names in invoices. + january invoices.
-180 Release 1.476 --addheader
- 15 Added start and end dates in the final statistics.
-210 Added statistics on ks and lfo, % Operating systems, ip per year .Updated index.shtml
-210 Added --nocacheaftercopy and played with dbmail (uids generation are +=2!)
-120 Statistics statistics_VERSION_synthesis
-150 10 years old announce. index.html. 10 EUR. freshmeat announce+release 1.452
- 60 Added --search option.
-600 (1.446) new host ks. newsletter for imapsync updates. first letter to 563 members.
- 30 Patched tests_good_date() and good_date() with Dax Kelson patches.
-120 Added a good reply for buying support.
-540 (1.434) (1.433) (1.432) 
-180 Tests of mkpath very long path > 300 char. Win32 fails on them. (1.431)
-    Added special case for Inbox vs INBOX bug creation. (1.430)
-    Adapted regression tests for good_date() when no zone is given. (1.429)
- 60 Reading, replying and fixing from Benjamin Priestman feedback.
- 90 Various email help.
-300 Release 1.417. Some numbers section. INSTALL file.
- 60 Bugfix. --maxsize --minsize now work with --useuid + flag sync of already transfered messages now take care of --maxsize --minsize options.
-120 Exit on --delete --delete2. --expunge1 same as --expunge. --delete2 implies --expunge2.
-120 Handle the APPEND with {0} byte error just after fetching the message on host1.
- 40 Groupwize and authuser. Does not work.
-540 Invoices build.
- 35 Bug bug_zero_byte() tests.sh No bug found here. email.
-200 Prepared change site to ks (apache2 logrotate etc.).
- 63 "\Forwarded" flag bug in courier. DJ dj@blu...
- 30 Debug "BAD Command Argument Error. 12" on imapsync mailing-list.
-120 Building invoices.
- 60 Added imapsync on adwords for 75 euros, 1 euro per day max. Free promotional offer from Google Adwords.
-200 Added --useuid. 
-110 Started to allow copy by uid. Added --notakebody
- 60 Fixed cache, dealing with filenames containing \ characters.
-210 Fixed cache (chose only the greatest uid with dupplicate 11_21+11_201 or 11_21+101_21)
-180 Added --authmd51 and --authmd52. --delete2foldersbutnot. Release 1.398 public. Payment in EUR.
- 60 Added info about biggest messages. --debugimap* implies --debug
-130 Added delete2foldersnot option.
-420 Ended speedup with cache.
-350 Continue speedup with cache.
-360 Continue speedup with cache.
-180 Started to speedup with cache.
- 30 Reading rfc 3501
- 60 Added help to guess --sep1 and --prefix1 when needed.
- 90 Added option --delete2foldersonly
-105 1 email about subfolder and generic FAQ solution (no separator nor prefix by hand)
- 65 2 email about subfolder and --delete2folders and Exchange --authuser
-150 imapsync 1.384 cleanup. Think about cache and both sync.
- 60 imapsync 1.383 better default behaviour.
-300 paypal_reply: imap server independant
-180 paypal_reply: paypal_send
-180 paypal_reply: build reply.
-150 paypal_reply: parsing received email
-120 Started paypal_reply
-180 Fix no header => take 2k body.
- 30 Fix ps -o on Solaris.
- 60 folderrec_blank_bug. Pricing includes updates?
-120 dkimap support.
-240 NTLM support. --domain1 --domain2 options. 1.377 release
-240 New imapsync distribution policy: pay first. 
-260 New imapsync.exe 1.366 with --link libeay32_.dll --link ssleay32_.dll (better names ending_?). New index.shtml, imapsync.exe sold 15 USD.
- 90 Permit host* to change the case of headers. 1.366 release.
-120 Fix tls capability. 1.365 release.
-150 1.363 public release.
-240 Added --delete2folders option.
-150 Try to fix again win32 libeay32.dll issue. Upload 1.361 and .exe
-270 Draw imapsync logo with inkscape. Had a crash after 2 hours of drawing and saved file was also buggy...
-120 Bugfix win32. Email. Added and tested linkage with --link libeay32.dll --link ssleay32.dll
-120 Bugfix about POSIX alarm on win32. imapsync 1.359 public release.
-160 Added memory consumption for win32. imapsync 1.358
-300 Local environment. Tests. Moved subroutines below main. Changed alarm call.
- 90 Memory consumption on Win32
- 50 Better memory consumption statistics
- 35 Added memory consumption to final stats.
-240 Wrote a message_string_raw() function. Tests.
-120 Thinking about performance. Email to italian compagny.
-100 Tracking memory consumption. Wrote learn/memory_consumption. Sent bug report to bug-Mail-IMAPClient [at] rt.cpan.org. 
-180 Tracking memory consumption.
-360 Date::Manip away. good_date() rewriting. release check on lfo
-210 Better output when copying messages. Profiling memory.
- 80 Gmail efficiency. Wanted! on homepage, email on list.
-300 Large mailbox --maxage. Upload 1.344. imapsync.exe
-150 Various. Upload 1.342
- 75 Fix. capability issue after authenticate.
-240 Various
- 50 3 replies on list.
- 40 http://www.linux-france.org/prj/imapsync_list/threads.html#00582
-250 ietf imap5 discussion
- 30 Refactoring
- 80 Read RFC2683 - IMAP4 Implementation Recommendations
-140 imapsync under win32 strawberry, pp (par::packer), imapsync.exe
-300 imapsync under win32. test msw, environnement, using activestate
- 70 Profiling tests. Interresting results!
-110 FAQ review, FAQ item "messages not all transferred", imapsync stats about "noheader"
-250 Reviewed varaibles names, statistics, sub definitions from top to connect_imap() 
-120 W3C validation of web site
-120 --pidfile option. die_clean() exit_clean()
-120 reconnect counter, --debugimap1 --debugimap2
- 50 FAQ tested "From " removing solution.
-600 split maxcommandlenght, email, reconnect better.
- 25 reconnect AUTOLOADING bug?
- 80 --subscribe_all. 1.318
- 70 Risko email. 1.315 on debian.
-130
-180
-190 Added reconnect to 2.2.9
-
diff --git a/W/bugs/BUG_IMAPClient_3.xx b/W/bugs/BUG_IMAPClient_3.xx
deleted file mode 100644
index 06ff8bc..0000000
--- a/W/bugs/BUG_IMAPClient_3.xx
+++ /dev/null
@@ -1,23 +0,0 @@
-
-
-BUGS found with Mail-IMAPClient-3.05/
-
-1) --ssl* bugs. 
-
-   30 timeout.
-
-2) --expunge2 does not expunge anything.
-
-Fixed in  Mail-IMAPClient-3.10/
-
-3) Mail-IMAPClient-3.13/
-
-   30 timeout on connection.
-
-4) Mail-IMAPClient-3.14/
-
-Wrong. Lacks isUnconnected() method.
-
-5) Mail-IMAPClient-3.19 is a good one.
---expunge does not expunge anything
-
diff --git a/W/bugs/Makefile b/W/bugs/Makefile
deleted file mode 100644
index 0ef2135..0000000
--- a/W/bugs/Makefile
+++ /dev/null
@@ -1,20 +0,0 @@
-
-
-all:
-	@echo "make buid_ssl_exe"
-	@echo "make test_ssl_exe"
-
-
-check:
-	perl -I../Mail-IMAPClient-3.33/lib/ -c bug_ssl_win32_1 
-	perl -I../Mail-IMAPClient-3.33/lib/ -c bug_ssl_win32_2
-
-buid_ssl_exe: check
-	unix2dos *.bat
-	scp build_test_ssl.bat bug_ssl_win32_?* Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
-	ssh Admin@c 'C:/msys/1.0/home/Admin/imapsync/build_test_ssl.bat'
-
-test_ssl_exe: check
-	unix2dos *.bat
-	scp test_ssl.bat  Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
-	ssh Admin@c 'C:/msys/1.0/home/Admin/imapsync/test_ssl.bat'
diff --git a/W/bugs/bug_ssl_win32_1 b/W/bugs/bug_ssl_win32_1
deleted file mode 100755
index be7d4fa..0000000
--- a/W/bugs/bug_ssl_win32_1
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-use IO::Socket::SSL;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$folder = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-my $ssl  = IO::Socket::SSL->new(
-             Proto    => 'tcp',
-             PeerAddr => $host,
-             PeerPort => 993, # IMAP over SSL standard port
-);
-
-$imap->Debug(1);
-#$imap->Server($host);
-$imap->Socket($ssl);
-#$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->select($folder) or die;
-$imap->close();
diff --git a/W/bugs/bug_ssl_win32_2 b/W/bugs/bug_ssl_win32_2
deleted file mode 100755
index ad3680b..0000000
--- a/W/bugs/bug_ssl_win32_2
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: $
-
-use strict ;
-use English ;
-use Mail::IMAPClient ;
-use IO::Socket::SSL ;
-
-$ARGV[3] or die "usage: $0 host user password folder\n" ;
-
-my $host = $ARGV[0] ;
-my $user = $ARGV[1] ;
-my $password = $ARGV[2] ;
-my $folder = $ARGV[3] ;
-
-IO::Socket::SSL::set_ctx_defaults( SSL_verify_mode => 0 ) ;
-$IO::Socket::SSL::DEBUG = 3 ;
-
-printf( "Perl %vd", $PERL_VERSION ) ;
-print "\nMail::IMAPClient  $Mail::IMAPClient::VERSION \n",
-"IO::Socket $IO::Socket::VERSION\n" ,
-"IO::Socket::INET $IO::Socket::INET::VERSION \n",
-"IO::Socket::SSL  $IO::Socket::SSL::VERSION \n",
-"Net::SSLeay $Net::SSLeay::VERSION \n",
-" \n",
-;
-
-my $imap ;
-
-$imap = Mail::IMAPClient->new(
-           Server   => $host,
-           User     => $user,
-           Password => $password,
-           Ssl      => 1,
-           Uid      => 1,
-) or die( "Connect: ", $imap->LastError, "\n" ) ;
-
-$imap->Debug( 1 ) ;
-$imap->Peek( 1 ) ;
-my $folders = $imap->folders ;
-$imap->select( $folder ) or die ;
-$imap->logout(  ) ;
-
diff --git a/W/bugs/bug_ssl_win32_3_http b/W/bugs/bug_ssl_win32_3_http
deleted file mode 100755
index 9b9ef13..0000000
--- a/W/bugs/bug_ssl_win32_3_http
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-
-use strict ;
-use warnings ;
-use English ;
-use IO::Socket::SSL ;
-
-printf( "Perl %vd", $PERL_VERSION ) ;
-print 
-"\nIO::Socket $IO::Socket::VERSION\n" ,
-"IO::Socket::INET $IO::Socket::INET::VERSION \n",
-"IO::Socket::INET6 $IO::Socket::INET6::VERSION \n",
-"IO::Socket::SSL  $IO::Socket::SSL::VERSION \n",
-"Net::SSLeay $Net::SSLeay::VERSION \n",
-" \n",
-;
-
-
-my $sock = IO::Socket::SSL->new(
-    # where to connect
-    PeerHost => "www.google.com",
-    PeerPort => "https",
-
-    # certificate verification
-    SSL_verify_mode => SSL_VERIFY_NONE,
-    SSL_verifycn_schema => 'http',
-) or die "failed connect or ssl handshake: $!,$SSL_ERROR";
-
-# send and receive over SSL connection
-print $sock "GET / HTTP/1.0\r\n\r\n";
-print <$sock>;
-
diff --git a/W/bugs/build_test_ssl.bat b/W/bugs/build_test_ssl.bat
deleted file mode 100644
index 35f14bb..0000000
--- a/W/bugs/build_test_ssl.bat
+++ /dev/null
@@ -1,12 +0,0 @@
-
-REM $Id: $
-
-cd /D %~dp0
-
-REM pp -o bug_ssl_win32_1.exe bug_ssl_win32_1
-
-pp -M IO::Socket::IP -o bug_ssl_win32_2.exe bug_ssl_win32_2
-
-REM pp -o bug_ssl_win32_3_http.exe bug_ssl_win32_3_http
-
-
diff --git a/W/bugs/test_ssl.bat b/W/bugs/test_ssl.bat
deleted file mode 100644
index d33b630..0000000
--- a/W/bugs/test_ssl.bat
+++ /dev/null
@@ -1,13 +0,0 @@
-
-REM $Id: $
-
-cd /D %~dp0
-
-perl bug_ssl_win32_2 imap.gmail.com imapsync.gl@gmail.com sss INBOX
-REM perl bug_ssl_win32_3_http
-PAUSE
-bug_ssl_win32_2.exe imap.gmail.com imapsync.gl@gmail.com sss INBOX
-REM bug_ssl_win32_3_http.exe
-PAUSE
-
-
diff --git a/W/build_exe.bat b/W/build_exe.bat
deleted file mode 100755
index 162f478..0000000
--- a/W/build_exe.bat
+++ /dev/null
@@ -1,206 +0,0 @@
-
-REM $Id: build_exe.bat,v 1.56 2019/12/11 18:57:20 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO Currently running through %0 %*
-
-@ECHO Building imapsync.exe
-
-@REM the following command change current directory to the dirname of the current batch pathname
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occurred during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-
-CALL :handle_error CALL :detect_perl
-CALL :handle_error CALL :check_modules
-CALL :handle_error CALL :rename_to_old
-CALL :handle_error CALL :pp_exe
-CALL :handle_error CALL :copy_with_architecture_name
-
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@ENDLOCAL
-EXIT /B
-
-
-:pp_exe
-@SETLOCAL
-@REM In order to verify that all Strawberry dlls are statically included in the exe
-@REM get https://docs.microsoft.com/en-us/sysinternals/downloads/listdlls
-@REM You'll need a first run with Listdlls.exe -accepteula
-@REM Run test_exe_tests.bat
-@REM In parallel, run Listdlls.exe imapsync|findstr Strawberry
-@REM No line should be in the output
-
-@REM Now imapsync can check this itself if Listdlls.exe is in its dir 
-@REM .\imapsync.exe  --testsunit tests_check_binary_embed_all_dyn_libs
-
-@REM CALL pp -o imapsync.exe  --link libeay32_.dll  --link zlib1_.dll --link ssleay32_.dll .\imapsync
-@IF [%PROCESSOR_ARCHITECTURE%] == [x86] (
-        @REM 32 bits
-        @REM Do not add command after this one since it will anihilate the %ERRORLEVEL% of pp
-        ECHO Building 32 bits binary PROCESSOR_ARCHITECTURE = %PROCESSOR_ARCHITECTURE%
-        CALL pp -u -x -o imapsync.exe -M Test2::Formatter -M Test2::Formatter::TAP -M Test2::Event ^
-                                --link zlib1_.dll ^
-                                --link libcrypto-1_1_.dll ^
-                                --link libssl-1_1_.dll ^
-                                .\imapsync
-) ELSE (
-        @REM 64 bits
-        @REM Do not add command after this one since it will anihilate the %ERRORLEVEL% of pp
-        ECHO Building 64 bits binary PROCESSOR_ARCHITECTURE = %PROCESSOR_ARCHITECTURE%
-        CALL pp -u -x -o imapsync.exe -M Test2::Formatter   -M Test2::Formatter::TAP -M Test2::Event ^
-                                -M Test2::EventFacet     -M Test2::Event::Pass ^
-                                -M Test2::Event::Fail -M Test2::Event::V2 ^
-                                --link  libcrypto-1_1-x64__.dll ^
-                                --link  zlib1__.dll ^
-                                --link  libssl-1_1-x64__.dll ^
-                                .\imapsync
-)
-@ENDLOCAL
-EXIT /B
-
-@REM -M Test2::Event::Info 
-
-
-::------------------------------------------------------
-::--------------- Copy with architecture name ----------
-:copy_with_architecture_name
-@SETLOCAL
-IF [%PROCESSOR_ARCHITECTURE%] == [x86] (
-        @REM 32 bits
-        COPY /B .\imapsync.exe .\imapsync_32bit.exe
-) ELSE (
-        @REM 64 bits
-        COPY /B .\imapsync.exe .\imapsync_64bit.exe
-)
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
-::------------------------------------------------------
-::--------------- Copy with architecture name ----------
-:rename_to_old
-@SETLOCAL
-IF EXIST imapsync_old.exe DEL imapsync_old.exe
-IF EXIST imapsync.exe RENAME imapsync.exe imapsync_old.exe
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
-
-
-::------------------------------------------------------
-::--------------- Detect Perl --------------------------
-:detect_perl
-@SETLOCAL
-perl -v
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
-
-::------------------------------------------------------
-::--------------- Check  modules are here --------------
-:check_modules
-@SETLOCAL
-perl ^
-     -mApp::cpanminus ^
-     -mTest::MockObject ^
-     -mPAR::Packer ^
-     -mReadonly ^
-     -mAuthen::NTLM ^
-     -mData::Dumper ^
-     -mData::Uniqid ^
-     -mDigest::HMAC_MD5 ^
-     -mDigest::HMAC_SHA1 ^
-     -mDigest::MD5 ^
-     -mFile::Copy::Recursive  ^
-     -mFile::Spec ^
-     -mIO::Socket ^
-     -mIO::Socket::INET ^
-     -mIO::Socket::IP ^
-     -mIO::Socket::SSL ^
-     -mIO::Tee ^
-     -mMail::IMAPClient ^
-     -mRegexp::Common ^
-     -mTerm::ReadKey ^
-     -mTime::Local ^
-     -mUnicode::String ^
-     -mURI::Escape ^
-     -mJSON::WebToken ^
-     -mLWP::UserAgent ^
-     -mHTML::Entities ^
-     -mJSON ^
-     -mCrypt::OpenSSL::RSA ^
-     -mEncode::Byte ^
-     -mFile::Tail ^
-     -mEncode ^
-     -mEncode::IMAPUTF7 ^
-     -mMIME::Base64 ^
-     -e ''
-IF ERRORLEVEL 1 CALL .\install_modules.bat
-@ECHO Calling a second time to check all modules are now installed
-perl ^
-     -mApp::cpanminus ^
-     -mTest::MockObject ^
-     -mPAR::Packer ^
-     -mReadonly ^
-     -mAuthen::NTLM ^
-     -mData::Dumper ^
-     -mData::Uniqid ^
-     -mDigest::HMAC_MD5 ^
-     -mDigest::HMAC_SHA1 ^
-     -mDigest::MD5 ^
-     -mFile::Copy::Recursive  ^
-     -mFile::Spec ^
-     -mIO::Socket ^
-     -mIO::Socket::INET ^
-     -mIO::Socket::IP ^
-     -mIO::Socket::SSL ^
-     -mIO::Tee ^
-     -mMail::IMAPClient ^
-     -mRegexp::Common ^
-     -mTerm::ReadKey ^
-     -mTime::Local ^
-     -mUnicode::String ^
-     -mURI::Escape ^
-     -mJSON::WebToken ^
-     -mLWP::UserAgent ^
-     -mHTML::Entities ^
-     -mJSON ^
-     -mCrypt::OpenSSL::RSA ^
-     -mEncode::Byte ^
-     -mFile::Tail ^
-     -mEncode ^
-     -mEncode::IMAPUTF7 ^
-     -mMIME::Base64 ^
-     -e ''
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
-
-
-
-
-::------------------------------------------------------
-::--------------- Handle error -------------------------
-:handle_error
-@SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure calling: %* >> LOG_bat\%~nx0.txt
-)
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
diff --git a/W/build_mac.sh b/W/build_mac.sh
deleted file mode 100755
index 74027c6..0000000
--- a/W/build_mac.sh
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/bin/sh
-
-# $Id: build_mac.sh,v 1.15 2019/11/25 12:46:48 gilles Exp gilles $
-
-# exit on any failure
-set -e
-
-eval `perl -I $HOME/perl5/lib/perl5 -Mlocal::lib`
-export MANPATH=$HOME/perl5/man:$MANPATH
-
-HOSTNAME=`hostname -s`
-ARCH=`uname -m`
-KERNEL=`uname -s`
-echo "$HOSTNAME $ARCH $KERNEL"
-
-BIN_NAME=imapsync_bin_Darwin
-
-# exit if known needed modules are missing
-sh prerequisites_imapsync
-
-VERSION=`./imapsync --version`
-
-# Update important Perl modules
-OPENSSL_PREFIX=/sw cpanm Mail::IMAPClient IO::Socket::SSL Net::SSLeay PAR::Packer
-
-pp -u -x -o $BIN_NAME  \
-        -M Mail::IMAPClient -M IO::Socket -M IO::Socket::SSL \
-        -M Digest::MD5 -M Digest::HMAC_MD5 -M Term::ReadKey \
-        -M Authen::NTLM \
-        -M Crypt::OpenSSL::RSA -M JSON -M JSON::WebToken -M LWP -M HTML::Entities \
-        -M Sys::MemInfo -M Net::SSLeay \
-        -M Encode -M MIME::Base64 -M Encode::IMAPUTF7 \
-        --link /sw/lib/libssl.1.0.0.dylib \
-        --link /sw/lib/libcrypto.1.0.0.dylib \
-        imapsync
-
-./imapsync_bin_Darwin 
-./imapsync_bin_Darwin --tests
-./imapsync_bin_Darwin --testslive
-# Do not work anymore on polarhome at 2019_11_24
-#./imapsync_bin_Darwin --testslive6
-
diff --git a/W/check_win64err b/W/check_win64err
deleted file mode 100755
index 737ad47..0000000
--- a/W/check_win64err
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/bin/sh
-
-# $Id: check_win64err,v 1.1 2019/02/18 12:01:21 gilles Exp gilles $
-
-test -n "$1" || { echo usage: "$0 script.bat" && exit 1 ; }
-
-test -d W/LOG_bat || mkdir W/LOG_bat
-ERROR_FILENAME=$1.txt
-rm -f "W/LOG_bat/$ERROR_FILENAME"
-if scp pc_HP_DV7_p24:'Desktop/imapsync_build/LOG_bat/'"$ERROR_FILENAME" W/LOG_bat/ > /dev/null 2>&1 ; then
-        #echo -n "W/LOG_bat/$ERROR_FILENAME : "
-        #cat "W/LOG_bat/$ERROR_FILENAME"
-        sed -e "s#^#W/LOG_bat/$ERROR_FILENAME : #" "W/LOG_bat/$ERROR_FILENAME"
-        exit 1
-else 
-        echo NO errror
-fi
diff --git a/W/check_winerr b/W/check_winerr
deleted file mode 100755
index a3fcbe5..0000000
--- a/W/check_winerr
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/bin/sh
-
-# $Id: check_winerr,v 1.4 2016/06/30 11:10:37 gilles Exp gilles $
-
-test -n "$1" || { echo usage: "$0 script.bat" && exit 1 ; }
-
-test -d W/LOG_bat || mkdir W/LOG_bat
-ERROR_FILENAME=$1.txt
-rm -f "W/LOG_bat/$ERROR_FILENAME"
-if scp Admin@c:'C:/msys/1.0/home/Admin/imapsync/LOG_bat/'"$ERROR_FILENAME" W/LOG_bat/ > /dev/null 2>&1 ; then
-        #echo -n "W/LOG_bat/$ERROR_FILENAME : "
-        #cat "W/LOG_bat/$ERROR_FILENAME"
-        sed -e "s#^#W/LOG_bat/$ERROR_FILENAME : #" "W/LOG_bat/$ERROR_FILENAME"
-        exit 1
-else 
-        echo NO errror
-fi
diff --git a/W/checklink.txt b/W/checklink.txt
deleted file mode 100644
index e69de29..0000000
diff --git a/W/checklinkext.txt b/W/checklinkext.txt
deleted file mode 100644
index b0a104c..0000000
--- a/W/checklinkext.txt
+++ /dev/null
@@ -1,52 +0,0 @@
-
-----------------------------------------
-
-Processing	https://lamiral.info/~gilles/imapsync/S/external.shtml
-
-
-List of broken links and other issues:
-http://www.washington.edu/imap/
--> https://www.washington.edu/imap/	
-  Line: 43
-  Code: 301 -> 404 Not Found
- To do: The link is broken. Double-check that you have not made any typo,
-	or mistake in copy-pasting. If the link points to a resource that
-	no longer exists, you may want to remove or fix the link.
-
-https://wiki2.dovecot.org/Tools/Doveadm/Sync	
-  Line: 38
-  Code: 403 FORBIDDEN
- To do: The link is forbidden! This needs fixing. Usual suspects: a missing
-	index.html or Overview.html, or a missing ACL.
-
-----------------------------------------
-
-Processing	https://lamiral.info/~gilles/imapsync/S/imapservers.shtml
-
-
-List of broken links and other issues:
-http://www.washington.edu/imap/
--> https://www.washington.edu/imap/	
-  Line: 183
-  Code: 301 -> 404 Not Found
- To do: The link is broken. Double-check that you have not made any typo,
-	or mistake in copy-pasting. If the link points to a resource that
-	no longer exists, you may want to remove or fix the link.
-
-https://www.fusemail.com/
--> https://global.vipre.com/	
-  Line: 123
-  Code: 301 -> 403 Forbidden
- To do: The link is forbidden! This needs fixing. Usual suspects: a missing
-	index.html or Overview.html, or a missing ACL.
-
-http://de.tobit.com/	
-  Line: 96
-  Code: 308 Permanent Redirect
-
-
-http://outlook.com/
--> https://outlook.live.com/owa/	
-  Line: 157
-  Code: 301 -> 440 Login Timeout
-
diff --git a/W/docker_pull_count b/W/docker_pull_count
deleted file mode 100755
index b3680c4..0000000
--- a/W/docker_pull_count
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-docker_pull_count()
-{
-    curl -s https://hub.docker.com/v2/repositories/gilleslamiral/imapsync/ | jq '.pull_count'
-}
-
-docker_pull_count >> /home/gilles/public_html/imapsync/W/docker_pull_count.txt
-
-
diff --git a/W/docker_pull_count.txt b/W/docker_pull_count.txt
deleted file mode 100644
index c684127..0000000
--- a/W/docker_pull_count.txt
+++ /dev/null
@@ -1,33 +0,0 @@
-32753
-32780
-32804
-32828
-32858
-32880
-32938
-33246
-33348
-33570
-33796
-33818
-33836
-33855
-33880
-33901
-33926
-33956
-33977
-33997
-34016
-34046
-34273
-34301
-34324
-34344
-34367
-34448
-34500
-34531
-34561
-34590
-34769
diff --git a/W/freshmeat/freshmeat b/W/freshmeat/freshmeat
deleted file mode 100644
index abffb76..0000000
--- a/W/freshmeat/freshmeat
+++ /dev/null
@@ -1,10 +0,0 @@
-http://freshmeat.net/projects/imapsync/
-
-imapsync is a tool for facilitating incremental recursive IMAP
-transfers from one mailbox to another. It is useful for mailbox
-migration, and reduces the amount of data transferred by only copying
-messages that are not present on both servers. Read, unread, and
-deleted flags are preserved, and the process can be stopped and
-resumed. The original messages can optionally be deleted after a
-successful transfer.
-
diff --git a/W/freshmeat/freshmeat_submition.inp b/W/freshmeat/freshmeat_submition.inp
deleted file mode 100644
index ce85cb0..0000000
--- a/W/freshmeat/freshmeat_submition.inp
+++ /dev/null
@@ -1,15 +0,0 @@
-
-# 
-#RELEASE_FOCUS="Initial freshmeat announcement"
-#RELEASE_FOCUS="Documentation"
-#RELEASE_FOCUS="Code cleanup"
-RELEASE_FOCUS="Minor feature enhancements"
-#RELEASE_FOCUS="Major feature enhancements"
-#RELEASE_FOCUS="Minor bugfixes"
-#RELEASE_FOCUS="Major bugfixes"
-#RELEASE_FOCUS="Minor security fixes"
-#RELEASE_FOCUS="Major security fixes"
-#TEXT_BODY="Syntax cleanup"
-#TEXT_BODY="Updated documentation"
-
-TEXT_BODY="Several improvements to reach better usability. Authentication cram-md5 is not used by default (too few server support it). Issues from servers changing or adding header are avoided. Now imapsync has a way to handle efficiently no header in messages. The imap server dkimap is  supported (dkimap isn't a uid capability server). Added NTLM authentication with domain. Added --minsize option to transfer messages bigger than a given size. Added memory consumption measurement to compute how much concurrent imapsync can run in parallel on a system. Imapsync is no longer gratis from the home page."
diff --git a/W/freshmeat/freshmeat_submition.json b/W/freshmeat/freshmeat_submition.json
deleted file mode 100644
index abc407c..0000000
--- a/W/freshmeat/freshmeat_submition.json
+++ /dev/null
@@ -1,9 +0,0 @@
-{
-  "release": {
-    "tag_list": "stable, Minor feature enhancements",
-    "version": "1.383",
-    "hidden_from_frontpage": false,
-    "changelog": "Since last public release 1.350 several improvements have been made to reach a better usability. By default, authentication cram-md5 is not used (too few server support it) so --noauthmd5 option becomes useless. To avoid  issues from servers changing or adding header option  --useheader Message-Id is on by default too. Now imapsync has a way to handle efficiently no headers in messages (take first 2KB body). The imap server dkimap is now supported (it was not because dkimap is not a uid capability server). NTLM authentication with domain is supported. Added --minsize option to transfer messages bigger than a given size. Added memory consumption measurement to compute how much concurrent imapsync can run in parallel on a system. Imapsync is no longer gratis from the home page. Imapsync license has not changed, it is still a WTFPL software. Thanks again to the freshmeat guy who corrects my bad and poorly English!"
-  }
-}
-
diff --git a/W/freshmeat/freshmeat_submition.out b/W/freshmeat/freshmeat_submition.out
deleted file mode 100644
index 391d5de..0000000
--- a/W/freshmeat/freshmeat_submition.out
+++ /dev/null
@@ -1,12 +0,0 @@
-Project: imapsync
-Version: 1.293
-Release-Focus: Minor bugfixes
-Hide: N
-Home-Page-URL: http://www.linux-france.org/prj/imapsync/
-Gzipped-Tar-URL: http://www.linux-france.org/prj/imapsync/dist/
-
-Bug fixes.
-
-Many thanks to the freshmeat folk that correct my bad and poorly English !
-
-
diff --git a/W/gts/gts_graphs b/W/gts/gts_graphs
deleted file mode 100755
index 9120636..0000000
--- a/W/gts/gts_graphs
+++ /dev/null
@@ -1,72 +0,0 @@
-#!/bin/sh
-
-
-printf_this_one()
-{
-        #echo "[$1]"
-        printf "%s %s %0${1}s \n" $prj $date $1
-}
-
-printf_this_one_div10()
-{
-        num=$1
-        printf "%s %s %0$((num/10))s \n" $prj $date $1
-}
-
-
-echo graph_clones_uniq
-graph_clones_uniq()
-{
-        cat csv/imapsync_github_stats_clone.csv \
-        | tr '\r\n' ',\n' \
-        | while IFS=, read -r prj date all uniq
-        do 
-                #echo -n "[$prj $date $all $uniq]"
-                #printf_this_one $all
-                printf_this_one $uniq
-        done
-}
-
-echo graph_clones_all
-graph_clones_all()
-{
-        cat csv/imapsync_github_stats_clone.csv \
-        | tr '\r\n' ',\n' \
-        | while IFS=, read -r prj date all uniq
-        do 
-                #echo -n "[$prj $date $all $uniq]"
-                printf_this_one $all
-                #printf_this_one $uniq
-        done
-}
-
-
-
-echo graph_visitors_uniq
-graph_visitors_uniq()
-{
-        cat csv/imapsync_github_stats_traffic.csv \
-        | tr '\r\n' ',\n' \
-        | while IFS=, read -r prj date all uniq
-        do 
-                #echo -n "[$prj $date $all $uniq]"
-                #printf_this_one_div10 $all
-                printf_this_one_div10 $uniq
-        done
-}
-
-echo graph_visitors_views
-graph_visitors_views()
-{
-        cat csv/imapsync_github_stats_traffic.csv \
-        | tr '\r\n' ',\n' \
-        | while IFS=, read -r prj date all uniq
-        do 
-                #echo -n "[$prj $date $all $uniq]"
-                printf_this_one_div10 $all
-                #printf_this_one_div10 $uniq
-        done
-}
-
-
-
diff --git a/W/gts/imapsync_github_stats b/W/gts/imapsync_github_stats
deleted file mode 100755
index 71456fc..0000000
--- a/W/gts/imapsync_github_stats
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/bin/sh
-
-# $Id: imapsync_github_stats,v 1.3 2018/08/28 12:28:53 gilles Exp gilles $
-
-get_csv() {
-
-    ( 
-    cd csv || return
-    { sleep 1; cat /g/var/pass/secret.gilles_github; } | gts gilleslamiral imapsync save_csv  -o imapsync 
-    sh ../merge-csv .
-    )
-}
-
-PATH=$PATH:/g/bin
-cd /g/public_html/imapsync/W/gts/
-get_csv
-rsync -av . /g/public_html/imapsync_github/gts/
-
-
-
diff --git a/W/gts/merge-csv b/W/gts/merge-csv
deleted file mode 100755
index 77af512..0000000
--- a/W/gts/merge-csv
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/bin/sh
-# Usage:
-# $ bash merge-csv.sh [directory_with_csvs]
-
-# $Id: merge-csv,v 1.4 2018/08/28 12:29:05 gilles Exp gilles $
-
-# Merge all non-header lines into merged.csv
-merge_pattern() {
-    pattern=${1:-rrrrrrrrrr}
-    > ${pattern}_merged.csv;
-    for fname in `ls -r *${pattern}-stats.csv`
-    do 
-        test -f $fname || continue
-        echo "tail -n 2 $fname | head -1"
-        # last one is not accurate, the day is not finished.
-        tail -n 2 $fname | head -1 >> ${pattern}_merged.csv;
-    done
-    
-    test -f ${pattern}_merged.csv || return
-    # Get the unique rows by column 1, 2
-    awk -F"," '!seen[$1, $2]++' ${pattern}_merged.csv > ${pattern}_merged2.csv
-
-    # Sort the final rows in alpha order - first by the first col., then by second col.
-    sort -k1,1 -k2,2 ${pattern}_merged2.csv > ${pattern}_merged3.csv
-
-    # Rename and cleanup output
-    # Commented out 'rm' commands just in case
-    #rm ${pattern}_merged.csv
-    #rm ${pattern}_merged2.csv
-    mv ${pattern}_merged3.csv imapsync_github_stats_${pattern}.csv
-    
-}
-
-
-merge_pattern clone
-merge_pattern referrer
-merge_pattern traffic
diff --git a/W/imapsync.1 b/W/imapsync.1
deleted file mode 100644
index 383fa01..0000000
--- a/W/imapsync.1
+++ /dev/null
@@ -1,949 +0,0 @@
-.\" Automatically generated by Pod::Man 2.28 (Pod::Simple 3.29)
-.\"
-.\" Standard preamble:
-.\" ========================================================================
-.de Sp \" Vertical space (when we can't use .PP)
-.if t .sp .5v
-.if n .sp
-..
-.de Vb \" Begin verbatim text
-.ft CW
-.nf
-.ne \\$1
-..
-.de Ve \" End verbatim text
-.ft R
-.fi
-..
-.\" Set up some character translations and predefined strings.  \*(-- will
-.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
-.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
-.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
-.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
-.\" nothing in troff, for use with C<>.
-.tr \(*W-
-.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
-.ie n \{\
-.    ds -- \(*W-
-.    ds PI pi
-.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
-.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
-.    ds L" ""
-.    ds R" ""
-.    ds C` ""
-.    ds C' ""
-'br\}
-.el\{\
-.    ds -- \|\(em\|
-.    ds PI \(*p
-.    ds L" ``
-.    ds R" ''
-.    ds C`
-.    ds C'
-'br\}
-.\"
-.\" Escape single quotes in literal strings from groff's Unicode transform.
-.ie \n(.g .ds Aq \(aq
-.el       .ds Aq '
-.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
-.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
-.\" entries marked with X<> in POD.  Of course, you'll have to process the
-.\" output yourself in some meaningful fashion.
-.\"
-.\" Avoid warning from groff about undefined register 'F'.
-.de IX
-..
-.nr rF 0
-.if \n(.g .if rF .nr rF 1
-.if (\n(rF:(\n(.g==0)) \{
-.    if \nF \{
-.        de IX
-.        tm Index:\\$1\t\\n%\t"\\$2"
-..
-.        if !\nF==2 \{
-.            nr % 0
-.            nr F 2
-.        \}
-.    \}
-.\}
-.rr rF
-.\"
-.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
-.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
-.    \" fudge factors for nroff and troff
-.if n \{\
-.    ds #H 0
-.    ds #V .8m
-.    ds #F .3m
-.    ds #[ \f1
-.    ds #] \fP
-.\}
-.if t \{\
-.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
-.    ds #V .6m
-.    ds #F 0
-.    ds #[ \&
-.    ds #] \&
-.\}
-.    \" simple accents for nroff and troff
-.if n \{\
-.    ds ' \&
-.    ds ` \&
-.    ds ^ \&
-.    ds , \&
-.    ds ~ ~
-.    ds /
-.\}
-.if t \{\
-.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
-.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
-.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
-.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
-.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
-.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
-.\}
-.    \" troff and (daisy-wheel) nroff accents
-.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
-.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
-.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
-.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
-.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
-.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
-.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
-.ds ae a\h'-(\w'a'u*4/10)'e
-.ds Ae A\h'-(\w'A'u*4/10)'E
-.    \" corrections for vroff
-.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
-.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
-.    \" for low resolution devices (crt and lpr)
-.if \n(.H>23 .if \n(.V>19 \
-\{\
-.    ds : e
-.    ds 8 ss
-.    ds o a
-.    ds d- d\h'-1'\(ga
-.    ds D- D\h'-1'\(hy
-.    ds th \o'bp'
-.    ds Th \o'LP'
-.    ds ae ae
-.    ds Ae AE
-.\}
-.rm #[ #] #H #V #F C
-.\" ========================================================================
-.\"
-.IX Title "IMAPSYNC 1"
-.TH IMAPSYNC 1 "2019-12-23" "perl v5.22.1" "User Contributed Perl Documentation"
-.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
-.\" way too many mistakes in technical documents.
-.if n .ad l
-.nh
-.SH "NAME"
-imapsync \- Email IMAP tool for syncing, copying, migrating
-and archiving email mailboxes between two imap servers, one way,
-and without duplicates.
-.SH "VERSION"
-.IX Header "VERSION"
-This documentation refers to Imapsync \f(CW$Revision:\fR 1.977 $
-.SH "USAGE"
-.IX Header "USAGE"
-.Vb 5
-\& To synchronize the source imap account
-\&   "test1" on server "test1.lamiral.info" with password "secret1"
-\& to the destination imap account
-\&   "test2" on server "test2.lamiral.info" with password "secret2"
-\& do:
-\&
-\&  imapsync \e
-\&   \-\-host1 test1.lamiral.info \-\-user1 test1 \-\-password1 secret1 \e
-\&   \-\-host2 test2.lamiral.info \-\-user2 test2 \-\-password2 secret2
-.Ve
-.SH "DESCRIPTION"
-.IX Header "DESCRIPTION"
-We sometimes need to transfer mailboxes from one imap server to
-one another.
-.PP
-Imapsync command is a tool allowing incremental and
-recursive imap transfers from one mailbox to another.
-If you don't understand the previous sentence, it's normal,
-it's pedantic computer oriented jargon.
-.PP
-All folders are transferred, recursively, meaning
-the whole folder hierarchy is taken, all messages in them,
-and all messages flags (\eSeen \eAnswered \eFlagged etc.)
-are synced too.
-.PP
-Imapsync reduces the amount of data transferred by not transferring
-a given message if it already resides on the destination side.
-Messages that are on the destination side but not on the
-source side stay as they are (see the \-\-delete2
-option to have a strict sync).
-.PP
-How imapsync knows a message is already on both sides?
-Same specific headers and the transfer is done only once.
-By default, the identification headers are
-\&\*(L"Message-Id:\*(R" and \*(L"Received:\*(R" lines
-but this choice can be changed with the \-\-useheader option.
-.PP
-All flags are preserved, unread messages will stay unread,
-read ones will stay read, deleted will stay deleted.
-.PP
-You can abort the transfer at any time and restart it later,
-imapsync works well with bad connections and interruptions,
-by design. On a terminal hit Ctr-c twice within two seconds
-in order to abort the program. Hit Ctr-c just once makes
-imapsync reconnect to both imap servers.
-.PP
-A classical scenario is synchronizing a mailbox B from another mailbox A
-where you just want to keep a strict copy of A in B. Strict meaning
-all messages in A will be in B but no more.
-.PP
-For this, option \-\-delete2 has to be used, it deletes messages in host2
-folder B that are not in host1 folder A. If you also need to destroy
-host2 folders that are not in host1 then use \-\-delete2folders. See also
-\&\-\-delete2foldersonly and \-\-delete2foldersbutnot to set up exceptions
-on folders to destroy. \s-1INBOX\s0 will never be destroy, it's a mandatory
-folder in \s-1IMAP.\s0
-.PP
-A different scenario is to delete the messages from the source mailbox
-after a successful transfer, it can be a good feature when migrating
-mailboxes since messages will be only on one side. The source account
-will only have messages that are not on the destination yet, ie,
-messages that arrived after a sync or that failed to be copied.
-.PP
-In that case, use the \-\-delete1 option. Option \-\-delete1 implies also
-option \-\-expunge1 so all messages marked deleted on host1 will be really
-deleted. In \s-1IMAP\s0 protocol deleting a message does not really delete it,
-it marks it with the flag \eDeleted, allowing an undelete. Expunging
-a folder removes, definitively, all the messages marked as \eDeleted
-in this folder.
-.PP
-You can also decide to remove empty folders once all of their messages
-have been transferred. Add \-\-delete1emptyfolders to obtain this
-behavior.
-.PP
-Imapsync is not adequate for maintaining two active imap accounts
-in synchronization when the user plays independently on both sides.
-Use offlineimap (written by John Goerzen) or mbsync (written by
-Michael R. Elkins) for a 2 ways synchronization.
-.SH "OPTIONS"
-.IX Header "OPTIONS"
-.Vb 1
-\& usage: imapsync [options]
-.Ve
-.PP
-The standard options are the six values forming the credentials.
-Three values on each side are needed in order to log in into the \s-1IMAP \s0
-servers. These six values are a host, a username, and a password, two times.
-.PP
-Conventions used in the following descriptions of the options:
-.PP
-.Vb 4
-\& str means string
-\& int means integer
-\& reg means regular expression
-\& cmd means command
-\&
-\& \-\-dry               : Makes imapsync doing nothing for real, just print what
-\&                       would be done without \-\-dry.
-.Ve
-.SS "OPTIONS/credentials"
-.IX Subsection "OPTIONS/credentials"
-.Vb 6
-\& \-\-host1        str  : Source or "from" imap server.
-\& \-\-port1        int  : Port to connect on host1.
-\&                       Optional since default ports are the
-\&                       well known ports imap/143 or imaps/993.
-\& \-\-user1        str  : User to login on host1.
-\& \-\-password1    str  : Password for the user1.
-\&
-\& \-\-host2        str  : "destination" imap server.
-\& \-\-port2        int  : Port to connect on host2. Optional
-\& \-\-user2        str  : User to login on host2.
-\& \-\-password2    str  : Password for the user2.
-\&
-\& \-\-showpasswords     : Shows passwords on output instead of "MASKED".
-\&                       Useful to restart a complete run by just reading
-\&                       the command line used in the log,
-\&                       or to debug passwords.
-\&                       It\*(Aqs not a secure practice at all.
-\&
-\& \-\-passfile1    str  : Password file for the user1. It must contain the
-\&                       password on the first line. This option avoids showing
-\&                       the password on the command line like \-\-password1 does.
-\& \-\-passfile2    str  : Password file for the user2.
-.Ve
-.PP
-You can also pass the passwords in the environment variables
-\&\s-1IMAPSYNC_PASSWORD1\s0 and \s-1IMAPSYNC_PASSWORD2\s0
-.SS "OPTIONS/encryption"
-.IX Subsection "OPTIONS/encryption"
-.Vb 2
-\& \-\-nossl1            : Do not use a SSL connection on host1.
-\& \-\-ssl1              : Use a SSL connection on host1. On by default if possible.
-\&
-\& \-\-nossl2            : Do not use a SSL connection on host2.
-\& \-\-ssl2              : Use a SSL connection on host2. On by default if possible.
-\&
-\& \-\-notls1            : Do not use a TLS connection on host1.
-\& \-\-tls1              : Use a TLS connection on host1. On by default if possible.
-\&
-\& \-\-notls2            : Do not use a TLS connection on host2.
-\& \-\-tls2              : Use a TLS connection on host2. On by default if possible.
-\&
-\& \-\-debugssl     int  : SSL debug mode from 0 to 4.
-\&
-\& \-\-sslargs1     str  : Pass any ssl parameter for host1 ssl or tls connection. Example:
-\&                       \-\-sslargs1 SSL_verify_mode=1 \-\-sslargs1 SSL_version=SSLv3
-\&                       See all possibilities in the new() method of IO::Socket::SSL
-\&                       http://search.cpan.org/perldoc?IO::Socket::SSL#Description_Of_Methods
-\& \-\-sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
-\&                       See \-\-sslargs1
-\&
-\& \-\-timeout1     int  : Connection timeout in seconds for host1.
-\&                       Default is 120 and 0 means no timeout at all.
-\& \-\-timeout2     int  : Connection timeout in seconds for host2.
-\&                       Default is 120 and 0 means no timeout at all.
-.Ve
-.SS "OPTIONS/authentication"
-.IX Subsection "OPTIONS/authentication"
-.Vb 3
-\& \-\-authmech1    str  : Auth mechanism to use with host1:
-\&                       PLAIN, LOGIN, CRAM\-MD5 etc. Use UPPERCASE.
-\& \-\-authmech2    str  : Auth mechanism to use with host2. See \-\-authmech1
-\&
-\& \-\-authuser1    str  : User to auth with on host1 (admin user).
-\&                       Avoid using \-\-authmech1 SOMETHING with \-\-authuser1.
-\& \-\-authuser2    str  : User to auth with on host2 (admin user).
-\& \-\-proxyauth1        : Use proxyauth on host1. Requires \-\-authuser1.
-\&                       Required by Sun/iPlanet/Netscape IMAP servers to
-\&                       be able to use an administrative user.
-\& \-\-proxyauth2        : Use proxyauth on host2. Requires \-\-authuser2.
-\&
-\& \-\-authmd51          : Use MD5 authentication for host1.
-\& \-\-authmd52          : Use MD5 authentication for host2.
-\& \-\-domain1      str  : Domain on host1 (NTLM authentication).
-\& \-\-domain2      str  : Domain on host2 (NTLM authentication).
-.Ve
-.SS "OPTIONS/folders"
-.IX Subsection "OPTIONS/folders"
-.Vb 4
-\& \-\-folder       str  : Sync this folder.
-\& \-\-folder       str  : and this one, etc.
-\& \-\-folderrec    str  : Sync this folder recursively.
-\& \-\-folderrec    str  : and this one, etc.
-\&
-\& \-\-folderfirst  str  : Sync this folder first. Ex. \-\-folderfirst "INBOX"
-\& \-\-folderfirst  str  : then this one, etc.
-\& \-\-folderlast   str  : Sync this folder last. \-\-folderlast "[Gmail]/All Mail"
-\& \-\-folderlast   str  : then this one, etc.
-\&
-\& \-\-nomixfolders      : Do not merge folders when host1 is case\-sensitive
-\&                       while host2 is not (like Exchange). Only the first
-\&                       similar folder is synced (example: with folders
-\&                       "Sent", "SENT" and "sent"
-\&                       on host1 only "Sent" will be synced to host2).
-\&
-\& \-\-skipemptyfolders  : Empty host1 folders are not created on host2.
-\&
-\& \-\-include      reg  : Sync folders matching this regular expression
-\& \-\-include      reg  : or this one, etc.
-\&                       If both \-\-include \-\-exclude options are used, then
-\&                       include is done before.
-\& \-\-exclude      reg  : Skips folders matching this regular expression
-\&                       Several folders to avoid:
-\&                        \-\-exclude \*(Aqfold1|fold2|f3\*(Aq skips fold1, fold2 and f3.
-\& \-\-exclude      reg  : or this one, etc.
-\&
-\& \-\-automap           : guesses folders mapping, for folders well known as
-\&                       "Sent", "Junk", "Drafts", "All", "Archive", "Flagged".
-\&
-\& \-\-f1f2    str1=str2 : Force folder str1 to be synced to str2,
-\&                       \-\-f1f2 overrides \-\-automap and \-\-regextrans2.
-\&
-\& \-\-subfolder2   str  : Syncs the whole host1 folders hierarchy under the
-\&                       host2 folder named str.
-\&                       It does it internally by adding three
-\&                       \-\-regextrans2 options before all others.
-\&                       Add \-\-debug to see what\*(Aqs really going on.
-\&
-\& \-\-subfolder1   str  : Syncs the host1 folders hierarchy which is under folder
-\&                       str to the root hierarchy of host2.
-\&                       It\*(Aqs the couterpart of a sync done by \-\-subfolder2
-\&                       when doing it in the reverse order.
-\&                       Backup/Restore scenario:
-\&                       Use \-\-subfolder2 str for a backup to the folder str
-\&                       on host2. Then use \-\-subfolder1 str for restoring
-\&                       from the folder str, after inverting
-\&                       host1/host2 user1/user2 values.
-\&
-\&
-\& \-\-subscribed        : Transfers subscribed folders.
-\& \-\-subscribe         : Subscribe to the folders transferred on the
-\&                       host2 that are subscribed on host1. On by default.
-\& \-\-subscribeall      : Subscribe to the folders transferred on the
-\&                       host2 even if they are not subscribed on host1.
-\&
-\& \-\-prefix1      str  : Remove prefix str to all destination folders,
-\&                       usually "INBOX." or "INBOX/" or an empty string "".
-\&                       imapsync guesses the prefix if host1 imap server
-\&                       does not have NAMESPACE capability. So this option
-\&                       should not be used most of the time.
-\& \-\-prefix2      str  : Add prefix to all host2 folders. See \-\-prefix1
-\&
-\& \-\-sep1         str  : Host1 separator. This option should not be used
-\&                       most of the time.
-\&                       Imapsync gets the separator from the server itself,
-\&                       by using NAMESPACE, or it tries to guess it
-\&                       from the folders listing (it counts
-\&                       characters / . \e\e \e in folder names and choose the
-\&                       more frequent, or finally / if nothing is found.
-\& \-\-sep2         str  : Host2 separator. See \-\-sep1
-\&
-\& \-\-regextrans2  reg  : Apply the whole regex to each destination folders.
-\& \-\-regextrans2  reg  : and this one. etc.
-\&                       When you play with the \-\-regextrans2 option, first
-\&                       add also the safe options \-\-dry \-\-justfolders
-\&                       Then, when happy, remove \-\-dry for a run, then 
-\&                       remove \-\-justfolders for the next ones.
-\&                       Have in mind that \-\-regextrans2 is applied after
-\&                       the automatic prefix and separator inversion.
-\&                       For examples see:
-\&                       https://imapsync.lamiral.info/FAQ.d/FAQ.Folders_Mapping.txt
-.Ve
-.SS "OPTIONS/folders sizes"
-.IX Subsection "OPTIONS/folders sizes"
-.Vb 5
-\& \-\-nofoldersizes     : Do not calculate the size of each folder at the
-\&                       beginning of the sync. Default is to calculate them.
-\& \-\-nofoldersizesatend: Do not calculate the size of each folder at the
-\&                       end of the sync. Default is to calculate them.
-\& \-\-justfoldersizes   : Exit after having printed the initial folder sizes.
-.Ve
-.SS "OPTIONS/tmp"
-.IX Subsection "OPTIONS/tmp"
-.Vb 10
-\& \-\-tmpdir       str  : Where to store temporary files and subdirectories.
-\&                       Will be created if it doesn\*(Aqt exist.
-\&                       Default is system specific, Unix is /tmp but
-\&                       /tmp is often too small and deleted at reboot.
-\&                       \-\-tmpdir /var/tmp should be better.
-\& \-\-pidfile      str  : The file where imapsync pid is written,
-\&                       it can be dirname/filename.
-\&                       Default name is imapsync.pid in tmpdir.
-\& \-\-pidfilelocking    : Abort if pidfile already exists. Useful to avoid
-\&                       concurrent transfers on the same mailbox.
-.Ve
-.SS "OPTIONS/log"
-.IX Subsection "OPTIONS/log"
-.Vb 3
-\& \-\-nolog             : Turn off logging on file
-\& \-\-logfile      str  : Change the default log filename (can be dirname/filename).
-\& \-\-logdir       str  : Change the default log directory. Default is LOG_imapsync/
-.Ve
-.PP
-The default logfile name is for example
-.PP
-.Vb 1
-\& LOG_imapsync/2019_12_22_23_57_59_532_user1_user2.txt
-.Ve
-.PP
-where:
-.PP
-.Vb 3
-\& 2019_12_22_23_57_59_532 is nearly the date of the start
-\& YYYY_MM_DD_HH_MM_SS_mmm 
-\& year_month_day_hour_minute_seconde_millisecond
-.Ve
-.PP
-and user1 user2 are the \-\-user1 \-\-user2 values.
-.SS "OPTIONS/messages"
-.IX Subsection "OPTIONS/messages"
-.Vb 4
-\& \-\-skipmess     reg  : Skips messages matching the regex.
-\&                       Example: \*(Aqm/[\ex80\-ff]/\*(Aq # to avoid 8bits messages.
-\&                       \-\-skipmess is applied before \-\-regexmess
-\& \-\-skipmess     reg  : or this one, etc.
-\&
-\& \-\-skipcrossduplicates : Avoid copying messages that are already copied
-\&                         in another folder,  good from Gmail to X when
-\&                         X is not also Gmail.
-\&                         Activated with \-\-gmail1 unless \-\-noskipcrossduplicates
-\&
-\& \-\-debugcrossduplicates : Prints which messages (UIDs) are skipped with
-\&                          \-\-skipcrossduplicates (and in what other folders
-\&                          they are).
-\&
-\& \-\-pipemess     cmd  : Apply this cmd command to each message content
-\&                       before the copy.
-\& \-\-pipemess     cmd  : and this one, etc.
-\&                       With several \-\-pipemess, the output of each cmd
-\&                       command (STDOUT) is given to the input (STDIN)
-\&                       of the next command.
-\&                       For example,
-\&                       \-\-pipemess cmd1 \-\-pipemess cmd2 \-\-pipemess cmd3
-\&                       is like a Unix pipe:
-\&                       "cat message | cmd1 | cmd2 | cmd3"
-\&
-\& \-\-disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
-\&
-\& \-\-regexmess    reg  : Apply the whole regex to each message before transfer.
-\&                       Example: \*(Aqs/\e000/ /g\*(Aq # to replace null by space.
-\& \-\-regexmess    reg  : and this one, etc.
-.Ve
-.SS "OPTIONS/labels"
-.IX Subsection "OPTIONS/labels"
-Gmail present labels as folders in imap. Imapsync can accelerate the sync 
-by syncing X\-GM-LABELS, it will avoid to transfer messages when they are
-already on host2.
-.PP
-.Vb 3
-\& \-\-synclabels        : Syncs also Gmail labels when a message is copied to host2.
-\&                       Activated by default with \-\-gmail1 \-\-gmail2 unless
-\&                       \-\-nosynclabels is added.
-\&                       
-\& \-\-resynclabels      : Resyncs Gmail labels when a message is already on host2.
-\&                       Activated by default with \-\-gmail1 \-\-gmail2 unless
-\&                       \-\-noresynclabels is added.
-.Ve
-.PP
-For Gmail syncs, see also:
-https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
-.SS "OPTIONS/flags"
-.IX Subsection "OPTIONS/flags"
-.Vb 2
-\& If you encounter flag problems see also:
-\& https://imapsync.lamiral.info/FAQ.d/FAQ.Flags.txt
-\&
-\& \-\-regexflag    reg  : Apply the whole regex to each flags list.
-\&                       Example: \*(Aqs/"Junk"//g\*(Aq # to remove "Junk" flag.
-\& \-\-regexflag    reg  : then this one, etc.
-\&
-\& \-\-resyncflags       : Resync flags for already transferred messages.
-\&                       On by default.
-\& \-\-noresyncflags     : Do not resync flags for already transferred messages.
-\&                       May be useful when a user has already started to play
-\&                       with its host2 account.
-.Ve
-.SS "OPTIONS/deletions"
-.IX Subsection "OPTIONS/deletions"
-.Vb 9
-\& \-\-delete1           : Deletes messages on host1 server after a successful
-\&                       transfer. Option \-\-delete1 has the following behavior:
-\&                       it marks messages as deleted with the IMAP flag
-\&                       \eDeleted, then messages are really deleted with an
-\&                       EXPUNGE IMAP command. If expunging after each message
-\&                       slows down too much the sync then use
-\&                       \-\-noexpungeaftereach to speed up, expunging will then be
-\&                       done only twice per folder, one at the beginning and
-\&                       one at the end of a folder sync.
-\&
-\& \-\-expunge1          : Expunge messages on host1 just before syncing a folder.
-\&                       Expunge is done per folder.
-\&                       Expunge aims is to really delete messages marked deleted.
-\&                       An expunge is also done after each message copied
-\&                       if option \-\-delete1 is set (unless \-\-noexpungeaftereach).
-\&
-\& \-\-noexpunge1        : Do not expunge messages on host1.
-\&
-\& \-\-delete1emptyfolders : Deletes empty folders on host1, INBOX excepted.
-\&                         Useful with \-\-delete1 since what remains on host1
-\&                         is only what failed to be synced.
-\&
-\& \-\-delete2           : Delete messages in host2 that are not in
-\&                       host1 server. Useful for backup or pre\-sync.
-\&                       \-\-delete2 implies \-\-uidexpunge2
-\&
-\& \-\-delete2duplicates : Delete messages in host2 that are duplicates.
-\&                       Works only without \-\-useuid since duplicates are
-\&                       detected with an header part of each message.
-\&
-\& \-\-delete2folders    : Delete folders in host2 that are not in host1 server.
-\&                       For safety, first try it like this (it is safe):
-\&                       \-\-delete2folders \-\-dry \-\-justfolders \-\-nofoldersizes
-\&                       and see what folders will be deleted.
-\&
-\& \-\-delete2foldersonly   reg : Delete only folders matching the regex reg.
-\&                              Example: \-\-delete2foldersonly "/^Junk$|^INBOX.Junk$/"
-\&                              This option activates \-\-delete2folders
-\&
-\& \-\-delete2foldersbutnot reg : Do not delete folders matching the regex rex.
-\&                              Example: \-\-delete2foldersbutnot "/Tasks$|Contacts$|Foo$/"
-\&                              This option activates \-\-delete2folders
-\&
-\& \-\-noexpunge2        : Do not expunge messages on host2.
-\& \-\-nouidexpunge2     : Do not uidexpunge messages on the host2 account
-\&                       that are not on the host1 account.
-.Ve
-.SS "OPTIONS/dates"
-.IX Subsection "OPTIONS/dates"
-.Vb 2
-\& If you encounter problems with dates, see also:
-\& https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
-\&
-\& \-\-syncinternaldates : Sets the internal dates on host2 same as host1.
-\&                       Turned on by default. Internal date is the date
-\&                       a message arrived on a host (Unix mtime).
-\& \-\-idatefromheader   : Sets the internal dates on host2 same as the
-\&                       ones in "Date:" headers.
-.Ve
-.SS "OPTIONS/message selection"
-.IX Subsection "OPTIONS/message selection"
-.Vb 12
-\& \-\-maxsize      int  : Skip messages larger  (or equal) than  int  bytes
-\& \-\-minsize      int  : Skip messages smaller (or equal) than  int  bytes
-\& \-\-maxage       int  : Skip messages older than  int days.
-\&                       final stats (skipped) don\*(Aqt count older messages
-\&                       see also \-\-minage
-\& \-\-minage       int  : Skip messages newer than  int  days.
-\&                       final stats (skipped) don\*(Aqt count newer messages
-\&                       You can do (+ zone are the messages selected):
-\&                       past|\-\-\-\-maxage+++++++++++++++>now
-\&                       past|+++++++++++++++minage\-\-\-\->now
-\&                       past|\-\-\-\-maxage+++++minage\-\-\-\->now (intersection)
-\&                       past|++++minage\-\-\-\-\-maxage++++>now (union)
-\&
-\& \-\-search       str  : Selects only messages returned by this IMAP SEARCH
-\&                       command. Applied on both sides.
-\&                       For a complete set of what can be search see
-\&                       https://imapsync.lamiral.info/FAQ.d/FAQ.Messages_Selection.txt
-\&
-\& \-\-search1      str  : Same as \-\-search but for selecting host1 messages only.
-\& \-\-search2      str  : Same as \-\-search but for selecting host2 messages only.
-\&                       So \-\-search CRIT equals \-\-search1 CRIT \-\-search2 CRIT
-\&
-\& \-\-maxlinelength int : skip messages with a line length longer than  int  bytes.
-\&                       RFC 2822 says it must be no more than 1000 bytes but
-\&                       real life servers and email clients do more.
-\&
-\&
-\& \-\-useheader    str  : Use this header to compare messages on both sides.
-\&                       Ex: Message\-ID or Subject or Date.
-\& \-\-useheader    str    and this one, etc.
-\&
-\& \-\-usecache          : Use cache to speed up next syncs. Not set by default.
-\& \-\-nousecache        : Do not use cache. Caveat: \-\-useuid \-\-nousecache creates
-\&                       duplicates on multiple runs.
-\& \-\-useuid            : Use UIDs instead of headers as a criterion to recognize
-\&                       messages. Option \-\-usecache is then implied unless
-\&                       \-\-nousecache is used.
-.Ve
-.SS "OPTIONS/miscellaneous"
-.IX Subsection "OPTIONS/miscellaneous"
-.Vb 5
-\& \-\-syncacls          : Synchronizes acls (Access Control Lists).
-\&                       Acls in IMAP are not standardized, be careful
-\&                       since one acl code on one side may signify something
-\&                       else on the other one.
-\& \-\-nosyncacls        : Does not synchronize acls. This is the default.
-\&
-\& \-\-addheader         : When a message has no headers to be identified,
-\&                       \-\-addheader adds a "Message\-Id" header,
-\&                       like "Message\-Id: 12345@imapsync", where 12345
-\&                       is the imap UID of the message on the host1 folder.
-.Ve
-.SS "OPTIONS/debugging"
-.IX Subsection "OPTIONS/debugging"
-.Vb 8
-\& \-\-debug             : Debug mode.
-\& \-\-debugfolders      : Debug mode for the folders part only.
-\& \-\-debugcontent      : Debug content of the messages transferred. Huge output.
-\& \-\-debugflags        : Debug mode for flags.
-\& \-\-debugimap1        : IMAP debug mode for host1. Very verbose.
-\& \-\-debugimap2        : IMAP debug mode for host2. Very verbose.
-\& \-\-debugimap         : IMAP debug mode for host1 and host2. Twice very verbose.
-\& \-\-debugmemory       : Debug mode showing memory consumption after each copy.
-\&
-\& \-\-errorsmax     int : Exit when int number of errors is reached. Default is 50.
-\&
-\& \-\-tests             : Run local non\-regression tests. Exit code 0 means all ok.
-\& \-\-testslive         : Run a live test with test1.lamiral.info imap server.
-\&                       Useful to check the basics. Needs internet connection.
-\& \-\-testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
-\&                       Useful to check the ipv6 connectivity. Needs internet.
-.Ve
-.SS "OPTIONS/specific"
-.IX Subsection "OPTIONS/specific"
-.Vb 2
-\&  \-\-gmail1           : sets \-\-host1 to Gmail and other options. See FAQ.Gmail.txt
-\&  \-\-gmail2           : sets \-\-host2 to Gmail and other options. See FAQ.Gmail.txt
-\&
-\&  \-\-office1          : sets \-\-host1 to Office365 and other options. See FAQ.Exchange.txt
-\&  \-\-office2          : sets \-\-host2 to Office365 and other options. See FAQ.Exchange.txt
-\&
-\&  \-\-exchange1        : sets options for Exchange. See FAQ.Exchange.txt
-\&  \-\-exchange2        : sets options for Exchange. See FAQ.Exchange.txt
-\&
-\&  \-\-domino1          : sets options for Domino. See FAQ.Domino.txt
-\&  \-\-domino2          : sets options for Domino. See FAQ.Domino.txt
-.Ve
-.SS "OPTIONS/behavior"
-.IX Subsection "OPTIONS/behavior"
-.Vb 1
-\& \-\-maxmessagespersecond int : limits the number of messages transferred per second.
-\&
-\& \-\-maxbytespersecond int : limits the average transfer rate per second.
-\& \-\-maxbytesafter     int : starts \-\-maxbytespersecond limitation only after
-\&                           \-\-maxbytesafter amount of data transferred.
-\&
-\& \-\-maxsleep      int : do not sleep more than int seconds.
-\&                       On by default, 2 seconds max, like \-\-maxsleep 2
-\&
-\& \-\-abort             : terminates a previous call still running.
-\&                       It uses the pidfile to know what process to abort.
-\&
-\& \-\-exitwhenover int  : Stop syncing and exits when int total bytes
-\&                       transferred is reached.
-\&
-\& \-\-version           : Print only software version.
-\& \-\-noreleasecheck    : Do not check for any new imapsync release.
-\& \-\-releasecheck      : Check for new imapsync release.
-\&                       it\*(Aqs an http request to
-\&                       http://imapsync.lamiral.info/prj/imapsync/VERSION
-\&
-\& \-\-noid              : Do not send/receive ID command to imap servers.
-\&
-\& \-\-justconnect       : Just connect to both servers and print useful
-\&                       information. Need only \-\-host1 and \-\-host2 options.
-\&                       Obsolete since "imapsync \-\-host1 imaphost" alone
-\&                       implies \-\-justconnect
-\&
-\& \-\-justlogin         : Just login to both host1 and host2 with users
-\&                       credentials, then exit.
-\&
-\& \-\-justfolders       : Do only things about folders (ignore messages).
-\&
-\& \-\-help              : print this help.
-\&
-\& Example: to synchronize imap account "test1" on "test1.lamiral.info"
-\&                     to  imap account "test2" on "test2.lamiral.info"
-\&                     with test1 password "secret1"
-\&                     and  test2 password "secret2"
-\&
-\& imapsync \e
-\&    \-\-host1 test1.lamiral.info \-\-user1 test1 \-\-password1 secret1 \e
-\&    \-\-host2 test2.lamiral.info \-\-user2 test2 \-\-password2 secret2
-.Ve
-.SH "SECURITY"
-.IX Header "SECURITY"
-You can use \-\-passfile1  instead of \-\-password1 to give the
-password since it is safer. With \-\-password1 option, on Linux,
-any user on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like \s-1IMAPSYNC_PASSWORD1\s0) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw\-\-\-\-\-\-\-) is
-the best solution.
-.PP
-Imapsync activates ssl or tls encryption by default, if possible.
-.PP
-What detailed behavior is under this \*(L"if possible\*(R"?
-.PP
-Imapsync activates ssl if the well known port imaps port (993) is open
-on the imap servers. If the imaps port is closed then it open a
-normal (clear) connection on port 143 but it looks for \s-1TLS\s0 support
-in the \s-1CAPABILITY\s0 list of the servers. If \s-1TLS\s0 is supported
-then imapsync goes to encryption.
-.PP
-If the automatic ssl and the tls detections fail then imapsync will
-not protect against sniffing activities on the network, especially 
-for passwords.
-.PP
-If you want to force ssl or tls just use \-\-ssl1 \-\-ssl2 or \-\-tls1 \-\-tls2
-.PP
-See also the document \s-1FAQ\s0.Security.txt in the \s-1FAQ\s0.d/ directory
-or at https://imapsync.lamiral.info/FAQ.d/FAQ.Security.txt
-.SH "EXIT STATUS"
-.IX Header "EXIT STATUS"
-Imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status. That's classical Unix behavior.
-Here is the list of the exit code values (an integer between 0 and 255).
-The names reflect their meaning:
-.PP
-.Vb 10
-\&     EX_OK          => 0  ; #/* successful termination */
-\&     EX_USAGE       => 64 ; #/* command line usage error */
-\&     EX_NOINPUT     => 66 ; #/* cannot open input */
-\&     EX_UNAVAILABLE => 69 ; #/* service unavailable */
-\&     EX_SOFTWARE    => 70 ; #/* internal software error */
-\&     EXIT_CATCH_ALL              =>   1 ; # Any other error
-\&     EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
-\&     EXIT_PID_FILE_ERROR         =>   8 ;
-\&     EXIT_CONNECTION_FAILURE     =>  10 ;
-\&     EXIT_TLS_FAILURE            =>  12 ;
-\&     EXIT_AUTHENTICATION_FAILURE =>  16 ;
-\&     EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
-\&     EXIT_WITH_ERRORS            => 111 ;
-\&     EXIT_WITH_ERRORS_MAX        => 112 ;
-\&     EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-.Ve
-.SH "LICENSE AND COPYRIGHT"
-.IX Header "LICENSE AND COPYRIGHT"
-Imapsync is free, open, public but not always gratis software
-cover by the \s-1NOLIMIT\s0 Public License, now called \s-1NLPL.\s0
-See the \s-1LICENSE\s0 file included in the distribution or just read this
-simple sentence as it \s-1IS\s0 the licence text:
-.PP
-.Vb 1
-\& "No limits to do anything with this work and this license."
-.Ve
-.PP
-In case it is not long enough, I repeat:
-.PP
-.Vb 1
-\& "No limits to do anything with this work and this license."
-.Ve
-.PP
-Look at https://imapsync.lamiral.info/LICENSE
-.SH "AUTHOR"
-.IX Header "AUTHOR"
-Gilles \s-1LAMIRAL\s0 <gilles@lamiral.info>
-.PP
-Good feedback is always welcome.
-Bad feedback is very often welcome.
-.PP
-Gilles \s-1LAMIRAL\s0 earns his living by writing, installing,
-configuring and teaching free, open and often gratis
-software. Imapsync used to be \*(L"always gratis\*(R" but now it is
-only \*(L"often gratis\*(R" because imapsync is sold by its author,
-a good way to maintain and support free open public
-software over decades.
-.SH "BUGS AND LIMITATIONS"
-.IX Header "BUGS AND LIMITATIONS"
-See https://imapsync.lamiral.info/FAQ.d/FAQ.Reporting_Bugs.txt
-.SH "IMAP SERVERS supported"
-.IX Header "IMAP SERVERS supported"
-See https://imapsync.lamiral.info/S/imapservers.shtml
-.SH "HUGE MIGRATION"
-.IX Header "HUGE MIGRATION"
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.txt (for example)
-containing users and passwords.
-The separator used in this example is ';'
-.PP
-The file.txt file contains:
-.PP
-user001_1;password001_1;user001_2;password001_2
-user002_1;password002_1;user002_2;password002_2
-user003_1;password003_1;user003_2;password003_2
-user004_1;password004_1;user004_2;password004_2
-user005_1;password005_1;user005_2;password005_2
-\&...
-.PP
-On Unix the shell program can be:
-.PP
-.Vb 4
-\& { while IFS=\*(Aq;\*(Aq read  u1 p1 u2 p2; do
-\&        imapsync \-\-host1 imap.side1.org \-\-user1 "$u1" \-\-password1 "$p1" \e
-\&                 \-\-host2 imap.side2.org \-\-user2 "$u2" \-\-password2 "$p2" ...
-\& done ; } < file.txt
-.Ve
-.PP
-On Windows the batch program can be:
-.PP
-.Vb 3
-\&  FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-\&  \-\-host1 imap.side1.org \-\-user1 %%G \-\-password1 %%H ^
-\&  \-\-host2 imap.side2.org \-\-user2 %%I \-\-password2 %%J ...
-.Ve
-.PP
-The ... have to be replaced by nothing or any imapsync option.
-Welcome in shell or batch programming !
-.PP
-You will find already written scripts at
-https://imapsync.lamiral.info/examples/
-.SH "INSTALL"
-.IX Header "INSTALL"
-.Vb 1
-\& Imapsync works under any Unix with Perl.
-\&
-\& Imapsync works under most Windows (2000, XP, Vista, Seven, Eight, Ten
-\& and all Server releases 2000, 2003, 2008 and R2, 2012 and R2, 2016)
-\& as a standalone binary software called imapsync.exe,
-\& usually launched from a batch file in order to avoid always typing
-\& the options. There is also a 64bit binary called imapsync_64bit.exe
-\& 
-\& Imapsync works under OS X as a standalone binary
-\& software called imapsync_bin_Darwin
-\&
-\& Purchase latest imapsync at
-\& https://imapsync.lamiral.info/
-\&
-\& You\*(Aqll receive a link to a compressed tarball called imapsync\-x.xx.tgz
-\& where x.xx is the version number. Untar the tarball where
-\& you want (on Unix):
-\&
-\&  tar xzvf  imapsync\-x.xx.tgz
-\&
-\& Go into the directory imapsync\-x.xx and read the INSTALL file.
-\& As mentioned at https://imapsync.lamiral.info/#install
-\& the INSTALL file can also be found at
-\& https://imapsync.lamiral.info/INSTALL.d/INSTALL.ANY.txt
-\& It is now split in several files for each system
-\& https://imapsync.lamiral.info/INSTALL.d/
-.Ve
-.SH "CONFIGURATION"
-.IX Header "CONFIGURATION"
-There is no specific configuration file for imapsync,
-everything is specified by the command line parameters
-and the default behavior.
-.SH "HACKING"
-.IX Header "HACKING"
-Feel free to hack imapsync as the \s-1NOLIMIT\s0 license permits it.
-.SH "SIMILAR SOFTWARE"
-.IX Header "SIMILAR SOFTWARE"
-.Vb 2
-\&  See also https://imapsync.lamiral.info/S/external.shtml
-\&  for a better up to date list.
-.Ve
-.PP
-Last updated and verified on Sun Dec 8, 2019.
-.PP
-.Vb 10
-\& imapsync: https://github.com/imapsync/imapsync (this is an imapsync copy, sometimes delayed, with \-\-noreleasecheck by default since release 1.592, 2014/05/22)
-\& imap_tools: https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/. The imap_tools code is now at https://github.com/andrewnimmo/rick\-sanders\-imap\-tools
-\& imaputils: https://github.com/mtsatsenko/imaputils (very old imap_tools fork)
-\& Doveadm\-Sync: https://wiki2.dovecot.org/Tools/Doveadm/Sync ( Dovecot sync tool )
-\& davmail: http://davmail.sourceforge.net/
-\& offlineimap: http://offlineimap.org/
-\& mbsync: http://isync.sourceforge.net/
-\& mailsync: http://mailsync.sourceforge.net/
-\& mailutil: https://www.washington.edu/imap/ part of the UW IMAP toolkit. (well, seems abandoned now)
-\& imaprepl: https://bl0rg.net/software/ http://freecode.com/projects/imap\-repl/
-\& imapcopy (Pascal): http://www.ardiehl.de/imapcopy/
-\& imapcopy (Java): https://code.google.com/archive/p/imapcopy/
-\& imapsize: http://www.broobles.com/imapsize/
-\& migrationtool: http://sourceforge.net/projects/migrationtool/
-\& imapmigrate: http://sourceforge.net/projects/cyrus\-utils/
-\& larch: https://github.com/rgrove/larch (derived from wonko_imapsync, good at Gmail)
-\& wonko_imapsync: http://wonko.com/article/554 (superseded by larch)
-\& pop2imap: http://www.linux\-france.org/prj/pop2imap/ (I wrote that too)
-\& exchange\-away: http://exchange\-away.sourceforge.net/
-\& SyncBackPro: http://www.2brightsparks.com/syncback/sbpro.html
-\& ImapSyncClient: https://github.com/ridaamirini/ImapSyncClient
-\& MailStore: https://www.mailstore.com/en/products/mailstore\-home/
-\& mnIMAPSync: https://github.com/manusa/mnIMAPSync
-\& imap\-upload: http://imap\-upload.sourceforge.net/ (A tool for uploading a local mbox file to IMAP4 server)
-\& imapbackup: https://github.com/rcarmo/imapbackup (A Python script for incremental backups of IMAP mailboxes)
-\& BitRecover email\-backup 99 USD, 299 USD https://www.bitrecover.com/email\-backup/.
-\& ImportExportTools: https://addons.thunderbird.net/en\-us/thunderbird/addon/importexporttools/ ImportExportTools for Mozilla Thunderbird by Paolo Kaosmos. ImportExportTools does not do IMAP.
-.Ve
-.SH "HISTORY"
-.IX Header "HISTORY"
-I initially wrote imapsync in July 2001 because an enterprise,
-called BaSystemes, paid me to install a new imap server
-without losing huge old mailboxes located in a far
-away remote imap server, accessible by an
-often broken low-bandwidth \s-1ISDN\s0 link.
-.PP
-I had to verify every mailbox was well transferred, all folders, all messages,
-without wasting bandwidth or creating duplicates upon resyncs. The imapsync 
-design was made with the beautiful rsync command in mind.
-.PP
-Imapsync started its life as a patch of the copy_folder.pl
-script. The script copy_folder.pl comes from the Mail\-IMAPClient\-2.1.3 perl
-module tarball source (more precisely in the examples/ directory of the
-Mail-IMAPClient tarball).
-.PP
-So many happened since then that I wonder
-if it remains any lines of the original
-copy_folder.pl in imapsync source code.
diff --git a/W/imapsync_functions_tree.txt b/W/imapsync_functions_tree.txt
deleted file mode 100644
index 42c5793..0000000
--- a/W/imapsync_functions_tree.txt
+++ /dev/null
@@ -1,6871 +0,0 @@
-$VAR1 = {
-          'teelaunch' => [
-                           'defined',
-                           'logfileprepa',
-                           'croak',
-                           'encoding',
-                           'new',
-                           'autoflush'
-                         ],
-          'setlogfile' => [
-                            'my',
-                            'filter_forbidden_characters',
-                            'slash_to_underscore',
-                            'filter_forbidden_characters',
-                            'slash_to_underscore',
-                            'logfile',
-                            'return'
-                          ],
-          'check_capability' => [
-                                  'my',
-                                  'has_capability',
-                                  'has_capability',
-                                  'myprintf',
-                                  'myprintf',
-                                  'myprint'
-                                ],
-          'tests_imapsping' => [
-                                 'note',
-                                 'tests_imapsping',
-                                 'is',
-                                 'imapsping',
-                                 'is',
-                                 'imapsping',
-                                 'is',
-                                 'imapsping',
-                                 'is',
-                                 'imapsping',
-                                 'note',
-                                 'tests_imapsping'
-                               ],
-          'testunitsession' => [
-                                 'testsunit',
-                                 'done_testing'
-                               ],
-          'tests_cache_dir_fix' => [
-                                     'note',
-                                     'tests_cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'ok',
-                                     'cache_dir_fix',
-                                     'note',
-                                     'tests_cache_dir_fix'
-                                   ],
-          'search_dyn_lib_locale_linux' => [
-                                             'myprint',
-                                             'backtick'
-                                           ],
-          'foldersizesatend' => [
-                                  'timenext',
-                                  'IsUnconnected',
-                                  'IsUnconnected',
-                                  'folders',
-                                  'foldersizes_diff_list',
-                                  'foldersizes_total',
-                                  'all_defined',
-                                  'errors_incr'
-                                ],
-          'backtick' => [
-                          'open3',
-                          'myprint',
-                          'waitpid',
-                          'myprint',
-                          'return',
-                          'return',
-                          'join'
-                        ],
-          'tests_appendlimit' => [
-                                   'note',
-                                   'tests_appendlimit',
-                                   'is',
-                                   'appendlimit',
-                                   'is',
-                                   'appendlimit',
-                                   'mock_capability',
-                                   'is',
-                                   'appendlimit',
-                                   'note',
-                                   'tests_appendlimit'
-                                 ],
-          'set_tls' => [
-                         'Starttls'
-                       ],
-          'tests_delete1emptyfolders_unit' => [
-                                                'note',
-                                                'tests_delete1emptyfolders_unit',
-                                                'is_deeply',
-                                                'delete1emptyfolders',
-                                                'is_deeply',
-                                                'note',
-                                                'tests_delete1emptyfolders_unit'
-                                              ],
-          'appendlimit_from_capability' => [
-                                             'myprint',
-                                             'myprint',
-                                             'Dump',
-                                             'capability_of',
-                                             'myprint',
-                                             'is_an_integer'
-                                           ],
-          'flags_regex' => [
-                             'myprint',
-                             'myprint',
-                             'if',
-                             'myprint',
-                             'return',
-                             'return'
-                           ],
-          'tests_guess_special' => [
-                                     'note',
-                                     'tests_guess_special',
-                                     'build_possible_special',
-                                     'ok',
-                                     'guess_special',
-                                     'ok',
-                                     'guess_special',
-                                     'ok',
-                                     'guess_special',
-                                     'ok',
-                                     'guess_special',
-                                     'note',
-                                     'tests_guess_special'
-                                   ],
-          'tests_logfile' => [
-                               'note',
-                               'tests_logfile',
-                               'skip',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'is',
-                               'logfile',
-                               'note',
-                               'tests_logfile'
-                             ],
-          'mock_capability' => [
-                                 'require_ok',
-                                 'new',
-                                 'mock'
-                               ],
-          'hashsync' => [
-                          'join',
-                          'hmac_sha1_hex',
-                          'myprint',
-                          'return'
-                        ],
-          'tests_memory_stress' => [
-                                     'note',
-                                     'tests_memory_stress',
-                                     'is',
-                                     'memory_stress',
-                                     'note',
-                                     'tests_memory_stress'
-                                   ],
-          'good_date' => [
-                           'return',
-                           's',
-                           'myprint',
-                           'myprint',
-                           'length',
-                           'length',
-                           'length',
-                           'mysprintf',
-                           'mysprintf',
-                           'mysprintf',
-                           'mysprintf',
-                           's',
-                           's',
-                           's',
-                           'myprint',
-                           'mysprintf',
-                           'mysprintf',
-                           'mysprintf',
-                           'mysprintf',
-                           'qw',
-                           's',
-                           'myprint',
-                           'myprint',
-                           'myprint',
-                           's',
-                           'myprint',
-                           's',
-                           's',
-                           's',
-                           's',
-                           'mysprintf',
-                           's',
-                           's',
-                           's',
-                           's',
-                           'mysprintf',
-                           'mysprintf',
-                           'return',
-                           'qq',
-                           'return'
-                         ],
-          'eta' => [
-                     'my',
-                     'return',
-                     'timesince',
-                     'time_remaining',
-                     'myprint',
-                     'localtime',
-                     'return',
-                     'mysprintf'
-                   ],
-          'output_reset_with' => [
-                                   'join'
-                                 ],
-          'xmasterauth' => [
-                             'User',
-                             'Password',
-                             'tag_and_run',
-                             'exit_clean',
-                             'myprint',
-                             '_imap_command',
-                             'md5_hex',
-                             'exit_clean',
-                             'tag_and_run',
-                             'exit_clean',
-                             'State',
-                             'State'
-                           ],
-          'tests_output' => [
-                              'note',
-                              'tests_output',
-                              'is',
-                              'output',
-                              'is',
-                              'output',
-                              'is',
-                              'output',
-                              'is',
-                              'output',
-                              'is',
-                              'output',
-                              'is',
-                              'output',
-                              'note',
-                              'tests_output'
-                            ],
-          'tests_list_keys_in_2_not_in_1' => [
-                                               'note',
-                                               'tests_list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'ok',
-                                               'compare_lists',
-                                               'list_keys_in_2_not_in_1',
-                                               'note',
-                                               'tests_list_keys_in_2_not_in_1'
-                                             ],
-          'tests_errors_log' => [
-                                  'note',
-                                  'tests_errors_log',
-                                  'is',
-                                  'errors_log',
-                                  'is',
-                                  'errors_log',
-                                  'is_deeply',
-                                  'errors_log',
-                                  'is_deeply',
-                                  'errors_log',
-                                  'is_deeply',
-                                  'errors_log',
-                                  'is_deeply',
-                                  'errors_log',
-                                  'note',
-                                  'tests_errors_log'
-                                ],
-          'reconnect_if_needed' => [
-                                     'Server',
-                                     'IsUnconnected',
-                                     'reconnect',
-                                     'State',
-                                     'reconnect'
-                                   ],
-          'tests_imapsync_context' => [
-                                        'note',
-                                        'tests_imapsync_context',
-                                        'like',
-                                        'imapsync_context',
-                                        'note',
-                                        'tests_imapsync_context'
-                                      ],
-          'tests_useheader_suggestion' => [
-                                            'note',
-                                            'tests_useheader_suggestion',
-                                            'is',
-                                            'useheader_suggestion',
-                                            'is',
-                                            'useheader_suggestion',
-                                            'is',
-                                            'useheader_suggestion',
-                                            'note',
-                                            'tests_useheader_suggestion'
-                                          ],
-          'cgibegin' => [
-                          'under_cgi_context',
-                          'import',
-                          'qw',
-                          'import',
-                          'qw',
-                          'new'
-                        ],
-          'tests_remove_edging_blanks' => [
-                                            'note',
-                                            'tests_remove_edging_blanks',
-                                            'is',
-                                            'remove_edging_blanks',
-                                            'is',
-                                            'remove_edging_blanks',
-                                            'is',
-                                            'remove_edging_blanks',
-                                            'note',
-                                            'tests_remove_edging_blanks'
-                                          ],
-          'tests_ucsecond' => [
-                                'note',
-                                'tests_ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'ok',
-                                'ucsecond',
-                                'note',
-                                'tests_ucsecond'
-                              ],
-          'install_signals' => [
-                                 'under_docker_context',
-                                 'output',
-                                 'output',
-                                 'defined',
-                                 'sig_install',
-                                 'defined',
-                                 'defined',
-                                 'defined',
-                                 'defined',
-                                 'sig_install',
-                                 'sig_install',
-                                 'sig_install',
-                                 'sig_install',
-                                 'sig_install_toggle_sleep'
-                               ],
-          'message_exists' => [
-                                'my',
-                                'return',
-                                'Uid',
-                                'search',
-                                'myprint',
-                                'return',
-                                'return'
-                              ],
-          'permanentflags' => [
-                                'myprint',
-                                'return',
-                                'return'
-                              ],
-          'tests_quota_extract_storage_current_in_bytes' => [
-                                                              'note',
-                                                              'tests_quota_extract_storage_current_in_bytes',
-                                                              'ok',
-                                                              'quota_extract_storage_current_in_bytes',
-                                                              'note',
-                                                              'tests_quota_extract_storage_current_in_bytes'
-                                                            ],
-          'remove_from_requested_folders' => [
-                                               'return'
-                                             ],
-          'get_separator' => [
-                               'my',
-                               'my',
-                               'myprint',
-                               'guess_separator',
-                               'myprint',
-                               'myprint',
-                               'has_capability',
-                               'separator',
-                               'myprint',
-                               'myprint',
-                               'return',
-                               'return',
-                               'myprint',
-                               'return',
-                               'myprint',
-                               'help_to_guess_sep',
-                               'return',
-                               'myprint',
-                               'return',
-                               'myprint',
-                               'help_to_guess_sep',
-                               'return'
-                             ],
-          'tests_hashsync' => [
-                                'note',
-                                'tests_hashsync',
-                                'is',
-                                'hashsync',
-                                'is',
-                                'hashsync',
-                                'is',
-                                'hashsync',
-                                'is',
-                                'hashsync',
-                                'is',
-                                'hashsync',
-                                'note',
-                                'tests_hashsync'
-                              ],
-          'labels_remove_subfolder1' => [
-                                          'quotewords',
-                                          'myprint',
-                                          'join',
-                                          'quotewords',
-                                          'join',
-                                          'uniq'
-                                        ],
-          'search_dyn_lib_locale' => [
-                                       'search_dyn_lib_locale_darwin',
-                                       'search_dyn_lib_locale_linux',
-                                       'search_dyn_lib_locale_MSWin32'
-                                     ],
-          'tests_split_around_equal' => [
-                                          'note',
-                                          'tests_split_around_equal',
-                                          'is',
-                                          'split_around_equal',
-                                          'is_deeply',
-                                          'split_around_equal',
-                                          'is_deeply',
-                                          'split_around_equal',
-                                          'is_deeply',
-                                          'split_around_equal',
-                                          'note',
-                                          'tests_split_around_equal'
-                                        ],
-          'errorsdump' => [
-                            'my',
-                            'return'
-                          ],
-          'cache_map' => [
-                           'myprint',
-                           'match_a_cache_file',
-                           'exists',
-                           'exists',
-                           'max',
-                           'return'
-                         ],
-          'build_possible_special' => [
-                                        'qw',
-                                        'myprint',
-                                        'Dump',
-                                        'return'
-                                      ],
-          'timesince' => [
-                           'return',
-                           'max',
-                           'min'
-                         ],
-          'tests_loadavg' => [
-                               'note',
-                               'tests_loadavg',
-                               'skip',
-                               'is',
-                               'loadavg',
-                               'is_deeply',
-                               'loadavg',
-                               'skip',
-                               'is',
-                               'loadavg',
-                               'ok',
-                               'loadavg',
-                               'is_deeply',
-                               'loadavg',
-                               'skip',
-                               'is_deeply',
-                               'loadavg',
-                               'note',
-                               'tests_loadavg'
-                             ],
-          'sync_flags' => [
-                            'my',
-                            'myprint',
-                            'flags',
-                            'flags',
-                            'flags_for_host2',
-                            'flagscase',
-                            'myprint',
-                            'flags',
-                            'flags',
-                            'split',
-                            'split',
-                            'compare_lists',
-                            'myprint',
-                            'flags',
-                            'flags',
-                            'store',
-                            'errors_incr'
-                          ],
-          'usage' => [
-                       'usage_footer',
-                       'mypod2usage',
-                       'backslash_caret',
-                       'join',
-                       'return'
-                     ],
-          'tests_compare_lists' => [
-                                     'note',
-                                     'tests_compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'ok',
-                                     'compare_lists',
-                                     'note',
-                                     'tests_compare_lists'
-                                   ],
-          'flags_for_host2' => [
-                                 'my',
-                                 'defined',
-                                 'flags_regex',
-                                 'flagscase',
-                                 'flags_filter',
-                                 'return'
-                               ],
-          'delete_messages_on_any' => [
-                                        'my',
-                                        'Debug',
-                                        'myprint',
-                                        'delete_message',
-                                        'Range',
-                                        'join',
-                                        'errors_incr',
-                                        'uidexpunge_or_expunge',
-                                        'Debug'
-                                      ],
-          'tests_version_from_rcs' => [
-                                        'note',
-                                        'tests_version_from_rcs',
-                                        'is',
-                                        'version_from_rcs',
-                                        'is',
-                                        'version_from_rcs',
-                                        'is',
-                                        'version_from_rcs',
-                                        'note',
-                                        'tests_version_from_rcs'
-                                      ],
-          'tests_get_options' => [
-                                   'note',
-                                   'tests_get_options',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'is',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'is',
-                                   'get_options',
-                                   'is',
-                                   'get_options',
-                                   'is',
-                                   'get_options',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'get_options',
-                                   'qw',
-                                   'is',
-                                   'myprint',
-                                   'Dump',
-                                   'note',
-                                   'tests_get_options'
-                                 ],
-          'tests_truncmess' => [
-                                 'note',
-                                 'tests_truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'is',
-                                 'truncmess',
-                                 'note',
-                                 'tests_truncmess'
-                               ],
-          'bytes_display_string' => [
-                                      'defined',
-                                      'return',
-                                      'match_number',
-                                      'return',
-                                      'abs',
-                                      'mysprintf',
-                                      'abs',
-                                      'mysprintf',
-                                      'abs',
-                                      'mysprintf',
-                                      'abs',
-                                      'mysprintf',
-                                      'mysprintf',
-                                      'myprint',
-                                      'return'
-                                    ],
-          'tests_nb_messages_in_2_not_in_1' => [
-                                                 'note',
-                                                 'tests_stats_across_folders',
-                                                 'is',
-                                                 'nb_messages_in_2_not_in_1',
-                                                 'is',
-                                                 'nb_messages_in_2_not_in_1',
-                                                 'is',
-                                                 'nb_messages_in_2_not_in_1',
-                                                 'is',
-                                                 'nb_messages_in_2_not_in_1',
-                                                 'is',
-                                                 'nb_messages_in_2_not_in_1',
-                                                 'note',
-                                                 'tests_stats_across_folders'
-                                               ],
-          'cache_dir_fix' => [
-                               'myprint',
-                               'return'
-                             ],
-          'tmpdir_has_colon_bug' => [
-                                      'filter_forbidden_characters',
-                                      'myprint',
-                                      'return',
-                                      'return'
-                                    ],
-          'tests_string_to_file' => [
-                                      'note',
-                                      'tests_string_to_file',
-                                      'is',
-                                      'string_to_file',
-                                      'is',
-                                      'string_to_file',
-                                      'is',
-                                      'string_to_file',
-                                      'ok',
-                                      'mkpath',
-                                      'is',
-                                      'string_to_file',
-                                      'is',
-                                      'string_to_file',
-                                      'skip',
-                                      'is',
-                                      'string_to_file',
-                                      'note',
-                                      'tests_string_to_file'
-                                    ],
-          'myGetOptions' => [
-                              'under_cgi_context',
-                              'GetOptionsFromArray',
-                              'defined',
-                              'param',
-                              'multi_param',
-                              'myprint',
-                              'ref',
-                              'ref',
-                              'ref',
-                              'ref',
-                              'param'
-                            ],
-          'tests_remove_not_num' => [
-                                      'note',
-                                      'tests_remove_not_num',
-                                      'ok',
-                                      'remove_not_num',
-                                      'remove_not_num',
-                                      'ok',
-                                      'remove_not_num',
-                                      'remove_not_num',
-                                      'ok',
-                                      'remove_not_num',
-                                      'remove_not_num',
-                                      'ok',
-                                      'remove_not_num',
-                                      'remove_not_num',
-                                      'note',
-                                      'tests_remove_not_num'
-                                    ],
-          'tests_tmpdir_has_colon_bug' => [
-                                            'note',
-                                            'tests_tmpdir_has_colon_bug',
-                                            'ok',
-                                            'tmpdir_has_colon_bug',
-                                            'ok',
-                                            'tmpdir_has_colon_bug',
-                                            'ok',
-                                            'tmpdir_has_colon_bug',
-                                            'ok',
-                                            'tmpdir_has_colon_bug',
-                                            'note',
-                                            'tests_tmpdir_has_colon_bug'
-                                          ],
-          'get_prefix' => [
-                            'my',
-                            'my',
-                            'myprint',
-                            'guess_prefix',
-                            'myprint',
-                            'myprint',
-                            'has_capability',
-                            'namespace',
-                            'myprint',
-                            'myprint',
-                            'return',
-                            'return',
-                            'myprint',
-                            'return',
-                            'myprint',
-                            'help_to_guess_prefix',
-                            'return'
-                          ],
-          'tests_labels_add_subfolder2' => [
-                                             'note',
-                                             'tests_labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'is',
-                                             'labels_add_subfolder2',
-                                             'note',
-                                             'tests_labels_add_subfolder2'
-                                           ],
-          'header_construct' => [
-                                  'my',
-                                  'header_line_normalize',
-                                  'myprint',
-                                  'myprint',
-                                  'return'
-                                ],
-          'getpwuid_any_os' => [
-                                 'return',
-                                 'return'
-                               ],
-          'synclabels' => [
-                            'my',
-                            'all_defined',
-                            'Debug',
-                            'labels',
-                            'Debug',
-                            'myprint',
-                            'labels_remove_subfolder1',
-                            'myprint',
-                            'labels_add_subfolder2',
-                            'myprint',
-                            'Debug',
-                            'store',
-                            'Debug'
-                          ],
-          'remove_qq' => [
-                           'return',
-                           'return'
-                         ],
-          'get_options' => [
-                             'myprint',
-                             'Dump',
-                             'under_cgi_context',
-                             'get_options_cgi',
-                             'get_options_cmd',
-                             'myprint',
-                             'Dump',
-                             'ref',
-                             'scalar'
-                           ],
-          'delete_folders_in_2_not_in_1' => [
-                                              'myprint',
-                                              'myprint',
-                                              'unsubscribe',
-                                              'delete',
-                                              'myprint',
-                                              'myprint'
-                                            ],
-          'debugsleep' => [
-                            'myprint'
-                          ],
-          'xoauth2' => [
-                         'if',
-                         'new',
-                         'myprint',
-                         'open',
-                         'exit_clean',
-                         'decode',
-                         'myprint',
-                         'myprint',
-                         'myprint',
-                         'myprint',
-                         'encode',
-                         'new',
-                         'env_proxy',
-                         'post',
-                         'encode_entities',
-                         'unless',
-                         'is_success',
-                         'exit_clean',
-                         'myprint',
-                         'decode_json',
-                         'encode_base64',
-                         'myprint',
-                         'return'
-                       ],
-          'nthline' => [
-                         'all_defined',
-                         'file_to_array'
-                       ],
-          'tests_report_failures' => [
-                                       'note',
-                                       'tests_report_failures',
-                                       'is',
-                                       'report_failures',
-                                       'is',
-                                       'report_failures',
-                                       'is',
-                                       'report_failures',
-                                       'is',
-                                       'report_failures',
-                                       'is',
-                                       'report_failures',
-                                       'note',
-                                       'tests_report_failures'
-                                     ],
-          'tests_match_a_pid_number' => [
-                                          'note',
-                                          'tests_match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'is',
-                                          'match_a_pid_number',
-                                          'note',
-                                          'tests_match_a_pid_number'
-                                        ],
-          'tcpping' => [
-                         'scalar',
-                         'new',
-                         'new',
-                         'service_check',
-                         'hires',
-                         'ping',
-                         'sprintf',
-                         'myprint',
-                         'close',
-                         'if'
-                       ],
-          'delete1emptyfolders' => [
-                                     'IsUnconnected',
-                                     'myprint',
-                                     'is_parent',
-                                     'myprint',
-                                     'examine_folder_and_count',
-                                     'scalar',
-                                     'messages',
-                                     'myprint',
-                                     'myprint',
-                                     'messages',
-                                     'myprint',
-                                     'myprint',
-                                     'close',
-                                     'delete_folder',
-                                     'remove_deleted_folders_from_wanted_list',
-                                     'myprint'
-                                   ],
-          'xoauth' => [
-                        'mysprintf',
-                        'mysprintf',
-                        'uri_escape',
-                        'myprint',
-                        'uri_escape',
-                        'md5_hex',
-                        'uniqid',
-                        'rand',
-                        'uri_escape',
-                        'length',
-                        'uri_escape',
-                        'myprint',
-                        'hmac_sha1',
-                        'uri_escape',
-                        'uri_escape',
-                        'encode_base64',
-                        'if',
-                        'length',
-                        'myprint',
-                        'encode_base64'
-                      ],
-          'authenticate_imap' => [
-                                   'my',
-                                   'check_capability',
-                                   'User',
-                                   'Domain',
-                                   'Authuser',
-                                   'Password',
-                                   'xmasterauth',
-                                   'Authmechanism',
-                                   'User',
-                                   'Authmechanism',
-                                   'Authcallback',
-                                   'Authcallback',
-                                   'Authcallback',
-                                   'login',
-                                   'IsUnconnected',
-                                   'myprint',
-                                   'IsUnconnected',
-                                   'exit_clean',
-                                   'myprint',
-                                   'myprint',
-                                   'Authmechanism',
-                                   'login',
-                                   'exit_clean',
-                                   'proxyauth',
-                                   'exit_clean'
-                                 ],
-          'delete_folder' => [
-                               'unsubscribe',
-                               'delete',
-                               'myprint',
-                               'myprint'
-                             ],
-          'lost_connection' => [
-                                 'my',
-                                 'IsUnconnected',
-                                 '_filter',
-                                 '_filter',
-                                 'myprint',
-                                 'myprint',
-                                 'return',
-                                 'return'
-                               ],
-          'touch' => [
-                       'open',
-                       'myprint',
-                       'return'
-                     ],
-          'tests_message_for_host2' => [
-                                         'note',
-                                         'tests_message_for_host2',
-                                         'is',
-                                         'message_for_host2',
-                                         'is',
-                                         'message_for_host2',
-                                         'require_ok',
-                                         'new',
-                                         'mock',
-                                         'is',
-                                         'message_for_host2',
-                                         'is',
-                                         'skip',
-                                         'skip',
-                                         'is',
-                                         'message_for_host2',
-                                         'is',
-                                         'is',
-                                         'message_for_host2',
-                                         'is',
-                                         'is',
-                                         'message_for_host2',
-                                         'is',
-                                         'note',
-                                         'tests_message_for_host2'
-                                       ],
-          'is_an_integer' => [
-                               'return'
-                             ],
-          'tests_imapsync_basename' => [
-                                         'note',
-                                         'tests_imapsync_basename',
-                                         'ok',
-                                         'imapsync_basename',
-                                         'ok',
-                                         'imapsync_basename',
-                                         'note',
-                                         'tests_imapsync_basename'
-                                       ],
-          'size_filtered_flag' => [
-                                    'return',
-                                    'return',
-                                    'return'
-                                  ],
-          'length_ref' => [
-                            'length'
-                          ],
-          'ask_for_password_new' => [
-                                      'get_stdin_masked'
-                                    ],
-          'tests_get_options_cgi_context' => [
-                                               'note',
-                                               'tests_get_options_cgi',
-                                               'is',
-                                               'get_options',
-                                               'import',
-                                               'qw',
-                                               'is',
-                                               'get_options',
-                                               'new',
-                                               'is',
-                                               'get_options',
-                                               'is',
-                                               'is',
-                                               'new',
-                                               'is',
-                                               'get_options',
-                                               'is',
-                                               'new',
-                                               'get_options',
-                                               'is_deeply',
-                                               'new',
-                                               'get_options',
-                                               'is_deeply',
-                                               'new',
-                                               'get_options',
-                                               'is_deeply',
-                                               'new',
-                                               'get_options',
-                                               'is_deeply',
-                                               'new',
-                                               'get_options',
-                                               'is_deeply',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'myprint',
-                                               'Dump',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'is',
-                                               'myprint',
-                                               'Dump',
-                                               'new',
-                                               'get_options',
-                                               'is',
-                                               'myprint',
-                                               'Dump',
-                                               'note',
-                                               'tests_get_options_cgi_context'
-                                             ],
-          'usage_complete' => [
-                                'return'
-                              ],
-          'sync_flags_after_copy' => [
-                                       'my',
-                                       'flags',
-                                       'myprint',
-                                       'sync_flags',
-                                       'myprint'
-                                     ],
-          'abort' => [
-                       'myprint',
-                       'firstline',
-                       'myprint',
-                       'killpid'
-                     ],
-          'get_options_cgi' => [
-                                 'myGetOptions',
-                                 'tests_get_options_cgi',
-                                 'tests_myGetOptions',
-                                 'output'
-                               ],
-          'output_start' => [
-                              'join'
-                            ],
-          'skipmess' => [
-                          'myprint',
-                          'myprint',
-                          'myprint',
-                          'myprint',
-                          'myprint',
-                          'return',
-                          'return',
-                          'return'
-                        ],
-          'get_password1' => [
-                               'myprint',
-                               'ask_for_password',
-                               'myprint',
-                               'exit_clean'
-                             ],
-          'tests_testsunit' => [
-                                 'note',
-                                 'tests_testunit',
-                                 'is',
-                                 'testsunit',
-                                 'is',
-                                 'testsunit',
-                                 'is',
-                                 'testsunit',
-                                 'is',
-                                 'testsunit',
-                                 'is',
-                                 'testsunit',
-                                 'note',
-                                 'tests_testunit'
-                               ],
-          'tests_memory_consumption' => [
-                                          'note',
-                                          'tests_memory_consumption',
-                                          'like',
-                                          'memory_consumption',
-                                          'like',
-                                          'memory_consumption',
-                                          'like',
-                                          'memory_consumption',
-                                          'like',
-                                          'memory_consumption_ratio',
-                                          'like',
-                                          'memory_consumption_ratio',
-                                          'like',
-                                          'memory_consumption_ratio',
-                                          'like',
-                                          'memory_consumption',
-                                          'note',
-                                          'tests_memory_consumption'
-                                        ],
-          'capability_of' => [
-                               'search_in_array'
-                             ],
-          'message_for_host2' => [
-                                   'myprint',
-                                   'debugmemory',
-                                   'message_to_file',
-                                   'myprint',
-                                   'debugmemory',
-                                   'length_ref',
-                                   'errors_incr',
-                                   'skipmess',
-                                   'myprint',
-                                   'subject',
-                                   'myprint',
-                                   'regexmess',
-                                   'myprint',
-                                   'pipemess',
-                                   'myprint',
-                                   'add_header',
-                                   'myprint',
-                                   'is_an_integer',
-                                   'truncmess',
-                                   'length_ref',
-                                   'myprint',
-                                   'myprint',
-                                   'debugmemory'
-                                 ],
-          'tests_tail' => [
-                            'note',
-                            'tests_tail',
-                            'ok',
-                            'mkpath',
-                            'ok',
-                            'ok',
-                            'is',
-                            'tail',
-                            'is',
-                            'tail',
-                            'is',
-                            'tail',
-                            'is',
-                            'tail',
-                            'is',
-                            'string_to_file',
-                            'is',
-                            'tail',
-                            'is',
-                            'string_to_file',
-                            'is',
-                            'tail',
-                            'is',
-                            'tail',
-                            'is',
-                            'string_to_file',
-                            'is',
-                            'tail',
-                            'note',
-                            'tests_tail'
-                          ],
-          'tests_labels_remove_subfolder1' => [
-                                                'note',
-                                                'tests_labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'is',
-                                                'labels_remove_subfolder1',
-                                                'note',
-                                                'tests_labels_remove_subfolder1'
-                                              ],
-          'tests_permanentflags' => [
-                                      'note',
-                                      'tests_permanentflags',
-                                      'ok',
-                                      'permanentflags',
-                                      'ok',
-                                      'permanentflags',
-                                      'ok',
-                                      'permanentflags',
-                                      'ok',
-                                      'permanentflags',
-                                      'note',
-                                      'tests_permanentflags'
-                                    ],
-          'separator_invert' => [
-                                  'my',
-                                  'return',
-                                  'all_defined',
-                                  'if',
-                                  'return'
-                                ],
-          'resolvrev_with_getaddrinfo' => [
-                                            'getaddrinfo',
-                                            'myprint',
-                                            'while',
-                                            'getnameinfo',
-                                            'NIx_NOSERV',
-                                            'myprint',
-                                            'myprint'
-                                          ],
-          'check_lib_version' => [
-                                   'myprint',
-                                   'myprint'
-                                 ],
-          'select_msgs_by_fetch' => [
-                                      'messages',
-                                      'myprint',
-                                      'fetch_hash',
-                                      'uidnext',
-                                      'fetch_hash',
-                                      'myprint',
-                                      'fetch_hash',
-                                      'return',
-                                      'myprint',
-                                      'search',
-                                      'return',
-                                      'my',
-                                      'myprint',
-                                      'epoch',
-                                      'epoch',
-                                      'msgs_from_maxmin',
-                                      'return'
-                                    ],
-          'quota' => [
-                       'Debug',
-                       'Debug',
-                       'has_capability',
-                       'Debug',
-                       'myprint',
-                       'getquotaroot',
-                       'quota',
-                       'quota',
-                       'myprint',
-                       'Debug',
-                       'quota_extract_storage_limit_in_bytes',
-                       'quota_extract_storage_current_in_bytes',
-                       'mysprintf',
-                       'myprint',
-                       'errors_incr'
-                     ],
-          'search_dyn_lib_locale_darwin' => [
-                                              'myprint',
-                                              'backtick'
-                                            ],
-          'flagscase' => [
-                           'ucsecond',
-                           'ucsecond',
-                           'return'
-                         ],
-          'firstline' => [
-                           'nthline'
-                         ],
-          'remove_pidfile_not_running' => [
-                                            'myprint',
-                                            'myprint',
-                                            'myprint',
-                                            'firstline',
-                                            'match_a_pid_number',
-                                            'myprint',
-                                            'myprint',
-                                            'myprint',
-                                            'myprint',
-                                            'myprint',
-                                            'myprint'
-                                          ],
-          'match_a_pid_number' => [
-                                    'match',
-                                    'abs',
-                                    'abs'
-                                  ],
-          'check_binary_embed_all_dyn_libs' => [
-                                                 'search_dyn_lib_locale',
-                                                 'myprint',
-                                                 'myprint',
-                                                 'myprint'
-                                               ],
-          'tests_setlogfile' => [
-                                  'note',
-                                  'tests_setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'skip',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'is',
-                                  'setlogfile',
-                                  'note',
-                                  'tests_setlogfile'
-                                ],
-          'compare_lists' => [
-                               'return',
-                               'return',
-                               'return'
-                             ],
-          'tests_sanitize' => [
-                                'note',
-                                'tests_remove_edging_blanks',
-                                'is',
-                                'sanitize',
-                                'is',
-                                'sanitize',
-                                'is',
-                                'is',
-                                'is',
-                                'note',
-                                'tests_remove_edging_blanks'
-                              ],
-          'get_options_cmd' => [
-                                 'output',
-                                 'myGetOptions',
-                                 'myprint',
-                                 'Dump',
-                                 'output',
-                                 'myprint',
-                                 'myprint'
-                               ],
-          'select_msgs_by_age' => [
-                                    'my',
-                                    'my',
-                                    'sentsince',
-                                    'sentbefore',
-                                    'msgs_from_maxmin',
-                                    'return'
-                                  ],
-          'get_password2' => [
-                               'myprint',
-                               'ask_for_password',
-                               'myprint',
-                               'exit_clean'
-                             ],
-          'tests_toggle_sleep' => [
-                                    'note',
-                                    'tests_toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'is',
-                                    'toggle_sleep',
-                                    'skip',
-                                    'kill',
-                                    'is',
-                                    'sig_install',
-                                    'is',
-                                    'kill',
-                                    'is',
-                                    'is',
-                                    'kill',
-                                    'is',
-                                    'is',
-                                    'kill',
-                                    'is',
-                                    'is',
-                                    'kill',
-                                    'is',
-                                    'note',
-                                    'tests_toggle_sleep'
-                                  ],
-          'tmpdir_fix_colon_bug' => [
-                                      'myprint',
-                                      'return',
-                                      'tmpdir_has_colon_bug',
-                                      'return',
-                                      'filter_forbidden_characters',
-                                      'myprint',
-                                      'return',
-                                      'myprint',
-                                      'return',
-                                      'myprint',
-                                      'rmove',
-                                      'myprint',
-                                      'myprint',
-                                      'myprint',
-                                      'myprint',
-                                      'myprint',
-                                      'return'
-                                    ],
-          'fix_Inbox_INBOX_mapping' => [
-                                         'my',
-                                         'return'
-                                       ],
-          'tototo' => [
-                        'myprint'
-                      ],
-          'tests_capability_of' => [
-                                     'note',
-                                     'tests_capability_of',
-                                     'is',
-                                     'capability_of',
-                                     'is',
-                                     'capability_of',
-                                     'mock_capability',
-                                     'is',
-                                     'capability_of',
-                                     'is',
-                                     'capability_of',
-                                     'note',
-                                     'tests_capability_of'
-                                   ],
-          'tests_labels' => [
-                              'note',
-                              'tests_labels',
-                              'is',
-                              'labels',
-                              'is',
-                              'labels',
-                              'require_ok',
-                              'new',
-                              'mock',
-                              'return',
-                              'mock',
-                              'mock',
-                              'Unescape',
-                              'is',
-                              'labels',
-                              'is',
-                              'labels',
-                              'note',
-                              'tests_labels'
-                            ],
-          'createhashfileifneeded' => [
-                                        'rand32',
-                                        'dirname',
-                                        'myprint',
-                                        'myprint'
-                                      ],
-          'tests_decompose_regex' => [
-                                       'note',
-                                       'tests_decompose_regex',
-                                       'ok',
-                                       'ok',
-                                       'compare_lists',
-                                       'decompose_regex',
-                                       'ok',
-                                       'compare_lists',
-                                       'decompose_regex',
-                                       'note',
-                                       'tests_decompose_regex'
-                                     ],
-          'tests_eta' => [
-                           'note',
-                           'tests_eta',
-                           'is',
-                           'eta',
-                           'is',
-                           'eta',
-                           'is',
-                           'eta',
-                           'is',
-                           'localtime',
-                           'eta',
-                           'is',
-                           'localtime',
-                           'eta',
-                           'note',
-                           'tests_eta'
-                         ],
-          'tests_all_defined' => [
-                                   'note',
-                                   'tests_all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'is',
-                                   'all_defined',
-                                   'note',
-                                   'tests_all_defined'
-                                 ],
-          'tests_sanitize_subfolder' => [
-                                          'note',
-                                          'tests_sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'is',
-                                          'sanitize_subfolder',
-                                          'note',
-                                          'tests_sanitize_subfolder'
-                                        ],
-          'jux_utf8_old' => [
-                              'imap_utf7_decode_old',
-                              'myprint',
-                              'return',
-                              'myprint',
-                              'return'
-                            ],
-          'login_imap' => [
-                            'my',
-                            'myprint',
-                            'init_imap',
-                            'connect',
-                            'exit_clean',
-                            'myprint',
-                            'peerhost',
-                            'Results',
-                            'myprint',
-                            'myprint',
-                            'join',
-                            'capability',
-                            'has_capability',
-                            'myprint',
-                            'IsAuthenticated',
-                            'myprintf',
-                            'exit_clean',
-                            'set_tls',
-                            'starttls',
-                            'exit_clean',
-                            'myprint',
-                            'authenticate_imap',
-                            'myprint',
-                            'return'
-                          ],
-          'special_from_folders_hash' => [
-                                           'can',
-                                           'errors_incr',
-                                           'return',
-                                           'folders_hash',
-                                           'myprintf',
-                                           'join',
-                                           'myprintf',
-                                           'join',
-                                           'myprint',
-                                           'return'
-                                         ],
-          'umask_str' => [
-                           'oct',
-                           'return',
-                           'sprintf'
-                         ],
-          'tests_clean_cache' => [
-                                   'note',
-                                   'tests_clean_cache',
-                                   'ok',
-                                   'rmtree',
-                                   'ok',
-                                   'mkpath',
-                                   'qw',
-                                   'ok',
-                                   'touch',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'clean_cache',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'ok',
-                                   'note',
-                                   'tests_clean_cache'
-                                 ],
-          'list_folders_in_2_not_in_1' => [
-                                            'list_keys_in_2_not_in_1',
-                                            'list_keys_in_2_not_in_1',
-                                            'return'
-                                          ],
-          'tests_diff_or_NA' => [
-                                  'note',
-                                  'tests_diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'is',
-                                  'diff_or_NA',
-                                  'note',
-                                  'tests_diff_or_NA'
-                                ],
-          'skip_macosx' => [
-                             'return',
-                             'hostname'
-                           ],
-          'tests_secondline' => [
-                                  'note',
-                                  'tests_secondline',
-                                  'is',
-                                  'secondline',
-                                  'is',
-                                  'secondline',
-                                  'ok',
-                                  'mkpath',
-                                  'is',
-                                  'string_to_file',
-                                  'is',
-                                  'secondline',
-                                  'note',
-                                  'tests_secondline'
-                                ],
-          'connect_socket' => [
-                                'my',
-                                'peerhost',
-                                'peerport',
-                                'peerhost',
-                                'peerport',
-                                'new',
-                                'Socket',
-                                'Results',
-                                'myprint'
-                              ],
-          'imap2_folder_name' => [
-                                   'myprint',
-                                   'return',
-                                   'myprint',
-                                   'return',
-                                   'remove_last_char_if_is',
-                                   'part_to_removed',
-                                   'myprint',
-                                   'prefix_seperator_invertion',
-                                   'regextrans2',
-                                   'return'
-                                 ],
-          'tests_always_fail' => [
-                                   'note',
-                                   'tests_always_fail',
-                                   'is',
-                                   'note',
-                                   'tests_always_fail'
-                                 ],
-          'format_for_imap_arg' => [
-                                     'return',
-                                     'qw',
-                                     'return'
-                                   ],
-          'logfileprepa' => [
-                              'defined',
-                              'myprint',
-                              'dirname',
-                              'do_valid_directory',
-                              'return',
-                              'return'
-                            ],
-          'file_to_string' => [
-                                'return',
-                                'myprint'
-                              ],
-          'string_to_file' => [
-                                'my',
-                                'if',
-                                'if',
-                                'dirname',
-                                'myprint',
-                                'sysopen',
-                                'myprint'
-                              ],
-          'tests_get_stdin_masked' => [
-                                        'note',
-                                        'tests_get_stdin_masked',
-                                        'is',
-                                        'get_stdin_masked',
-                                        'is',
-                                        'get_stdin_masked',
-                                        'note',
-                                        'tests_get_stdin_masked'
-                                      ],
-          'usage_footer' => [
-                              'localhost_info',
-                              'homepage',
-                              'check_last_release'
-                            ],
-          'guess_separator' => [
-                                 'return',
-                                 'myprint',
-                                 'return'
-                               ],
-          'tests_backtick' => [
-                                'note',
-                                'tests_backtick',
-                                'is',
-                                'backtick',
-                                'is',
-                                'backtick',
-                                'skip',
-                                'backtick',
-                                'ok',
-                                'myprint',
-                                'backtick',
-                                'ok',
-                                'ok',
-                                'myprint',
-                                'ok',
-                                'backtick',
-                                'ok',
-                                'backtick',
-                                'skip',
-                                'is',
-                                'backtick',
-                                'backtick',
-                                'ok',
-                                'myprint',
-                                'backtick',
-                                'ok',
-                                'ok',
-                                'myprint',
-                                'ok',
-                                'backtick',
-                                'ok',
-                                'backtick',
-                                'is',
-                                'backtick',
-                                'backtick',
-                                'myprint',
-                                'note',
-                                'tests_backtick'
-                              ],
-          'resolv' => [
-                        'resolv_with_getaddrinfo',
-                        'return',
-                        'inet_aton',
-                        'inet_ntoa'
-                      ],
-          'tests_check_binary_embed_all_dyn_libs' => [
-                                                       'note',
-                                                       'tests_check_binary_embed_all_dyn_libs',
-                                                       'is',
-                                                       'check_binary_embed_all_dyn_libs',
-                                                       'note',
-                                                       'tests_check_binary_embed_all_dyn_libs'
-                                                     ],
-          'loadavg_linux' => [
-                               'firstline',
-                               'all_defined',
-                               'myprint'
-                             ],
-          'pidfile' => [
-                         'filter_forbidden_characters',
-                         'slash_to_underscore',
-                         'filter_forbidden_characters',
-                         'slash_to_underscore'
-                       ],
-          'module_version_str' => [
-                                    'my',
-                                    'mysprintf',
-                                    'return'
-                                  ],
-          'tests_flags_filter' => [
-                                    'note',
-                                    'tests_flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'ok',
-                                    'flags_filter',
-                                    'note',
-                                    'tests_flags_filter'
-                                  ],
-          'mysprintf' => [
-                           'my'
-                         ],
-          'automap' => [
-                         'myprint',
-                         'myprint',
-                         'special_from_folders_hash',
-                         'special_from_folders_hash',
-                         'build_possible_special',
-                         'build_guess_special',
-                         'build_automap'
-                       ],
-          'loadavg_darwin' => [
-                                'myprint',
-                                'myprint',
-                                'firstline',
-                                'myprint'
-                              ],
-          'foldersizes_total' => [
-                                   'scalar',
-                                   'scalar',
-                                   'add',
-                                   'add',
-                                   'max',
-                                   'add',
-                                   'add',
-                                   'max',
-                                   'myprintf',
-                                   'myprintf',
-                                   'myprint',
-                                   'myprintf',
-                                   'myprintf',
-                                   'myprint',
-                                   'myprintf',
-                                   'bytes_display_string',
-                                   'myprintf',
-                                   'bytes_display_string',
-                                   'myprint',
-                                   'myprintf',
-                                   'bytes_display_string',
-                                   'myprintf',
-                                   'bytes_display_string',
-                                   'myprint',
-                                   'myprintf',
-                                   'timenext'
-                                 ],
-          'tests_do_valid_directory' => [
-                                          'note',
-                                          'tests_do_valid_directory',
-                                          'skip',
-                                          'ok',
-                                          'do_valid_directory',
-                                          'ok',
-                                          'do_valid_directory',
-                                          'skip',
-                                          'diag',
-                                          'ok',
-                                          'do_valid_directory',
-                                          'diag',
-                                          'ok',
-                                          'do_valid_directory',
-                                          'note',
-                                          'tests_do_valid_directory'
-                                        ],
-          'get_stdin_masked' => [
-                                  'prompt',
-                                  'myprint'
-                                ],
-          'banner_imapsync' => [
-                                 'command_line_nopassword',
-                                 'return'
-                               ],
-          'errors_log' => [
-                            'join'
-                          ],
-          'private_folders_separators_and_prefixes' => [
-                                                         'myprint',
-                                                         'get_separator',
-                                                         'get_separator',
-                                                         'get_prefix',
-                                                         'get_prefix',
-                                                         'myprint',
-                                                         'myprint'
-                                                       ],
-          'match' => [
-                       'my',
-                       'myprint'
-                     ],
-          'sync_flags_fir' => [
-                                'size_filtered_flag',
-                                'sync_flags'
-                              ],
-          'tests_length_ref' => [
-                                  'note',
-                                  'tests_length_ref',
-                                  'is',
-                                  'length_ref',
-                                  'is',
-                                  'length_ref',
-                                  'is',
-                                  'length_ref',
-                                  'is',
-                                  'length_ref',
-                                  'note',
-                                  'tests_length_ref'
-                                ],
-          'justconnect' => [
-                             'justconnect1',
-                             'justconnect2'
-                           ],
-          'catch_ignore' => [
-                              'myprint',
-                              'getppid',
-                              'stats'
-                            ],
-          'comment_on_final_diff_in_1_not_in_2' => [
-                                                     'scalar',
-                                                     'scalar',
-                                                     'myprint',
-                                                     'myprint',
-                                                     'nb_messages_in_1_not_in_2',
-                                                     'myprint',
-                                                     'myprint',
-                                                     'myprint',
-                                                     'myprint'
-                                                   ],
-          'logfile' => [
-                         'strftime',
-                         'int',
-                         'return'
-                       ],
-          'help_to_guess_prefix' => [
-                                      'my',
-                                      'folders_list_to_help',
-                                      'return'
-                                    ],
-          'tests_umask_str' => [
-                                 'note',
-                                 'tests_umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'skip',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'umask_str',
-                                 'is',
-                                 'is',
-                                 'is',
-                                 'note',
-                                 'tests_umask_str'
-                               ],
-          'select_msgs' => [
-                             'select_msgs_by_search',
-                             'select_msgs_by_fetch',
-                             'return'
-                           ],
-          'tests_info_date_from_uid' => [
-                                          'note',
-                                          'tests_info_date_from_uid',
-                                          'note',
-                                          'tests_info_date_from_uid'
-                                        ],
-          'tests_createhashfileifneeded' => [
-                                              'note',
-                                              'tests_createhashfileifneeded',
-                                              'is',
-                                              'createhashfileifneeded',
-                                              'note',
-                                              'tests_createhashfileifneeded'
-                                            ],
-          'tests_sig_install' => [
-                                   'note',
-                                   'tests_sig_install',
-                                   'is',
-                                   'sig_install',
-                                   'is',
-                                   'sig_install',
-                                   'is',
-                                   'sig_install',
-                                   'skip',
-                                   'kill',
-                                   'is',
-                                   'sig_install',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'is',
-                                   'sig_install',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'is',
-                                   'sig_install',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'is',
-                                   'kill',
-                                   'is',
-                                   'note',
-                                   'tests_sig_install'
-                                 ],
-          'cgioutputenvcontext' => [
-                                     'qw',
-                                     'output'
-                                   ],
-          'tests_set_umask' => [
-                                 'note',
-                                 'tests_set_umask',
-                                 'is',
-                                 'set_umask',
-                                 'is',
-                                 'set_umask',
-                                 'note',
-                                 'tests_set_umask'
-                               ],
-          'imap_id_stuff' => [
-                               'imap_id',
-                               'myprint',
-                               'imap_id',
-                               'myprint'
-                             ],
-          'justconnect1' => [
-                              'myprint',
-                              'connect_imap',
-                              'imap_id',
-                              'logout'
-                            ],
-          'tests_max' => [
-                           'note',
-                           'tests_max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'is',
-                           'max',
-                           'note',
-                           'tests_max'
-                         ],
-          'plainauth' => [
-                           'mysprintf',
-                           'encode_base64'
-                         ],
-          'examine_folder' => [
-                                'examine',
-                                'errors_incr',
-                                'return',
-                                'return'
-                              ],
-          'tests_check_last_release' => [
-                                          'note',
-                                          'tests_check_last_release',
-                                          'diag',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'diag',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'like',
-                                          'check_last_release',
-                                          'diag',
-                                          'check_last_release',
-                                          'note',
-                                          'tests_check_last_release'
-                                        ],
-          'tests_operators_and_exclam_precedence' => [
-                                                       'note',
-                                                       'tests_operators_and_exclam_precedence',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'not',
-                                                       'not',
-                                                       'is',
-                                                       'not',
-                                                       'not',
-                                                       'delete_messages_on_any',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'is',
-                                                       'note',
-                                                       'tests_operators_and_exclam_precedence'
-                                                     ],
-          'tests_regexmess' => [
-                                 'note',
-                                 'tests_regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'not',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'myprint',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'A',
-                                 'n',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'A',
-                                 'A',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'ok',
-                                 'regexmess',
-                                 'is',
-                                 'regexmess',
-                                 'is',
-                                 'regexmess',
-                                 'is',
-                                 'regexmess',
-                                 'is',
-                                 'regexmess',
-                                 'A',
-                                 'note',
-                                 'tests_regexmess'
-                               ],
-          'tests_resolv' => [
-                              'note',
-                              'tests_resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'is',
-                              'resolv',
-                              'note',
-                              'tests_resolv'
-                            ],
-          'prefix_seperator_invertion' => [
-                                            'myprint',
-                                            'separator_invert',
-                                            'myprint',
-                                            'myprint',
-                                            'return'
-                                          ],
-          'subfolder1' => [
-                            'sanitize_subfolder',
-                            'myprint',
-                            'myprint',
-                            'add_subfolder1_to_folderrec',
-                            'exit_clean'
-                          ],
-          'subject' => [
-                         'extract_header',
-                         'if',
-                         'myprint',
-                         'return'
-                       ],
-          'foldersizesatend_old' => [
-                                      'timenext',
-                                      'IsUnconnected',
-                                      'IsUnconnected',
-                                      'folders',
-                                      'foldersizes',
-                                      'foldersizes',
-                                      'all_defined',
-                                      'errors_incr'
-                                    ],
-          'tests_abort' => [
-                             'note',
-                             'tests_abort',
-                             'is',
-                             'abort',
-                             'note',
-                             'tests_abort'
-                           ],
-          'tests_imap2_folder_name' => [
-                                         'note',
-                                         'tests_imap2_folder_name',
-                                         'myprint',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'U',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'set_regextrans2_for_subfolder2',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'set_regextrans2_for_subfolder2',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'is',
-                                         'imap2_folder_name',
-                                         'note',
-                                         'tests_imap2_folder_name'
-                                       ],
-          'tests_guess_separator' => [
-                                       'note',
-                                       'tests_guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'ok',
-                                       'guess_separator',
-                                       'note',
-                                       'tests_guess_separator'
-                                     ],
-          'uidexpunge_or_expunge' => [
-                                       'uidexpunge',
-                                       'expunge'
-                                     ],
-          'help_to_guess_sep' => [
-                                   'my',
-                                   'folders_list_to_help',
-                                   'return'
-                                 ],
-          'isrunning' => [
-                           'myprint',
-                           'myprint'
-                         ],
-          'tests_appendlimit_from_capability' => [
-                                                   'note',
-                                                   'tests_appendlimit_from_capability',
-                                                   'is',
-                                                   'appendlimit_from_capability',
-                                                   'is',
-                                                   'appendlimit_from_capability',
-                                                   'mock_capability',
-                                                   'is',
-                                                   'appendlimit_from_capability',
-                                                   'mock_capability',
-                                                   'is',
-                                                   'appendlimit_from_capability',
-                                                   'note',
-                                                   'tests_appendlimit_from_capability'
-                                                 ],
-          'tests_pipemess' => [
-                                'note',
-                                'tests_pipemess',
-                                'skip',
-                                'ok',
-                                'pipemess',
-                                'ok',
-                                'pipemess',
-                                'qw',
-                                'diag',
-                                'ok',
-                                'defined',
-                                'pipemess',
-                                'skip',
-                                'ok',
-                                'pipemess',
-                                'ok',
-                                'pipemess',
-                                'ok',
-                                'pipemess',
-                                'ok',
-                                'pipemess',
-                                'ok',
-                                'pipemess',
-                                'diag',
-                                'is',
-                                'pipemess',
-                                'is',
-                                'pipemess',
-                                'is',
-                                'pipemess',
-                                'is',
-                                'pipemess',
-                                'pipemess',
-                                'is',
-                                'is',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'pipemess',
-                                'is',
-                                'is',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'pipemess',
-                                'like',
-                                'like',
-                                'pipemess',
-                                'is',
-                                'like',
-                                'note',
-                                'tests_pipemess'
-                              ],
-          'tests_clean_cache_2' => [
-                                     'note',
-                                     'tests_clean_cache_2',
-                                     'ok',
-                                     'rmtree',
-                                     'ok',
-                                     'mkpath',
-                                     'qw',
-                                     'ok',
-                                     'touch',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'clean_cache',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'ok',
-                                     'note',
-                                     'tests_clean_cache_2'
-                                   ],
-          'sleep_max_messages' => [
-                                    'my',
-                                    'return',
-                                    'return',
-                                    'max'
-                                  ],
-          'diff_or_NA' => [
-                            'my',
-                            'match_number',
-                            'match_number',
-                            'return'
-                          ],
-          'tests_subject' => [
-                               'note',
-                               'tests_subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'ok',
-                               'subject',
-                               'note',
-                               'tests_subject'
-                             ],
-          'cleanup_before_exit' => [
-                                     'remove_tmp_files',
-                                     'IsConnected',
-                                     'myprint',
-                                     'logout',
-                                     'IsConnected',
-                                     'myprint',
-                                     'logout',
-                                     'myprint',
-                                     'myprint'
-                                   ],
-          'time_remaining' => [
-                                'my',
-                                'return'
-                              ],
-          'check_last_release' => [
-                                    'not_long_imapsync_version_public',
-                                    'myprint',
-                                    'return',
-                                    'return',
-                                    'is_a_release_number',
-                                    'return',
-                                    'imapsync_version',
-                                    'return',
-                                    'return',
-                                    'return'
-                                  ],
-          'modulesversion' => [
-                                'module_version_str',
-                                'return'
-                              ],
-          'subfolder2' => [
-                            'sanitize_subfolder',
-                            'myprint',
-                            'myprint',
-                            'set_regextrans2_for_subfolder2'
-                          ],
-          'ucsecond' => [
-                          'return',
-                          'substr',
-                          'myprint',
-                          'return'
-                        ],
-          'max_line_length' => [
-                                 'max',
-                                 'return'
-                               ],
-          'search_dyn_lib_locale_MSWin32' => [
-                                               'myprint',
-                                               'qx'
-                                             ],
-          'foldersize' => [
-                            'all_defined',
-                            'examine',
-                            'select',
-                            'errors_incr',
-                            'IsUnconnected',
-                            'select_msgs',
-                            'IsUnconnected',
-                            'fetch_hash',
-                            'errors_incr',
-                            'uidnext',
-                            'fetch_hash',
-                            'errors_incr',
-                            'max',
-                            'return'
-                          ],
-          'catch_reconnect' => [
-                                 'here_twice',
-                                 'myprint',
-                                 'catch_exit',
-                                 'myprint',
-                                 'getppid',
-                                 'myprint',
-                                 'myprint',
-                                 'State',
-                                 'reconnect',
-                                 'myprint',
-                                 'exit_clean',
-                                 'myprint',
-                                 'State',
-                                 'reconnect',
-                                 'myprint',
-                                 'exit_clean',
-                                 'myprint'
-                               ],
-          'after_get_options' => [
-                                   'myprint',
-                                   'myprint',
-                                   'usage'
-                                 ],
-          'tests_cache_folder' => [
-                                    'note',
-                                    'tests_cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'ok',
-                                    'cache_folder',
-                                    'note',
-                                    'tests_cache_folder'
-                                  ],
-          'sanitize' => [
-                          'qw',
-                          'remove_edging_blanks'
-                        ],
-          'justconnect2' => [
-                              'myprint',
-                              'connect_imap',
-                              'imap_id',
-                              'logout'
-                            ],
-          'folders_list_to_help' => [
-                                      'my',
-                                      'return'
-                                    ],
-          'tests_epoch' => [
-                             'note',
-                             'tests_epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'ok',
-                             'epoch',
-                             'is',
-                             'epoch',
-                             'is',
-                             'epoch',
-                             'note',
-                             'tests_epoch'
-                           ],
-          'tests_sslcheck' => [
-                                'note',
-                                'tests_sslcheck',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'sslcheck',
-                                'is',
-                                'sslcheck',
-                                'note',
-                                'tests_sslcheck'
-                              ],
-          'tests_true' => [
-                            'note',
-                            'tests_true',
-                            'is',
-                            'note',
-                            'tests_true'
-                          ],
-          'missing_option' => [
-                                'exit_clean'
-                              ],
-          'timenext' => [
-                          'myprint',
-                          'return'
-                        ],
-          'sig_install' => [
-                             'myprint',
-                             'myprint',
-                             'mysub',
-                             'myprint',
-                             'output'
-                           ],
-          'simulong' => [
-                          'myprint',
-                          'myprint',
-                          'sleep'
-                        ],
-          'do_valid_directory' => [
-                                    'return',
-                                    'myprint',
-                                    'return',
-                                    'myprintf',
-                                    'getpwuid_any_os',
-                                    'oct',
-                                    'getpwuid_any_os',
-                                    'uid',
-                                    'return',
-                                    'myprint',
-                                    'mkpath',
-                                    'myprint',
-                                    'return',
-                                    'return'
-                                  ],
-          'loadavg' => [
-                         'loadavg_linux',
-                         'loadavg_freebsd',
-                         'loadavg_darwin',
-                         'loadavg_windows',
-                         'return'
-                       ],
-          'tests_is_a_release_number' => [
-                                           'note',
-                                           'tests_is_a_release_number',
-                                           'is',
-                                           'is_a_release_number',
-                                           'ok',
-                                           'is_a_release_number',
-                                           'ok',
-                                           'is_a_release_number',
-                                           'ok',
-                                           'is_a_release_number',
-                                           'imapsync_version',
-                                           'imapsync_version',
-                                           'ok',
-                                           'is_a_release_number',
-                                           'note',
-                                           'tests_is_a_release_number'
-                                         ],
-          'tests_mock_capability' => [
-                                       'note',
-                                       'tests_mock_capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'ok',
-                                       'isa',
-                                       'is',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is_deeply',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is_deeply',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is_deeply',
-                                       'capability',
-                                       'ok',
-                                       'mock_capability',
-                                       'is_deeply',
-                                       'capability',
-                                       'note',
-                                       'tests_mock_capability'
-                                     ],
-          'set_umask' => [
-                           'umask_str',
-                           'umask_str',
-                           'output'
-                         ],
-          'tests_search_in_array' => [
-                                       'note',
-                                       'tests_search_in_array',
-                                       'is',
-                                       'search_in_array',
-                                       'is',
-                                       'search_in_array',
-                                       'is',
-                                       'search_in_array',
-                                       'is',
-                                       'search_in_array',
-                                       'note',
-                                       'tests_search_in_array'
-                                     ],
-          'reconnect_12_if_needed' => [
-                                        'reconnect_if_needed',
-                                        'reconnect_if_needed'
-                                      ],
-          'create_folder_old' => [
-                                   'my',
-                                   'myprint',
-                                   'exists',
-                                   'myprint',
-                                   'return',
-                                   'create',
-                                   'LastError',
-                                   'errors_incr',
-                                   'return',
-                                   'exists',
-                                   'return',
-                                   'myprint',
-                                   'return',
-                                   'myprint',
-                                   'return'
-                                 ],
-          'cpu_number' => [
-                            'myprint',
-                            'backtick',
-                            'chomp',
-                            'myprint',
-                            'myprint',
-                            'elsif',
-                            'file_to_array',
-                            'myprint',
-                            'return',
-                            'integer_or_1'
-                          ],
-          'tests_convert_sep_to_slash' => [
-                                            'note',
-                                            'tests_convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'ok',
-                                            'convert_sep_to_slash',
-                                            'note',
-                                            'tests_convert_sep_to_slash'
-                                          ],
-          'tests_write_pidfile' => [
-                                     'note',
-                                     'tests_write_pidfile',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'write_pidfile',
-                                     'ok',
-                                     'mkpath',
-                                     'is',
-                                     'touch',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'firstline',
-                                     'is',
-                                     'secondline',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'write_pidfile',
-                                     'is',
-                                     'firstline',
-                                     'is',
-                                     'secondline',
-                                     'note',
-                                     'tests_write_pidfile'
-                                   ],
-          'imapsync_basename' => [
-                                   'basename'
-                                 ],
-          'testsexit' => [
-                           'tests',
-                           'testsdebug',
-                           'testunitsession',
-                           'summary',
-                           'details',
-                           'scalar',
-                           'expected_tests',
-                           'count_0s',
-                           'report_failures',
-                           'reset',
-                           'myprint',
-                           'cleanup_mess_from_tests'
-                         ],
-          'printenv' => [
-                          'myprint'
-                        ],
-          'tests_connect_socket' => [
-                                      'note',
-                                      'tests_connect_socket',
-                                      'is',
-                                      'connect_socket',
-                                      'hostname',
-                                      'skip_macosx',
-                                      'hostname',
-                                      'skip',
-                                      'new',
-                                      'ok',
-                                      'connect_socket',
-                                      'Debug',
-                                      'myprint',
-                                      'capability',
-                                      'logout',
-                                      'new',
-                                      'myprint',
-                                      'ok',
-                                      'connect_socket',
-                                      'Debug',
-                                      'myprint',
-                                      'capability',
-                                      'close',
-                                      'close',
-                                      'close',
-                                      'logout',
-                                      'myprint',
-                                      'logout',
-                                      'note',
-                                      'tests_connect_socket'
-                                    ],
-          'guess_special' => [
-                               'my',
-                               'myprint',
-                               'return'
-                             ],
-          'tests_mkpath' => [
-                              'note',
-                              'tests_mkpath',
-                              'ok',
-                              'mkpath',
-                              'skip',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'rmtree',
-                              'ok',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'rmtree',
-                              'ok',
-                              'ok',
-                              'ok',
-                              'ok',
-                              'skip',
-                              'myprint',
-                              'myprint',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'rmtree',
-                              'ok',
-                              'myprint',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'rmtree',
-                              'ok',
-                              'ok',
-                              'mkpath',
-                              'ok',
-                              'ok',
-                              'rmtree',
-                              'ok',
-                              'note',
-                              'tests_mkpath'
-                            ],
-          'cgiload' => [
-                         'under_cgi_context',
-                         'exit_clean'
-                       ],
-          'regextrans2' => [
-                             'my',
-                             'option',
-                             'myprint',
-                             'exit_clean',
-                             'return'
-                           ],
-          'memory_consumption' => [
-                                    'return',
-                                    'memory_consumption_of_pids'
-                                  ],
-          'acls_sync' => [
-                           'my',
-                           'getacl',
-                           'myprint',
-                           'getacl',
-                           'myprint',
-                           'myprint',
-                           'myprint',
-                           'setacl',
-                           'myprint'
-                         ],
-          'tests_foldersize' => [
-                                  'note',
-                                  'tests_foldersize',
-                                  'is',
-                                  'foldersize',
-                                  'is_deeply',
-                                  'is_deeply',
-                                  'note',
-                                  'tests_foldersize'
-                                ],
-          'tests_mailimapclient_connect' => [
-                                              'note',
-                                              'tests_mailimapclient_connect',
-                                              'ok',
-                                              'new',
-                                              'is',
-                                              'ref',
-                                              'is',
-                                              'connect',
-                                              'is',
-                                              'Server',
-                                              'Server',
-                                              'is',
-                                              'Debug',
-                                              'Debug',
-                                              'is',
-                                              'Port',
-                                              'Port',
-                                              'is',
-                                              'Timeout',
-                                              'Timout',
-                                              'like',
-                                              'ref',
-                                              'connect',
-                                              'like',
-                                              'logout',
-                                              'is',
-                                              'ok',
-                                              'new',
-                                              'is',
-                                              'Server',
-                                              'Server',
-                                              'is',
-                                              'Debug',
-                                              'Debug',
-                                              'ok',
-                                              'Ssl',
-                                              'Ssl',
-                                              'is',
-                                              'Port',
-                                              'Port',
-                                              'like',
-                                              'ref',
-                                              'connect',
-                                              'like',
-                                              'logout',
-                                              'is',
-                                              'ok',
-                                              'new',
-                                              'is',
-                                              'Server',
-                                              'is',
-                                              'Timeout',
-                                              'Timout',
-                                              'ok',
-                                              'Ssl',
-                                              'Ssl',
-                                              'is',
-                                              'Port',
-                                              'Port',
-                                              'hostname',
-                                              'skip_macosx',
-                                              'hostname',
-                                              'skip',
-                                              'is',
-                                              'Debug',
-                                              'Debug',
-                                              'is',
-                                              'resolv',
-                                              'like',
-                                              'ref',
-                                              'connect',
-                                              'like',
-                                              'ref',
-                                              'logout',
-                                              'is',
-                                              'note',
-                                              'tests_mailimapclient_connect'
-                                            ],
-          'clean_cache' => [
-                             'myprint',
-                             'myprint',
-                             'myprint',
-                             'match_a_cache_file',
-                             'myprint',
-                             'exists',
-                             'myprint',
-                             'myprint',
-                             'myprint',
-                             'return'
-                           ],
-          'jux_utf8' => [
-                          'imap_utf7_decode',
-                          'myprint',
-                          'return',
-                          'myprint',
-                          'return'
-                        ],
-          'single_sync' => [
-                             'memory_consumption',
-                             'loadavg',
-                             'cpu_number',
-                             'load_and_delay',
-                             'join',
-                             'ram_memory_info',
-                             'get_options',
-                             'cgibegin',
-                             'output',
-                             'get_options',
-                             'docker_context',
-                             'cgibuildheader',
-                             'myprint',
-                             'output',
-                             'output_reset_with',
-                             'cgiload',
-                             'myprint',
-                             'imapsync_version'
-                           ],
-          'tests_cache_map' => [
-                                 'note',
-                                 'tests_cache_map',
-                                 'my',
-                                 'ok',
-                                 'cache_map',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'myprint',
-                                 'note',
-                                 'tests_cache_map'
-                               ],
-          'tests_flagscase' => [
-                                 'note',
-                                 'tests_flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'ok',
-                                 'flagscase',
-                                 'note',
-                                 'tests_flagscase'
-                               ],
-          'imapsync_version' => [
-                                  'version_from_rcs',
-                                  'return'
-                                ],
-          'tests_add_subfolder1_to_folderrec' => [
-                                                   'note',
-                                                   'tests_add_subfolder1_to_folderrec',
-                                                   'is',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'is_deeply',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'is_deeply',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'is_deeply',
-                                                   'add_subfolder1_to_folderrec',
-                                                   'is_deeply',
-                                                   'note',
-                                                   'tests_add_subfolder1_to_folderrec'
-                                                 ],
-          'sort_requested_folders' => [
-                                        'remove_from_requested_folders',
-                                        'remove_from_requested_folders',
-                                        'add_to_requested_folders',
-                                        'return'
-                                      ],
-          'sleep_max_bytes' => [
-                                 'my',
-                                 'return',
-                                 'myprint',
-                                 'return',
-                                 'max'
-                               ],
-          'regexmess' => [
-                           'myprint',
-                           'myprint',
-                           'myprint',
-                           'return',
-                           'myprint',
-                           'return'
-                         ],
-          'imapsync_version_public' => [
-                                         'imapsync_version',
-                                         'imapsync_basename',
-                                         'imapsync_context',
-                                         'mysprintf',
-                                         'new',
-                                         'return',
-                                         'return'
-                                       ],
-          'memory_consumption_of_pids' => [
-                                            'myprint',
-                                            'memory_consumption_of_pids_win32',
-                                            'myprint',
-                                            'backtick',
-                                            'myprint',
-                                            'myprint',
-                                            'return'
-                                          ],
-          'epoch' => [
-                       'return',
-                       's',
-                       's',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'timegm',
-                       'myprint',
-                       'localtime',
-                       'return'
-                     ],
-          'tests_match' => [
-                             'note',
-                             'tests_match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'is',
-                             'match',
-                             'note',
-                             'tests_match'
-                           ],
-          'tests_cache_dir_fix_win' => [
-                                         'note',
-                                         'tests_cache_dir_fix_win',
-                                         'ok',
-                                         'cache_dir_fix_win',
-                                         'ok',
-                                         'cache_dir_fix_win',
-                                         'note',
-                                         'tests_cache_dir_fix_win'
-                                       ],
-          'exchange1' => [
-                           'output'
-                         ],
-          'is_a_release_number' => [
-                                     'return'
-                                   ],
-          'tests_load_and_delay' => [
-                                      'note',
-                                      'tests_load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'is',
-                                      'load_and_delay',
-                                      'note',
-                                      'tests_load_and_delay'
-                                    ],
-          'tests_rand32' => [
-                              'note',
-                              'tests_rand32',
-                              'rand32',
-                              'myprint',
-                              'is',
-                              'length',
-                              'is',
-                              'length',
-                              'rand32',
-                              'note',
-                              'tests_rand32'
-                            ],
-          'office2' => [
-                         'output',
-                         'output',
-                         'output',
-                         'output'
-                       ],
-          'mygetppid' => [
-                           'return',
-                           'return',
-                           'getppid'
-                         ],
-          'msgs_from_maxmin' => [
-                                  'my',
-                                  'my',
-                                  'unless',
-                                  'unless',
-                                  'return'
-                                ],
-          'foldersize_diff_compute' => [
-                                         'myprint',
-                                         'foldersize',
-                                         'myprint',
-                                         'foldersize',
-                                         'diff',
-                                         'diff',
-                                         'diff'
-                                       ],
-          'cgibuildheader' => [
-                                'under_cgi_context',
-                                'cookie',
-                                'cookie',
-                                'header',
-                                'hostname',
-                                'elsif',
-                                'header',
-                                'hostname',
-                                'header',
-                                'hostname',
-                                'output_start'
-                              ],
-          'info_date_from_uid' => [
-                                    'epoch',
-                                    'myprint'
-                                  ],
-          'tests_timesince' => [
-                                 'note',
-                                 'tests_timesince',
-                                 'ok',
-                                 'timesince',
-                                 'ok',
-                                 'timesince',
-                                 'ok',
-                                 'timesince',
-                                 'note',
-                                 'tests_timesince'
-                               ],
-          'tests_file_to_string' => [
-                                      'note',
-                                      'tests_file_to_string',
-                                      'is',
-                                      'file_to_string',
-                                      'is',
-                                      'file_to_string',
-                                      'is',
-                                      'file_to_string',
-                                      'ok',
-                                      'file_to_string',
-                                      'ok',
-                                      'mkpath',
-                                      'is',
-                                      'string_to_file',
-                                      'is',
-                                      'file_to_string',
-                                      'is',
-                                      'string_to_file',
-                                      'is',
-                                      'file_to_string',
-                                      'note',
-                                      'tests_file_to_string'
-                                    ],
-          'tests_synclabels' => [
-                                  'note',
-                                  'tests_synclabels',
-                                  'is',
-                                  'synclabels',
-                                  'is',
-                                  'synclabels',
-                                  'is',
-                                  'synclabels',
-                                  'require_ok',
-                                  'new',
-                                  'mock',
-                                  'return',
-                                  'mock',
-                                  'mock',
-                                  'Unescape',
-                                  'new',
-                                  'mock',
-                                  'is',
-                                  'synclabels',
-                                  'is',
-                                  'synclabels',
-                                  'is',
-                                  'synclabels',
-                                  'note',
-                                  'tests_synclabels'
-                                ],
-          'lastuid' => [
-                         'recent',
-                         'myprint',
-                         'max',
-                         'return'
-                       ],
-          'max' => [
-                     'return',
-                     'my',
-                     'is_number',
-                     'return'
-                   ],
-          'extract_header' => [
-                                'return',
-                                'myprint',
-                                'return'
-                              ],
-          'tests_logfileprepa' => [
-                                    'note',
-                                    'tests_logfileprepa',
-                                    'is',
-                                    'logfileprepa',
-                                    'is',
-                                    'logfileprepa',
-                                    'note',
-                                    'tests_logfileprepa'
-                                  ],
-          'toggle_sleep' => [
-                              'myprint',
-                              'defined',
-                              'defined',
-                              'max',
-                              'myprint'
-                            ],
-          'tests_match_a_cache_file' => [
-                                          'note',
-                                          'tests_match_a_cache_file',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'ok',
-                                          'match_a_cache_file',
-                                          'ok',
-                                          'ok',
-                                          'note',
-                                          'tests_match_a_cache_file'
-                                        ],
-          'tests_killpid_by_parent' => [
-                                         'note',
-                                         'tests_killpid_by_parent',
-                                         'skip',
-                                         'is',
-                                         'killpid',
-                                         'note',
-                                         'is',
-                                         'killpid',
-                                         'fork',
-                                         'ok',
-                                         'defined',
-                                         'ok',
-                                         'is',
-                                         'kill',
-                                         'is',
-                                         'killpid',
-                                         'is',
-                                         'waitpid',
-                                         'myprint',
-                                         'myprint',
-                                         'mygetppid',
-                                         'ok',
-                                         'myprint',
-                                         'note',
-                                         'tests_killpid_by_parent'
-                                       ],
-          'tests_add_header' => [
-                                  'note',
-                                  'tests_add_header',
-                                  'ok',
-                                  'add_header',
-                                  'ok',
-                                  'add_header',
-                                  'note',
-                                  'tests_add_header'
-                                ],
-          'tests_guess_prefix' => [
-                                    'note',
-                                    'tests_guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'is',
-                                    'guess_prefix',
-                                    'note',
-                                    'tests_guess_prefix'
-                                  ],
-          'tests_good_date' => [
-                                 'note',
-                                 'tests_good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'ok',
-                                 'good_date',
-                                 'note',
-                                 'tests_good_date'
-                               ],
-          'write_pidfile' => [
-                               'myprint',
-                               'return',
-                               'myprint',
-                               'myprint',
-                               'myprint',
-                               'myprint',
-                               'return',
-                               'myprint'
-                             ],
-          'tests_jux_utf8_old' => [
-                                    'note',
-                                    'tests_jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'is',
-                                    'jux_utf8_old',
-                                    'note',
-                                    'tests_jux_utf8_old'
-                                  ],
-          'hashsynclocal' => [
-                               'createhashfileifneeded',
-                               'firstline',
-                               'myprint',
-                               'hashsync',
-                               'return'
-                             ],
-          'build_automap' => [
-                               'myprint',
-                               'return'
-                             ],
-          'tests_slash_to_underscore' => [
-                                           'note',
-                                           'tests_slash_to_underscore',
-                                           'is',
-                                           'slash_to_underscore',
-                                           'is',
-                                           'slash_to_underscore',
-                                           'is',
-                                           'slash_to_underscore',
-                                           'note',
-                                           'tests_slash_to_underscore'
-                                         ],
-          'tests_remove_from_requested_folders' => [
-                                                     'note',
-                                                     'tests_remove_from_requested_folders',
-                                                     'is',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'is_deeply',
-                                                     'remove_from_requested_folders',
-                                                     'is_deeply',
-                                                     'note',
-                                                     'tests_remove_from_requested_folders'
-                                                   ],
-          'secondline' => [
-                            'nthline'
-                          ],
-          'tests_min' => [
-                           'note',
-                           'tests_min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'is',
-                           'min',
-                           'note',
-                           'tests_min'
-                         ],
-          'imap_utf7_decode' => [
-                                  'return',
-                                  'decode'
-                                ],
-          'set_ssl' => [
-                         'myprint',
-                         'Dump',
-                         'Ssl'
-                       ],
-          'tests_firstline' => [
-                                 'note',
-                                 'tests_firstline',
-                                 'is',
-                                 'firstline',
-                                 'ok',
-                                 'mkpath',
-                                 'is',
-                                 'string_to_file',
-                                 'is',
-                                 'firstline',
-                                 'is',
-                                 'string_to_file',
-                                 'is',
-                                 'firstline',
-                                 'is',
-                                 'string_to_file',
-                                 'is',
-                                 'firstline',
-                                 'is',
-                                 'string_to_file',
-                                 'is',
-                                 'firstline',
-                                 'note',
-                                 'tests_firstline'
-                               ],
-          'stats' => [
-                       'memory_consumption',
-                       'mysprintf',
-                       'useheader_suggestion',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprintf',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'useheader_suggestion',
-                       'myprint',
-                       'nb_messages_in_1_not_in_2',
-                       'nb_messages_in_2_not_in_1',
-                       'myprintf',
-                       'myprintf',
-                       'myprint',
-                       'myprint',
-                       'myprintf',
-                       'bytes_display_string',
-                       'myprintf',
-                       'bytes_display_string',
-                       'myprintf',
-                       'myprintf',
-                       'myprint',
-                       'myprint',
-                       'myprintf',
-                       'myprint',
-                       'join',
-                       'loadavg',
-                       'myprintf',
-                       'bytes_display_string',
-                       'myprint',
-                       'diff_or_NA',
-                       'diff_or_NA',
-                       'myprintf',
-                       'bytes_display_string',
-                       'diff_or_NA',
-                       'diff_or_NA',
-                       'myprintf',
-                       'bytes_display_string',
-                       'comment_on_final_diff_in_1_not_in_2',
-                       'comment_on_final_diff_in_2_not_in_1',
-                       'myprint',
-                       'myprint',
-                       'myprint',
-                       'homepage'
-                     ],
-          'slash_to_underscore' => [
-                                     'return'
-                                   ],
-          'jux_utf8_list' => [
-                               'jux_utf8',
-                               'return'
-                             ],
-          'tests_reconnect_if_needed' => [
-                                           'note',
-                                           'tests_reconnect_if_needed',
-                                           'is',
-                                           'reconnect_if_needed',
-                                           'is',
-                                           'reconnect_if_needed',
-                                           'new',
-                                           'Debug',
-                                           'is',
-                                           'reconnect_if_needed',
-                                           'Server',
-                                           'is',
-                                           'reconnect_if_needed',
-                                           'is',
-                                           'note',
-                                           'tests_reconnect_if_needed'
-                                         ],
-          'filter_forbidden_characters' => [
-                                             'myprint',
-                                             'return'
-                                           ],
-          'tests_extract_header' => [
-                                      'note',
-                                      'tests_extract_header',
-                                      'ok',
-                                      'extract_header',
-                                      'note',
-                                      'tests_extract_header'
-                                    ],
-          'tests' => [
-                       'note',
-                       'tests',
-                       'tests_folder_routines',
-                       'tests_compare_lists',
-                       'tests_regexmess',
-                       'tests_skipmess',
-                       'tests_flags_regex',
-                       'tests_ucsecond',
-                       'tests_permanentflags',
-                       'tests_flags_filter',
-                       'tests_separator_invert',
-                       'tests_imap2_folder_name',
-                       'tests_command_line_nopassword',
-                       'tests_good_date',
-                       'tests_max',
-                       'tests_remove_not_num',
-                       'tests_memory_consumption',
-                       'tests_is_a_release_number',
-                       'tests_imapsync_basename',
-                       'tests_list_keys_in_2_not_in_1',
-                       'tests_convert_sep_to_slash',
-                       'tests_match_a_cache_file',
-                       'tests_cache_map',
-                       'tests_get_cache',
-                       'tests_clean_cache',
-                       'tests_clean_cache_2',
-                       'tests_touch',
-                       'tests_flagscase',
-                       'tests_mkpath',
-                       'tests_extract_header',
-                       'tests_decompose_header',
-                       'tests_epoch',
-                       'tests_add_header',
-                       'tests_cache_dir_fix',
-                       'tests_cache_dir_fix_win',
-                       'tests_filter_forbidden_characters',
-                       'tests_cache_folder',
-                       'tests_time_remaining',
-                       'tests_decompose_regex',
-                       'tests_backtick',
-                       'tests_bytes_display_string',
-                       'tests_header_line_normalize',
-                       'tests_fix_Inbox_INBOX_mapping',
-                       'tests_max_line_length',
-                       'tests_subject',
-                       'tests_msgs_from_maxmin',
-                       'tests_tmpdir_has_colon_bug',
-                       'tests_sleep_max_messages',
-                       'tests_sleep_max_bytes',
-                       'tests_logfile',
-                       'tests_setlogfile',
-                       'tests_jux_utf8_old',
-                       'tests_jux_utf8',
-                       'tests_pipemess',
-                       'tests_jux_utf8_list',
-                       'tests_guess_prefix',
-                       'tests_guess_separator',
-                       'tests_format_for_imap_arg',
-                       'tests_imapsync_id',
-                       'tests_date_from_rcs',
-                       'tests_quota_extract_storage_limit_in_bytes',
-                       'tests_quota_extract_storage_current_in_bytes',
-                       'tests_guess_special',
-                       'tests_do_valid_directory',
-                       'tests_delete1emptyfolders',
-                       'tests_message_for_host2',
-                       'tests_length_ref',
-                       'tests_firstline',
-                       'tests_diff_or_NA',
-                       'tests_match_number',
-                       'tests_all_defined',
-                       'tests_special_from_folders_hash',
-                       'tests_notmatch',
-                       'tests_match',
-                       'tests_get_options',
-                       'tests_get_options_cgi_context',
-                       'tests_rand32',
-                       'tests_hashsynclocal',
-                       'tests_hashsync',
-                       'tests_output',
-                       'tests_output_reset_with',
-                       'tests_output_start',
-                       'tests_check_last_release',
-                       'tests_loadavg',
-                       'tests_cpu_number',
-                       'tests_load_and_delay',
-                       'tests_imapsping',
-                       'tests_tcpping',
-                       'tests_sslcheck',
-                       'tests_not_long_imapsync_version_public',
-                       'tests_reconnect_if_needed',
-                       'tests_reconnect_12_if_needed',
-                       'tests_sleep_if_needed',
-                       'tests_string_to_file',
-                       'tests_file_to_string',
-                       'tests_under_cgi_context',
-                       'tests_umask',
-                       'tests_umask_str',
-                       'tests_set_umask',
-                       'tests_createhashfileifneeded',
-                       'tests_slash_to_underscore',
-                       'tests_testsunit',
-                       'tests_count_0s',
-                       'tests_report_failures',
-                       'tests_min',
-                       'tests_connect_socket',
-                       'tests_resolvrev',
-                       'tests_usage',
-                       'tests_version_from_rcs',
-                       'tests_backslash_caret',
-                       'tests_mailimapclient_connect_bug',
-                       'tests_write_pidfile',
-                       'tests_remove_pidfile_not_running',
-                       'tests_match_a_pid_number',
-                       'tests_prefix_seperator_invertion',
-                       'tests_is_an_integer',
-                       'tests_integer_or_1',
-                       'tests_is_number',
-                       'tests_sig_install',
-                       'tests_template',
-                       'tests_split_around_equal',
-                       'tests_toggle_sleep',
-                       'tests_labels',
-                       'tests_synclabels',
-                       'tests_uidexpunge_or_expunge',
-                       'tests_appendlimit_from_capability',
-                       'tests_maxsize_setting',
-                       'tests_mock_capability',
-                       'tests_appendlimit',
-                       'tests_capability_of',
-                       'tests_search_in_array',
-                       'tests_operators_and_exclam_precedence',
-                       'tests_teelaunch',
-                       'tests_logfileprepa',
-                       'tests_useheader_suggestion',
-                       'tests_nb_messages_in_2_not_in_1',
-                       'tests_labels_add_subfolder2',
-                       'tests_labels_remove_subfolder1',
-                       'tests_resynclabels',
-                       'tests_labels_remove_special',
-                       'tests_uniq',
-                       'tests_remove_from_requested_folders',
-                       'tests_errors_log',
-                       'tests_add_subfolder1_to_folderrec',
-                       'tests_sanitize_subfolder',
-                       'tests_remove_edging_blanks',
-                       'tests_sanitize',
-                       'tests_remove_last_char_if_is',
-                       'tests_check_binary_embed_all_dyn_libs',
-                       'tests_nthline',
-                       'tests_secondline',
-                       'tests_tail',
-                       'tests_truncmess',
-                       'tests_eta',
-                       'tests_timesince',
-                       'tests_timenext',
-                       'tests_foldersize',
-                       'tests_imapsync_context',
-                       'tests_abort',
-                       'tests_probe_imapssl',
-                       'tests_mailimapclient_connect',
-                       'tests_resolv',
-                       'tests_killpid_by_parent',
-                       'tests_killpid_by_brother',
-                       'tests_kill_zero',
-                       'tests_always_fail',
-                       'done_testing',
-                       'note',
-                       'tests'
-                     ],
-          'imap_utf7_encode' => [
-                                  'return',
-                                  'encode'
-                                ],
-          'appendlimit' => [
-                             'appendlimit_from_capability',
-                             'myprint'
-                           ],
-          'integer_or_1' => [
-                              'is_an_integer'
-                            ],
-          'flags_filter' => [
-                              'my',
-                              'return'
-                            ],
-          'create_folder' => [
-                               'my',
-                               'my',
-                               'IsUnconnected',
-                               'myprint',
-                               'return',
-                               'return',
-                               'create_folder_old',
-                               'myprint',
-                               'exists',
-                               'myprint',
-                               'return',
-                               'exists',
-                               'myprint',
-                               'return',
-                               'exists',
-                               'myprint',
-                               'return',
-                               'exists',
-                               'create_folder',
-                               'create',
-                               'LastError',
-                               'errors_incr',
-                               'return',
-                               'exists',
-                               'return',
-                               'myprint',
-                               'return',
-                               'myprint',
-                               'myprint',
-                               'return'
-                             ],
-          'sig_install_toggle_sleep' => [
-                                          'myprint',
-                                          'sig_install',
-                                          'sig_install',
-                                          'myprint'
-                                        ],
-          'tests_output_start' => [
-                                    'note',
-                                    'tests_output_start',
-                                    'is',
-                                    'output_start',
-                                    'is',
-                                    'output_start',
-                                    'is',
-                                    'output_start',
-                                    'is',
-                                    'output_start',
-                                    'is',
-                                    'output_start',
-                                    'is',
-                                    'output_start',
-                                    'note',
-                                    'tests_output_start'
-                                  ],
-          'ask_for_password' => [
-                                  'myprint',
-                                  'ReadMode',
-                                  'myprint',
-                                  'ReadMode'
-                                ],
-          'connect_imap' => [
-                              'my',
-                              'new',
-                              'set_ssl',
-                              'Server',
-                              'Port',
-                              'Debug',
-                              'Timeout',
-                              'myprint',
-                              'connect',
-                              'exit_clean',
-                              'myprint',
-                              'peerhost',
-                              'Results',
-                              'myprint',
-                              'myprint',
-                              'join',
-                              'capability',
-                              'set_tls',
-                              'starttls',
-                              'exit_clean',
-                              'myprint',
-                              'return'
-                            ],
-          'tests_umask' => [
-                             'note',
-                             'tests_umask',
-                             'is',
-                             'is',
-                             'is',
-                             'oct',
-                             'is',
-                             'oct',
-                             'is',
-                             'oct',
-                             'oct',
-                             'skip',
-                             'is',
-                             'oct',
-                             'is',
-                             'oct',
-                             'ok',
-                             'is',
-                             'note',
-                             'tests_umask'
-                           ],
-          'size_filtered' => [
-                               'my',
-                               'myprint',
-                               'return',
-                               'myprint',
-                               'return',
-                               'return'
-                             ],
-          'linelengthstuff' => [
-                                 'my',
-                                 'max_line_length',
-                                 'myprint',
-                                 'subject',
-                                 'myprint',
-                                 'subject',
-                                 'pipemess',
-                                 'myprint',
-                                 'myprint'
-                               ],
-          'tests_sleep_if_needed' => [
-                                       'note',
-                                       'tests_sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'is',
-                                       'sleep_if_needed',
-                                       'note',
-                                       'tests_sleep_if_needed'
-                                     ],
-          'tests_output_reset_with' => [
-                                         'note',
-                                         'tests_output_reset_with',
-                                         'is',
-                                         'output_reset_with',
-                                         'is',
-                                         'output_reset_with',
-                                         'is',
-                                         'output_reset_with',
-                                         'is',
-                                         'output_reset_with',
-                                         'is',
-                                         'output_reset_with',
-                                         'note',
-                                         'tests_output_reset_with'
-                                       ],
-          'tests_header_line_normalize' => [
-                                             'note',
-                                             'tests_header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'ok',
-                                             'header_line_normalize',
-                                             'note',
-                                             'tests_header_line_normalize'
-                                           ],
-          'tests_fix_Inbox_INBOX_mapping' => [
-                                               'note',
-                                               'tests_fix_Inbox_INBOX_mapping',
-                                               'my',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'ok',
-                                               'fix_Inbox_INBOX_mapping',
-                                               'note',
-                                               'tests_fix_Inbox_INBOX_mapping'
-                                             ],
-          'notmatch' => [
-                          'my',
-                          'myprint'
-                        ],
-          'office1' => [
-                         'output',
-                         'output'
-                       ],
-          'tests_jux_utf8_list' => [
-                                     'note',
-                                     'tests_jux_utf8_list',
-                                     'is',
-                                     'jux_utf8_list',
-                                     'is',
-                                     'jux_utf8_list',
-                                     'is',
-                                     'jux_utf8_list',
-                                     'is',
-                                     'jux_utf8_list',
-                                     'note',
-                                     'tests_jux_utf8_list',
-                                     'return'
-                                   ],
-          'date_for_host2' => [
-                                'my',
-                                'myprint',
-                                'good_date',
-                                'myprint',
-                                'get_header',
-                                'myprint',
-                                'good_date',
-                                'myprint',
-                                'return'
-                              ],
-          'tests_prefix_seperator_invertion' => [
-                                                  'note',
-                                                  'tests_prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'is',
-                                                  'prefix_seperator_invertion',
-                                                  'note',
-                                                  'tests_prefix_seperator_invertion'
-                                                ],
-          'tests_command_line_nopassword' => [
-                                               'note',
-                                               'tests_command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'myprint',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'myprint',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'ok',
-                                               'command_line_nopassword',
-                                               'note',
-                                               'tests_command_line_nopassword'
-                                             ],
-          'tail' => [
-                      'firstline',
-                      'secondline',
-                      'myprint',
-                      'myprint',
-                      'new',
-                      'myprint',
-                      'isrunning',
-                      'defined',
-                      'myprint',
-                      'sleep'
-                    ],
-          'header_line_normalize' => [
-                                       'my',
-                                       'return'
-                                     ],
-          'tests_cpu_number' => [
-                                  'note',
-                                  'tests_cpu_number',
-                                  'is',
-                                  'is_an_integer',
-                                  'cpu_number',
-                                  'ok',
-                                  'cpu_number',
-                                  'is',
-                                  'cpu_number',
-                                  'is',
-                                  'cpu_number',
-                                  'is',
-                                  'cpu_number',
-                                  'is',
-                                  'cpu_number',
-                                  'note',
-                                  'tests_cpu_number'
-                                ],
-          'tests_time_remaining' => [
-                                      'note',
-                                      'tests_time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'is',
-                                      'time_remaining',
-                                      'note',
-                                      'tests_time_remaining'
-                                    ],
-          'tests_is_an_integer' => [
-                                     'note',
-                                     'tests_is_an_integer',
-                                     'is',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'ok',
-                                     'is_an_integer',
-                                     'note',
-                                     'tests_is_an_integer'
-                                   ],
-          'memory_consumption_ratio' => [
-                                          'memory_consumption',
-                                          'return'
-                                        ],
-          'get_cache' => [
-                           'myprint',
-                           'return',
-                           'myprint',
-                           'cache_dir_fix',
-                           'cache_dir_fix_win',
-                           'myprint',
-                           'bsd_glob',
-                           'myprint',
-                           'myprint',
-                           'my',
-                           'cache_map',
-                           'clean_cache',
-                           'myprint',
-                           'return'
-                         ],
-          'tests_notmatch' => [
-                                'note',
-                                'tests_notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'is',
-                                'notmatch',
-                                'note',
-                                'tests_notmatch'
-                              ],
-          'tests_bytes_display_string' => [
-                                            'note',
-                                            'tests_bytes_display_string',
-                                            'is',
-                                            'bytes_display_string',
-                                            'is',
-                                            'bytes_display_string',
-                                            'is',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'ok',
-                                            'bytes_display_string',
-                                            'myprint',
-                                            'bytes_display_string',
-                                            'note',
-                                            'tests_bytes_display_string'
-                                          ],
-          'add_to_requested_folders' => [
-                                          'return'
-                                        ],
-          'cache_folder' => [
-                              'my',
-                              'myprint',
-                              'convert_sep_to_slash',
-                              'convert_sep_to_slash',
-                              'filter_forbidden_characters',
-                              'myprint',
-                              'return'
-                            ],
-          'decompose_regex' => [
-                                 'my',
-                                 'return',
-                                 'return'
-                               ],
-          'catch_exit' => [
-                            'myprint',
-                            'getppid',
-                            'myprint',
-                            'stats',
-                            'myprint',
-                            'getppid',
-                            'myprint',
-                            'myprint',
-                            'cleanup_before_exit',
-                            'kill',
-                            'exit_clean',
-                            'exit_clean'
-                          ],
-          'catch_print' => [
-                             'myprint',
-                             'getppid'
-                           ],
-          'quota_extract_storage_current_in_bytes' => [
-                                                        'myprint',
-                                                        'return'
-                                                      ],
-          'sleep_if_needed' => [
-                                 'my',
-                                 'max',
-                                 'timesince',
-                                 'sleep_max_messages',
-                                 'myprint',
-                                 'myprint',
-                                 'sleep_max_bytes',
-                                 'min',
-                                 'max',
-                                 'mysprintf',
-                                 'myprint'
-                               ],
-          'match_a_cache_file' => [
-                                    'return',
-                                    '_',
-                                    'return'
-                                  ],
-          'labels_add_subfolder2' => [
-                                       'uniq',
-                                       'quotewords',
-                                       'myprint',
-                                       'join',
-                                       'quotewords',
-                                       'join',
-                                       'quotewords',
-                                       'join'
-                                     ],
-          'pipemess' => [
-                          'string_to_file',
-                          'file_to_string',
-                          'chomp',
-                          'file_to_string',
-                          'length',
-                          'myprint',
-                          'myprint',
-                          'myprint'
-                        ],
-          'tests_hashsynclocal' => [
-                                     'note',
-                                     'tests_hashsynclocal',
-                                     'is',
-                                     'hashsynclocal',
-                                     'is',
-                                     'hashsynclocal',
-                                     'is',
-                                     'hashsynclocal',
-                                     'skip',
-                                     'is',
-                                     'hashsynclocal',
-                                     'ok',
-                                     'mkpath',
-                                     'ok',
-                                     'ok',
-                                     'is',
-                                     'hashsynclocal',
-                                     'is',
-                                     'hashsynclocal',
-                                     'note',
-                                     'tests_hashsynclocal'
-                                   ],
-          'killpid' => [
-                         'myprint',
-                         'myprint',
-                         'kill',
-                         'myprint',
-                         'waitpid',
-                         'myprint',
-                         'waitpid',
-                         'kill',
-                         'myprint',
-                         'waitpid',
-                         'myprint',
-                         'kill',
-                         'myprint',
-                         'myprint'
-                       ],
-          'tests_special_from_folders_hash' => [
-                                                 'note',
-                                                 'tests_special_from_folders_hash',
-                                                 'require_ok',
-                                                 'new',
-                                                 'is',
-                                                 'special_from_folders_hash',
-                                                 'is',
-                                                 'special_from_folders_hash',
-                                                 'is_deeply',
-                                                 'special_from_folders_hash',
-                                                 'mock',
-                                                 'return',
-                                                 'is_deeply',
-                                                 'special_from_folders_hash',
-                                                 'note',
-                                                 'tests_special_from_folders_hash',
-                                                 'return'
-                                               ],
-          'min' => [
-                     'return',
-                     'my',
-                     'is_number',
-                     'elsif',
-                     'return'
-                   ],
-          'debugmemory' => [
-                             'return',
-                             'mysprintf',
-                             'memory_consumption'
-                           ],
-          'tests_remove_pidfile_not_running' => [
-                                                  'note',
-                                                  'tests_remove_pidfile_not_running',
-                                                  'ok',
-                                                  'mkpath',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'touch',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'string_to_file',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'string_to_file',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'is',
-                                                  'string_to_file',
-                                                  'is',
-                                                  'remove_pidfile_not_running',
-                                                  'note',
-                                                  'tests_remove_pidfile_not_running'
-                                                ],
-          'tests_skipmess' => [
-                                'note',
-                                'tests_skipmess',
-                                'ok',
-                                'not',
-                                'skipmess',
-                                'ok',
-                                'not',
-                                'skipmess',
-                                'ok',
-                                'not',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'A',
-                                'n',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'ok',
-                                'skipmess',
-                                'note',
-                                'tests_skipmess'
-                              ],
-          'tests_quota_extract_storage_limit_in_bytes' => [
-                                                            'note',
-                                                            'tests_quota_extract_storage_limit_in_bytes',
-                                                            'ok',
-                                                            'quota_extract_storage_limit_in_bytes',
-                                                            'note',
-                                                            'tests_quota_extract_storage_limit_in_bytes'
-                                                          ],
-          'guess_prefix' => [
-                              'INBOX',
-                              'return'
-                            ],
-          'copy_message' => [
-                              'myprint',
-                              'eta',
-                              'size_filtered',
-                              'debugsleep',
-                              'myprint',
-                              'message_exists',
-                              'stats_update_skip_message',
-                              'myprint',
-                              'debugmemory',
-                              'message_for_host2',
-                              'myprint',
-                              'debugmemory',
-                              'myprint',
-                              'stats_update_skip_message',
-                              'linelengthstuff',
-                              'stats_update_skip_message',
-                              'date_for_host2',
-                              'myprint',
-                              'flags_for_host2',
-                              'myprint',
-                              'append_message_on_host2',
-                              'sync_flags_after_copy',
-                              'myprint',
-                              'debugmemory'
-                            ],
-          'foldersizes' => [
-                             'myprint',
-                             'myprintf',
-                             'jux_utf8',
-                             'myprint',
-                             'myprint',
-                             'IsUnconnected',
-                             'foldersize',
-                             'myprintf',
-                             'myprintf',
-                             'myprintf',
-                             'max',
-                             'myprintf',
-                             'myprintf',
-                             'myprintf',
-                             'bytes_display_string',
-                             'myprintf',
-                             'bytes_display_string',
-                             'myprintf',
-                             'timenext',
-                             'return'
-                           ],
-          'tests_tcpping' => [
-                               'note',
-                               'tests_tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'is',
-                               'tcpping',
-                               'note',
-                               'tests_tcpping'
-                             ],
-          'tests_mailimapclient_connect_bug' => [
-                                                  'note',
-                                                  'tests_mailimapclient_connect_bug',
-                                                  'ok',
-                                                  'new',
-                                                  'is',
-                                                  'Server',
-                                                  'Server',
-                                                  'is',
-                                                  'Port',
-                                                  'Port',
-                                                  'hostname',
-                                                  'skip_macosx',
-                                                  'hostname',
-                                                  'skip',
-                                                  'like',
-                                                  'ref',
-                                                  'connect',
-                                                  'diag',
-                                                  'LastError',
-                                                  'is',
-                                                  'logout',
-                                                  'is',
-                                                  'note',
-                                                  'tests_mailimapclient_connect_bug'
-                                                ],
-          'memory_stress' => [
-                               'get',
-                               'myprintf',
-                               'memory_consumption',
-                               'myprintf',
-                               'memory_consumption'
-                             ],
-          'load_modules' => [
-                              'import',
-                              'import'
-                            ],
-          'is_requested_folder' => [
-                                     'return'
-                                   ],
-          'tests_live_result' => [
-                                   'note',
-                                   'tests_live_result',
-                                   'myprint',
-                                   'myprint',
-                                   'note',
-                                   'tests_live_result'
-                                 ],
-          'homepage' => [
-                          'return'
-                        ],
-          'tests_uidexpunge_or_expunge' => [
-                                             'note',
-                                             'tests_uidexpunge_or_expunge',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'require_ok',
-                                             'new',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'mock',
-                                             'mock',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'mock',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'mock',
-                                             'is',
-                                             'uidexpunge_or_expunge',
-                                             'note',
-                                             'tests_uidexpunge_or_expunge'
-                                           ],
-          'add_header' => [
-                            'return'
-                          ],
-          'tests_sleep_max_bytes' => [
-                                       'note',
-                                       'tests_sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'ok',
-                                       'sleep_max_bytes',
-                                       'note',
-                                       'tests_sleep_max_bytes'
-                                     ],
-          'resolvrev' => [
-                           'resolvrev_with_getaddrinfo',
-                           'return'
-                         ],
-          'tests_match_number' => [
-                                    'note',
-                                    'tests_match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'is',
-                                    'match_number',
-                                    'note',
-                                    'tests_match_number'
-                                  ],
-          'tests_delete1emptyfolders' => [
-                                           'note',
-                                           'tests_delete1emptyfolders',
-                                           'is',
-                                           'delete1emptyfolders',
-                                           'is',
-                                           'delete1emptyfolders',
-                                           'is',
-                                           'delete1emptyfolders',
-                                           'require_ok',
-                                           'new',
-                                           'set_true',
-                                           'is',
-                                           'delete1emptyfolders',
-                                           'set_false',
-                                           'mock',
-                                           'tests_delete1emptyfolders_unit',
-                                           'set_true',
-                                           'tests_delete1emptyfolders_unit',
-                                           'set_false',
-                                           'tests_delete1emptyfolders_unit',
-                                           'set_true',
-                                           'mock',
-                                           'tests_delete1emptyfolders_unit',
-                                           'messages',
-                                           'mock',
-                                           'mock',
-                                           'tests_delete1emptyfolders_unit',
-                                           'messages',
-                                           'mock',
-                                           'mock',
-                                           'tests_delete1emptyfolders_unit',
-                                           'messages',
-                                           'messages',
-                                           'mock',
-                                           'mock',
-                                           'tests_delete1emptyfolders_unit',
-                                           'messages',
-                                           'messages',
-                                           'mock',
-                                           'mock',
-                                           'set_true',
-                                           'tests_delete1emptyfolders_unit',
-                                           'messages',
-                                           'note',
-                                           'tests_delete1emptyfolders'
-                                         ],
-          'imap_id' => [
-                         'has_capability',
-                         'myprint',
-                         'imapsync_id',
-                         'myprint',
-                         'Debug',
-                         'Debug',
-                         'tag_and_run',
-                         'tag_and_run',
-                         'myprint',
-                         'Debug',
-                         'Dump',
-                         'return'
-                       ],
-          'docker_context' => [
-                                'under_docker_context',
-                                'myprint',
-                                'myprint'
-                              ],
-          'tests_timenext' => [
-                                'note',
-                                'tests_timenext',
-                                'is',
-                                'timenext',
-                                'is',
-                                'timenext',
-                                'ok',
-                                'timenext',
-                                'ok',
-                                'timenext',
-                                'ok',
-                                'timenext',
-                                'note',
-                                'tests_timenext'
-                              ],
-          'probe_imapssl' => [
-                               'new',
-                               'sysread',
-                               'close'
-                             ],
-          'tests_format_for_imap_arg' => [
-                                           'note',
-                                           'tests_format_for_imap_arg',
-                                           'ok',
-                                           'format_for_imap_arg',
-                                           'ok',
-                                           'format_for_imap_arg',
-                                           'ok',
-                                           'format_for_imap_arg',
-                                           'note',
-                                           'tests_format_for_imap_arg'
-                                         ],
-          'build_guess_special' => [
-                                     'guess_special',
-                                     'myprint',
-                                     'guess_special',
-                                     'myprint'
-                                   ],
-          'maxsize_setting' => [
-                                 'myprint',
-                                 'appendlimit',
-                                 'all_defined',
-                                 'min',
-                                 'myprint',
-                                 'myprint'
-                               ],
-          'imap_utf7_decode_old' => [
-                                      'return',
-                                      'utf7'
-                                    ],
-          'foldersize_diff_present' => [
-                                         'foldersize_diff_compute',
-                                         'sprintf',
-                                         'sprintf',
-                                         'myprintf',
-                                         'jux_utf8',
-                                         'myprintf',
-                                         'jux_utf8',
-                                         'myprintf'
-                                       ],
-          'examine_folder_and_count' => [
-                                          'examine_folder',
-                                          'count_from_select'
-                                        ],
-          'imapsync_id' => [
-                             'imapsync_version',
-                             'date_from_rcs',
-                             'imapsync_version',
-                             'date_from_rcs',
-                             'format_for_imap_arg',
-                             'myprint',
-                             'return'
-                           ],
-          'tests_imapsync_id' => [
-                                   'note',
-                                   'tests_imapsync_id',
-                                   'ok',
-                                   'imapsync_id',
-                                   'note',
-                                   'tests_imapsync_id'
-                                 ],
-          'uniq' => [
-                      'push'
-                    ],
-          'tests_flags_regex' => [
-                                   'note',
-                                   'tests_flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'defined',
-                                   'q',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'ok',
-                                   'flags_regex',
-                                   'is',
-                                   'flags_regex',
-                                   'is',
-                                   'flags_regex',
-                                   'is',
-                                   'flags_regex',
-                                   'note',
-                                   'tests_flags_regex'
-                                 ],
-          'tests_usage' => [
-                             'note',
-                             'tests_usage',
-                             'like',
-                             'usage',
-                             'myprint',
-                             'like',
-                             'like',
-                             'like',
-                             'is',
-                             'usage',
-                             'note',
-                             'tests_usage'
-                           ],
-          'localhost_info' => [
-                                'my',
-                                'join',
-                                'imapsync_version',
-                                'hostname',
-                                'ram_memory_info',
-                                'mysprintf',
-                                'return'
-                              ],
-          'tests_kill_zero' => [
-                                 'note',
-                                 'tests_kill_zero',
-                                 'skip',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'kill',
-                                 'fork',
-                                 'fork',
-                                 'ok',
-                                 'defined',
-                                 'ok',
-                                 'is',
-                                 'kill',
-                                 'is',
-                                 'waitpid',
-                                 'note',
-                                 'is',
-                                 'kill',
-                                 'myprint',
-                                 'wait',
-                                 'note',
-                                 'tests_kill_zero'
-                               ],
-          'exit_clean' => [
-                            'myprint',
-                            'myprint',
-                            'cleanup_before_exit'
-                          ],
-          'nb_messages_in_1_not_in_2' => [
-                                           'scalar',
-                                           'list_keys_in_2_not_in_1'
-                                         ],
-          'tests_uniq' => [
-                            'note',
-                            'tests_uniq',
-                            'is',
-                            'uniq',
-                            'is_deeply',
-                            'uniq',
-                            'is_deeply',
-                            'uniq',
-                            'is_deeply',
-                            'uniq',
-                            'note',
-                            'tests_uniq'
-                          ],
-          'file_to_array' => [
-                               'my',
-                               'myprint',
-                               'return'
-                             ],
-          'tests_killpid_by_brother' => [
-                                          'note',
-                                          'tests_killpid_by_brother',
-                                          'skip',
-                                          'myprint',
-                                          'fork',
-                                          'ok',
-                                          'myprint',
-                                          'fork',
-                                          'myprint',
-                                          'is',
-                                          'killpid',
-                                          'is',
-                                          'waitpid',
-                                          '_1',
-                                          'is',
-                                          'waitpid',
-                                          '_2',
-                                          'note',
-                                          'tests_killpid_by_brother'
-                                        ],
-          'tests_backslash_caret' => [
-                                       'note',
-                                       'tests_backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'is',
-                                       'backslash_caret',
-                                       'note',
-                                       'tests_backslash_caret'
-                                     ],
-          'parse_header_msg' => [
-                                  'myprint',
-                                  'myprint',
-                                  'fetch',
-                                  'myprint',
-                                  'decompose_header',
-                                  'myprint',
-                                  'myprint',
-                                  'Dump',
-                                  'header_construct',
-                                  'add_header',
-                                  'myprint',
-                                  'md5_base64',
-                                  'myprint',
-                                  'return'
-                                ],
-          'append_message_on_host2' => [
-                                         'my',
-                                         'myprint',
-                                         'debugmemory',
-                                         'max',
-                                         'append_string',
-                                         'myprint',
-                                         'debugmemory',
-                                         'subject',
-                                         'errors_incr',
-                                         'lastuid',
-                                         'synclabels',
-                                         'timesince',
-                                         'bytes_display_string',
-                                         'eta',
-                                         'bytes_display_string',
-                                         'myprintf',
-                                         'sleep_if_needed',
-                                         'myprint',
-                                         'touch',
-                                         'croak',
-                                         'delete_message_on_host1',
-                                         'myprint',
-                                         'return'
-                                       ],
-          'loadavg_windows' => [
-                                 'myprint',
-                                 'myprint',
-                                 'file_to_string',
-                                 'myprint',
-                                 'n',
-                                 'myprint'
-                               ],
-          'tests_folder_routines' => [
-                                       'note',
-                                       'tests_folder_routines',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'ok',
-                                       'add_to_requested_folders',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'is_deeply',
-                                       'remove_from_requested_folders',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'ok',
-                                       'add_to_requested_folders',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'ok',
-                                       'remove_from_requested_folders',
-                                       'ok',
-                                       'is_requested_folder',
-                                       'is_deeply',
-                                       'remove_from_requested_folders',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'ok',
-                                       'add_to_requested_folders',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'is_deeply',
-                                       'sort_requested_folders',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'ok',
-                                       'add_to_requested_folders',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'ok',
-                                       'add_to_requested_folders',
-                                       'qw',
-                                       'qw',
-                                       'ok',
-                                       'compare_lists',
-                                       'sort_requested_folders',
-                                       'note',
-                                       'tests_folder_routines'
-                                     ],
-          'tests_probe_imapssl' => [
-                                     'note',
-                                     'tests_probe_imapssl',
-                                     'is',
-                                     'probe_imapssl',
-                                     'is',
-                                     'probe_imapssl',
-                                     'note',
-                                     'hostname',
-                                     'hostname',
-                                     'skip_macosx',
-                                     'hostname',
-                                     'skip',
-                                     'like',
-                                     'probe_imapssl',
-                                     'ok',
-                                     'resolv',
-                                     'like',
-                                     'probe_imapssl',
-                                     'like',
-                                     'probe_imapssl',
-                                     'note',
-                                     'tests_probe_imapssl'
-                                   ],
-          'comment_on_final_diff_in_2_not_in_1' => [
-                                                     'scalar',
-                                                     'nb_messages_in_2_not_in_1',
-                                                     'myprint',
-                                                     'myprint'
-                                                   ],
-          'list_keys_in_2_not_in_1' => [
-                                         'return'
-                                       ],
-          'tests_msgs_from_maxmin' => [
-                                        'note',
-                                        'tests_msgs_from_maxmin',
-                                        'msgs_from_maxmin',
-                                        'ok',
-                                        'compare_lists',
-                                        'msgs_from_maxmin',
-                                        'ok',
-                                        'compare_lists',
-                                        'msgs_from_maxmin',
-                                        'ok',
-                                        'compare_lists',
-                                        'msgs_from_maxmin',
-                                        'ok',
-                                        'compare_lists',
-                                        'note',
-                                        'tests_msgs_from_maxmin'
-                                      ],
-          'memory_consumption_of_pids_win32' => [
-                                                  'backtick',
-                                                  'myprint',
-                                                  'my',
-                                                  'myprint',
-                                                  'remove_qq',
-                                                  'myprint',
-                                                  'remove_qq',
-                                                  'remove_Ko',
-                                                  'remove_not_num',
-                                                  'myprint',
-                                                  'return'
-                                                ],
-          'add_subfolder1_to_folderrec' => [
-                                             'myprint',
-                                             'myprint',
-                                             'myprint'
-                                           ],
-          'tests_is_number' => [
-                                 'note',
-                                 'tests_is_number',
-                                 'is',
-                                 'is_number',
-                                 'is',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'ok',
-                                 'is_number',
-                                 'note',
-                                 'tests_is_number'
-                               ],
-          'labels' => [
-                        'all_defined',
-                        'fetch_hash',
-                        'Unescape'
-                      ],
-          'tests_million_folders_baby_2' => [
-                                              'note',
-                                              'tests_million_folders_baby_2',
-                                              'myprint',
-                                              'myprint',
-                                              'ok',
-                                              'myprint',
-                                              'note',
-                                              'tests_million_folders_baby_2'
-                                            ],
-          'testsunit' => [
-                           'myprint',
-                           'myprint',
-                           'myprint',
-                           'myprint',
-                           'function_ref'
-                         ],
-          'resynclabels' => [
-                              'my',
-                              'all_defined',
-                              'labels_remove_subfolder1',
-                              'labels_add_subfolder2',
-                              'labels_remove_special',
-                              'myprint',
-                              'myprint',
-                              'myprint',
-                              'Debug',
-                              'store',
-                              'Debug'
-                            ],
-          'select_msgs_by_search' => [
-                                       'messages',
-                                       'myprint',
-                                       'messages',
-                                       'messages',
-                                       'return',
-                                       'search',
-                                       'return',
-                                       'select_msgs_by_age',
-                                       'return'
-                                     ],
-          'tests_nthline' => [
-                               'note',
-                               'tests_nthline',
-                               'is',
-                               'nthline',
-                               'is',
-                               'nthline',
-                               'ok',
-                               'mkpath',
-                               'is',
-                               'string_to_file',
-                               'is',
-                               'nthline',
-                               'note',
-                               'tests_nthline'
-                             ],
-          'tests_labels_remove_special' => [
-                                             'note',
-                                             'tests_labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'is',
-                                             'labels_remove_special',
-                                             'note',
-                                             'tests_labels_remove_special'
-                                           ],
-          'init_imap' => [
-                           'my',
-                           'new',
-                           'Debug_fh',
-                           'set_ssl',
-                           'set_tls',
-                           'connect',
-                           'Clear',
-                           'Server',
-                           'Port',
-                           'Fast_io',
-                           'Buffer',
-                           'Uid',
-                           'Peek',
-                           'Debug',
-                           'Showcredentials',
-                           'Timeout',
-                           'Reconnectretry',
-                           'Ignoresizeerrors',
-                           'Maxcommandlength',
-                           'return'
-                         ],
-          'tests_date_from_rcs' => [
-                                     'note',
-                                     'tests_date_from_rcs',
-                                     'ok',
-                                     'date_from_rcs',
-                                     'note',
-                                     'tests_date_from_rcs'
-                                   ],
-          'tests_remove_last_char_if_is' => [
-                                              'note',
-                                              'tests_remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'is',
-                                              'remove_last_char_if_is',
-                                              'note',
-                                              'tests_remove_last_char_if_is'
-                                            ],
-          'tests_get_cache' => [
-                                 'note',
-                                 'tests_get_cache',
-                                 'ok',
-                                 'not',
-                                 'get_cache',
-                                 'ok',
-                                 'rmtree',
-                                 'ok',
-                                 'mkpath',
-                                 'qw',
-                                 'ok',
-                                 'touch',
-                                 'my',
-                                 'ok',
-                                 'get_cache',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'touch',
-                                 'ok',
-                                 'get_cache',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'rmtree',
-                                 'ok',
-                                 'mkpath',
-                                 'qw',
-                                 'ok',
-                                 'touch',
-                                 'ok',
-                                 'get_cache',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'compare_lists',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'ok',
-                                 'note',
-                                 'tests_get_cache'
-                               ],
-          'errors_incr' => [
-                             'errors_log',
-                             'myprint',
-                             'myprint',
-                             'myprint',
-                             'errorsdump',
-                             'errors_log',
-                             'errorsdump',
-                             'myprint',
-                             'exit_clean'
-                           ],
-          'quota_extract_storage_limit_in_bytes' => [
-                                                      'myprint',
-                                                      'return'
-                                                    ],
-          'imapsync_context' => [
-                                  'under_docker_context',
-                                  'under_cgi_context',
-                                  'under_docker_context',
-                                  'under_cgi_context'
-                                ],
-          'easyany' => [
-                         'myprint',
-                         'gmail12',
-                         'myprint',
-                         'gmail1',
-                         'myprint',
-                         'gmail2',
-                         'office1',
-                         'office2',
-                         'exchange1',
-                         'exchange2',
-                         'domino1',
-                         'domino2'
-                       ],
-          'tests_jux_utf8' => [
-                                'note',
-                                'tests_jux_utf8',
-                                'encoding',
-                                'encoding',
-                                'ok',
-                                'find_encoding',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'encode',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'is',
-                                'jux_utf8',
-                                'note',
-                                'tests_jux_utf8'
-                              ],
-          'nb_messages_in_2_not_in_1' => [
-                                           'scalar',
-                                           'list_keys_in_2_not_in_1'
-                                         ],
-          'tests_template' => [
-                                'note',
-                                'tests_template',
-                                'is',
-                                'is_deeply',
-                                'is_deeply',
-                                'note',
-                                'tests_template'
-                              ],
-          'remove_Ko' => [
-                           'return',
-                           'return'
-                         ],
-          'loadavg_freebsd' => [
-                                 'myprint',
-                                 'myprint',
-                                 'firstline',
-                                 'myprint'
-                               ],
-          'count_from_select' => [
-                                   'myprint',
-                                   'return',
-                                   'return'
-                                 ],
-          'tests_teelaunch' => [
-                                 'note',
-                                 'tests_teelaunch',
-                                 'is',
-                                 'teelaunch',
-                                 'is',
-                                 'teelaunch',
-                                 'is',
-                                 'teelaunch',
-                                 'isa_ok',
-                                 'teelaunch',
-                                 'is',
-                                 'print',
-                                 'is',
-                                 'file_to_string',
-                                 'is',
-                                 'print',
-                                 'is',
-                                 'file_to_string',
-                                 'note',
-                                 'tests_teelaunch'
-                               ],
-          'tests_not_long_imapsync_version_public' => [
-                                                        'note',
-                                                        'tests_not_long_imapsync_version_public',
-                                                        'is',
-                                                        'is_a_release_number',
-                                                        'not_long_imapsync_version_public',
-                                                        'note',
-                                                        'tests_not_long_imapsync_version_public'
-                                                      ],
-          'imap_utf7_encode_old' => [
-                                      'utf8',
-                                      'return'
-                                    ],
-          'tests_max_line_length' => [
-                                       'note',
-                                       'tests_max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'ok',
-                                       'max_line_length',
-                                       'note',
-                                       'tests_max_line_length'
-                                     ],
-          'total_bytes_max_reached' => [
-                                         'return',
-                                         'myprint',
-                                         'return'
-                                       ],
-          'mypod2usage' => [
-                             'pod2usage',
-                             'qw'
-                           ],
-          'version_from_rcs' => [
-                                  'return'
-                                ],
-          'labels_remove_special' => [
-                                       'quotewords',
-                                       'myprint',
-                                       'join'
-                                     ],
-          'foldersizes_diff_list' => [
-                                       'imap2_folder_name',
-                                       'foldersize_diff_present'
-                                     ],
-          'tests_integer_or_1' => [
-                                    'note',
-                                    'tests_integer_or_1',
-                                    'is',
-                                    'integer_or_1',
-                                    'is',
-                                    'integer_or_1',
-                                    'is',
-                                    'integer_or_1',
-                                    'is',
-                                    'integer_or_1',
-                                    'is',
-                                    'integer_or_1',
-                                    'note',
-                                    'tests_integer_or_1'
-                                  ],
-          'decompose_header{' => [
-                                   'myprint',
-                                   's',
-                                   'myprint',
-                                   'elsif',
-                                   'myprint',
-                                   'myprint',
-                                   'Dump',
-                                   'return'
-                                 ],
-          'tests_reconnect_12_if_needed' => [
-                                              'note',
-                                              'tests_reconnect_12_if_needed',
-                                              'new',
-                                              'new',
-                                              'Server',
-                                              'Server',
-                                              'is',
-                                              'reconnect_12_if_needed',
-                                              'is',
-                                              'is',
-                                              'note',
-                                              'tests_reconnect_12_if_needed'
-                                            ],
-          'tests_separator_invert' => [
-                                        'note',
-                                        'tests_separator_invert',
-                                        'ok',
-                                        'not',
-                                        'separator_invert',
-                                        'ok',
-                                        'not',
-                                        'separator_invert',
-                                        'ok',
-                                        'not',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'ok',
-                                        'separator_invert',
-                                        'note',
-                                        'tests_separator_invert'
-                                      ],
-          'tests_resolvrev' => [
-                                 'note',
-                                 'tests_resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'is',
-                                 'resolvrev',
-                                 'note',
-                                 'tests_resolvrev'
-                               ],
-          'not_long_imapsync_version_public' => [
-                                                  'myprint',
-                                                  'sigaction',
-                                                  'new',
-                                                  'myprint',
-                                                  'imapsync_version_public',
-                                                  'myprint',
-                                                  'myprint',
-                                                  'myprint',
-                                                  'return',
-                                                  'return',
-                                                  'return'
-                                                ],
-          'ram_memory_info' => [
-                                 'return',
-                                 'sprintf',
-                                 'get',
-                                 'get'
-                               ],
-          'foldersizes_at_the_beggining_old' => [
-                                                  'myprint',
-                                                  'foldersizes',
-                                                  'foldersizes',
-                                                  'all_defined',
-                                                  'errors_incr',
-                                                  'mysprintf',
-                                                  'errors_incr'
-                                                ],
-          'imapsping' => [
-                           'tcpping'
-                         ],
-          'foldersizes_at_the_beggining' => [
-                                              'myprint',
-                                              'foldersizes_diff_list',
-                                              'foldersizes_total',
-                                              'all_defined',
-                                              'errors_incr',
-                                              'mysprintf',
-                                              'errors_incr'
-                                            ],
-          'convert_sep_to_slash' => [
-                                      'return'
-                                    ],
-          'tests_touch' => [
-                             'note',
-                             'tests_touch',
-                             'ok',
-                             'mkpath',
-                             'ok',
-                             'touch',
-                             'ok',
-                             'touch',
-                             'ok',
-                             'touch',
-                             'ok',
-                             'touch',
-                             'ok',
-                             'touch',
-                             'note',
-                             'tests_touch'
-                           ],
-          'eta_print' => [
-                           'eta',
-                           'myprint'
-                         ],
-          'tests_count_0s' => [
-                                'note',
-                                'tests_count_zeros',
-                                'is',
-                                'count_0s',
-                                'is',
-                                'count_0s',
-                                'is',
-                                'count_0s',
-                                'is',
-                                'count_0s',
-                                'is',
-                                'count_0s',
-                                'note',
-                                'tests_count_zeros'
-                              ],
-          'output' => [
-                        'join'
-                      ],
-          'sslcheck' => [
-                          'myprint',
-                          'myprint',
-                          'probe_imapssl',
-                          'myprint',
-                          'myprint',
-                          'myprint',
-                          'probe_imapssl',
-                          'myprint',
-                          'myprint'
-                        ],
-          'tests_resynclabels' => [
-                                    'note',
-                                    'tests_resynclabels',
-                                    'is',
-                                    'resynclabels',
-                                    'is',
-                                    'resynclabels',
-                                    'is',
-                                    'resynclabels',
-                                    'is',
-                                    'resynclabels',
-                                    'require_ok',
-                                    'new',
-                                    'mock',
-                                    'mock',
-                                    'is',
-                                    'resynclabels',
-                                    'note',
-                                    'tests_resynclabels'
-                                  ],
-          'date_from_rcs' => [
-                               'qw',
-                               's',
-                               'myprint',
-                               'myprint',
-                               'myprint',
-                               'return'
-                             ],
-          'resolv_with_getaddrinfo' => [
-                                         'getaddrinfo',
-                                         'myprint',
-                                         'while',
-                                         'getnameinfo',
-                                         'NI_NUMERICHOST',
-                                         'NIx_NOSERV',
-                                         'myprint',
-                                         'myprint',
-                                         'getnameinfo',
-                                         'NIx_NOSERV',
-                                         'myprint'
-                                       ],
-          'cache_dir_fix_win' => [
-                                   'myprint',
-                                   'return'
-                                 ],
-          'tests_filter_forbidden_characters' => [
-                                                   'note',
-                                                   'tests_filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'skip',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'skip',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'ok',
-                                                   'filter_forbidden_characters',
-                                                   'note',
-                                                   'tests_filter_forbidden_characters'
-                                                 ],
-          'tests_under_cgi_context' => [
-                                         'note',
-                                         'tests_under_cgi_context',
-                                         'is',
-                                         'under_cgi_context',
-                                         'is',
-                                         'under_cgi_context',
-                                         'is',
-                                         'under_cgi_context',
-                                         'is',
-                                         'under_cgi_context',
-                                         'note',
-                                         'tests_under_cgi_context'
-                                       ],
-          'command_line_nopassword' => [
-                                         'mask_password_value',
-                                         'return',
-                                         'return',
-                                         'mask_password_value',
-                                         'return'
-                                       ],
-          'remove_not_num' => [
-                                'myprint',
-                                'return'
-                              ],
-          'testsdebug' => [
-                            'note',
-                            'testsdebug',
-                            'ok',
-                            'rmtree',
-                            'tests_check_binary_embed_all_dyn_libs',
-                            'tests_killpid_by_parent',
-                            'tests_killpid_by_brother',
-                            'tests_kill_zero',
-                            'tests_connect_socket',
-                            'tests_probe_imapssl',
-                            'tests_always_fail',
-                            'note',
-                            'testsdebug',
-                            'done_testing'
-                          ],
-          'tests_decompose_header{' => [
-                                         'note',
-                                         'tests_decompose_header',
-                                         'decompose_header',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'not',
-                                         'decompose_header',
-                                         'ok',
-                                         'decompose_header',
-                                         'ok',
-                                         'decompose_header',
-                                         'ok',
-                                         'ok',
-                                         'decompose_header',
-                                         'ok',
-                                         'ok',
-                                         'ok',
-                                         'note',
-                                         'tests_decompose_header'
-                                       ],
-          'tests_sleep_max_messages' => [
-                                          'note',
-                                          'tests_sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'ok',
-                                          'sleep_max_messages',
-                                          'note',
-                                          'tests_sleep_max_messages'
-                                        ],
-          'exchange2' => [
-                           'output',
-                           'output',
-                           'output'
-                         ],
-          'delete_message_on_host1' => [
-                                         'my',
-                                         'delete_messages_on_any'
-                                       ],
-          'set_regextrans2_for_subfolder2' => [
-                                                'q',
-                                                'q',
-                                                'q',
-                                                'myprint'
-                                              ],
-          'select_folder' => [
-                               'select',
-                               'errors_incr',
-                               'return',
-                               'return'
-                             ]
-        };
diff --git a/W/imapsync_functions_tree_ppi.txt b/W/imapsync_functions_tree_ppi.txt
deleted file mode 100644
index 84506d7..0000000
--- a/W/imapsync_functions_tree_ppi.txt
+++ /dev/null
@@ -1,5956 +0,0 @@
-single_sync
-	timestart
-	rcs
-	memory_consumption_at_start
-	cpu_number
-	loaddelay
-	cpu_number
-	loadavg
-	total_bytes_transferred
-	total_bytes_skipped
-	nb_msg_transferred
-	nb_msg_skipped
-	h1_nb_msg_deleted
-	h1_nb_msg_noheader
-	h1_nb_msg_start
-	h1_bytes_start
-	h2_nb_msg_start
-	h2_bytes_start
-	h1_nb_msg_processed
-	h2_nb_msg_crossdup
-	nb_errors
-	Jan
-	cgibegin
-	docker_context
-	cgibuildheader
-	myprint
-	output
-	output_reset_with
-	exit
-	releasecheck
-	releasecheck
-	releasecheck
-	version
-	myprint
-	imapsync_version
-	exit
-	debugenv
-	load_modules
-	after_get_options
-	cgisetcontext
-	easyany
-	sanitize
-	sanitize
-	sanitize
-	sanitize
-	tmpdir
-	testsexit
-	testslive_init
-	testslive
-	testslive6_init
-	testslive6
-	pidfile
-	install_signals
-	log
-	log
-	log
-	errorsdump
-	errorsdump
-	errorsdump
-	errorsmax
-	errorsmax
-	errorsmax
-	binmode
-	log
-	setlogfile
-	teelaunch
-	tee
-	tee
-	IO
-	timestart
-	timebefore
-	timestart
-	timestart
-	myprint
-	localhost_info
-	myprint
-	myprint
-	myprint
-	log
-	myprint
-	join
-	myprint
-	myprint
-	myprint
-	releasecheck
-	checkselectable
-	checkselectable
-	checkselectable
-	checkfoldersexist
-	checkfoldersexist
-	checkfoldersexist
-	expungeaftereach
-	expungeaftereach
-	expungeaftereach
-	abletosearch
-	abletosearch
-	abletosearch
-	abletosearch1
-	abletosearch1
-	abletosearch1
-	abletosearch
-	abletosearch2
-	abletosearch2
-	abletosearch2
-	abletosearch
-	abletosearch1
-	showpasswords
-	showpasswords
-	showpasswords
-	fixslash2
-	fixslash2
-	fixslash2
-	automap
-	automap
-	automap
-	delete2duplicates
-	delete2
-	delete2duplicates
-	maxmessagespersecond
-	maxmessagespersecond
-	maxmessagespersecond
-	maxbytespersecond
-	maxbytespersecond
-	maxbytespersecond
-	sslcheck
-	sslcheck
-	sslcheck
-	myprint
-	banner_imapsync
-	myprint
-	myprint
-	output
-	output_reset_with
-	do_valid_directory
-	tmpdir
-	remove_pidfile_not_running
-	pidfile
-	tail
-	nb_errors
-	exit_clean
-	exit
-	myprint
-	exit
-	abort
-	abort
-	simulong
-	simulong
-	simulong
-	cgiload
-	tmpdir_fix_colon_bug
-	check_lib_version
-	exit_clean
-	resyncflags
-	resyncflags
-	resyncflags
-	resyncflags
-	myprint
-	myprint
-	sslcheck
-	port1
-	ssl1
-	port2
-	ssl2
-	debug
-	defined
-	defined
-	Readonly
-	Readonly
-	IO::Socket::SSL::SSL_VERIFY_NONE
-	debugssl
-	debugssl
-	ssl1
-	ssl2
-	tls1
-	tls2
-	myprint
-	ssl1
-	myprint
-	myprint
-	ssl2
-	myprint
-	myprint
-	id
-	id
-	id
-	justconnect
-	user1
-	user2
-	host1
-	host2
-	myprint
-	debugmemory
-	exit_clean
-	delete1
-	expunge1
-	myprint
-	expunge1
-	myprint
-	uidexpunge2
-	myprint
-	nb_errors
-	exit_clean
-	delete2
-	delete2duplicates
-	uidexpunge2
-	Mail::IMAPClient
-	myprint
-	uidexpunge2
-	expunge2
-	myprint
-	expunge2
-	delete1
-	delete2
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	myprint
-	defined
-	defined
-	defined
-	defined
-	missing_option
-	defined
-	missing_option
-	myprint
-	myprint
-	h1
-	timeout
-	h1
-	timeout
-	h1
-	timeout
-	myprint
-	h2
-	timeout
-	h2
-	timeout
-	h2
-	timeout
-	myprint
-	justfolders
-	foldersizes
-	justfoldersizes
-	foldersizes
-	foldersizesatend
-	foldersizes
-	defined
-	foldersizes
-	foldersizes
-	foldersizesatend
-	defined
-	foldersizesatend
-	foldersizesatend
-	foldersizes
-	uc
-	myprint
-	myprint
-	get_password1
-	get_password2
-	dry_message
-	dry
-	dry_message
-	search1
-	search2
-	push
-	defined
-	myprint
-	defined
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	defined
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	defined
-	exit_clean
-	myprint
-	myprint
-	defined
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	defined
-	nb_errors
-	exit_clean
-	myprint
-	imap1
-	host1
-	port1
-	user1
-	password1
-	h1
-	timeout
-	ssl1
-	tls1
-	h1
-	imap2
-	host2
-	port2
-	user2
-	password2
-	h2
-	timeout
-	ssl2
-	tls2
-	h2
-	debug
-	imap1
-	debug
-	imap2
-	imap1
-	nb_errors
-	exit_clean
-	myprint
-	imap2
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	imap1
-	myprint
-	imap2
-	imap_id_stuff
-	quota
-	imap2
-	maxsize_setting
-	justlogin
-	imap1
-	imap2
-	exit_clean
-	imap1
-	imap2
-	myprint
-	myprint
-	h2_folders_all_UPPER
-	uc
-	h1_folders_all
-	h2_folders_all
-	private_folders_separators_and_prefixes
-	imap1
-	imap2
-	defined
-	subfolder1
-	subfolder1
-	defined
-	subfolder2
-	subfolder2
-	push
-	regextrans2
-	folder
-	folder
-	folder
-	folder
-	add_to_requested_folders
-	folder
-	add_to_requested_folders
-	keys
-	scalar
-	add_to_requested_folders
-	imap1
-	myprint
-	add_to_requested_folders
-	scalar
-	add_to_requested_folders
-	myprint
-	scalar
-	remove_from_requested_folders
-	myprint
-	h1_folders_wanted
-	sort_requested_folders
-	checkfoldersexist
-	myprint
-	h1_folders_wanted
-	debug
-	debugfolders
-	myprint
-	push
-	h1_folders_wanted
-	myprint
-	checkselectable
-	myprint
-	h1_folders_wanted
-	debug
-	debugfolders
-	imap1
-	myprint
-	push
-	h1_folders_wanted
-	debug
-	debugfolders
-	myprint
-	f1f2h
-	f1f2
-	automap
-	h1_folders_wanted
-	subfolder2
-	h2_prefix
-	subfolder2
-	subfolder2
-	myprint
-	myprint
-	imap1
-	imap2
-	myprint
-	sort
-	myprint
-	keys
-	f1f2auto
-	myprint
-	keys
-	f1f2auto
-	f1f2auto
-	myprintf
-	myprint
-	keys
-	f1f2h
-	myprint
-	keys
-	f1f2h
-	f1f2h
-	myprintf
-	myprint
-	exit_clean
-	justfolderlists
-	exit_clean
-	justautomap
-	debugsleep
-	skipemptyfolders
-	myprint
-	foldersizes
-	foldersizes_at_the_beggining
-	justfoldersizes
-	exit_clean
-	stats
-	delete1emptyfolders
-	delete1emptyfolders
-	delete_folders_in_2_not_in_1
-	h1_folders_wanted
-	myprint
-	begin_transfer_time
-	h2_folders_of_md5
-	h1_folders_wanted
-	h1_current_folder
-	eta_print
-	h2_current_folder
-	myprintf
-	myprint
-	debugmemory
-	select_folder
-	imap1
-	debugsleep
-	imap1
-	myprint
-	skipemptyfolders
-	myprint
-	skipemptyfolders
-	imap1
-	search1
-	myprint
-	create_folder
-	imap2
-	acls_sync
-	select_folder
-	imap2
-	create_folder
-	imap2
-	imap2
-	imap2
-	myprint
-	myprint
-	expunge1
-	myprint
-	dry
-	imap1
-	myprint
-	dry
-	imap2
-	justfolders
-	imap1
-	search1
-	abletosearch1
-	myprint
-	debug
-	debug
-	imap2
-	search2
-	abletosearch2
-	myprint
-	debug
-	debug
-	imap1
-	imap2
-	myprint
-	mkpath
-	myprint
-	debug
-	delete
-	delete
-	debug
-	imap1
-	debug
-	undef
-	debug
-	synclabels
-	resynclabels
-	push
-	abletosearch1
-	imap1
-	imap1
-	imap1
-	debug
-	imap1
-	errors_incr
-	imap1
-	myprint
-	total_bytes_skipped
-	nb_msg_skipped
-	h1_nb_msg_noheader
-	h1_nb_msg_processed
-	push
-	nb_msg_skipped
-	h1_nb_msg_processed
-	myprint
-	debug
-	debug
-	imap2
-	debug
-	debug
-	synclabels
-	resynclabels
-	push
-	abletosearch2
-	imap2
-	imap2
-	imap2
-	debug
-	imap2
-	myprint
-	push
-	keys
-	h2_folders_of_md5
-	keys
-	h1_folders_of_md5
-	myprint
-	debug
-	debug
-	delete2duplicates
-	myprint
-	push
-	uidexpunge2
-	dry
-	imap2
-	expunge2
-	myprint
-	imap2
-	dry
-	expunge2
-	myprint
-	imap2
-	dry
-	delete2
-	myprint
-	push
-	uidexpunge2
-	dry
-	imap2
-	myprint
-	push
-	uidexpunge2
-	dry
-	imap2
-	expunge2
-	myprint
-	imap2
-	dry
-	expunge2
-	myprint
-	imap2
-	dry
-	delete2
-	myprint
-	debug
-	debug
-	myprint
-	myprint
-	myprint
-	keys
-	debug
-	exists
-	debug
-	myprint
-	push
-	uidexpunge2
-	dry
-	imap2
-	expunge2
-	myprint
-	imap2
-	dry
-	expunge2
-	myprint
-	imap2
-	dry
-	imap2
-	debug
-	exists
-	h2_folders_of_md5
-	delete1
-	expungeaftereach
-	push
-	dry
-	h2_folders_of_md5
-	delete2
-	exists
-	myprint
-	total_bytes_max_reached
-	exists
-	debug
-	touch
-	exists
-	h2_folders_of_md5
-	h2_folders_of_md5
-	debug
-	h2_nb_msg_crossdup
-	total_bytes_skipped
-	nb_msg_skipped
-	h1_nb_msg_processed
-	exists
-	resyncflags
-	sync_flags_fir
-	debug
-	resynclabels
-	resynclabels
-	delete1
-	push
-	delete_message_on_host1
-	expunge1
-	delete1
-	resyncflags
-	sync_flags_fir
-	total_bytes_skipped
-	nb_msg_skipped
-	h1_nb_msg_processed
-	sort
-	debug
-	delete2
-	myprint
-	expunge1
-	myprint
-	dry
-	imap1
-	expunge2
-	myprint
-	dry
-	imap2
-	debug
-	eta_print
-	myprint
-	delete1
-	delete1emptyfolders
-	delete1emptyfolders
-	debug
-	debugfolders
-	foldersizesatend
-	myprint
-	foldersizesatend
-	imap1
-	imap1
-	imap2
-	imap2
-	stats
-	myprint
-	errorsdump
-	nb_errors
-	errorsdump
-	tests_live_result
-	nb_errors
-	testslive
-	testslive6
-	nb_errors
-	exit_clean
-	exit_clean
-myprint
-	print
-	tee
-myprintf
-	printf
-	tee
-mysprintf
-output_start
-	output
-	output
-	output
-tests_output_start
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-tests_output
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-output
-	output
-	output
-tests_output_reset_with
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-output_reset_with
-	output
-	output
-pidfile
-	pidfilelocking
-	pidfilelocking
-	pidfilelocking
-	host1
-	user1
-	host2
-	user2
-	slash_to_underscore
-	slash_to_underscore
-	pidfile
-	pidfile
-	pidfile
-	tmpdir
-tests_kill_zero
-	note
-	skip
-	is
-	is
-	is
-	is
-	is
-	is
-	sleep
-	exit
-	ok
-	defined
-	ok
-	is
-	is
-	note
-	is
-	myprint
-	exit
-	wait
-	note
-tests_killpid_by_parent
-	note
-	skip
-	is
-	undef
-	note
-	is
-	undef
-	myprint
-	exit
-	ok
-	defined
-	ok
-	is
-	is
-	is
-	myprint
-	sleep
-	myprint
-	sleep
-	ok
-	myprint
-	exit
-	note
-tests_killpid_by_brother
-	note
-	skip
-	myprint
-	exit
-	myprint
-	sleep
-	sleep
-	ok
-	myprint
-	exit
-	myprint
-	is
-	sleep
-	exit
-	is
-	is
-	note
-killpid
-	myprint
-	myprint
-	kill
-	myprint
-	kill
-	sleep
-	waitpid
-	myprint
-	kill
-	myprint
-	kill
-	sleep
-	waitpid
-	myprint
-	kill
-	myprint
-	myprint
-tests_abort
-	note
-	is
-	undef
-	note
-abort
-	pidfile
-	myprint
-	exit
-	pidfile
-	myprint
-	exit
-	killpid
-	exit
-under_docker_context
-docker_context
-	debug
-	pidfile
-	log
-	debug
-	chdir
-cgibegin
-	CGI
-	CGI::Carp
-	cgi
-tests_under_cgi_context
-	note
-	do
-	delete
-	SERVER_SOFTWARE
-	is
-	undef
-	do
-	SERVER_SOFTWARE
-	is
-	do
-	delete
-	SERVER_SOFTWARE
-	is
-	undef
-	do
-	SERVER_SOFTWARE
-	is
-	note
-under_cgi_context
-	SERVER_SOFTWARE
-cgibuildheader
-	cgi
-	cgi
-	-name
-	abort
-	cgi
-	-type
-	loaddelay
-	cgi
-	-type
-	cgi
-	-type
-	output_start
-cgiload
-	abort
-	loaddelay
-	nb_errors
-	exit_clean
-tests_set_umask
-	note
-	is
-	undef
-	is
-	umask
-	note
-set_umask
-	output
-tests_umask_str
-	note
-	is
-	umask_str
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	skip
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-umask_str
-	defined
-	umask
-	sprintf
-tests_umask
-	note
-	is
-	umask
-	is
-	is
-	is
-	oct
-	is
-	oct
-	skip
-	is
-	oct
-	is
-	oct
-	ok
-	defined
-	is
-	note
-cgisetcontext
-	output
-	set_umask
-	regextrans2
-	pidfilelocking
-	errorsmax
-	releasecheck
-	releasecheck
-	releasecheck
-	showpasswords
-	hashfile
-	tmpdir
-	chdir
-	cgioutputenvcontext
-	debug
-	debug
-	debug
-	skipemptyfolders
-	skipemptyfolders
-	skipemptyfolders
-	maxsize
-	maxsize
-	maxsize
-	tail
-	tail
-	tail
-	addheader
-	addheader
-	addheader
-cgioutputenvcontext
-	output
-debugsleep
-	defined
-	debugsleep
-	myprint
-	sleep
-	debugsleep
-tests_foldersize
-	note
-	is
-	undef
-	note
-foldersize
-	errors_incr
-	undef
-	errors_incr
-	errors_incr
-	keys
-foldersizes
-	myprint
-	myprintf
-	h2_folders_all_UPPER
-	uc
-	myprint
-	myprint
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-foldersize_diff_present
-	folder1
-	size
-	foldersize_diff_compute
-	defined
-	folder1
-	size
-	folder1
-	size
-	folder1
-	nb_msgs
-	folder1
-	biggest
-	defined
-	folder2
-	size
-	folder2
-	size
-	folder2
-	nb_msgs
-	folder2
-	biggest
-	myprintf
-	myprintf
-	myprintf
-	folder1
-	size_diff
-	folder1
-	nb_msgs_diff
-	folder1
-	biggest_diff
-foldersize_diff_compute
-	exists
-	folder1
-	size
-	imap1
-	search1
-	abletosearch1
-	folder1
-	size
-	folder1
-	nb_msgs
-	folder1
-	biggest
-	folder1
-	size
-	folder1
-	nb_msgs
-	folder1
-	biggest
-	exists
-	h2_folders_all_UPPER
-	uc
-	folder2
-	size
-	imap2
-	search2
-	abletosearch2
-	folder2
-	size
-	folder2
-	nb_msgs
-	folder2
-	biggest
-	folder2
-	size
-	folder2
-	nb_msgs
-	folder2
-	biggest
-	folder1
-	size_diff
-	folder1
-	nb_msgs_diff
-	folder1
-	biggest_diff
-	folder2
-	size_diff
-	folder2
-	nb_msgs_diff
-	folder2
-	biggest_diff
-diff
-add
-foldersizes_diff_list
-	h1_folders_wanted
-	foldersize_diff_present
-foldersizes_total
-	h1_folders_wanted
-	folder1
-	size
-	folder1
-	nb_msgs
-	folder1
-	biggest
-	folder2
-	size
-	folder2
-	nb_msgs
-	folder2
-	biggest
-	myprintf
-	myprintf
-	myprint
-	myprintf
-	myprintf
-	myprint
-	myprintf
-	myprintf
-	myprint
-	myprintf
-	myprintf
-	myprint
-	myprintf
-foldersizesatend_old
-	timenext
-	imap1
-	imap2
-	imap2
-	h2_folders_all_UPPER
-	uc
-	imap1
-	search1
-	abletosearch1
-	h1_folders_wanted
-	imap2
-	search2
-	abletosearch2
-	errors_incr
-foldersizesatend
-	timenext
-	imap1
-	imap2
-	imap2
-	h2_folders_all_UPPER
-	uc
-	foldersizes_diff_list
-	errors_incr
-foldersizes_at_the_beggining
-	myprint
-	foldersizes_diff_list
-	h1_nb_msg_start
-	h1_bytes_start
-	h2_nb_msg_start
-	h2_bytes_start
-	h1_nb_msg_start
-	h1_bytes_start
-	h2_nb_msg_start
-	h2_bytes_start
-	errors_incr
-	foldersizes
-	foldersizesatend
-	h2
-	quota_limit_bytes
-	h1_bytes_start
-	h1_bytes_start
-	errors_incr
-foldersizes_at_the_beggining_old
-	myprint
-	h1_nb_msg_start
-	h1_bytes_start
-	imap1
-	search1
-	abletosearch1
-	h1_folders_wanted
-	h2_nb_msg_start
-	h2_bytes_start
-	imap2
-	search2
-	abletosearch2
-	h1_nb_msg_start
-	h1_bytes_start
-	h2_nb_msg_start
-	h2_bytes_start
-	errors_incr
-	foldersizes
-	foldersizesatend
-	h2
-	quota_limit_bytes
-	h1_bytes_start
-	h1_bytes_start
-	errors_incr
-total_bytes_max_reached
-	exitwhenover
-	total_bytes_transferred
-	exitwhenover
-	myprint
-tests_mock_capability
-	note
-	ok
-	ok
-	is
-	undef
-	ok
-	mock_capability
-	is
-	undef
-	ok
-	mock_capability
-	is
-	ok
-	mock_capability
-	is
-	ok
-	mock_capability
-	is_deeply
-	ok
-	mock_capability
-	is_deeply
-	ok
-	mock_capability
-	is_deeply
-	ok
-	mock_capability
-	is_deeply
-	note
-sig_install_toggle_sleep
-	sig_install
-mock_capability
-	require_ok
-tests_capability_of
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	note
-capability_of
-tests_search_in_array
-	note
-	is
-	undef
-	is
-	is
-	is
-	note
-search_in_array
-tests_appendlimit_from_capability
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	undef
-	note
-appendlimit_from_capability
-	myprint
-	is_an_integer
-tests_appendlimit
-	note
-	is
-	undef
-	is
-	undef
-	imap2
-	is
-	note
-appendlimit
-	imap2
-	defined
-	myprint
-tests_maxsize_setting
-	note
-	is
-	undef
-	is
-	undef
-	maxsize
-	is
-	imap2
-	is
-	is
-	maxsize
-	appendlimit
-	is
-	is
-	maxsize
-	imap2
-	maxsize
-	is
-	imap2
-	maxsize
-	is
-	note
-maxsize_setting
-	defined
-	appendlimit
-	myprint
-	appendlimit
-	all_defined
-	appendlimit
-	maxsize
-	maxsize
-	appendlimit
-	myprint
-	maxsize
-	maxsize
-	defined
-	appendlimit
-	myprint
-	maxsize
-	appendlimit
-	maxsize
-	defined
-	maxsize
-	maxsize
-all_defined
-tests_all_defined
-	note
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	note
-tests_hashsynclocal
-	note
-	host1
-	is
-	undef
-	hashfile
-	is
-	undef
-	hashfile
-	is
-	undef
-	skip
-	hashfile
-	is
-	undef
-	ok
-	hashfile
-	ok
-	ok
-	is
-	is
-	note
-hashsynclocal
-	hashfile
-	myprint
-tests_hashsync
-	note
-	is
-	host1
-	is
-	is
-	host2
-	is
-	is
-	note
-hashsync
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-tests_createhashfileifneeded
-	note
-	is
-	undef
-	note
-createhashfileifneeded
-	open
-	myprint
-	myprint
-	print
-	close
-tests_rand32
-	note
-	myprint
-	is
-	is
-	rand32
-	note
-rand32
-	rand
-imap_id_stuff
-	id
-	h1_imap_id
-	imap1
-	h2_imap_id
-	imap2
-imap_id
-	id
-	myprint
-	side
-	myprint
-	myprint
-imapsync_id
-	name
-	name
-tests_imapsync_id
-	note
-	ok
-	version
-	note
-format_for_imap_arg
-	push
-	delete
-	push
-	join
-tests_format_for_imap_arg
-	note
-	ok
-	ok
-	name
-	ok
-	name
-	note
-quota
-	h1
-	myprint
-	myprint
-	quota_limit_bytes
-	quota_current_bytes
-	myprint
-	errors_incr
-tests_quota_extract_storage_limit_in_bytes
-	note
-	ok
-	note
-quota_extract_storage_limit_in_bytes
-	map
-	debug
-tests_quota_extract_storage_current_in_bytes
-	note
-	ok
-	note
-quota_extract_storage_current_in_bytes
-	map
-	debug
-automap
-	automap
-	myprint
-	myprint
-	h1_special
-	imap1
-	h2_special
-	imap2
-	build_possible_special
-	build_guess_special
-	build_automap
-build_guess_special
-	sort
-	h1_folders_all
-	possible_special
-	h1_prefix
-	h1_special_guessed
-	h1_special_guessed
-	myprint
-	h1_special_guessed
-	sort
-	h2_folders_all
-	possible_special
-	h2_prefix
-	h2_special_guessed
-	h2_special_guessed
-	myprint
-	h2_special_guessed
-guess_special
-tests_guess_special
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-build_automap
-	debug
-	h1_folders_wanted
-	h1_special
-	h1_special_guessed
-	h2_special
-	h2_special
-	f1f2auto
-	h2_special
-	exists
-	h2_special_guessed
-	h2_special_guessed
-	f1f2auto
-	exists
-	h2_special
-	h2_special
-	f1f2auto
-	h2_special
-	exists
-	h2_special_guessed
-	h2_special_guessed
-	f1f2auto
-	f1f2auto
-build_possible_special
-	possible_special
-	debug
-	Data::Dumper
-tests_special_from_folders_hash
-	note
-	require_ok
-	is
-	undef
-	is
-	undef
-	is_deeply
-	name
-	is_deeply
-	Sent
-	note
-special_from_folders_hash
-	errors_incr
-	attrs
-	exists
-	myprintf
-	name
-	myprintf
-	name
-	name
-	name
-	myprint
-errors_incr
-	nb_errors
-	errors_log
-	myprint
-	errorsmax
-	nb_errors
-	errorsmax
-	myprint
-	errorsdump
-	myprint
-	errorsdump
-	nb_errors
-	myprint
-	exit_clean
-tests_errors_log
-	note
-	is
-	undef
-	is
-	undef
-	is_deeply
-	errors_log
-	is_deeply
-	errors_log
-	is_deeply
-	errors_log
-	is_deeply
-	errors_log
-	note
-errors_log
-	errors_log
-	errors_log
-	push
-	errors_log
-	errors_log
-	errors_log
-errorsdump
-tests_live_result
-	note
-	myprint
-	myprint
-	note
-size_filtered_flag
-	defined
-	maxsize
-	maxsize
-	defined
-sync_flags_fir
-	sync_flags
-sync_flags_after_copy
-	imap2
-	debug
-	sync_flags
-	myprint
-sync_flags
-	debug
-	debug
-	debug
-	dry
-	imap2
-	imap2
-	errors_incr
-_filter
-	debug
-lost_connection
-	nb_errors
-	myprint
-	debug
-	myprint
-tests_max
-	note
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-max
-	undef
-	is_number
-	push
-	defined
-	push
-	pop
-tests_is_number
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-is_number
-tests_min
-	note
-	is
-	is
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-min
-	undef
-	is_number
-	push
-	push
-	shift
-check_lib_version
-	debug
-	myprint
-module_version_str
-modulesversion
-	sort
-	eval
-	push
-tests_command_line_nopassword
-	note
-	ok
-	ok
-	ok
-	ok
-	showpasswords
-	ok
-	ok
-	ok
-	ok
-	note
-command_line_nopassword
-	cmdcgi
-	cmdcgi
-	showpasswords
-mask_password_value
-	shift
-	push
-	push
-tests_get_stdin_masked
-	note
-	is
-	is
-	note
-get_stdin_masked
-	-prompt
-ask_for_password_new
-ask_for_password
-	myprint
-	Term::ReadKey::ReadMode
-	chomp
-	myprint
-	Term::ReadKey::ReadMode
-get_password1
-	password1
-	passfile1
-	IMAPSYNC_PASSWORD1
-	myprint
-	user1
-	host1
-	password1
-	defined
-	passfile1
-	passfile1
-	myprint
-	nb_errors
-	exit_clean
-	password1
-	passfile1
-	IMAPSYNC_PASSWORD1
-	password1
-	IMAPSYNC_PASSWORD1
-get_password2
-	password2
-	passfile2
-	IMAPSYNC_PASSWORD2
-	myprint
-	user2
-	host2
-	password2
-	defined
-	passfile2
-	passfile2
-	myprint
-	nb_errors
-	exit_clean
-	password2
-	passfile2
-	IMAPSYNC_PASSWORD2
-	password2
-	IMAPSYNC_PASSWORD2
-remove_tmp_files
-	pidfile
-	pidfile
-	unlink
-	pidfile
-cleanup_before_exit
-	remove_tmp_files
-	imap1
-	imap1
-	myprint
-	imap1
-	imap2
-	imap2
-	myprint
-	imap2
-	log
-	myprint
-	log
-	logfile_handle
-	close
-	logfile_handle
-exit_clean
-	myprint
-	myprint
-	cleanup_before_exit
-	exit
-missing_option
-	nb_errors
-	exit_clean
-catch_ignore
-	sigcounter
-	myprint
-	stats
-catch_exit
-	myprint
-	stats
-	myprint
-	stats
-	myprint
-	myprint
-	myprint
-	cleanup_before_exit
-	kill
-	sleep
-	nb_errors
-	exit_clean
-	nb_errors
-	exit_clean
-catch_print
-	sigcounter
-	myprint
-here_twice
-	lastcatch
-	lastcatch
-catch_reconnect
-	here_twice
-	myprint
-	catch_exit
-	myprint
-	myprint
-	imap1
-	imap2
-	myprint
-	imap1
-	Mail::IMAPClient::Unconnected
-	imap1
-	IMAPSYNC_RECONNECT_COUNT
-	imap1
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-	imap2
-	Mail::IMAPClient::Unconnected
-	imap2
-	IMAPSYNC_RECONNECT_COUNT
-	imap2
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-install_signals
-	under_docker_context
-	output
-	sigexit
-	defined
-	sigexit
-	sigexit
-	sig_install
-	sigexit
-	sigexit
-	defined
-	sigexit
-	sigexit
-	sigreconnect
-	defined
-	sigreconnect
-	sigreconnect
-	sigprint
-	defined
-	sigprint
-	sigprint
-	sigignore
-	defined
-	sigignore
-	sigignore
-	sig_install
-	sigexit
-	sig_install
-	sigreconnect
-	sig_install
-	sigprint
-	sig_install
-	sigignore
-	sig_install_toggle_sleep
-tests_reconnect_12_if_needed
-	note
-	imap1
-	imap2
-	imap1
-	imap2
-	is
-	is
-	imap1
-	IMAPSYNC_RECONNECT_COUNT
-	is
-	imap2
-	IMAPSYNC_RECONNECT_COUNT
-	note
-reconnect_12_if_needed
-	imap1
-	imap2
-tests_reconnect_if_needed
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	IMAPSYNC_RECONNECT_COUNT
-	note
-reconnect_if_needed
-	IMAPSYNC_RECONNECT_COUNT
-	Mail::IMAPClient::Unconnected
-	IMAPSYNC_RECONNECT_COUNT
-justconnect
-justconnect1
-	host1
-	myprint
-	imap1
-	host1
-	port1
-	ssl1
-	tls1
-	h1
-	timeout
-	h1
-	imap_id
-	imap1
-	imap1
-	host1
-justconnect2
-	host2
-	myprint
-	imap2
-	host2
-	port2
-	ssl2
-	tls2
-	h2
-	timeout
-	h2
-	imap_id
-	imap2
-	imap2
-	host2
-skip_macosx
-tests_mailimapclient_connect
-	note
-	ok
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	like
-	ref
-	like
-	is
-	undef
-	ok
-	is
-	is
-	ok
-	SSL_verify_mode
-	is
-	like
-	ref
-	like
-	is
-	undef
-	ok
-	is
-	is
-	ok
-	SSL_verify_mode
-	is
-	skip
-	is
-	is
-	like
-	ref
-	like
-	ref
-	is
-	undef
-	note
-tests_mailimapclient_connect_bug
-	note
-	ok
-	is
-	is
-	skip
-	like
-	ref
-	is
-	undef
-	note
-tests_connect_socket
-	note
-	is
-	undef
-	skip
-	PeerAddr
-	ok
-	PeerHost
-	ok
-	note
-connect_socket
-tests_probe_imapssl
-	note
-	is
-	undef
-	is
-	undef
-	note
-	skip
-	ok
-	resolv
-	like
-	probe_imapssl
-	like
-	probe_imapssl
-	note
-probe_imapssl
-	debug
-	PeerHost
-	debug
-	debug
-connect_imap
-	set_ssl
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	myprint
-	set_tls
-	nb_errors
-	exit_clean
-	myprint
-login_imap
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	myprint
-	myprint
-	myprintf
-	nb_errors
-	exit_clean
-	set_tls
-	nb_errors
-	exit_clean
-	myprint
-	authenticate_imap
-	myprint
-authenticate_imap
-	check_capability
-	defined
-	xmasterauth
-	chomp
-	myprint
-	nb_errors
-	exit_clean
-	myprint
-	myprint
-	nb_errors
-	exit_clean
-	chomp
-	nb_errors
-	exit_clean
-check_capability
-	myprintf
-	myprintf
-	myprint
-set_ssl
-	sslargs
-	SSL_verify_mode
-	keys
-	keys
-	delete
-set_tls
-	sslargs
-	SSL_verify_mode
-	keys
-	keys
-	delete
-init_imap
-	tee
-	tee
-	set_ssl
-	showpasswords
-	defined
-	IMAPSYNC_RECONNECT_COUNT
-plainauth
-xoauth2
-	debug
-	nb_errors
-	exit_clean
-	join
-	close
-	client_id
-	private_key
-	debug
-	debug
-	debug
-	debug
-	grant_type
-	nb_errors
-	exit_clean
-	debug
-	access_token
-	debug
-xoauth
-	debug
-	Data::Uniqid::uniqid
-	rand
-	sort
-	length
-	debug
-	substr
-	delete
-	sort
-	length
-	debug
-xmasterauth
-	nb_errors
-	exit_clean
-	debug
-	addcrlf
-	nb_errors
-	exit_clean
-	nb_errors
-	exit_clean
-	Mail::IMAPClient::Authenticated
-tests_do_valid_directory
-	note
-	Readonly
-	skip
-	ok
-	ok
-	Readonly
-	skip
-	diag
-	ok
-	diag
-	ok
-	note
-banner_imapsync
-do_valid_directory
-	myprint
-	myprintf
-	myprint
-	mkpath
-	myprint
-tests_match_a_pid_number
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-match_a_pid_number
-tests_remove_pidfile_not_running
-	note
-	ok
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	undef
-	note
-remove_pidfile_not_running
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	unlink
-	myprint
-	myprint
-	myprint
-tests_tail
-	note
-	ok
-	ok
-	ok
-	is
-	undef
-	is
-	undef
-	pidfile
-	is
-	undef
-	pidfilelocking
-	is
-	undef
-	is
-	pidfile
-	is
-	undef
-	is
-	is
-	undef
-	tail
-	is
-	is
-	pidfile
-	is
-	undef
-	note
-tail
-	abort
-	pidfile
-	pidfilelocking
-	tail
-	myprint
-	name
-	myprint
-	isrunning
-	myprint
-	sleep
-isrunning
-	kill
-	myprint
-tests_write_pidfile
-	note
-	is
-	pidfile
-	is
-	pidfile
-	is
-	undef
-	pidfilelocking
-	is
-	undef
-	pidfile
-	ok
-	is
-	pidfile
-	pidfilelocking
-	is
-	is
-	is
-	pidfilelocking
-	is
-	undef
-	pidfilelocking
-	logfile
-	is
-	is
-	is
-	note
-write_pidfile
-	abort
-	pidfile
-	pidfilelocking
-	myprint
-	myprint
-	myprint
-	myprint
-	logfile
-	open
-	myprint
-	print
-	close
-	myprint
-fix_Inbox_INBOX_mapping
-	exists
-	INBOX
-	INBOX
-	exists
-	Inbox
-	Inbox
-	exists
-	INBOX
-	Inbox
-	exists
-	Inbox
-	INBOX
-tests_fix_Inbox_INBOX_mapping
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-jux_utf8_list
-tests_jux_utf8_list
-	note
-	is
-	is
-	is
-	is
-	note
-tests_jux_utf8_old
-	note
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-jux_utf8_old
-imap_utf7_decode_old
-	Unicode::String::utf7
-tests_jux_utf8
-	note
-	binmode
-	ok
-	find_encoding
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-jux_utf8
-imap_utf7_decode
-	Encode::IMAPUTF7::decode
-imap_utf7_encode
-	Encode::IMAPUTF7::encode
-imap_utf7_encode_old
-select_folder
-	errors_incr
-examine_folder
-	errors_incr
-count_from_select
-	undef
-create_folder_old
-	myprint
-	myprint
-	dry
-	errors_incr
-	myprint
-	myprint
-create_folder
-	myprint
-	create_folder_old
-	myprint
-	myprint
-	myprint
-	myprint
-	pop
-	h2_sep
-	create_folder
-	dry
-	errors_incr
-	myprint
-	myprint
-	justfolders
-	myprint
-tests_folder_routines
-	note
-	ok
-	ok
-	add_to_requested_folders
-	ok
-	is_requested_folder
-	ok
-	is_deeply
-	remove_from_requested_folders
-	ok
-	ok
-	ok
-	is_requested_folder
-	ok
-	is_requested_folder
-	ok
-	remove_from_requested_folders
-	ok
-	is_deeply
-	remove_from_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	add_to_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	sort_requested_folders
-	is_deeply
-	sort_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	add_to_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	add_to_requested_folders
-	ok
-	sort_requested_folders
-	undef
-	undef
-	note
-sort_requested_folders
-	add_to_requested_folders
-is_requested_folder
-	defined
-add_to_requested_folders
-	keys
-tests_remove_from_requested_folders
-	note
-	is
-	undef
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	is_deeply
-	remove_from_requested_folders
-	is_deeply
-	note
-remove_from_requested_folders
-	exists
-	delete
-	push
-compare_lists
-tests_compare_lists
-	note
-	ok
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	split
-	ok
-	sort
-	note
-guess_prefix
-tests_guess_prefix
-	note
-	is
-	guess_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-get_prefix
-	debug
-	debugfolders
-	myprint
-	debug
-	debugfolders
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	myprint
-guess_separator
-	debug
-tests_guess_separator
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-get_separator
-	debug
-	debugfolders
-	myprint
-	debug
-	debugfolders
-	defined
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	myprint
-	defined
-	myprint
-	myprint
-help_to_guess_sep
-help_to_guess_prefix
-folders_list_to_help
-private_folders_separators_and_prefixes
-	debug
-	debugfolders
-	h1_sep
-	imap1
-	sep1
-	h2_sep
-	imap2
-	sep2
-	h1_prefix
-	imap1
-	h2_prefix
-	imap2
-	myprint
-	myprint
-subfolder1
-	subfolder1
-	myprint
-	automap
-	myprint
-	subfolder1
-	nb_errors
-	exit_clean
-	subfolder1
-subfolder2
-	subfolder2
-	myprint
-	automap
-	myprint
-	subfolder2
-	set_regextrans2_for_subfolder2
-	subfolder2
-tests_sanitize_subfolder
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-sanitize_subfolder
-tests_add_subfolder1_to_folderrec
-	note
-	is
-	undef
-	is_deeply
-	add_subfolder1_to_folderrec
-	is_deeply
-	add_subfolder1_to_folderrec
-	is_deeply
-	subfolder1
-	h1_prefix
-	is_deeply
-	add_subfolder1_to_folderrec
-	is_deeply
-	subfolder1
-	is_deeply
-	add_subfolder1_to_folderrec
-	is_deeply
-	is_deeply
-	add_subfolder1_to_folderrec
-	is_deeply
-	note
-add_subfolder1_to_folderrec
-	subfolder1
-	subfolder1
-	h1_prefix
-	exists
-	myprint
-	push
-	exists
-	myprint
-	push
-	myprint
-set_regextrans2_for_subfolder2
-	unshift
-	regextrans2
-tests_imap2_folder_name
-	note
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	debug
-	fixslash2
-	is
-	is
-	is
-	is
-	is
-	is
-	f1f2h
-	is
-	f1f2h
-	is
-	regextrans2
-	is
-	is
-	is
-	is
-	is
-	regextrans2
-	is
-	is
-	regextrans2
-	is
-	fixslash2
-	regextrans2
-	is
-	is
-	is
-	is
-	is
-	is
-	h1_sep
-	h2_sep
-	is
-	is
-	is
-	is
-	is
-	fixslash2
-	h1_prefix
-	is
-	is
-	h1_sep
-	h2_sep
-	h1_prefix
-	h2_prefix
-	regextrans2
-	is
-	is
-	regextrans2
-	is
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	is
-	is
-	is
-	is
-	is
-	is
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	set_regextrans2_for_subfolder2
-	subfolder2
-	is
-	is
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	set_regextrans2_for_subfolder2
-	subfolder2
-	is
-	is
-	is
-	is
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	subfolder1
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	subfolder1
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	subfolder1
-	is
-	is
-	is
-	is
-	subfolder1
-	is
-	is
-	is
-	is
-	note
-imap2_folder_name
-	f1f2h
-	f1f2h
-	debug
-	debugfolders
-	f1f2auto
-	f1f2auto
-	debug
-	debugfolders
-	subfolder1
-	h1_sep
-	subfolder1
-	h1_sep
-	h1_prefix
-tests_remove_last_char_if_is
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-remove_last_char_if_is
-	chop
-tests_prefix_seperator_invertion
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	h1_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	h1_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-prefix_seperator_invertion
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	debug
-	debugfolders
-	debug
-	debugfolders
-	debug
-	debugfolders
-tests_separator_invert
-	note
-	fixslash2
-	ok
-	defined
-	ok
-	defined
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	fixslash2
-	ok
-	note
-separator_invert
-	undef
-	fixslash2
-regextrans2
-	regextrans2
-	debug
-	debugfolders
-	defined
-	nb_errors
-	exit_clean
-tests_decompose_regex
-	note
-	ok
-	ok
-	decompose_regex
-	ok
-	decompose_regex
-	note
-decompose_regex
-tests_timenext
-	note
-	is
-	undef
-	is
-	undef
-	ok
-	time
-	ok
-	timenext
-	ok
-	timenext
-	note
-timenext
-	timebefore
-	timebefore
-	timebefore
-tests_timesince
-	note
-	ok
-	timesince
-	time
-	ok
-	timesince
-	time
-	ok
-	timesince
-	note
-timesince
-	max
-tests_flags_regex
-	note
-	ok
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	is
-	note
-flags_regex
-	defined
-	myprint
-	undef
-acls_sync
-	imap1
-	imap2
-	keys
-	sort
-	myprint
-	dry
-	myprint
-	imap2
-tests_permanentflags
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-permanentflags
-	debug
-tests_flags_filter
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-flags_filter
-	exists
-flagscase
-	exists
-	ucsecond
-	lc
-	lc
-tests_flagscase
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-ucsecond
-	substr
-	uc
-	substr
-tests_ucsecond
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-select_msgs
-select_msgs_by_search
-	defined
-	defined
-	defined
-select_msgs_by_fetch
-	defined
-	defined
-	myprint
-	defined
-	defined
-	defined
-	epoch
-	push
-	defined
-	epoch
-	push
-select_msgs_by_age
-	defined
-	defined
-msgs_from_maxmin
-	defined
-	defined
-tests_msgs_from_maxmin
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-tests_info_date_from_uid
-	note
-	note
-info_date_from_uid
-lastuid
-	defined
-size_filtered
-	defined
-	maxsize
-	maxsize
-	myprint
-	total_bytes_skipped
-	nb_msg_skipped
-	defined
-	myprint
-	total_bytes_skipped
-	nb_msg_skipped
-message_exists
-stats_update_skip_message
-	total_bytes_skipped
-	nb_msg_skipped
-	h1_nb_msg_processed
-copy_message
-	debug
-	dry
-	size_filtered
-	h1_nb_msg_processed
-	debugsleep
-	myprint
-	imap1
-	stats_update_skip_message
-	myprint
-	debugmemory
-	myprint
-	debugmemory
-	myprint
-	stats_update_skip_message
-	defined
-	defined
-	stats_update_skip_message
-	debug
-	debug
-	sync_flags_after_copy
-	myprint
-	debugmemory
-linelengthstuff
-	defined
-	defined
-	defined
-	myprint
-	myprint
-message_for_host2
-	myprint
-	debugmemory
-	imap1
-	myprint
-	debugmemory
-	defined
-	imap1
-	errors_incr
-	h1_nb_msg_processed
-	defined
-	myprint
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	addheader
-	debug
-	defined
-	truncmess
-	truncmess
-	truncmess
-	myprint
-	debugmemory
-tests_truncmess
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-truncmess
-tests_message_for_host2
-	note
-	is
-	undef
-	is
-	undef
-	require_ok
-	imap1
-	is
-	is
-	Readonly
-	skip
-	Readonly
-	skip
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-tests_labels_remove_subfolder1
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-labels_remove_subfolder1
-	push
-	push
-	push
-	push
-	push
-tests_labels_remove_special
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-labels_remove_special
-	myprint
-	push
-tests_labels_add_subfolder2
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-labels_add_subfolder2
-	quotewords
-	myprint
-	push
-	push
-	push
-	push
-	push
-tests_labels
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	require_ok
-	is
-	undef
-	is
-	note
-labels
-tests_synclabels
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	require_ok
-	imap1
-	imap2
-	is
-	undef
-	is
-	undef
-	is
-	note
-synclabels
-	debuglabels
-	debuglabels
-	debuglabels
-	subfolder1
-	subfolder1
-	debuglabels
-	subfolder2
-	subfolder2
-	debuglabels
-	dry
-	debuglabels
-	debuglabels
-tests_resynclabels
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	debuglabels
-	is
-	require_ok
-	imap2
-	is
-	note
-resynclabels
-	subfolder1
-	subfolder1
-	subfolder2
-	subfolder2
-	debuglabels
-	debuglabels
-	debuglabels
-	dry
-	debuglabels
-	imap2
-	imap2
-	debuglabels
-	imap2
-tests_uniq
-	note
-	is
-	is_deeply
-	uniq
-	is_deeply
-	uniq
-	is_deeply
-	uniq
-	note
-uniq
-	push
-length_ref
-tests_length_ref
-	note
-	is
-	is
-	is
-	is
-	note
-date_for_host2
-	debug
-	debug
-	imap1
-	debug
-	debug
-flags_for_host2
-subject
-tests_subject
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-append_message_on_host2
-	myprint
-	debugmemory
-	dry
-	imap2
-	myprint
-	debugmemory
-	imap2
-	errors_incr
-	h1_nb_msg_processed
-	imap2
-	synclabels
-	synclabels
-	total_bytes_transferred
-	nb_msg_transferred
-	h1_nb_msg_processed
-	begin_transfer_time
-	total_bytes_transferred
-	total_bytes_transferred
-	myprintf
-	nb_msg_transferred
-	sleep_if_needed
-	touch
-	delete1
-	delete_message_on_host1
-	expungeaftereach
-	h1_nb_msg_processed
-tests_sleep_if_needed
-	note
-	is
-	undef
-	is
-	undef
-	maxbytespersecond
-	is
-	begin_transfer_time
-	is
-	begin_transfer_time
-	is
-	total_bytes_transferred
-	begin_transfer_time
-	is
-	is
-	maxsleep
-	begin_transfer_time
-	is
-	maxbytesafter
-	begin_transfer_time
-	is
-	note
-sleep_if_needed
-	maxmessagespersecond
-	maxbytespersecond
-	maxsleep
-	maxsleep
-	maxsleep
-	maxsleep
-	maxsleep
-	begin_transfer_time
-	nb_msg_transferred
-	maxmessagespersecond
-	maxbytesafter
-	total_bytes_transferred
-	maxbytespersecond
-	maxsleep
-	myprint
-	sleep
-sleep_max_messages
-	max
-tests_sleep_max_messages
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-sleep_max_bytes
-	max
-tests_sleep_max_bytes
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-delete_message_on_host1
-	delete1
-	delete_messages_on_any
-	imap1
-tests_operators_and_exclam_precedence
-	note
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-delete_messages_on_any
-	dry_message
-	myprint
-	dry
-	defined
-	h1_nb_msg_deleted
-	errors_incr
-	uidexpunge_or_expunge
-tests_uidexpunge_or_expunge
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	require_ok
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	note
-uidexpunge_or_expunge
-eta_print
-	myprint
-tests_eta
-	note
-	is
-	is
-	undef
-	is
-	foldersizes
-	begin_transfer_time
-	h1_nb_msg_processed
-	is
-	time
-	h1_nb_msg_processed
-	h1_nb_msg_start
-	is
-	time
-	note
-eta
-	foldersizes
-	h1_nb_msg_start
-	h1_nb_msg_processed
-	dry
-	h1_nb_msg_processed
-	nb_msg_transferred
-	begin_transfer_time
-	debug
-	time
-	mysprintf
-time_remaining
-tests_time_remaining
-	note
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-cache_map
-	sort
-	exists
-	defined
-	defined
-	exists
-	delete
-tests_cache_map
-	note
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_dir_fix
-tests_cache_dir_fix
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_dir_fix_win
-tests_cache_dir_fix_win
-	note
-	ok
-	ok
-	note
-get_cache
-	undef
-	clean_cache
-tests_get_cache
-	note
-	ok
-	get_cache
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-match_a_cache_file
-	undef
-tests_match_a_cache_file
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-clean_cache
-	map
-	unlink
-tests_clean_cache
-	note
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	clean_cache
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_clean_cache_2
-	note
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	clean_cache
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_mkpath
-	note
-	ok
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	eval
-	ok
-	ok
-	skip
-	myprint
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	eval
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_touch
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-touch
-	myprint
-tests_tmpdir_has_colon_bug
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-tmpdir_has_colon_bug
-tmpdir_fix_colon_bug
-	tmpdir
-	myprint
-	myprint
-	myprint
-	myprint
-	File::Copy::Recursive::rmove
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-tests_cache_folder
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_folder
-	h1_sep
-	h2_sep
-tests_filter_forbidden_characters
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	skip
-	ok
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-filter_forbidden_characters
-tests_convert_sep_to_slash
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-convert_sep_to_slash
-tests_regexmess
-	note
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	is
-	is
-	is
-	note
-regexmess
-	debug
-	myprint
-	undef
-	debug
-tests_skipmess
-	note
-	ok
-	defined
-	ok
-	defined
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-skipmess
-	debug
-	debug
-	myprint
-	undef
-tests_bytes_display_string
-	note
-	is
-	is
-	undef
-	is
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-bytes_display_string
-	abs
-	abs
-	abs
-	abs
-tests_useheader_suggestion
-	note
-	is
-	undef
-	h1_nb_msg_noheader
-	is
-	h1_nb_msg_noheader
-	is
-	note
-useheader_suggestion
-	h1_nb_msg_noheader
-	h1_nb_msg_noheader
-stats
-	stats
-	timestart
-	memory_consumption_at_start
-	myprint
-	myprint
-	myprint
-	myprintf
-	myprint
-	myprint
-	myprint
-	dry
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	nb_messages_in_1_not_in_2
-	nb_messages_in_2_not_in_1
-	myprintf
-	nb_messages_in_1_not_in_2
-	myprintf
-	nb_messages_in_2_not_in_1
-	myprint
-	myprint
-	myprintf
-	total_bytes_transferred
-	total_bytes_transferred
-	myprintf
-	total_bytes_skipped
-	total_bytes_skipped
-	myprintf
-	nb_msg_transferred
-	myprintf
-	total_bytes_transferred
-	myprint
-	myprint
-	myprintf
-	myprint
-	join
-	myprintf
-	myprint
-	foldersizesatend
-	foldersizes
-	h2_nb_msg_start
-	h1_nb_msg_start
-	h2_bytes_start
-	h1_bytes_start
-	myprintf
-	myprintf
-	comment_on_final_diff_in_1_not_in_2
-	comment_on_final_diff_in_2_not_in_1
-	myprint
-	myprint
-	myprint
-	homepage
-diff_or_NA
-match_number
-tests_match_number
-	note
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-tests_diff_or_NA
-	note
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-homepage
-load_modules
-	ssl1
-	ssl2
-	tls1
-	tls2
-	inet4
-	IO::Socket::SSL
-	inet6
-	IO::Socket::SSL
-parse_header_msg
-	debug
-	debug
-	debug
-	addheader
-	debug
-	NO_HEADER
-	debug
-header_construct
-	sort
-	exists
-	uc
-	sort
-	debug
-	debug
-header_line_normalize
-tests_header_line_normalize
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_firstline
-	note
-	is
-	ok
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-firstline
-tests_secondline
-	note
-	is
-	is
-	ok
-	is
-	is
-	note
-secondline
-tests_nthline
-	note
-	is
-	is
-	ok
-	is
-	is
-	note
-nthline
-	file_to_array
-	chomp
-file_to_array
-	open
-	myprint
-	close
-tests_file_to_string
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	ok
-	file_to_string
-	ok
-	is
-	is
-	is
-	is
-	note
-file_to_string
-	open
-	close
-	join
-	myprint
-tests_string_to_file
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	ok
-	is
-	is
-	Readonly
-	skip
-	is
-	undef
-	note
-string_to_file
-	myprint
-	FILE
-	myprint
-	print
-	close
-pipemess
-	string_to_file
-	chomp
-	unlink
-	myprint
-	wantarray
-	undef
-	myprint
-	wantarray
-tests_pipemess
-	note
-	Readonly
-	skip
-	ok
-	ok
-	ok
-	pipemess
-	Readonly
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	like
-	is
-	like
-	is
-	is
-	is
-	like
-	is
-	like
-	is
-	like
-	like
-	like
-	is
-	like
-	note
-tests_is_a_release_number
-	note
-	is
-	undef
-	ok
-	is_a_release_number
-	ok
-	is_a_release_number
-	ok
-	is_a_release_number
-	imapsync_version
-	ok
-	note
-is_a_release_number
-imapsync_version_public
-	PeerAddr
-	print
-	close
-	chomp
-not_long_imapsync_version_public
-	ALRM
-	die
-	POSIX::sigaction
-	SIGALRM
-	sub
-	croak
-	alarm
-	alarm
-	alarm
-tests_not_long_imapsync_version_public
-	note
-	is
-	not_long_imapsync_version_public
-	note
-check_last_release
-	debug
-tests_check_last_release
-	note
-	diag
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	diag
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	diag
-	check_last_release
-	note
-tests_imapsync_context
-	note
-	like
-	imapsync_context
-	note
-imapsync_context
-	under_docker_context
-	under_docker_context
-	under_cgi_context
-imapsync_version
-	rcs
-tests_version_from_rcs
-	note
-	is
-	undef
-	is
-	is
-	note
-version_from_rcs
-tests_imapsync_basename
-	note
-	ok
-	imapsync_basename
-	ok
-	note
-imapsync_basename
-localhost_info
-tests_cpu_number
-	note
-	is
-	cpu_number
-	ok
-	is
-	is
-	is
-	is
-	note
-cpu_number
-	debug
-	chomp
-	debug
-	debug
-	debug
-	defined
-	integer_or_1
-tests_integer_or_1
-	note
-	is
-	is
-	undef
-	is
-	is
-	is
-	note
-integer_or_1
-	is_an_integer
-tests_is_an_integer
-	note
-	is
-	undef
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	ok
-	note
-is_an_integer
-tests_loadavg
-	note
-	skip
-	is
-	undef
-	is_deeply
-	loadavg
-	skip
-	is
-	undef
-	ok
-	loadavg
-	is_deeply
-	loadavg
-	skip
-	is_deeply
-	loadavg
-	note
-loadavg
-	loadavg_linux
-	loadavg_freebsd
-	loadavg_darwin
-	loadavg_windows
-loadavg_linux
-	all_defined
-	debug
-loadavg_freebsd
-	eval
-	myprint
-	debug
-loadavg_darwin
-	eval
-	myprint
-	debug
-loadavg_windows
-	eval
-	myprint
-	debug
-tests_load_and_delay
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-load_and_delay
-ram_memory_info
-	sprintf
-tests_memory_stress
-	note
-	is
-	undef
-	note
-memory_stress
-	myprintf
-	myprintf
-tests_memory_consumption
-	note
-	like
-	memory_consumption
-	like
-	memory_consumption
-	like
-	memory_consumption
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption
-	note
-memory_consumption
-	memory_consumption_of_pids
-debugmemory
-	debugmemory
-	mysprintf
-memory_consumption_of_pids
-	debug
-	shift
-	chomp
-	debug
-memory_consumption_of_pids_win32
-	map
-	split
-	remove_qq
-	chomp
-	push
-tests_backtick
-	note
-	is
-	undef
-	is
-	undef
-	skip
-	ok
-	debug
-	ok
-	ok
-	debug
-	ok
-	ok
-	skip
-	is
-	undef
-	ok
-	debug
-	ok
-	ok
-	debug
-	ok
-	ok
-	is
-	undef
-	debug
-	note
-backtick
-	myprint
-	waitpid
-	wantarray
-	join
-tests_check_binary_embed_all_dyn_libs
-	note
-	is
-	note
-check_binary_embed_all_dyn_libs
-	myprint
-	myprint
-	myprint
-search_dyn_lib_locale
-search_dyn_lib_locale_darwin
-	myprint
-search_dyn_lib_locale_linux
-	myprint
-search_dyn_lib_locale_MSWin32
-	myprint
-remove_not_num
-tests_remove_not_num
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-remove_Ko
-remove_qq
-memory_consumption_ratio
-date_from_rcs
-tests_date_from_rcs
-	note
-	ok
-	note
-good_date
-tests_good_date
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_list_keys_in_2_not_in_1
-	note
-	ok
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	note
-list_keys_in_2_not_in_1
-	sort
-	exists
-	push
-list_folders_in_2_not_in_1
-	map
-	reverse
-tests_nb_messages_in_2_not_in_1
-	note
-	is
-	undef
-	h1_folders_of_md5
-	is
-	h1_folders_of_md5
-	h2_folders_of_md5
-	is
-	h2_folders_of_md5
-	is
-	h2_folders_of_md5
-	is
-	note
-nb_messages_in_2_not_in_1
-	nb_messages_in_2_not_in_1
-	list_keys_in_2_not_in_1
-	h1_folders_of_md5
-	h2_folders_of_md5
-	nb_messages_in_2_not_in_1
-nb_messages_in_1_not_in_2
-	nb_messages_in_1_not_in_2
-	list_keys_in_2_not_in_1
-	h2_folders_of_md5
-	h1_folders_of_md5
-	nb_messages_in_1_not_in_2
-comment_on_final_diff_in_1_not_in_2
-	justfolders
-	useuid
-	keys
-	h1_folders_of_md5
-	keys
-	h2_folders_of_md5
-	debug
-	debug
-	nb_messages_in_1_not_in_2
-	nb_messages_in_1_not_in_2
-	nb_messages_in_1_not_in_2
-	myprint
-	myprint
-	nb_messages_in_1_not_in_2
-	h1_nb_msg_noheader
-	myprint
-	h1_nb_msg_noheader
-	myprint
-comment_on_final_diff_in_2_not_in_1
-	justfolders
-	useuid
-	keys
-	h2_folders_of_md5
-	nb_messages_in_2_not_in_1
-	nb_messages_in_2_not_in_1
-	nb_messages_in_2_not_in_1
-	myprint
-	myprint
-	nb_messages_in_2_not_in_1
-tests_match
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-match
-	eval
-	myprint
-tests_notmatch
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-notmatch
-	eval
-	myprint
-delete_folders_in_2_not_in_1
-	defined
-	myprint
-	defined
-	myprint
-	dry
-	imap2
-	dry
-	imap2
-	dry
-	myprint
-	myprint
-delete_folder
-	dry
-	dry
-	myprint
-	dry_message
-	myprint
-delete1emptyfolders
-	delete1emptyfolders
-	imap1
-	myprint
-	reverse
-	h1_folders_wanted
-	defined
-	myprint
-	myprint
-	myprint
-	uc
-	myprint
-	myprint
-	delete_folder
-	remove_deleted_folders_from_wanted_list
-	myprint
-remove_deleted_folders_from_wanted_list
-	h1_folders_wanted
-	push
-	h1_folders_wanted
-examine_folder_and_count
-tests_delete1emptyfolders
-	note
-	is
-	undef
-	is
-	undef
-	imap1
-	is
-	undef
-	require_ok
-	imap1
-	is
-	undef
-	delete1emptyfolders
-	tests_delete1emptyfolders_unit
-	delete1emptyfolders
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	dry_message
-	tests_delete1emptyfolders_unit
-	note
-tests_delete1emptyfolders_unit
-	note
-	h1_folders_wanted
-	is_deeply
-	h1_folders_wanted
-	delete1emptyfolders
-	is_deeply
-	h1_folders_wanted
-	note
-extract_header
-tests_extract_header
-	note
-	chomp
-	ok
-	note
-decompose_header
-	push
-tests_decompose_header
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_epoch
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	is
-	note
-epoch
-	myprint
-tests_add_header
-	note
-	ok
-	ok
-	note
-add_header
-tests_max_line_length
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-max_line_length
-tests_setlogfile
-	note
-	logdir
-	logfile
-	is
-	skip
-	TZ
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	logdir
-	logfile
-	is
-	logdir
-	logfile
-	is
-	logdir
-	logfile
-	is
-	user1
-	is
-	note
-setlogfile
-	abort
-	remote
-	filter_forbidden_characters
-	slash_to_underscore
-	user1
-	filter_forbidden_characters
-	slash_to_underscore
-	user2
-	logdir
-	logdir
-	logdir
-	logfile
-	logfile
-	timestart
-	logdir
-	logfile
-tests_logfile
-	note
-	skip
-	TZ
-	POSIX::tzset
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	POSIX::tzset
-	note
-logfile
-tests_slash_to_underscore
-	note
-	is
-	undef
-	is
-	is
-	note
-slash_to_underscore
-tests_million_folders_baby_2
-	note
-	ok
-	note
-tests_always_fail
-	note
-	is
-	note
-tests_logfileprepa
-	note
-	is
-	undef
-	is
-	note
-logfileprepa
-	do_valid_directory
-tests_teelaunch
-	note
-	is
-	undef
-	is
-	undef
-	logfile
-	is
-	undef
-	logfile
-	isa_ok
-	is
-	is
-	is
-	is
-	note
-teelaunch
-	logfile
-	logfileprepa
-	open
-	binmode
-	logfile_handle
-	tee
-getpwuid_any_os
-	scalar
-	scalar
-simulong
-	myprint
-	sleep
-printenv
-	myprint
-	map
-testsexit
-	tests
-	testsdebug
-	testsunit
-	tests
-	testsdebug
-	testunitsession
-	myprint
-	exit
-	cleanup_mess_from_tests
-	testslive
-	exit
-cleanup_mess_from_tests
-	undef
-after_get_options
-	debug
-	myprint
-	usage
-	exit
-tests_remove_edging_blanks
-	note
-	is
-	undef
-	is
-	is
-	note
-remove_edging_blanks
-tests_sanitize
-	note
-	is
-	undef
-	host1
-	user1
-	password1
-	is
-	undef
-	is
-	host1
-	is
-	user1
-	is
-	password1
-	note
-sanitize
-easyany
-	gmail1
-	gmail2
-	debug
-	gmail12
-	gmail1
-	debug
-	gmail1
-	gmail2
-	debug
-	gmail2
-	office1
-	office1
-	office2
-	office2
-	exchange1
-	exchange1
-	exchange2
-	exchange2
-	domino1
-	domino1
-	domino2
-	domino2
-gmail12
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	defined
-	synclabels
-	defined
-	synclabels
-	synclabels
-	resynclabels
-	defined
-	resynclabels
-	resynclabels
-	push
-	push
-gmail1
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	defined
-	push
-	push
-	regextrans2
-	push
-gmail2
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	expunge1
-	defined
-	expunge1
-	expunge1
-	addheader
-	defined
-	addheader
-	addheader
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	maxsize
-	defined
-	maxsize
-	maxsize
-	noexclude
-	push
-	push
-	push
-	regextrans2
-	push
-	regextrans2
-	push
-	regextrans2
-	push
-	regextrans2
-	push
-office1
-	output
-	output
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-	noexclude
-	push
-office2
-	output
-	output
-	output
-	output
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxsize
-	maxmessagespersecond
-	defined
-	noregexmess
-	push
-	nof1f2
-	push
-	f1f2
-exchange1
-	output
-exchange2
-	output
-	output
-	output
-	maxsize
-	maxmessagespersecond
-	defined
-	noregexflag
-	push
-	noregexmess
-	push
-domino1
-	sep1
-	defined
-domino2
-	sep2
-	defined
-	push
-	regextrans2
-tests_resolv
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-resolv
-	defined
-resolv_with_getaddrinfo
-	socktype
-	myprint
-	addr
-	myprint
-	debug
-	push
-	addr
-	debug
-tests_resolvrev
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-resolvrev
-	defined
-resolvrev_with_getaddrinfo
-	socktype
-	myprint
-	addr
-	myprint
-	debug
-	push
-tests_imapsping
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	note
-imapsping
-tests_tcpping
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-tcpping
-	port_num
-	debug
-tests_sslcheck
-	note
-	is
-	undef
-	sslcheck
-	is
-	sslcheck
-	is
-	sslcheck
-	is
-	is
-	ssl1
-	sslcheck
-	is
-	undef
-	sslcheck
-	is
-	sslcheck
-	is
-	note
-sslcheck
-	sslcheck
-	debug
-	port1
-	tls1
-	ssl1
-	defined
-	host1
-	myprint
-	probe_imapssl
-	host1
-	ssl1
-	myprint
-	myprint
-	port2
-	tls2
-	ssl2
-	defined
-	host2
-	myprint
-	probe_imapssl
-	host2
-	ssl2
-	myprint
-	myprint
-testslive_init
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-testslive6_init
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-tests_backslash_caret
-	note
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-backslash_caret
-tests_split_around_equal
-	note
-	is
-	undef
-	is_deeply
-	toto
-	split_around_equal
-	is_deeply
-	A
-	split_around_equal
-	is_deeply
-	A
-	split_around_equal
-	note
-split_around_equal
-	split
-tests_sig_install
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	Readonly
-	skip
-	USR1
-	USR2
-	kill
-	debugsig
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	is
-	tototo_calls
-	USR1
-	USR2
-	is
-	is
-	tototo_calls
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	is
-	tototo_calls
-	note
-sig_install
-	debugsig
-	debugsig
-	debugsig
-	output
-tototo
-	myprint
-	tototo_calls
-mygetppid
-	getppid
-tests_toggle_sleep
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	maxsleep
-	is
-	is
-	is
-	is
-	is
-	Readonly
-	skip
-	USR1
-	kill
-	debugsig
-	is
-	undef
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	note
-toggle_sleep
-	myprint
-	maxsleep
-	maxsleep
-	maxsleep
-	myprint
-	maxsleep
-	maxsleep
-mypod2usage
-	pod2usage
-	-exitval
-usage
-	open
-	warn
-	mypod2usage
-	close
-tests_usage
-	note
-	like
-	myprint
-	like
-	like
-	like
-	is
-	undef
-	note
-usage_footer
-	rcs
-	releasecheck
-usage_complete
-myGetOptions
-	cgi
-	sort
-	split
-	split
-	keys
-	keys
-	push
-	cmdcgi
-	ref
-	push
-	cmdcgi
-	push
-	cmdcgi
-tests_get_options_cgi_context
-	note
-	SERVER_SOFTWARE
-	is
-	undef
-	CGI
-	is
-	undef
-	cgi
-	is
-	is
-	version
-	is
-	undef
-	debugenv
-	cgi
-	is
-	is
-	user1
-	cgi
-	get_options
-	is_deeply
-	cgi
-	get_options
-	is_deeply
-	cgi
-	get_options
-	is_deeply
-	folder
-	cgi
-	get_options
-	is_deeply
-	folder
-	cgi
-	get_options
-	is_deeply
-	f1f2h
-	cgi
-	get_options
-	is
-	undef
-	dry
-	cgi
-	get_options
-	is
-	host1
-	cgi
-	get_options
-	is
-	undef
-	simulong
-	cgi
-	get_options
-	is
-	undef
-	simulong
-	cgi
-	get_options
-	is
-	simulong
-	is
-	undef
-	folder
-	cgi
-	get_options
-	is
-	justfoldersizes
-	myprint
-	Data::Dumper
-	note
-get_options_cgi
-	cgi
-	f1f2h
-	abort
-	host1
-	host2
-	user1
-	user2
-	password1
-	password2
-	dry
-	version
-	ssl1
-	ssl2
-	tls1
-	tls2
-	justlogin
-	justconnect
-	addheader
-	automap
-	justautomap
-	gmail1
-	gmail2
-	office1
-	office2
-	exchange1
-	exchange2
-	domino1
-	domino2
-	f1f2
-	f1f2h
-	folder
-	testslive
-	testslive6
-	releasecheck
-	simulong
-	debugsleep
-	subfolder1
-	subfolder2
-	justfolders
-	justfoldersizes
-	delete1
-	delete2
-	delete2duplicates
-	tail
-	debug
-get_options_cmd
-	cgi
-	output
-	f1f2h
-	debug
-	debugsleep
-	debugmemory
-	debugfolders
-	debugssl
-	debugenv
-	debugsig
-	debuglabels
-	simulong
-	abort
-	host1
-	host2
-	port1
-	port2
-	inet4
-	inet6
-	user1
-	user2
-	gmail1
-	gmail2
-	office1
-	office2
-	exchange1
-	exchange2
-	domino1
-	domino2
-	password1
-	password2
-	passfile1
-	passfile2
-	sep1
-	sep2
-	sanitize
-	folder
-	noexclude
-	subfolder1
-	subfolder2
-	fixslash2
-	regextrans2
-	skipemptyfolders
-	noregexmess
-	noregexflag
-	resyncflags
-	synclabels
-	resynclabels
-	delete1
-	delete2
-	delete2duplicates
-	maxsize
-	appendlimit
-	truncmess
-	search1
-	search2
-	foldersizes
-	foldersizesatend
-	dry
-	expunge1
-	expunge2
-	uidexpunge2
-	justfolders
-	justfoldersizes
-	version
-	h1
-	timeout
-	h2
-	timeout
-	sslcheck
-	ssl1
-	ssl2
-	h1
-	sslargs
-	SSL_version
-	h2
-	sslargs
-	SSL_version
-	h1
-	sslargs
-	h2
-	sslargs
-	tls1
-	tls2
-	tests
-	testsdebug
-	testsunit
-	testslive
-	testslive6
-	justlogin
-	justconnect
-	tmpdir
-	pidfile
-	pidfilelocking
-	sigexit
-	sigreconnect
-	sigignore
-	releasecheck
-	addheader
-	exitwhenover
-	checkselectable
-	checkfoldersexist
-	expungeaftereach
-	abletosearch
-	abletosearch1
-	abletosearch2
-	showpasswords
-	maxmessagespersecond
-	maxbytespersecond
-	maxbytesafter
-	maxsleep
-	log
-	tail
-	logfile
-	logdir
-	errorsmax
-	errorsdump
-	automap
-	justautomap
-	id
-	f1f2
-	nof1f2
-	f1f2h
-	justfolderlists
-	delete1emptyfolders
-	debug
-	myprint
-tests_get_options
-	note
-	is
-	undef
-	is
-	undef
-	noexist
-	is
-	undef
-	is
-	version
-	is
-	undef
-	noexist
-	is
-	is
-	delete2
-	is
-	undef
-	is
-	undef
-	delete1
-	is
-	undef
-	is
-	is
-	is
-	undef
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	host1
-	note
-get_options
-	under_cgi_context
-	sort
-	delete
-	delete
-testunitsession
-	testsunit
-	testsunit
-	skip
-	testsunit
-	done_testing
-tests_count_0s
-	note
-	is
-	is
-	is
-	is
-	is
-	note
-count_0s
-	map
-tests_report_failures
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-report_failures
-tests_true
-	note
-	is
-	note
-tests_testsunit
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-testsunit
-	myprint
-	myprint
-	myprint
-	myprint
-testsdebug
-	testsdebug
-	testsdebug
-	skip
-	note
-	tests_probe_imapssl
-	note
-	done_testing
-tests
-	tests
-	skip
-	tests
-	note
-	tests_folder_routines
-	tests_compare_lists
-	tests_regexmess
-	tests_skipmess
-	tests_flags_regex
-	tests_ucsecond
-	tests_permanentflags
-	tests_flags_filter
-	tests_separator_invert
-	tests_imap2_folder_name
-	tests_command_line_nopassword
-	tests_good_date
-	tests_max
-	tests_remove_not_num
-	tests_memory_consumption
-	tests_is_a_release_number
-	tests_imapsync_basename
-	tests_list_keys_in_2_not_in_1
-	tests_convert_sep_to_slash
-	tests_match_a_cache_file
-	tests_cache_map
-	tests_get_cache
-	tests_clean_cache
-	tests_clean_cache_2
-	tests_touch
-	tests_flagscase
-	tests_mkpath
-	tests_extract_header
-	tests_decompose_header
-	tests_epoch
-	tests_add_header
-	tests_cache_dir_fix
-	tests_cache_dir_fix_win
-	tests_filter_forbidden_characters
-	tests_cache_folder
-	tests_time_remaining
-	tests_decompose_regex
-	tests_backtick
-	tests_bytes_display_string
-	tests_header_line_normalize
-	tests_fix_Inbox_INBOX_mapping
-	tests_max_line_length
-	tests_subject
-	tests_msgs_from_maxmin
-	tests_tmpdir_has_colon_bug
-	tests_sleep_max_messages
-	tests_sleep_max_bytes
-	tests_logfile
-	tests_setlogfile
-	tests_jux_utf8_old
-	tests_jux_utf8
-	tests_pipemess
-	tests_jux_utf8_list
-	tests_guess_prefix
-	tests_guess_separator
-	tests_format_for_imap_arg
-	tests_imapsync_id
-	tests_date_from_rcs
-	tests_quota_extract_storage_limit_in_bytes
-	tests_quota_extract_storage_current_in_bytes
-	tests_guess_special
-	tests_do_valid_directory
-	tests_delete1emptyfolders
-	tests_message_for_host2
-	tests_length_ref
-	tests_firstline
-	tests_diff_or_NA
-	tests_match_number
-	tests_all_defined
-	tests_special_from_folders_hash
-	tests_notmatch
-	tests_match
-	tests_get_options
-	tests_get_options_cgi_context
-	tests_rand32
-	tests_hashsynclocal
-	tests_hashsync
-	tests_output
-	tests_output_reset_with
-	tests_output_start
-	tests_check_last_release
-	tests_loadavg
-	tests_cpu_number
-	tests_load_and_delay
-	tests_sslcheck
-	tests_not_long_imapsync_version_public
-	tests_reconnect_if_needed
-	tests_reconnect_12_if_needed
-	tests_sleep_if_needed
-	tests_string_to_file
-	tests_file_to_string
-	tests_under_cgi_context
-	tests_umask
-	tests_umask_str
-	tests_set_umask
-	tests_createhashfileifneeded
-	tests_slash_to_underscore
-	tests_testsunit
-	tests_count_0s
-	tests_report_failures
-	tests_min
-	tests_usage
-	tests_version_from_rcs
-	tests_backslash_caret
-	tests_write_pidfile
-	tests_remove_pidfile_not_running
-	tests_match_a_pid_number
-	tests_prefix_seperator_invertion
-	tests_is_an_integer
-	tests_integer_or_1
-	tests_is_number
-	tests_sig_install
-	tests_template
-	tests_split_around_equal
-	tests_toggle_sleep
-	tests_labels
-	tests_synclabels
-	tests_uidexpunge_or_expunge
-	tests_appendlimit_from_capability
-	tests_maxsize_setting
-	tests_mock_capability
-	tests_appendlimit
-	tests_capability_of
-	tests_search_in_array
-	tests_operators_and_exclam_precedence
-	tests_teelaunch
-	tests_logfileprepa
-	tests_useheader_suggestion
-	tests_nb_messages_in_2_not_in_1
-	tests_labels_add_subfolder2
-	tests_labels_remove_subfolder1
-	tests_resynclabels
-	tests_labels_remove_special
-	tests_uniq
-	tests_remove_from_requested_folders
-	tests_errors_log
-	tests_add_subfolder1_to_folderrec
-	tests_sanitize_subfolder
-	tests_remove_edging_blanks
-	tests_sanitize
-	tests_remove_last_char_if_is
-	tests_check_binary_embed_all_dyn_libs
-	tests_nthline
-	tests_secondline
-	tests_tail
-	tests_truncmess
-	tests_eta
-	tests_timesince
-	tests_timenext
-	tests_foldersize
-	tests_imapsync_context
-	tests_abort
-	tests_probe_imapssl
-	tests_mailimapclient_connect
-	done_testing
-	note
-tests_template
-	note
-	is
-	undef
-	is_deeply
-	is_deeply
-	note
diff --git a/W/install_module_one.bat b/W/install_module_one.bat
deleted file mode 100755
index 6ab80f9..0000000
--- a/W/install_module_one.bat
+++ /dev/null
@@ -1,33 +0,0 @@
-
-@REM $Id: install_module_one.bat,v 1.11 2019/12/11 18:57:04 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF 
-@ECHO Currently running through %0 %*
-SET SHELL=
-SET
-REM EXIT
-
-CD /D %~dp0
-
-perl -v
-IF ERRORLEVEL 1 ECHO Perl needed. Install Strawberry Perl. Get it at http://strawberryperl.com/ ^
-   && EXIT /B
-
-@ECHO perl is here
-@REM PAUSE
-@REM EXIT
-FOR %%M in ( 
-               IO::Tee   ^         
-             ) DO perl -m%%M -e "print qq{Updating %%M $%%M::VERSION \n}" ^
-   & cpanm --force %%M
-
-REM & cpanm --force %%M 
-REM IO::Socket::SSL Net::SSLeay PAR::Packer IO::Tee Crypt::OpenSSL::RSA Encode::IMAPUTF7 IO::Socket::IP
-
-@ECHO Perl modules for imapsync installed
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-EXIT /B
-
-@ENDLOCAL
diff --git a/W/install_module_ssl.bat b/W/install_module_ssl.bat
deleted file mode 100755
index 5c0c865..0000000
--- a/W/install_module_ssl.bat
+++ /dev/null
@@ -1,29 +0,0 @@
-
-@REM $Id: install_module_ssl.bat,v 1.5 2019/04/28 03:09:53 gilles Exp gilles $
-
-@ECHO OFF 
-SET SHELL=
-SET
-REM EXIT
-
-ECHO Installing Perl module IO::Socket::SSL for imapsync
-REM CD /D %~dp0
-
-perl -v
-IF ERRORLEVEL 1 ECHO Perl needed. Install Strawberry Perl. Get it at http://strawberryperl.com/ ^
-  && EXIT /B
-
-@ECHO perl is here
-
-FOR %%M in ( 
-              IO::Socket::SSL 
-             ) DO perl -m%%M -e "print qq{Updating %%M $%%M::VERSION \n}" ^
-   & cpanm  %%M
-
-REM cpanm --force %%M
-REM IO::Socket::SSL
-
-@ECHO Perl modules for imapsync installed
-PAUSE
-
-
diff --git a/W/install_modules.bat b/W/install_modules.bat
deleted file mode 100755
index 7ba7d14..0000000
--- a/W/install_modules.bat
+++ /dev/null
@@ -1,116 +0,0 @@
-REM $Id: install_modules.bat,v 1.39 2019/12/11 18:56:54 gilles Exp gilles $
-
-::------------------------------------------------------
-::--------------- Main of install_modules.bat ----------
-@SETLOCAL
-@ECHO OFF
-ECHO Currently running through %0 %*
-
-@REM Needed with remote ssh
-SET SHELL=
-SET
-ECHO Installing Perl modules for imapsync
-
-CD /D %~dp0
-
-CALL :handle_error CALL :detect_perl
-CALL :handle_error CALL :update_modules
-
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@ENDLOCAL
-EXIT /B
-
-
-::------------------------------------------------------
-
-
-::------------------------------------------------------
-::--------------- Detect Perl --------------------------
-:detect_perl
-@SETLOCAL
-perl -v
-IF ERRORLEVEL 1 ECHO Perl needed. Install Strawberry Perl. Get it at http://strawberryperl.com/ ^
-  && PAUSE && EXIT 3
-ECHO perl is there
-@ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
-
-::------------------------------------------------------
-::---------------- Update modules ----------------------
-:update_modules
-@SETLOCAL
-FOR %%M in ( ^
- App::cpanminus ^
- MIME::Base64 ^
- Encode ^
- Encode::IMAPUTF7 ^
- File::Tail ^
- Regexp::Common ^
- Sys::MemInfo ^
- Test::MockObject ^
- Readonly ^
- Authen::NTLM ^
- Crypt::SSLeay ^
- Data::Uniqid ^
- Digest::HMAC_MD5 ^
- Digest::HMAC_SHA1 ^
- Digest::MD5 ^
- File::Copy::Recursive ^
- Getopt::ArgvFile ^
- Socket6 ^
- Net::SSLeay ^
- IO::Socket::IP ^
- IO::Socket::INET ^
- IO::Socket::INET6 ^
- IO::Socket::SSL ^
- IO::Tee ^
- Mail::IMAPClient ^
- Module::ScanDeps ^
- Net::SSL ^
- PAR::Packer ^
- Pod::Usage ^
- Test::Pod ^
- Unicode::String ^
- URI::Escape ^
- Crypt::OpenSSL::RSA ^
- JSON ^
- JSON::WebToken ^
- LWP ^
- HTML::Entities ^
- Encode::Byte ^
- ) DO @perl -m%%M -e "print qq{Updating %%M $%%M::VERSION \n}" ^
-   & ECHO DOING cpanm %%M & cpanm %%M & ECHO DONE cpanm %%M 
-
-ECHO Perl modules for imapsync updated
-REM PAUSE
-@REM @ECHO Net::SSLeay not updated
-
-@ENDLOCAL
-EXIT /B
-
-
-::------------------------------------------------------
-
-
-::------------------------------------------------------
-::----------- Handle errors in LOG_bat\ directory ------
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure calling with extra %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-::------------------------------------------------------
-
diff --git a/W/ks.htaccess b/W/ks.htaccess
deleted file mode 100644
index b93041f..0000000
--- a/W/ks.htaccess
+++ /dev/null
@@ -1,11 +0,0 @@
-
-RewriteEngine on
-RewriteRule "^paypal_return.shtml" "/S/paypal_return.shtml"
-
-<Files "imapsync_bin_Darwin">
-        # Safari (the native Mac browser) transforms it to Amiga imapsync_bin_Darwin.dms
-        # https://forums.macrumors.com/threads/safari-erroneously-adding-dms-extension-to-downloads.2080108/
-        ForceType application/octet-stream
-</Files>
-
-
diff --git a/W/learn/+ZyhnUA- b/W/learn/+ZyhnUA-
deleted file mode 100644
index e69de29..0000000
diff --git a/W/learn/10990.txt b/W/learn/10990.txt
deleted file mode 100644
index cf92d94..0000000
--- a/W/learn/10990.txt
+++ /dev/null
@@ -1 +0,0 @@
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
diff --git a/W/learn/10_99.txt b/W/learn/10_99.txt
deleted file mode 100644
index c912fe2..0000000
--- a/W/learn/10_99.txt
+++ /dev/null
@@ -1,450 +0,0 @@
-10
-Hello Guys
-
-LLLLLLLLLL
-END
-11
-Hello Guys
-
-LLLLLLLLLLL
-END
-12
-Hello Guys
-
-LLLLLLLLLLLL
-END
-13
-Hello Guys
-
-LLLLLLLLLLLLL
-END
-14
-Hello Guys
-
-LLLLLLLLLLLLLL
-END
-15
-Hello Guys
-
-LLLLLLLLLLLLLLL
-END
-16
-Hello Guys
-
-LLLLLLLLLLLLLLLL
-END
-17
-Hello Guys
-
-LLLLLLLLLLLLLLLLL
-END
-18
-Hello Guys
-
-LLLLLLLLLLLLLLLLLL
-END
-19
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLL
-END
-20
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLL
-END
-21
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLL
-END
-22
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLL
-END
-23
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLL
-END
-24
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLL
-END
-25
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLL
-END
-26
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-27
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-28
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-29
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-30
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-31
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-32
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-33
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-34
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-35
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-36
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-37
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-38
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-39
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-40
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-41
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-42
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-43
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-44
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-45
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-46
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-47
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-48
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-49
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-50
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-51
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-52
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-53
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-54
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-55
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-56
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-57
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-58
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-59
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-60
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-61
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-62
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-63
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-64
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-65
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-66
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-67
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-68
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-69
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-70
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-71
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-72
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-73
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-74
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-75
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-76
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-77
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-78
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-79
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-80
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-81
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-82
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-83
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-84
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-85
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-86
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-87
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-88
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-89
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-90
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-91
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-92
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-93
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-94
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-95
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-96
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-97
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-98
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
-99
-Hello Guys
-
-LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
-END
diff --git a/W/learn/Calltree.pm b/W/learn/Calltree.pm
deleted file mode 100755
index 9353e41..0000000
--- a/W/learn/Calltree.pm
+++ /dev/null
@@ -1,111 +0,0 @@
-package Calltree;
-use B::Utils qw(all_roots walkoptree_simple);
-
-my %legal_options 
-  = (INCLUDE_PACKAGES => undef,
-     EXCLUDE_PACKAGES => [__PACKAGE__],
-     CALLBACK =>  \&print_report,
-     CALLBACK_DATA => undef,
-    );
-
-our %OPT;
-
-sub import {
-  my ($class, %opts) = @_;
-  my @BAD;
-  for my $k (keys %opts) {
-    if (exists $legal_option{uc $k}) {
-      $OPT{uc $k} = $opts{$k};
-    } else {
-      push @BAD, $k ;
-    }
-  }
-  if (@BAD) {
-    my $options = @BAD == 1 ? 'option' : 'options';
-    require Carp;
-    Carp::croak( "$class: unrecognized $options @BAD" ) ;
-  }
-  for my $k (keys %legal_options) {
-    $OPT{$k} = $legal_options{$k} unless defined $OPT{$k};
-  }
-}
-
-sub array_to_hash {
-  my %h;
-  for (@_) { $h{$_} = 1 }
-  \%h;
-}
-
-sub adjust_options {
-  my $opt = shift;
-  if (! defined $opt->{INCLUDE_PACKAGES}) {
-    $opt->{INCLUDE_PACKAGES} = array_to_hash(walk_stashes(), 'main');
-  }
-
-  for my $k (qw(INCLUDE_PACKAGES EXCLUDE_PACKAGES)) {
-    if (! ref $opt->{$k}) {
-      $opt->{$k} = array_to_hash(split /,\s*/, $opt->{$k});
-    } elsif (ref $opt->{$k} eq 'ARRAY') {
-      $opt->{$k} = array_to_hash(@{$opt->{$k}});
-    }
-  }
-}
-
-sub walk_stashes {
-  my $top = shift || '';
-  return if $top eq '::main';
-#  print "* $top\n";
-  my @packages = $top;
-  while (my $name = each %{"$top\::"}) {
-    next unless $name =~ s/::$//;
-    push @packages, walk_stashes("$top\::$name");
-  }
-#  print "=> @packages\n";
-  map /^(?:::)?(.*)/, @packages;
-}
-
-sub trim_stashname {
-  my $sn = shift;
-  $sn =~ s/::$//;
-  return $sn;
-}
-
-sub INIT {
-  adjust_options(\%OPT);
-
-  my %root = all_roots();
-  my %CALLS;
-  while (my ($name, $root) = each %root) {
-    my ($pkg) = $name =~ /(.*)::/; 
-    next unless $OPT{INCLUDE_PACKAGES}{$pkg};
-    next if $OPT{EXCLUDE_PACKAGES}{$pkg};
-    my @CALLS;
-    $CALLS{$name} = {};
-    walkoptree_simple($root, \&find_subcall, \@CALLS);
-    for my $call (@CALLS) {
-      $CALLS{$name}{$call} = 1;
-    }
-  } 
-  $OPT{CALLBACK}->(\%CALLS, $OPT{CALLBACK_DATA});
-  exit;
-}
-
-sub find_subcall {
-  my ($op, $dest) = @_;
-  if ($op->name eq 'gv' && $op->next && $op->next->name eq 'entersub') {
-    my $cur_gv = $op->gv;
-    push @$dest, join '::', $cur_gv->STASH->NAME, $cur_gv->NAME; 
-  }
-}
-
-sub print_report {
-  my $C = shift;
-  for my $caller (sort keys %$C) {
-    print "\n$caller: \n";
-    for my $callee (sort keys %{$C->{$caller}}) {
-      print "  $callee\n";
-    }
-  }
-}
-
-"Cogito, ergo sum";
diff --git a/W/learn/adjust_time.pl b/W/learn/adjust_time.pl
deleted file mode 100644
index 9dc3d21..0000000
--- a/W/learn/adjust_time.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#! /usr/bin/perl -w
-#
-# Author : Jean-Yves Boisiaud
-#
-# Outlook (IMAP) manages mail dates from the creation date of the mail
-# instead of the content of the field 'Date:', included into the mail.
-# This script modifies the mtime of the mails, according to the 'Date:' field
-# value.
-# Before running the script, you have to build a list of the mail files.
-# For example, with the MailDir format, the file has been built whith :
-#   find /var/lib/vmail -type f -a -name '[0-9]*' > /tmp/toto
-# Depending on the quality of the 'Date:' field, some mtime modification fails.
-# You have to correct it manually.
-# I ran it on 18733 mails, and 45 failed.
-
-use strict;
-
-my @a;
-my $f;
-my @b;
-my @date;
-my $d;
-my @r;
-my $s;
-
-open(F, "</tmp/toto") or die "can't open toto";
-@a = <F>;
-chomp @a;
-
-foreach $f (@a)
-{
-	open(F1, "<$f") or die "can't open $f";
-        @b = <F1>;
-        chomp @b;
-        close F1;
-        @date = grep /^Date: /, @b;
-        next if scalar @date <= 0;
-        $d = $date[0];
-        $d =~ s/Date: (.*)$/$1/i;
-        print "$d\n";
-        @r = `/usr/bin/touch -md '$d' '$f' 2>&1`;
-        print "$f\n";
-        foreach $d (@r)
-        {
-        	print "$d\n"
-        }
-}
-
diff --git a/W/learn/append b/W/learn/append
deleted file mode 100755
index b66dbcc..0000000
--- a/W/learn/append
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-
-my $rcs = '$Id: append,v 1.2 2018/11/05 22:34:00 gilles Exp gilles $ ';
-
-$ARGV[3] or die "usage: $0 host user password folder uid\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder   = $ARGV[3];
-my $uid      = $ARGV[4];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->Clear(0);
-
-#print map {"$_\n"} $imap->folders();
-
-$imap->select($folder) or die;
-my @msgs = $imap->messages ;
-print "LIST: @msgs\n";
-
-my $msgtext = "Subject: 9
-
-??
-" ;
-
-my $flags = '\Seen' ;
-my $date  = "16-Mar-2011 11:07:11 +0000" ;
-
-my $new_id_1b = $imap->append_string( $folder, $msgtext ) ;
-print "==== OK 1b $new_id_1b\n" if $new_id_1b ;
-$imap->noop ;
-@msgs = $imap->messages ;
-print "LIST: @msgs\n";#my $new_id_1 = $imap->append_string( $folder, $msgtext, $flags, $date ) ;
-#print "==== OK 1 $new_id_1\n" if $new_id_1 ;
-#my $new_id_2 = $imap->append_string( $folder, $msgtext, $flags, $date ) ;
-#print "==== OK 2 $new_id_2\n" if $new_id_2 ;
-
-$imap->close();
-
diff --git a/W/learn/automap_languages b/W/learn/automap_languages
deleted file mode 100644
index aee3330..0000000
--- a/W/learn/automap_languages
+++ /dev/null
@@ -1,11 +0,0 @@
-
-From
-http://stackoverflow.com/questions/2185391/localized-gmail-imap-folders/2185548#2185548
-
-    drafts Borradores, Borradores, Bozze, Brouillons, Concepten, Entwürfe, Kladder, Koncepty, Kopie robocze, Rascunhos, Rascunhos, Taslaklar, Utkast, Utkast, Π�όχει�α, Черновики, 下書�, �稿, �稿, 임시보관함
-    inbox Bandeja de entrada, Boîte de réception, Caixa de entrada, Caixa de entrada, Doru�ená pošta, Gelen Kutusu, Indbakke, Inkorgen, Innboks, Odebrane, Posta in arrivo, Posteingang, Postvak IN, Recibidos, Εισε�χόμενα, Вход�щие, �信トレイ, 收件匣, 收件箱, 받�편지함
-    junk Correio electrónico não solicitado, Correo basura, Junk, Junk, Lixo, Nettsøppel, Nevyžádaná pošta, No solicitado, Ongewenst, Posta indesiderata, Skräp, Spam, Wiadomości-śmieci, Önemsiz, Ανεπιθ�μητα, Спам, 垃圾邮件, 垃圾郵件, 迷惑メール, 스팸
-    outbox Bandeja de salida, Boîte d'envoi, Caixa de saída, Caixa de saída, Do wysłania, Enviados, Giden Kutusu, Posta in uscita, Postausgang, Postvak UIT, Pošta k odeslání, Udbakke, Utboks, Utkorgen, Εξε�χόμενα, И�ход�щие, �件箱, 寄件匣, �信トレイ, 보낼편지함
-    sent E-mails enviados, Enviada, Enviado, Enviado, Gesendet, Gönderildi, Inviati, Odeslaná pošta, Sendt, Sendt, Skickat, Verzonden, Wysłane, Éléments envoyés, Απεσταλμένα, Отправленные, 寄件備份, 已��邮件, �信済�, 보낸편지함
-    trash Cestino, Corbeille, Kosz, Koš, Lixeira, Lixo, Papelera, Papelera, Papierkorb, Papirkurv, Papirkurv, Papperskorgen, Prullenbak, Çöp Kutusu, Κάδος απο��ιμμάτων, Корзина, ゴミ箱, 垃圾桶, 已删除邮件, 휴지통
-
diff --git a/W/learn/bibmail_1GB b/W/learn/bibmail_1GB
deleted file mode 100644
index 30cba24..0000000
--- a/W/learn/bibmail_1GB
+++ /dev/null
@@ -1,7 +0,0 @@
-
-# A big file 714MB
-dd if=/dev/zero of=pate714M bs=1M count=714
-# post it to big1 user
-echo Aie aie aie | mutt -s '1 GB dans ta face !' -a pate714M -- big1
-
-# ok ?
diff --git a/W/learn/bug_Mail-IMAPClient-3.40_connect b/W/learn/bug_Mail-IMAPClient-3.40_connect
deleted file mode 100755
index da6042b..0000000
--- a/W/learn/bug_Mail-IMAPClient-3.40_connect
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/usr/bin/perl
-
-use strict ;
-use warnings ;
-use Mail::IMAPClient ;
-
-my $imap = Mail::IMAPClient->new(  ) ;
-$imap->connect(  ) ;
-print "I hope I'm not dead but...\n" ;
-
diff --git a/W/learn/bug_io_prompt_local_ARGV b/W/learn/bug_io_prompt_local_ARGV
deleted file mode 100755
index 3830e47..0000000
--- a/W/learn/bug_io_prompt_local_ARGV
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use IO::Prompt;
-
-# The defect is when used with a pipe, like the following on the command line example,
-# prompt() does not print the prompt string 'Say something: '
-# however the variable @ARGV is locally empty.
-# The output is then only:
-#
-# $ echo bla bla bla | ./bug_io_prompt_local_ARGV param1 param2
-# ARGV are param1 param2
-# You said: bla bla bla
-
-# I tried also 
-# prompt( \*STDOUT, 'Say something: ');
-
-# The behavior is ok without the pipe:
-# ./bug_io_prompt_local_ARGV param1 param2
-
-print "$IO::Prompt::VERSION\n" ;
-print "ARGV are @ARGV\n" ;
-
-my $input = get_stdin();
-
-print "You said: $input\n" ;
-
-sub get_stdin
-{
-        local(@ARGV) ;
-        my $input = prompt( 
-                -prompt => 'Say it: ', 
-                -echo => '*', 
-                -newline => "\nGot it\n" 
-        ) ;
-        return $input ;
-}
diff --git a/W/learn/bug_io_prompter_local_ARGV b/W/learn/bug_io_prompter_local_ARGV
deleted file mode 100755
index 6525fe8..0000000
--- a/W/learn/bug_io_prompter_local_ARGV
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use IO::Prompter;
-
-# The defect is when used with a pipe, like the following on the command line example,
-# prompt() does not print the prompt string 'Say something: '
-# however the variable @ARGV is locally empty.
-# The output is then only:
-#
-# $ echo bla bla bla | ./bug_io_prompt_local_ARGV param1 param2
-# ARGV are param1 param2
-# You said: bla bla bla
-
-# I tried also 
-# prompt( \*STDOUT, 'Say something: ');
-
-# The behavior is ok without the pipe:
-# ./bug_io_prompt_local_ARGV param1 param2
-
-# echo input | { echo -n "prompt: " ; read stdin ; echo "got $stdin" ; }
-# { echo -n "prompt: " ; read stdin ; echo "got $stdin" ; }
-
-
-print "$IO::Prompter::VERSION\n" ;
-print "ARGV are @ARGV\n" ;
-
-my $input = get_stdin();
-
-print "You said: $input\n" ;
-
-sub get_stdin
-{
-        #local(@ARGV) ;
-        my $prompt = 'Say something: ' ;
-        my $input = prompt(
-                -prompt  => $prompt,
-                -echo    => '*',
-                -in  => *STDIN,
-                -out => *STDOUT,
-        );
-        return $input ;
-}
diff --git a/W/learn/copy b/W/learn/copy
deleted file mode 100755
index dd46c88..0000000
--- a/W/learn/copy
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-
-my $rcs = '$Id: append,v 1.1 2011/07/14 16:49:02 gilles Exp gilles $ ';
-
-$ARGV[3] or die "usage: $0 host user password folder uid\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder_1 = $ARGV[3];
-my $folder_2 = $ARGV[4];
-
-my $imap = Mail::IMAPClient->new(  );
-$imap->Debug( 1 );
-$imap->Server( $host );
-$imap->connect(  ) or die;
-$imap->User( $user );
-$imap->Password( $password ) ;
-$imap->login(  ) or die;
-$imap->Uid( 1 ) ;
-$imap->Peek( 1 ) ;
-$imap->Clear( 0 ) ;
-
-#print map {"$_\n"} $imap->folders(  ) ;
-
-$imap->select( $folder_1 ) or die ;
-my @msgs_1 = $imap->messages ;
-print "LIST_1: @msgs_1\n" ;
-my $copy = $imap->copy( $folder_2, $msgs_1[0] ) ;
-print "copy: $copy\n" ;
-$imap->select( $folder_2 ) or die ;
-my @msgs_2 = $imap->messages ;
-print "LIST_2: @msgs_2\n" ;
-
-$imap->close(  ) ;
-
diff --git a/W/learn/create_folder b/W/learn/create_folder
deleted file mode 100755
index 5a1b1b8..0000000
--- a/W/learn/create_folder
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-
-$ARGV[2] or die "usage: $0 host user password folder1 folder2 ...\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-
-foreach $folder (@ARGV[3..$#ARGV]) {
-	print "creating folder $folder\n";
-	$imap->create($folder);
-}
-
-$imap->logout();
-# $imap->close();
-
-
diff --git a/W/learn/crunch_memory b/W/learn/crunch_memory
deleted file mode 100755
index cd71760..0000000
--- a/W/learn/crunch_memory
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-
-use strict ;
-use warnings ;
-use English qw( -no_match_vars ) ;
-use Sys::MemInfo ;
-use Readonly ;
-
-
-Readonly my $KIBI => 1024 ;
-
-my $total_ram_memory = total_ram_memory(  ) ;
-print "Total RAM memory $total_ram_memory\n" ;
-current_memory_used(  ) ;
-
-sub current_memory_used {
-        my @ps = qx{ ps -o vsz -p $PROCESS_ID } ;
-        print( @ps ) ;
-        shift @ps; # First line is column name "VSZ"
-        chomp @ps;
-        # convert to octets
-        my $val = $KIBI * $ps[ 0 ] ;
-        print "$val\n" ;
-        return $val ;
-}
-
-
-sub total_ram_memory {
-	
-	return(
-		sprintf( "%.1f GiB", Sys::MemInfo::get("totalmem") / ( 1024 ** 3 ) )
-	) ;
-}
diff --git a/W/learn/data_utf7 b/W/learn/data_utf7
deleted file mode 100644
index e19ddc1..0000000
--- a/W/learn/data_utf7
+++ /dev/null
@@ -1,30 +0,0 @@
-[&ZTZO9nux-]
-[&ZTZO9nux-/263&cO1+vw-]
-[&ZTZO9nux-/&kK57sZXumJg-]
-[&ZTZO9nux-/&fwFb+G3u-]
-[&ZTZO9nux-/11111]
-[&XfJT0ZAB-]
-[&XfJT0ZAB-/321]
-[&XfJSIJZk-]
-[&XfJSIJZk-/&fwFb+G3u-]
-[&g0l6Pw-]
-[&Tg1mDpCuTvZZOQ-]
-[&XfJfUmhj-]
-[&XfJfUmhj-/&VGhfi14I-]
-[&XfJfUmhj-/&Ti1W,U4Hf1E-]
-[&XfJfUmhj-/&f1F62Q-]
-[&XfJfUmhj-/&UWh0Aw-]
-[&XfJfUmhj-/&UWh0Aw-/11]
-[&XfJfUmhj-/&fwFb+G3u-]
-[&XfJfUmhj-/&X66Pbw-eip]
-[&XfJfUmhj-/China Tax Service]
-[&XfJfUmhj-/IT&ZXR0Bg-]
-[&XfJfUmhj-/&cGuPZnlo-]
-[&XfJfUmhj-/&UWhl9g-]
-[&XfJfUmhj-/&dTWL3U8ai64-]
-[&XfJfUmhj-/&V,mLrQ-]
-[&XfJfUmhj-/&cO1wuU,hYG+QH5AS-]
-[Sent Messages]
-[Deleted Messages]
-[&V4NXPpCuTvY-]
-[&XfJSIJZkkK5O9g-]
diff --git a/W/learn/date_manip b/W/learn/date_manip
deleted file mode 100755
index a7f580b..0000000
--- a/W/learn/date_manip
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/bin/perl -w
-
-
-require Date::Manip;
-
-Date::Manip->import(qw(ParseDate Date_Cmp UnixDate));
-
-print "Date::Manip::VERSION $Date::Manip::VERSION\n";
-
-foreach $date_inp ("21-Jan-2004 23:10:58 +0200", "21-Feb-2004 0:14:02 +0200",
-"15-Oct-2004 23:25:42 +0200", "19-Aug-2005 1:49:08 +0200") {
-	$date_dm = ParseDate($date_inp);
-	$date_un = UnixDate($date_dm, "%g");
-	unless ($date_dm) {
-		print "Error in date [$date_inp]\n";
-		next;
-	}
-	print "     $date_inp\n$date_un\n";
-
-}
-
-$date1 = ParseDate("21-Feb-2004 0:14:02 +0200");
-$date2 = ParseDate("21-Feb-2004 00:14:02 +0200");
-
-print "cmp date1 $date1 date2 $date2 : ", Date_Cmp($date1,$date2), "\n";
-
-print "UnixDate ", UnixDate($date1, "%g"), "\n";
-print "UnixDate ", UnixDate(undef, "%g"), "\n";
diff --git a/W/learn/dbfile b/W/learn/dbfile
deleted file mode 100755
index 8877abd..0000000
--- a/W/learn/dbfile
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl 
-
-# $Id: dbfile,v 1.1 2013/01/02 16:33:19 gilles Exp gilles $
-
-use strict ;
-use warnings ;
-
-use DB_File ;
-
-my %hash ;
-
-my $X = tie %hash,  'DB_File', 'test_dbfile.db' ;
-
-
-print ( scalar keys %hash, "\n" ) ;
-@ARGV and exit ;
-
-for my $num ( 0 .. 255 ) {
-       	print "$num\n" ;
-
-	my $key = chr $num ;
-        for my $num2 ( 1 .. 500 ) {
-        	my $keylong = "$num2 $key" . ( $key x 1024 ) ;
-        	my $val_1 = "V$key" ;
-		#print "$keylong\n" ;
-                my $val_2 ;
-                my $status ;
-		$status = $X->put( $keylong, $val_1 ) ;
-		$status = $X->get( $keylong, $val_2 ) ;
-        
-        	my $cmp = $val_1 cmp $val_2 ;
-        	print " $cmp  $val_1 $val_2\n" if $cmp ;
-		#$status = $X->del( $keylong ) ;
-        }
-}
-
diff --git a/W/learn/dbmdeep b/W/learn/dbmdeep
deleted file mode 100755
index 112db0c..0000000
--- a/W/learn/dbmdeep
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl 
-
-# $Id: dbfile,v 1.1 2013/01/02 16:33:19 gilles Exp gilles $
-
-use strict ;
-use warnings ;
-
-use DBM::Deep ;
-
-my %hash ;
-
-my $db = DBM::Deep->new(
-    file      => "test_dbmdeep.db",
-    locking   => 0,
-    autoflush => 0
-);
-
-print ( scalar keys %$db, "\n" ) ;
-#exit ;
-
-for my $num ( 0 .. 255 ) {
-       	print "$num\n" ;
-
-	my $key = chr $num ;
-        for my $num2 ( 1 .. 500 ) {
-        	my $keylong = "$num2 $key" . ( $key x 1024 ) ;
-        	my $val_1 = "V$key" ;
-		#print "$keylong\n" ;
-                my $val_2 ;
-
-		$db->{ $keylong } = $val_1 ;
-		$val_2 = $db->{ $keylong } ;
-        
-        	my $cmp = $val_1 cmp $val_2 ;
-        	print " $cmp  $val_1 $val_2\n" if $cmp ;
-		#$db->delete( $keylong ) ;
-        }
-}
-
diff --git a/W/learn/delete b/W/learn/delete
deleted file mode 100755
index 6e0e9fd..0000000
--- a/W/learn/delete
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-
-$ARGV[3] or die "usage: $0 host user password folder uid1 uid2 ...\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$folder = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->select($folder) or die;
-
-foreach $uid (@ARGV[4..$#ARGV]) {
-	print "deleting $uid\n";
-	$imap->delete_message($uid);
-	$imap->expunge();
-}
-$imap->close();
-
-
diff --git a/W/learn/delete_all_folders b/W/learn/delete_all_folders
deleted file mode 100755
index 2ba7ee7..0000000
--- a/W/learn/delete_all_folders
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: delete_folder,v 1.1 2016/07/05 20:59:43 gilles Exp gilles $
-
-use Mail::IMAPClient;
-
-$ARGV[2] or die "usage: $0 host user password folder1 folder2 ...\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->Ssl( 1 ) ;
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-
-
-
-my @folders = $imap->folders(  ) ;
-print map { "$_\n" } @folders ;
-foreach $folder ( @folders) {
-	print "deleting folder $folder\n";
-	$imap->delete( $folder ) ;
-}
-
-$imap->logout();
-# $imap->close();
-
-
diff --git a/W/learn/delete_folder b/W/learn/delete_folder
deleted file mode 100755
index 0783363..0000000
--- a/W/learn/delete_folder
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: delete_folder,v 1.1 2016/07/05 20:59:43 gilles Exp gilles $
-
-use Mail::IMAPClient;
-
-$ARGV[2] or die "usage: $0 host user password folder1 folder2 ...\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->Ssl( 1 ) ;
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-
-
-
-my @folders = $imap->folders(  ) ;
-print map { "$_\n" } @folders ;
-foreach $folder (@ARGV[3..$#ARGV]) {
-	print "deleting folder $folder\n";
-	$imap->delete( $folder ) ;
-}
-
-$imap->logout();
-# $imap->close();
-
-
diff --git a/W/learn/digest b/W/learn/digest
deleted file mode 100755
index 75ab593..0000000
--- a/W/learn/digest
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl 
-
-use strict ;
-use warnings ;
-
-
-
-
-require Digest ;
-
-my $digest ;
-eval { $digest = Digest->new( 'Whirlpool' ) ; } ;
-$digest->add( '' ) ;
-print $digest->hexdigest(  ) . "\n" ;
diff --git a/W/learn/dns_srv_imap b/W/learn/dns_srv_imap
deleted file mode 100755
index 073d734..0000000
--- a/W/learn/dns_srv_imap
+++ /dev/null
@@ -1,205 +0,0 @@
-#!/usr/bin/perl 
-
-# $Id: dns_srv_imap,v 1.5 2016/08/15 01:24:20 gilles Exp gilles $
-
-use strict ;
-use warnings ;
-use English ;
-use Test::More ;
-use Net::DNS ;
-
-
-
-foreach my $email ( @ARGV ) {
-	my $domain = domain_name_of( $email ) ;
-        print "Domain for email $email: $domain\n" ;
-	my ( $host, $port ) = host_port_from_lookup_srv( '_imaps._tcp.' . $domain ) ;
-	$host ||= q{} ;
-	$port ||= q{} ;
-        print "IMAPS server name and port for $email: $host $port\n" ;
-
-	( $host, $port ) = host_port_from_lookup_srv( '_imap._tcp.' . $domain ) ;
-	$host ||= q{} ;
-	$port ||= q{} ;
-        print "IMAP  server name and port for $email: $host $port\n" ;
-}
-
-
-tests_server_name_from_srv_string(  ) ;
-tests_server_port_from_srv_string(  ) ;
-tests_domain_name_of(  ) ;
-tests_host_port_ssl_from_user(  ) ;
-done_testing(  ) ;
-
-my $debug = 1 ;
-
-
-sub host_port_ssl_from_user {
-        my $user = shift @ARG ;
-
-        if ( ! $user ) {
-                return ;
-        }
-         
-        my $domain = domain_name_of( $user ) ;
-        if ( ! $domain ) {
-                return ;
-        }
-        
-        my ( $host, $port ) = host_port_from_lookup_srv( qq{_imaps._tcp.$domain}  ) ;
-        my $ssl = 1 ;
-        if ( $host and $port ) {
-                return ( $host, $port, $ssl ) ;
-        }
-	
-	# fallback to imap in clear
-	$ssl = 0 ;
-	( $host, $port ) = host_port_from_lookup_srv( qq{_imap._tcp.$domain}  ) ;
-
-        if ( $host and $port ) {
-                return ( $host, $port, $ssl ) ;
-        }
-	
-	return ;
-	
-}
-
-sub tests_host_port_ssl_from_user {
-        is( undef, host_port_ssl_from_user(  ), 'host_port_ssl_from_user: no args => undef' ) ;
-        is_deeply( [qw( imap.gmail.com. 993 1 )], [host_port_ssl_from_user( 'gilles.lamiral@gmail.com' )], 
-        'host_port_ssl_from_user: gilles.lamiral@gmail.com => imap.gmail.com. 993 1 (ssl)' ) ;
-
-}
-
-sub host_port_from_lookup_srv {
-	my $request = shift @ARG ;
-	
-        my $lookup = lookup_srv_string( $request  ) ;
-        if ( ! $lookup ) {
-                return ;
-        }
-	
-        my $host = server_name_from_srv_string( $lookup ) ;
-        my $port = server_port_from_srv_string( $lookup ) ;
-
-	if( $host and $port ) {
-		return ( $host, $port ) ;
-	}
-	else {
-		return ;
-	}
-}
-
-
-sub domain_name_of_email {
-        my $email = shift ;
-
-        return( undef ) if ( not $email ) ;
-        
-        my $domain ;
-        
-        if ( $email =~ /^.*@([^@]+)$/ ) {
-                $domain = $1 ;
-                $debug and print "domain: $domain\n" ;
-                return( $domain ) ;
-        }
-        return ;
-}
-
-
-sub domain_name_of {
-        my $email = shift ;
-
-        return( undef ) if ( not $email ) ;
-        
-        my $domain = domain_name_of_email( $email ) ;
-        
-        if ( ! $domain ) {
-                $domain = $email ;
-        }
-        
-        return( $domain ) ;
-}
-
-sub tests_domain_name_of {
-        ok( not( domain_name_of( '' ) ),      'domain_name_of: void => undef' ) ;
-        ok( not( domain_name_of(  ) ),        'domain_name_of: undef => undef' ) ;
-        ok( 'foo' eq domain_name_of( 'foo' ),   'domain_name_of: foo => foo' ) ;
-        #ok( 'foo' eq domain_name_of( 'foo ' ),  'domain_name_of: foo  => foo' ) ;
-        #ok( 'foo' eq domain_name_of( 'foo  ' ), 'domain_name_of: foo   => foo' ) ;
-        ok( 'example.com' eq domain_name_of( 'foo@example.com' ),   'domain_name_of: foo@example.com => example.com' ) ;
-        ok( 'example.com' eq domain_name_of( '@foo@example.com' ),  'domain_name_of: @foo@example.com => example.com' ) ;
-        ok( 'example.com' eq domain_name_of( 'bar@foo@example.com' ),  'domain_name_of: bar@foo@example.com => example.com' ) ;
-}
-
-sub lookup_srv_string {
-        my $name = shift ;
-        
-        my $resolver = new Net::DNS::Resolver(  ) ;
-        my $reply = $resolver->query( $name, 'SRV' ) ;
-
-        my $string ;
-        if ( $reply ) {
-                #($reply->answer)[0]->print;
-                foreach my $rr ( $reply->answer ) {
-                        $debug and print 'name:   ' . $rr->name   . "\n" ;
-                        $debug and print 'class:  ' . $rr->class  . "\n" ;
-                        $debug and print 'type:   ' . $rr->type   . "\n" ;
-                        $debug and print 'ttl:    ' . $rr->ttl    . "\n" ;
-                        $debug and print 'string: ' . $rr->string . "\n" ;
-                        next if ( 'SRV' ne $rr->type ) ;
-                        next if ( not( $rr->string ) ) ;
-                        $string = $rr->string ;
-                        return( $string ) ;
-                }
-        } else {
-                print "Query failed SRV for domain $name: ", $resolver->errorstring, "\n" ;
-                return( undef ) ;
-        }
-        return( $string ) ;
-}
-
-
-
-
-sub server_name_from_srv_string {
-        my $srv_string = shift ;
-        
-        return( undef ) if ( not $srv_string ) ;
-        my $server_name = (split( /\s+/ , $srv_string ) )[7] ;
-        return( undef ) if ( '.' eq $server_name ) ;
-        return( $server_name ) ;
-}
-
-sub tests_server_name_from_srv_string {
-        ok( not( server_name_from_srv_string( '' ) ), 'server_name_from_srv_string: void' ) ;
-        ok( not( server_name_from_srv_string(  ) ), 'server_name_from_srv_string: undef' ) ;
-        ok( 'imap.gmail.com.' eq 
-            server_name_from_srv_string( '_imaps._tcp.gmail.com.  82466   IN      SRV     5 0 993 imap.gmail.com.' ), 
-            'server_name_from_srv_string: _imaps._tcp.gmail.com. => imap.gmail.com.' ) ;
-        ok( not( server_name_from_srv_string( '_imap._tcp.gmail.com.   81999   IN      SRV     0 0 0 .' ) ), 
-            'server_name_from_srv_string: _imap._tcp.gmail.com. => undef' ) ;
-        
-        return(  ) ;
-}
-
-sub server_port_from_srv_string {
-        my $srv_string = shift ;
-        
-        return( undef ) if ( not $srv_string ) ;
-        my $server_port = (split( /\s+/ , $srv_string ) )[6] ;
-        return( undef ) if ( 0 == $server_port ) ;
-        return( $server_port ) ;
-}
-
-sub tests_server_port_from_srv_string {
-        ok( not( server_port_from_srv_string( '' ) ), 'server_port_from_srv_string: void' ) ;
-        ok( not( server_port_from_srv_string(  ) ), 'server_port_from_srv_string: undef' ) ;
-        ok( '993' eq 
-            server_port_from_srv_string( '_imaps._tcp.gmail.com.  82466   IN      SRV     5 0 993 imap.gmail.com.' ), 
-            'server_port_from_srv_string: _imaps._tcp.gmail.com. => 993' ) ;
-        ok( not( server_port_from_srv_string( '_imap._tcp.gmail.com.   81999   IN      SRV     0 0 0 .' ) ), 
-            'server_port_from_srv_string: _imap._tcp.gmail.com. => undef' ) ;
-        
-        return(  ) ;
-}
diff --git a/W/learn/dns_srv_imap.tdy b/W/learn/dns_srv_imap.tdy
deleted file mode 100755
index 23287a3..0000000
--- a/W/learn/dns_srv_imap.tdy
+++ /dev/null
@@ -1,249 +0,0 @@
-#!/usr/bin/perl 
-
-# $Id: dns_srv_imap,v 1.5 2016/08/15 01:24:20 gilles Exp gilles $
-
-use strict;
-use warnings;
-use English;
-use Test::More;
-use Net::DNS;
-
-# _imaps._tcp.gmail.com.  86183   IN      SRV     5 0 993 imap.gmail.com.
-lookup_srv_string('_imaps._tcp.gmail.com');
-
-#lookup_srv( '_imap._tcp.gmail.com' ) ;
-#lookup_srv( '_imaps._tcp.lamiral.info' ) ;
-#lookup_srv( '_imap._tcp.lamiral.info' ) ;
-
-foreach my $email (@ARGV) {
-    my $domain = domain_name_of($email);
-    print "Domain for email $email: $domain\n";
-    my ( $host, $port ) = host_port_from_lookup_srv( '_imaps._tcp.' . $domain );
-    $host ||= q{};
-    $port ||= q{};
-    print "IMAPS server name and port for $email: $host $port\n";
-
-    ( $host, $port ) = host_port_from_lookup_srv( '_imap._tcp.' . $domain );
-    $host ||= q{};
-    $port ||= q{};
-    print "IMAP  server name and port for $email: $host $port\n";
-
-}
-
-tests_server_name_from_srv_string();
-tests_server_port_from_srv_string();
-tests_domain_name_of();
-tests_host_port_ssl_from_user();
-done_testing();
-
-my $debug = 1;
-
-sub host_port_ssl_from_user {
-    my $user = shift @ARG;
-
-    if ( !$user ) {
-        return;
-    }
-
-    my $domain = domain_name_of($user);
-    if ( !$domain ) {
-        return;
-    }
-
-    my ( $host, $port ) = host_port_from_lookup_srv(qq{_imaps._tcp.$domain});
-    my $ssl = 1;
-    if ( $host and $port ) {
-        return ( $host, $port, $ssl );
-    }
-
-    # fallback to imap in clear
-    $ssl = 0;
-    ( $host, $port ) = host_port_from_lookup_srv(qq{_imap._tcp.$domain});
-
-    if ( $host and $port ) {
-        return ( $host, $port, $ssl );
-    }
-
-    return;
-
-}
-
-sub tests_host_port_ssl_from_user {
-    is( undef, host_port_ssl_from_user(),
-        'host_port_ssl_from_user: no args => undef' );
-    is_deeply(
-        [qw( imap.gmail.com. 993 1 )],
-        [ host_port_ssl_from_user('gilles.lamiral@gmail.com') ],
-'host_port_ssl_from_user: gilles.lamiral@gmail.com => imap.gmail.com. 993 1 (ssl)'
-    );
-
-}
-
-sub host_port_from_lookup_srv {
-    my $request = shift @ARG;
-
-    my $lookup = lookup_srv_string($request);
-    if ( !$lookup ) {
-        return;
-    }
-
-    my $host = server_name_from_srv_string($lookup);
-    my $port = server_port_from_srv_string($lookup);
-
-    if ( $host and $port ) {
-        return ( $host, $port );
-    }
-    else {
-        return;
-    }
-}
-
-sub domain_name_of_email {
-    my $email = shift;
-
-    return (undef) if ( not $email );
-
-    my $domain;
-
-    if ( $email =~ /^.*@([^@]+)$/ ) {
-        $domain = $1;
-        $debug and print "domain: $domain\n";
-        return ($domain);
-    }
-    return;
-}
-
-sub domain_name_of {
-    my $email = shift;
-
-    return (undef) if ( not $email );
-
-    my $domain = domain_name_of_email($email);
-
-    if ( !$domain ) {
-        $domain = $email;
-    }
-
-    return ($domain);
-}
-
-sub tests_domain_name_of {
-    ok( not( domain_name_of('') ), 'domain_name_of: void => undef' );
-    ok( not( domain_name_of() ),   'domain_name_of: undef => undef' );
-    ok( 'foo' eq domain_name_of('foo'), 'domain_name_of: foo => foo' );
-
-    #ok( 'foo' eq domain_name_of( 'foo ' ),  'domain_name_of: foo  => foo' ) ;
-    #ok( 'foo' eq domain_name_of( 'foo  ' ), 'domain_name_of: foo   => foo' ) ;
-    ok(
-        'example.com' eq domain_name_of('foo@example.com'),
-        'domain_name_of: foo@example.com => example.com'
-    );
-    ok(
-        'example.com' eq domain_name_of('@foo@example.com'),
-        'domain_name_of: @foo@example.com => example.com'
-    );
-    ok(
-        'example.com' eq domain_name_of('bar@foo@example.com'),
-        'domain_name_of: bar@foo@example.com => example.com'
-    );
-}
-
-sub lookup_srv_string {
-    my $name = shift;
-
-    my $resolver = new Net::DNS::Resolver();
-    my $reply = $resolver->query( $name, 'SRV' );
-
-    my $string;
-    if ($reply) {
-
-        #($reply->answer)[0]->print;
-        foreach my $rr ( $reply->answer ) {
-            $debug and print 'name:   ' . $rr->name . "\n";
-            $debug and print 'class:  ' . $rr->class . "\n";
-            $debug and print 'type:   ' . $rr->type . "\n";
-            $debug and print 'ttl:    ' . $rr->ttl . "\n";
-            $debug and print 'string: ' . $rr->string . "\n";
-            next if ( 'SRV' ne $rr->type );
-            next if ( not( $rr->string ) );
-            $string = $rr->string;
-            return ($string);
-        }
-    }
-    else {
-        print "Query failed SRV for domain $name: ", $resolver->errorstring,
-          "\n";
-        return (undef);
-    }
-    return ($string);
-}
-
-sub server_name_from_srv_string {
-    my $srv_string = shift;
-
-    return (undef) if ( not $srv_string );
-    my $server_name = ( split( /\s+/, $srv_string ) )[7];
-    return (undef) if ( '.' eq $server_name );
-    return ($server_name);
-}
-
-sub tests_server_name_from_srv_string {
-    ok(
-        not( server_name_from_srv_string('') ),
-        'server_name_from_srv_string: void'
-    );
-    ok(
-        not( server_name_from_srv_string() ),
-        'server_name_from_srv_string: undef'
-    );
-    ok(
-        'imap.gmail.com.' eq server_name_from_srv_string(
-'_imaps._tcp.gmail.com.  82466   IN      SRV     5 0 993 imap.gmail.com.'
-        ),
-        'server_name_from_srv_string: _imaps._tcp.gmail.com. => imap.gmail.com.'
-    );
-    ok(
-        not(
-            server_name_from_srv_string(
-                '_imap._tcp.gmail.com.   81999   IN      SRV     0 0 0 .')
-        ),
-        'server_name_from_srv_string: _imap._tcp.gmail.com. => undef'
-    );
-
-    return ();
-}
-
-sub server_port_from_srv_string {
-    my $srv_string = shift;
-
-    return (undef) if ( not $srv_string );
-    my $server_port = ( split( /\s+/, $srv_string ) )[6];
-    return (undef) if ( 0 == $server_port );
-    return ($server_port);
-}
-
-sub tests_server_port_from_srv_string {
-    ok(
-        not( server_port_from_srv_string('') ),
-        'server_port_from_srv_string: void'
-    );
-    ok(
-        not( server_port_from_srv_string() ),
-        'server_port_from_srv_string: undef'
-    );
-    ok(
-        '993' eq server_port_from_srv_string(
-'_imaps._tcp.gmail.com.  82466   IN      SRV     5 0 993 imap.gmail.com.'
-        ),
-        'server_port_from_srv_string: _imaps._tcp.gmail.com. => 993'
-    );
-    ok(
-        not(
-            server_port_from_srv_string(
-                '_imap._tcp.gmail.com.   81999   IN      SRV     0 0 0 .')
-        ),
-        'server_port_from_srv_string: _imap._tcp.gmail.com. => undef'
-    );
-
-    return ();
-}
diff --git a/W/learn/fetch_with_size b/W/learn/fetch_with_size
deleted file mode 100755
index 8ea7b95..0000000
--- a/W/learn/fetch_with_size
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-
-$ARGV[3] or die "usage: $0 host user password folder uid\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder   = $ARGV[3];
-my $uid      = $ARGV[4];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(0);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->Clear(1);
-
-#print map {"$_\n"} $imap->folders();
-
-$imap->select($folder) or die;
-my @msgs = $imap->messages or die "Could not messages: $@\n";
-print "@msgs\n";
-foreach my $msg (@msgs) {
-	$imap->fetch($msg, "BODY.PEEK[TEXT]<0.3000>");
-	my $text = $imap->_transaction_literals;
-	print '#' x 72, " $msg TEXT = \n$text\n";
-	my $part = $imap->bodypart_string($msg, '', 3000, 0);
-	print '#' x 72, " $msg PART = \n$part\n";
-}
-$imap->close();
-
-
-package Mail::IMAPClient;
-
-sub _transaction_literals() {
-	my $self = shift;
-	my $string = "";
-
-	foreach my $result  (@{$self->{"History"}{$self->Transaction}}) { 
-	      $string .= $result->[DATA] 
-		if defined($result) and $self->_is_literal($result) ;
-	}      
-	return $string;
-}
-
diff --git a/W/learn/file_append b/W/learn/file_append
deleted file mode 100755
index c5c4981..0000000
--- a/W/learn/file_append
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-
-my $rcs = '$Id: append,v 1.1 2011/07/14 16:49:02 gilles Exp gilles $ ';
-
-
-main();
-
-sub main {
-        $ARGV[4] or die "usage: $0 host user password folder file\n";
-
-        my $host     = $ARGV[0];
-        my $user     = $ARGV[1];
-        my $password = $ARGV[2];
-        my $folder   = $ARGV[3];
-        my $file     = $ARGV[4];
-
-        my $imap = Mail::IMAPClient->new();
-        $imap->Debug(1);
-        $imap->Server($host);
-        #$imap->Ssl(1);
-        $imap->connect() or die;
-        $imap->User($user);
-        $imap->Password($password);
-        $imap->login() or die;
-        $imap->Uid(1);
-        $imap->Peek(1);
-        $imap->Clear(0);
-
-        print map {"$_\n"} $imap->folders();
-
-        $imap->select($folder) or $imap->create($folder) or die;
-        $imap->select($folder) ;
-        my @msgs = $imap->messages ;
-        print "LIST: @msgs\n";
-
-        my $msgtext = file_to_string( $file ) || die ;
-
-        my $new_id_1b = $imap->append_string( $folder, $msgtext ) ;
-        print "==== OK 1b $new_id_1b\n" if $new_id_1b ;
-        @msgs = $imap->messages ;
-        print "LIST: @msgs\n";
-
-        $imap->close();
-}
-
-sub file_to_string {
-        my  $file  = shift ;
-	if ( ! $file ) { return ; }
-	if ( ! -e $file ) { return ; }
-	if ( ! -f $file ) { return ; }
-	if ( ! -r $file ) { return ; }
-        my @string ;
-        if ( open my $FILE, '<', $file ) {
-		@string = <$FILE> ;
-		close $FILE ;
-		return( join q{}, @string ) ;
-	}else{
-		myprint( "Error reading file $file : $OS_ERROR\n" ) ;
-		return ;
-	}
-}
-
diff --git a/W/learn/file_spec b/W/learn/file_spec
deleted file mode 100755
index b169b13..0000000
--- a/W/learn/file_spec
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use File::Spec;
-
-
-my $tmpdir = File::Spec->tmpdir();
-print "$tmpdir\n";
-
-
-my $cachedir = File::Spec->catdir($tmpdir, 'host1', 'user1', 'host2', 'user2');
-print "$cachedir\n";
diff --git a/W/learn/file_string b/W/learn/file_string
deleted file mode 100644
index 224f900..0000000
--- a/W/learn/file_string
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die("$! $file");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-use Fcntl;
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-
-
-
-string_to_file("blabla $$ \n", "/tmp/imapsync_t01");
-print file_to_string("/tmp/imapsync_t01");
-#unlink("/tmp/imapsync_t01");
diff --git a/W/learn/function_calls b/W/learn/function_calls
deleted file mode 100755
index 0fe4464..0000000
--- a/W/learn/function_calls
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-sub foo {
-    bar();
-    baz(quux());
-}
-
-sub bar {
-    baz();
-}
-
-sub baz {
-    print "foo\n";
-}
-
-sub quux {
-    return 5;
-}
-
-my %calls;
-
-while (<>) {
-    next unless my ($name) = /^sub (\S+)/;
-    while (<>) {
-        last if /^}/;
-        next unless my @funcs = /(\w+)\(/g;
-        push @{$calls{$name}}, @funcs;
-    }
-}
-
-use Data::Dumper;
-print Dumper \%calls;
-
diff --git a/W/learn/function_calls_ppi b/W/learn/function_calls_ppi
deleted file mode 100755
index 7d02b18..0000000
--- a/W/learn/function_calls_ppi
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use PPI;
-use Data::Dumper;
-use Scalar::Util qw/blessed/;
-
-sub is {
-    my ($obj, $class) = @_;
-    return( blessed $obj and $obj->isa($class) );
-}
-
-my $program = PPI::Document->new(shift);
-
-my $subs = $program->find(
-    sub { $_[1]->isa('PPI::Statement::Sub') and $_[1]->name }
-);
-
-die "no subroutines declared?" unless $subs;
-
-for my $sub (@$subs) {
-    print $sub->name, "\n";
-    next unless my $function_calls = $sub->find(
-        sub { 
-            $_[1]->isa('PPI::Statement')             and
-            $_[1]->child(0)->isa("PPI::Token::Word") and
-            not (
-                $_[1]->isa("PPI::Statement::Scheduled") or
-                $_[1]->isa("PPI::Statement::Package")   or
-                $_[1]->isa("PPI::Statement::Include")   or
-                $_[1]->isa("PPI::Statement::Sub")       or
-                $_[1]->isa("PPI::Statement::Variable")  or
-                $_[1]->isa("PPI::Statement::Compound")  or
-                $_[1]->isa("PPI::Statement::Break")     or
-                $_[1]->isa("PPI::Statement::Given")     or
-                $_[1]->isa("PPI::Statement::When")
-            )
-        }
-    );
-    print map { "\t" . $_->child(0)->content . "\n" } @$function_calls;
-}
diff --git a/W/learn/getoptlong b/W/learn/getoptlong
deleted file mode 100755
index 6991954..0000000
--- a/W/learn/getoptlong
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict ;
-use Getopt::Long ;
-use Data::Dumper ;
-
-my %define ;
-
-GetOptions (
-	"define=s" => \%define
-) ;
-
-print Dumper( \%define ) ;
-
diff --git a/W/learn/hashes_set b/W/learn/hashes_set
deleted file mode 100755
index a28cb6c..0000000
--- a/W/learn/hashes_set
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl -w
-
-use Data::Dumper ;
-use strict ;
-
-my %hash_1 = (
-	'abcd' => 'zzz',
-	'efgh' => 'zzz',
-) ;
-
-my %hash_2 = (
-	'2345' => 'zzz',
-	'8888' => 'zzz',
-	'efgh' => 'zzz',
-) ;
-
-
-print Data::Dumper->Dump( [ \%hash_1 ] ) ;
-
-my %hash_X ;
-
-foreach my $k (  keys( %hash_1 ) ) {
-	$hash_X{ $k }->{ 'folder_1' } ++ ;
-}
-
-foreach my $k (  keys( %hash_2 ) ) {
-	$hash_X{ $k }->{ 'folder_2'} ++ ;
-}
-
-foreach my $k (  keys( %hash_1 ) ) {
-	$hash_X{ $k }->{ 'folder_1' } ++ ;
-}
-
-print Data::Dumper->Dump( [ \%hash_X ] ) ;
-
-print keys( %{ $hash_X{ 'efgh' } } ) ;
-
diff --git a/W/learn/here_comment b/W/learn/here_comment
deleted file mode 100755
index 1ca4d7d..0000000
--- a/W/learn/here_comment
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use strict ;
-use warnings ;
-
-
-0 and <<'COMMENT';
-This is a multiline comment.
-Based on David Carter discussion, to do:
-* Call parameters stay the same.
-* Now always "return( $string, $error )". Descriptions below.
-OK * Still    capture STDOUT via "1> $output_tmpfile" to finish in $string and "return( $string, $error )"
-OK * Now also capture STDERR via "2> $error_tmpfile"  to finish in $error  and "return( $string, $error )"
-OK * in case of CHILD_ERROR, return( undef, $error )
-  and print $error, with folder/UID/maybeSubject context,
-  on console and at the end with the final error listing. Count this as a sync error.
-* in case of good command, take final $string as is, unless void. In case $error with value then print it.
-* in case of good command and final $string empty, consider it like CHILD_ERROR =>
-  return( undef, $error ) and print $error, with folder/UID/maybeSubject context,
-  on console and at the end with the final error listing. Count this as a sync error.
-COMMENT
-# End of multiline comment.
-
-
diff --git a/W/learn/hugemigr b/W/learn/hugemigr
deleted file mode 100755
index 285bc49..0000000
--- a/W/learn/hugemigr
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/bin/sh
-
-{ while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 "$u1" --password1 "$p1" --user2 "$u2" --password2 "$p2" ...
-done ; } < file.csv
-
diff --git a/W/learn/imap_Encode_IMAPUTF7_decode b/W/learn/imap_Encode_IMAPUTF7_decode
deleted file mode 100755
index 4e2e1f4..0000000
--- a/W/learn/imap_Encode_IMAPUTF7_decode
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl 
-
-use strict ;
-use warnings ;
-use Encode::IMAPUTF7 ;
-
-sub imap_utf7_decode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::decode("IMAP-UTF-7", $s ) ) ;
-}
-
-sub imap_utf7_encode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::encode("IMAP-UTF-7", $s ) ) ;
-}
-
-#use utf8 ;
-while ( <> ) 
-{
-        chomp ;
-        #print( Encode::IMAPUTF7::encode('IMAP-UTF-7', $_ ), "\n" ) ;
-        print( Encode::IMAPUTF7::decode('IMAP-UTF-7', $_ ), "\n" ) ;
-}
diff --git a/W/learn/imap_Encode_IMAPUTF7_encode b/W/learn/imap_Encode_IMAPUTF7_encode
deleted file mode 100755
index b4c596b..0000000
--- a/W/learn/imap_Encode_IMAPUTF7_encode
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl 
-
-use strict ;
-use warnings ;
-use Encode::IMAPUTF7 ;
-
-sub imap_utf7_decode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::decode("IMAP-UTF-7", $s ) ) ;
-}
-
-sub imap_utf7_encode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::encode("IMAP-UTF-7", $s ) ) ;
-}
-
-
-
-#use utf8 ;
-no utf8 ;
-while ( <> ) 
-{
-        chomp ;
-        print( Encode::IMAPUTF7::encode('IMAP-UTF-7', $_ ), "\n" ) ;
-        #print( Encode::IMAPUTF7::decode('IMAP-UTF-7', $_ ), "\n" ) ;
-}
diff --git a/W/learn/imap_gbk_Q_decode b/W/learn/imap_gbk_Q_decode
deleted file mode 100644
index 03a0d6e..0000000
--- a/W/learn/imap_gbk_Q_decode
+++ /dev/null
@@ -1,5 +0,0 @@
-
-perl -E 'use open qw(:std :utf8);
-           use Encode;
-           say Encode::decode("MIME-Header", "Subject: Re: =?gbk?Q?=C3=C9=B9=C5=CF=EE=C4=BF=D0=CD=D6=C6=D7=F7=B7=BD=B0=B8?=");'
-
diff --git a/W/learn/imap_rename_regex b/W/learn/imap_rename_regex
deleted file mode 100755
index 6ab24bb..0000000
--- a/W/learn/imap_rename_regex
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: imap_rename_regex,v 1.5 2015/08/15 03:42:01 gilles Exp gilles $
-
-use Mail::IMAPClient;
-
-++$| ;
-
-$ARGV[3] or die "usage: $0 host user password regex do_it\n";
-
-my $host = $ARGV[0] ;
-my $user = $ARGV[1] ;
-my $password = $ARGV[2] ;
-my $regex = $ARGV[3] ;
-my $doit = $ARGV[4] || 0 ;
-
-my $imap = Mail::IMAPClient->new(  ) ;
-$imap->Debug( 1 ) ;
-$imap->Server( $host ) ;
-$imap->Ssl( 1 ) ;
-$imap->connect(  ) or die ;
-$imap->IsUnconnected(  ) ;
-$imap->User( $user ) ;
-$imap->Password( $password ) ;
-$imap->login(  ) or die ;
-$imap->Uid( 1 ) ;
-$imap->Peek( 1 ) ;
-
-my @folders = $imap->folders(  ) ;
-
-foreach my $folder ( @folders ) {
-	print "$folder\n" ;
-        my $folder_new = $folder ;
-        if ( eval( "\$folder_new =~ $regex" ) 
-	     and ( $folder_new ne $folder ) ) {
-        	print "Renaming [$folder] -> [$folder_new]\n" ;
-		$imap->noop(  ) ;
-                if ( $doit and $imap->rename( $folder, $folder_new ) ) {
-                	print "renamed ok [$folder] -> [$folder_new]\n" ;
-                }else{
-                	print "KO renamed [$folder] -> [$folder_new]\n" ;
-                }
-        } 
-}
-
-$imap->logout();
diff --git a/W/learn/imap_rename_regex_examples.txt b/W/learn/imap_rename_regex_examples.txt
deleted file mode 100644
index 3563435..0000000
--- a/W/learn/imap_rename_regex_examples.txt
+++ /dev/null
@@ -1,7 +0,0 @@
-
-# Removing trailing blanks in folders names
-./imap_rename_regex  lamiral.info tata   `cat /g/var/pass/secret.tata` 's,([^ ]+) +$,$1,' 
-
-#./imap_rename_regex  lamiral.info tata   `cat /g/var/pass/secret.tata` 's,([^ ]+) +$,$1,' doit
-
-
diff --git a/W/learn/imap_tcpdump b/W/learn/imap_tcpdump
deleted file mode 100644
index 10200dc..0000000
--- a/W/learn/imap_tcpdump
+++ /dev/null
@@ -1,3 +0,0 @@
-
-tcpdump -s0 -A   -i lo port imap
-
diff --git a/W/learn/imap_utf7 b/W/learn/imap_utf7
deleted file mode 100755
index b727c4c..0000000
--- a/W/learn/imap_utf7
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-
-
-use Unicode::IMAPUtf7;
-
-my $t = Unicode::IMAPUtf7->new();
-
-while (<>) {
-	chomp ;
-	#push( @result, sprintf( "%33s %s\n", $_, $t->decode($_) ) ) ;
-	push( @result, sprintf( "%s\n", $t->decode($_) ) ) ;
-}
-
-print @result ;
diff --git a/W/learn/imap_utf7_decode b/W/learn/imap_utf7_decode
deleted file mode 100755
index dcbcdfc..0000000
--- a/W/learn/imap_utf7_decode
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-use Unicode::String ;
-
-while (<>) {
-        chomp ;
-        #push( @result, sprintf( "%33s %s\n", $_, decode( $_ ) ) ) ;
-        push( @result, sprintf( "%s\n", imap_utf7_decode( $_ ) ) ) ;
-}
-
-print @result ;
-
-# http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
-
-sub imap_utf7_decode {
-        my ($s) = @_;
-
-        # Algorithm
-        # On remplace , par / dans les BASE 64 (, entre & et -)
-        # On remplace les &, non suivi d'un - par +
-        # On remplace les &- par &
-        $s =~ s/&([^,&\-]*),([^,\-&]*)\-/&$1\/$2\-/g;
-        $s =~ s/&(?!\-)/\+/g;
-        $s =~ s/&\-/&/g;
-
-        return( Unicode::String::utf7( $s )->utf8 ) ;
-}
diff --git a/W/learn/imap_utf7_encode b/W/learn/imap_utf7_encode
deleted file mode 100755
index 0bae944..0000000
--- a/W/learn/imap_utf7_encode
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-
-use Unicode::String ;
-
-while (<>) {
-        chomp ;
-        push( @result, sprintf( "%s\n", imap_utf7_encode( $_ ) ) ) ;
-}
-
-print @result ;
-
-# http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
-
-sub imap_utf7_encode {
-        my ( $s ) = @_ ;
-
-	$s = Unicode::String::utf8( $s )->utf7 ;
-	
-	$s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g ;
-	$s =~ s/&/&\-/g ;
-	$s =~ s/\+([^+\-]+)?\-/&$1\-/g ;
-        return( $s ) ;
-}
diff --git a/W/learn/imap_utf7_tests b/W/learn/imap_utf7_tests
deleted file mode 100755
index ac70bb3..0000000
--- a/W/learn/imap_utf7_tests
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
-
-
-
-echo 收件箱
-
-touch './+ZyhnUA-'
-
-
diff --git a/W/learn/imap_utf7_tests_Encode_IMAPUTF7 b/W/learn/imap_utf7_tests_Encode_IMAPUTF7
deleted file mode 100755
index 9e39c45..0000000
--- a/W/learn/imap_utf7_tests_Encode_IMAPUTF7
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl 
-
-use strict ;
-use warnings ;
-use Encode::IMAPUTF7 ;
-
-sub imap_utf7_decode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::decode("IMAP-UTF-7", $s ) ) ;
-}
-
-sub imap_utf7_encode_new
-{
-        use utf8 ;
-        my ( $s ) = shift ;
-        return( Encode::IMAPUTF7::encode("IMAP-UTF-7", $s ) ) ;
-}
-
-use  utf8 ;
-#no  utf8 ;
-print( Encode::IMAPUTF7::encode('IMAP-UTF-7', 'Répertoire' ), "\n" );
-print( Encode::IMAPUTF7::decode('IMAP-UTF-7', 'R&AOk-pertoire' ), "\n" );
diff --git a/W/learn/imapbyhand b/W/learn/imapbyhand
deleted file mode 100644
index ce04934..0000000
--- a/W/learn/imapbyhand
+++ /dev/null
@@ -1,31 +0,0 @@
-
-# $Id: $
-# How to remove a message by hand.
-telnet imap.truc.com 143
-
-a01 CAPABILITY
-a02 LOGIN toto zorglub
-a43 SELECT INBOX
-a54 UID STORE 60010:60010 +FLAGS (\DELETED)
-a64 STORE 1:1 +FLAGS (\DELETED)
-a75 EXPUNGE
-a86 LOGOUT
-
-# When no SEARCH ALL available
-1 LOGIN test@coook.cn 1234@com
-3 SELECT INBOX
-4 UID SEARCH 1:11638
-5 UID FETCH 11620:11637 (RFC822.SIZE)
-6 UID FETCH 11000:11637 (RFC822.SIZE)
-7 UID FETCH 2:11637 (RFC822.SIZE)
-8 UID FETCH 1:11637 (RFC822.SIZE)
-9 UID FETCH 1:11638 (RFC822.SIZE)
-10 UID FETCH 1:11639 (RFC822.SIZE)
-10 UID FETCH 11000:11640 (RFC822.SIZE) BAD
-
-10 UID FETCH 1:11639 (RFC822.SIZE) OK
-
-11 STATUS INBOX MESSAGES
-11 STATUS INBOX (MESSAGES)
-11 STATUS INBOX (MESSAGES UIDNEXT)
-
diff --git a/W/learn/imapclient3xx_isUnconnected b/W/learn/imapclient3xx_isUnconnected
deleted file mode 100644
index 7d15a20..0000000
--- a/W/learn/imapclient3xx_isUnconnected
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/usr/bin/perl
-
-use Mail::IMAPClient;
-
-print "$Mail::IMAPClient::VERSION\n";
-my $imap = Mail::IMAPClient->new();
-$imap->IsUnconnected();
diff --git a/W/learn/imapclient3xx_ssl b/W/learn/imapclient3xx_ssl
deleted file mode 100755
index be7d4fa..0000000
--- a/W/learn/imapclient3xx_ssl
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-use IO::Socket::SSL;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$folder = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-my $ssl  = IO::Socket::SSL->new(
-             Proto    => 'tcp',
-             PeerAddr => $host,
-             PeerPort => 993, # IMAP over SSL standard port
-);
-
-$imap->Debug(1);
-#$imap->Server($host);
-$imap->Socket($ssl);
-#$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->select($folder) or die;
-$imap->close();
diff --git a/W/learn/imapclient_quota_qq b/W/learn/imapclient_quota_qq
deleted file mode 100755
index 7dc3506..0000000
--- a/W/learn/imapclient_quota_qq
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl -w
-
-use lib '/g/public_html/imapsync/W/Mail-IMAPClient-3.37/lib/' ;
-use Mail::IMAPClient;
-
-$ARGV[3] or die "usage: $0 host user password quotaroot\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$quotaroot = $ARGV[3];
-
-print "Mail::IMAPClient::VERSION $Mail::IMAPClient::VERSION\n" ;
-
-my $imap = Mail::IMAPClient->new(  ) ;
-$imap->Debug( 1 ) ;
-$imap->Server( $host ) ;
-$imap->Ssl( 1 ) ;
-$imap->Showcredentials( 0 ) ;
-$imap->connect(  ) or die ;
-$imap->IsUnconnected(  ) ;
-$imap->User( $user ) ;
-$imap->Password( $password ) ;
-$imap->login(  ) or die ;
-$imap->Uid( 1 ) ;
-$imap->Peek( 1 ) ;
-
-$imap->getquotaroot( $quotaroot ) ;
-$imap->getquota( '""' ) ;
-
-$imap->logout(  ) ;
diff --git a/W/learn/imapclient_quota_qq_memo b/W/learn/imapclient_quota_qq_memo
deleted file mode 100755
index d686d28..0000000
--- a/W/learn/imapclient_quota_qq_memo
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-
-
-./imapclient_quota_qq imap.gmail.com imapsync.gl@gmail.com  `cat /g/var/pass/secret.imapsync.gl_gmail` INBOX
diff --git a/W/learn/imapclient_skeleton b/W/learn/imapclient_skeleton
deleted file mode 100644
index 517c188..0000000
--- a/W/learn/imapclient_skeleton
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$folder_arg = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->IsUnconnected();
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-my @folders = $imap->folders(  ) ;
-foreach my $folder ( @folders ) {
-	print "$folder\n" ;
-}
-$imap->select( $folder_arg ) or die ;
-$imap->logout();
diff --git a/W/learn/imapclient_tls b/W/learn/imapclient_tls
deleted file mode 100755
index fb14100..0000000
--- a/W/learn/imapclient_tls
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-use IO::Socket::SSL qw(debug1 debug2 debug3) ;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-$host = $ARGV[0];
-$user = $ARGV[1];
-$password = $ARGV[2];
-$folder = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-
-
-my $socket  = IO::Socket::INET->new(
-             Proto    => 'tcp',
-             PeerAddr => $host,
-             PeerPort => 143,
-);
-
-$socket->autoflush(1);
-
-my $banner = $socket->getline();
-unless ($banner =~ /^\* OK \[CAPABILITY.*STARTTLS.*\]/) {
-  die "No STARTTLS capability: $banner";
-}
-
-
-print $socket "STARTTLS\015\012";
-my $txt = $socket->getline();
-unless($txt =~ /^STARTTLS OK/){
-  die "Invalid response for STARTTLS: $txt\n";
-}
-
-my $result = IO::Socket::SSL->start_SSL($socket,
-    {
-    SSL_startHandshake => 1, 
-    SSL_version    =>      "TLSv1",
-    SSL_verify_depth => 1,
-    }
-);
-
-print "start_SSL return $result\n";
-
-unless ($result){
-  
-  die "Couldn't start TLS: ".IO::Socket::SSL::errstr()."\n";
-}
-
-if (ref($socket) ne "IO::Socket::SSL") {
-  die "Socket has not been converted to SSL";
-}else{
-  print "Socket has been converted to SSL\n";
-}
-$imap->State(Mail::IMAPClient::Connected);
-
-
-$imap->Debug(1);
-print "Socket\n";
-$imap->RawSocket($socket);
-#$imap->Socket($socket);
-
-print $socket "a02 CAPABILITY\n";
-print "getline\n";
-$txt = $socket->getline();
-
-print "getline : $txt \n";
-
-
-#$imap->connect() or die;
-print "User\n";
-$imap->User($user);
-$imap->Password($password);
-print "login\n";
-
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->select($folder) or die;
-$imap->close();
diff --git a/W/learn/imapsync.sublist b/W/learn/imapsync.sublist
deleted file mode 100644
index 8c648c3..0000000
--- a/W/learn/imapsync.sublist
+++ /dev/null
@@ -1,3807 +0,0 @@
-sig_install_toggle_sleep
-	sig_install
-myprint
-	print
-	tee
-myprintf
-	printf
-	tee
-mysprintf
-output_start
-	output
-	output
-	output
-tests_output_start
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-tests_output
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-output
-	output
-	output
-tests_output_reset_with
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-output_reset_with
-	output
-	output
-abort
-	pidfile
-	myprint
-	exit
-	pidfile
-	myprint
-	exit
-	kill
-	myprint
-	kill
-	sleep
-	myprint
-	exit
-	kill
-	myprint
-	kill
-	sleep
-	myprint
-	exit
-	kill
-	myprint
-	exit
-docker_context
-	myprint
-	pidfile
-	log
-	myprint
-	chdir
-cgibegin
-	CGI
-	CGI::Carp
-	cgi
-tests_under_cgi_context
-	note
-	do
-	delete
-	SERVER_SOFTWARE
-	is
-	undef
-	do
-	SERVER_SOFTWARE
-	is
-	do
-	delete
-	SERVER_SOFTWARE
-	is
-	undef
-	do
-	SERVER_SOFTWARE
-	is
-	note
-under_cgi_context
-	SERVER_SOFTWARE
-cgibuildheader
-	cgi
-	cgi
-	-name
-	abort
-	cgi
-	-type
-	loaddelay
-	cgi
-	-type
-	cgi
-	-type
-	output_start
-cgiload
-	abort
-	loaddelay
-	myprint
-	exit_clean
-tests_set_umask
-	note
-	is
-	undef
-	is
-	umask
-	note
-set_umask
-	output
-tests_umask_str
-	note
-	is
-	umask_str
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	skip
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-umask_str
-	defined
-	umask
-	sprintf
-tests_umask
-	note
-	is
-	umask
-	is
-	is
-	is
-	oct
-	is
-	oct
-	skip
-	is
-	oct
-	is
-	oct
-	ok
-	defined
-	is
-	note
-cgisetcontext
-	output
-	set_umask
-	pidfile
-	pidfilelocking
-	errorsmax
-	releasecheck
-	releasecheck
-	releasecheck
-	showpasswords
-	hashfile
-	chdir
-	tmpdir
-	cgioutputenvcontext
-cgioutputenvcontext
-	output
-debugsleep
-	defined
-	debugsleep
-	myprint
-	sleep
-	debugsleep
-foldersizes_on_h1h2
-	myprint
-	imap1
-	abletosearch1
-	imap2
-	abletosearch2
-	errors_incr
-	h2
-	quota_limit_bytes
-	errors_incr
-total_bytes_max_reached
-	exitwhenover
-	total_bytes_transferred
-	exitwhenover
-	myprint
-all_defined
-tests_all_defined
-	note
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	note
-tests_hashsynclocal
-	note
-	host1
-	is
-	undef
-	hashfile
-	is
-	undef
-	hashfile
-	is
-	undef
-	skip
-	hashfile
-	is
-	undef
-	ok
-	hashfile
-	ok
-	ok
-	is
-	is
-	note
-hashsynclocal
-	hashfile
-	myprint
-tests_hashsync
-	note
-	is
-	host1
-	is
-	is
-	host2
-	is
-	is
-	note
-hashsync
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-tests_createhashfileifneeded
-	note
-	is
-	undef
-	note
-createhashfileifneeded
-	open
-	myprint
-	myprint
-	print
-	close
-tests_rand32
-	note
-	myprint
-	is
-	is
-	rand32
-	note
-rand32
-	rand
-imap_id_stuff
-	id
-	h1_imap_id
-	imap1
-	h2_imap_id
-	imap2
-imap_id
-	myprint
-	side
-	myprint
-	myprint
-imapsync_id
-	name
-	name
-tests_imapsync_id
-	note
-	ok
-	version
-	note
-format_for_imap_arg
-	push
-	delete
-	push
-	join
-tests_format_for_imap_arg
-	note
-	ok
-	ok
-	name
-	ok
-	name
-	note
-quota
-	h1
-	myprint
-	myprint
-	quota_limit_bytes
-	quota_current_bytes
-	myprint
-	errors_incr
-tests_quota_extract_storage_limit_in_bytes
-	note
-	ok
-	note
-quota_extract_storage_limit_in_bytes
-	map
-tests_quota_extract_storage_current_in_bytes
-	note
-	ok
-	note
-quota_extract_storage_current_in_bytes
-	map
-automap
-	automap
-	myprint
-	myprint
-	h1_special
-	imap1
-	h2_special
-	imap2
-	build_possible_special
-	build_guess_special
-	build_automap
-build_guess_special
-	sort
-	h1_folders_all
-	possible_special
-	h1_prefix
-	h1_special_guessed
-	h1_special_guessed
-	myprint
-	h1_special_guessed
-	sort
-	h2_folders_all
-	possible_special
-	h2_prefix
-	h2_special_guessed
-	h2_special_guessed
-	myprint
-	h2_special_guessed
-guess_special
-tests_guess_special
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-build_automap
-	h1_folders_wanted
-	h1_special
-	h1_special_guessed
-	h2_special
-	h2_special
-	f1f2auto
-	h2_special
-	exists
-	h2_special_guessed
-	h2_special_guessed
-	f1f2auto
-	exists
-	h2_special
-	h2_special
-	f1f2auto
-	h2_special
-	exists
-	h2_special_guessed
-	h2_special_guessed
-	f1f2auto
-	f1f2auto
-build_possible_special
-	possible_special
-	Data::Dumper
-special_from_folders_hash
-	errors_incr
-	attrs
-	exists
-	myprintf
-	name
-	myprintf
-	name
-	name
-	name
-	myprint
-tests_special_from_folders_hash
-	note
-	require_ok
-	is
-	undef
-	is_deeply
-	name
-	is_deeply
-	Sent
-	note
-errors_incr
-	nb_errors
-	errors_log
-	myprint
-	errorsmax
-	nb_errors
-	errorsmax
-	myprint
-	errorsdump
-	myprint
-	errorsdump
-	nb_errors
-	myprint
-	exit_clean
-errors_log
-	errors_log
-	errors_log
-	push
-	errors_log
-	errors_log
-	errors_log
-tests_errors_log
-	note
-	note
-errorsdump
-tests_live_result
-	note
-	myprint
-	myprint
-	note
-foldersizesatend
-	timenext
-	imap1
-	imap2
-	imap2
-	uc
-	imap1
-	abletosearch1
-	imap2
-	abletosearch2
-	errors_incr
-size_filtered_flag
-	defined
-	defined
-sync_flags_fir
-	sync_flags
-sync_flags_after_copy
-	imap2
-	sync_flags
-	myprint
-sync_flags
-	dry
-	imap2
-	imap2
-	errors_incr
-_filter
-lost_connection
-	nb_errors
-	myprint
-	myprint
-tests_max
-	note
-	is
-	is
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-max
-	undef
-	is_number
-	push
-	push
-	pop
-tests_is_number
-	ok
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	is_number
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-is_number
-tests_min
-	note
-	is
-	is
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-min
-	undef
-	is_number
-	push
-	push
-	shift
-check_lib_version
-	myprint
-module_version_str
-modulesversion
-	sort
-	eval
-	push
-command_line_nopassword
-	showpasswords
-	shift
-	push
-	push
-tests_command_line_nopassword
-	note
-	ok
-	ok
-	ok
-	ok
-	showpasswords
-	ok
-	ok
-	ok
-	ok
-	note
-ask_for_password
-	myprint
-	Term::ReadKey::ReadMode
-	chomp
-	myprint
-	Term::ReadKey::ReadMode
-get_password1
-	password1
-	IMAPSYNC_PASSWORD1
-	myprint
-	password1
-	user1
-	host1
-	defined
-	myprint
-	exit_clean
-	password1
-	IMAPSYNC_PASSWORD1
-	password1
-	IMAPSYNC_PASSWORD1
-get_password2
-	password2
-	IMAPSYNC_PASSWORD2
-	myprint
-	password2
-	user2
-	host2
-	defined
-	myprint
-	exit_clean
-	password2
-	IMAPSYNC_PASSWORD2
-	password2
-	IMAPSYNC_PASSWORD2
-catch_ignore
-	sigcounter
-	myprint
-	stats
-catch_exit
-	myprint
-	myprint
-	stats
-	myprint
-	myprint
-	exit_clean
-catch_reconnect
-	myprint
-	here_twice
-	myprint
-	catch_exit
-	myprint
-	imap1
-	imap2
-	myprint
-	imap1
-	Mail::IMAPClient::Unconnected
-	imap1
-	IMAPSYNC_RECONNECT_COUNT
-	imap1
-	myprint
-	imap2
-	Mail::IMAPClient::Unconnected
-	imap2
-	IMAPSYNC_RECONNECT_COUNT
-	imap2
-	myprint
-tests_reconnect_12_if_needed
-	note
-	imap1
-	imap2
-	imap1
-	imap2
-	is
-	is
-	imap1
-	IMAPSYNC_RECONNECT_COUNT
-	is
-	imap2
-	IMAPSYNC_RECONNECT_COUNT
-	note
-reconnect_12_if_needed
-	imap1
-	imap2
-tests_reconnect_if_needed
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	IMAPSYNC_RECONNECT_COUNT
-	note
-reconnect_if_needed
-	IMAPSYNC_RECONNECT_COUNT
-	Mail::IMAPClient::Unconnected
-	IMAPSYNC_RECONNECT_COUNT
-here_twice
-	lastcatch
-	lastcatch
-justconnect
-	imap1
-	host1
-	port1
-	ssl1
-	tls1
-	h1
-	timeout
-	h1
-	imap2
-	host2
-	port2
-	ssl2
-	tls2
-	h2
-	timeout
-	h2
-	imap1
-	imap2
-tests_mailimapclient_connect
-	note
-	ok
-	is
-	skip
-	is
-	undef
-	is
-	is
-	is
-	is
-	like
-	ref
-	like
-	is
-	undef
-	ok
-	is
-	is
-	ok
-	SSL_verify_mode
-	is
-	like
-	ref
-	is
-	is
-	undef
-	ok
-	is
-	ok
-	SSL_verify_mode
-	is
-	skip
-	like
-	ref
-	is
-	is
-	undef
-	note
-tests_mailimapclient_connect_bug
-	note
-	ok
-	is
-	is
-	skip
-	like
-	ref
-	is
-	undef
-	note
-mailimapclient_connect
-tests_connect_socket
-	note
-	is
-	undef
-	skip
-	PeerAddr
-	ok
-	PeerHost
-	ok
-	note
-connect_socket
-tests_probe_imapssl
-	note
-	is
-	undef
-	is
-	undef
-	skip
-	like
-	probe_imapssl
-	like
-	probe_imapssl
-	like
-	probe_imapssl
-	note
-probe_imapssl
-	PeerHost
-connect_imap
-	set_ssl
-	myprint
-	myprint
-	myprint
-	myprint
-	set_tls
-	myprint
-login_imap
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprintf
-	die_clean
-	set_tls
-	myprint
-	authenticate_imap
-	myprint
-authenticate_imap
-	check_capability
-	defined
-	chomp
-	die_clean
-	myprint
-	myprint
-	chomp
-	die_clean
-check_capability
-	myprintf
-	myprintf
-	myprint
-set_ssl
-	sslargs
-	SSL_verify_mode
-	keys
-	keys
-	delete
-set_tls
-	sslargs
-	SSL_verify_mode
-	keys
-	keys
-	delete
-init_imap
-	set_ssl
-	showpasswords
-	defined
-	IMAPSYNC_RECONNECT_COUNT
-plainauth
-xoauth2
-	open
-	join
-	close
-	client_id
-	private_key
-	grant_type
-	die_clean
-	access_token
-xoauth
-	Data::Uniqid::uniqid
-	rand
-	sort
-	length
-	substr
-	delete
-	sort
-	length
-banner_imapsync
-do_valid_directory
-	myprint
-	myprintf
-	myprint
-	mkpath
-	myprint
-tests_do_valid_directory
-	note
-	Readonly
-	skip
-	ok
-	ok
-	Readonly
-	skip
-	diag
-	ok
-	diag
-	ok
-	note
-tests_match_a_pid_number
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	undef
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-match_a_pid_number
-tests_remove_pidfile_not_running
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	undef
-remove_pidfile_not_running
-	myprint
-	unlink
-	myprint
-	myprint
-	myprint
-tests_write_pidfile
-	is
-	pidfile
-	is
-	pidfilelocking
-	is
-	undef
-	pidfile
-	ok
-	is
-	pidfile
-	pidfilelocking
-	is
-	is
-	pidfilelocking
-	is
-	undef
-write_pidfile
-	abort
-	pidfile
-	pidfilelocking
-	myprint
-	myprint
-	myprint
-	open
-	myprint
-	print
-	close
-	myprint
-remove_tmp_files
-	pidfile
-	pidfile
-	unlink
-	pidfile
-exit_clean
-	remove_tmp_files
-	myprint
-	log
-	myprint
-	close
-	logfile_handle
-	exit
-die_clean
-	remove_tmp_files
-	myprint
-	exit
-missing_option
-	die_clean
-fix_Inbox_INBOX_mapping
-	exists
-	INBOX
-	INBOX
-	exists
-	Inbox
-	Inbox
-	exists
-	INBOX
-	Inbox
-	exists
-	Inbox
-	INBOX
-tests_fix_Inbox_INBOX_mapping
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-jux_utf8_list
-tests_jux_utf8_list
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-jux_utf8
-tests_jux_utf8
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-imap_utf7_decode
-	Unicode::String::utf7
-imap_utf7_encode
-select_folder
-	errors_incr
-examine_folder
-	errors_incr
-count_from_select
-	undef
-create_folder_old
-	myprint
-	myprint
-	dry
-	errors_incr
-	myprint
-	myprint
-create_folder
-	myprint
-	create_folder_old
-	myprint
-	myprint
-	myprint
-	myprint
-	pop
-	create_folder
-	dry
-	errors_incr
-	myprint
-	myprint
-	myprint
-tests_folder_routines
-	note
-	ok
-	ok
-	add_to_requested_folders
-	ok
-	is_requested_folder
-	ok
-	ok
-	ok
-	ok
-	ok
-	is_requested_folder
-	ok
-	is_requested_folder
-	ok
-	remove_from_requested_folders
-	ok
-	ok
-	ok
-	sort_requested_folders
-	ok
-	add_to_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	add_to_requested_folders
-	ok
-	sort_requested_folders
-	ok
-	sort_requested_folders
-	note
-sort_requested_folders
-	remove_from_requested_folders
-	remove_from_requested_folders
-is_requested_folder
-	defined
-add_to_requested_folders
-	keys
-remove_from_requested_folders
-	delete
-	keys
-compare_lists
-tests_compare_lists
-	note
-	ok
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	undef
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	split
-	ok
-	sort
-	note
-guess_prefix
-tests_guess_prefix
-	note
-	is
-	guess_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-get_prefix
-	debugfolders
-	myprint
-	debugfolders
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	myprint
-guess_separator
-tests_guess_separator
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-get_separator
-	debugfolders
-	myprint
-	debugfolders
-	defined
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	myprint
-	defined
-	myprint
-	myprint
-help_to_guess_sep
-help_to_guess_prefix
-folders_list_to_help
-tests_imap2_folder_name
-	note
-	h1_prefix
-	h2_prefix
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	f1f2h
-	ok
-	f1f2h
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	h1_prefix
-	ok
-	ok
-	h1_prefix
-	h2_prefix
-	ok
-	ok
-	ok
-	note
-imap2_folder_name
-	f1f2h
-	f1f2h
-	debugfolders
-	f1f2auto
-	f1f2auto
-	debugfolders
-tests_prefix_seperator_invertion
-	undef
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	h1_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	h1_prefix
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-prefix_seperator_invertion
-	h1_prefix
-	h2_prefix
-	h1_sep
-	h2_sep
-	debugfolders
-	debugfolders
-	debugfolders
-tests_separator_invert
-	note
-	ok
-	defined
-	ok
-	defined
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-separator_invert
-	undef
-regextrans2
-	debugfolders
-	defined
-	die_clean
-tests_decompose_regex
-	note
-	ok
-	ok
-	decompose_regex
-	ok
-	decompose_regex
-	note
-decompose_regex
-foldersizes
-	myprint
-	myprintf
-	uc
-	myprint
-	myprint
-	errors_incr
-	undef
-	errors_incr
-	errors_incr
-	keys
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-	myprintf
-timenext
-timesince
-	max
-tests_flags_regex
-	note
-	ok
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	is
-	note
-flags_regex
-	defined
-	myprint
-	undef
-acls_sync
-	imap1
-	imap2
-	keys
-	sort
-	myprint
-	dry
-	myprint
-	imap2
-tests_permanentflags
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-permanentflags
-tests_flags_filter
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-flags_filter
-	exists
-flagscase
-	exists
-	ucsecond
-	lc
-	lc
-tests_flagscase
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-ucsecond
-	substr
-	uc
-	substr
-tests_ucsecond
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-select_msgs
-select_msgs_by_search
-	defined
-	defined
-	defined
-select_msgs_by_fetch
-	defined
-	defined
-	myprint
-	defined
-	defined
-	defined
-	epoch
-	push
-	defined
-	epoch
-	push
-select_msgs_by_age
-	defined
-	defined
-msgs_from_maxmin
-	defined
-	defined
-tests_msgs_from_maxmin
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-tests_info_date_from_uid
-info_date_from_uid
-lastuid
-	defined
-size_filtered
-	defined
-	myprint
-	total_bytes_skipped
-	nb_msg_skipped
-	defined
-	myprint
-	total_bytes_skipped
-	nb_msg_skipped
-message_exists
-stats_update_skip_message
-	total_bytes_skipped
-	nb_msg_skipped
-	h1_nb_msg_processed
-copy_message
-	dry
-	size_filtered
-	h1_nb_msg_processed
-	debugsleep
-	myprint
-	imap1
-	stats_update_skip_message
-	myprint
-	debugmemory
-	myprint
-	debugmemory
-	myprint
-	stats_update_skip_message
-	defined
-	defined
-	stats_update_skip_message
-	sync_flags_after_copy
-	myprint
-	debugmemory
-linelengthstuff
-	defined
-	defined
-	defined
-	myprint
-	myprint
-message_for_host2
-	myprint
-	debugmemory
-	imap1
-	myprint
-	debugmemory
-	defined
-	imap1
-	errors_incr
-	h1_nb_msg_processed
-	defined
-	myprint
-	myprint
-	defined
-	myprint
-	defined
-	myprint
-	addheader
-	myprint
-	debugmemory
-tests_message_for_host2
-	note
-	is
-	undef
-	is
-	undef
-	require_ok
-	imap1
-	is
-	is
-	Readonly
-	skip
-	Readonly
-	skip
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-labels
-tests_labels
-	is
-	undef
-	is
-	undef
-	undef
-	require_ok
-	is
-	undef
-	is
-synclabels
-tests_synclabels
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	require_ok
-	imap1
-	imap2
-	is
-	undef
-	is
-	undef
-	is
-length_ref
-tests_length_ref
-	note
-	is
-	is
-	is
-	is
-	note
-date_for_host2
-	imap1
-flags_for_host2
-subject
-tests_subject
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-append_message_on_host2
-	myprint
-	debugmemory
-	dry
-	imap2
-	myprint
-	debugmemory
-	imap2
-	errors_incr
-	h1_nb_msg_processed
-	imap2
-	synclabels
-	synclabels
-	total_bytes_transferred
-	nb_msg_transferred
-	h1_nb_msg_processed
-	begin_transfer_time
-	total_bytes_transferred
-	h1_nb_msg_processed
-	nb_msg_transferred
-	total_bytes_transferred
-	myprintf
-	nb_msg_transferred
-	sleep_if_needed
-	touch
-	delete1
-	delete_message_on_host1
-	expungeaftereach
-	h1_nb_msg_processed
-tests_sleep_if_needed
-	note
-	is
-	undef
-	is
-	undef
-	maxbytespersecond
-	is
-	begin_transfer_time
-	is
-	begin_transfer_time
-	is
-	total_bytes_transferred
-	begin_transfer_time
-	is
-	is
-	maxsleep
-	begin_transfer_time
-	is
-	maxbytesafter
-	begin_transfer_time
-	is
-	note
-sleep_if_needed
-	maxmessagespersecond
-	maxbytespersecond
-	maxsleep
-	maxsleep
-	maxsleep
-	maxsleep
-	maxsleep
-	begin_transfer_time
-	nb_msg_transferred
-	maxmessagespersecond
-	maxbytesafter
-	total_bytes_transferred
-	maxbytespersecond
-	maxsleep
-	myprint
-	sleep
-sleep_max_messages
-	max
-tests_sleep_max_messages
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-sleep_max_bytes
-	max
-tests_sleep_max_bytes
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-delete_message_on_host1
-	delete1
-	delete_messages_on_any
-	imap1
-delete_messages_on_any
-	dry_message
-	myprint
-	dry
-	h1_nb_msg_deleted
-	uidexpunge_or_expunge
-tests_uidexpunge_or_expunge
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	require_ok
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-uidexpunge_or_expunge
-eta
-	time
-	mysprintf
-time_remaining
-tests_time_remaining
-	note
-	ok
-	ok
-	ok
-	note
-cache_map
-	sort
-	exists
-	defined
-	defined
-	exists
-	delete
-tests_cache_map
-	note
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_dir_fix
-tests_cache_dir_fix
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_dir_fix_win
-tests_cache_dir_fix_win
-	note
-	ok
-	ok
-	note
-get_cache
-	undef
-	clean_cache
-tests_get_cache
-	note
-	ok
-	get_cache
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	sort
-	sort
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-match_a_cache_file
-	undef
-tests_match_a_cache_file
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-clean_cache
-	map
-	unlink
-tests_clean_cache
-	note
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	clean_cache
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_clean_cache_2
-	note
-	ok
-	ok
-	mkpath
-	ok
-	touch
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	clean_cache
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_mkpath
-	note
-	ok
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	eval
-	ok
-	ok
-	skip
-	myprint
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	eval
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_touch
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-touch
-	myprint
-tests_tmpdir_has_colon_bug
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-tmpdir_has_colon_bug
-tmpdir_fix_colon_bug
-	tmpdir
-	myprint
-	myprint
-	myprint
-	myprint
-	File::Copy::Recursive::rmove
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-tests_cache_folder
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-cache_folder
-filter_forbidden_characters
-tests_filter_forbidden_characters
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	skip
-	ok
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-convert_sep_to_slash
-tests_convert_sep_to_slash
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_regexmess
-	note
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-regexmess
-	myprint
-	undef
-tests_skipmess
-	note
-	ok
-	defined
-	ok
-	defined
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-skipmess
-	myprint
-	undef
-tests_bytes_display_string
-	note
-	is
-	is
-	undef
-	is
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-bytes_display_string
-	abs
-	abs
-	abs
-	abs
-stats
-	stats
-	timestart
-	memory_consumption_at_start
-	myprint
-	myprint
-	myprint
-	myprintf
-	myprint
-	myprint
-	myprint
-	dry
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprint
-	myprintf
-	total_bytes_transferred
-	total_bytes_transferred
-	myprintf
-	myprintf
-	myprintf
-	total_bytes_skipped
-	total_bytes_skipped
-	myprintf
-	myprintf
-	nb_msg_transferred
-	myprintf
-	total_bytes_transferred
-	myprint
-	myprint
-	myprintf
-	myprintf
-	myprint
-	myprintf
-	myprintf
-	myprint
-	myprint
-	myprint
-	homepage
-diff_or_NA
-match_number
-tests_match_number
-	note
-	is
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	note
-tests_diff_or_NA
-	note
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-homepage
-load_modules
-	ssl1
-	ssl2
-	tls1
-	tls2
-	inet4
-	IO::Socket::SSL
-	inet6
-	IO::Socket::SSL
-parse_header_msg
-	myprint
-	addheader
-	myprint
-	NO_HEADER
-header_construct
-	sort
-	exists
-	uc
-	sort
-header_line_normalize
-tests_header_line_normalize
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-firstline
-	myprint
-	open
-	myprint
-	close
-	chomp
-tests_firstline
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-file_to_array
-	open
-	myprint
-	close
-tests_file_to_string
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	ok
-	file_to_string
-	ok
-	is
-	is
-	is
-	is
-	note
-file_to_string
-	open
-	close
-	join
-	myprint
-tests_string_to_file
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	ok
-	is
-	is
-	Readonly
-	skip
-	is
-	undef
-	note
-string_to_file
-	myprint
-	FILE
-	myprint
-	print
-	close
-pipemess
-	string_to_file
-	chomp
-	unlink
-	myprint
-	wantarray
-	undef
-	myprint
-	wantarray
-tests_pipemess
-	note
-	Readonly
-	skip
-	ok
-	ok
-	ok
-	pipemess
-	Readonly
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	like
-	is
-	like
-	is
-	is
-	is
-	like
-	is
-	like
-	is
-	like
-	like
-	like
-	is
-	like
-	note
-tests_is_a_release_number
-	note
-	is
-	undef
-	ok
-	is_a_release_number
-	ok
-	is_a_release_number
-	ok
-	is_a_release_number
-	imapsync_version
-	ok
-	note
-is_a_release_number
-imapsync_version_public
-	PeerAddr
-	print
-	close
-	chomp
-not_long_imapsync_version_public
-	ALRM
-	die
-	POSIX::sigaction
-	SIGALRM
-	sub
-	croak
-	alarm
-	alarm
-	alarm
-tests_not_long_imapsync_version_public
-	note
-	is
-	not_long_imapsync_version_public
-	note
-check_last_release
-tests_check_last_release
-	note
-	diag
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	diag
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	like
-	check_last_release
-	diag
-	check_last_release
-	note
-imapsync_version
-	rcs
-tests_version_from_rcs
-	note
-	is
-	undef
-	is
-	is
-	note
-version_from_rcs
-tests_imapsync_basename
-	note
-	ok
-	imapsync_basename
-	ok
-	note
-imapsync_basename
-localhost_info
-tests_cpu_number
-	note
-	is
-	cpu_number
-	ok
-	is
-	is
-	is
-	is
-	note
-cpu_number
-	chomp
-	defined
-	integer_or_1
-tests_integer_or_1
-	is
-	is
-	undef
-	is
-	is
-	is
-integer_or_1
-	is_an_integer
-tests_is_an_integer
-	note
-	is
-	undef
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	is_an_integer
-	ok
-	ok
-	note
-is_an_integer
-tests_loadavg
-	note
-	skip
-	is
-	undef
-	is_deeply
-	loadavg
-	skip
-	is
-	undef
-	ok
-	loadavg
-	is_deeply
-	loadavg
-	skip
-	is_deeply
-	loadavg
-	note
-loadavg
-	loadavg_linux
-	loadavg_freebsd
-	loadavg_darwin
-	loadavg_windows
-loadavg_linux
-	all_defined
-loadavg_freebsd
-	eval
-	myprint
-loadavg_darwin
-	eval
-	myprint
-loadavg_windows
-	eval
-	myprint
-tests_load_and_delay
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-load_and_delay
-ram_memory_info
-	sprintf
-tests_memory_stress
-	note
-	is
-	undef
-	note
-memory_stress
-	myprintf
-	myprintf
-tests_memory_consumption
-	note
-	like
-	memory_consumption
-	like
-	memory_consumption
-	like
-	memory_consumption
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption_ratio
-	like
-	memory_consumption
-	note
-memory_consumption
-	memory_consumption_of_pids
-debugmemory
-	debugmemory
-	mysprintf
-memory_consumption_of_pids
-	shift
-	chomp
-memory_consumption_of_pids_win32
-	map
-	split
-	remove_qq
-	chomp
-	push
-tests_backtick
-	note
-	is
-	undef
-	is
-	undef
-	skip
-	ok
-	ok
-	ok
-	ok
-	ok
-	skip
-	is
-	undef
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	undef
-	note
-backtick
-	myprint
-	waitpid
-	wantarray
-	join
-remove_not_num
-tests_remove_not_num
-	note
-	ok
-	ok
-	ok
-	ok
-	note
-remove_Ko
-remove_qq
-memory_consumption_ratio
-date_from_rcs
-tests_date_from_rcs
-	note
-	ok
-	note
-good_date
-tests_good_date
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_list_keys_in_2_not_in_1
-	note
-	ok
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	ok
-	list_keys_in_2_not_in_1
-	note
-list_keys_in_2_not_in_1
-	sort
-	push
-list_folders_in_2_not_in_1
-	map
-	reverse
-tests_match
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-match
-	eval
-	myprint
-tests_notmatch
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-notmatch
-	eval
-	myprint
-delete_folders_in_2_not_in_1
-	defined
-	myprint
-	defined
-	myprint
-	dry
-	imap2
-	dry
-	imap2
-	dry
-	myprint
-	myprint
-delete_folder
-	dry
-	dry
-	myprint
-	dry_message
-	myprint
-delete1emptyfolders
-	delete1emptyfolders
-	imap1
-	myprint
-	reverse
-	h1_folders_wanted
-	defined
-	myprint
-	myprint
-	myprint
-	uc
-	myprint
-	myprint
-	delete_folder
-	remove_deleted_folders_from_wanted_list
-	myprint
-remove_deleted_folders_from_wanted_list
-	h1_folders_wanted
-	push
-	h1_folders_wanted
-examine_folder_and_count
-tests_delete1emptyfolders
-	note
-	is
-	undef
-	is
-	undef
-	imap1
-	is
-	undef
-	require_ok
-	imap1
-	is
-	undef
-	delete1emptyfolders
-	tests_delete1emptyfolders_unit
-	delete1emptyfolders
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	tests_delete1emptyfolders_unit
-	dry_message
-	tests_delete1emptyfolders_unit
-	note
-tests_delete1emptyfolders_unit
-	note
-	h1_folders_wanted
-	is_deeply
-	h1_folders_wanted
-	delete1emptyfolders
-	is_deeply
-	h1_folders_wanted
-	note
-extract_header
-tests_extract_header
-	note
-	chomp
-	ok
-	note
-decompose_header
-	push
-tests_decompose_header
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	defined
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-tests_epoch
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	is
-	is
-	note
-epoch
-	myprint
-tests_add_header
-	note
-	ok
-	ok
-	note
-add_header
-tests_max_line_length
-	note
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	ok
-	note
-max_line_length
-tests_setlogfile
-	note
-	logdir
-	logfile
-	is
-	skip
-	TZ
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	timestart
-	is
-	logdir
-	logfile
-	is
-	logdir
-	logfile
-	is
-	logdir
-	logfile
-	is
-	user1
-	is
-	note
-setlogfile
-	abort
-	remote
-	filter_forbidden_characters
-	move_slash
-	user1
-	filter_forbidden_characters
-	move_slash
-	user2
-	logdir
-	logdir
-	logdir
-	logfile
-	logfile
-	timestart
-	logdir
-	logfile
-tests_logfile
-	note
-	skip
-	TZ
-	POSIX::tzset
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	POSIX::tzset
-	note
-logfile
-tests_move_slash
-	note
-	is
-	undef
-	is
-	is
-	note
-move_slash
-tests_million_folders_baby_2
-	note
-	ok
-	note
-tests_always_fail
-	note
-	is
-	note
-logfileprepa
-	do_valid_directory
-teelaunch
-	logfile
-	logfileprepa
-	open
-	logfile_handle
-	tee
-getpwuid_any_os
-	scalar
-	scalar
-simulong
-	myprint
-	sleep
-printenv
-	myprint
-	map
-testsexit
-	tests
-	testsdebug
-	testsunit
-	tests
-	testsdebug
-	testunitsession
-	myprint
-	exit
-	exit
-after_get_options
-	myprint
-	usage
-	exit
-easyany
-	gmail1
-	gmail2
-	gmail12
-	gmail1
-	gmail1
-	gmail2
-	gmail2
-	office1
-	office1
-	office2
-	office2
-	exchange1
-	exchange1
-	exchange2
-	exchange2
-	domino1
-	domino1
-	domino2
-	domino2
-gmail12
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	defined
-	synclabels
-	defined
-	synclabels
-	synclabels
-	push
-gmail1
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	defined
-	push
-	push
-	push
-gmail2
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxbytespersecond
-	maxbytesafter
-	automap
-	defined
-	automap
-	automap
-	expunge1
-	defined
-	expunge1
-	expunge1
-	addheader
-	defined
-	addheader
-	addheader
-	maxsleep
-	defined
-	maxsleep
-	maxsleep
-	push
-	push
-	push
-	push
-	push
-	push
-office1
-	output
-	host1
-	ssl1
-	defined
-	ssl1
-	ssl1
-office2
-	output
-	output
-	output
-	host2
-	ssl2
-	defined
-	ssl2
-	ssl2
-	maxmessagespersecond
-	defined
-	noregexmess
-	push
-exchange1
-	output
-exchange2
-	output
-	output
-	output
-	maxmessagespersecond
-	defined
-	noregexflag
-	push
-	noregexmess
-	push
-domino1
-	defined
-domino2
-	defined
-	push
-tests_resolv
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-resolv
-	defined
-resolv_with_getaddrinfo
-	socktype
-	myprint
-	addr
-	myprint
-	push
-	addr
-tests_resolvrev
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-resolvrev
-	defined
-resolvrev_with_getaddrinfo
-	socktype
-	myprint
-	addr
-	myprint
-	push
-tests_imapsping
-	note
-	is
-	undef
-	is
-	undef
-	is
-	is
-	note
-imapsping
-tests_tcpping
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-tcpping
-	port_num
-tests_sslcheck
-	note
-	is
-	undef
-	sslcheck
-	is
-	sslcheck
-	is
-	sslcheck
-	is
-	is
-	ssl1
-	sslcheck
-	is
-	undef
-	sslcheck
-	is
-	sslcheck
-	is
-	note
-sslcheck
-	sslcheck
-	port1
-	tls1
-	ssl1
-	defined
-	host1
-	myprint
-	probe_imapssl
-	host1
-	ssl1
-	myprint
-	myprint
-	port2
-	tls2
-	ssl2
-	defined
-	host2
-	myprint
-	probe_imapssl
-	host2
-	ssl2
-	myprint
-	myprint
-testslive
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-testslive6
-	host1
-	user1
-	password1
-	host2
-	user2
-	password2
-tests_backslash_caret
-	note
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	is
-	note
-backslash_caret
-tests_split_around_equal
-	note
-	is
-	undef
-	is_deeply
-	toto
-	split_around_equal
-	is_deeply
-	A
-	split_around_equal
-	is_deeply
-	A
-	split_around_equal
-	note
-split_around_equal
-	split
-tests_sig_install
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	Readonly
-	skip
-	USR1
-	USR2
-	kill
-	debugsig
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	is
-	tototo_calls
-	USR1
-	USR2
-	is
-	is
-	tototo_calls
-	is
-	undef
-	is
-	is
-	tototo_calls
-	is
-	is
-	tototo_calls
-	note
-sig_install
-	debugsig
-	debugsig
-	debugsig
-	output
-tototo
-	myprint
-	tototo_calls
-mygetppid
-	getppid
-tests_toggle_sleep
-	note
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	maxsleep
-	is
-	is
-	is
-	is
-	is
-	Readonly
-	skip
-	USR1
-	kill
-	debugsig
-	is
-	undef
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	is
-	is
-	maxsleep
-	note
-toggle_sleep
-	myprint
-	maxsleep
-	maxsleep
-	maxsleep
-	myprint
-	maxsleep
-	maxsleep
-mypod2usage
-	pod2usage
-	-exitval
-usage
-	open
-	warn
-	mypod2usage
-	close
-tests_usage
-	like
-	myprint
-	like
-	like
-	like
-	is
-	undef
-usage_footer
-	rcs
-	releasecheck
-usage_complete
-myGetOptions
-	cgi
-	sort
-	split
-	split
-	keys
-	keys
-	ref
-tests_get_options_cgi_context
-	note
-	SERVER_SOFTWARE
-	is
-	undef
-	CGI
-	is
-	undef
-	cgi
-	is
-	is
-	version
-	is
-	undef
-	debugenv
-	cgi
-	is
-	is
-	user1
-	cgi
-	get_options
-	is_deeply
-	cgi
-	get_options
-	is_deeply
-	cgi
-	get_options
-	is_deeply
-	folder
-	cgi
-	get_options
-	is_deeply
-	folder
-	cgi
-	get_options
-	is_deeply
-	f1f2h
-	cgi
-	get_options
-	is
-	undef
-	dry
-	cgi
-	get_options
-	is
-	host1
-	cgi
-	get_options
-	is
-	undef
-	simulong
-	cgi
-	get_options
-	is
-	undef
-	simulong
-	cgi
-	get_options
-	is
-	simulong
-	is
-	undef
-	folder
-	note
-get_options_cgi
-	cgi
-	f1f2h
-	abort
-	host1
-	host2
-	user1
-	user2
-	password1
-	password2
-	dry
-	version
-	ssl1
-	ssl2
-	tls1
-	tls2
-	justlogin
-	justconnect
-	addheader
-	automap
-	justautomap
-	gmail1
-	gmail2
-	office1
-	office2
-	exchange1
-	exchange2
-	domino1
-	domino2
-	f1f2
-	f1f2h
-	folder
-	testslive
-	testslive6
-	releasecheck
-	simulong
-get_options_cmd
-	cgi
-	output
-	f1f2h
-	debugsleep
-	debugmemory
-	debugfolders
-	debugssl
-	debugenv
-	debugsig
-	simulong
-	abort
-	host1
-	host2
-	port1
-	port2
-	inet4
-	inet6
-	user1
-	user2
-	gmail1
-	gmail2
-	office1
-	office2
-	exchange1
-	exchange2
-	domino1
-	domino2
-	password1
-	password2
-	folder
-	noregexmess
-	noregexflag
-	resyncflags
-	synclabels
-	delete1
-	delete2
-	delete2duplicates
-	dry
-	expunge1
-	expunge2
-	uidexpunge2
-	version
-	h1
-	timeout
-	h2
-	timeout
-	sslcheck
-	ssl1
-	ssl2
-	h1
-	sslargs
-	SSL_version
-	h2
-	sslargs
-	SSL_version
-	h1
-	sslargs
-	h2
-	sslargs
-	tls1
-	tls2
-	tests
-	testsdebug
-	testsunit
-	testslive
-	testslive6
-	justlogin
-	justconnect
-	tmpdir
-	pidfile
-	pidfilelocking
-	sigexit
-	sigreconnect
-	sigignore
-	releasecheck
-	addheader
-	exitwhenover
-	checkselectable
-	checkfoldersexist
-	expungeaftereach
-	abletosearch
-	abletosearch1
-	abletosearch2
-	showpasswords
-	maxmessagespersecond
-	maxbytespersecond
-	maxbytesafter
-	maxsleep
-	log
-	logfile
-	logdir
-	errorsmax
-	errorsdump
-	automap
-	justautomap
-	id
-	f1f2
-	f1f2h
-	justfolderlists
-	delete1emptyfolders
-	myprint
-tests_get_options
-	note
-	is
-	undef
-	is
-	undef
-	noexist
-	is
-	undef
-	is
-	version
-	is
-	undef
-	noexist
-	is
-	is
-	delete2
-	is
-	undef
-	is
-	undef
-	delete1
-	is
-	undef
-	is
-	is
-	is
-	undef
-	is
-	is
-	undef
-	is
-	undef
-	is
-	is
-	host1
-	note
-get_options
-	under_cgi_context
-	sort
-	delete
-	delete
-testunitsession
-	testsunit
-	testsunit
-	skip
-	testsunit
-	done_testing
-tests_count_0s
-	note
-	is
-	is
-	is
-	is
-	is
-	note
-count_0s
-	map
-tests_report_failures
-	note
-	is
-	undef
-	is
-	is
-	is
-	is
-	note
-report_failures
-tests_true
-	note
-	is
-	note
-tests_testsunit
-	note
-	is
-	undef
-	is
-	undef
-	undef
-	is
-	undef
-	is
-	undef
-	is
-	undef
-	note
-testsunit
-	myprint
-	myprint
-	myprint
-	myprint
-testsdebug
-	testsdebug
-	testsdebug
-	skip
-	note
-	ok
-	tests_synclabels
-	tests_uidexpunge_or_expunge
-	note
-	done_testing
-tests_template
-	note
-	is
-	undef
-	is_deeply
-	is_deeply
-	note
-tests
-	tests
-	skip
-	tests
-	note
-	tests_folder_routines
-	tests_compare_lists
-	tests_regexmess
-	tests_skipmess
-	tests_flags_regex
-	tests_ucsecond
-	tests_permanentflags
-	tests_flags_filter
-	tests_separator_invert
-	tests_imap2_folder_name
-	tests_command_line_nopassword
-	tests_good_date
-	tests_max
-	tests_remove_not_num
-	tests_memory_consumption
-	tests_is_a_release_number
-	tests_imapsync_basename
-	tests_list_keys_in_2_not_in_1
-	tests_convert_sep_to_slash
-	tests_match_a_cache_file
-	tests_cache_map
-	tests_get_cache
-	tests_clean_cache
-	tests_clean_cache_2
-	tests_touch
-	tests_flagscase
-	tests_mkpath
-	tests_extract_header
-	tests_decompose_header
-	tests_epoch
-	tests_add_header
-	tests_cache_dir_fix
-	tests_cache_dir_fix_win
-	tests_filter_forbidden_characters
-	tests_cache_folder
-	tests_time_remaining
-	tests_decompose_regex
-	tests_backtick
-	tests_bytes_display_string
-	tests_header_line_normalize
-	tests_fix_Inbox_INBOX_mapping
-	tests_max_line_length
-	tests_subject
-	tests_msgs_from_maxmin
-	tests_tmpdir_has_colon_bug
-	tests_sleep_max_messages
-	tests_sleep_max_bytes
-	tests_logfile
-	tests_setlogfile
-	tests_jux_utf8
-	tests_pipemess
-	tests_jux_utf8_list
-	tests_guess_prefix
-	tests_guess_separator
-	tests_format_for_imap_arg
-	tests_imapsync_id
-	tests_date_from_rcs
-	tests_quota_extract_storage_limit_in_bytes
-	tests_quota_extract_storage_current_in_bytes
-	tests_guess_special
-	tests_do_valid_directory
-	tests_delete1emptyfolders
-	tests_message_for_host2
-	tests_length_ref
-	tests_firstline
-	tests_diff_or_NA
-	tests_match_number
-	tests_all_defined
-	tests_special_from_folders_hash
-	tests_notmatch
-	tests_match
-	tests_get_options
-	tests_get_options_cgi_context
-	tests_rand32
-	tests_hashsynclocal
-	tests_hashsync
-	tests_output
-	tests_output_reset_with
-	tests_output_start
-	tests_check_last_release
-	tests_loadavg
-	tests_cpu_number
-	tests_load_and_delay
-	tests_sslcheck
-	tests_not_long_imapsync_version_public
-	tests_reconnect_if_needed
-	tests_reconnect_12_if_needed
-	tests_sleep_if_needed
-	tests_string_to_file
-	tests_file_to_string
-	tests_under_cgi_context
-	tests_umask
-	tests_umask_str
-	tests_set_umask
-	tests_createhashfileifneeded
-	tests_move_slash
-	tests_testsunit
-	tests_count_0s
-	tests_report_failures
-	tests_min
-	tests_connect_socket
-	tests_probe_imapssl
-	tests_mailimapclient_connect
-	tests_usage
-	tests_version_from_rcs
-	tests_backslash_caret
-	tests_write_pidfile
-	tests_remove_pidfile_not_running
-	tests_match_a_pid_number
-	tests_prefix_seperator_invertion
-	tests_is_an_integer
-	tests_integer_or_1
-	tests_is_number
-	tests_sig_install
-	tests_template
-	tests_split_around_equal
-	tests_toggle_sleep
-	tests_labels
-	tests_synclabels
-	tests_uidexpunge_or_expunge
-	done_testing
-	note
diff --git a/W/learn/increaseline b/W/learn/increaseline
deleted file mode 100755
index 33e2466..0000000
--- a/W/learn/increaseline
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/bin/sh
-
-
-# Generate messages with line lenght from 10 ... up to 99 characters
-for M in `count 10 99`; do 
-	echo $M
-	{ echo Hello Guys; echo ; perl -e "print 'L' x ${M}" ; echo; echo END; }  
-done
-
diff --git a/W/learn/io_socket_get b/W/learn/io_socket_get
deleted file mode 100755
index 8a1931b..0000000
--- a/W/learn/io_socket_get
+++ /dev/null
@@ -1,115 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use IO::Socket;
-use English ;
-use POSIX qw(uname SIGALRM);
-use lib ( '../Mail-IMAPClient-3.25/lib' ) ;
-use Mail::IMAPClient;
-
-sub last_release {
-	my $host = shift || 'linux-france.org' ;
-	my $sock = new IO::Socket::INET (
-		PeerAddr => $host,
-		PeerPort => '80',
-		Proto => 'tcp');
-	return('unknown') if not $sock;
-	print $sock
-		"GET /prj/imapsync/VERSION HTTP/1.0\n", 
-		"Host: www.linux-france.org\n\n";
-	my @line = <$sock>;
-	close($sock);
-	my $last_release = $line[-1];
-	chomp($last_release);
-	return($last_release);
-}
-
-sub not_long {
-
-	my ($func) = @_;
-	my $val;
-	eval {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-		alarm 3;
-		#print $func, "\n";
-		{
-			no strict "refs";
-			$val = &$func();
-		}
-		alarm 0;
-	};
-	if ($@) {
-		# timed out
-		return('unknown') unless $@ eq "alarm\n"; # propagate unexpected errors
-	
-	}else {
-	# didn't
-		return($val);
-	}
-}
-
-sub not_long2 {
-	#print "Entering not_long\n";
-	my ( $func ) = shift ;
-	my ( @argv ) = @_ ;
-	my $val ;
-	
-	# Doesn't work with gethostbyname (see perlipc)
-	#local $SIG{ALRM} = sub { die "alarm\n" };
-	
-	if ('MSWin32' eq $OSNAME) {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-	}else{
-	
-        	POSIX::sigaction(SIGALRM,
-                         POSIX::SigAction->new(sub { die "alarm" }))
-        		or warn "Error setting SIGALRM handler: $!\n";
-	}
-	
-	eval {
-		
-		alarm(3);
-		print "$func @argv", "\n";
-		{
-			no strict "refs";
-			#print "Calling $func\n";
-			$val = &$func( @argv ) ;
-			#print "End of  $func\n";
-		}
-		alarm(0);
-	};
-	if ( $@ ) {
-		#print "$@";
-		if ($@ =~ /alarm/) {
-		# timed out
-			return('timeout');
-		}else{
-			alarm(0);
-			return('unknown'); # propagate unexpected errors
-		}
-	}else {
-	# didn't
-		return($val);
-	}
-}
-
-sub connect_test {
-	my $host = 'localhost' ;
-
-	my $imap = Mail::IMAPClient->new(  ) ;
-	$imap->Debug( 1 ) ;
-	$imap->Server( $host ) ;
-	$imap->connect(  ) or die ;
-	$imap->IsUnconnected(  ) ;
-	$imap->logout(  ) ;
-}
-
-
-#print last_release(), "\n" ;
-#print not_long('last_release'), "\n" ;
-connect_test(  ) ;
-print not_long2( 'last_release', ), "\n" ;
-#print not_long2( 'last_release' ), "\n" ;
-
-connect_test(  ) ;
diff --git a/W/learn/ipc_open2 b/W/learn/ipc_open2
deleted file mode 100755
index 5c76073..0000000
--- a/W/learn/ipc_open2
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl -w
-
-
-
-use strict ;
-use IO::Handle ;
-use IPC::Open2 ;
-
-my( $chld_out, $chld_in ) = ( IO::Handle->new, IO::Handle->new ) ;
-my $pid = open2( $chld_out, $chld_in, 'cat -n' ) ;
-print $chld_in "LALALA\n" x 50000 ;
-print $chld_in "LALALA\n" ;
-print $chld_in "LALALA\n" ;
-
-$chld_in->close ;
-my @out = <$chld_out> ;
-
-waitpid( $pid, 0 );
-my $child_exit_status = $? >> 8;
-
-print @out ;
diff --git a/W/learn/log.txt b/W/learn/log.txt
deleted file mode 100644
index d564afb..0000000
--- a/W/learn/log.txt
+++ /dev/null
@@ -1,8 +0,0 @@
-print 01
-warn  02
-print 03
-warn  04
-warn  05
-print 06
-print 07
-warn  08
diff --git a/W/learn/longline b/W/learn/longline
deleted file mode 100755
index e04abdb..0000000
--- a/W/learn/longline
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-
-
-# Generate messages with line lenght of 10000 11000 ... up to 99000 characters
-for M in `count 10 99`; do 
-	echo $M
-	{ echo Hello Guys; echo ; perl -e "print 'L' x ${M}000" ; echo; echo END; }  \
-	| mail.mailutils -s "line of ${M}000 char" tata@localhost.
-done
-
diff --git a/W/learn/longline_10000_11000 b/W/learn/longline_10000_11000
deleted file mode 100755
index 1ecf817..0000000
--- a/W/learn/longline_10000_11000
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/bin/sh
-
-# $Id: longline_10000_11000,v 1.5 2019/06/17 12:21:28 gilles Exp gilles $
-
-# Test Exchange limit for maxlinelenght
-# Generate messages with line lenght of 10000 10100 ... up to 10990 characters
-for M in `count 00 99`; do 
-	echo $M
-	{ 
-                echo Hello Guys
-                echo
-                echo Take a line of 10${M}0 characters:
-                perl -e "print 'L' x 10${M}0" ; 
-                echo
-                echo "END of 10${M}0 characters line message" ; }  \
-        | mail.mailutils -s "Can you take a line of 10${M}0 characters?" longlines@localhost.
-done
-
diff --git a/W/learn/longline_10230_10240 b/W/learn/longline_10230_10240
deleted file mode 100755
index d96ea5b..0000000
--- a/W/learn/longline_10230_10240
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/bin/sh
-
-# $Id: longline_10000_11000,v 1.5 2019/06/17 12:21:28 gilles Exp gilles $
-
-# Test Exchange limit for maxlinelenght
-# Generate messages with line lenght of 10000 10100 ... up to 10990 characters
-for M in `count 30 40`; do 
-	echo $M
-	{ 
-                echo Hello Guys
-                echo
-                echo Take a line of 102${M} characters:
-                perl -e "print 'L' x 102${M}" ; 
-                echo
-                echo "END of 102${M} characters line message" ; }  \
-        | mail.mailutils -s "Can you take a line of 102${M} characters?" longlines@localhost.
-done
-
diff --git a/W/learn/mail2world b/W/learn/mail2world
deleted file mode 100755
index a8f801d..0000000
--- a/W/learn/mail2world
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -w
-
-use lib '/g/public_html/imapsync/W/Mail-IMAPClient-3.37/lib/' ;
-use Mail::IMAPClient ;
-use Data::Dumper ;
-
-$ARGV[3] or die "usage: $0 host user password folder\n" ;
-
-print "Mail::IMAPClient $Mail::IMAPClient::VERSION\n" ;
-$host = $ARGV[0] ;
-$user = $ARGV[1] ;
-$password = $ARGV[2] ;
-$folder = $ARGV[3] ;
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(1);
-$imap->Uid( 0 ) ;
-$imap->Server( $host ) ;
-$imap->connect( ) or die ;
-$imap->IsUnconnected(  );
-$imap->User( $user ) ;
-$imap->Password( $password ) ;
-$imap->login(  ) or die ;
-$imap->Uid( 1 ) ;
-$imap->Peek( 1 ) ;
-$imap->select( $folder ) or die ;
-
-print "==== tag_and_run\n" ;
-$imap->tag_and_run( 'UID FETCH 1:* ( RFC822.SIZE )' ) ;
-
-print "==== fetch\n" ;
-print $imap->fetch( "1:*", "RFC822.SIZE" ) ;
-
-print "==== fetch_hash\n" ;
-my $hashref = {} ;
-$imap->fetch_hash( "1:*", "RFC822.SIZE", $hashref ) ;
-
-foreach my $m (keys %$hashref) {
-	print "Msg $m is ", $hashref->{$m}->{'RFC822.SIZE'}, " bytes\n" ;
-}
-print Data::Dumper->Dump( [ $hashref ] ) ;
-
-$imap->logout(  ) ;
diff --git a/W/learn/memo b/W/learn/memo
deleted file mode 100644
index 5a17ef6..0000000
--- a/W/learn/memo
+++ /dev/null
@@ -1,22 +0,0 @@
-
-
-
-loul Cyrus
-==========
-
-
-vi /var/lib/cyrus/mailboxes
-
-ls /var/spool/cyrus/mail/user/tata/
-
-
-plume courier
-=============
-
-vi /etc/courier/userdb
-
-ls -a /home/vmail/tata/
-
-userdbpw -hmac-md5 | userdb tata@est.belle  set hmac-md5pw
-makeuserdb
-
diff --git a/W/learn/memory_consumption b/W/learn/memory_consumption
deleted file mode 100755
index 1a4c6bd..0000000
--- a/W/learn/memory_consumption
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder   = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(0);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->Clear(1);
-
-#print map {"$_\n"} $imap->folders();
-
-$imap->select($folder) or die;
-my @msgs = $imap->messages or die "Could not messages: $@\n";
-print "@msgs\n";
-print memory_consumption();
-foreach my $msg (@msgs) {
-	my $size = $imap->size($msg);
-	print "message size of $msg = $size bytes\n";
-	my $string = $imap->message_string($msg);
-	print memory_consumption();
-	$imap->append('INBOX.Trash', $string);
-	print memory_consumption();
-}
-$imap->close();
-print memory_consumption();
-
-
-sub memory_consumption {
-
-	my @PID = (@_) ? @_ : ($PROCESS_ID);
-	my $val;
-	
-	my ($package, $filename, $line, $subroutine) = caller(0);
-	$val = "$package $filename line $line: ";
-	my @ps = qx{ ps o vsz @PID };
-	my $vsz = $ps[1];
-	chomp($vsz);
-	$val .= $vsz * 1024 . " bytes\n";
-	#$val .= '-' x 80 . "\n";
-	return($val);
-}
diff --git a/W/learn/message_string_raw b/W/learn/message_string_raw
deleted file mode 100755
index 25ec062..0000000
--- a/W/learn/message_string_raw
+++ /dev/null
@@ -1,110 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-use Socket;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder   = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(0);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->Clear(1);
-
-#print map {"$_\n"} $imap->folders();
-
-$imap->select($folder) or die;
-my @msgs = $imap->messages or die "Could not messages: $@\n";
-print "@msgs\n";
-print memory_consumption_ratio(), "\n";
-
-my $size_max = 0;
-foreach my $msg (@msgs) {
-	my $size = $imap->size($msg);
-	$size_max = ($size_max > $size) ? $size_max : $size;
-	print "message size of $msg = $size bytes\n";
-	my $string_raw = $imap->message_string_raw($msg);
-	print "ms raw: ", memory_consumption_ratio($size_max), "\n";
-	my $string     = $imap->message_string($msg);
-	print "ms nor: ", memory_consumption_ratio($size_max), "\n";
-	print "NOT EQUAL\n" if ($string_raw ne $string); 
-	#print substr($string_raw,   0, 80), "]\n";
-	#print substr($string_raw, -80, 80), "]\n";
-	$imap->append('INBOX.Trash', $string_raw);
-	$imap->append('INBOX.Trash', $string);
-}
-$imap->close();
-print "ap nor: ", memory_consumption_ratio($size_max), "\n";
-
-
-sub memory_consumption_of_pid {
-
-	my @PID = (@_) ? @_ : ($PROCESS_ID);
-	my $val;
-	
-	my @ps = qx{ ps o vsz @PID };
-	shift @ps;
-	chomp @ps;
-	my @val = map { $_ * 1024 } @ps;
-	return(@val);
-}
-
-sub memory_consumption_ratio {
-
-	my ($base) = @_;
-	$base ||= 1;
-	my ($consu) = memory_consumption_of_pid();
-	return($consu / $base);
-}
-
-package Mail::IMAPClient;
-
-sub message_string_raw {
-
-	my $self  = shift;
-	my ($msg) = @_;
-	my $sock  = $self->{Socket};
-	print "Socket:[$sock]\n";
-	my $count = $self->Count($self->Count+1);
-
-	print $sock "$count UID FETCH 1 BODY.PEEK[]\r\n";
-	my $buf;
-	my $line;
-	CORE::select( undef, undef, undef, 0.025 );
-	my $expected_size;
-	
-	local $/ = "\r\n";
-	$line = <$sock>;
-	print $line;
-	
-	if ( $line =~ m/.*{(\d+)\}\r\n/o ) {
-		$expected_size = $1;
-		print "\nEXPECT $expected_size\n";
-	}
-	
-	#local $/;
-	while ($buf .= <$sock> and (length $buf <= $expected_size)){
-		#print length $buf, "\n";
-		#CORE::select( undef, undef, undef, 0.025 );
-	}
-	$line = <$sock>;
-	print $line;
-	if ( $line =~ m/$count OK FETCH.*\r\n/o ) {
-		return(substr($buf, 0, $expected_size))
-	}else{
-		return(undef);
-	}
-}
diff --git a/W/learn/message_string_raw_pb b/W/learn/message_string_raw_pb
deleted file mode 100755
index 19652c0..0000000
--- a/W/learn/message_string_raw_pb
+++ /dev/null
@@ -1,209 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use strict;
-use English;
-use Mail::IMAPClient;
-use Socket;
-
-$ARGV[3] or die "usage: $0 host user password folder\n";
-
-my $host     = $ARGV[0];
-my $user     = $ARGV[1];
-my $password = $ARGV[2];
-my $folder   = $ARGV[3];
-
-my $imap = Mail::IMAPClient->new();
-$imap->Debug(0);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->Uid(1);
-$imap->Peek(1);
-$imap->Clear(1);
-
-#print map {"$_\n"} $imap->folders();
-
-$imap->select($folder) or die;
-my @msgs = $imap->messages or die "Could not messages: $@\n";
-print "@msgs\n";
-print memory_consumption_ratio(), "\n";
-
-my $size_max = 0;
-foreach my $msg (@msgs) {
-	my $size = $imap->size($msg);
-	$size_max = ($size_max > $size) ? $size_max : $size;
-	print "message size of $msg = $size bytes\n";
-	my $string_raw = $imap->message_string_raw($msg);
-	print "ms raw: ", memory_consumption_ratio($size_max), "\n";
-	
-	#$imap->append_string('INBOX.Trash', $string_raw);
-	my $uid_raw = $imap->append_string_raw('INBOX.Trash', $string_raw);
-	print "ap raw $uid_raw: ", memory_consumption_ratio($size_max), "\n";
-	my $string     = $imap->message_string($msg);
-	print "ms nor: ", memory_consumption_ratio($size_max), "\n";
-	print "NOT EQUAL\n" if ($string_raw ne $string); 
-	#print substr($string_raw,   0, 80), "]\n";
-	#print substr($string_raw, -80, 80), "]\n";
-	my $uid_nor = $imap->append_string('INBOX.Trash', $string_raw);
-	print "ap nor $uid_nor: ", memory_consumption_ratio($size_max), "\n";
-	$imap->select('INBOX.Trash')  or die;
-	$string_raw = $imap->message_string_raw($uid_raw);
-	print "msraw $uid_raw D:", substr($string_raw,   0, 80), "]\n";
-	print "msraw $uid_raw F:", substr($string_raw, -80, 80), "]\n";
-	$string     = $imap->message_string_raw($uid_nor);
-	print "msraw $uid_nor D:", substr($string,   0, 80), "]\n";
-	print "msraw $uid_nor F:", substr($string, -80, 80), "]\n";
-	print "NOT EQUAL app\n" if ($string_raw ne $string);
-	print "eq: ", memory_consumption_ratio($size_max), "\n";
-}
-$imap->close();
-
-
-sub memory_consumption_of_pid {
-
-	my @PID = (@_) ? @_ : ($PROCESS_ID);
-	my $val;
-	
-	my @ps = qx{ ps o vsz @PID };
-	shift @ps;
-	chomp @ps;
-	my @val = map { $_ * 1024 } @ps;
-	return(@val);
-}
-
-sub memory_consumption_ratio {
-
-	my ($base) = @_;
-	$base ||= 1;
-	my ($consu) = memory_consumption_of_pid();
-	return($consu / $base);
-}
-
-package Mail::IMAPClient;
-use Errno qw(EAGAIN EPIPE ECONNRESET);
-
-sub message_string_raw {
-
-	my $self  = shift;
-	my ($msg) = @_;
-	my $sock  = $self->{Socket};
-	my $io_sel= IO::Select->new($sock);
-	my $count = $self->Count($self->Count+1);
-
-	print "$count UID FETCH $msg BODY.PEEK[]\r\n";
-	print $sock "$count UID FETCH $msg BODY.PEEK[]\r\n";
-	my $buf;
-	my $line;
-	CORE::select( undef, undef, undef, 0.025 );
-	my $expected_size;
-	
-	local $/ = "\r\n";
-	$line = <$sock>;
-	print "msr <> [$line]";
-	
-	if ( $line =~ m/.*{(\d+)\}\r\n/o ) {
-		$expected_size = $1;
-		print "\nEXPECT $expected_size\n";
-	}
-	
-	#local $/;
-	while ($buf .= <$sock> and (length $buf <= $expected_size)){
-	}
-	CORE::select( undef, undef, undef, 0.025 );
-	$line = <$sock>;
-	print "[$line][$count OK FETCH]\n";
-	if ( $line =~ m/$count OK FETCH/o ) {
-		print "GOOD\n";
-		return(substr($buf, 0, $expected_size))
-	}else{
-		print "BAD\n";
-		return(undef);
-	}
-}
-
-
-sub append_string_raw {
-    my $self   = shift;
-
-    my $folder = $self->Massage(shift);
-    my ( $text, $flags, $date ) = @_;
-    defined $text or $text = '';
-
-    my $sock  = $self->{Socket};
-    my $io_sel   = IO::Select->new($sock);
-
-    my($count, $line);
-
-    if ( defined $flags ) {
-        $flags =~ s/^\s+//g;
-        $flags =~ s/\s+$//g;
-        $flags = "($flags)" if $flags !~ /^\(.*\)$/;
-    }
-
-    if ( defined $date ) {
-        $date =~ s/^\s+//g;
-        $date =~ s/\s+$//g;
-        $date = qq("$date") if $date !~ /^"/;
-    }
-
-    #$text =~ s/\r?\n/\r\n/og;
-
-    my $command =
-        "APPEND $folder "
-      . ( $flags ? "$flags " : "" )
-      . ( $date  ? "$date "  : "" ) . "{"
-      . length($text)
-      . "}\r\n";
-
-    local $/ = "\r\n";
-
-    #print  $command;
-    
-    $count = $self->Count($self->Count+1);
-    my $string = "$count ". $command . $text . "\r\n";
-    $io_sel->can_write();
-    $self->_send_bytes_2(\$string);
-    $io_sel->can_read();
-    $line = <$sock>;
-    #print "APP 1 [$line]\n";
-    
-    $io_sel->can_read();
-    $line = <$sock>;
-    print "APP 2 [$line]\n";
-
-    my $ret;
-    # <tag> OK [APPENDUID <size> <uid>] APPEND completed
-    if ($line =~ m{^$count\s+OK\s+\[APPENDUID\s+\d+\s+(\d+)\]}) {
-    	$ret = $1;
-    }else{
-    	$ret = undef;
-    }
-    return($ret);
-}
-
-sub _send_bytes_2 {
-    my ( $self, $byteref ) = @_;
-    my ( $total ) = ( 0 );
-
-    local $SIG{PIPE} = 'IGNORE';    # handle SIGPIPE as normal error
-
-    while ( $total < length $$byteref ) {
-        my $written =
-          syswrite( $self->Socket, $$byteref, length($$byteref) - $total,
-            $total );
-
-        if ( defined $written ) {
-		$total += $written;
-		next;
-	}
-
-        next if ( $! == EAGAIN ) ;
-	
-        return undef;    # no luck
-    }
-    $self->_debug("Sent $total bytes");
-    return $total;
-}
diff --git a/W/learn/oauth2 b/W/learn/oauth2
deleted file mode 100755
index e8bade9..0000000
--- a/W/learn/oauth2
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/perl
-
-use HTTP::Request::Common qw(POST);
-use LWP::UserAgent;
-use Data::Dumper;
-use Mail::IMAPClient;
-use URI::Escape;
-use MIME::Base64;
-
-print "\n\nType your email address here: ";
-$username = "gilles.lamiral@gmail.com" ;
-chomp($username);
-
-print "\n\nPaste the client_id here: ";
-$client_id = '108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com' ;
-chomp($client_id);
-
-print "\n\nPaste the client_secret here: ";
-$client_secret = 'zAJO4PLxzeJ4yOaiJRk6f69k' ;
-chomp($client_secret);
-
-$scope_string = "https%3A%2F%2Fmail.google.com%2F";
-
-print "Please open the following in your web browser:\n\nhttps://accounts.google.com/o/oauth2/auth?scope=$scope_string&redirect_uri=urn:ietf:wg:oauth:2.0:oob&response_type=code&client_id=$client_id";
-
-print "\n\nPaste the code here: ";
-$code = '4/-e6wojtOSXCjZnwZKKhvg3AdDqDjGLOF0nXxfAFcdmk';
-# 
-chomp($code);
-
-$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
-my $ua = LWP::UserAgent->new;
-$ua->timeout(10);
-$ua->env_proxy;
-
-print "Exchanging the code for an access token and refresh token...\n";
-my $exchange_response = $ua->request(POST 'https://accounts.google.com/o/oauth2/token',
-'Content_Type' => 'application/x-www-form-urlencoded',
-'Content' => [
-'code' => $code,
-'client_id' => $client_id,
-'client_secret' => $client_secret,
-'redirect_uri' => 'urn:ietf:wg:oauth:2.0:oob',
-'grant_type' => 'authorization_code',
-],
-);
-
-my ($access_token) = ($exchange_response->decoded_content =~ m/access_token"."(.)"/);
-my ($refresh_token) = ($exchange_response->decoded_content =~ m/refresh_token"."(.)"/);
-
-
-print "exchange_response: ", $exchange_response->decoded_content, "\n" ;
-
-print "access token: $access_token\n";
-print "refresh token: $refresh_token\n";
-
-print "Refreshing the access token...\n";
-my $auth_response = $ua->request(POST 'https://accounts.google.com/o/oauth2/token',
-'Host' => 'accounts.google.com',
-'Content_Type' => 'application/x-www-form-urlencoded',
-'Content' => [
-'client_id' => $client_id,
-'client_secret' => $client_secret,
-'refresh_token' => $refresh_token,
-'grant_type' => 'refresh_token',
-],
-);
-
-my ($access_token) = ($auth_response->decoded_content =~ m/access_token"."(.)"/);
-
-my $oauth_sign = encode_base64("user=". $username ."\x01auth=Bearer ". $access_token ."\x01\x01", '');
-
-my $imap = Mail::IMAPClient->new(
-Server => 'imap.gmail.com',
-Port => 993,
-Ssl => 1,
-Uid => 1,
-) or die("Can't connect to imap server.");
-$imap->authenticate('XOAUTH2', sub { return $oauth_sign }) or die("Auth error: ". $imap->LastError);
-
-print join(", ",$imap->folders),".\n" or die("List folders error: ". $imap->LastError);
diff --git a/W/learn/perlcritic_ProhibitInterpolationOfLiterals b/W/learn/perlcritic_ProhibitInterpolationOfLiterals
deleted file mode 100755
index 88951ea..0000000
--- a/W/learn/perlcritic_ProhibitInterpolationOfLiterals
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: perlcritic_ProhibitInterpolationOfLiterals,v 1.3 2016/06/15 22:18:23 gilles Exp gilles $
-
-use strict;
-use warnings;
-
-our $VERSION = q$Revision: 1.3 $;
-
-if ( "\1foo" eq '\1foo' ) {
-    print "equal\n";
-}
-else {
-    print "not equal\n";
-}
-
diff --git a/W/learn/perlcritic_ProhibitInterpolationOfLiterals_2 b/W/learn/perlcritic_ProhibitInterpolationOfLiterals_2
deleted file mode 100755
index 196647b..0000000
--- a/W/learn/perlcritic_ProhibitInterpolationOfLiterals_2
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: perlcritic_ProhibitInterpolationOfLiterals,v 1.3 2016/06/15 22:18:23 gilles Exp gilles $
-
-use strict;
-use warnings;
-
-our $VERSION = q$Revision: 1.3 $;
-
-if ( "\afoo" eq '\afoo' ) {
-    print "equal\n";
-}
-else {
-    print "not equal\n";
-}
-
diff --git a/W/learn/pipemess b/W/learn/pipemess
deleted file mode 100755
index aacd984..0000000
--- a/W/learn/pipemess
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: $
-
-use strict ;
-
-
-open( READCMD, "cat -n /etc/passwd |" ) ;
-
-my @out = <READCMD> ;
-
-close( READCMD ) ;
-
-print @out ;
-
-exit ;
-
diff --git a/W/learn/print b/W/learn/print
deleted file mode 100755
index 355431d..0000000
--- a/W/learn/print
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: print,v 1.1 2016/06/16 19:10:04 gilles Exp gilles $
-
-use strict;
-use warnings;
-use English;
-
-our $VERSION = q$Revision: 1.1 $;
-
-# myprint( STDOUT "Hello\n" ) ; # DO NOT WORK
-
-open my $stdout, ">-" ;
-#myprint( $stdout, "Hello from myprint & filehandle\n" ) ; # DO NOT WORK
-close $stdout ;
-
-myprint( "Hello\n" ) ; # WORKS
-
-myprint( << 'EOF' ) ;
-lalala
-myprint inline
-EOF
-
-exit;
-
-sub myprint { print @ARG ; }
-
diff --git a/W/learn/proximapsync b/W/learn/proximapsync
deleted file mode 100755
index ff208a5..0000000
--- a/W/learn/proximapsync
+++ /dev/null
@@ -1,1356 +0,0 @@
-#!/usr/bin/perl -T
-
-use strict ;
-use warnings ;
-use Getopt::Long (  ) ;
-use LWP::UserAgent (  ) ;
-use English qw( -no_match_vars ) ;
-use Readonly ;
-use Data::Dumper ;
-use Test::More ;
-use Digest::HMAC_SHA1 qw( hmac_sha1_hex ) ;
-use Sys::Hostname ;
-use Sys::MemInfo ;
-use IPC::Open3 (  ) ;
-
-Readonly my  $RCS     = q{$Id: proximapsync,v 1.9 2018/05/06 12:16:00 gilles Exp gilles $} ;
-Readonly our $VERSION = version_from_rcs( $RCS ) ;
-
-Readonly my $EX_OK          => 0  ; #/* successful termination */
-Readonly my $EX_USAGE       => 64 ; #/* command line usage error */
-
-Readonly my $KIBI => 1024 ;
-Readonly my $EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-
-Readonly my $nb_attempts_max    => 5 ;
-
-main( @ARGV ) ;
-
-
-sub main { 
-        my @options = @ARG ;
-        
-        
-        my $sync = init( @options ) ;
-        
-        # 
-        cgibuildheader( $sync ) ;
-        myprint( output( $sync ) ) ;
-        output_reset_with( $sync ) ;
-        # Header is printed so now we can use myprint
-        presentation( $sync ) ;
-        # Unit tests if asked, then exit.
-        testsexit( $sync ) ;
-        # The real stuff
-        loop_until_done_or_abort( $sync ) ;
-        
-        
-        myprint( debugmemory( $sync, '  after' ) ) ;
-        return ;
-}
-
-sub loop_until_done_or_abort{
-        my $mysync = shift ;
-        
-        $mysync->{ nb_attempts_max } = $nb_attempts_max ;
-        $mysync->{ nb_attempts } = 0 ;
-        
-        while ( can_and_have_to_sync( $mysync ) ) {
-        # ideas:
-        #    * Warn if http instead of https
-        
-                my $url = choose_remote( $mysync ) ;
-                myprint( "\nGonna delegate the imap sync to $url\n" ) ;
-                my $response = proximapsync( $mysync, $url ) ;
-                
-                if ( ! $response->is_success ) {
-                        myprint( "Failure with $url\n" ) ;
-                        my $removed = remove_remote( $mysync ) ;
-                        myprint( "Removed $removed from list of proxies\n" ) ;
-                        #$mysync->{ sync_done } = 1 ;
-                }else{
-                        myprint( "Success with $url\n" ) ;
-                        $mysync->{ sync_done } = 1 ;
-                }
-        }
-        myprint( "No more things to do\n" ) ;
-        return ;
-}
-
-sub tests_can_and_have_to_sync {
-        note( 'Entering tests_can_and_have_to_sync()' ) ;
-        is( undef, can_and_have_to_sync(  ),  'can_and_have_to_sync: no args => undef' ) ;
-        my $mysync ;
-        is( undef, can_and_have_to_sync( $mysync ),  'can_and_have_to_sync: undef => undef' ) ;
-        $mysync = {  } ;
-        is( undef, can_and_have_to_sync( $mysync ),  'can_and_have_to_sync: undef => undef' ) ;
-        
-        $mysync->{ nb_attempts_max } = 1 ;
-        $mysync->{ nb_attempts } = 1 ;
-        $mysync->{ remote } = [  ] ;
-        is( 0, can_and_have_to_sync( $mysync ),  'can_and_have_to_sync: nb_attempts_max reached => 0' ) ;
-        
-        
-        
-        
-        note( 'Leaving  tests_can_and_have_to_sync()' ) ;
-	return ;
-}
-
-
-sub can_and_have_to_sync {
-        my $mysync = shift ;
-        
-        if ( ! defined( $mysync ) ) { return ; }
-        
-        if ( ! all_defined( 
-                $mysync->{ nb_attempts }, 
-                $mysync->{ nb_attempts_max },
-                $mysync->{ remote },
-                ) 
-           ) {
-                myprint( "One or more parameters are missing: nb_attempts  nb_attempts_max  remote\n" ) ;
-                return ; 
-        }
-        
-        if ( $mysync->{ nb_attempts } >= $mysync->{ nb_attempts_max } ) {
-                # stop 
-                myprint( "Max attempts " . $mysync->{ nb_attempts } . " reached!\n" ) ;
-                return 0 ;
-        }
-
-        my $nb_proxies = scalar( @{ $mysync->{ remote } } ) ;
-        
-        if ( $nb_proxies <= 0 ) {
-                myprint( "No more remote to delegate the sync to!\n" ) ;
-                return ; 
-        }
-        
-        # It will be more elaborate later
-        if ( $mysync->{ sync_done } ) {
-                # stop 
-                return 0 ;
-        }else{
-                # try again 
-                return 1 ;
-        }
-}
-
-# This filter_param sub is here just during the development process
-# in order to find and modify it along the way
-sub filter_param { 
-        my $mysync = shift ;
-      
-        # copy the $mysync elements needed for the remote
-        
-        my $remote = {} ;
-        for my $key ( qw( 
-                        host1 user1 password1
-                        host2 user2 password2
-                        abort
-                        testslive tests
-                        simulong
-                        )
-                ) {
-                if ( exists(  $mysync->{ $key } ) 
-                     and defined(  $mysync->{ $key } ) ) {
-                        $remote->{ $key } = $mysync->{ $key } ;
-                }
-        }
-        
-        return $remote ;
-}
-
-sub presentation { 
-        my $mysync = shift ;
-        
-        my( $infos ) = join( q{},
-                "Here is proximapsync ", software_version( $mysync ),
-                " on host ", hostname(),
-                ", a $OSNAME system with ",
-                ram_memory_info(  ),
-                "\n",
-        ) ;
-
-        myprint( $infos ) ;
-        myprint( debugmemory( $mysync, ' before' ) ) ;
-        myprint( "PID is $PROCESS_ID\n" ) ;
-        myprint( "cookie_jar file: " . $mysync->{ cookie_jar } . "\n" ) ;
-        
-        #my $uri = new URI ;
-        #$uri->query_form( [ qw( remote https://lamiral.info/cgi-bin/imapsync ) ] ) ;
-        #myprint( "uri: $uri\n" ) ;
-        return ;
-}
-
-sub init { 
-        my @options = @ARG ;
-        my $mysync = {  } ;
-
-        $mysync->{ timestart } = time ; # Is a float because of use Time::HiRres
-        $mysync->{ rcs } = $RCS ; 
-        $mysync->{ memory_consumption_at_start } = memory_consumption(  ) || 0 ;
-
-        my @loadavg = loadavg(  ) ;
-
-        $mysync->{ cpu_number } = cpu_number(  ) ;
-        $mysync->{ loaddelay } = load_and_delay( $mysync->{ cpu_number }, @loadavg ) ;
-        $mysync->{ loadavg } = join( q{ }, $loadavg[ 0 ] ) 
-                   . " on $mysync->{cpu_number} cores and "
-                   . ram_memory_info(  ) ;
-
-        # Just create a CGI object if under cgi context only. Needed for get_options() call
-        cgibegin( $mysync ) ;
-        
-        my $options_good = get_options( $mysync, @options ) ;
-
-        if ( ! defined $options_good ) { exit $EX_USAGE ; }
-
-        $mysync->{ debugmemory } = 1 ;
-
-        set_cookie_jar( $mysync ) ;
-        
-        #set_default_remote( $mysync ) ;
-
-        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-        return $mysync ;
-}
-
-sub set_default_remote {
-        my $mysync = shift ;
-
-        $mysync->{ remote } = ( $mysync->{ remote } ) 
-                ? $mysync->{ remote } 
-                : [ 'http://lamiral.info/cgi-bin/imapsync', 
-                    'http://lamiral.info/cgi-bin/imapsyncQQ', 
-                    'http://lamiral.info/cgi-bin/imapsyncXX', 
-                    'http://lamiral.info/cgi-bin/imapsyncKK', 
-                  ] ;
-        
-        return ;
-}
-
-sub set_cookie_jar {
-        my $mysync = shift ;
-        
-        if ( -d -w "$ENV{HOME}/" ) { 
-                $mysync->{ cookie_jar } = "$ENV{HOME}/.imapsync_cookies.txt" ;
-                return ;
-        }
-        
-        if ( -d -w "/var/tmp/euid_$EFFECTIVE_USER_ID" ) {
-                $mysync->{ cookie_jar } = "/var/tmp/euid_$EFFECTIVE_USER_ID/imapsync_cookies.txt" ;
-                return ;
-        }
-        
-        if ( -d -w '/var/tmp' ) {
-                mkdir "/var/tmp/euid_$EFFECTIVE_USER_ID" || return ;
-                $mysync->{ cookie_jar } = "/var/tmp/euid_$EFFECTIVE_USER_ID/imapsync_cookies.txt" ;
-        }
-
-        return ;
-}
-
-sub proximapsync { 
-        my $mysync = shift ;
-        my $url = shift || return ;
-        my $response = post_to_url( $mysync, $url ) ;
-        $mysync->{ nb_attempts } += 1 ;
-        return $response ;
-}
-
-{
-        # This block is because of the lexical variable
-        # $status_printed that has to be initialized
-        # each time, even in mod_perl perl-registry context
-        # (the sub-function issue) 
-
-        my $status_printed ;
-        sub post_to_url {
-                my $mysync = shift ;
-                my $url    = shift ;
-        
-                my $sync_remote = filter_param( $mysync ) ;
-                
-                my $ua = LWP::UserAgent->new ;
-                push @{ $ua->requests_redirectable }, 'POST' ;
-                
-                my $agent = 'proximapsync/' . software_version( $mysync ) ;
-                $ua->agent("$agent ") ; # append the default to the end
-                $ua->protocols_allowed( [ 'http', 'https'] ) ;
-                $ua->timeout( 10 ) ; # secondes
-                $ua->max_redirect( 7 ) ;
-                $ua->env_proxy; # Load proxy settings from *_proxy environment variables.
-                $ua->cookie_jar( { file => $mysync->{ cookie_jar }, autosave => 1, } ) ;
-                #myprint( Data::Dumper->Dump( [ $sync_remote ] ) ) ;
-                
-                $status_printed = 0 ;
-                my $response = $ua->post( $url, ':content_cb' => \&post_callback, $sync_remote ) ;
-                myprint( "Remote request on $url is now finished using " . $response->redirects . " redirects by following this reverse history:\n" ) ;
-                myprint( response_results( $response ) ) ;
-                return $response ;
-        }
-
-        sub post_callback {
-                my ( $chunk, $response, $protocol ) = @_ ;
-                if ( ! $status_printed ) {
-                        myprint( $response->status_line, " in post_callback\n" ) ; 
-                        $status_printed = 1 ;
-                }
-                #Do whatever you like with $chunk
-                myprint( $chunk ) ;
-                return ;
-        }
-
-}
-
-sub response_results {
-        my $response = shift ;
-
-        my $string = q{} ;
-        
-        while ( $response  ) {
-                $string .= $response->base . ' => ' . $response->status_line . "\n" ;
-                $response = $response->previous ;
-        }
-        return "$string" ;
-}
-
-sub cgibuildheader {
-	my $mysync = shift ;
-	if ( ! under_cgi_context( $mysync ) ) { return ; }
-
-	my $proximapsync_runs = $mysync->{cgi}->cookie( 'proximapsync_runs' ) || 0 ;
-	my $cookie = $mysync->{cgi}->cookie(
-			-name => 'proximapsync_runs',
-			-value => 1 + $proximapsync_runs,
-			-expires => '+20y',
-			-path    => '/cgi-bin/proximapsync',
-		) ;
-	my $httpheader ;
-	if( $mysync->{ loaddelay } ) {
-		$httpheader = $mysync->{cgi}->header(
-			-type   => 'text/plain',
-			-status => '503 Service Unavailable' . ". Be back in $mysync->{ loaddelay } min. Load on " . hostname() . " is $mysync->{ loadavg }",
-		) ;
-	}else{
-		$httpheader = $mysync->{cgi}->header(
-		-type   => 'text/plain',
-		-status => '200 OK to proximapsync. ' . "Load on " . hostname() . " is $mysync->{ loadavg }",
-		-cookie => $cookie,
-		) ;
-	}
-	output_start( $mysync, $httpheader ) ;
-	return ;
-}
-
-
-sub tests_remote_from_credentials {
-        note( 'Entering tests_remote_from_credentials()' ) ;
-
-        is( undef, remote_from_credentials(  ) ,  'remote_from_credentials: no args => undef' ) ;
-        my $mysync = {} ;
-        
-        is( undef, remote_from_credentials( $mysync ) ,  'remote_from_credentials: undef => undef' ) ;
-        
-        $mysync->{ remote } = [ 'http://def/xxx' ] ;
-        is( 'http://def/xxx', remote_from_credentials( $mysync ) ,  'remote_from_credentials: http://def/xxx => http://def/xxx' ) ;
-        
-        $mysync->{ remote } = [ 'http://abc/xxx' ] ;
-        is( 'http://abc/xxx', remote_from_credentials( $mysync ) ,  'remote_from_credentials: http://abc/xxx => http://abc/xxx' ) ;
-
-        $mysync->{ remote } = [ 'http://abc/xxx', 'http://def/xxx' ] ;
-        is( 'http://def/xxx', remote_from_credentials( $mysync ) ,  'remote_from_credentials: http://abc/xxx http://def/xxx => http://def/xxx' ) ;
-
-        note( 'Leaving  tests_remote_from_credentials()' ) ;
-	return ;
-}
-
-
-
-sub remote_from_credentials {
-	my $mysync  = shift ;
-
-        my $index = remote_index_from_credentials( $mysync ) ;
-        my $remote = $mysync->{ remote }->[ $index ] || undef ;
-        return( $remote ) ;
-        
-}
-
-
-
-sub tests_remote_index_from_credentials {
-        note( 'Entering tests_remote_index_from_credentials()' ) ;
-
-        is( 0, remote_index_from_credentials(  ) ,  'remote_index_from_credentials: no args => 0' ) ;
-        my $mysync = {} ;
-        
-        is( 0, remote_index_from_credentials( $mysync ) ,  'remote_index_from_credentials: undef => 0' ) ;
-        
-        $mysync->{ remote } = [ 'http://def/xxx' ] ;
-        is( 0, remote_index_from_credentials( $mysync ) ,  'remote_index_from_credentials: http://def/xxx => http://def/xxx' ) ;
-        
-        $mysync->{ remote } = [ 'http://abc/xxx' ] ;
-        is( 0, remote_index_from_credentials( $mysync ) ,  'remote_index_from_credentials: http://abc/xxx => http://abc/xxx' ) ;
-
-        $mysync->{ remote } = [ 'http://abc/xxx', 'http://def/xxx' ] ;
-        is( 1, remote_index_from_credentials( $mysync ) ,  'remote_index_from_credentials: http://abc/xxx http://def/xxx => http://def/xxx' ) ;
-
-        note( 'Leaving  tests_remote_index_from_credentials()' ) ;
-	return ;
-}
-
-
-
-sub remote_index_from_credentials {
-	my $mysync  = shift ;
-
-        my $num_proxies ;
-        if ( 'ARRAY' eq ref( $mysync->{ remote } ) ) {
-                $num_proxies = scalar( @{ $mysync->{ remote } } ) ;
-        }else{
-                $num_proxies = 0 ;
-        }
-        
-	my $string = join( q{},
-		$mysync->{ host1 }     || q{},
-		$mysync->{ user1 }     || q{},
-		$mysync->{ password1 } || q{},
-		$mysync->{ host2 }     || q{},
-		$mysync->{ user2 }     || q{},
-		$mysync->{ password2 } || q{},
-	) ;
-	
-        my $index = index_from_string_mod( $string, $num_proxies ) ;
-        #my $remote = $mysync->{ remote }->[ $index ] || undef ;
-        return( $index ) ;
-        
-}
-
-sub tests_remote_remove_index {
-        note( 'Entering tests_remote_remove_index()' ) ;
-        my $mysync = {} ;
-        is_deeply( [ ], [ remote_remove_index( $mysync, 0) ], 'remote_remove_index: [ ] 0 => [ ]' ) ;
-        is_deeply( [ ], $mysync->{ remote }, 'remote_remove_index: undef 0 => remote = [ ]' ) ;
-        
-        $mysync->{ remote } = [ ] ;
-        is_deeply( [ ], [ remote_remove_index( $mysync, 0) ], 'remote_remove_index: [ ] 0 => [ ]' ) ;
-        is_deeply( [ ], $mysync->{ remote }, 'remote_remove_index: [ ] 0 => remote = [ ]' ) ;
-        
-        $mysync->{ remote } = [ 'ABC' ] ;
-        is_deeply( [ 'ABC' ], [ remote_remove_index( $mysync, 0) ], 'remote_remove_index: [ ABC ] 0 => [ ABC ]' ) ;
-        is_deeply( [ ], $mysync->{ remote }, 'remote_remove_index: [ ABC ] 0 => remote = [ ]' ) ;
-
-        $mysync->{ remote } = [ 'ABC' ] ;
-        is_deeply( [ ], [ remote_remove_index( $mysync, 1) ], 'remote_remove_index: [ ABC ] 1 => [ ]' ) ;
-        is_deeply( [ 'ABC' ], $mysync->{ remote }, 'remote_remove_index: [ ABC ] 1 => remote = [ ABC ]' ) ;
-        
-        $mysync->{ remote } = [ 'ABC', 'DEF' ] ;
-        is_deeply( [ 'ABC' ], [ remote_remove_index( $mysync, 0) ], 'remote_remove_index: [ ABC DEF ] 0 => [ ABC ]' ) ;
-        is_deeply( [ 'DEF' ], $mysync->{ remote }, 'remote_remove_index: [ ABC DEF ] 0 => remote = [ DEF ]' ) ;
-
-        $mysync->{ remote } = [ 'ABC', 'DEF' ] ;
-        is_deeply( [ 'DEF' ], [ remote_remove_index( $mysync, 1) ], 'remote_remove_index: [ ABC DEF ] 0 => [ DEF ]' ) ;
-        is_deeply( [ 'ABC' ], $mysync->{ remote }, 'remote_remove_index: [ ABC DEF ] 0 => remote = [ ABC ]' ) ;
-        
-        note( 'Leaving  tests_remote_remove_index()' ) ;
-        return ;
-}
-
-sub remote_remove_index {
-        my $mysync = shift ;
-        my $index  = shift ;
-
-        splice @{ $mysync->{ remote } }, $index, 1 ;
-        return ;
-}
-
-
-sub tests_index_from_string_mod {
-        note( 'Entering tests_index_from_string_mod()' ) ;
-        is( 0, index_from_string_mod(  ),  'index_from_string_mod: no args => 0' ) ;
-        is( 0, index_from_string_mod( 'ABC' ),  'index_from_string_mod: ABC but no modulo (=> modulo 1) => 0' ) ;
-        is( 0, index_from_string_mod( 'DEF' ),  'index_from_string_mod: DEF but no modulo (=> modulo 1) => 0' ) ;
-        is( 0, index_from_string_mod( 'ABC', 1 ),  'index_from_string_mod: ABC modulo 1 => 0' ) ;
-        is( 0, index_from_string_mod( 'DEF', 1 ),  'index_from_string_mod: DEF modulo 1 => 0' ) ;
-        is( 0, index_from_string_mod( 'ABC', 2 ),  'index_from_string_mod: ABC modulo 2 => 0' ) ;
-        is( 1, index_from_string_mod( 'DEF', 2 ),  'index_from_string_mod: DEF modulo 2 => 1' ) ;
-
-        is( 2, index_from_string_mod( 'ABC', 3 ),  'index_from_string_mod: ABC modulo 3 => 2' ) ;
-        is( 0, index_from_string_mod( 'ABC', 4 ),  'index_from_string_mod: ABC modulo 4 => 0' ) ;
-        is( 2, index_from_string_mod( 'ABC', 5 ),  'index_from_string_mod: ABC modulo 5 => 2' ) ;
-        is( 2, index_from_string_mod( 'ABC', 6 ),  'index_from_string_mod: ABC modulo 6 => 2' ) ;
-        is( 3, index_from_string_mod( 'ABC', 7 ),  'index_from_string_mod: ABC modulo 7 => 3' ) ;
-        
-        my $str = q{} ;
-        foreach my $int ( 1 .. 31 ) { $str .= '_' . index_from_string_mod( 'ABC', $int ) ; }
-        is( '_0_0_2_0_2_2_3_4_2_2_4_8_1_10_2_12_9_2_1_12_17_4_16_20_7_14_2_24_13_2_21', 
-        $str, 'index_from_string_mod: ABC modulo 1 .. 31 => ' ) ;
-
-        $str = q{} ;
-        foreach my $int ( 1 .. 31 ) { $str .= '_' . index_from_string_mod( 'DEF', $int ) ; }
-        is( '_0_1_0_1_0_3_5_1_0_5_1_9_9_5_0_1_5_9_17_5_12_1_3_9_15_9_18_5_13_15_7', 
-        $str, 'index_from_string_mod: DEF modulo 1 .. 31 => ' ) ;
-
-        $str = q{} ;
-        foreach my $int ( 1 .. 31 ) { $str .= '' . index_from_string_mod( $str, 8 ) ; }
-        is( '3141012455013656157247430216425', $str, 'index_from_string_mod: 1 .. 31 modulo 8 => 3141012455013656157247430216425' ) ;
-        
-        note( 'Leaving  tests_index_from_string_mod()' ) ;
-	return ;
-}
-
-
-sub index_from_string_mod {
-        my $string = shift || q{} ;
-        my $modulo = shift || 1 ;
-        # from the $string, do a hash in hexa, keep the first 8 hexa "chars",
-        # convert this to a decimal in the range 0 2^32-1,
-        # and return the rest of division by $modulo
-        my $index = hex( substr( hmac_sha1_hex( $string ), 0, 8 ) ) % $modulo ;
-        #myprint( "[$index] from [$string] modulo [$modulo]\n" ) ;
-        
-        return( $index ) ;
-}
-
-
-
-sub tests_choose_remote {
-        note( 'Entering tests_choose_remote()' ) ;
-        
-        is( undef, choose_remote(  ),  'choose_remote: no args => undef' ) ;
-
-        my $mysync ;
-        is( undef, choose_remote( $mysync ),  'choose_remote: undef => undef' ) ;
-        
-        $mysync->{ remote } = [] ;
-        is( undef, choose_remote( $mysync ),  'choose_remote: [] => undef' ) ;
-        
-        $mysync->{ remote } = [ 'A' ] ;
-        is( 'A', choose_remote( $mysync ),  'choose_remote: [ "A" ] => "A"' ) ;
-
-        $mysync->{ remote } = [qw(A B C)] ;
-        is( 'B', choose_remote( $mysync ),  'choose_remote: [ A B C ] => B' ) ;
-
-        $mysync->{ remote } = [qw(C A B)] ;
-        is( 'A', choose_remote( $mysync ),  'choose_remote: [ C A B ] => A' ) ;
-
-        $mysync->{ remote } = [qw(B C A)] ;
-        is( 'C', choose_remote( $mysync ),  'choose_remote: [ B C A ] => C' ) ;
-
-        note( 'Leaving  tests_choose_remote()' ) ;
-	return ;
-}
-
-
-sub choose_remote {
-        # This intermediate function is there for allowing
-        # different way to choose a remote
-        my $mysync = shift ;
-        
-        # anyone at random 
-        # A preferable way could be to get a random index
-        # and inform of it (for an abort later)
-        # my $elected_index = randindex( @{ $mysync->{ remote } } ) ;
-        # 
-        #my $elected = randelem( @{ $mysync->{ remote } } ) ;
-        
-        # same credentials => same remote (if all proxies are presented in same number and order)
-        # The aim is to be able to send an abort request later to the same remote
-        my $elected = remote_from_credentials( $mysync ) ;
-        
-        return( $elected ) ;
-
-}
-
-
-sub tests_remove_remote {
-        note( 'Entering tests_remove_remote()' ) ;
-        
-        is( undef, remove_remote(  ),  'remove_remote: no args => undef' ) ;
-
-        my $mysync ;
-        is( undef, remove_remote( $mysync ),  'remove_remote: undef => undef' ) ;
-        
-        $mysync->{ remote } = [] ;
-        is( undef, remove_remote( $mysync ),  'remove_remote: [] => undef' ) ;
-        is_deeply( [ ], $mysync->{ remote }, 'remove_remote: [] => remote = []' ) ;
-        
-        $mysync->{ remote } = [ 'A' ] ;
-        is( 'A', remove_remote( $mysync ),  'remove_remote: [ A ] => A' ) ;
-        is_deeply( [ ], $mysync->{ remote }, 'remove_remote: [ A ] => remote = [ ]' ) ;
-
-        $mysync->{ remote } = [qw(A B C)] ;
-        is( 'B', remove_remote( $mysync ),  'remove_remote: [ A B C ] => B' ) ;
-        is_deeply( [ qw(A C) ], $mysync->{ remote }, 'remove_remote: [ A B C ] => remote = [ A C ]' ) ;
-
-        $mysync->{ remote } = [qw(C A B)] ;
-        is( 'A', remove_remote( $mysync ),  'remove_remote: [ C A B ] => A' ) ;
-        is_deeply( [ qw(C B) ], $mysync->{ remote }, 'remove_remote: [ C A B ] => remote = [ C B ]' ) ;
-
-        $mysync->{ remote } = [qw(B C A)] ;
-        is( 'C', remove_remote( $mysync ),  'remove_remote: [ B C A ] => C' ) ;
-        is_deeply( [ qw(B A) ], $mysync->{ remote }, 'remove_remote: [B C A ] => remote = [ B A ]' ) ;
-        
-        note( 'Leaving  tests_remove_remote()' ) ;
-	return ;
-}
-
-
-
-sub remove_remote {
-        my $mysync = shift ;
-        
-        my $index = remote_index_from_credentials( $mysync ) ;
-        my ( $removed ) = remote_remove_index( $mysync, $index ) ;
-        return $removed ;
-}
-
-sub tests_randelem {
-        note( 'Entering tests_randelem()' ) ;
-        is( undef, randelem(  ),  'randelem: no args => undef' ) ;
-        is( 1, randelem( 1 ),  'randelem: 1 => 1' ) ;
-        is( 0, randelem( 0 ),  'randelem: 0 => 0' ) ;
-        is( '', randelem( '' ),  'randelem: "" => ""' ) ;
-        is( 'A', randelem( 'A' ),  'randelem: "A" => "A"' ) ;
-        my $AorB = randelem( 'A', 'B' ) ;
-        ok( (('A' eq $AorB) or ('B' eq $AorB)), 'randelem: "A" "B" => "A" or "B"' ) ;
-        
-        note( 'Leaving  tests_randelem()' ) ;
-	return ;
-}
-
-sub randelem {
-        return( $ARG[ rand( @ARG ) ] ) ;
-}
-
-# from imapsync
-
-sub myprint  { return print  @ARG ; }
-sub myprintf { return printf @ARG ; }
-sub mysprintf {
-        my( $format, @list ) = @ARG ;
-        return sprintf $format, @list ;
-}
-
-sub firstline {
-        # extract the first line of a file (without \n)
-
-        my( $file ) = @_ ;
-        my $line  = q{} ;
-
-	if ( ! -e $file ) {
-                myprint( "Cannot open file $file since it does not exist\n" ) ;
-                return ;
-	}
-
-        open my $FILE, '<', $file or do {
-                myprint( "Error opening file $file : $OS_ERROR\n" ) ;
-                return ;
-        } ;
-        $line = <$FILE> || q{} ;
-        close $FILE ;
-        chomp $line ;
-        return $line ;
-}
-
-
-sub memory_consumption {
-        # memory consumed by imapsync until now in bytes
-        return( ( memory_consumption_of_pids(  ) )[0] );
-}
-
-sub debugmemory {
-        my $mysync = shift ;
-        if ( ! $mysync->{debugmemory} ) { return q{} ; }
-        
-        my $precision = shift ;
-        return( mysprintf( "Memory consumption$precision: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ) ;
-}
-
-sub memory_consumption_of_pids {
-
-        my @pid = @_;
-        @pid = ( @pid ) ? @pid : ( $PROCESS_ID ) ;
-
-        my @val ;
-        if ( 'MSWin32' eq $OSNAME ) {
-                # MSWin32 later...
-                # @val = memory_consumption_of_pids_win32( @pid ) ;
-        }else{
-                # Unix
-                local $ENV{PATH} = '/bin';
-                # Use IPC::Open3 from perlcrit -3
-                my @ps = backtick( "ps -o vsz -p @pid" ) ;
-                shift @ps; # First line is column name "VSZ"
-                chomp @ps;
-                # convert to octets
-                @val = map { $_ * $KIBI } @ps ;
-        }
-        return( @val ) ;
-}
-
-sub backtick {
-        my $command = shift ;
-
-	if ( ! $command ) { return ; }
-
-        my ( $writer, $reader, $err ) ;
-        my @output ;
-        my $pid ;
-	my $eval = eval {
-		$pid = IPC::Open3::open3( $writer, $reader, $err, $command ) ;
-	} ;
-        if ( $EVAL_ERROR  ) {
-                myprint( $EVAL_ERROR ) ;
-                return ; 
-        }
-        if ( ! $eval  ) { return ; }
-	if ( ! $pid  )  { return ; }
-	waitpid( $pid, 0 ) ;
-        @output = <$reader>;  # Output here
-	#
-        #my @errors = <$err>;    #Errors here, instead of the console
-	if ( not @output ) { return ; }
-        #myprint( @output  ) ;
-
-	if ( $output[0] =~ /\Qopen3: exec of $command failed\E/mxs ) { return ; }
-	if ( wantarray ) {
-		return( @output ) ;
-	} else {
-		return( join( q{}, @output) ) ;
-	}
-}
-
-
-sub cgibegin {
-	if ( ! under_cgi_context(  ) ) { return ; }
-	my $mysync = shift ;
-	require CGI ;
-	CGI->import( qw( -no_debug ) ) ;
-	require CGI::Carp ;
-	CGI::Carp->import( qw( fatalsToBrowser ) ) ;
-	$mysync->{cgi} = CGI->new( ) ;
-	return ;
-}
-
-
-sub myGetOptions {
-
-        # Started as a copy of Luke Ross Getopt::Long::CGI
-        # https://metacpan.org/release/Getopt-Long-CGI
-        # So this sub function is under the same license as Getopt-Long-CGI Luke Ross wants it,
-        # which was Perl 5.6 or later licenses at the date of the copy.
-
-        my $mysync         = shift @ARG ;
-        my $arguments_ref  = shift @ARG ;
-        my %options        = @ARG ;
-        
-        if ( not under_cgi_context( $mysync ) ) {
-                # Not CGI - pass upstream for normal command line handling
-                return Getopt::Long::GetOptionsFromArray( $arguments_ref, %options ) ;
-        }
-        
-        my $mycgi             = $mysync->{cgi}  ;
-
-        # We must be in CGI context now
-        if ( !defined( $mycgi ) ) { return ; }
-
-        my $badthings = 0 ;
-        foreach my $key ( sort keys %options ) {
-                my $val = $options{$key} ;
-
-                if ( $key !~ m/^([\w\d\|]+)([=:][isf])?([\+!\@\%])?$/mxs ) {
-                        $badthings++ ;
-                        next ;    # Unknown item
-                }
-
-                my $name = [ split '|', $1, 1 ]->[0] ;
-
-                if ( ( $3 || q{} ) eq '+' ) {
-                        ${$val} = $mycgi->param( $name ) ;    # "Incremental" integer
-                }
-                elsif ( $2 ) {
-                        my @values = $mycgi->multi_param( $name ) ;
-                        my $type   = $2 ;
-
-                        #myprint( "type[$type]values[@values]\$3[", $3 || q{}, "]val[$val]ref(val)[", ref($val), "]\n" ) ;
-                        if ( ( $3 || q{} ) eq '%' or ref( $val ) eq 'HASH' ) {
-                                my %values = map { split /=/mxs, $_ } @values ;
-
-                                if ( $type =~ m/i$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = int $values{$k} ;
-                                        }
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = 0 + $values{$k};
-                                        }
-                                }
-                                if ( 'REF' eq ref $val ) {
-                                        %{ ${$val} } = %values ;
-                                }
-                                else {
-                                        %{$val} = %values ;
-                                }
-                        }
-                        else {
-                                if ( $type =~ m/i$/mxs ) {
-                                        @values = map { q{} ne $_ ? int $_ : undef } @values ;
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        @values = map { 0 + $_ } @values ;
-                                }
-                                if ( ( $3 || q{} ) eq '@' ) {
-                                        @{ ${$val} } = @values ;
-                                }
-                                elsif ( ref( $val ) eq 'ARRAY' ) {
-                                        @{$val} = @values ;
-                                }
-                                else {
-                                        ${$val} = $values[0] ;
-                                }
-                        }
-                }
-                else {
-                        # Checkbox
-                        # Considers only --name
-                        # Should consider also --no-name and --noname
-                        ${$val} = $mycgi->param( $name ) ? 1 : undef ;
-                }
-        }
-        if ( $badthings ) {
-                return ;
-        }
-        else {
-                return ( 1 ) ;
-        }
-}
-
-
-sub tests_get_options_cgi  {
-	note( 'Entering tests_get_options_cgi()' ) ;
-
-# Temporary, have to think harder about testing CGI context in command line --tests
-	# API:
-	# * input arguments: two ways, command line or CGI
-	#    * the program arguments
-	#    * QUERY_STRING env variable
-	# * return
-	#   * QUERY_STRING length
-
-	# CGI context
-	local $ENV{SERVER_SOFTWARE} = 'Votre serviteur' ;
-
-	# Real full test
-	# = 'host1=test1.lamiral.info&user1=test1&password1=secret1&host2=test2.lamiral.info&user2=test2&password2=secret2&debugenv=on'
-	my $mysync ;
-	is( undef, get_options_cgi( $mysync ), 'get_options_cgi: no CGI module => undef' ) ;
-
-	require CGI ;
-	CGI->import( qw( -no_debug ) ) ;
-
-	is( undef, get_options_cgi( $mysync ), 'get_options_cgi: no CGI param => undef' ) ;
-	# Testing boolean
-	$mysync->{cgi} = CGI->new( 'version=on&debugenv=on' ) ;
-	local $ENV{'QUERY_STRING'} = 'version=on&debugenv=on' ;
-	is( 22,   get_options_cgi( $mysync ), 'get_options_cgi: QUERY_STRING => 22' ) ;
-	is(  1,   $mysync->{ version },        'get_options_cgi: --version => 1' ) ;
-	# debugenv is not allowed in cgi context
-	is(  undef,   $mysync->{debugenv},        'get_options_cgi: $mysync->{debugenv} => undef' ) ;
-
-	# QUERY_STRING in this test is only for return value of get_options_cgi
-	# Have to think harder, GET/POST context, is this return value a good thing?
-	local $ENV{'QUERY_STRING'} = 'host1=test1.lamiral.info&user1=test1' ;
-	$mysync->{cgi} = CGI->new( 'host1=test1.lamiral.info&user1=test1' ) ;
-	is( 36,      get_options_cgi( $mysync,  ), 'get_options_cgi: QUERY_STRING => 36' ) ;
-	is( 'test1',  $mysync->{user1},    'get_options_cgi: $mysync->{user1} => test1' ) ;
-        #local $ENV{'QUERY_STRING'} = undef ;
-        
-
-	# Testing s@ as ref
-	$mysync->{cgi} = CGI->new( 'folder=fd1' ) ;
-	get_options_cgi( $mysync ) ;
-	is_deeply( [ 'fd1' ],  $mysync->{folder},    'get_options_cgi: $mysync->{folder} => fd1' ) ;
-	$mysync->{cgi} = CGI->new( 'folder=fd1&folder=fd2' ) ;
-	get_options_cgi( $mysync ) ;
-	is_deeply( [ 'fd1', 'fd2' ], $mysync->{folder},    'get_options_cgi: $mysync->{folder} => fd1, fd2' ) ;
-
-
-	# Testing boolean ! with --noxxx, does not work
-	$mysync->{cgi} = CGI->new( 'nodry=on' ) ;
-        get_options_cgi( $mysync ) ;
-	is( undef,  $mysync->{dry},    'get_options_cgi: --nodry => $mysync->{dry} => undef' ) ;
-
-	$mysync->{cgi} = CGI->new( 'host1=example.com' ) ;
-        get_options_cgi( $mysync ) ;
-	is( 'example.com',  $mysync->{host1},    'get_options_cgi: --host1=example.com => $mysync->{host1} => example.com' ) ;
-        
-        
-	$mysync->{cgi} = CGI->new( 'simulong=' ) ;
-        get_options_cgi( $mysync ) ;
-	is( undef,  $mysync->{simulong},    'get_options_cgi: --simulong= => $mysync->{simulong} => undef' ) ;
-        
-	$mysync->{cgi} = CGI->new( 'simulong' ) ;
-        get_options_cgi( $mysync ) ;
-	is( undef,  $mysync->{simulong},    'get_options_cgi: --simulong => $mysync->{simulong} => undef' ) ;
-        
-	$mysync->{cgi} = CGI->new( 'simulong=4' ) ;
-        get_options_cgi( $mysync ) ;
-	is( 4,  $mysync->{simulong},    'get_options_cgi: --simulong=4 => $mysync->{simulong} => 4' ) ;
-
-	note( 'Leaving  tests_get_options_cgi()' ) ;
-	return ;
-}
-
-
-sub get_options_cgi {
-        # In CGI context arguments are not in @ARGV but in QUERY_STRING variable (with GET).
-	my $mysync = shift @ARG ;
-        my $mycgi ;
-        if ( under_cgi_context(  ) ) {
-                $mycgi = $mysync->{cgi}  ;
-        }
-	my @arguments = @ARG ;
-	# final 0 is used to print usage when no option is given
-        my $numopt = length $ENV{'QUERY_STRING'} || 1 ;
-        my $opt_ret = myGetOptions(
-	$mysync,
-	\@arguments,
-	'abort!'           => \$mysync->{abort},
-        'host1=s'          => \$mysync->{host1},
-        'host2=s'          => \$mysync->{host2},
-        'user1=s'          => \$mysync->{user1},
-        'user2=s'          => \$mysync->{user2},
-        'password1=s'      => \$mysync->{password1},
-        'password2=s'      => \$mysync->{password2},
-        'dry!'             => \$mysync->{dry},
-        'version'          => \$mysync->{version},
-        'ssl1!'            => \$mysync->{ssl1},
-        'ssl2!'            => \$mysync->{ssl2},
-        'tls1!'            => \$mysync->{tls1},
-        'tls2!'            => \$mysync->{tls2},
-        'justlogin!'       => \$mysync->{justlogin},
-        'justconnect!'     => \$mysync->{justconnect},
-        'addheader!'       => \$mysync->{addheader},
-        'automap!'         => \$mysync->{automap},
-        'justautomap!'     => \$mysync->{justautomap},
-	'gmail1'           => \$mysync->{gmail1},
-	'gmail2'           => \$mysync->{gmail2},
-	'office1'          => \$mysync->{office1},
-	'office2'          => \$mysync->{office2},
-	'exchange1'        => \$mysync->{exchange1},
-	'exchange2'        => \$mysync->{exchange2},
-	'domino1'          => \$mysync->{domino1},
-	'domino2'          => \$mysync->{domino2},
-        'f1f2=s@'          => \$mysync->{f1f2},
-        'folder=s@'        => \$mysync->{folder},
-        'testslive!'       => \$mysync->{testslive},
-        'testslive6!'      => \$mysync->{testslive6},
-        'releasecheck!'    => \$mysync->{releasecheck},
-        'simulong=i'       => \$mysync->{simulong},
-        'remote=s@'         => \$mysync->{remote},
-	'debugmemory!'     => \$mysync->{debugmemory},
-	'debug!'           => \$mysync->{debug},
-	'tests'            => \$mysync->{tests},
-	'testsunit=s@'     => \$mysync->{testsunit},
-        ) ;
-
-        $mysync->{debug} and output( $mysync, "get options: [$opt_ret][$numopt]\n"  ) ;
-        my $numopt_after = scalar @arguments ;
-        
-        if ( $numopt_after ) {
-                myprint( "Extra arguments found: @arguments\n", "It usually means a quoting issue in the command line\n" ) ;
-                return ;
-        }
-
-	if ( ! $opt_ret ) {
-		return ;
-	}
-	return $numopt ;
-}
-
-sub tests_get_options {
-	note( 'Entering tests_get_options()' ) ;
-
-	# API:
-	# * input arguments: two ways, command line or CGI
-	#    * the program arguments
-	#    * QUERY_STRING env variable
-	# * return
-	#   * undef if bad things happened like
-	#     * options not known
-	#   * number of arguments or QUERY_STRING length
-	my $mysync3 = {  } ;
-	is( undef, get_options( $mysync3, qw( --noexist ) ),                   'get_options: --noexist  => undef' ) ;
-        is( undef, $mysync3->{ noexist },  'get_options: --noexist  => undef' ) ;
-	is( undef, get_options( $mysync3, qw( --lalala --noexist --version ) ), 'get_options: --lalala --noexist --version  => undef' ) ;
-        is( 1,     $mysync3->{ version }, 'get_options: --version => 1' ) ;
-        is( undef, $mysync3->{ noexist },  'get_options: --noexist  => undef' ) ;
-        $mysync3 = {  } ;
-	get_options( $mysync3, qw( --host1 HOST_01)  ) ;
-        is( 'HOST_01',  $mysync3->{ host1 }, 'get_options: --host1 HOST_01 => HOST_01' ) ;
-        is( undef,     $mysync3->{ version }, 'get_options: --version => 1' ) ;
-	get_options( $mysync3, "--version" ) ;
-        is( 1,     $mysync3->{ version }, 'get_options: --version => 1' ) ;
-	is( undef, get_options( $mysync3, qw( --help --noexist --version ) ), 'get_options: --help --noexist --version  => undef' ) ;
-	is( undef, get_options( $mysync3, qw( extra ) ), 'get_options: extra => undef' ) ;
-	is( undef, get_options( $mysync3, qw( --help extra1 --version extra2 ) ), 'get_options: --help extra1 --version extra2 => undef' ) ;
-        #myprint( Data::Dumper->Dump( [ $mysync3 ] )  ) ;
-	note( 'Leaving  tests_get_options()' ) ;
-	return ;
-}
-
-
-sub get_options  {
-	my $mysync = shift @ARG ;
-	my @arguments = @ARG ;
-
-	my $ret = get_options_cgi( $mysync, @arguments )  ;
-        foreach my $key ( sort keys %{ $mysync } ) {
-                if ( ! defined $mysync->{$key} ) {
-                        delete $mysync->{$key} ;
-                        next ;
-                }
-                if ( 'ARRAY' eq ref( $mysync->{$key} ) 
-                     and 0 == scalar( @{ $mysync->{$key} } ) ) {
-                        delete $mysync->{$key} ;
-                }
-        }
-	return $ret ;
-}
-
-
-sub output {
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } .= join( q{}, @output ) ;
-	return $mysync->{ output } ;
-}
-
-sub output_start {
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } = join( q{}, @output ) . ( $mysync->{ output } || q{} ) ;
-	return $mysync->{ output } ;
-}
-
-
-sub output_reset_with {
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } = join( q{}, @output ) ;
-	return $mysync->{ output } ;
-}
-
-
-
-
-sub under_cgi_context {
-
-	# Under cgi context
-	if ( $ENV{SERVER_SOFTWARE} ) {
-		return 1 ;
-	}
-	# Not in cgi context
-	return ;
-}
-
-sub loadavg {
-	if ( 'linux' eq $OSNAME ) {
-		return ( loadavg_linux( @ARG ) ) ;
-	}
-	return( 'unknown' ) ;
-
-}
-
-sub loadavg_linux {
-	my $line = shift ;
-
-	if ( ! $line ) {
-                $line = firstline( '/proc/loadavg'  ) or return ;
-	}
-
-	my ( $avg_1_min, $avg_5_min, $avg_15_min, $current_runs ) = split /\s/mxs, $line ;
-	if ( all_defined( $avg_1_min, $avg_5_min, $avg_15_min ) ) {
-		#myprint( "System load: $avg_1_min $avg_5_min $avg_15_min $current_runs\n" ) ;
-		return ( $avg_1_min, $avg_5_min, $avg_15_min, $current_runs ) ;
-	}
-	return ;
-}
-
-sub all_defined {
-        if ( not @ARG ) {
-                return 0 ;
-        }
-        foreach my $elem ( @ARG ) {
-                if ( not defined $elem ) {
-                        return 0 ;
-                }
-        }
-        return 1 ;
-}
-
-
-sub load_and_delay {
-	# Basically return 0 if load is not heavy, ie <= 1 per processor
-
-	if ( 4 > scalar @ARG ) { return ; }
-
-	my ( $cpu_num, $avg_1_min, $avg_5_min, $avg_15_min ) = @ARG ;
-
-	if ( 0 == $cpu_num ) { return ; }
-
-	# Let divide by number of cores
-	( $avg_1_min, $avg_5_min, $avg_15_min ) = map { $_ / $cpu_num } ( $avg_1_min, $avg_5_min, $avg_15_min ) ;
-	# One of avg ok => ok, for now it is a OR
-	if ( $avg_1_min <= 1 ) { return 0 ; }
-	if ( $avg_5_min <= 1 ) { return 1 ; } # Retry in 1 minute
-	if ( $avg_15_min <= 1 ) { return 5 ; } # Retry in 5 minutes
-	return 15 ; # Retry in 15 minutes
-}
-
-sub ram_memory_info {
-        # In GigaBytes so division by 1024 * 1024 * 1024
-	# 
-	return(
-		sprintf( "%.1f/%.1f free GiB of RAM", 
-                Sys::MemInfo::get("freemem") / ( $KIBI ** 3 ),
-                Sys::MemInfo::get("totalmem") / ( $KIBI ** 3 ),
-                )
-	) ;
-}
-
-sub cpu_number {
-
-        my $cpu_number_forced = shift ;
-	# Well, here 1 is better than 0 or undef
-	my $cpu_number = 1 ; # Default value, erased if better found
-
-        my @cpuinfo ;
-	if ( $ENV{"NUMBER_OF_PROCESSORS"} ) {
-		# might be under a Windows system
-		$cpu_number = $ENV{"NUMBER_OF_PROCESSORS"} ;
-		#$debug and myprint( "Number of processors found by env var NUMBER_OF_PROCESSORS: $cpu_number\n" ) ;
-	}elsif ( 'darwin' eq $OSNAME ) {
-		$cpu_number = backtick( "sysctl -n hw.ncpu" ) ;
-		chomp( $cpu_number ) ;
-                #$debug and myprint( "Number of processors found by cmd 'sysctl -n hw.ncpu': $cpu_number\n" ) ;
-	}elsif ( ! -e '/proc/cpuinfo' ) {
-		#$debug and myprint( "Number of processors not found so I might assume there is only 1\n" ) ;
-		$cpu_number = 1 ;
-	}elsif( @cpuinfo = file_to_array( '/proc/cpuinfo' ) ) {
-                $cpu_number = grep { /^processor/mxs } @cpuinfo ;
-                #$debug and myprint( "Number of processors found via /proc/cpuinfo: $cpu_number\n" ) ;
-	}
-	
-        if ( defined $cpu_number_forced ) {
-                $cpu_number = $cpu_number_forced ;
-        }
-	return( integer_or_1( $cpu_number ) ) ;
-}
-
-sub integer_or_1 {
-        my $number = shift ;
-        if ( is_an_integer( $number  ) ) { 
-                return $number ; 
-        }
-        # else
-        return 1 ;
-}
-
-
-sub is_an_integer {
-        my $number = shift ;
-        if ( ! defined $number ) { return ; }
-        return( $number =~ m{^\d+$}xo ) ;
-}
-
-sub file_to_array {
-
-        my( $file ) = shift ;
-        my @string ;
-
-        open my $FILE, '<', $file or do {
-		myprint( "Error reading file $file : $OS_ERROR" ) ;
-		return ;
-	} ;
-        @string = <$FILE> ;
-        close $FILE ;
-        return( @string ) ;
-}
-
-sub software_version  {
-        my $mysync = shift ;
-        my $rcs = $mysync->{rcs} ;
-        my $version ;
-
-        $version = version_from_rcs( $rcs ) ;
-        return( $version ) ;
-}
-
-
-sub version_from_rcs {
-
-        my $rcs = shift ;
-        if ( ! $rcs ) { return ; }
-        
-        my $version = 'UNKNOWN' ;
-
-        if ( $rcs =~ m{,v\s+(\d+\.\d+)}mxso ) {
-                $version = $1
-        }
-        
-        return( $version ) ;
-}
-
-
-
-sub testsexit {
-	my $mysync = shift ;
-        if ( ! ( $mysync->{ tests }  or $mysync->{ testsunit } ) ) {
-		return ;
-	}
-        my $test_builder = Test::More->builder ;
-        tests( $mysync ) ; 
-	testunitsession( $mysync ) ;
-
-	my @summary = $test_builder->summary() ;
-	my @details = $test_builder->details() ;
-	my $nb_tests_run = scalar( @summary ) ;
-	my $nb_tests_expected = $test_builder->expected_tests() ;
-	my $nb_tests_failed = count_0s( @summary ) ;
-	my $tests_failed = report_failures( @details ) ;
-	if ( $nb_tests_failed or ( $nb_tests_run != $nb_tests_expected ) ) {
-		#$test_builder->reset(  ) ;
-		myprint( "Summary of tests: failed $nb_tests_failed tests, run $nb_tests_run tests, expected to run $nb_tests_expected tests.\n",
-                "List of failed tests:\n", $tests_failed ) ;
-		exit $EXIT_TESTS_FAILED ;
-	}
-        exit ;
-}
-
-
-sub testunitsession {
-	my $mysync = shift ;
-	
-	if ( ! $mysync ) { return ; }
-	if ( ! $mysync->{ testsunit } ) { return ; }
-
-	my @functions = @{ $mysync->{ testsunit } } ;
-	
-	if ( ! @functions ) { return ; }
-
-	SKIP: {
-		if ( ! @functions ) { skip( 'No test in normal run' ) ; }
-		testsunit( @functions ) ;
-                done_testing(  ) ;
-	}
-	return ;
-}
-
-
-sub count_0s {
-	my @array = @ARG ;
-	
-	if ( ! @array ) { return 0 ; }
-	my $nb_zeros = 0 ;
-	map { $_ == 0 and $nb_zeros += 1 } @array ;
-	return $nb_zeros ;
-}
-
-
-sub report_failures {
-	my @details = @ARG ;
-	
-	if ( ! @details ) { return ; }
-	
-	my $counter = 1 ;
-	my $report  = q{} ;
-	foreach my $details ( @details ) {
-		if ( ! $details->{ 'ok' } ) {
-			my $name = $details->{ 'name' } || 'NONAME' ;
-			$report .= "nb $counter - $name\n" ;
-		}
-		$counter += 1 ;
-	}
-	return $report ;
-
-}
-
-
-sub testsunit {
-	my @functions = @ARG ;
-	
-	if ( ! @functions ) { #
-                myprint( "testsunit warning: no argument given\n" ) ;
-                return ; 
-        }
-			
-	foreach my $function ( @functions ) {
-		if ( ! $function ) {
-                        myprint( "testsunit warning: argument is empty\n" ) ;
-                        next ; 
-                }
-		if ( ! exists &$function ) {
-                        myprint( "testsunit warning: function $function does not exist\n" ) ;
-                        next ; 
-                }
-		if ( ! defined &$function ) {
-                        myprint( "testsunit warning: function $function is not defined\n" ) ;
-                        next ; 
-                }
-		my $function_ref = \&{ $function } ;
-		&$function_ref() ; 
-	}
-	return ;
-}
-
-sub tests_template {
-        note( 'Entering tests_template()' ) ;
-        is( undef, undef,  'template: undef is undef' ) ;
-        like(   'aBCd', qr/BC/, 'template: aBCd is like BC' ) ;
-        unlike( 'aCBd', qr/BC/, 'template: aCBd is not like BC' ) ;
-        is_deeply( {}, {}, 'template: a hash is a hash' ) ;
-        is_deeply( [], [], 'template: an array is an array' ) ;
-        note( 'Leaving  tests_template()' ) ;
-	return ;
-}
-
-
-
-sub tests {
-	my $mysync = shift ;
-	if ( ! $mysync->{ tests } ) { return ; }
-
-	SKIP: {
-                if ( ! $mysync->{ tests } ) {
-                        skip( 'No test in normal run' ) 
-                }
-		note( 'Entering tests()' ) ;
-		tests_get_options(  ) ;
-		tests_get_options_cgi(  ) ;
-                tests_randelem(  ) ;
-                tests_index_from_string_mod(  ) ;
-                tests_remote_from_credentials(  ) ;
-                tests_choose_remote(  ) ;
-                tests_remote_index_from_credentials(  ) ;
-                tests_remote_remove_index(  ) ;
-                tests_remove_remote(  ) ;
-                tests_can_and_have_to_sync(  ) ;
-		done_testing( 91 ) ;
-		note( 'Leaving  tests()' ) ;
-        }
-        return ;
-}
-
diff --git a/W/learn/quotes b/W/learn/quotes
deleted file mode 100755
index 742b9f8..0000000
--- a/W/learn/quotes
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use strict ;
-use warnings ;
-
-print "123456789\\" ."\n" ;
-print '123456789\\' ."\n" ;
-print "123456789\"" ."\n" ;
-print '123456789\'' ."\n" ;
-
-print "\\" ."\n" ;
-print q{\\} ."\n" ;
-
-print qq{ !"#$%&'()*+,-./0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefg\n} ;
-
-print "\1auth=Bearer " . "\1\1" . "\n" ;
-print '\1auth=Bearer ' . '\1\1' . "\n" ;
-
-if ( "\1foo" eq '\1foo' ) {
-	print "equal\n" ;
-}else{
-	print "not equal\n" ;
-}
-
diff --git a/W/learn/re_backslashb b/W/learn/re_backslashb
deleted file mode 100755
index 14165dc..0000000
--- a/W/learn/re_backslashb
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -w
-
-
-if ( not( grep /\b\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
-	print "Selectable\n" ;
-}else{
-	print "Not selectable\n" ;
-}
-
-
-if ( not( grep /\\Noselect\b/i, ('* LIST (\Noselect \HasChildren) "/" Archive') ) ) {
-	print "Selectable\n" ;
-}else{
-	print "Not selectable\n" ;
-}
diff --git a/W/learn/ref b/W/learn/ref
deleted file mode 100755
index 363d580..0000000
--- a/W/learn/ref
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl 
-
-
-use strict;
-use warnings;
-
-
-my $debug = 'val_debug' ;
-
-print "ref(\\\$debug)=" . ref(\$debug) . "\n" ;
-print "ref(\$debug)=" . ref($debug) . "\n" ;
-print "\n$debug=$debug\n" ;
diff --git a/W/learn/resolvme b/W/learn/resolvme
deleted file mode 100755
index aeb3d2f..0000000
--- a/W/learn/resolvme
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl 
-
-
-use strict ;
-use warnings ;
-use English ;
-
-use Socket qw( SOCK_STREAM AI_CANONNAME NI_NUMERICHOST NIx_NOSERV getaddrinfo getnameinfo );
-#use Socket::GetAddrInfo qw( getaddrinfo getnameinfo );
-use IO::Socket;
-
-
-check_name_and_service( @ARGV ) ;
-
-sub check_name_and_service {
-
-my ( $name, $service ) = @ARG ;
-
-my %hints = ( socktype => SOCK_STREAM, flags => AI_CANONNAME );
-my ( $err, @res ) = getaddrinfo(  $name, $service, \%hints );
- 
-print "Cannot resolve name - $err\n" if $err;
- 
-my $sock;
- 
-foreach my $ai ( @res ) {
-   my $candidate = IO::Socket->new();
-   $candidate->timeout( 2 ) ;
-   
-   print "family: ", $ai->{family}, 
-       "\nsocktype: ", $ai->{socktype}, 
-	   "\nprotocol: ", $ai->{protocol}, 
-	   "\ncanonname: ", $ai->{canonname},
-	   "\ntimeout: ", $candidate->timeout,
-	   "\n" ;
-   $candidate->socket( $ai->{family}, $ai->{socktype}, $ai->{protocol} )
-      or next ;
- 
-   $candidate->connect( $ai->{addr} ) or next ;
- 
-   $sock = $candidate;
-   
-   if( $sock ) {
-      my ( $err, $host, $service ) = getnameinfo( $sock->peername );
-      print "Connected to $host:$service\n" if !$err;
-	  my ($err, $ipaddr) = getnameinfo($ai->{addr}, NI_NUMERICHOST, NIx_NOSERV);
-	  print "ipaddr: $ipaddr\n";
-	  $sock->close ;
-	  #last ;
-   }
-}
- 
-}
diff --git a/W/learn/rpm/imapsync.spec b/W/learn/rpm/imapsync.spec
deleted file mode 100644
index b372827..0000000
--- a/W/learn/rpm/imapsync.spec
+++ /dev/null
@@ -1,133 +0,0 @@
-# The source cannot be distributed:
-%{!?nosrc: %define nosrc 1}
-# to include the source use:
-# rpm -bs --define 'nosrc 0'
-
-%{?!imapsyncver:   %define imapsyncver   1.434}
-
-Summary: Tool to migrate across IMAP servers
-Name: imapsync
-Version: %{imapsyncver}
-Release: 1%{?dist}
-License: WTFPL
-Group: Applications/Internet
-URL: http://www.linux-france.org/prj/imapsync/
-
-Source: http://www.linux-france.org/prj/imapsync/dist/imapsync-%{version}.tgz
-# The source cannot be distributed:
-%if %{nosrc}
-NoSource: 0
-%endif
-
-BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root
-
-BuildArch: noarch
-BuildRequires: make
-BuildRequires: perl(Mail::IMAPClient) >= 3.19
-BuildRequires: perl(Test::More)
-Requires: perl(Date::Manip)
-Requires: perl(Digest::MD5)
-Requires: perl(IO::Socket::SSL)
-Requires: perl(Mail::IMAPClient) >= 3.19
-Requires: perl(Term::ReadKey)
-Requires: perl(Digest::HMAC_MD5)
-#Requires: perl(Digest::MD5::M4p)
-#Requires: perl(Net::SSLeay)
-
-# http://fedoraproject.org/wiki/Packaging:AutoProvidesAndRequiresFiltering
-%{?filter_setup:
-%filter_from_requires /^perl(--prefix2)/d
-%filter_setup
-}
-%{!?filter_setup:
-# filter_setup undefined
-%define __perl_requires %{_builddir}/%{buildsubdir}/filter-requires-imapsync.sh
-}
-
-%description
-imapsync is a tool for facilitating incremental recursive IMAP
-transfers from one mailbox to another. It is useful for mailbox
-migration, and reduces the amount of data transferred by only copying
-messages that are not present on both servers. Read, unread, and
-deleted flags are preserved, and the process can be stopped and
-resumed. The original messages can optionally be deleted after a
-successful transfer.
-
-%prep
-%setup -q
-
-%{!?filter_setup:
-%{__cat} <<'EOF' >filter-requires-imapsync.sh
-#!/bin/sh
-/usr/lib/rpm/perl.req $* | sed -e '/perl(--prefix2)/d'
-EOF
-%{__chmod} a+x filter-requires-imapsync.sh
-}
-
-%build
-
-%install
-%{__rm} -rf %{buildroot}
-%{__make} install DESTDIR="%{buildroot}"
-
-%files
-%defattr(-, root, root, 0755)
-%doc ChangeLog COPYING CREDITS FAQ INSTALL README TODO
-%doc %{_mandir}/man1/imapsync.1*
-%{_bindir}/imapsync
-
-%clean
-%{__rm} -rf %{buildroot}
-
-%changelog
-* Fri Mar 25 2011 Marcin Dulak <Marcin.Dulak@gmail.com> - 1.440-1
-- Updated to release 1.440.
-- introduced nosrc variable: source must not be distributed
-- license is WTFPL: see ChangeLog
-- use filter-requires-imapsync.sh when filter_setup undefined
-- removed Authority: dag
-
-* Tue Sep 07 2010 Dag Wieers <dag@wieers.com> - 1.350-1
-- Updated to release 1.350.
-
-* Wed Jan 13 2010 Steve Huff <shuff@vecna.org> - 1.293-1
-- Updated to version 1.293.
-
-* Sun Dec 20 2009 Steve Huff <shuff@vecna.org> - 1.286-2
-- Added missing Perl dependencies (reported by John Thomas).
-
-* Thu Sep 10 2009 Dag Wieers <dag@wieers.com> - 1.286-1
-- Updated to release 1.286.
-
-* Thu Jul 09 2009 Christoph Maser <cmr@financial.com> - 1.285-1
-- Updated to release 1.285.
-
-* Mon Jun 30 2008 Dag Wieers <dag@wieers.com> - 1.255-1
-- Updated to release 1.255.
-
-* Fri May 09 2008 Dag Wieers <dag@wieers.com> - 1.252-1
-- Updated to release 1.252.
-
-* Sun Apr 27 2008 Dag Wieers <dag@wieers.com> - 1.250-1
-- Updated to release 1.250.
-
-* Wed Mar 26 2008 Dag Wieers <dag@wieers.com> - 1.249-1
-- Updated to release 1.249.
-
-* Mon Feb 11 2008 Dag Wieers <dag@wieers.com> - 1.241-1
-- Updated to release 1.241.
-
-* Thu Nov 22 2007 Dag Wieers <dag@wieers.com> - 1.233-1
-- Updated to release 1.233.
-
-* Thu Sep 13 2007 Dag Wieers <dag@wieers.com> - 1.223-1
-- Updated to release 1.223.
-
-* Thu Aug 16 2007 Fabian Arrotin <fabian.arrotin@arrfab.net> - 1.219-1
-- Update to 1.219.
-- Cosmetic changes for Requires: specific to RHEL/CentOS.
-
-* Mon Mar 19 2007 Neil Brown <neilb@inf.ed.ac.uk>
-- Packaged up source tarball into the RPM. Had to add a fix
-  to stop the perl_requires script wrongly matching on "use --prefix"
-  in the docs as a genuine perl "use module;"
diff --git a/W/learn/separator b/W/learn/separator
deleted file mode 100755
index 0c07dc4..0000000
--- a/W/learn/separator
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl -w
-
-my $f_sep = $ARGV[0] || "/";
-my $t_sep = $ARGV[1] || ".";
-my $o_sep = "\000";
-
-foreach my $f_fold ("testsub/testsub3", "testsub.testsub3", "a.b/c.d/e" ) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	$t_fold = $f_fold;
-	my $t_fold2 = $t_fold3 = $f_fold;
-	
-	$t_fold  =~ s¤\Q$f_sep¤$t_sep¤g;
-	$t_fold2 =~ s¤\Q$t_sep¤$f_sep¤g;
-	$t_fold3 =~ s¤\Q$t_sep¤$o_sep¤g;
-	$t_fold4 =  $t_fold3;
-	$t_fold4 =~ s¤\Q$f_sep¤$t_sep¤g;
-	$t_fold5 =  $t_fold4;
-	$t_fold5 =~ s¤\Q$o_sep¤$f_sep¤g;
-	
-	#$t_fold =~ s¤/¤.¤g;
-	print "To $f_sep$t_sep /.  Folder [$t_fold]\n";
-	print "To $t_sep$f_sep ./  Folder2[$t_fold2]\n";
-	print "To $t_sep"."0 .0  Folder3[$t_fold3]\n";
-	print "To $f_sep$t_sep of .0  Folder4[$t_fold4]\n";
-	print "To 0$f_sep 0/  Folder5[$t_fold5]\n\n";
-}
diff --git a/W/learn/splice_fetch b/W/learn/splice_fetch
deleted file mode 100644
index 93a0cb2..0000000
--- a/W/learn/splice_fetch
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/usr/bin/perl -w
-
-
-
-$rt_big = [1..1000];
-
-
-while (@t_small = splice(@$rt_big, 0, 33)) {
-	$rt_small = \@t_small;
-	print "@{$rt_small}", "\n";
-
-}
diff --git a/W/learn/subscribe b/W/learn/subscribe
deleted file mode 100755
index dd4c64f..0000000
--- a/W/learn/subscribe
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl -w
-
-use Mail::IMAPClient;
-
-$ARGV[1] or die "usage: $0 user password\n";
-
-$host = "localhost";
-$user = $ARGV[0];
-$password = $ARGV[1];
-
-my $imap = Mail::IMAPClient->new();
-#$imap->Debug(1);
-$imap->Server($host);
-$imap->connect() or die;
-$imap->User($user);
-$imap->Password($password);
-$imap->login() or die;
-$imap->subscribe("shared.Spam") or die;
-print	"$user subscribed to\n", 
-	join("\n", $imap->subscribed()), 
-	"\n";
-$imap->close();
-
-
diff --git a/W/learn/tee_log b/W/learn/tee_log
deleted file mode 100755
index fec233a..0000000
--- a/W/learn/tee_log
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl 
-
-
-use warnings ;
-use strict ;
-
-use IO::Tee;
-my $log_filename = "log.txt";
-my $log_filehandle;
-open( $log_filehandle, '>>', $log_filename )
-  or die("Can't open $log_filename for append: $!");
-my $tee = IO::Tee->new( $log_filehandle, \*STDOUT );
-*STDERR = *$tee{IO};
-select $tee;
-
-print "print 01\n" ;
-warn "warn  02\n" ;
-print "print 03\n" ;
-warn "warn  04\n" ;
-warn "warn  05\n" ;
-print "print 06\n" ;
-print "print 07\n" ;
-warn "warn  08\n" ;
-
-exit ;
diff --git a/W/learn/tee_log.bat b/W/learn/tee_log.bat
deleted file mode 100644
index 300a471..0000000
--- a/W/learn/tee_log.bat
+++ /dev/null
@@ -1,15 +0,0 @@
-REM 
-REM scp tee_log tee_log.bat Admin@c:'C:/msys/1.0/home/Admin/imapsync/'
-
-perl -MCPAN -e "install IO::Tee"
-perl ./tee_log
-
-PAUSE
-
-pp -o tee_log.exe -M IO::Tee ./tee_log
-
-PAUSE
-
-./tee_log.exe
-
-
diff --git a/W/learn/tmp/+ZyhnUA- b/W/learn/tmp/+ZyhnUA-
deleted file mode 100644
index e69de29..0000000
diff --git a/W/learn/tmp/收件箱 b/W/learn/tmp/收件箱
deleted file mode 100644
index e69de29..0000000
diff --git a/W/learn/uppercase_header b/W/learn/uppercase_header
deleted file mode 100755
index 9a4ce2a..0000000
--- a/W/learn/uppercase_header
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl 
-
-
-@val = (
-"aBaBaBBaa: aBaBaB: aBaBaB",
-"    message-ad  :  ",
-"Message-Id blabla",
-"   aaaa : aaaaa BBBB",
-"   aaaa : aaa:aa BBBB",
-"",
-);
-
-
-foreach  $val (@val)  {
-	$val = $val;
-	print  "[$val]", "\n";
-	$val =~ s/^\s*(.+?):(.+)$/\U$1\E:$2/;
-	print "[$val]", "\n\n";
-}
diff --git a/W/learn/utf7_to_utf7imap b/W/learn/utf7_to_utf7imap
deleted file mode 100755
index 7b371a0..0000000
--- a/W/learn/utf7_to_utf7imap
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: utf7_to_utf7imap,v 1.1 2016/08/08 22:57:44 gilles Exp gilles $
-
-use strict ;
-use warnings ;
-
-foreach my $str_utf7 ( @ARGV ) {
-	my $str_utf7imap = utf7_to_utf7imap( $str_utf7 ) ;
-	print qq{mv '$str_utf7' '$str_utf7imap'\n} ;
-}
-
-# http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
-sub utf7_to_utf7imap {
-        my ( $s ) = @_ ;
-	
-	$s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/g ;
-	$s =~ s/&/&\-/g ;
-	$s =~ s/\+([^+\-]+)?\-/&$1\-/g ;
-        return( $s ) ;
-}
diff --git a/W/learn/xoauth2_gmail b/W/learn/xoauth2_gmail
deleted file mode 100755
index ee2f623..0000000
--- a/W/learn/xoauth2_gmail
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-use strict ;
-use warnings ;
-
-
-use LWP::Authen::OAuth2;
- 
-my $dbh ;
-my $token_string ;
-
-# Constructor
-my $oauth2 = LWP::Authen::OAuth2->new(
-                 client_id => "108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com",
-                 client_secret => "zAJO4PLxzeJ4yOaiJRk6f69k",
-                 service_provider => "Google",
-                 redirect_uri => "https://imapsync.lamiral.info/",
- 
-                 # Optional hook, but recommended.
-                 #save_tokens => \&save_tokens,
-                 #save_tokens_args => [ $dbh ],
- 
-                 # This is for when you have tokens from last time.
-                 token_string => $token_string,
-                 scope => 'https://mail.google.com/',
-                 login_hint => 'gilles.lamiral@gmail.com',
-             );
- 
-# URL for user to go to to start the process.
-my $url = $oauth2->authorization_url();
-
-print "url: $url\ntoken_string: $token_string\n" ;
\ No newline at end of file
diff --git a/W/learn_func.bat b/W/learn_func.bat
deleted file mode 100755
index d8d92dc..0000000
--- a/W/learn_func.bat
+++ /dev/null
@@ -1,39 +0,0 @@
-REM $Id: learn_func.bat,v 1.2 2016/06/28 11:39:42 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-
-ECHO Currently running through %0 %*
-
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occured during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-CALL :handle_error EXIT /B 1  
-CALL :handle_error EXIT /B 0 
-CALL :handle_error NOEXIST
-CALL :handle_error ECHO "STILL THERE? FIRST" 
-CALL :handle_error EXIT 0 
-CALL :handle_error ECHO "STILL THERE? SECOND" 
-@ENDLOCAL
-@EXIT /B
-
-
-
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure running %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-
diff --git a/W/lfo.htaccess b/W/lfo.htaccess
deleted file mode 100644
index 1309a1c..0000000
--- a/W/lfo.htaccess
+++ /dev/null
@@ -1,3 +0,0 @@
-
-Redirect Permanent /prj/imapsync/ http://imapsync.lamiral.info/
-
diff --git a/W/livredor.txt b/W/livredor.txt
deleted file mode 100644
index f2c4133..0000000
--- a/W/livredor.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-=== Christian Burger, 18 february 2013 ===
-The tool was extremely useful during my email migration 
-from one provider to the other and it worked like a charm. 
-It's just great!
diff --git a/W/lsm.imapsync b/W/lsm.imapsync
deleted file mode 100644
index 6cdf20c..0000000
--- a/W/lsm.imapsync
+++ /dev/null
@@ -1,17 +0,0 @@
-Begin4
-Title:          imapsync
-Version:        1.555
-Entered-date:   2013-07-30
-Description:    IMAP synchronization, backup, copy or migration tool.
-    Synchronizes mailboxes between two IMAP servers. Good at IMAP migration.
-    More than 52 different IMAP server softwares supported.
-Keywords:       email IMAP synchronization migration backup migration
-Author:         gilles@lamiral.info (Gilles LAMIRAL)
-Maintained-by:  gilles@lamiral.info (Gilles LAMIRAL)
-Primary-site:   http://imapsync.lamiral.info/
-Alternate-site: https://github.com/imapsync/
-Original-site:  http://imapsync.lamiral.info/
-Platforms:      Any UNIX with Perl or Windows
-Copying-policy: No limit to do anything with this work and this license.
-                50 EUR at http://imapsync.lamiral.info/ or gratis at github
-End
diff --git a/W/memo b/W/memo
deleted file mode 100644
index 1f7ea7f..0000000
--- a/W/memo
+++ /dev/null
@@ -1,724 +0,0 @@
-#!/bin/sh
-
-# $Id: memo,v 1.73 2019/09/05 13:32:57 gilles Exp gilles $
-
-if test -n "$1"; then 
-        echoq() { echo "$@" ; } # not quiet mode
-else
-        echoq() { : ; } # quiet mode: nop
-fi
-
-count_nice() {
-
-        #set -x
-        # count # prints 01 02 03 04 05 06 07 08 09 10
-        # count 2       # prints 2 3 4 5 6 7 8 9 10 11
-        # count 005     # prints 005 006 007 008 009 010 011 012 013 014
-        # count 5 23    # prints 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
-        # count 5 23 3  # prints 5 8 11 14 17 20 23
-
-        nb_from=${1:-"01"}
-        nb_from_ln=`expr length $nb_from`
-
-        nb_to=${2:-`expr $nb_from + 9`}
-        nb_incr=${3:-"1"}
-        nb_counter=$nb_from
-        while test $nb_counter -le $nb_to;do
-                nb_list="$nb_list $nb_counter"
-                nb_counter=`expr $nb_counter + $nb_incr`
-                nb_counter=`printf %0${nb_from_ln}d $nb_counter`
-        done
-        echo $nb_list
-        #set +x
-}
-
-
-software_version() {
-
-	VERSION=`cat VERSION`
-
-}
-
-statistics_lfo_frequency() {
-cat <<EOFF
-tail -f /usr/local/apache/logs/access_log|cat -n|grep prj/imapsync/VERSION|cat -n |grep VERSION # lfo frequency
-EOFF
-}
-
-statistics_lfo_run() {
-# 62.147.165.21 - - [31/Oct/2010:23:45:28 +0100] "GET /prj/imapsync/VERSION HTTP/1.0" 200 6 "-" "imapsync/1.368 (linux system, perl 5.8.8, Mail::IMAPClient 2.2.9 imapsync)"
-#grep    prj/imapsync/VERSION /usr/local/apache/logs/access_log  | sort -n | cut -d ' ' -f 1,12,13|uniq -c | sort -n # list ip
-
-echo lfo list ip
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n" # list ip
-echo lfo Win32
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n |grep MSWin32" # Win32
-echo lfo OS usage+basename
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|cut -d ' ' -f 13,18,19     |sort -n|uniq -c| sort -n" # OS usage+basename
-echo lfo imapsync release
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|cut -d ' ' -f 12           |sort -n|uniq -c| sort -n" # imapsync release
-echo -n "lfo count ip:      "
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n|wc -l" # count ip
-echo -n "lfo imapsync runs: "
-ssh glamiral@linux-france.org "grep -h prj/imapsync/VERSION /usr/local/apache/logs/access_log.bak|wc -l" # imapsync runs
-date
-}
-
-
-statistics_ks_frequency() {
-
-cat <<EOFF
-tail -F /var/log/apache2/access.log |cat -n|grep prj/imapsync/VERSION|cat -n |grep VERSION # ks frequency
-EOFF
-}
-
-statistics_ks_run() {
-
-echo ks list ip
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n" # list ip
-echo ks Win32
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n |grep MSWin32" # Win32
-echo OS usage+basename
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|cut -d ' ' -f 13,18,19     |sort -n|uniq -c| sort -n" # OS usage+basename
-echo ks imapsync release
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|cut -d ' ' -f 12           |sort -n|uniq -c| sort -n" # imapsync release
-echo -n "ks count ip:      "
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|cut -d ' ' -f 1,12,13,18,19|sort -n|uniq -c|sort -n|wc -l" # count ip
-echo -n "ks imapsync runs: "
-ssh root@ks "cd /var/log/apache2/;grep -h prj/imapsync/VERSION access.log_????????|wc -l" # imapsync runs
-date
-}
-
-
-statistics_VERSION_lfo() {
-
-TMPDIR=.
-export TMPDIR
-
-echo statistics_VERSION_getstats
-statistics_VERSION_getstats() {
-	for f in /home/lf/backuplog/linux-france.org.??-??-201[123456789].bz2; do 
-		b=`basename "$f" .bz2`
-		#echo "$b"
-		test -f ${b}.imapsync_VERSION && continue
-		echo NOT DONE ${b}.imapsync_VERSION
-		bzip2 -dc "$f" | grep -h /prj/imapsync/VERSION > ${b}.imapsync_VERSION
-	done
-}
-
-echo "statistics_VERSION_monthly_ip 02 2012 # long"
-statistics_VERSION_monthly_ip() {
-	statistics_VERSION_getstats
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	ls linux-france.org.??-${month}-${year}.imapsync_VERSION > /dev/null || return 1
-	cut -d ' ' -f 1,12,13,18,19 linux-france.org.??-${month}-${year}.imapsync_VERSION |sort -n |uniq -c|sort -n > stats_imapsync_${year}_${month}.ip
-}
-
-echo "verify_month_year 02 2015"
-verify_month_year() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	fmy="stats_imapsync_${year}_${month}.ip"
-	test -f "$fmy" || { echo "No $fmy" ; touch "$fmy" ; }
-	test -f "$fmy" || { echo "No $fmy" ; return 1 ; }
-	fmy_YYYYmm=`date -r "$fmy" +%Y%m`
-	diff_month=`expr $fmy_YYYYmm - ${year}${month}` || :
-	echo -n $diff_month
-	test "$diff_month" -ge 1 && echo " is enough" && return 0
-	echo " is not enough"
-	statistics_VERSION_monthly_ip $month $year
-	)
-}
-
-echo "verify_year 2015"
-verify_year() {
-	year=${1:-`date '+%Y'`}
-	now_yearmonth=`date '+%Y%m'`
-	for month in `count_nice 01 12`; do
-		test "$now_yearmonth" -ge "$year$month" && \
-		( verify_month_year $month $year ) && \
-                ( statistics_VERSION_monthly_runs $month $year )
-	done
-	statistics_VERSION_yearly_ip $year
-	statistics_VERSION_synthesis $year
-}
-
-
-echo "statistics_VERSION_monthly_ip_wc 02 2012 # short"
-statistics_VERSION_monthly_ip_wc() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	test -f stats_imapsync_${year}_${month}.ip || statistics_VERSION_monthly_ip $month  ${year}
-	wc -l stats_imapsync_${year}_${month}.ip
-}
-
-echo "statistics_VERSION_monthly_runs 02 2012 # short"
-statistics_VERSION_monthly_runs() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	test -f stats_imapsync_${year}_${month}.runs || wc -l linux-france.org.??-${month}-${year}.imapsync_VERSION > stats_imapsync_${year}_${month}.runs
-	cat stats_imapsync_${year}_${month}.runs
-}
-
-echo "statistics_VERSION_yearly_os 2012 # short"
-statistics_VERSION_yearly_os() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd /home/lf/glamiral/imapsync_stats
-	Linux=`grep -i linux     stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Win32=`grep -i MSWin32   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Darwin=`grep -i darwin   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	FreeBSD=`grep -i freebsd stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Solaris=`grep -i solaris stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	OpenBSD=`grep -i openbsd stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Other=`egrep -i -v 'linux|MSWin32|darwin|freebsd|solaris|openbsd'    stats_imapsync_${year}.ip | grep imapsync |wc -l`
-	Nb_All=`cat           stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	for OS in Linux Win32 Darwin FreeBSD Solaris OpenBSD Other; do
-		#echo $OS `eval "echo \\$$OS"` / $Nb_All
-		Nb_OS=`eval "echo \\$$OS"`
-		PerCent=`echo "scale=2; 100*$Nb_OS/$Nb_All" | bc -l`
-		echo $OS $PerCent %
-	done
-	)
-}
-
-echo
-echo "statistics_VERSION_monthly 02 2012 # long, good choice"
-statistics_VERSION_monthly() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	statistics_VERSION_getstats
-	statistics_VERSION_monthly_ip    $month $year
-	statistics_VERSION_monthly_runs  $month $year
-	statistics_VERSION_monthly_ip_wc $month $year
-	)
-}
-
-
-echo "statistics_VERSION_yearly_ip 2012 # very long"
-statistics_VERSION_yearly_ip() {
-	year=${1:-`date '+%Y'`}
-	(
-	statistics_VERSION_getstats
-	cd /home/lf/glamiral/imapsync_stats
-	cut -d ' ' -f 1,12,13,18,19 linux-france.org.??-??-${year}.imapsync_VERSION |sort -n |uniq -c|sort -n > stats_imapsync_${year}.ip
-	)
-}
-
-statistics_VERSION_yearly_runs() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd /home/lf/glamiral/imapsync_stats
-	test -f stats_imapsync_${year}.ip && cat stats_imapsync_${year}.ip | awk '{ sum+=$1 } END {print sum}'
-	)
-}
-
-echo "statistics_VERSION_synthesis 2012 # short"
-statistics_VERSION_synthesis() {
-	year=${1:-`date '+%Y'`}
-	year_now=`date '+%Y'`
-	(
-	cd /home/lf/glamiral/imapsync_stats
-	echo Nb users each month
-	wc -l stats_imapsync_${year}_??.ip
-	echo Nb runs each month
-	tail -n 1 stats_imapsync_${year}_??.runs
-	echo % Operating systems
-	statistics_VERSION_yearly_os $year
-	echo Biggest users
-	tail -n 5 stats_imapsync_${year}.ip
-	echo Nb users each year
-	wc -l stats_imapsync_????.ip
-	echo "Nb runs each year : "
-	for yyyy in `count_nice 2011 ${year_now}`; do
-		echo -n "$yyyy: "
-		statistics_VERSION_yearly_runs $yyyy
-	done
-	nb_runs_current_year=`statistics_VERSION_yearly_runs $year_now`
-	current_day_of_year=`date +%j`
-	echo; echo -n "$year_now~~"
-	echo "$nb_runs_current_year/$current_day_of_year*365" | bc 
-	)
-	
-}
-
-
-}
-
-statistics_VERSION_ks() {
-
-TMPDIR=.
-export TMPDIR
-
-echoq statistics_VERSION_getstats
-statistics_VERSION_getstats() {
-	(
-	cd $HOME/imapsync_stats
-	for f in /var/log/apache2/access.log_????????.gz ; do 
-		b=`basename "$f" .gz`
-		#echo "$b"
-		test -f ${b}.imapsync_VERSION && continue
-		echo NOT DONE ${b}.imapsync_VERSION
-                # To remove NULL characters: tr -d '\000'
-		zgrep -h /prj/imapsync/VERSION "$f" | tr -d '\000' > ${b}.imapsync_VERSION
-	done
-	)
-}
-
-echoq "statistics_VERSION_monthly_ip 02 2012 # long"
-statistics_VERSION_monthly_ip() {
-	statistics_VERSION_getstats
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	ls access.log_${year}${month}??.imapsync_VERSION > /dev/null || return 1
-	cut -d ' ' -f 1,12,13,15,16,18,19 access.log_${year}${month}??.imapsync_VERSION |sort -n |uniq -c|sort -n > stats_imapsync_${year}_${month}.ip
-	)
-}
-
-echoq "verify_month_year 02 2015"
-verify_month_year() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	fmy="stats_imapsync_${year}_${month}.ip"
-	test -f "$fmy" || { echo "No $fmy" ; touch "$fmy" ; }
-	test -f "$fmy" || { echo "No $fmy" ; return 0 ; }
-	fmy_YYYYmm=`date -r "$fmy" +%Y%m`
-	diff_month=`expr $fmy_YYYYmm - ${year}${month}` || :
-	#echo -n $diff_month
-	test "$diff_month" -ge 1 && return 0
-	echo "$fmy_YYYYmm - ${year}${month} = $diff_month is not enough"
-	statistics_VERSION_monthly $month $year
-	)
-}
-
-echoq "verify_year 2015"
-verify_year() {
-	year=${1:-`date '+%Y'`}
-	now_yearmonth=`date '+%Y%m'`
-	for month in `count_nice 01 12`; do
-		test "$now_yearmonth" -ge "$year$month" && \
-		verify_month_year $month $year
-	done
-	statistics_VERSION_yearly_ip $year
-	statistics_VERSION_synthesis $year
-}
-
-echoq "statistics_VERSION_monthly_os 08 2012 # short"
-statistics_VERSION_monthly_os() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	Linux=`grep -i linux stats_imapsync_${year}_${month}.ip | wc -l`
-	Win32=`grep -i MSWin32 stats_imapsync_${year}_${month}.ip | wc -l`
-	Darwin=`grep -i darwin stats_imapsync_${year}_${month}.ip | wc -l`
-	FreeBSD=`grep -i freebsd stats_imapsync_${year}_${month}.ip | wc -l`
-	Solaris=`grep -i solaris stats_imapsync_${year}_${month}.ip | wc -l`
-	OpenBSD=`grep -i openbsd stats_imapsync_${year}_${month}.ip | wc -l`
-	Other=`egrep -i -v 'linux|MSWin32|darwin|freebsd|solaris|openbsd'    stats_imapsync_${year}_${month}.ip |wc -l`
-	Nb_All=`cat           stats_imapsync_${year}_${month}.ip | wc -l`
-	for OS in Linux Win32 Darwin FreeBSD Solaris OpenBSD Other; do
-		#echo $OS `eval "echo \\$$OS"` / $Nb_All
-		Nb_OS=`eval "echo \\$$OS"`
-		PerCent=`echo "scale=2; 100*$Nb_OS/$Nb_All" | bc -l`
-		echo $OS $PerCent%
-	done
-	)
-}
-
-echoq "statistics_VERSION_yearly_os 2012 # short"
-statistics_VERSION_yearly_os() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	Linux=`grep -i linux     stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Win32=`grep -i MSWin32   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Darwin=`grep -i darwin   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	FreeBSD=`grep -i freebsd stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Solaris=`grep -i solaris stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	OpenBSD=`grep -i openbsd stats_imapsync_${year}.ip | grep imapsync | wc -l`
-        Cygwin=`grep -i cygwin   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Unknown=`grep -i '"-"'   stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	Other=`egrep -i -v 'linux|MSWin32|darwin|freebsd|solaris|openbsd|cygwin|"-"'  stats_imapsync_${year}.ip | grep imapsync |wc -l`
-	Nb_All=`cat stats_imapsync_${year}.ip | grep imapsync | wc -l`
-	for OS in Linux Win32 Darwin FreeBSD Solaris OpenBSD Cygwin Unknown Other; do
-		#echo $OS `eval "echo \\$$OS"` / $Nb_All
-		Nb_OS=`eval "echo \\$$OS"`
-		PerCent=`echo "scale=2; 100*$Nb_OS/$Nb_All" | bc -l`
-		echo $OS $PerCent %
-	done
-	)
-}
-
-
-echoq "statistics_VERSION_monthly_ip_wc 02 2012 # short"
-statistics_VERSION_monthly_ip_wc() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}_${month}.ip || statistics_VERSION_monthly_ip $month ${year}
-	wc -l stats_imapsync_${year}_${month}.ip
-	)
-}
-
-echoq "statistics_VERSION_monthly_runs 02 2012 # short"
-statistics_VERSION_monthly_runs() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	wc -l access.log_${year}${month}??.imapsync_VERSION > stats_imapsync_${year}_${month}.runs
-	cat stats_imapsync_${year}_${month}.runs
-	)
-}
-
-echoq
-echoq "statistics_VERSION_monthly 02 2012 # long, good choice"
-statistics_VERSION_monthly() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	statistics_VERSION_getstats
-	statistics_VERSION_monthly_ip    $month $year
-	statistics_VERSION_monthly_runs  $month $year
-	statistics_VERSION_monthly_ip_wc $month $year
-	)
-}
-
-
-echoq "statistics_VERSION_yearly_ip 2015 # very long"
-statistics_VERSION_yearly_ip() {
-	year=${1:-`date '+%Y'`}
-	(
-	statistics_VERSION_getstats
-	cd $HOME/imapsync_stats
-	cut -d ' ' -f 1,12,13,15,16,18,19 access.log_${year}????.imapsync_VERSION |sort -n |uniq -c|sort -n > stats_imapsync_${year}.ip
-	)
-}
-
-echoq "statistics_VERSION_yearly_ip_resolved 2015 # very long"
-statistics_VERSION_yearly_ip_resolved() {
-	year=${1:-`date '+%Y'`}
-	today=`date +%Y_%m_%d`
-	(
-	cd $HOME/imapsync_stats
-	mkdir -p daily
-	cat stats_imapsync_${year}.ip  | awk '{ count=$1; ip=$2; $1=""; print $2  " " $0 " " count ; }'  \
-	|  webresolve > daily/stats_imapsync_${year}.ip.resolved.${today}.txt
-	)
-}
-
-
-maxmind_update() {
-cat << 'EOF'
-wget http://geolite.maxmind.com/download/geoip/database/GeoLiteCountry/GeoIP.dat.gz
-wget http://geolite.maxmind.com/download/geoip/database/GeoLiteCity.dat.gz
-wget http://download.maxmind.com/download/geoip/database/asnum/GeoIPASNum.dat.gz
-gunzip GeoIP.dat.gz
-gunzip GeoIPASNum.dat.gz
-gunzip GeoLiteCity.dat.gz
-sudo mv GeoIP.dat GeoIPASNum.dat GeoLiteCity.dat /usr/share/GeoIP/
-EOF
-}
-
-maxmind_update2() {
-cat << 'EOF'
-wget https://geolite.maxmind.com/download/geoip/database/GeoLite2-City.tar.gz \
-     https://geolite.maxmind.com/download/geoip/database/GeoLite2-City-CSV.zip \
-     https://geolite.maxmind.com/download/geoip/database/GeoLite2-Country.tar.gz \
-     https://geolite.maxmind.com/download/geoip/database/GeoLite2-Country-CSV.zip \
-     https://geolite.maxmind.com/download/geoip/database/GeoLite2-ASN.tar.gz \
-     https://geolite.maxmind.com/download/geoip/database/GeoLite2-ASN-CSV.zip
-
-
-EOF
-}
-
-
-echoq "statistics_VERSION_yearly_ip_geo 2015 # long"
-statistics_VERSION_yearly_ip_geo() {
-	year=${1:-`date '+%Y'`}
-	today=`date +%Y_%m_%d`
-	(
-	cd $HOME/imapsync_stats
-	awk  '{ print $2 }' stats_imapsync_${year}.ip  | xargs -n1 geoiplookup > stats_imapsync_${year}.ipgeo.tmp.countries
-	awk  '{ print $2 }' stats_imapsync_${year}.ip  | xargs -n1 geoiplookup -f /usr/share/GeoIP/GeoLiteCity.dat > stats_imapsync_${year}.ipgeo.tmp.cities
-	cat stats_imapsync_${year}.ipgeo.tmp.countries stats_imapsync_${year}.ipgeo.tmp.cities | sort | uniq -c | sort -n  > stats_imapsync_${year}.ipgeo
-	rm stats_imapsync_${year}.ipgeo.tmp.countries stats_imapsync_${year}.ipgeo.tmp.cities
-	echo stats_imapsync_${year}.ipgeo
-	)
-}
-
-echoq "statistics_VERSION_all_years_ip_geo # long"
-statistics_VERSION_all_years_ip_geo() {
-	(
-	cd $HOME/imapsync_stats
-	awk  '{ print $2 }' stats_imapsync_20??.ip  | xargs -n1 geoiplookup > stats_imapsync_20xx.ipgeo.tmp.countries
-	awk  '{ print $2 }' stats_imapsync_20??.ip  | xargs -n1 geoiplookup -f /usr/share/GeoIP/GeoLiteCity.dat > stats_imapsync_20xx.ipgeo.tmp.cities
-	cat stats_imapsync_20xx.ipgeo.tmp.countries stats_imapsync_20xx.ipgeo.tmp.cities | sort | uniq -c | sort -n  > stats_imapsync_20xx.ipgeo
-	rm stats_imapsync_20xx.ipgeo.tmp.countries stats_imapsync_20xx.ipgeo.tmp.cities
-	echo stats_imapsync_20xx.ipgeo
-	)
-}
-
-
-
-
-statistics_VERSION_yearly_runs() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}.ip && cat stats_imapsync_${year}.ip | awk '{ sum+=$1 } END {print sum}'
-	)
-}
-
-
-statistics_releases_monthly() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}_${month}.ip \
-	&& grep -o -P imapsync/'1\.\d{3}' stats_imapsync_${year}_${month}.ip \
-	| grep -o   -P '1\.\d{3}'   | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_releases_previous_month() {
-	month=${1:-`date '+%m' -d 'last month'`}
-	year=${2:-`date '+%Y'  -d 'last month'`}
-	statistics_releases_monthly $month $year
-}
-
-
-statistics_releases_yearly() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}.ip \
-	&& grep -o -P imapsync/'1\.\d{3}' stats_imapsync_${year}.ip \
-        | grep -o -P '1\.\d{3}' | sort -n | uniq -c | sort -n
-	)
-}
-
-
-# releasecheck started on 1.349 in the imapsync code. date: 2010/09/06 00:25:03
-# Disable releasecheck started on 1.584 on github Mar 5, 2014 
-# https://github.com/imapsync/imapsync/commits/master/imapsync
-statistics_releases_all_times() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	grep -h -o -P imapsync/'1\.\d{3}' stats_imapsync_20??.ip  \
-	| grep -o -P '1\.\d{3}'   | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_perl_number_of_data_in_files()
-{
-        grep -o -P 'perl ''(\.|\d)+' "$@" | wc -l
-}
-
-statistics_perl_monthly_old() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}_${month}.ip \
-	&& grep -o -P 'perl ''(\.|\d)+' stats_imapsync_${year}_${month}.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_perl_monthly() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}_${month}.ip \
-        && statistics_perl_from_files stats_imapsync_${year}_${month}.ip
-	)
-}
-
-statistics_perl_from_files()
-{
-        total_nb_of_users=`statistics_perl_number_of_data_in_files "$@"`
-        echo $total_nb_of_users
-        statistics_perl_from_files_cumul_percentage $total_nb_of_users "$@"
-}
-
-statistics_perl_from_files_cumul_percentage()
-{
-        sum=$1
-        shift
-        echo statistics_perl_from_files_cumul_percentage $sum "$@"
-        grep -o -P 'perl ''(\.|\d)+' "$@" \
-        | grep -o -P '5\.\d+' \
-        | sort \
-        | datamash -g 1 count 1 \
-        | awk -v sum=$sum '{ printf "%s %d%%\n", $1, 100*$2/sum }'
-}
-
-
-statistics_perl_yearly_old() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}.ip \
-	&& grep -o -P 'perl ''(\.|\d)+' stats_imapsync_${year}.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_perl_yearly() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}.ip \
-	&& statistics_perl_from_files  stats_imapsync_${year}.ip
-	)
-}
-
-
-statistics_perl_all_times_old() {
-	(
-	cd $HOME/imapsync_stats
-	ls -d stats_imapsync_????.ip > /dev/null || return
-	grep -h -o -P 'perl ''(\.|\d)+' stats_imapsync_20??.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_perl_all_times() {
-	(
-	cd $HOME/imapsync_stats
-	ls -d stats_imapsync_????.ip > /dev/null || return
-	statistics_perl_from_files  stats_imapsync_20??.ip
-	)
-}
-
-
-
-echoq statistics_Mail_IMAPClient_monthly
-statistics_Mail_IMAPClient_monthly() {
-	month=${1:-`date '+%m'`}
-	year=${2:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}_${month}.ip \
-	&& grep -o -P ', ''(\.|\d)+' stats_imapsync_${year}_${month}.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-echoq statistics_Mail_IMAPClient_yearly
-statistics_Mail_IMAPClient_yearly() {
-	year=${1:-`date '+%Y'`}
-	(
-	cd $HOME/imapsync_stats
-	test -f stats_imapsync_${year}.ip \
-	&& grep -o -P ', ''(\.|\d)+' stats_imapsync_${year}.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-statistics_Mail_IMAPClient_all_times() {
-	(
-	cd $HOME/imapsync_stats
-	ls -d stats_imapsync_????.ip > /dev/null || return
-	grep -h -o -P ', ''(\.|\d)+' stats_imapsync_20??.ip \
-	|  grep -o -P '(\.|\d)+' | sort -n | uniq -c | sort -n
-	)
-}
-
-
-
-
-
-
-echoq "statistics_VERSION_synthesis 2012 # short"
-statistics_VERSION_synthesis() {
-	year=${1:-`date '+%Y'`}
-	year_now=`date '+%Y'`
-	(
-	cd $HOME/imapsync_stats
-	echo && echo "==== Nb users each month in ${year} "
-	wc -l stats_imapsync_${year}_??.ip
-	echo && echo "==== Nb runs each month in ${year} "
-	for f in stats_imapsync_${year}_??.runs; do
-		test -f $f && echo -n "$f : " && tail -n 1 $f
-	done
-	echo && echo "==== % Operating systems in ${year} "
-	statistics_VERSION_yearly_os $year
-	echo && echo "==== Perl releases in ${year} "
-	statistics_perl_yearly $year | tail -15
-	echo && echo "==== Biggest users in ${year} "
-	tail -n 15 stats_imapsync_${year}.ip
-	echo && echo "==== Most releases used in ${year} "
-	statistics_releases_yearly ${year} | tail -15
-	echo && echo "==== Most releases used the previous month "
-	statistics_releases_previous_month | tail -10
-	echo && echo "==== Most releases used this month "
-	statistics_releases_monthly | tail -10
-	echo && echo "==== Nb users each year "
-	wc -l stats_imapsync_????.ip
-	echo && echo "==== Nb runs each year : "
-	for yyyy in `count_nice 2011 ${year_now}`; do
-		echo -n "$yyyy: "
-		statistics_VERSION_yearly_runs $yyyy
-	done
-	nb_runs_current_year=`statistics_VERSION_yearly_runs $year_now`
-	current_day_of_year=`date +%j`
-	echo; echo -n "$year_now~~"
-	echo "$nb_runs_current_year/$current_day_of_year*365" | bc 
-	)
-}
-
-}
-
-test X"`hostname`" = Xks2 && statistics_VERSION_ks
-test X"`hostname`" = Xtuxinette && statistics_VERSION_lfo
-
-
-niouzes_compil() {
-	(
-	cd /g/public_html/www.linux-france.org/html/
-	m4 niouzes.m4 > niouzes.xml
-	python ./niouzes/getmynews.py --neuf niouzes.xml > niouzes-neuf.html
-	python ./niouzes/getmynews.py --html niouzes.xml > niouzes-html.html
-	)
-}
-
-
-
-lfo_announce() {
-software_version
-NEWS_FILE="/g/public_html/www.linux-france.org/html/niouzes/niouzes_imapsync.xml"
-if ! newer VERSION $NEWS_FILE; then 
-	echo "$VERSION already announced"
-else
-	cat > $NEWS_FILE << EOF
-
-<news date="`date  '+%Y%m%d'`">
-`LANG=fr_FR date  '+%A %d %B %Y'` : Synchronisez ou migrez vos boites 
-aux lettres avec \E9conomie et l'outil <A
-HREF="prj/imapsync/">imapsync $VERSION</A> (Gilles LAMIRAL)
-</news>
-EOF
-fi
-niouzes_compil
-}
-
-#' nedit sucks with syntax color
-
-
-
diff --git a/W/ml_announce.in.txt b/W/ml_announce.in.txt
deleted file mode 100644
index aa1f6fe..0000000
--- a/W/ml_announce.in.txt
+++ /dev/null
@@ -1,49 +0,0 @@
-m4_dnl $Id: ml_announce.in.txt,v 1.23 2019/12/02 15:19:06 gilles Exp gilles $
-m4_dnl
-m4_define(`M4_imapsync_VERSION',m4_esyscmd(cat VERSION|tr -d '\n'))m4_dnl
-m4_dnl
-From: Gilles LAMIRAL <gilles@lamiral.info>
-Bcc: gilles@lamiral.info
-Subject: [imapsync update] New Imapsync release M4_imapsync_VERSION available
-To: imapsync_update@lists.lamiral.info
-
-Dear imapsync user,
-
-This newsletter announces imapsync new releases and services,
-once or two times per year at most.
-
-Send me a note if you don't want to receive those announces anymore,
-I will unsubscribe you from this imapsync newsletter.
-
-Now the news!
-
-You will find imapsync release M4_imapsync_VERSION at 
-the following link:
-
-  https://imapsync.lamiral.info/dist/
-
-What's new in this M4_imapsync_VERSION release is described at
-  
-  https://imapsync.lamiral.info/S/news.shtml
-
-You're also invited to try and use the imapsync visual interface:
-
-  https://i005.lamiral.info/X/
-
-Vote for better imapsync and services at
-
-  http://imapsync.lamiral.info/S/poll.shtml
-
-I thank you again for buying and using imapsync,
-I wish you successful imap transfers!
-
-Feedback is welcome!
-
-Web site: https://imapsync.lamiral.info/
-
-
---
-Au revoir.
-Gilles Lamiral, 22 La Billais, 35580 Baulon, France
-mob +33 619 22 03 54
-tel +33 951 84 42 42
diff --git a/W/patches/FAQ_ralph.patch b/W/patches/FAQ_ralph.patch
deleted file mode 100644
index 83ed56a..0000000
--- a/W/patches/FAQ_ralph.patch
+++ /dev/null
@@ -1,529 +0,0 @@
---- FAQ.orig	2009-04-30 04:09:14.000000000 +0200
-+++ FAQ	2010-02-02 08:53:04.000000000 +0100
-@@ -6,12 +6,12 @@
- +------------------+
- 
- =======================================================================
--Q. How to install impasync ?
-+Q. How to install imapsync ?
- 
- R. http://www.linux-france.org/prj/imapsync/INSTALL
- 
- =======================================================================
--Q. How to configure impasync ?
-+Q. How to configure imapsync ?
- 
- R. http://www.linux-france.org/prj/imapsync/README
- 
-@@ -46,7 +46,7 @@
- Thank you for your participation.
- 
- =======================================================================
--Q. Where I can read IMAP RFCs ?
-+Q. Where I can read up on the various IMAP RFCs ?
- 
- R. Here:
- 
-@@ -67,12 +67,12 @@
- 
- 
- =======================================================================
--Q. Where I can find old imapsync releases ?
-+Q. Where I can find old imapsync releases?
- 
- R. ftp://www.linux-france.org/pub/prj/imapsync/
- 
- =======================================================================
--Q. How can I try imapsync with Mail::IMAPClient 3.xx perl library?
-+Q. How can I try imapsync with the new Mail::IMAPClient 3.xx perl library?
- 
- R. - Download latest Mail::IMAPClient 3.xx at
-    http://search.cpan.org/dist/Mail-IMAPClient/
-@@ -105,8 +105,8 @@
- =======================================================================
- Q. I am interested in creating  a local clone of the IMAP on a LAN 
- server for  faster synchronisations, Email will always be delivered 
--to the remote server and so the synchronisation will be one way from 
--remote to local. How suited is ImapSync to continouous one-way 
-+to the remote server and so the synchronisation will be one way - from 
-+remote to local. How suited is ImapSync for continuous one-way 
- synchronisation of mailboxes? Is there a better solution?
- 
- R. If messages are delivered remotely and you play locally with the
-@@ -130,17 +130,16 @@
-    - Mutt
-    - Thunderbird
- 
--Eurora shows by default the time the imap server received the email.
--I think it is quite a wrong behavior since the messages can
--have travelled some time before the reception.
--
--The sent time and date are given by the "Date:" header
--and it is set most of the time by the MUA (Mail User Agent, 
--Mutt, Eudora, Thunderbird etc.).
--
--imapsync does not touch any header since the
--header is used to identify the messages in
--both parts.
-+Eurora shows by default  the time the imap server received the email. I
-+think   it is  quite   a  wrong  behavior  since  the messages can have
-+travelled some time before the reception.
-+
-+The sent time and date are given by the "Date:" header and it is set
-+most of the time by the MUA (Mail User Agent, Mutt, Eudora,
-+Thunderbird etc.).
-+
-+imapsync does not touch any header since the header is used to
-+identify the messages in both parts.
- 
- Solutions: 
- a) Don't use buggy Eudora.
-@@ -156,7 +155,7 @@
- =======================================================================
- Q. Does imapsync retain the \Answered and $Forwarded flags?
- 
--R. imapsync retains all flags except \Recent 
-+R. imapsync retains ALL flags except \Recent 
- (RFC 3501 says "This flag can not be altered by the client.")
- 
- Some imap servers have problems with flags not beginning with
-@@ -195,11 +194,11 @@
- 
- =======================================================================
- Q. Some passwords contain * and " characters. Login fails.
--R. Use
-+R. Use a backslash to escape the characters:
- 
-     imapsync --password1 \"password\" 
- 
--Ii works for the star * character,
-+It works for the star * character,
- I don't know if it works for the " character.
- 
- =======================================================================
-@@ -273,46 +272,43 @@
-    imaps stream  tcp nowait cyrus /usr/sbin/stunnel -s cyrus -p /etc/ssl/certs/imapd.pem -r localhost:imap2
- 
- =======================================================================
--Q: I'm trying to use imapsync on win32 for gmail, but it requires ssl, 
--or at least  claims to. Imapsync appears to require io-socket-ssl, 
--which doesn't seem to be available on win32. Are there any other options?
-+Q: I'm trying to use imapsync on win32 for gmail, but it requires ssl,
-+or at least claims to. Imapsync appears to require io-socket-ssl, 
-+which doesn't seem to be available on win32. Are there any other
-+options?
- 
- R: (Q and R come as is from Bryce Walter)
--I think I'm having success using cygwin perl instead of
--ActiveState Perl. I wasn't able to get CPAN working and
--building IO::Socket::SSL in ActiveState, but cygwin did
--all right. I had to force the install of the Net::SSLeay
--dependency, because it partially failed one test, but I think
--it worked anyway. In order to get working in cygwin, I
--installed the entire "perl" category, lynx, ncftp, and lftp
--(specified as ftp program in cpan setup). I'm not sure if I
--needed all those, or if cpan just kept asking because I didn't
--have any installed at the time. Anyway, cpan worked, and
--I installed all dependencies that imapsync complained
--about until it started working. 
-+
-+I think I'm having success using cygwin perl instead of ActiveState
-+Perl. I wasn't able to get CPAN working and building IO::Socket::SSL
-+in ActiveState, but cygwin did all right. I had to force the install
-+of the Net::SSLeay dependency, because it partially failed one test,
-+but I think it worked anyway. In order to get working in cygwin, I
-+installed the entire "perl" category, lynx, ncftp, and lftp (specified
-+as ftp program in cpan setup). I'm not sure if I needed all those, or
-+if cpan just kept asking because I didn't have any installed at the
-+time. Anyway, cpan worked, and I installed all dependencies that
-+imapsync complained about until it started working. 
- 
- =======================================================================
- Q: Multiple copies when I run imapsync twice ore more.
- 
--R. Multiple copies of the emails on the destination
--server. Some IMAP servers (Domino for example) add some
--headers for each message transfered. The message is
--transfered again and again each time you run imapsync. This
--is bad of course. The explanation is that imapsync considers
--the message is not the same since headers have changed (one
-+R. Multiple copies of the emails on the destination server. Some IMAP
-+servers (Domino for example) add some headers for each message
-+transfered. The message is transfered again and again each time you
-+run imapsync. This is bad of course. The explanation is that imapsync
-+considers the message is not the same since headers have changed (one
- line added) and size too (the header part). 
- 
--You can look at the headers found by imapsync by using the 
----debug option (and search for the message on both part),
--Header lines from the source server begin with a "FH:" prefix,
--Header lines from the destination server begin with a "TH:" prefix.
--Since --debug is very verbose I suggest to isolate a 
--email in a specific folder in case you want to forward
--me the output.
-+You can look at the headers found by imapsync by using the --debug
-+option (and search for the message on both part), Header lines from
-+the source server begin with a "FH:" prefix, Header lines from the
-+destination server begin with a "TH:" prefix. Since --debug is very
-+verbose I suggest to isolate a email in a specific folder in case you
-+want to forward me the output.
- 
- The way to avoid this problem is by using options --skipheader and
----skipsize, like this (avoid headers beginning whith the
--string "X-"):
-+--skipsize, like this (avoid headers beginning whith the string "X-"):
- 
-  imapsync ... --skipheader '^X-' --skipsize
- 
-@@ -325,11 +321,11 @@
-  imapsync ... --useheader 'Message-ID' --skipsize
- 
- Remark. (Trick found by Tomasz Kaczmarski)
--Option --useheader 'Message-ID' asks the server
--to send only header lines begining with 'Message-ID'. 
--Some (buggy) servers send the whole header (all lines)
--instead of the 'Message-ID' line. In that case, a trick
--to keep the --useheader filtering behavior is to use
-+
-+Option --useheader 'Message-ID' asks the server to send only header
-+lines begining with 'Message-ID'.  Some (buggy) servers send the whole
-+header (all lines) instead of the 'Message-ID' line. In that case, a
-+trick to keep the --useheader filtering behavior is to use
- --skipheader with a negative lookahead pattern :
- 
-  imapsync ... --skipheader '^(?!Message-ID)' --skipsize
-@@ -357,14 +353,14 @@
- or maybe
- --exclude '^"public\.'
- 
--In the example given the character "." is the folder separator,
--you can ommit it. Just take the string as it appears on the
--imapsync output line :
-+In the example given the character "." is the folder separator, you
-+can ommit it. Just take the string as it appears on the imapsync
-+output line :
- 
- From folders list : [INBOX] [public.dreams] [etc.]
- 
- ======================================================================
--Q. I want the --folder 'MyFolder' option be recurse.
-+Q. I want the --folder 'MyFolder' option be recursive.
- 
- R. Do not use the --folder option. 
-    Instead, use --include '^MyFolder'
-@@ -412,17 +408,17 @@
- 	--exclude '^user\.'
- 
- ======================================================================
--Q. Is anyway imapsync to purge destionation folder when the source
--   folder is deleted?
-+Q. Is there anyway of making imapsync purge the destination folder
-+   when the source folder is deleted?
-+
-+R. No, that's too dangerous.
- 
--R. No, that's too much dangerous.
--But if the source folder is empty (not deleted) and 
--options --delete2 --expunge2 are used then 
--the destination folder will be empty.
-+But if the source folder is empty (not deleted) and options --delete2
-+--expunge2 are used then the destination folder will be empty.
- 
- ======================================================================
- Q. Is it possible to synchronize all messages from one server to 
--another whithout recreating the folder structure and the target server.
-+another without recreating the folder structure and the target server.
- 
- R. Yes.
- 1) First try (safe mode):
-@@ -437,15 +433,15 @@
-    
- 3) Remove --dry 
-    Check the imap folder tree on the target side, you should
--   only have one : the classical INBOX.
-+   only have one: the classical INBOX.
- 
- 4) Remove --justfolders
- 
- 
- ======================================================================
--Q. I have moved from Braunschweig to Graz, so I would like to have my whole 
--Braunschweig mail sorted into a folder INBOX.Braunschweig of my new mail 
--account.
-+Q. I have moved from Braunschweig to Graz, so I would like to have my
-+   whole Braunschweig mail sorted into a folder INBOX.Braunschweig of my
-+   new mail account.
- 
- R.
- 1) First try (safe mode):
-@@ -468,30 +464,29 @@
- 
- R. Examples: 
- 
--0) First try with --dry --justfolders options since imapsync shows the 
--transformations it will do without really doing them. Then when happy 
--with the output remove the --dry --justfolders options.
-+0) First try with --dry --justfolders options since imapsync shows the
-+   transformations it will do without really doing them. Then when
-+   happy with the output remove the --dry --justfolders options.
- 
- 1) To remove INBOX. in the name of destination folders:
-     --regextrans2 's/^INBOX\.(.+)/$1/'
- 
- 2) To sync a complete account in a subfolder called FOO:
-   
--  a) Separator is dot character "." and "INBOX" prefixes every folder
-+  a) Seperator is dot character "." and "INBOX" prefixes every folder
-     --regextrans2 's/^INBOX(.*)/INBOX.FOO$1/'
- 
-   Or
--  b) Separator is slash character "/" 
-+  b) Seperator is slash character "/" 
-    --regextrans2 's#(.*)#FOO/$1#'
- 
- 3) to substitute all characters dot "." by underscores "_"
-     --regextrans2 's/\./_/g'
- 
- =======================================================================
--Q. I would like to move emails from InBox to a sub-folder
--called , say "2005-InBox" based on the date (Like all emails
--received in the Year 2005 should be moved to the folder
--called "2005-InBox").
-+Q. I would like to move emails from InBox to a sub-folder called,
-+   say "2005-InBox" based on the date (Like all emails received in the
-+   Year 2005 should be moved to the folder called "2005-InBox").
- 
- R. 2 ways :
- 
-@@ -499,17 +494,18 @@
- ------------
- 
- 1) You create a folder INBOX.2005-INBOX
--2) Mostly every email software allow sorting by date.
--In inbox, you select from 1 january to 31 december
--messages with the shift key.
-+
-+2) Mostly every email software allow sorting by date. In inbox, you
-+   select from 1 january to 31 december messages with the shift key.
-+   (in mutt, use ~d)
-+
- 3) Cut/paste in INBOX.2005-INBOX
- 
- b) With imapsync:
- -----------------
- 
--You have to calculate the day of year (and
--add 365).  For example, running it today, 
--Sat Mar 11 13:06:01 CET 2006:
-+You have to calculate the day of year (and add 365).  For example,
-+running it today, Sat Mar 11 13:06:01 CET 2006:
- 
- imapsync ... 
- --host1 imap.truc.org --host2 imap.trac.org \
-@@ -528,9 +524,9 @@
- $ date +%j
- 070
- 
--Also, you must take imapsync 1.159 at least since I tested
--what I just wrote above and found 2 bugs about --mindate
----maxdate options behavior.
-+Also, you must take imapsync 1.159 at least since I tested what I just
-+wrote above and found 2 bugs about --mindate --maxdate options
-+behavior.
- 
- =======================================================================
- Q. I want to play with headers line and --regexmess but I want to leave
-@@ -573,42 +569,39 @@
- Return-Path: <foo@yoyo.org>
- Received: ...
- 
--Any Maidir/ configured imap server may refuse this message
--since its header is invalid. The first "From " line is not
--valid. It lacks a colon character ":".
--To solve this problem you have several solutions a) or b):
--
--a) Remove these first "From " line manually for each message
--before using imapsync. Don't think to add a colon to this
--line since you will end with two "From:" lines (just look at
--the other lines)
-+Any Maildir/ configured imap server may refuse this message since its
-+header is invalid. The first "From " line is not valid. It lacks a
-+colon character ":". To solve this problem you have several solutions
-+
-+a) Remove these first "From " line manually for each message before
-+   using imapsync. Don't think to add a colon to this line since you
-+   will end with two "From:" lines (just look at the other lines)
- 
- b) Run imapsync with the following options :
----regexmess 's/\AFrom \w  .*\n//'  --skipsize
-+   --regexmess 's/\AFrom \w  .*\n//'  --skipsize
- 
- =======================================================================
- Q. The contact folder isn't well copied. 
--   How to copy the contact folder ?
-+   How to copy the contact folder?
- 
--R. Forget the destination server (chose the same)
-+R. Forget the destination server (choose the same)
- Change the script around line 1426
-        # ITSD
-        $new_id = $from->copy($t_fold,$f_msg);
-        #$new_id = $to->append_string($t_fold,$string, $flags_f, $d);
--and tried a copy of the mail instead an append_string.
--Because we are using the same server, we can use $from->copy
--Therefore we seem to not download and upload the message and therefore
--we do not have any format issues.
--And now it works fine.
--(Thanks to Hansjoerg.Maurer)
-+
-+and tried a copy of the mail instead an append_string. Because we are
-+using the same server, we can use $from->copy Therefore we seem to not
-+download and upload the message and therefore we do not have any
-+format issues. And now it works fine. (Thanks to Hansjoerg.Maurer)
- 
- 
- =======================================================================
--Q. Synchronysing from XXX to Gmail
-+Q. Synchronising from XXX to Gmail
- 
--R. There are some details to get the special [Gmail]
--sub-folders right. Here's an example of migrating an old "Sent"
--folder to Gmail's structure:
-+R. There are some details to get the special [Gmail] sub-folders
-+   right. Here's an example of migrating an old "Sent" folder to
-+   Gmail's structure:
- 
- imapsync --syncinternaldates \
-          --host1 mail.oldhost.com \
-@@ -625,9 +618,9 @@
- The same goes for the "All Mail" archive psuedo-folder.
- 
- =======================================================================
--Q. Synchronysing from Gmail to XXX
-+Q. Synchronising from Gmail to XXX
- 
--R. Gmail needs ssl. 
-+R. Gmail needs SSL 
- 
- ./imapsync \
-            --host1 imap.gmail.com --ssl1 \
-@@ -661,6 +654,7 @@
- Q. Syncing from Google Apps domain to Googlemail account
- 
- A known bug encountered with this output (Alexander is a folder name):
-+
- ++++ Verifying [Alexander] -> [Alexander] ++++
- + NO msg #16 [A96Dh4AwlLVphOAW5MS/eQ:779824] in Alexander
- + Copying msg #16:779824 to folder Alexander
-@@ -679,9 +673,9 @@
- imapsync ... --folder Alexander
- 
- =======================================================================
--Q. I'm migrating from WU to Cyrus, and the mail folders are
--under /home/user/mail but the tool copies everything in
--/home/user, how can i avoid that?
-+Q. I'm migrating from WU to Cyrus, and the mail folders are under
-+   /home/user/mail but the tool copies everything in /home/user, how
-+   can i avoid that?
- 
- R. Use
-    imapsync ... --include '^mail'
-@@ -690,12 +684,11 @@
- 
- 
- =======================================================================
--Q. I'm migrating from WU to Cyrus, and the mail folders are
--under /home/user/mail directory.  When imapsync creates the
--folders in the new cyrus imap server, it makes a folder
--"mail" and below that folder puts all the mail folders the
--user have in /home/user/mail, i would like to have all those
--folders directly under INBOX.
-+Q. I'm migrating from WU to Cyrus, and the mail folders are under
-+   /home/user/mail directory.  When imapsync creates the folders in
-+   the new cyrus imap server, it makes a folder "mail" and below that
-+   folder puts all the mail folders the user have in /home/user/mail,
-+   i would like to have all those folders directly under INBOX.
- 
- R. Use 
-    imapsync ... --regextrans2 's/^mail/INBOX/' --dry
-@@ -719,30 +712,32 @@
- 
- --skipheader '^Content-Type'
-   - MIME separator IDs seem to change every time a mail is accessed so 
--this is required to stop duplicates.
-+    this is required to stop duplicates.
- 
- --maxage 3650
-   - some messages just don't seem to want to transfer and produce the 
--perl errors I mentioned before. This prevents the errors, but the bad 
--messages don't transfer.
-+    perl errors I mentioned before. This prevents the errors, but the
-+    bad messages don't transfer.
- 
- Even though the mail migrated OK, there are a couple of gotchas with 
- Groupwise IMAP:
- 
--1) Some of the GW folders are not real folders and are not available to 
--IMAP, the main problem one being "Sent Items". I could find no way of 
--coping the contents of these folders. The nearest I got was to create a 
--"real" folder and copy/move the sent items into it, but imapsync still 
--didn't see the messages (I think because there is something funny about 
--the reported dates/sizes).
-+1) Some of the GW folders are not real folders and are not available
-+to IMAP, the main problem one being "Sent Items". I could find no way
-+of coping the contents of these folders. The nearest I got was to
-+create a "real" folder and copy/move the sent items into it, but
-+imapsync still didn't see the messages (I think because there is
-+something funny about the reported dates/sizes).
-+
- It think this problem has been rectified in GW6.5.
- 
- 2) The "skipheader '^Content-Type'" directive is required to stop 
--duplicate messages being created. GW seems to generate this field on the 
--fly for messages that have MIME separators and so it's different every time.
-+duplicate messages being created. GW seems to generate this field on
-+the fly for messages that have MIME separators and so it's different
-+every time.
- 
- 3) Version 6.0.1 of the Groupwise Internet Connector sucks. I was 
--getting server abends when I pushed it a bit hard! I eventually had to 
-+getting server aborts when I pushed it a bit hard! I eventually had to
- upgrade to 6.0.4 which seems to be a lot more stable.
- 
- 
-@@ -816,18 +811,19 @@
-          --sep1 '/' --exclude 'user/demo/Trash' \
-          --regextrans2 's/^user.//' --syncinternaldates
- 
--The 'exclude user/demo/Trash'  was used because there was one message 
--there with 8 bit headers which dbmail doesn't accept, so I had to skip 
--the whole folder. It would be nice to have an option to just ignore and 
--log unsyncable messages, but do the rest, instead of stopping.
-+The 'exclude user/demo/Trash' was used because there was one message 
-+there with 8 bit headers which dbmail doesn't accept, so I had to skip
-+the whole folder. It would be nice to have an option to just ignore
-+and log unsyncable messages, but do the rest, instead of stopping.
- 
- ******************
- 
- There are two other major problems:
--1) dbmail doesn't accept utf8 header, while cyrus does. imapsync stops 
-+
-+1) dbmail doesn't accept utf8 header, while cyrus does. imapsync stops
- in that case, making sync impossible
- 
--To convert the wholes messages from 8bit to 7bit, use option :
-+To convert the whole messages from 8bit to 7bit, use option :
- 
- --regexmess 's/[\x80-\xff]/X/g'
- 
-@@ -861,7 +857,7 @@
- Q. From any to Exchange2007 
- 
- Several problems:
--- Big messages: increse the "send- and receive-connector" 
-+- Big messages: increase the "send- and receive-connector" 
-   in exchange2007 to 40 MB.
- 
- R. 2 solutions
-
diff --git a/W/patches/create_folder_erik.torgesta.com b/W/patches/create_folder_erik.torgesta.com
deleted file mode 100644
index 9407ed0..0000000
--- a/W/patches/create_folder_erik.torgesta.com
+++ /dev/null
@@ -1,38 +0,0 @@
-create_folder {
-	my( $imap2, $h2_fold, $h1_fold ) = @_ ;
-        my(@parts, $parent);
-
-	print "Creating folder [$h2_fold] on host2\n";
-        if ( ( 'INBOX' eq uc( $h2_fold) )
-         and ( $imap2->exists( $h2_fold ) ) ) {
-                print "Folder [$h2_fold] already exists\n" ;
-                return( 1 ) ;
-        }
-
-        @parts = split($h2_sep, $h2_fold );
-        pop( @parts );
-        $parent = join($h2_sep, @parts );
-        $parent =~ s/^\s+|\s+$//g ;
-        if(($parent ne "") and !$imap2->exists( $parent )) {
-        	create_folder( $imap2 , $parent , $h1_fold);
-        }
-
-	if ( ! $dry ){
-		if ( ! $imap2->create( $h2_fold ) ) {
-			print( "Couldn't create folder [$h2_fold] from [$h1_fold]: ",
-			$imap2->LastError(  ), "\n" );
-			$nb_errors++;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $imap2->exists( $h2_fold ) ;
-                        # failure since create failed
-			return( 0 );
-		}else{
-			#create succeeded
-			return( 1 );
-		}
-	}else{
-		# dry mode, no folder so many imap will fail, assuming failure
-		return( 0 );
-	}
-}
-
diff --git a/W/patches/imapsync--justcopy.patch b/W/patches/imapsync--justcopy.patch
deleted file mode 100644
index 63f9c7f..0000000
--- a/W/patches/imapsync--justcopy.patch
+++ /dev/null
@@ -1,535 +0,0 @@
---- imapsync.orig	2005-02-11 14:27:53.508176000 -0600
-+++ imapsync	2005-02-14 11:39:31.241157000 -0600
-@@ -1,6 +1,6 @@
- #!/usr/bin/perl -w
- 
--=head1 NAME 
-+=head1 NAME
- 
- imapsync - IMAP synchronization, copy or migration
- tool. Synchronize mailboxes between two imap servers. Good
-@@ -35,9 +35,9 @@
-   imapsync
- 
-   imapsync [--host1 server1]  [--port1 <num>]
--           [--user1 <string>] [--passfile1 <string>] 
-+           [--user1 <string>] [--passfile1 <string>]
-            [--host2 server2]  [--port2 <num>]
--           [--user2 <string>] [--passfile2 <string>] 
-+           [--user2 <string>] [--passfile2 <string>]
-            [--folder <string> --folder <string> ...]
- 	   [--include <regex>] [--exclude <regex>]
-            [--prefix2 <string>]
-@@ -55,14 +55,14 @@
-            [--debug] [--debugimap]
-            [--timeout <int>]
-            [--version] [--help]
--  
-+
- =cut
- # comment
- =pod
- 
- =head1 DESCRIPTION
- 
--The command imapsync is a tool allowing incremental and recursive 
-+The command imapsync is a tool allowing incremental and recursive
- imap transfer from one mailbox to another.
- 
- We sometimes need to transfer mailboxes from one imap server to
-@@ -133,10 +133,10 @@
- imapsync will exit with a 0 status (return code) if everything went good.
- Otherwise, it exits with a non-zero status.
- 
--So if you have a buggy internet connection, you can use this loop 
-+So if you have a buggy internet connection, you can use this loop
- in a Bourne shell:
- 
--        while ! imapsync ...; do 
-+        while ! imapsync ...; do
-               echo imapsync not complete
-         done
- 
-@@ -184,7 +184,7 @@
- 
- =head1 IMAP SERVERS
- 
--Success stories reported (softwares in alphabetic order) : 
-+Success stories reported (softwares in alphabetic order) :
- 
-  - BincImap 1.2.3
-  - CommunicatePro server (Redhat 8.0)
-@@ -223,7 +223,7 @@
- =head1 HUGE MIGRATION
- 
- 
--Have a special attention on options 
-+Have a special attention on options
- --subscribed
- --subscribe
- --delete
-@@ -244,7 +244,7 @@
- 
- And the shell program is just :
- 
--{ while IFS=';' read  u1 p1 u2 p2; do 
-+{ while IFS=';' read  u1 p1 u2 p2; do
- 	imapsync --user1 $u1 --password1 $p1 --user2 $u2 --password2 $p2 ...
- done ; } < file.csv
- 
-@@ -266,7 +266,7 @@
-   mailsync    : http://mailsync.sourceforge.net/
-   imapxfer    : http://www.washington.edu/imap/
-                 part of the imap-utils from UW.
--  mailutil    : replace imapxfer in 
-+  mailutil    : replace imapxfer in
-                 part of the imap-utils from UW.
- 		http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-   imaprepl    : http://www.bl0rg.net/software/
-@@ -308,10 +308,10 @@
- 	$syncinternaldates, $syncacls,
- 	$maxsize, $maxage,
-         $skipheader, $skipsize, $foldersizes,
--	$delete, $expunge, $dry, 
-+	$delete, $expunge, $dry,
-         $authmd5,
-         $subscribed, $subscribe,
--	$version, $VERSION, $help, 
-+	$version, $VERSION, $help,
-         $justconnect, $justfolders,
-         $fast,
-         $mess_size_total_trans,
-@@ -321,6 +321,7 @@
-         $timeout,   # whr (ESS/PRW)
- 	$timestart, $timeend, $timediff,
-         $timesize, $timebefore,
-+        $verbose, $justcopy
- 
- );
- 
-@@ -362,7 +363,7 @@
- 
- $error=0;
- 
--my $banner = join("", 
-+my $banner = join("",
- 		  '$RCSfile: imapsync,v $ ',
- 		  '$Revision: 1.121 $ ',
- 		  '$Date: 2005/02/01 04:03:30 $ ',
-@@ -426,7 +427,7 @@
- $to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout);
- 
- sub login_imap {
--	my($host, $port, $user, $password, 
-+	my($host, $port, $user, $password,
- 	   $debugimap, $timeout, $authmech) = @_;
- 	my $imap = Mail::IMAPClient->new();
- 	$imap->Server($host);
-@@ -461,12 +462,12 @@
- 		print "$authmech not wanted by you\n";
- 		return;
- 	}
--	if ($imap->has_capability($authmech) 
-+	if ($imap->has_capability($authmech)
- 	    or $imap->has_capability("AUTH=$authmech")) {
--		print "Server [", $imap->Server, 
-+		print "Server [", $imap->Server,
- 		  "] has capability $authmech\n";
- 	}else{
--		print "Server [", $imap->Server, 
-+		print "Server [", $imap->Server,
- 		  "] has NOT capability $authmech\n";
- 		return;
- 	}
-@@ -520,7 +521,7 @@
- 
- @t_folders = sort @{$to->folders()};
- 
--my($f_sep,$t_sep); 
-+my($f_sep,$t_sep);
- # what are the private folders separators for each server ?
- 
- 
-@@ -543,8 +544,8 @@
- 		$sep_out = $imap->separator();
- 		return($sep_out);
- 	}else{
--		print 
--		  "No NAMESPACE capability in imap server ", 
-+		print
-+		  "No NAMESPACE capability in imap server ",
- 		    $imap->Server(),"\n",
- 		      "Give the separator caracter with the $sep_opt option\n";
- 		exit(1);
-@@ -555,7 +556,7 @@
- print "From separator : [$f_sep]\n";
- print "To   separator : [$t_sep]\n";
- 
--if ($foldersizes) {
-+if (!$justcopy and $foldersizes) {
- 	my $tot = 0;
- 	my $tmess = 0;
- 	print "++++ Calculating sizes ++++\n";
-@@ -564,7 +565,7 @@
- 		my $smess = 0;
- 		printf("From Folder %-25s", "[$f_fold]");
- 		unless ($from->select($f_fold)) {
--			warn 
-+			warn
- 			  "From Folder $f_fold : Could not select ",
- 			    $from->LastError,  "\n";
- 			$error++;
-@@ -616,11 +617,11 @@
- 
- 
- 
--print 
-+print
-   "From folders : ", map("[$_] ",@f_folders),"\n",
-   "To   folders : ", map("[$_] ",@t_folders),"\n";
- 
--print 
-+print
-   "From subscribed folders : ", map("[$_] ", sort keys(%fs_folders)), "\n";
- 
- sub separator_invert {
-@@ -654,14 +655,14 @@
- 	print "To   Folder [$t_fold]\n";
- 
- 	unless ($from->select($f_fold)) {
--		warn 
-+		warn
- 		"From Folder $f_fold : Could not select ",
- 		$from->LastError,  "\n";
- 		$error++;
- 		next FOLDER;
- 	}
- 
--	unless ($to->exists($t_fold) or $to->select($t_fold)) { 
-+	unless ($to->exists($t_fold) or $to->select($t_fold)) {
- 		print "To   Folder $t_fold does not exist\n";
- 		print "Creating folder [$t_fold]\n";
- 		unless ($dry){
-@@ -675,9 +676,9 @@
- 			next FOLDER;
- 		}
- 	}
--    
--	unless ($to->select($t_fold)) { 
--		warn 
-+
-+	unless ($to->select($t_fold)) {
-+		warn
- 		"To   Folder $t_fold : Could not select ",
- 		$to->LastError, "\n";
- 		$error++;
-@@ -708,6 +709,7 @@
- 	    }
- 	  }
- 	}
-+        print "Time folders: ", timenext(), " s\n";
- 	
- 	next FOLDER if ($justfolders);
- 
-@@ -725,6 +727,7 @@
- 	$from->Clear(1);
- 	$to->Clear(1);
- 
-+        print "Time query:   ", timenext(), " s\n";
- 	
- 	print "From Buffer I/O : ", $from->Buffer(), "\n";
- 	print "To   Buffer I/O : ", $to->Buffer(), "\n";
-@@ -733,49 +736,55 @@
- #	print "From Buffer I/O : ", $from->Buffer(), "\n";
- #	print "To   Buffer I/O : ", $to->Buffer(), "\n";
- 
--	print "++++ From Parse 1 ++++\n";
--	
--	my $f_heads = $from->parse_headers([@f_msgs],"ALL") if (@f_msgs) ;
--	print "Time headers: ", timenext(), " s\n";
--	my $f_size  = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
--	print "Time sizes  : ", timenext(), " s\n";
--	#my $f_flags = $from->flags(@f_msgs) ;
--	#print "Time flags  : ", timenext(), " s\n";
--	use Data::Dumper;
--	#print Data::Dumper->Dump([$f_heads]);
--	#print Data::Dumper->Dump([$f_flags]);
--	
--	#exit;
--	foreach my $m (@f_msgs) {
--	  parse_header_msg1($m, $f_heads, $f_size, "F", \%f_hash);
--	}
--	print "Time headers: ", timenext(), " s\n";
--	
--	print "\n++++ To   Parse 1 ++++\n";
--	my $t_heads =   $to->parse_headers([@t_msgs],"ALL") if (@t_msgs);
--	print "Time headers: ", timenext(), " s\n";
--	my $t_size  =   $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
--	print "Time sizes  : ", timenext(), " s\n";
--	#my $t_flags =   $to->flags(@t_msgs) ;
--	#print "Time flags  : ", timenext(), " s\n";
--	
--	foreach my $m (@t_msgs) {
--	  parse_header_msg1($m, $t_heads, $t_size, "T", \%t_hash);
--	}
--	print "Time headers: ", timenext(), " s\n";
--	#exit;
--
--	print "\n++++ Verifying ++++\n";
--	# messages in "from" that are not good in "to"
--	
--	my @f_hash_keys_sorted_by_uid 
--	  = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
--	
--	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
--	
--	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
--		my $f_size = $f_hash{$m_id}{'s'};
--		my $f_msg = $f_hash{$m_id}{'m'};
-+        # Define f_hash_keys_sorted_by_uid  outside of if statement to keep
-+        # Perl happy
-+        my @f_hash_keys_sorted_by_uid = ();
-+        if ($justcopy) {
-+          print "++++   Copying    ++++\n";
-+        } else {
-+          print "++++ From Parse 1 ++++\n";
-+	
-+          my $f_heads = $from->parse_headers([@f_msgs],"ALL") if (@f_msgs) ;
-+          print "Time headers: ", timenext(), " s\n";
-+          my $f_size  = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
-+          print "Time sizes  : ", timenext(), " s\n";
-+          #my $f_flags = $from->flags(@f_msgs) ;
-+          #print "Time flags  : ", timenext(), " s\n";
-+          use Data::Dumper;
-+          #print Data::Dumper->Dump([$f_heads]);
-+          #print Data::Dumper->Dump([$f_flags]);
-+	
-+          #exit;
-+          foreach my $m (@f_msgs) {
-+            parse_header_msg1($m, $f_heads, $f_size, "F", \%f_hash);
-+          }
-+          print "Time headers: ", timenext(), " s\n";
-+	
-+          print "\n++++ To   Parse 1 ++++\n";
-+          my $t_heads =   $to->parse_headers([@t_msgs],"ALL") if (@t_msgs);
-+          print "Time headers: ", timenext(), " s\n";
-+          my $t_size  =   $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
-+          print "Time sizes  : ", timenext(), " s\n";
-+          #my $t_flags =   $to->flags(@t_msgs) ;
-+          #print "Time flags  : ", timenext(), " s\n";
-+	
-+          foreach my $m (@t_msgs) {
-+            parse_header_msg1($m, $t_heads, $t_size, "T", \%t_hash);
-+          }
-+          print "Time headers: ", timenext(), " s\n";
-+          #exit;
-+
-+          print "\n++++ Verifying ++++\n";
-+          # messages in "from" that are not good in "to"
-+          @f_hash_keys_sorted_by_uid
-+            = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
-+
-+          #print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
-+	}
-+
-+	MESS: foreach my $m_id ($justcopy ? @f_msgs : @f_hash_keys_sorted_by_uid) {
-+		my $f_size = $justcopy ? 0 : $f_hash{$m_id}{'s'};
-+		my $f_msg = $justcopy ? $m_id : $f_hash{$m_id}{'m'};
- 		# print ".";
- 		if (defined $maxsize and $f_size > $maxsize) {
- 			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-@@ -783,10 +792,10 @@
- 			next MESS;
- 		}
- 		$debug and print "+ key     $m_id #$f_msg\n";
--		unless (exists($t_hash{$m_id})) {
--			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-+		unless (!$justcopy and exists($t_hash{$m_id})) {
-+			$verbose and print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
- 			# copy
--			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-+			$verbose and print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
- 			my $string = $from->message_string($f_msg);
- 			while (my $regexmess = shift(@regexmess)) {
- 				$debug and print "eval \$string =~ $regexmess\n";
-@@ -809,7 +818,7 @@
- 			$flags_f =~ s@\\Recent@@g;
- 			
- 			my $new_id;
--			print "flags from : [$flags_f][$d]\n";
-+			$verbose and print "flags from : [$flags_f][$d]\n";
- 			unless ($dry) {
- 				unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
- 					warn "Couldn't append msg #$f_msg (Subject:[".$from->subject($f_msg)."]) to folder $t_fold: ",
-@@ -820,9 +829,9 @@
- 					
- 				}else{
- 						# good
--					# $new_id is an id if the IMAP server has the 
-+					# $new_id is an id if the IMAP server has the
- 					# UIDPLUS capability else just a ref
--					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-+					$verbose and print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
- 					$mess_size_total_trans += $f_size;
- 					$mess_trans += 1;
- 				}
-@@ -834,12 +843,12 @@
- 			$mess_skipped += 1;
- 		}
- 		
--		$fast and next MESS;
--		#$debug and print "MESSAGE $m_id\n"; 
-+		($fast or $justcopy) and next MESS;
-+		#$debug and print "MESSAGE $m_id\n";
- 		my $t_size = $t_hash{$m_id}{'s'};
- 		my $t_msg  = $t_hash{$m_id}{'m'};
- 		
--		$debug and print "Setting flags\n"; 
-+		$debug and print "Setting flags\n";
- 		my (@flags_f,@flags_t);
- 		my $flags_f_rv = $from->flags($f_msg);
- 		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
-@@ -852,16 +861,16 @@
- 		
- 		my $flags_t_rv = $to->flags($t_msg);
- 		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
--		$debug and print 
-+		$debug and print
- 		  "flags from : @flags_f\n",
- 		  "flags to   : @flags_t\n";
- 		
- 
- 		$debug and do {
--			print "Looking dates\n"; 
-+			print "Looking dates\n";
- 			my $d_f = $from->internaldate($f_msg);
- 			my $d_t = $to->internaldate($t_msg);
--			print 
-+			print
- 			  "idate from : $d_f\n",
- 			    "idate to   : $d_t\n";
- 			#unless ($d_f eq $d_t) {
-@@ -870,7 +879,7 @@
- 		};
- 		unless ($f_size == $t_size) {
- 			# Bad size
--			print 
-+			print
- 			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			# delete in to and recopy ?
- 			# NO recopy CODE HERE. to be written if needed.
-@@ -880,17 +889,17 @@
- 				$to->delete_message($t_msg) unless ($dry);
- 			}
- 		}else {
--	    		# Good 
-+	    		# Good
- 			$debug and print
- 			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			if($delete) {
--				print "Deleting msg #$f_msg in folder $f_fold\n";
-+				$verbose and print "Deleting msg #$f_msg in folder $f_fold\n";
- 				$from->delete_message($f_msg) unless ($dry);
- 				$from->expunge() if ($expunge and not $dry);
- 			}
- 		}
- 	}
--print "Time : ", timenext(), " s\n";
-+        print "Time : ", timenext(), " s\n";
- }
- 
- $timeend = time();
-@@ -959,6 +968,8 @@
-                                    "timeout=i"   => \$timeout,
- 				   "skipheader=s" => \$skipheader,
- 				   "skipsize!"   => \$skipsize,
-+                                   "verbose!"    => \$verbose,
-+                                   "justcopy!"   => \$justcopy,
-                                   );
- 
-         $debug and print "get options: [$opt_ret]\n";
-@@ -1020,7 +1031,7 @@
- 	my $headstr;
- 	$debug and print "Head NUM:", scalar(keys(%$head)), "\n";
- 	# no header -> return
--	return unless(scalar(keys(%$head)));	    
-+	return unless(scalar(keys(%$head)));
- 	foreach my $h (sort keys(%$head)){
- 		foreach my $val (sort @{$head->{$h}}) {
- 			# no 8-bit data in headers !
-@@ -1050,12 +1061,12 @@
- 
-         my($file) = @_;
-         my $line  = "";
--        
-+
-         open FILE, $file or die("$! $file");
-         chomp($line = <FILE>);
-         close FILE;
-         $line = ($line) ? $line : "!EMPTY! $file";
--        return $line;   
-+        return $line;
- }
- 
- sub usage {
-@@ -1063,7 +1074,7 @@
- 
- usage: $0 [options]
- 
--Several options are mandatory. 
-+Several options are mandatory.
- 
- --host1       <string> : "from" imap server. Mandatory.
- --port1       <int>    : port to connect. Default is 143.
-@@ -1085,7 +1096,7 @@
- --exclude     <regex>  : skip folders matching this regular expression
-                          (only effective if neither --folder nor --subscribed
- 			  is specified)
----prefix2     <string> : add prefix to all destination folders 
-+--prefix2     <string> : add prefix to all destination folders
-                          (usually INBOX. for cyrus imap servers)
- --regextrans2 <regex>  : Apply the whole regex to each destination folders.
- --regexmess   <regex>  : Apply the whole regex to each message before transfer.
-@@ -1101,7 +1112,7 @@
- 			 are not really deleted. See expunge.
- --expunge              : expunge messages on source account.
-                          expunge really deletes messages marked deleted.
--                         expunge is made at the begining on the 
-+                         expunge is made at the begining on the
-                          source server only. newly transfered messages
-                          are expunged if option --expunge is given.
-                          no expunge is done on destination account but
-@@ -1110,12 +1121,12 @@
- --maxsize     <int>    : skip messages larger than <int> bytes
- --maxage      <int>    : skip messages older than <int> days.
-                          final stats (skipped) don't count older messages
----skipheader  <regex>  : Don't take into account header keyword 
-+--skipheader  <regex>  : Don't take into account header keyword
-                          matching <string> ex: --skipheader 'X.*'
- --skipsize             : Don't take message size into account.
- --dry                  : do nothing, just print what would be done.
- --subscribed           : transfer only subscribed folders.
----subscribe            : subscribe to the folders transfered on the 
-+--subscribe            : subscribe to the folders transfered on the
-                          "destination" server that are subscribed
-                          on the "source" server.
- --(no)foldersizes      : Calculate the size of each "From" folder in bytes
-@@ -1125,12 +1136,17 @@
- --debug                : debug mode.
- --debugimap            : imap debug mode.
- --version              : print sotfware version.
----justconnect          : just connect to both servers and print useful 
-+--justconnect          : just connect to both servers and print useful
-                          information.
- --justfolders          : just do things about folders (ignore messages).
- --fast                 : be faster.
- --timeout     <int>    : imap connect timeout.
- --help                 : print this.
-+--verbose              : print info for each message transferred.
-+--justcopy             : only copy messages. Implies nofoldersizes, fast and
-+                         nomaxsize. No synchronization, might create duplicate
-+                         messages. Ment to be used for fast migration of
-+                         messages to new (empty) IMAP accounts.
- 
- Example: to synchronise imap account "foo" on "imap.truc.org"
-                      to imap account "bar" on "imap.trac.org"
\ No newline at end of file
diff --git a/W/patches/imapsync-1.139-ssl-authmech-authusing.patch b/W/patches/imapsync-1.139-ssl-authmech-authusing.patch
deleted file mode 100644
index f082f2d..0000000
--- a/W/patches/imapsync-1.139-ssl-authmech-authusing.patch
+++ /dev/null
@@ -1,224 +0,0 @@
---- imapsync	2005-07-16 08:46:35.000000000 -0400
-+++ ../imapsync.ssl	2005-10-05 14:46:23.000000000 -0400
-@@ -38,7 +38,8 @@
-            [--user1 <string>] [--passfile1 <string>]
-            [--host2 server2]  [--port2 <num>]
-            [--user2 <string>] [--passfile2 <string>]
--           [--noauthmd5]
-+           [--noauthmd5] [--authusing <string> --prefix1 <string>]
-+           [--authmech <string]
-            [--folder <string> --folder <string> ...]
-            [--include <regex>] [--exclude <regex>]
-            [--prefix2 <string>] [--regextrans2 <regex>]
-@@ -61,6 +62,7 @@
-            [--debug] [--debugimap]
-            [--timeout <int>] [--fast]
-            [--version] [--help]
-+           [--ssl]
-   
- =cut
- # comment
-@@ -315,25 +317,28 @@
- use Digest::MD5  qw(md5_base64);
- use Term::ReadKey;
- #use Digest::HMAC_MD5;
-+use IO::Socket::SSL;
-+use MIME::Base64;
- 
- eval { require 'usr/include/sysexits.ph' };
- 
- 
- my(
-         $rcs, $debug, $debugimap, $error,
--	$host1, $host2, $port1, $port2,
--	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-+        $host1, $host2, $port1, $port2, 
-+        $user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, $include, $exclude, $prefix2, $regextrans2, @regexmess,
-+        $authusing, $prefix1, $authmech,
-         $sep1, $sep2,
--	$syncinternaldates, $syncacls,
-+        $syncinternaldates, $syncacls,
-         $fastio1, $fastio2, 
--	$maxsize, $maxage,
-+        $maxsize, $maxage,
-         $skipheader, @useheader,
-         $skipsize, $foldersizes, $buffersize,
--	$delete, $expunge, $dry, 
-+        $delete, $expunge, $dry, 
-         $authmd5,
-         $subscribed, $subscribe,
--	$version, $VERSION, $help, 
-+        $version, $VERSION, $help, 
-         $justconnect, $justfolders,
-         $fast,
-         $mess_size_total_trans,
-@@ -341,8 +346,9 @@
-         $mess_size_total_error,
-         $mess_trans, $mess_skipped,
-         $timeout,   # whr (ESS/PRW)
--	$timestart, $timeend, $timediff,
-+        $timestart, $timeend, $timediff,
-         $timesize, $timebefore,
-+        $usessl
- );
- 
- use vars qw ($opt_G); # missing code for this will be option.
-@@ -406,11 +412,11 @@
- }
- 
- $host1 || missing_option("--host1") ;
--$port1 = (defined($port1)) ? $port1 : 143;
-+$port1 = (defined($port1)) ? $port1 : ((defined($usessl)) ? 993 : 143);
- $user1 || missing_option("--user1");
- 
- $host2 || missing_option("--host2") ;
--$port2 = (defined($port2)) ? $port2 : 143;
-+$port2 = (defined($port2)) ? $port2 : ((defined($usessl)) ? 993 : 143);
- $user2 || missing_option("--user2");
- 
- $authmd5 = (defined($authmd5)) ? $authmd5 : 1;
-@@ -424,8 +430,8 @@
- 
- @useheader = ("ALL") unless (@useheader);
- 
--print "From imap server [$host1] port [$port1] user [$user1]\n";
--print "To   imap server [$host2] port [$port2] user [$user2]\n";
-+(defined($authusing)) ? print "From imap server [$host1] port [$port1] user [$user1] authusing [$authusing]\n" :  print "From imap server [$host1] port [$port1] user [$user1]\n";
-+(defined($authusing)) ? print "To   imap server [$host2] port [$port2] user [$user2] authusing [$authusing]\n" : print "To   imap server [$host2] port [$port2] user [$user2]\n";
- 
- $password1 || $passfile1 || do {
- 	print "What's the password for $user1\@$host1? ";
-@@ -447,8 +453,9 @@
- my $from = ();
- my $to = ();
- 
--my $authmech = "CRAM-MD5";
--
-+if (!defined($authmech)) {
-+	$authmech = "CRAM-MD5";
-+}
- 
- $timestart = time();
- $timebefore = $timestart;
-@@ -474,7 +481,19 @@
- sub login_imap {
- 	my($host, $port, $user, $password, 
- 	   $debugimap, $timeout, $fastio) = @_;
--	my $imap = Mail::IMAPClient->new();
-+	my ($imap);
-+	if ($usessl) {
-+		my $ssl = new IO::Socket::SSL("$host:$port");
-+		die ("Error connecting - $@") unless defined $ssl;
-+		$ssl->autoflush(1);
-+
-+		$imap = Mail::IMAPClient->new(
-+			Socket => $ssl,
-+			Server => $host,
-+		);
-+	} else {
-+		$imap = Mail::IMAPClient->new();
-+	}
- 	$imap->Server($host);
- 	$imap->Port($port);
- 	$imap->Fast_io($fastio);
-@@ -482,13 +501,17 @@
- 	$imap->Uid(1);
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
--	$imap->connect()
--	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
--	if ($timeout)    # whr (ESS/PRW)
--	  {
--		  $imap->Timeout($timeout);
--		  print "Setting imap timeout to $timeout\n";
--	  }
-+	$imap->Authcallback(\&plainauth);
-+	if ($usessl) {
-+		$imap->State(Mail::IMAPClient::Connected);
-+	} else {
-+		$imap->connect()
-+		or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-+	}
-+	if ($timeout) {    # whr (ESS/PRW) 
-+		$imap->Timeout($timeout);
-+		print "Setting imap timeout to $timeout\n";
-+	}
- 
- 	$imap->User($user);
- 	$imap->Password($password);
-@@ -497,6 +520,13 @@
- 	return($imap);
- }
- 
-+sub plainauth() {
-+        my $code = shift;
-+        my $imap = shift;
-+
-+        my $string = sprintf("%s\x00%s\x00%s", $imap->User, defined($authusing) ? $authusing : $imap->User, $imap->Password);
-+        return encode_base64("$string");
-+}
- 
- sub md5auth() {
- 	my ($imap) = @_;
-@@ -537,7 +567,7 @@
- my (@f_folders, @t_folders, %fs_folders);
- 
- # Make a hash of subscribed folders in source server.
--# map { $fs_folders{$_}=1 } $from->subscribed();
-+map { $fs_folders{$_}=1 } $from->subscribed($prefix1);
- 
- 
- 
-@@ -550,7 +580,7 @@
- 	@f_folders = sort keys (%fs_folders);
- }else {
- 	# no option, all folders
--	@f_folders = sort $from->folders();
-+	@f_folders = sort $from->folders($prefix1);
- 	# consider (optional) includes and excludes
- 	if ($include) {
- 		@f_folders = grep  /$include/,@f_folders;
-@@ -996,6 +1026,8 @@
-                                    "port2=i"     => \$port2,
-                                    "user1=s"     => \$user1,
-                                    "user2=s"     => \$user2,
-+                                   "authusing=s" => \$authusing,
-+                                   "authmech=s"  => \$authmech,
-                                    "password1=s" => \$password1,
-                                    "password2=s" => \$password2,
-                                    "passfile1=s" => \$passfile1,
-@@ -1006,6 +1038,7 @@
- 				   "folder=s"    => \@folder,
- 				   "include=s"   => \$include,
- 				   "exclude=s"   => \$exclude,
-+				   "prefix1=s"   => \$prefix1,
- 				   "prefix2=s"   => \$prefix2,
- 				   "regextrans2=s" => \$regextrans2,
- 				   "regexmess=s" => \@regexmess,
-@@ -1031,6 +1064,7 @@
- 				   "skipsize!"   => \$skipsize,
- 				   "fastio1!"     => \$fastio1,
- 				   "fastio2!"     => \$fastio2,
-+				   "ssl!"	  => \$usessl
-                                   );
- 	
-         $debug and print "get options: [$opt_ret]\n";
-@@ -1122,6 +1156,9 @@
- --host2       <string> : "destination" imap server. Mandatory.
- --port2       <int>    : port to connect. Default is 143.
- --user2       <string> : user to login.   Mandatory.
-+--authusing   <string> : user to auth with (when running on behalf of another)
-+--authmech    <string> : auth mechanism to use (e.g. PLAIN, LOGIN, CRAM-MD5...) 
-+			 default CRAM-MD5 
- --password2   <string> : password for the user2. Dangerous, use --passfile2
- --passfile2   <string> : password file for the user2. Contains the password.
- --noauthmd5            : don't use MD5 authentification.
-@@ -1187,6 +1224,7 @@
- --nofastio1            : don't use fastio with the "from" server.
- --nofastio2            : don't use fastio with the "destination" server.
- --timeout     <int>    : imap connect timeout.
-+--ssl                  : use SSL connections.
- --help                 : print this.
- 
- Example: to synchronise imap account "foo" on "imap.truc.org"
diff --git a/W/patches/imapsync-1.156-ssl-authusing.patch b/W/patches/imapsync-1.156-ssl-authusing.patch
deleted file mode 100644
index 9ada185..0000000
--- a/W/patches/imapsync-1.156-ssl-authusing.patch
+++ /dev/null
@@ -1,593 +0,0 @@
---- imapsync.orig	2006-03-13 16:34:48.430310000 +0100
-+++ imapsync	2006-03-16 07:25:53.113435000 +0100
-@@ -38,7 +38,7 @@
-            [--user1 <string>] [--passfile1 <string>]
-            [--host2 server2]  [--port2 <num>]
-            [--user2 <string>] [--passfile2 <string>]
--           [--noauthmd5]
-+           [--authusing <string>] [--authmech <string>]
-            [--folder <string> --folder <string> ...]
-            [--include <regex>] [--exclude <regex>]
-            [--prefix2 <string>] [--prefix1 <string>] 
-@@ -46,7 +46,6 @@
-            [--sep1 <char>]
-            [--sep2 <char>]
-            [--justfolders] [--justfoldersizes] [--justconnect]
--           [--syncinternaldates]
-            [--buffersize  <int>]
-            [--syncacls]
-            [--regexmess <regex>] [--regexmess <regex>]
-@@ -60,9 +59,10 @@
-            [--subscribed] [--subscribe]
-            [--nofoldersizes]
-            [--dry]
--           [--debug] [--debugimap]
-+           [--debug] [--debugimap] [--verbose]
-            [--timeout <int>] [--fast]
-            [--version] [--help]
-+           [--ssl]
-   
- =cut
- # comment
-@@ -134,8 +134,14 @@
- the password in a well protected file (600 or rw-------) is
- the best solution.
- 
--imasync is not protected against sniffers on the network so
--the passwords are in plain text.
-+You may authenticate as one user (typically an admin user), but be
-+authorized as someone else, which means you don't need to know every
-+user's personal password.  Specify --authusing ADMIN to enable this.
-+In this case, --authmech PLAIN will be used, but otherwise,
-+--authmech CRAM-MD5 is the default.
-+
-+To protect yourself from network sniffers, use --ssl to enable
-+encryption.
- 
- =head1 EXIT STATUS
- 
-@@ -334,26 +340,27 @@
- use Digest::MD5  qw(md5_base64);
- use Term::ReadKey;
- #use Digest::HMAC_MD5;
-+use IO::Socket::SSL;
-+use MIME::Base64;
- 
- eval { require 'usr/include/sysexits.ph' };
- 
- 
- my(
--        $rcs, $debug, $debugimap, $error,
-+        $rcs, $debug, $debugimap, $verbose, $error,
- 	$host1, $host2, $port1, $port2,
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, $include, $exclude, 
-+        $authusing, $authmech,
-         $prefix1, $prefix2, 
-         @regextrans2, @regexmess,
-         $sep1, $sep2,
--	$syncinternaldates, $syncacls,
--        $fastio1, $fastio2, 
-+	$syncacls,
- 	$maxsize, $maxage, $minage, 
-         $skipheader, @useheader,
-         $skipsize, $foldersizes, $buffersize,
- 	$delete, $expunge, $expunge1, $expunge2, $dry,
-         $justfoldersizes,
--        $authmd5,
-         $subscribed, $subscribe,
- 	$version, $VERSION, $help, 
-         $justconnect, $justfolders,
-@@ -365,6 +372,7 @@
-         $timeout,   # whr (ESS/PRW)
- 	$timestart, $timeend, $timediff,
-         $timesize, $timebefore,
-+        $usessl
- );
- 
- use vars qw ($opt_G); # missing code for this will be option.
-@@ -387,17 +395,10 @@
- 
- 
- sub check_lib_version {
--	# I know this is ugly, I should write a sort function
- 	if ($VERSION_IMAPClient =~ m/(\d+)\.(\d+)\.(\d+)/) {
- 		$debug and print "VERSION_IMAPClient $1 $2 $3\n";
--		my($major,$minor,$sub) = ($1, $2, $3);
--		
--		return(1) if($major >=3);
--		return(0) if($major <=1);
--		return(1) if($minor >=3);
--		return(0) if($minor <=1);
--		return(1) if($sub >=8);
--		return(0) if($sub <=7);
-+		my $ver = sprintf("%c%c%c", $1, $2, $3);
-+		return $ver ge v2.2.9;
- 	}else{
- 		return 0; # don't match regex => bad
- 	}
-@@ -420,7 +421,7 @@
- }
- 
- get_options();
--print $banner;
-+print $banner if $verbose;
- 
- sub missing_option {
- 	my ($option) = @_;
-@@ -428,88 +429,72 @@
- }
- 
- $host1 || missing_option("--host1") ;
--$port1 = (defined($port1)) ? $port1 : 143;
-+$port1 ||= defined $usessl ? 993 : 143;
- 
- $host2 || missing_option("--host2") ;
--$port2 = (defined($port2)) ? $port2 : 143;
-+$port2 ||= defined $usessl ? 993 : 143;
- 
--sub connect_imap {
--	my($host, $port, $debugimap) = @_;
--	my $imap = Mail::IMAPClient->new();
--	$imap->Server($host);
--	$imap->Port($port);
--	$imap->Debug($debugimap);
--	$imap->connect()
--	  or die "Can not open imap connection on [$host] : $@\n";	
--}
-+$authmech ||= $authusing ? 'PLAIN' : 'CRAM-MD5';
-+
-+my $from = connect_imap($host1, $port1, $timeout);
-+print "From software : ", server_banner($from);
-+print "From capability : ", join(" ", $from->capability()), "\n";
-+
-+my $to   = connect_imap($host2, $port2, $timeout);
-+print "To   software : ", server_banner($to);
-+print "To   capability : ", join(" ", $to->capability()), "\n";
- 
- if ($justconnect) {
--	my $from = ();
--	my $to = ();
--	
--	$from = connect_imap($host1, $port1);
--	print "From software : ", ($from->Report())[0];
--	print "From capability : ", join(" ", $from->capability()), "\n";
--	$to   = connect_imap($host2, $port2);
--	print "To   software : ", ($to->Report())[0];
--	print "To   capability : ", join(" ", $to->capability()), "\n";
- 	$from->logout();
- 	$to->logout();
- 	exit(0);
- }
--	
- 
- $user1 || missing_option("--user1");
- $user2 || missing_option("--user2");
- 
--$authmd5 = (defined($authmd5)) ? $authmd5 : 1;
--
- $syncacls = (defined($syncacls)) ? $syncacls : 0;
- $foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
- 
--$fastio1 = (defined($fastio1)) ? $fastio1 : 1;
--$fastio2 = (defined($fastio2)) ? $fastio2 : 1;
--
--
- @useheader = ("ALL") unless (@useheader);
- 
--print "From imap server [$host1] port [$port1] user [$user1]\n";
--print "To   imap server [$host2] port [$port2] user [$user2]\n";
-+if (defined $authusing) {
-+	print "From [$user1\@$host1:$port1] authenticate as [$authusing]\n";
-+	print "To   [$user2\@$host2:$port2] authenticate as [$authusing]\n";
-+} else {
-+	print "From [$user1\@$host1:$port1]\n";
-+	print "To   [$user2\@$host2:$port2]\n";
-+}
-+
-+sub ask_for_password {
-+	my ($user, $host) = @_;
- 
--$password1 || $passfile1 || do {
--	print "What's the password for $user1\@$host1? ";
-+	print "What's the password for $user\@$host? ";
- 	ReadMode 2;
--	$password1 = <>; chop $password1;
--	printf "\n"; ReadMode 0;
--};
-+	my $password = <>;
-+	chomp $password;
-+	printf "\n";
-+	ReadMode 0;
-+	return $password;
-+}
- 
-+unless ($password1 || $passfile1) {
-+	$password1 = ask_for_password($authusing || $user1, $host1);
-+}
- $password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
- 
--$password2 || $passfile2 || do {
--	print "What's the password for $user2\@$host2? ";
--	ReadMode 2;
--	$password2 = <>; chop $password2;
--	printf "\n"; ReadMode 0;
--};
-+unless ($password2 || $passfile2) {
-+	$password2 = $authusing ? $password1 : ask_for_password($user2, $host2);
-+}
- $password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
- 
--my $from = ();
--my $to = ();
--
--my $authmech = "CRAM-MD5";
--
--
- $timestart = time();
- $timebefore = $timestart;
- 
--$fastio1 = 1;
--$fastio2 = 1;
--
- $debugimap and print "From connection\n";
--$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout, $fastio1);
--
-+$from = login_imap($from, $user1, $password1);
- $debugimap and print "To  connection\n";
--$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout, $fastio2);
-+$to = login_imap($to, $user2, $password2);
- 
- # No history
- $from->Clear(2);
-@@ -518,69 +503,79 @@
- $debug and print "From Buffer I/O : ", $from->Buffer(), "\n";
- $debug and print "To   Buffer I/O : ", $to->Buffer(), "\n";
- 
--	
- 
--sub login_imap {
--	my($host, $port, $user, $password, 
--	   $debugimap, $timeout, $fastio) = @_;
--	my $imap = Mail::IMAPClient->new();
-+sub connect_imap {
-+	my ($host, $port, $timeout) = @_;
-+	my ($imap);
-+	if ($usessl) {
-+		my $ssl = new IO::Socket::SSL("$host:$port");
-+		die "Error connecting to $host:$port: $@\n" unless $ssl;
-+		$ssl->autoflush(1);
-+
-+		$imap = Mail::IMAPClient->new(
-+			Socket => $ssl,
-+			Server => $host,
-+		);
-+	} else {
-+		$imap = Mail::IMAPClient->new();
-+	}
- 	$imap->Server($host);
- 	$imap->Port($port);
--	$imap->Fast_io($fastio);
- 	$imap->Buffer($buffersize || 4096);
- 	$imap->Uid(1);
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
--	$imap->connect()
--	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-+	if ($usessl) {
-+		$imap->State(Mail::IMAPClient::Connected);
-+	} else {
-+		$imap->connect()
-+		or die "Can not open imap connection on [$host]: $@\n";
-+	}
-+	if ($authusing && $authmech ne "PLAIN") {
-+		print "ERROR: --authusing is only implemented with --authmech PLAIN\n";
-+	} elsif ($authmech eq "LOGIN") {
-+		# Default mode for Mail::IMAPClient, so don't do anything.
-+	} elsif ($imap->has_capability("AUTH=$authmech")) {
-+		$imap->Authmechanism($authmech);
-+		$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-+	} else {
-+		printf("%s: no support for AUTHENTICATE %s, using LOGIN\n",
-+		       $imap->Server, $authmech);
-+	}
- 	if ($timeout)    # whr (ESS/PRW)
- 	  {
- 		  $imap->Timeout($timeout);
- 		  print "Setting imap timeout to $timeout\n";
- 	  }
--
--	$imap->User($user);
--	$imap->Password($password);
--	md5auth($imap);
--	$imap->login() or die "Error login : [$host] with user [$user] : $@";
- 	return($imap);
- }
- 
--
--sub md5auth() {
--	my ($imap) = @_;
--	
--	unless ($authmd5) {
--		print "$authmech not wanted by you\n";
--		return;
--	}
--	if ($imap->has_capability($authmech) 
--	    or $imap->has_capability("AUTH=$authmech")) {
--		print "Server [", $imap->Server, 
--		  "] has capability $authmech\n";
--	}else{
--		print "Server [", $imap->Server, 
--		  "] has NOT capability $authmech\n";
--		return;
--	}
--	#print "EE", $imap->Authmechanism(), "\n";
--	if ($imap->Authmechanism($authmech)) {
--		print "Using $authmech authentification\n";
--	}else{
--		$imap->Authmechanism(undef);
--		print "Can NOT use $authmech authentification, using plain\n";
-+sub server_banner {
-+	my $imap = shift;
-+	for my $line ($imap->Results()) {
-+	    return $line if $line =~ /^\* (OK|NO|BAD)/;
- 	}
--	return;
-+	return "No banner\n";
- }
- 
-+sub login_imap {
-+	my ($imap, $user, $password) = @_;
- 
-+	$imap->User($user);
-+	$imap->Password($password);
-+	$imap->login()
-+		or die "Error login: [$imap->{Server}] with user [$user]: $@\n";
-+	return($imap);
-+}
- 
--
--print "From software : ", ($from->Report())[0];
--print "To   software : ", ($to->Report())[0];
--
--print "From capability : ", join(" ", $from->capability()), "\n";
--print "To   capability : ", join(" ", $to->capability()), "\n";
-+sub plainauth() {
-+        my $code = shift;
-+        my $imap = shift;
-+
-+        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-+			     $authusing || $imap->User, $imap->Password);
-+        return encode_base64("$string");
-+}
- 
- die unless $from->IsAuthenticated();
- die unless   $to->IsAuthenticated();
-@@ -601,7 +596,7 @@
- 	@f_folders = sort keys (%fs_folders);
- }else {
- 	# no option, all folders
--	@f_folders = sort $from->folders();
-+	@f_folders = sort $from->folders($prefix1);
- 	# consider (optional) includes and excludes
- 	if ($include) {
- 		@f_folders = grep  /$include/,@f_folders;
-@@ -615,22 +610,33 @@
- 
- @t_folders = sort @{$to->folders()};
- 
--my($f_sep,$t_sep); 
- # what are the private folders separators for each server ?
-+my $f_sep = get_separator($from, $sep1, "--sep1");
-+my $f_prefix = get_prefix($from, $prefix1, "--prefix1");
- 
-+if (@t_folders == 0) {
-+	if ($authusing) {
-+		# We assume we're allowed to create new users.
-+		# We may need to make the "user." prefix configurable
-+		unless ($dry || $to->create("user.$user2")) {
-+			print STDERR "Couldn't create user.$user2 on $host2",
-+				$to->LastError, "\n";
-+			exit(1);
-+		}
-+	} else {
-+		print "$user2 does not exist on $host2\n";
-+		exit(1);
-+	}
-+}
- 
--$debug and print "Getting separators\n";
--$f_sep = get_separator($from, $sep1, "--sep1");
--$t_sep = get_separator($to, $sep2, "--sep2");
-+my $t_sep = get_separator($to, $sep2, "--sep2");
-+my $t_prefix = get_prefix($to, $prefix2, "--prefix2");
- 
- #my $f_namespace = $from->namespace();
- #my $t_namespace = $to->namespace();
- #$debug and print "From namespace:\n", Data::Dumper->Dump([$f_namespace]);
- #$debug and print "To   namespace:\n", Data::Dumper->Dump([$t_namespace]);
- 
--my($f_prefix,$t_prefix); 
--$f_prefix = get_prefix($from, $prefix1, "--prefix1");
--$t_prefix = get_prefix($to, $prefix2, "--prefix2");
- 
- sub get_prefix {
- 	my($imap, $prefix_in, $prefix_opt) = @_;
-@@ -691,7 +697,7 @@
- 	my $tot = 0;
- 	my $tmess = 0;
- 	my @folders = @{$folders_r};
--	print "++++ Calculating sizes ++++\n";
-+	print "++++ Calculating sizes ++++\n" if $verbose;
- 	foreach my $folder (@folders)     {
- 		my $stot = 0;
- 		my $smess = 0;
-@@ -881,7 +887,8 @@
- 	my $f_heads = $from->parse_headers($from->Range([@f_msgs]),@useheader) 
- 	  if (@f_msgs) ;
- 	$debug and print "Time headers: ", timenext(), " s\n";
--	my $f_size  = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
-+	my $f_size  = $from->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE")
-+		if (@f_msgs);
- 	$debug and print "Time sizes  : ", timenext(), " s\n";
- 	#my $f_flags = $from->flags(@f_msgs) ;
- 	#print "Time flags  : ", timenext(), " s\n";
-@@ -909,7 +916,7 @@
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	#exit;
- 
--	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
-+	print "++++ Synchronizing [$f_fold] -> [$t_fold] ++++\n";
- 	# messages in "from" that are not good in "to"
- 	
- 	my @f_hash_keys_sorted_by_uid 
-@@ -928,9 +935,11 @@
- 		}
- 		$debug and print "+ key     $m_id #$f_msg\n";
- 		unless (exists($t_hash{$m_id})) {
--			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-+			print "+ NO msg #$f_msg [$m_id] in $t_fold\n"
-+				if $verbose;
- 			# copy
--			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-+			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n"
-+				if $verbose;
- 			my $string = $from->message_string($f_msg);
- 			foreach my $regexmess (@regexmess) {
- 				$debug and print "eval \$string =~ $regexmess\n";
-@@ -939,33 +948,18 @@
- 			$debug and print "F message content begin next line\n",
- 			  $string,
- 			    "F message content ended on previous line\n";
--			my $d = "";
--			if ($syncinternaldates) {
--				$d = $from->internaldate($f_msg);
--				$d = "\"$d\"";
--				$debug and print "internal date from 1: [$d]\n";
--			}
--			
--			my $flags_f_rv = $from->flags($f_msg);
--			my @flags_f;
--			my $flags_f;
--			
--			if (ref($flags_f_rv)) {
--				@flags_f = @{$flags_f_rv};
--				$flags_f = join(" ", @flags_f);
--			}else{
--				$flags_f = "";	
--			}
--			
--			#$flags_f = join(" ", @{$from->flags($f_msg)});
- 			
-+			my $flags_f = $f_hash{$m_id}{'F'} || "";
- 			# RFC 2060 : This flag can not be altered by the client
- 			$flags_f =~ s@\\Recent@@g;
- 			
- 			my $new_id;
--			print "flags from : [$flags_f][$d]\n";
-+			my $indate = $f_hash{$m_id}{'D'};
-+			print "flags from : [$flags_f][$indate]\n" if $verbose;
- 			unless ($dry) {
--				unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
-+				$new_id = $to->append_string($t_fold, $string,
-+							     $flags_f, $indate);
-+				unless($new_id){
- 					warn "Couldn't append msg #$f_msg (Subject:[".$from->subject($f_msg)."]) to folder $t_fold: ",
- 					  $to->LastError, "\n";
- 					$error++;
-@@ -976,7 +970,7 @@
- 						# good
- 					# $new_id is an id if the IMAP server has the 
- 					# UIDPLUS capability else just a ref
--					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-+					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n" if $verbose;
- 					$mess_size_total_trans += $f_size;
- 					$mess_trans += 1;
- 				}
-@@ -1116,17 +1110,19 @@
-         my $opt_ret = GetOptions(
-                                    "debug!"       => \$debug,
-                                    "debugimap!"   => \$debugimap,
-+				   "verbose!"    => \$verbose,
-                                    "host1=s"     => \$host1,
-                                    "host2=s"     => \$host2,
-                                    "port1=i"     => \$port1,
-                                    "port2=i"     => \$port2,
-                                    "user1=s"     => \$user1,
-                                    "user2=s"     => \$user2,
-+                                   "authusing=s" => \$authusing,
-+                                   "authmech=s"  => \$authmech,
-                                    "password1=s" => \$password1,
-                                    "password2=s" => \$password2,
-                                    "passfile1=s" => \$passfile1,
-                                    "passfile2=s" => \$passfile2,
--				   "authmd5!"    => \$authmd5,
-                                    "sep1=s"      => \$sep1,
-                                    "sep2=s"      => \$sep2,
- 				   "folder=s"    => \@folder,
-@@ -1137,7 +1133,6 @@
- 				   "regextrans2=s" => \@regextrans2,
- 				   "regexmess=s" => \@regexmess,
-                                    "delete!"     => \$delete,
--                                   "syncinternaldates!" => \$syncinternaldates,
-                                    "syncacls!"   => \$syncacls,
- 				   "maxsize=i"   => \$maxsize,
- 				   "maxage=i"    => \$maxage,
-@@ -1160,8 +1155,7 @@
- 				   "skipheader=s" => \$skipheader,
- 				   "useheader=s" => \@useheader,
- 				   "skipsize!"   => \$skipsize,
--				   "fastio1!"     => \$fastio1,
--				   "fastio2!"     => \$fastio2,
-+				   "ssl!"	  => \$usessl
-                                   );
- 	
-         $debug and print "get options: [$opt_ret]\n";
-@@ -1221,6 +1215,8 @@
-         }
- 	$s_hash->{"$key"}{'5'} = $m_md5;
- 	$s_hash->{"$key"}{'s'} = $size;
-+	$s_hash->{"$key"}{'D'} = $s_size->{$m_uid}->{"INTERNALDATE"};
-+	$s_hash->{"$key"}{'F'} = $s_size->{$m_uid}->{"FLAGS"};
- 	$s_hash->{"$key"}{'m'} = $m_uid;
- }
- 
-@@ -1253,10 +1249,10 @@
- --host2       <string> : "destination" imap server. Mandatory.
- --port2       <int>    : port to connect. Default is 143.
- --user2       <string> : user to login.   Mandatory.
-+--authusing   <string> : user to auth with (when running on behalf of another)
-+--authmech    <string> : auth mechanism to use (e.g. PLAIN, LOGIN, CRAM-MD5...)
- --password2   <string> : password for the user2. Dangerous, use --passfile2
- --passfile2   <string> : password file for the user2. Contains the password.
----noauthmd5            : don't use MD5 authentification.
----authmd5              : use MD5 authentification.
- --folder      <string> : sync only this folder.
- --folder      <string> : and this one.
- --folder      <string> : and this one, etc.
-@@ -1300,7 +1296,6 @@
-                          it will change in future releases.
- --expunge1             : expunge messages on source account.
- --expunge2             : expunge messages on target account.
----syncinternaldates    : sets the internal dates on host2 same as host1
- --buffersize  <int>    : sets the size of a block of I/O.
- --maxsize     <int>    : skip messages larger than <int> bytes
- --maxage      <int>    : skip messages older than <int> days.
-@@ -1332,14 +1327,14 @@
- --nosyncacls           : Does not synchronize acls. This is the default.
- --debug                : debug mode.
- --debugimap            : imap debug mode.
----version              : print sotfware version.
-+--verbose              : print information about each message transferred
-+--version              : print software version.
- --justconnect          : just connect to both servers and print useful
-                          information. Need only --host1 and --host2 options.
- --justfolders          : just do things about folders (ignore messages).
- --fast                 : be faster (does not sync flags).
----nofastio1            : don't use fastio with the "from" server.
----nofastio2            : don't use fastio with the "destination" server.
- --timeout     <int>    : imap connect timeout.
-+--ssl                  : use SSL connections.
- --help                 : print this.
- 
- Example: to synchronise imap account "foo" on "imap.truc.org"
diff --git a/W/patches/imapsync-1.217_tls_support.patch b/W/patches/imapsync-1.217_tls_support.patch
deleted file mode 100644
index 8f36890..0000000
--- a/W/patches/imapsync-1.217_tls_support.patch
+++ /dev/null
@@ -1,191 +0,0 @@
---- imapsync-orig	2007-03-06 13:12:23.000000000 +0000
-+++ imapsync	2008-01-19 21:20:58.000000000 +0000
-@@ -48,10 +48,11 @@
-   imapsync [--host1 server1]  [--port1 <num>]
-            [--user1 <string>] [--passfile1 <string>]
-            [--host2 server2]  [--port2 <num>]
-            [--user2 <string>] [--passfile2 <string>]
-            [--ssl1] [--ssl2]
-+           [--tls1] [--tls2]
-            [--authmech1 <string>] [--authmech2 <string>] 
-            [--noauthmd5]
-            [--folder <string> --folder <string> ...]
-            [--folderrec <string> --folderrec <string> ...]
-            [--include <regex>] [--exclude <regex>]
-@@ -157,11 +158,12 @@
- the best solution.
- 
- imasync is not totally protected against sniffers on the
- network since passwords may be transferred in plain text in
- case CRAM-MD5 is not supported by your imap servers.  Use
----ssl1 and --ssl2 to enable encryption on host1 and host2.
-+--ssl1 (or --tls1) and --ssl2 (or --tls2) to enable encryption on
-+host1 and host2.
- 
- You may authenticate as one user (typically an admin user),
- but be authorized as someone else, which means you don't
- need to know every user's personal password.  Specify
- --authuser1 "adminuser" to enable this on host1.  In this
-@@ -420,10 +422,11 @@
-         $mess_trans, $mess_skipped, $mess_skipped_dry, 
-         $timeout,   # whr (ESS/PRW)
- 	$timestart, $timeend, $timediff,
-         $timesize, $timebefore,
-         $ssl1, $ssl2,
-+        $tls1, $tls2,
-         $authuser1, $authuser2,
-         $authmech1, $authmech2,
-         $split1, $split2,
- );
- 
-@@ -493,15 +496,15 @@
- $split1 ||= 1000;
- $split2 ||= 1000;
- 
- $host1 || missing_option("--host1") ;
- # $port1 = (defined($port1)) ? $port1 : 143;
--$port1 ||= defined $ssl1 ? 993 : 143;
-+$port1 ||= (defined $ssl1 && !defined $tls1) ? 993 : 143;
- 
- $host2 || missing_option("--host2") ;
- # $port2 = (defined($port2)) ? $port2 : 143;
--$port2 ||= defined $ssl2 ? 993 : 143;
-+$port2 ||= (defined $ssl2 && !defined $tls2) ? 993 : 143;
- 
- sub connect_imap {
- 	my($host, $port, $debugimap) = @_;
- 	my $imap = Mail::IMAPClient->new();
- 	$imap->Server($host);
-@@ -593,30 +596,74 @@
- $timestart = time();
- $timebefore = $timestart;
- 
- $debugimap and print "From connection\n";
- $from = login_imap($host1, $port1, $user1, $password1, 
--		   $debugimap, $timeout, $fastio1, $ssl1, 
-+		   $debugimap, $timeout, $fastio1, $ssl1, $tls1, 
- 		   $authmech1, $authuser1);
- 
- $debugimap and print "To  connection\n";
- $to = login_imap($host2, $port2, $user2, $password2, 
--		 $debugimap, $timeout, $fastio2, $ssl2, 
-+		 $debugimap, $timeout, $fastio2, $ssl2, $tls2,
- 		 $authmech2, $authuser2);
- 
- #  history
- 
- $debug and print "From Buffer I/O : ", $from->Buffer(), "\n";
- $debug and print "To   Buffer I/O : ", $to->Buffer(), "\n";
- 
-+sub starttls {
-+  my $socket	= shift;
-+  my $banner = $socket->getline();
-+  unless ($banner =~ /^\* OK \[CAPABILITY.*STARTTLS.*\]/) {
-+    die "No STARTTLS capability: $banner";
-+  }
-+  print $socket "STARTTLS\015\012";
-+  my $txt = $socket->getline();
-+  unless($txt =~ /^STARTTLS OK/){
-+    die "Invalid response for STARTTLS: $txt\n";
-+  }
-+  unless(IO::Socket::SSL->start_SSL($socket,
-+      {SSL_startHandshake => 1, SSL_version	=>	"TLSv1",
-+             SSL_verify_depth => 1,
-+             # this would add verification of the certificate:   SSL_verify_mode  => Net::SSLeay::VERIFY_PEER(),
-+      })){
-+    die "Couldn't start TLS: ".IO::Socket::SSL::errstr()."\n";
-+  }
-+  if (ref($socket) ne "IO::Socket::SSL") {
-+    die "Socket has not been converted to SSL";
-+  }
-+  $banner;
-+}
-+
- 
- sub login_imap {
- 	my($host, $port, $user, $password, 
- 	   $debugimap, $timeout, $fastio, 
--	   $ssl, $authmech, $authuser) = @_;
-+	   $ssl, $tls, $authmech, $authuser) = @_;
- 	my ($imap);
--	if ($ssl) {
-+  if ($tls) {
-+		require IO::Socket::SSL;
-+    require Net::SSLeay;
-+
-+		my $socssl = new IO::Socket::INET("$host:$port");
-+		die "Error connecting to $host:$port: $@\n" unless $socssl;
-+		$socssl->autoflush(1);
-+		
-+    my $banner = starttls($socssl);
-+
-+		$imap = Mail::IMAPClient->new(
-+					      Socket => $socssl,
-+					      Server => $host,
-+					     );
-+
-+    # put the banner into the IMAPClient's history
-+    my $count = $imap->Count($imap->Count+1);
-+
-+    $imap->_record($count,[ $imap->_next_index($count), "OUTPUT", "$banner"] );
-+
-+  } elsif ($ssl) {
- 		require IO::Socket::SSL;
- 		my $socssl = new IO::Socket::SSL("$host:$port");
- 		die "Error connecting to $host:$port: $@\n" unless $socssl;
- 		$socssl->autoflush(1);
- 		
-@@ -635,11 +682,11 @@
- 	$imap->Uid(1);
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
- 	$timeout and $imap->Timeout($timeout);
- 	
--	if ($ssl) {
-+	if ($ssl || $tls) {
- 		$imap->State(Mail::IMAPClient::Connected);
- 	} else {
- 		$imap->connect()
- 	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
- 	}
-@@ -652,12 +699,12 @@
- 		       $imap->Server, $authmech);
- 	} else {
- 		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
- 		       $imap->Server, $authmech);
- 		if ($authmech eq 'PLAIN') {
--			print "Frequently PLAIN is only supported with SSL, ",
--			  "try --ssl1 or --ssl2 option\n";
-+			print "Frequently PLAIN is only supported with SSL or TLS, ",
-+			  "try --ssl1/--tls1 or --ssl2/--tls2 option\n";
- 		}
- 	}
- 	
- 	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
- 	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-@@ -1391,10 +1438,12 @@
- 				   "skipsize!"   => \$skipsize,
- 				   "fastio1!"     => \$fastio1,
- 				   "fastio2!"     => \$fastio2,
- 				   "ssl1!"        => \$ssl1,
- 				   "ssl2!"        => \$ssl2,
-+				   "tls1!"        => \$tls1,
-+				   "tls2!"        => \$tls2,
- 				   "authmech1=s" => \$authmech1,
- 				   "authmech2=s" => \$authmech2,
- 				   "authuser1=s" => \$authuser1,
- 				   "authuser2=s" => \$authuser2,
- 				   "split1=i"    => \$split1,
-@@ -1525,10 +1574,12 @@
- --authmech1   <string> : auth mechanism to use with host1:
-                          PLAIN, LOGIN, CRAM-MD5 etc.
- --authmech2   <string> : auth mechanism to use with host2. See --authmech1
- --ssl1                 : use an SSL connection on host1.
- --ssl2                 : use an SSL connection on host2.
-+--tls1                 : use an TLS connection on host1.
-+--tls2                 : use an TLS connection on host2.
- --folder      <string> : sync this folder.
- --folder      <string> : and this one, etc.
- --folderrec   <string> : sync this folder recursively.
- --folderrec   <string> : and this one, etc.
- --include     <regex>  : sync folders matching this regular expression
diff --git a/W/patches/imapsync-1.278.log_info_on_lost_connection.patch b/W/patches/imapsync-1.278.log_info_on_lost_connection.patch
deleted file mode 100644
index 516031f..0000000
--- a/W/patches/imapsync-1.278.log_info_on_lost_connection.patch
+++ /dev/null
@@ -1,349 +0,0 @@
---- imapsync.ORIG	2009-03-30 12:34:43.562500000 -0400
-+++ imapsync	2009-03-30 12:32:59.890625000 -0400
-@@ -70,7 +73,7 @@
-            [--minage <int>]
-            [--skipheader <regex>]
-            [--useheader <string>] [--useheader <string>]
--           [--skipsize]
-+           [--skipsize] [--allowsizemismatch]
-            [--delete] [--delete2]
-            [--expunge] [--expunge1] [--expunge2]
-            [--subscribed] [--subscribe]
-@@ -454,7 +457,7 @@
-         $fastio1, $fastio2, 
- 	$maxsize, $maxage, $minage, 
-         $skipheader, @useheader,
--        $skipsize, $foldersizes, $buffersize,
-+        $skipsize, $allowsizemismatch, $foldersizes, $buffersize,
- 	$delete, $delete2,
-         $expunge, $expunge1, $expunge2, $dry,
-         $justfoldersizes,
-@@ -795,20 +798,16 @@
- 	$imap->Authuser($authuser);
- 	$imap->Password($password);
- 	unless ($imap->login()) {
--		print "Error login: [$host] with user [$user] auth [$authmech]: $@\n";
- 		my $info  = "Error login: [$host] with user [$user] auth";
- 		my $einfo = $imap->LastError || @{$imap->History}[-1];
- 		chomp($einfo);
- 		my $error = "$info [$authmech]: $einfo\n";
- 		print $error; # note: duplicating error on stdout/stderr
--		die $error if ($authmech eq 'LOGIN' or $imap->IsUnconnected() or
--$authuser);
--		die if ($authmech eq 'LOGIN');
--		die if $imap->IsUnconnected();
-+		die $error if ($authmech eq 'LOGIN' or $imap->IsUnconnected() or $authuser);
- 		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
- 		$imap->Authmechanism("");
- 		$imap->login() or
--		  die "Error login: [$host] with user [$user] auth [LOGIN]: $@";
-+		  die "$info [LOGIN]: ", $imap->LastError, "\n";
- 	}
- 	print "Success login on [$host] with user [$user] auth [$authmech]\n";
- 	return($imap);
-@@ -1294,8 +1293,8 @@
- 	$t_fold = to_folder_name($f_fold);
- 	print "To   Folder [$t_fold]\n";
- 
--	last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--	last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+	last FOLDER if $from->IsUnconnected();
-+	last FOLDER if   $to->IsUnconnected();
- 
- 	unless ($from->select($f_fold)) {
- 		warn 
-@@ -1343,8 +1342,8 @@
- 	
- 	next FOLDER if ($justfolders);
- 
--	last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--	last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+	last FOLDER if $from->IsUnconnected();
-+	last FOLDER if   $to->IsUnconnected();
- 
- 	my @f_msgs = select_msgs($from);
- 
-@@ -1361,33 +1360,40 @@
- 	my %t_hash = ();
- 	
- 	print "++++ From [$f_fold] Parse 1 ++++\n";
--	last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--	last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+	last FOLDER if $from->IsUnconnected();
-+	last FOLDER if   $to->IsUnconnected();
- 
- 	my $f_heads = $from->parse_headers([@f_msgs],
- 					    @useheader)if (@f_msgs) ;
- 	$debug and print "Time headers: ", timenext(), " s\n";
-+	last FOLDER if $from->IsUnconnected();
- 	my $f_fir  = $from->fetch_hash("FLAGS",
- 				       "INTERNALDATE",
- 				       "RFC822.SIZE") if (@f_msgs);
- 	$debug and print "Time fir: ", timenext(), " s\n";
--	
-+	last FOLDER if $from->IsUnconnected();
-+
- 	foreach my $m (@f_msgs) {
--		parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash);
-+		unless (parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash)) {
-+			my $f_size = $f_fir->{$m}->{"RFC822.SIZE"} || 0;
-+			print "+ Skipping msg #$m:$f_size in folder $f_fold (no header so we ignore this message)\n";
-+			$mess_size_total_skipped += $f_size;
-+			$mess_skipped += 1;
-+		}
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	
- 	print "++++ To   [$t_fold] Parse 1 ++++\n";
--	last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--	last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
- 
- 	my $t_heads =   $to->parse_headers([@t_msgs],
- 					    @useheader) if (@t_msgs);
- 	$debug and print "Time headers: ", timenext(), " s\n";
-+	last FOLDER if   $to->IsUnconnected();
- 	my $t_fir  =   $to->fetch_hash("FLAGS",
- 				       "INTERNALDATE",
- 				       "RFC822.SIZE") if (@t_msgs);
- 	$debug and print "Time fir: ", timenext(), " s\n";
-+	last FOLDER if   $to->IsUnconnected();
- 	foreach my $m (@t_msgs) {
- 		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
- 	}
-@@ -1411,7 +1417,10 @@
- 			unless (exists($f_hash{$m_id})) {
- 				my $t_msg  = $t_hash{$m_id}{'m'};
- 				print "deleting message $m_id  $t_msg\n";
--				$to->delete_message($t_msg) unless ($dry);	
-+				unless ($dry) {
-+					$to->delete_message($t_msg);
-+					last FOLDER if $to->IsUnconnected();
-+				}
- 			}
- 		}
- 	}
-@@ -1432,10 +1441,18 @@
- 			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
- 			# copy
- 			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
--			last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--			last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+			last FOLDER if $from->IsUnconnected();
-+			last FOLDER if   $to->IsUnconnected();
- 			my $string;
- 			$string = $from->message_string($f_msg);
-+			unless (defined($string)) {
-+				warn
-+				"Could not fetch message #$f_msg from $f_fold ",
-+				$from->LastError, "\n";
-+				$error++;
-+				$mess_size_total_error += $f_size;
-+				next MESS;
-+			}
- 			#print "AAAmessage_string[$string]ZZZ\n";
- 			#my $message_file = "tmp_imapsync_$$";
- 			#$from->select($f_fold);
-@@ -1514,8 +1531,8 @@
- 			
- 			my $new_id;
- 			print "flags from: [$flags_f][$d]\n";
--			last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--			last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+			last FOLDER if $from->IsUnconnected();
-+			last FOLDER if   $to->IsUnconnected();
- 			unless ($dry) {
- 				
- 				if ($OSNAME eq "MSWin32") {
-@@ -1528,6 +1545,7 @@
- 					$new_id = $to->append_string($t_fold,$string, $flags_f, $d);
- 				}
- 				unless($new_id){
-+					no warnings 'uninitialized';
- 					warn "Couldn't append msg #$f_msg (Subject:[".
- 					  $from->subject($f_msg)."]) to folder $t_fold: ",
- 					  $to->LastError, "\n";
-@@ -1544,8 +1562,12 @@
- 					$mess_trans += 1;
- 					if($delete) {
- 						print "Deleting msg #$f_msg in folder $f_fold\n";
--						$from->delete_message($f_msg) unless ($dry);
--						$from->expunge() if ($expunge and not $dry);
-+						unless($dry) {
-+							$from->delete_message($f_msg);
-+							last FOLDER if $from->IsUnconnected();
-+							$from->expunge() if ($expunge);
-+							last FOLDER if $from->IsUnconnected();
-+						}
- 					}
- 				}
- 			}
-@@ -1568,8 +1590,8 @@
- 		
- 		
- 		$debug and print "Setting flags\n";
--		last FOLDER if (lost_connection($from,"(from) host1 [$host1]"));
--		last FOLDER if (lost_connection($to,"(to) host2 [$host2]"));
-+		last FOLDER if $from->IsUnconnected();
-+		last FOLDER if   $to->IsUnconnected();
- 
- 
- 		my (@flags_f,@flags_t);
-@@ -1585,8 +1607,11 @@
- 		$to->store($t_msg,
- 			   "+FLAGS.SILENT (" . $flags_f . ")"
- 			  ) unless ($dry);
-+		last FOLDER if   $to->IsUnconnected();
- 		
- 		my $flags_t_rv = $to->flags($t_msg);
-+		last FOLDER if   $to->IsUnconnected();
-+
- 		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
- 		my $flags_t = join(" ", @flags_t);
- 		$debug and print 
-@@ -1618,6 +1643,7 @@
- 			if ($opt_G){
- 				print "Deleting msg f:#$t_msg in folder $t_fold\n";
- 				$to->delete_message($t_msg) unless ($dry);
-+				last FOLDER if   $to->IsUnconnected();
- 			}
- 		}
- 		else {
-@@ -1626,8 +1652,12 @@
- 			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			if($delete) {
- 				print "Deleting msg #$f_msg in folder $f_fold\n";
--				$from->delete_message($f_msg) unless ($dry);
--				$from->expunge() if ($expunge and not $dry);
-+				unless($dry) {
-+					$from->delete_message($f_msg);
-+					last FOLDER if $from->IsUnconnected();
-+					$from->expunge() if ($expunge);
-+					last FOLDER if $from->IsUnconnected();
-+				}
- 			}
- 		}
- 	}
-@@ -1656,15 +1686,25 @@
- 	my($imap, $error_message) = @_;
- 	if ( $imap->IsUnconnected() ) {
- 		$error++;
--		warn("error: lost connection $error_message\n");
-+		my $einfo = $imap->LastError || @{$imap->History}[-1] || "";
-+		my $sz = 64;
-+		# if einfo is long try reduce to a more reasonable size
-+		if ( ! $debug and length($einfo) > $sz*2 ) {
-+			my $beg = substr($einfo, 0, $sz);
-+			my $end = substr($einfo, -$sz, $sz);
-+			$einfo = $beg . "..." . $end;
-+		}
-+		chomp($einfo);
-+		$einfo = ": $einfo" if $einfo;
-+		warn("error: lost connection $error_message $einfo\n");
- 		return(1);
- 	}else{
- 		return(0);
- 	}
- }
- 
--$from->logout() unless $from->isUnconnected();
--$to->logout()   unless $to->isUnconnected();
-+$from->logout() unless (lost_connection($from,"(from) host1 [$host1]"));
-+$to->logout()   unless (lost_connection($to,"(to) host2 [$host2]"));
- 
- $timeend = time();
- 
-@@ -1789,6 +1829,7 @@
- 				   "skipheader=s" => \$skipheader,
- 				   "useheader=s" => \@useheader,
- 				   "skipsize!"   => \$skipsize,
-+				   "allowsizemismatch!" => \$allowsizemismatch,
- 				   "fastio1!"     => \$fastio1,
- 				   "fastio2!"     => \$fastio2,
- 				   "ssl1!"        => \$ssl1,
-@@ -2037,6 +2078,9 @@
-                          Ex: Message-ID or Subject or Date.
- --useheader   <string>   and this one, etc.
- --skipsize             : Don't take message size into account.
-+--allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-+                         consider --skipsize to avoid duplicate messages
-+                         when running syncs more than one time per mailbox
- --dry                  : do nothing, just print what would be done.
- --subscribed           : transfers subscribed folders.
- --subscribe            : subscribe to the folders transferred on the 
-@@ -2648,20 +2692,8 @@
- 	return $self->{SSL};
- };
- 
--{
--no warnings 'once';
--*Mail::IMAPClient::Authuser = sub {
--	my $self = shift;
--	
--	if (@_) { $self->{AUTHUSER} = shift }
--	return $self->{AUTHUSER};
--};
--}
--
--# End of sub override_imapclient (yes, very bad indentation)
- }
- 
--# *Mail::IMAPClient::connect = sub {
- sub myconnect {
- 	my $self = shift;
- 	
-@@ -2691,20 +2723,22 @@
- 	$self->Socket($sock);
- 	if ( $Mail::IMAPClient::VERSION =~ /^2/ ) {
- 	    return undef unless myconnect_v2($self);
--        }
--        if ($self->User and $self->Password) {
-- 	       return $self->login ;
--        } 
--        else {
-- 	       return $self;   
--        }
-+	}
-+	else {
-+		$self->Ignoresizeerrors($allowsizemismatch);
-+	}
-+	if ($self->User and $self->Password) {
-+		return $self->login ;
-+	} 
-+	else {
-+		return $self;	
-+	}
- }
- 
- 	
- sub myconnect_v2 {
--        my $self = shift;	
-+	my $self = shift;
- 	$self->State(Connected);
--	# $sock->autoflush(1);
- 	$self->Socket->autoflush(1);
- 	my ($code, $output);
-         $output = "";
-@@ -2719,9 +2753,23 @@
-                 }
- 
-         }
-+
-+	if ($code =~ /BYE|NO /) {
-+		$self->State(Unconnected);
-+		return undef ;
-+	}
- 	return $self;
- }
- 
-+# HACK: Mail::IMAPClient 2.2.9 does not have Authuser, but 3.x does
-+# - avoid warning: "Mail::IMAPClient::Authuser" used only once w/2.x too
-+$Mail::IMAPClient::Authuser = $Mail::IMAPClient::Authuser = sub {
-+	my $self = shift;
-+	
-+	if (@_) { $self->{AUTHUSER} = shift }
-+	return $self->{AUTHUSER};
-+} if ( $Mail::IMAPClient::VERSION =~ /^2/ );
-+
- package Mail::IMAPClient;
- 
- 
diff --git a/W/patches/imapsync-1.337_tobit_V6.patch b/W/patches/imapsync-1.337_tobit_V6.patch
deleted file mode 100644
index 60ecc84..0000000
--- a/W/patches/imapsync-1.337_tobit_V6.patch
+++ /dev/null
@@ -1,45 +0,0 @@
---- imapsync-1.337      2010-08-02 13:56:06.000000000 +0200
-+++ imapsync-1.337_tobit-workaround     2010-08-02 13:53:58.000000000 +0200
-@@ -3821,6 +3821,7 @@
-   $banner;
- }
- 
-+
- # IMAPClient 2.2.9 3.xx ads
- 
- package Mail::IMAPClient;
-@@ -3869,3 +3870,33 @@
-     #$self->Fast_io( $self->Fast_io );
-     $sock;
- }
-+
-+sub search {
-+    my ( $self, @args ) = @_;
-+
-+    @args = $self->_quote_search(@args);
-+
-+    $self->_imap_uid_command( SEARCH => @args )
-+      or return undef;
-+
-+    my @hits;
-+    foreach ( $self->History ) {
-+        chomp;
-+        s/$CR?$LF$//o;
-+        s/^(\s*\d+)/* SEARCH $1/;
-+        s/^\*\s+SEARCH\s+(?=.*?\d)// or next;
-+        push @hits, grep /^\d+$/, split;
-+    }
-+
-+    @hits
-+      or $self->_debug("Search successful but found no matching messages");
-+
-+    # return empty list
-+    return
-+        wantarray     ? @hits
-+      : !@hits        ? \@hits
-+      : $self->Ranges ? $self->Range( \@hits )
-+      :                 \@hits;
-+}
-+
-+
-
diff --git a/W/patches/imapsync-1.94-foldersizes.diff b/W/patches/imapsync-1.94-foldersizes.diff
deleted file mode 100644
index 385d374..0000000
--- a/W/patches/imapsync-1.94-foldersizes.diff
+++ /dev/null
@@ -1,77 +0,0 @@
---- imapsync	Mon Jun 14 20:43:03 2004
-+++ imapsync-mod	Sun Jun 27 22:57:55 2004
-@@ -49,6 +49,7 @@
-            [--skipsize]
-            [--delete] [--expunge]
-            [--subscribed] [--subscribe]
-+           [--foldersizes]
-            [--dry]
-            [--debug] [--debugimap]
-            [--timeout <int>]
-@@ -294,7 +295,7 @@
-         $sep1, $sep2,
- 	$syncinternaldates,
- 	$maxsize, $maxage,
--        $skipheader, $skipsize,
-+        $skipheader, $skipsize, $foldersizes,
- 	$delete, $expunge, $dry, 
-         $authmd5,
-         $subscribed, $subscribe,
-@@ -535,6 +536,39 @@
- print "From separator : [$f_sep]\n";
- print "To   separator : [$t_sep]\n";
- 
-+if ($foldersizes)
-+{
-+    my $tot = 0;
-+    my $tmess = 0;
-+    print "Calculating sizes...\n";
-+    foreach my $f_fold (@f_folders)
-+    {
-+        print "From Folder [$f_fold]\n";
-+        my $stot = 0;
-+        my $smess = 0;
-+	unless ($from->select($f_fold)) {
-+		warn 
-+		"From Folder $f_fold : Could not select ",
-+		$from->LastError,  "\n";
-+		$error++;
-+		next;
-+	}
-+        my $szs = $from->fetch_hash("RFC822.SIZE") || (warn("Can't get sizes for $f_fold: ",$from->LastError),$error++,next);
-+        my ($k,$v);
-+        while (($k,$v) = each(%$szs))
-+        {
-+            $stot += $v->{'RFC822.SIZE'};
-+            $smess++;
-+        }
-+        print "Size of $f_fold: $stot\n";
-+        print "Messages in $f_fold: $smess\n";
-+        $tot += $stot;
-+        $tmess += $smess;
-+    }
-+    print "Total size: $tot\n";
-+    print "Total messages: $tmess\n";
-+}
-+
- exit if ($justconnect);
- 
- # needed for setting flags
-@@ -789,6 +823,7 @@
-                                    "syncinternaldates!" => \$syncinternaldates,
- 				   "maxsize=i"   => \$maxsize,
- 				   "maxage=i"    => \$maxage,
-+				   "foldersizes"   => \$foldersizes,
-                                    "dry!"        => \$dry,
-                                    "expunge!"    => \$expunge,
-                                    "subscribed!" => \$subscribed,
-@@ -918,6 +953,9 @@
- --subscribe            : subscribe to the folders transfered on the 
-                          "destination" server that are subscribed
-                          on the "source" server.
-+--foldersizes          : Discover the size of each "From" folder in bytes
-+                         and message counts. Meant to be used with
-+                         --justconnect.
- --debug                : debug mode.
- --debugimap            : imap debug mode.
- --version              : print sotfware version.
diff --git a/W/patches/imapsync-acls-users b/W/patches/imapsync-acls-users
deleted file mode 100644
index 902c887..0000000
--- a/W/patches/imapsync-acls-users
+++ /dev/null
@@ -1,57 +0,0 @@
-Hi Gilles,
-
-I have used your imapsync program many times over the past few months
-and it has been a great help in our mail server migration, so first of
-all: Thank you! :-)
-
-However, with the latest task, I ran into a problem: I'm migrating mail
-from a Kolab 2.0.4 server to a Kolab 2.1beta2 server (both use Cyrus as
-imapd). The problem is: We're also changing domains at the same time,
-i.e. any user "NAME@OLD.DOMAIN" on the old server becomes
-"NAME@NEW.DOMAIN" on the new server. When transferring mail, this
-doesn't have any bad influence, but it does lead to problems when trying
-to sync ACLs as well. Right now, imapsync will take the ACLs, compare
-the folder on the old and the new server and will then happily set the
-ACL for "NAME@NEW.DOMAIN" on the new server to "none" (because it
-doesn't exist on the old server) and then try to set the ACLs for
-"NAME@OLD.DOMAIN" on the new server - which a) fails (it just removed
-the access for NAME@NEW.DOMAIN - hence, the user cannot access his own
-mailbox anymore) and b) is not desirable anyway (only "NAME@NEW.DOMAIN"
-should have permissions).
-
-So, basically, what I need is an option to tell imapsync that the domain
-is changing and have it replace the domain in all user names that are
-related to ACLs. Right now, I've solved this by crudely patching the
-"acls_sync" subroutine:
-
-sub acls_sync {
-        my($f_fold, $t_fold) = @_;
-[...]
-               foreach my $user (sort(keys(%users))) {
-                        my $acl = $f_hash->{$user} || "none";
-                        if ($user eq $user2)
-                          {
-                            # the user we use to log in as on the target
-                            # server gets "all" permissions always
-                            $acl = "lrswipcda";
-                          }
-                        my $new_user = $user;
-                        $new_user =~ s/OLD.DOMAIN/NEW.DOMAIN/g;
-
-                        print "acl $user -> $new_user : [$acl]\n";
-                        next if ($f_hash->{$user} && $t_hash->{$new_user} &&
-                                 $f_hash->{$user} eq $t_hash->{$new_user});
-                        unless ($dry) {
-                                print "setting acl $t_fold $new_user $acl\n";
-                                $to->setacl($t_fold, $new_user, $acl)
-                                  or warn "Could not set acl: $@\n";
-                        }
-                }
-[...]
-
-but this is really just a hack to suit my current needs. Maybe you could
-consider adding something more refined than this hack in a future release? :-)
-
-Best regards,
-
-Thomas
diff --git a/W/patches/imapsync-base64.patch b/W/patches/imapsync-base64.patch
deleted file mode 100644
index e15ac9e..0000000
--- a/W/patches/imapsync-base64.patch
+++ /dev/null
@@ -1,12 +0,0 @@
-diff -u -r imapsync-1.182/imapsync imapsync-1.182-base64-fix/imapsync
---- imapsync-1.182/imapsync	2006-08-01 16:07:42.000000000 -0700
-+++ imapsync-1.182-base64-fix/imapsync	2006-09-27 16:09:59.000000000 -0700
-@@ -635,7 +635,7 @@
- 
-         my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                             $imap->Authuser, $imap->Password);
--        return encode_base64("$string");
-+        return encode_base64("$string", "");
- }
- 
- 
diff --git a/W/patches/imapsync-buffersize.diff b/W/patches/imapsync-buffersize.diff
deleted file mode 100644
index 3bc0b34..0000000
--- a/W/patches/imapsync-buffersize.diff
+++ /dev/null
@@ -1,35 +0,0 @@
---- imapsync.orig	Mon May  9 12:03:59 2005
-+++ imapsync	Mon May  9 12:07:05 2005
-@@ -44,6 +44,7 @@
-            [--sep1 <char>]
-            [--sep2 <char>]
-            [--syncinternaldates]
-+           [--buffersize <int>]
- 	   [--maxsize <int>]
- 	   [--maxage <int>]
-            [--skipheader <regex>]
-@@ -312,6 +313,7 @@
-         $sep1, $sep2,
- 	$syncinternaldates, $syncacls,
- 	$maxsize, $maxage,
-+	$buffersize,
-         $skipheader, $skipsize, $foldersizes,
- 	$delete, $expunge, $dry, 
-         $authmd5,
-@@ -450,7 +452,7 @@
- 	$imap->Server($host);
- 	$imap->Port($port);
- 	$imap->Fast_io(1);
--	$imap->Buffer(65536);
-+	$imap->Buffer($buffersize || 65536);
- 	$imap->Uid(1);
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
-@@ -979,6 +981,7 @@
-                                    "syncacls!"   => \$syncacls,
- 				   "maxsize=i"   => \$maxsize,
- 				   "maxage=i"    => \$maxage,
-+				   "buffersize=i"   => \$buffersize,
- 				   "foldersizes!"   => \$foldersizes,
-                                    "dry!"        => \$dry,
-                                    "expunge!"    => \$expunge,
diff --git a/W/patches/imapsync-pb-acl.diff b/W/patches/imapsync-pb-acl.diff
deleted file mode 100644
index a28b752..0000000
--- a/W/patches/imapsync-pb-acl.diff
+++ /dev/null
@@ -1,58 +0,0 @@
---- imapsync.orig	Fri Apr 22 03:12:18 2005
-+++ imapsync	Mon May  2 11:16:51 2005
-@@ -580,7 +580,7 @@
- 	foreach my $f_fold (@f_folders)     {
- 		my $stot = 0;
- 		my $smess = 0;
--		printf("From Folder %-25s", "[$f_fold]");
-+		printf("From Folder %-35s", "[$f_fold]");
- 		unless ($from->select($f_fold)) {
- 			warn 
- 			  "From Folder $f_fold : Could not select ",
-@@ -694,6 +694,25 @@
- 		}
- 	}
-     
-+	if ($syncacls) {
-+	  my $f_hash = $from->getacl($f_fold)
-+	    or warn "Could not getacl for $f_fold: $@\n";
-+	  my $t_hash = $to->getacl($t_fold)
-+	    or warn "Could not getacl for $t_fold: $@\n";
-+	  my %users = map({ ($_, 1) } (keys(%$f_hash), keys(%$t_hash)));
-+	  foreach my $user (sort(keys(%users))) {
-+	    my $acl = $f_hash->{$user} || "none";
-+	    print "acl $user : [$acl]\n";
-+	    next if ($f_hash->{$user} && $t_hash->{$user} &&
-+		$f_hash->{$user} eq $t_hash->{$user});
-+	    unless ($dry) {
-+	      print "setting acl $t_fold $user $acl\n";
-+	      $to->setacl($t_fold, $user, $acl)
-+		or warn "Could not set acl: $@\n";
-+	    }
-+	  }
-+	}
-+	
- 	unless ($to->select($t_fold)) { 
- 		warn 
- 		"To   Folder $t_fold : Could not select ",
-@@ -711,20 +730,6 @@
- 	if ($subscribe and exists $fs_folders{$f_fold}) {
- 		print "Subscribing to folder $t_fold on destination server\n";
- 		unless($dry) { $to->subscribe($t_fold) };
--	}
--	
--	if ($syncacls) {
--	  my $hash = $from->getacl($f_fold)
--	    or warn "Could not getacl for $f_fold: $@\n";
--	  foreach my $user (keys(%$hash)) {
--	    my $acl = $hash->{$user};
--	    print "acl $user : " . $acl . "\n";
--	    unless ($dry) {
--	      print "setting acl $t_fold $user $acl\n";
--	      $to->setacl($t_fold, $user, $acl)
--		or warn "Could not set acl: $@\n";
--	    }
--	  }
- 	}
- 	
- 	next FOLDER if ($justfolders);
diff --git a/W/patches/imapsync-readkey b/W/patches/imapsync-readkey
deleted file mode 100644
index d3f7274..0000000
--- a/W/patches/imapsync-readkey
+++ /dev/null
@@ -1,1175 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 NAME 
-
-imapsync - IMAP synchronization, copy or migration
-tool. Synchronize mailboxes between two imap servers. Good
-at IMAP migration.
-
-$Revision: 1.1 $
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS.
- imapsync works fine under Windows 2000 (at least) and ActiveState's 5.8 Perl
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/dist/
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want :
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL
- file.
-
- The freshmeat record is http://freshmeat.net/projects/imapsync/
-
-=head1 SYNOPSIS
-
-  imapsync [options]
-
-  imapsync --help
-  imapsync
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>] 
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>] 
-           [--folder <string> --folder <string> ...]
-	   [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--syncinternaldates]
-	   [--maxsize <int>]
-	   [--maxage <int>]
-           [--skipheader <regex>]
-           [--skipsize]
-           [--delete] [--expunge]
-           [--subscribed] [--subscribe]
-           [--foldersizes]
-           [--dry]
-           [--debug] [--debugimap]
-           [--timeout <int>]
-           [--version] [--help]
-  
-=cut
-# comment
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and recursive 
-imap transfer from one mailbox to another.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is the adequate tool because it reduces the amount
-of data transfered by not transfering a given message if it
-is already on both sides. Same headers, same message size
-and the transfert is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfert at any
-time and restart it later, imapsync is adapted to a bad
-connection.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfert (it is a good feature when migrating).
-In that case, use the --delete option, and run imapsync again
-with the --expunge option.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A.
-
-=head1 OPTIONS
-
-Invoke: imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without loosing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwith link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transfered and delete it after a good
-transfert. imapsync started its life being a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLES
-
-While working on imapsync parameters please run imapsync in dry mode (no
-modification induced) with the --dry option. Nothing bad can be done
-this way.
-
-To synchronize the imap account "buddy" on host "imap.src.fr" to the
-imap account "max" on host "imap.dest.fr" (the passwords are located
-in too files "/etc/secret1" for "buddy", "/etc/secret2" for "max") :
-
- imapsync --host1 imap.src.fr  --user1 buddy --passfile1 /etc/secret1 \
-          --host2 imap.dest.fr --user2 max   --passfile2 /etc/secret2
-
-Then, you will have buddy's mailbox updated from max's mailbox.
-
-=head1 SECURITY
-
-You can use --password1 instead of --passfile1 to give the
-password but it is dangerous because any user on your host
-can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not protected against sniffers on the network so
-the passwords are in plain text.
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have a buggy internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 AUTHOR
-
-Gilles LAMIRAL lamiral@linux-france.org
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by
-the GNU General Public License. See the GPL file included in
-the distribution or the web site
-http://www.gnu.org/licenses/licenses.html
-
-=head1 BUGS
-
-No known serious bug.
-
-Multiple copies: Multiple copies of the emails on the
-destination server. Some IMAP servers (Domino for example)
-add some headers for each message transfered. The message is
-transfered again and again each time you run imapsync. This
-is bad of course. The explanation is that imapsync considers
-the message is not the same since headers have changed (one
-line added) and size too (the header part). You can look at
-the headers found by imapsync by using the --debug option
-(and search for the message on both part). The way to avoid
-this problem is by using options --skipheader and
---skipsize, like this (avoid headers beginning whith X-):
-
- imapsync ... --skipheader '^X-' --skipsize
-
-You can use --skipheader only one time; if you need to skip
-several different headers use the "or" perl regex caracter
-which is "|". Example:
-
- imapsync ... --skipheader '^X-|^Status|^Bcc'
-
-Flags : with some IMAP servers the flags are not very well
-copied the first time.  Run imapsync twice if you want the
-flags set correctly.  (fixed since 1.28 release but wait for
-a time before removing those lines)
-
-Report any bugs to the author: lamiral@linux-france.org
-
-=head1 IMAP SERVERS
-
-Success stories reported (softwares in alphabetic order) : 
-
- - BincImap 1.2.3
- - CommunicatePro server (Redhat 8.0)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16,
-   2.2.1, 2.2.2-BETA, 2.2.10
- - DBMail 1.2.1
- - Dovecot 0.99.10.4
- - Domino (Notes) 6.5, 5.0.6
- - iPlanet Messaging server 4.15, 5.1
- - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1
- - MS Exchange Server 5.5
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenWave
- - Qualcomm Worldmail (NT)
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh)
- - UW - QMail v2.1
-
-Please report to the author any success or bad story with
-imapsync and don't forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- From software :* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- To   software :* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-
-And please rate imapsync at http://freshmeat.net/projects/imapsync/
-
-=head1 HUGE MIGRATION
-
-
-Have a special attention on options 
---subscribed
---subscribe
---delete
---expunge
---maxage
---maxsize
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file content is :
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just :
-
-{ while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 $u1 --password1 $p1 --user2 $u2 --password2 $p2 ...
-done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the GPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  offlineimap : http://gopher.quux.org:70/devel/offlineimap/
-  mailsync    : http://mailsync.sourceforge.net/
-  imapxfer    : http://www.washington.edu/imap/
-                part of the imap-utils from UW.
-  mailutil    : replace imapxfer in 
-                part of the imap-utils from UW.
-		http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl    : http://www.bl0rg.net/software/
-                http://freshmeat.net/projects/imap-repl/
-  imap_migrate: http://freshmeat.net/projects/imapmigration/
-  imapcopy    : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool http://sourceforge.net/projects/migrationtool/
-  pop2imap    : http://www.linux-france.org/prj/pop2imap/
-
-Feedback (good or bad) will be always welcome.
-
-=head1 AUTHOR
-
-Gilles LAMIRAL earn his living writing, installing,
-configuring and teaching free open and gratis
-softwares. Don't hesitate to pay him for that services.
-
-$Id: imapsync.pl,v 1.1 2005/04/12 00:34:19 cunnie Exp cunnie $
-
-=cut
-
-
-++$|;
-use strict;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-use Term::ReadKey;
-#use Digest::HMAC_MD5;
-
-eval { require 'usr/include/sysexits.ph' };
-
-
-my(
-        $rcs, $debug, $debugimap, $error,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, $include, $exclude, $prefix2, $regextrans2, @regexmess,
-        $sep1, $sep2,
-	$syncinternaldates, $syncacls,
-	$maxsize, $maxage,
-        $skipheader, $skipsize, $foldersizes,
-	$delete, $expunge, $dry, 
-        $authmd5,
-        $subscribed, $subscribe,
-	$version, $VERSION, $help, 
-        $justconnect, $justfolders,
-        $fast,
-        $mess_size_total_trans,
-        $mess_size_total_skipped,
-        $mess_size_total_error,
-        $mess_trans, $mess_skipped,
-        $timeout,   # whr (ESS/PRW)
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-
-);
-
-use vars qw ($opt_G); # missing code for this will be option.
-
-
-$rcs = ' $Id: imapsync.pl,v 1.1 2005/04/12 00:34:19 cunnie Exp cunnie $ ';
-$rcs =~ m/,v (\d+\.\d+)/;
-$VERSION = ($1) ? $1 : "UNKNOWN";
-
-my $VERSION_IMAPClient = $Mail::IMAPClient::VERSION;
-
-my $md5_supported = 0;
-$md5_supported = md5_supported();
-
-$mess_size_total_trans   = 0;
-$mess_size_total_skipped = 0;
-$mess_size_total_error   = 0;
-$mess_trans = $mess_skipped = 0;
-
-sub md5_supported {
-	
-	
-	# before 2.2.6 no md5 native
-	# I know this is ugly, I should write a sort function
-	if ($VERSION_IMAPClient =~ m/(\d+)\.(\d+)\.(\d+)/) {
-		$debug and print "VERSION_IMAPClient $1 $2 $3\n";
-		my($major,$minor,$sub) = ($1, $2, $3);
-		return(1) if($major >=3);
-		return(0) if($major <=1);
-		return(1) if($minor >=3);
-		return(0) if($minor <=1);
-		return(1) if($sub >=6);
-		return(0) if($sub <=5);
-	}else{
-		return 0; # don't match regex => bad
-	}
-}
-
-$error=0;
-
-my $banner = join("", 
-		  '$RCSfile: imapsync.pl,v $ ',
-		  '$Revision: 1.1 $ ',
-		  '$Date: 2005/04/12 00:34:19 $ ',
-		  "\n",
-		  "Mail::IMAPClient version used here is ",
-		  $VERSION_IMAPClient, " auth md5 : $md5_supported",
-		  "\n"
-		 );
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-get_options();
-print $banner;
-
-sub missing_option {
-	my ($option) = @_;
-	die "$option option must be used, run $0 --help for help\n";
-}
-
-$host1 || missing_option("--host1") ;
-$port1 = (defined($port1)) ? $port1 : 143;
-$user1 || missing_option("--user1");
-
-$host2 || missing_option("--host2") ;
-$port2 = (defined($port2)) ? $port2 : 143;
-$user2 || missing_option("--user2");
-
-$authmd5 = (defined($authmd5)) ? $authmd5 : 1;
-
-$syncacls = (defined($syncacls)) ? $syncacls : 1;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-print "From imap server [$host1] port [$port1] user [$user1]\n";
-print "To   imap server [$host2] port [$port2] user [$user2]\n";
-
-$password1 || $passfile1 || do {
-	print "What's the password for $user1\@$host1? ";
-	ReadMode 2;
-	$password1 = <>; chop $password1;
-	printf "\n"; ReadMode 0;
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	print "What's the password for $user2\@$host2? ";
-	ReadMode 2;
-	$password2 = <>; chop $password2;
-	printf "\n"; ReadMode 0;
-};
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-my $from = ();
-my $to = ();
-
-my $authmech = "CRAM-MD5";
-
-unless ($md5_supported) {
-		print "Auth $authmech not supported by IMAPClient $VERSION_IMAPClient\n";
-	}else{
-		print "Auth $authmech supported by IMAPClient $VERSION_IMAPClient\n";	
-	}
-
-$timestart = time();
-$timebefore = $timestart;
-
-$debugimap and print "From connection\n";
-$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout);
-
-$debugimap and print "To  connection\n";
-$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout);
-
-sub login_imap {
-	my($host, $port, $user, $password, 
-	   $debugimap, $timeout, $authmech) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io(1);
-	$imap->Buffer(65536);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$imap->connect()
-	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-    if ($timeout)    # whr (ESS/PRW)
-    {
-        $imap->Timeout($timeout);
-        print "Setting imap timeout to $timeout\n";
-    }
-
-	$imap->User($user);
-	$imap->Password($password);
-	md5auth($imap);
-	$imap->login() or die "Error login : [$host] with user [$user] : $@";
-	return($imap);
-}
-
-
-sub md5auth() {
-	my ($imap) = @_;
-	unless ($md5_supported) {
-		return;
-	}
-	unless ($authmd5) {
-		print "$authmech not wanted by you\n";
-		return;
-	}
-	if ($imap->has_capability($authmech) 
-	    or $imap->has_capability("AUTH=$authmech")) {
-		print "Server [", $imap->Server, 
-		  "] has capability $authmech\n";
-	}else{
-		print "Server [", $imap->Server, 
-		  "] has NOT capability $authmech\n";
-		return;
-	}
-	#print "EE", $imap->Authmechanism(), "\n";
-	if ($imap->Authmechanism($authmech)) {
-		print "Using $authmech authentification\n";
-	}else{
-		$imap->Authmechanism(undef);
-		print "Can NOT use $authmech authentification, using plain\n";
-	}
-	return;
-}
-
-
-print "From software : ", ($from->Report())[0];
-print "To   software : ", ($to->Report())[0];
-
-print "From capability : ", join(" ", $from->capability()), "\n";
-print "To   capability : ", join(" ", $to->capability()), "\n";
-
-die unless $from->IsAuthenticated();
-die unless   $to->IsAuthenticated();
-
-my (@f_folders, @t_folders, %fs_folders);
-
-# Make a hash of subscribed folders in source server.
-map { $fs_folders{$_}=1 } $from->subscribed();
-
-
-
-
-if (scalar(@folder)) {
-	# folders given by option --folder
-	@f_folders = @folder;
-}elsif ($subscribed) {
-	# option --subscribed
-	@f_folders = sort keys (%fs_folders);
-}else {
-	# no option, all folders
-	@f_folders = sort $from->folders();
-	# consider (optional) includes and excludes
-	if ($include) {
-		@f_folders = grep  /$include/,@f_folders;
-		print "Only including folders matching pattern '$include'\n";
-	}
-	if ($exclude) {
-		@f_folders = grep !/$exclude/,@f_folders;
-		print "Excluding folders matching pattern '$exclude'\n";
-	}
-}
-
-@t_folders = sort @{$to->folders()};
-
-my($f_sep,$t_sep); 
-# what are the private folders separators for each server ?
-
-
-$debug and print "Getting separators\n";
-$f_sep = get_separator($from, $sep1, "--sep1");
-$t_sep = get_separator($to, $sep2, "--sep2");
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ($sep_in) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out);
-	}else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator caracter with the $sep_opt option\n";
-		exit(1);
-	}
-}
-
-
-print "From separator : [$f_sep]\n";
-print "To   separator : [$t_sep]\n";
-
-if ($foldersizes) {
-	my $tot = 0;
-	my $tmess = 0;
-	print "++++ Calculating sizes ++++\n";
-	foreach my $f_fold (@f_folders)     {
-		my $stot = 0;
-		my $smess = 0;
-		printf("From Folder %-25s", "[$f_fold]");
-		unless ($from->select($f_fold)) {
-			warn 
-			  "From Folder $f_fold : Could not select ",
-			    $from->LastError,  "\n";
-			$error++;
-			next;
-		}
-		if ($maxage) {
-			# The pb is fetch_hash() can only be applied on ALL messages
-		
-			my @f_msgs = $from->since(time - 86400 * $maxage);
-			my $smess = scalar(@f_msgs);
-			foreach my $m (@f_msgs) {
-				my $s = $from->size($m)
-				  or warn "Could not find size of message $m: $@\n";
-				$stot += $s;
-			}
-		}else{
-			my $hashref = {};
-			$smess = $from->message_count();
-			unless ($smess == 0) {
-				$from->fetch_hash("RFC822.SIZE",$hashref);
-				#print map {$hashref->{$_}->{"RFC822.SIZE"}, " "} keys %$hashref;
-				map {$stot += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
-			}
-		}
-		printf(" Size: %9s", $stot);
-		printf(" Messages: %5s\n", $smess);
-		$tot += $stot;
-		$tmess += $smess;
-	}
-	print "Total size: $tot\n";
-	print "Total messages: $tmess\n";
-	print "Time : ", timenext(), " s\n";
-	
-}
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-exit if ($justconnect);
-
-# needed for setting flags
-my $tohasuidplus = $to->has_capability("UIDPLUS");
-
-
-
-print 
-  "From folders : ", map("[$_] ",@f_folders),"\n",
-  "To   folders : ", map("[$_] ",@t_folders),"\n";
-
-print 
-  "From subscribed folders : ", map("[$_] ", sort keys(%fs_folders)), "\n";
-
-sub separator_invert {
-	# The separator we hope we'll never encounter
-	my $o_sep="\000";
-
-	my($f_fold, $f_sep, $t_sep) = @_;
-
-	my $t_fold = $f_fold;
-	$t_fold =~ s@\Q$t_sep@$o_sep@g;
-	$t_fold =~ s@\Q$f_sep@$t_sep@g;
-	$t_fold =~ s@\Q$o_sep@$f_sep@g;
-	return($t_fold);
-}
-
-FOLDER: foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	
-	$t_fold = separator_invert($f_fold,$f_sep, $t_sep);
-
-	# Adding the prefix supplied by the --prefix2 option
-	$t_fold = $prefix2 . $t_fold if ($prefix2);
-
-	# Transforming the folder name by the --regextrans2 option
-	if ($regextrans2) {
-		$debug and print "eval \$t_fold =~ $regextrans2\n";
-		eval("\$t_fold =~ $regextrans2");
-	}
-
-	print "To   Folder [$t_fold]\n";
-
-	unless ($from->select($f_fold)) {
-		warn 
-		"From Folder $f_fold : Could not select ",
-		$from->LastError,  "\n";
-		$error++;
-		next FOLDER;
-	}
-
-	unless ($to->exists($t_fold) or $to->select($t_fold)) { 
-		print "To   Folder $t_fold does not exist\n";
-		print "Creating folder [$t_fold]\n";
-		unless ($dry){
-			unless ($to->create($t_fold)){
-				warn "Couldn't create [$t_fold]",
-				$to->LastError,"\n";
-				$error++;
-				next FOLDER;
-			}
-		}else{
-			next FOLDER;
-		}
-	}
-    
-	unless ($to->select($t_fold)) { 
-		warn 
-		"To   Folder $t_fold : Could not select ",
-		$to->LastError, "\n";
-		$error++;
-		next FOLDER;
-	}
-	
-	if ($expunge){
-		print "Expunging $f_fold and $t_fold\n";
-		unless($dry) { $from->expunge() };
-		#unless($dry) { $to->expunge() };
-	}
-	
-	if ($subscribe and exists $fs_folders{$f_fold}) {
-		print "Subscribing to folder $t_fold on destination server\n";
-		unless($dry) { $to->subscribe($t_fold) };
-	}
-	
-	if ($syncacls) {
-	  my $hash = $from->getacl($f_fold)
-	    or warn "Could not getacl for $f_fold: $@\n";
-	  foreach my $user (keys(%$hash)) {
-	    my $acl = $hash->{$user};
-	    print "acl $user : " . $acl . "\n";
-	    unless ($dry) {
-	      print "setting acl $t_fold $user $acl\n";
-	      $to->setacl($t_fold, $user, $acl)
-		or warn "Could not set acl: $@\n";
-	    }
-	  }
-	}
-	
-	next FOLDER if ($justfolders);
-
-	my @f_msgs = $maxage ? $from->since(time - 86400 * $maxage) : $from->search("ALL");
-	$debug and print "LIST FROM : @f_msgs\n";
-	# internal dates on "TO" are after the ones on "FROM"
-	# normally...
-	my @t_msgs = $maxage ? $to->since(time - 86400 * $maxage) : $to->search("ALL");
-	$debug and print "LIST TO   : @t_msgs\n";
-
-	my %f_hash = ();
-	my %t_hash = ();
-	
-	# No history
-	$from->Clear(1);
-	$to->Clear(1);
-
-	
-	print "From Buffer I/O : ", $from->Buffer(), "\n";
-	print "To   Buffer I/O : ", $to->Buffer(), "\n";
-#	$from->Buffer(4096*64);
-#	$to->Buffer(4096*64);
-#	print "From Buffer I/O : ", $from->Buffer(), "\n";
-#	print "To   Buffer I/O : ", $to->Buffer(), "\n";
-
-	print "++++ From Parse 1 ++++\n";
-	
-	my $f_heads = $from->parse_headers([@f_msgs],"ALL") if (@f_msgs) ;
-	print "Time headers: ", timenext(), " s\n";
-	my $f_size  = $from->fetch_hash("RFC822.SIZE") if (@f_msgs);
-	print "Time sizes  : ", timenext(), " s\n";
-	#my $f_flags = $from->flags(@f_msgs) ;
-	#print "Time flags  : ", timenext(), " s\n";
-	use Data::Dumper;
-	#print Data::Dumper->Dump([$f_heads]);
-	#print Data::Dumper->Dump([$f_flags]);
-	
-	#exit;
-	foreach my $m (@f_msgs) {
-	  parse_header_msg1($m, $f_heads, $f_size, "F", \%f_hash);
-	}
-	print "Time headers: ", timenext(), " s\n";
-	
-	print "\n++++ To   Parse 1 ++++\n";
-	my $t_heads =   $to->parse_headers([@t_msgs],"ALL") if (@t_msgs);
-	print "Time headers: ", timenext(), " s\n";
-	my $t_size  =   $to->fetch_hash("RFC822.SIZE") if (@t_msgs);
-	print "Time sizes  : ", timenext(), " s\n";
-	#my $t_flags =   $to->flags(@t_msgs) ;
-	#print "Time flags  : ", timenext(), " s\n";
-	
-	foreach my $m (@t_msgs) {
-	  parse_header_msg1($m, $t_heads, $t_size, "T", \%t_hash);
-	}
-	print "Time headers: ", timenext(), " s\n";
-	#exit;
-
-	print "\n++++ Verifying ++++\n";
-	# messages in "from" that are not good in "to"
-	
-	my @f_hash_keys_sorted_by_uid 
-	  = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
-	
-	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
-	
-	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
-		my $f_size = $f_hash{$m_id}{'s'};
-		my $f_msg = $f_hash{$m_id}{'m'};
-		# print ".";
-		if (defined $maxsize and $f_size > $maxsize) {
-			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-			$mess_size_total_skipped += $f_msg;
-			next MESS;
-		}
-		$debug and print "+ key     $m_id #$f_msg\n";
-		unless (exists($t_hash{$m_id})) {
-			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-			# copy
-			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-			my $string = $from->message_string($f_msg);
-			while (my $regexmess = shift(@regexmess)) {
-				$debug and print "eval \$string =~ $regexmess\n";
-				eval("\$string =~ $regexmess");
-				
-			}
-			$debug and print "F message content begin next line\n",
-			  $string,
-			    "F message content ended on previous line\n";
-			my $d = "";
-			if ($syncinternaldates) {
-				$d = $from->internaldate($f_msg);
-				$d = "\"$d\"";
-				$debug and print "internal date from 1: [$d]\n";
-			}
-			
-			my $flags_f_rv = $from->flags($f_msg);
-			my @flags_f;
-			my $flags_f;
-			
-			if (ref($flags_f_rv)) {
-				@flags_f = @{$flags_f_rv};
-				$flags_f = join(" ", @flags_f);
-			}else{
-				$flags_f = "";	
-			}
-			
-			#$flags_f = join(" ", @{$from->flags($f_msg)});
-			
-			# RFC 2060 : This flag can not be altered by the client
-			$flags_f =~ s@\\Recent@@g;
-			
-			my $new_id;
-			print "flags from : [$flags_f][$d]\n";
-			unless ($dry) {
-				unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
-					warn "Couldn't append msg #$f_msg (Subject:[".$from->subject($f_msg)."]) to folder $t_fold: ",
-					  $to->LastError, "\n";
-					$error++;
-					$mess_size_total_error += $f_size;
-					next MESS;
-					
-				}else{
-						# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-					$mess_trans += 1;
-				}
-			}
-			next MESS;
-		}else{
-			$debug and print "Message id [$m_id] found in t:$t_fold\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-		}
-		
-		$fast and next MESS;
-		#$debug and print "MESSAGE $m_id\n"; 
-		my $t_size = $t_hash{$m_id}{'s'};
-		my $t_msg  = $t_hash{$m_id}{'m'};
-		
-		$debug and print "Setting flags\n"; 
-		my (@flags_f,@flags_t);
-		my $flags_f_rv = $from->flags($f_msg);
-		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
-		
-		# No flag \Recent here, no ?
-		
-		$to->store($t_msg,
-			   "+FLAGS (" . join(" ", @flags_f) . ")"
-			  ) unless ($dry) ;
-		
-		my $flags_t_rv = $to->flags($t_msg);
-		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
-		$debug and print 
-		  "flags from : @flags_f\n",
-		  "flags to   : @flags_t\n";
-		
-
-		$debug and do {
-			print "Looking dates\n"; 
-			my $d_f = $from->internaldate($f_msg);
-			my $d_t = $to->internaldate($t_msg);
-			print 
-			  "idate from : $d_f\n",
-			    "idate to   : $d_t\n";
-			#unless ($d_f eq $d_t) {
-			#	print "!!! Dates differ !!!\n";
-			#}
-		};
-		unless ($f_size == $t_size) {
-			# Bad size
-			print 
-			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			# delete in to and recopy ?
-			# NO recopy CODE HERE. to be written if needed.
-			$error++;
-			if ($opt_G){
-				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-				$to->delete_message($t_msg) unless ($dry);
-			}
-		}else {
-	    		# Good 
-			$debug and print
-			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			if($delete) {
-				print "Deleting msg #$f_msg in folder $f_fold\n";
-				$from->delete_message($f_msg) unless ($dry);
-				$from->expunge() if ($expunge and not $dry);
-			}
-		}
-	}
-print "Time : ", timenext(), " s\n";
-}
-
-$timeend = time();
-
-$timediff = $timeend - $timestart;
-
-stats();
-
-exit(1) if($error);
-
-sub stats {
-	print "++++ Statistics ++++\n";
-	print "Time                   : $timediff sec\n";
-	print "Messages transfered    : $mess_trans\n";
-	print "Messages skipped       : $mess_skipped\n";
-	print "Total bytes transfered : $mess_size_total_trans\n";
-	print "Total bytes skipped    : $mess_size_total_skipped\n";
-	print "Total bytes error      : $mess_size_total_error\n";
-	print "Detected $error errors\n";
-	print "Please, rate imapsync at http://freshmeat.net/projects/imapsync/\n";
-
-
-}
-
-
-sub get_options
-{
-	my $numopt = scalar(@ARGV);
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "include=s"   => \$include,
-				   "exclude=s"   => \$exclude,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \$regextrans2,
-				   "regexmess=s" => \@regexmess,
-                                   "delete!"     => \$delete,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "maxage=i"    => \$maxage,
-				   "foldersizes!"   => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "skipsize!"   => \$skipsize,
-                                  );
-
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print "$VERSION\n" and exit if ($version) ;
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-	
-	
-}
-
-
-sub parse_header_msg1 {
-	my ($m_uid, $s_heads, $s_size, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "Head NUM:", $headnum, "\n";
-	return unless($headnum);
-	my $headstr;
-	
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			# remove the first blanks (dbmail bug ?)
-			$val =~ s/^\s+//;
-			# show stuff in debug mode
-			$debug and print "${s}H $h:", $val, "\n";
-			if ($skipheader and $h =~ m/$skipheader/) {
-				$debug and print "Skipping header $h\n";
-		      next;
-			}
-			$headstr .= "$h:". $val;
-		}
-	}
-	return unless ($headstr);
-	my $size = $s_size->{$m_uid}->{"RFC822.SIZE"};
-	return unless ($size);
-	my $m_md5 = md5_base64($headstr);
-	
-	$debug and print "$s msg $m_uid:$m_md5:$size\n";
-	$size = 0 if ($skipsize);
-	$s_hash->{"$m_md5:$size"}{'5'} = "$m_md5:$size";
-	$s_hash->{"$m_md5:$size"}{'s'} = $size;
-	$s_hash->{"$m_md5:$size"}{'m'} = $m_uid;
-}
-
-sub parse_header_msg {
-
-	my ($m, $imap, $s, $s_hash) = @_;
-	$debug and print "-" x 50, "\nMSG $m\n";
-	my $head = $imap->parse_headers($m,"ALL");
-	my $headstr;
-	$debug and print "Head NUM:", scalar(keys(%$head)), "\n";
-	# no header -> return
-	return unless(scalar(keys(%$head)));	    
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			# remove the first blanks (dbmail bug ?)
-			$val =~ s/^\s+//;
-			# show stuff in debug mode
-			$debug and print "${s}H $h:", $val, "\n";
-			if ($skipheader and $h =~ m/$skipheader/) {
-				$debug and print "Skipping header $h\n";
-				next;
-			}
-			$headstr .= "$h:". $val;
-		}
-	}
-	my $m_md5 = md5_base64($headstr);
-	my $size = $imap->size($m);
-	$debug and print "$s msg $m:$m_md5:$size\n";
-	$size = 0 if ($skipsize);
-	$s_hash->{"$m_md5:$size"}{'5'} = "$m_md5:$size";
-	$s_hash->{"$m_md5:$size"}{'s'} = $size;
-	$s_hash->{"$m_md5:$size"}{'m'} = $m;
-}
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die("$! $file");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line : "!EMPTY! $file";
-        return $line;   
-}
-
-sub usage {
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect. Default is 143.
---user1       <string> : user to login.   Mandatory.
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect. Default is 143.
---user2       <string> : user to login.   Mandatory.
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification
---folder      <string> : sync only this folder.
---folder      <string> : and this one.
---folder      <string> : and this one, etc.
---include     <regex>  : only sync folders matching this regular expression
-                         (only effective if neither --folder nor --subscribed
-			  is specified)
---exclude     <regex>  : skip folders matching this regular expression
-                         (only effective if neither --folder nor --subscribed
-			  is specified)
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Exemple : 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---sep1        <string> : separator in case namespace is not supported.
---sep2        <string> : idem.
---delete               : delete messages in source imap server after
-                         a successful transfert. Useful in case you
-                         want to migrate from one server to another one.
-			 With imap, delete tags messages as deleted, they
-			 are not really deleted. See expunge.
---expunge              : expunge messages on source account.
-                         expunge really deletes messages marked deleted.
-                         expunge is made at the begining on the 
-                         source server only. newly transfered messages
-                         are expunged if option --expunge is given.
-                         no expunge is done on destination account but
-                         it will change in future releases.
---syncinternaldates    : set the internal dates on host2 same as host1
---maxsize     <int>    : skip messages larger than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
---skipsize             : Don't take message size into account.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfer only subscribed folders.
---subscribe            : subscribe to the folders transfered on the 
-                         "destination" server that are subscribed
-                         on the "source" server.
---(no)foldersizes      : Calculate the size of each "From" folder in bytes
-                         and message counts. Meant to be used with
-                         --justconnect. Turned on by default.
---nosyncacls           : Don't synchronizes acls.
---debug                : debug mode.
---debugimap            : imap debug mode.
---version              : print sotfware version.
---justconnect          : just connect to both servers and print useful 
-                         information.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster.
---timeout     <int>    : imap connect timeout.
---help                 : print this.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                     to imap account "bar" on "imap.trac.org"
-
-$0 \\
-   --host1 imap.troc.org --user1 foo --passfile1 /etc/secret1 \\
-   --host2 imap.trac.org --user2 bar --passfile2 /etc/secret2
-
-
- Mail::IMAPClient version is $Mail::IMAPClient::VERSION
-$rcs
-      imapsync copyleft is the GNU General Public License.
-      See http://www.gnu.org/copyleft/gpl.html
-EOF
-}
diff --git a/W/patches/imapsync-ssl.diff b/W/patches/imapsync-ssl.diff
deleted file mode 100644
index 8f3300c..0000000
--- a/W/patches/imapsync-ssl.diff
+++ /dev/null
@@ -1,131 +0,0 @@
---- imapsync	Fri Jul  9 11:08:43 2004
-+++ imapsync-ssl	Tue Aug 31 12:13:06 2004
-@@ -33,9 +33,9 @@ $Revision: 1.96 $
-   imapsync --help
-   imapsync
- 
--  imapsync [--host1 server1]  [--port1 <num>]
-+  imapsync [--host1 server1]  [--port1 <num>] [--ssl1]
-            [--user1 <string>] [--passfile1 <string>] 
--           [--host2 server2]  [--port2 <num>]
-+           [--host2 server2]  [--port2 <num>] [--ssl2]
-            [--user2 <string>] [--passfile2 <string>] 
-            [--folder <string> --folder <string> ...]
- 	   [--include <regex>] [--exclude <regex>]
-@@ -283,13 +283,15 @@ use Getopt::Long;
- use Mail::IMAPClient;
- use Digest::MD5  qw(md5_base64);
- #use Digest::HMAC_MD5;
-+use IO::Socket::INET;
-+use IO::Socket::SSL;
- 
- eval { require 'usr/include/sysexits.ph' };
- 
- 
- my(
-         $rcs, $debug, $debugimap, $error,
--	$host1, $host2, $port1, $port2,
-+	$host1, $host2, $port1, $port2, $ssl1, $ssl2,
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, $include, $exclude, $prefix2, $regextrans2,
-         $sep1, $sep2,
-@@ -372,13 +374,13 @@ sub missing_option {
- }
- 
- $host1 || missing_option("--host1") ;
--$port1 = (defined($port1)) ? $port1 : 143;
-+$port1 = (defined($port1)) ? $port1 : ((defined($ssl1)) ? 993 : 143);
- $user1 || missing_option("--user1");
- $password1 || $passfile1 || missing_option("--passfile1 or --password1");
- $password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
- 
- $host2 || missing_option("--host2") ;
--$port2 = (defined($port2)) ? $port2 : 143;
-+$port2 = (defined($port2)) ? $port2 : ((defined($ssl2)) ? 993 : 143);
- $user2 || missing_option("--user2");
- $password2 || $passfile2 || missing_option("--passfile2 or --password2");
- $password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-@@ -402,38 +404,56 @@ unless ($md5_supported) {
- $timestart = time();
- 
- $debugimap and print "From connection\n";
--$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout);
-+$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout, undef, $ssl1);
- 
- $debugimap and print "To  connection\n";
--$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout);
-+$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout, undef, $ssl2);
- 
- sub login_imap {
- 	my($host, $port, $user, $password, 
--	   $debugimap, $timeout, $authmech) = @_;
--	my $imap = Mail::IMAPClient->new();
--	$imap->Server($host);
--	$imap->Port($port);
-+	   $debugimap, $timeout, $authmech, $ssl) = @_;
-+	my $socket = undef;
-+
-+	if (!defined($ssl)) {
-+		$socket = IO::Socket::INET->new( PeerAddr => $host,
-+					PeerPort => $port,
-+					Proto    => 'tcp');
-+	} else {
-+		$socket = IO::Socket::SSL->new( PeerAddr => $host,
-+					PeerPort => $port,
-+					Proto    => 'tcp');
-+	}
-+	if (!$socket) {
-+		die "Can not open imap connection on [$host:$port]: $@";
-+	}
-+
-+	my $imap = Mail::IMAPClient->new(Server  => $host,
-+					 Port    => $port,
-+					 Socket  => $socket,
-+					 User    => $user,
-+					 Password=> $password);
-+	$imap->State($imap->Connected());
-+
- 	$imap->Fast_io(1);
- 	$imap->Uid(1);
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
--	$imap->connect()
--	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
--    if ($timeout)    # whr (ESS/PRW)
--    {
--        $imap->Timeout($timeout);
--        print "Setting imap timeout to $timeout\n";
--    }
--
--	$imap->User($user);
--	$imap->Password($password);
--	md5auth($imap);
-+
-+	if ($timeout)    # whr (ESS/PRW)
-+	{
-+    		$imap->Timeout($timeout);
-+    		print "Setting imap timeout to $timeout\n";
-+	}
-+
-+	select_auth($imap);
-+
- 	$imap->login() or die "Error login : [$host] with user [$user] : $@";
-+
- 	return($imap);
- }
- 
- 
--sub md5auth() {
-+sub select_auth() {
- 	my ($imap) = @_;
- 	unless ($md5_supported) {
- 		return;
-@@ -810,6 +830,8 @@ sub get_options
-                                    "host2=s"     => \$host2,
-                                    "port1=i"     => \$port1,
-                                    "port2=i"     => \$port2,
-+                                   "ssl1!"       => \$ssl1,
-+                                   "ssl2!"       => \$ssl2,
-                                    "user1=s"     => \$user1,
-                                    "user2=s"     => \$user2,
-                                    "password1=s" => \$password1,
diff --git a/W/patches/imapsync-ssl2.diff b/W/patches/imapsync-ssl2.diff
deleted file mode 100644
index 71c5af1..0000000
--- a/W/patches/imapsync-ssl2.diff
+++ /dev/null
@@ -1,108 +0,0 @@
---- /tmp/imapsync-1.118	2005-01-21 09:24:18.915332630 -0800
-+++ imapsync	2005-01-21 13:38:57.842421835 -0800
-@@ -34,9 +34,9 @@
-   imapsync --help
-   imapsync
- 
--  imapsync [--host1 server1]  [--port1 <num>]
-+  imapsync [--host1 server1]  [--port1 <num>] [--ssl1]
-            [--user1 <string>] [--passfile1 <string>] 
--           [--host2 server2]  [--port2 <num>]
-+           [--host2 server2]  [--port2 <num>] [--ssl2]
-            [--user2 <string>] [--passfile2 <string>] 
-            [--folder <string> --folder <string> ...]
- 	   [--include <regex>] [--exclude <regex>]
-@@ -292,13 +292,15 @@
- use Mail::IMAPClient;
- use Digest::MD5  qw(md5_base64);
- #use Digest::HMAC_MD5;
-+use IO::Socket::INET;
-+use IO::Socket::SSL;
- 
- eval { require 'usr/include/sysexits.ph' };
- 
- 
- my(
-         $rcs, $debug, $debugimap, $error,
--	$host1, $host2, $port1, $port2,
-+	$host1, $host2, $port1, $port2, $ssl1, $ssl2,
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, $include, $exclude, $prefix2, $regextrans2, @regexmess,
-         $sep1, $sep2,
-@@ -383,13 +385,13 @@
- }
- 
- $host1 || missing_option("--host1") ;
--$port1 = (defined($port1)) ? $port1 : 143;
-+$port1 =  (defined($port1)) ? $port1 : ((defined($ssl1)) ? 993 : 143);
- $user1 || missing_option("--user1");
- $password1 || $passfile1 || missing_option("--passfile1 or --password1");
- $password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
- 
- $host2 || missing_option("--host2") ;
--$port2 = (defined($port2)) ? $port2 : 143;
-+$port2 =  (defined($port2)) ? $port2 : ((defined($ssl2)) ? 993 : 143);
- $user2 || missing_option("--user2");
- $password2 || $passfile2 || missing_option("--passfile2 or --password2");
- $password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-@@ -417,17 +419,35 @@
- $timebefore = $timestart;
- 
- $debugimap and print "From connection\n";
--$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout);
-+$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout, $ssl1);
- 
- $debugimap and print "To  connection\n";
--$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout);
-+$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout, $ssl2);
- 
- sub login_imap {
- 	my($host, $port, $user, $password, 
--	   $debugimap, $timeout, $authmech) = @_;
--	my $imap = Mail::IMAPClient->new();
--	$imap->Server($host);
--	$imap->Port($port);
-+	   $debugimap, $timeout, $authmech, $ssl) = @_;
-+	my $socket = undef;
-+	
-+	if (!defined($ssl)) {
-+		$socket = IO::Socket::INET->new( PeerAddr => $host,
-+																		 PeerPort => $port,
-+																		 Proto    => 'tcp');
-+	} else {
-+		$socket = IO::Socket::SSL->new( PeerAddr => $host,
-+																		PeerPort => $port,
-+																		Proto    => 'tcp');
-+	}
-+	if (!$socket) {
-+		die "Can not open imap connection on [$host:$port]: $@";
-+	}
-+	
-+	my $imap = Mail::IMAPClient->new(Server  => $host,
-+																	 Port    => $port,
-+																	 Socket  => $socket,
-+																	 User    => $user,
-+																	 Password=> $password);
-+	$imap->State($imap->Connected());
- 	$imap->Fast_io(1);
- 	$imap->Buffer(65536);
- 	$imap->Uid(1);
-@@ -440,9 +460,6 @@
-         $imap->Timeout($timeout);
-         print "Setting imap timeout to $timeout\n";
-     }
--
--	$imap->User($user);
--	$imap->Password($password);
- 	md5auth($imap);
- 	$imap->login() or die "Error login : [$host] with user [$user] : $@";
- 	return($imap);
-@@ -918,6 +935,8 @@
-                                    "host2=s"     => \$host2,
-                                    "port1=i"     => \$port1,
-                                    "port2=i"     => \$port2,
-+																   "ssl1!"       => \$ssl1,
-+																   "ssl2!"       => \$ssl2,
-                                    "user1=s"     => \$user1,
-                                    "user2=s"     => \$user2,
-                                    "password1=s" => \$password1,
diff --git a/W/patches/imapsync-undef_arrayref.diff b/W/patches/imapsync-undef_arrayref.diff
deleted file mode 100644
index 56bd8ff..0000000
--- a/W/patches/imapsync-undef_arrayref.diff
+++ /dev/null
@@ -1,62 +0,0 @@
---- imapsync	Mon Oct 18 21:15:27 2004
-+++ imapsync-mod	Sat Nov 20 15:15:52 2004
-@@ -552,7 +552,7 @@
- 	my $tmess = 0;
- 	print "Calculating sizes...\n";
- 	foreach my $f_fold (@f_folders)     {
--		print "From Folder [$f_fold]\n";
-+		print "\nFrom Folder [$f_fold]\n";
- 		my $stot = 0;
- 		my $smess = 0;
- 		unless ($from->select($f_fold)) {
-@@ -574,7 +574,6 @@
- 				$stot += $s;
- 				print ".";
- 			}
--			print "\n";
- 			print "Size of $f_fold: $stot\n";
- 			print "Messages in $f_fold: $smess\n";
- 			$tot += $stot;
-@@ -589,11 +588,12 @@
- 				map {$stot2 += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
- 			}
- 			print "Size of $f_fold: $stot2\n";
-+                        print "Messages in $f_fold: $smess2\n";
- 			$tot += $stot2;
- 			$tmess += $smess2;
- 		}
- 	}
--	print "Total size: $tot\n";
-+	print "\n\nTotal size: $tot\n";
- 	print "Total messages: $tmess\n";
- 	print "Time : ", timenext(), " s\n";
- 	
-@@ -746,7 +746,9 @@
- 				$d = "\"$d\"";
- 				$debug and print "internal date from 1: [$d]\n";
- 				$syncinternaldates or $d = "";
--				my $flags_f = join(" ", @{$from->flags($f_msg)});
-+				my $flags_f_rv = $from->flags($f_msg);
-+				my $flags_f = '';
-+				$flags_f = join(" ", @{$flags_f_rv}) if ref($flags_f_rv);
- 				# RFC 2060 : This flag can not be altered by the client
- 				$flags_f =~ s@\\Recent@@g;
- 				
-@@ -781,13 +783,15 @@
- 
- 		$debug and print "Setting flags\n"; 
- 		my (@flags_f,@flags_t);
--		@flags_f = @{$from->flags($f_msg)};
-+                my $flags_f_rv = $from->flags($f_msg);
-+		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
- 		# No flag \Recent here, no ?
- 		
- 		$to->store($t_msg,
- 			   "+FLAGS (" . join(" ", @flags_f) . ")"
- 			  );
--		@flags_t = @{$to->flags($t_msg)};
-+                my $flags_t_rv = $to->flags($t_msg);
-+		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
- 		$debug and print 
- 		  "flags from : @flags_f\n",
- 		  "flags to   : @flags_t\n";
diff --git a/W/patches/imapsync-xgwtrustedapp b/W/patches/imapsync-xgwtrustedapp
deleted file mode 100644
index c85a5ad..0000000
--- a/W/patches/imapsync-xgwtrustedapp
+++ /dev/null
@@ -1,6033 +0,0 @@
-#!/usr/bin/perl
-
-# structure
-# pod documentation
-# pragmas
-# main program
-# global variables initialisation
-# default values
-# folder loop
-# subroutines
-# IMAPClient 2.2.9 overrides
-# IMAPClient 2.2.9 3.xx ads
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration tool.
-Synchronise mailboxes between two imap servers.
-Good at IMAP migration. More than 44 different IMAP server softwares
-supported with success.
-
-$Revision: 1.516 $
-
-=head1 SYNOPSIS
-
-To synchronise imap account "foo" on "imap.truc.org"
-           to  imap account "bar" on "imap.trac.org"
-           with foo password "secret1"
-           and  bar password "secret2":
-
-  imapsync \
-   --host1 imap.truc.org --user1 foo --password1 secret1 \
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows (2000, XP) 
- with Strawberry Perl 5.10 or 5.12
- or as a standalone binary software imapsync.exe
-
-imapsync can be available directly on the following distributions:
-FreeBSD, Debian, Ubuntu, Gentoo, Fedora,
-NetBSD, Darwin, Mandriva and OpenBSD.
-
- Purchase latest imapsync at
- http://imapsync.lamiral.info/
-
- You'll receive a link to a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://imapsync.lamiral.info/INSTALL
-
- The freecode (was freshmeat) record is at 
- http://freecode.com/projects/imapsync
-
-=head1 USAGE
-
- imapsync [options]
-
-To get a description of each option just run imapsync like this:
-
-  imapsync --help
-  imapsync
-
-The option list:
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-	   [--tls1] [--tls2]
-           [--authmech1 <string>] [--authmech2 <string>]
-           [--proxyauth1] [--proxyauth2]
-	   [--domain1] [--domain2] 
-           [--authmd51] [--authmd52]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect] [--justbanner]
-           [--syncinternaldates]
-           [--idatefromheader]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-	   [--minsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-	   [--nouid1] [--nouid2] 
-	   [--usecache]
-           [--skipsize] [--allowsizemismatch]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2] [--uidexpunge2]
-	   [--delete2folders] [--delete2foldersonly] [--delete2foldersbutnot]
-           [--subscribed] [--subscribe] [--subscribe_all] 
-           [--nofoldersizes] [--nofoldersizesatend] 
-           [--dry]
-           [--debug] [--debugimap][--debugimap1][--debugimap2]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--reconnectretry1 <int>] [--reconnectretry2 <int>]
-	   [--noreleasecheck]
-	   [--pidfile <filepath>]
-	   [--tmpdir  <dirpath>]
-           [--version] [--help]
-	   [--tests] [--tests_debug]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transferred, recursively.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is a good tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync works well with bad 
-connections.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete option. Option --delete implies 
-also option --expunge so all messages marked deleted on host1 
-will be really deleted.
-(you can use --noexpunge to avoid this but I don't see any
-real world scenario for the combinaison --delete --noexpunge).
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A (--delete2
-may help)
-
-imapsync is not adequate for maintaining two active imap accounts 
-in synchronization where the user plays independently on both sides.
-Use offlineimap (written by John Goerzen) or mbsync (written by 
-Michael R. Elkins) for 2 ways synchronizations.
-
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without losing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwidth link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started life as a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" (with password "secret1") 
-on host "imap.src.fr" to the imap account "max" (with password "secret2") 
-on host "imap.dest.fr":
-
- imapsync --host1 imap.src.fr  --user1 buddy --password1 secret1 \
-          --host2 imap.dest.fr --user2 max   --password2 secret2
-
-Then you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --passfile1  instead of --password1 to give the
-password since it is safer. With --password1 option any user 
-on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text
-if CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 (or --tls1) and --ssl2 (or --tls2) to enable 
-encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-
-When working on Sun/iPlanet/Netscape IMAP servers you must use 
---proxyauth1 to enable administrative user to masquerade as another user. 
-Can also be used on destination server with --proxyauth2 
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have an unreliable internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 LICENSE
-
-imapsync is free, open source but not always gratis software cover by
-the Do What The Fuck You Want To Public License (WTFPL).
-See COPYING file included in the distribution or the web site
-http://sam.zoy.org/wtfpl/COPYING
-
-=head1 MAILING-LIST
-
-The public mailing-list may be the best way to get support.
-
-To write on the mailing-list, the address is:
-<imapsync@linux-france.org>
-
-To subscribe, send any message (even empty) to:
-<imapsync-subscribe@listes.linux-france.org>
-then just reply to the confirmation message.
-
-To unsubscribe, send a message to:
-<imapsync-unsubscribe@listes.linux-france.org>
-
-To contact the person in charge for the list:
-<imapsync-request@listes.linux-france.org>
-
-The list archives may be available at:
-http://www.linux-france.org/prj/imapsync_list/
-So consider that the list is public, anyone
-can see your post. Use a pseudonym or do not
-post to this list if you want to stay private.
-
-Thank you for your participation.
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap may be a good place to talk about
-imapsync. I read it when imapsync is concerned.
-A better place is the public imapsync mailing-list
-(see below).
-
-Gilles LAMIRAL earns his living writing, installing,
-configuring and teaching free, open and often gratis
-softwares. Do not hesitate to pay him for that services.
-
-=head1 BUG REPORT GUIDELINES
-
-Help us to help you: follow the following guidelines.
-
-Report any bugs or feature requests to the public mailing-list 
-or to the author.
-
-Before reporting bugs, read the FAQ, the README and the
-TODO files. http://imapsync.lamiral.info/
-
-Upgrade to last imapsync release, maybe the bug
-is already fixed.
-
-Upgrade to last Mail-IMAPClient Perl module.
-http://search.cpan.org/dist/Mail-IMAPClient/
-maybe the bug is already fixed.
-
-Make a good title with word "imapsync" in it (my spam filter won't filter it), 
-Don't write an email title with just "imapsync" or "problem",
-a good title is made of keywords summary, not too long (one visible line).
-
-Don't write imapsync in uppercase in the email title, we'll
-know you run Windows and you haven't read this README yet.
-
-Help us to help you: in your report, please include:
-
- - imapsync version.
-
- - output given with --debug --debugimap near the failure point.
-   Isolate a message or two in a folder 'BUG' and use 
-
-     imapsync ... --folder 'BUG' --debug --debugimap 
-
- - imap server software on both side and their version number.
-
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). 
-
- - IMAPClient.pm version.
-
- - the run context. Do you run imapsync.exe, a unix binary or the perl script imapsync.
-
- - operating system running imapsync.
-
- - virtual software context (vmware, xen etc.)
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
-
-Most of those values can be found as a copy/paste at the begining of the output.
-
-One time in your life, read the paper 
-"How To Ask Questions The Smart Way"
-http://www.catb.org/~esr/faqs/smart-questions.html
-and then forget it.
-
-=head1 IMAP SERVERS 
-
-Failure stories reported with the following 3 imap servers:
-
- - MailEnable 1.54 (Proprietary) but MailEnable 4.23 is supported. 
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 is supported.
-   Patient and confident testers are welcome.
- - Imail 7.04 (maybe).
- - (2011) MDaemon 12.0.3 as host2 but MDaemon is supported as host1.
-   MDaemon is simply buggy with the APPEND IMAP command with 
-   any IMAP email client.
- 
-
-Success stories reported with the following 44 imap servers 
-(software names are in alphabetic order): 
-
- - 1und1 H mimap1 84498 [host1]
- - a1.net imap.a1.net IMAP4 Ready [host1]
- - Archiveopteryx 2.03, 2.04, 2.09, 2.10 [host2], 3.0.0 [host2]
-   (OSL 3.0) http://www.archiveopteryx.org/
- - Axigen Mail Server Version 8.0.0
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0) (Solaris), CommuniGate Pro 5.2.17[host2] (CentOS 5.4)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 
-   2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.3, 2.2.6, 2.2.10, 2.2.12, 2.2.13,
-   2.3-alpha (OSI Approved), 2.3.1, 2.3.7, 2.3.16
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Deerfield VisNetic MailServer 5.8.6 [host1]
- - dkimap4 [host1]
- - Domino (Notes) 4.61[host1], 6.5[host1], 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 
-   7.0.1[host1], 8.0.1[host1], 8.5.2[host2]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest/source] (LGPL) (http://www.dovecot.org/)
- - Eudora WorldMail v2
- - Gimap (Gmail imap)
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - hMailServer 5.3.3 [host2], 4.4.1 [host1] (see FAQ)
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12, 11.03 [host1]
- - Kerio 7.2.0 Patch 1 [host1] [host2]
- - MailEnable 4.23 [host1] [host2], 4.26 [host1][host2], 5 [host1]
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform), 12 [host2],
-   12.0.3 [host1], 12.5.5 [host1],
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.0.6249.0[host1], 6.0.6487.0[host1], 
-   6.5.7638.1 [host2], 6.5 [host1], Exchange 2007 SP1 (with Update Rollup 2), 
-   Exchange2007-EP-SP2,
-   Exchange 2010 RTM (Release to Manufacturing) [host2],
-   Exchange 2010 SP1 RU2[host2],
- - Mirapoint, 4.1.9-GA [host1]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Oracle Beehive [host1]
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431, 11.4.6
- - SmarterMail, Smarter Mail 5.0 Enterprise, Smarter Mail 5.5 [host1].
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java(tm) System Messaging Server 6.2-2.05,  6.2-7.05, 6.3
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - VMS, Imap part of TCP/IP suite of VMS 7.3.2
- - Yahoo [host1]
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 
-   Zimbra 5.0.24_GA_3356.RHEL4 [host1], 5.5, 6.x
-
-Please report to the author any success or bad story with
-imapsync and do not forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- Host1 software:* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- Host2 software:* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example:
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-
-=head1 HUGE MIGRATION
-
-Pay special attention to options 
---subscribed
---subscribe
---delete
---delete2
---delete2folders
---expunge
---expunge1
---expunge2
---uidexpunge2
---maxage
---minage
---maxsize
---useheader
---fast
---useuid
---usecache
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.txt (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.txt file contains:
-
-user001_1;password001_1;user001_2;password001_2
-user002_1;password002_1;user002_2;password002_2
-user003_1;password003_1;user003_2;password003_2
-user004_1;password004_1;user004_2;password004_2
-user005_1;password005_1;user005_2;password005_2
-...
-
-On Unix the shell program can be:
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --host1 imap.side1.org --user1 "$u1" --password1 "$p1" \
-                 --host2 imap.side2.org --user2 "$u2" --password2 "$p2" ...
- done ; } < file.txt
-
-On Windows the batch program can be:
-
-  FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-  --host1 imap.side1.org --user1 %%G --password1 %%H ^
-  --host2 imap.side2.org --user2 %%I --password2 %%J ...
-
-The ... have to be replaced by nothing or any imapsync option.
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the WTFPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : https://github.com/nicolas33/offlineimap
-  mbsync        : http://isync.sourceforge.net/
-  mailsync      : http://mailsync.sourceforge.net/
-  mailutil      : http://www.washington.edu/imap/
-                  part of the UW IMAP tookit.
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freecode.com/projects/imap-repl/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also file W/tools/wonko_ruby_imapsync
-  exchange-away : http://exchange-away.sourceforge.net/
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will often be welcome.
-
-$Id: imapsync,v 1.516 2012/11/02 22:15:04 gilles Exp gilles $
-
-=cut
-
-
-# pragmas
-
-use warnings;
-++$|;
-use strict;
-use Carp;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use File::Basename;
-use POSIX qw(uname SIGALRM);
-use Fcntl;
-use File::Spec;
-use File::Path qw(mkpath rmtree);
-use IO::Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE);
-use Errno qw(EAGAIN EPIPE ECONNRESET);
-use File::Glob qw( :glob ) ;
-use IO::File;
-use Time::Local ;
-use Time::HiRes qw( time ) ;
-use Test::More 'no_plan';
-
-eval { require 'usr/include/sysexits.ph' };
-
-use constant {
-    Unconnected   => 0,
-    Connected     => 1,    # connected; not logged in
-    Authenticated => 2,    # logged in; no mailbox selected
-    Selected      => 3,    # mailbox selected
-};
-
-
-# global variables
-
-my(
-        $rcs, $pidfile, $pidfilelocking, 
-	$debug, $debugimap, $debugimap1, $debugimap2, $debugcontent, $debugflags,
-	$debugLIST, $debugsleep, $debugdev, 
-	$nb_errors,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $domain1, $domain2, 
-	$password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag,
-	$flagsCase, $filterflags,
-        $sep1, $sep2,
-	$syncinternaldates,
-        $idatefromheader,
-	$usedatemanip,
-        $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $minsize, $maxage, $minage,
-        $exitwhenover,
-        $search,
-        $skipheader, @useheader,
-        $skipsize, $allowsizemismatch, $foldersizes, $foldersizesatend, $buffersize,
-	$delete, $delete2, $delete2duplicates,
-        $expunge, $expunge1, $expunge2, $uidexpunge2, $dry,
-        $justfoldersizes,
-        $authmd5, $authmd51, $authmd52, 
-        $subscribed, $subscribe, $subscribe_all,
-	$version, $help, 
-        $justconnect, $justfolders, $justbanner,
-        $fast,
-        
-        $total_bytes_transferred,
-        $total_bytes_skipped,
-        $total_bytes_error,
-        $nb_msg_transferred, 
-	$nb_msg_skipped, 
-	$nb_msg_skipped_dry_mode,
-	$h1_nb_msg_duplicate,
-	$h2_nb_msg_duplicate,
-	$h1_nb_msg_noheader,
-	$h2_nb_msg_noheader,
-	$h1_total_bytes_duplicate,
-	$h2_total_bytes_duplicate,
-	$h1_nb_msg_deleted,
-	$h2_nb_msg_deleted,
-        
-        $h1_bytes_processed, 
-        $h1_nb_msg_processed,
-        $h1_nb_msg_start, $h1_bytes_start,
-        $h2_nb_msg_start, $h2_bytes_start, 
-        $h1_nb_msg_end, $h1_bytes_end,
-        $h2_nb_msg_end, $h2_bytes_end, 
-        
-        $timeout,
-	$timestart, $timestart_int, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-	$tls1, $tls2,
-	$uid1, $uid2,
-        $authuser1, $authuser2,
-        $proxyauth1, $proxyauth2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-	$relogin1, $relogin2,
-	$tests, $test_builder, $tests_debug,
-	$allow3xx, $justlogin,
-	$tmpdir,
-	$releasecheck,
-	$max_msg_size_in_bytes,
-	$modules_version,
-	$delete2folders, $delete2foldersonly, $delete2foldersbutnot,
-	$usecache, $debugcache, $cacheaftercopy,
-	$wholeheaderifneeded, %h1_msgs_copy_by_uid, $useuid, $h2_uidguess,
-        $addheader,
-        %h1, %h2,
-        $checkselectable, $checkmessageexists,
-        $expungeaftereach,
-        $abletosearch,
-        $showpasswords,
-        $fixslash2,
-);
-
-# main program
-
-# global variables initialisation
-
-$rcs = '$Id: imapsync,v 1.516 2012/11/02 22:15:04 gilles Exp gilles $ ';
-
-$total_bytes_transferred   = 0;
-$total_bytes_skipped = 0;
-$total_bytes_error   = 0;
-$nb_msg_transferred = 0;
-$nb_msg_skipped = $nb_msg_skipped_dry_mode = 0;
-$h1_nb_msg_deleted = $h2_nb_msg_deleted = 0;
-$h1_nb_msg_duplicate = $h2_nb_msg_duplicate = 0;
-$h1_nb_msg_noheader = $h2_nb_msg_noheader = 0;
-$h1_total_bytes_duplicate = $h2_total_bytes_duplicate = 0;
-
-
-$h1_nb_msg_start     = $h1_bytes_start = 0 ;
-$h2_nb_msg_start     = $h2_bytes_start = 0 ;
-$h1_nb_msg_processed = $h1_bytes_processed = 0 ;
-
-$h1_nb_msg_end = $h1_bytes_end = 0 ;
-$h2_nb_msg_end = $h2_bytes_end = 0 ;
-
-$nb_errors = 0;
-$max_msg_size_in_bytes = 0;
-
-my %month_abrev = (
-   Jan => 0,
-   Feb => 1,
-   Mar => 2,
-   Apr => 3,
-   May => 4,
-   Jun => 5,
-   Jul => 6,
-   Aug => 7,
-   Sep => 8,
-   Oct => 9,
-   Nov => 10,
-   Dec => 11,
-);
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-
-# @ARGV will be eat by get_options()
-my @argv_copy = @ARGV;
-
-get_options();
-
-# $SIG{ INT } = \&catch_continue ;
-$SIG{ INT } = \&catch_exit ;
-
-$timestart = time(  );
-$timestart_int = int( $timestart ) ;
-$timebefore = $timestart;
-
-my $timestart_str = localtime( $timestart ) ;
-print   "Transfer started at $timestart_str\n";
-
-$modules_version = defined($modules_version) ? $modules_version : 1;
-
-
-$releasecheck = defined($releasecheck) ? $releasecheck : 1;
-my $warn_release = ($releasecheck) ? check_last_release() : '';
-
-# default values
-
-$tmpdir ||= File::Spec->tmpdir();
-$pidfile ||= $tmpdir . '/imapsync.pid';
-
-$pidfilelocking = defined( $pidfilelocking ) ? $pidfilelocking : 0 ;
-
-# allow Mail::IMAPClient 3.0.xx by default
-$allow3xx = defined($allow3xx) ? $allow3xx : 1;
-
-$wholeheaderifneeded  = defined( $wholeheaderifneeded )  ? $wholeheaderifneeded  : 1;
-
-# turn on RFC standard flags correction like \SEEN -> \Seen
-$flagsCase = defined( $flagsCase ) ? $flagsCase : 1 ;
-
-# Use PERMANENTFLAGS if available
-$filterflags = defined( $filterflags ) ? $filterflags : 1 ;
-
-# turn on relogin 5 by default
-$relogin1 = defined( $relogin1 ) ? $relogin1 : 5 ;
-$relogin2 = defined( $relogin2 ) ? $relogin2 : 5 ;
-
-if ( $fast ) {
-	# $useuid = 1 ;
-	$foldersizes      = 0 ;
-	$foldersizesatend = 0 ;
-}
-
-# Activate --usecache if --useuid is set and no --nousecache
-$usecache = 1 if ( $useuid and ( ! defined( $usecache ) ) ) ;
-$cacheaftercopy = 1 if ( $usecache and ( ! defined( $cacheaftercopy ) ) ) ;
-
-$checkselectable = defined( $checkselectable ) ? $checkselectable : 1 ;
-$checkmessageexists = defined( $checkmessageexists ) ? $checkmessageexists : 1 ;
-$expungeaftereach = defined( $expungeaftereach ) ? $expungeaftereach : 1 ;
-$abletosearch = defined( $abletosearch ) ? $abletosearch : 1 ;
-$showpasswords = defined( $showpasswords ) ? $showpasswords : 0 ;
-$fixslash2 = defined( $fixslash2 ) ? $fixslash2 : 1 ;
-
-$delete2duplicates = 1 if ( $delete2 and ( ! defined( $delete2duplicates ) ) ) ;
-
-print banner_imapsync(@argv_copy);
-
-print "Temp directory is $tmpdir\n";
-
-is_valid_directory($tmpdir);
-write_pidfile($pidfile) if ($pidfile);
-
-$modules_version and print "Modules version list:\n", modules_VERSION(), "\n";
-
-check_lib_version() or 
-  die "imapsync needs perl lib Mail::IMAPClient release 2.2.9, or 3.25 or superior \n";
-
-exit_clean(0) if ($justbanner);
-
-# By default, 1000 at a time, not more.
-$split1 ||= 100;
-$split2 ||= 100;
-
-$host1 || missing_option("--host1") ;
-$port1 ||= ( $ssl1 ) ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-$port2 ||= ( $ssl2 ) ? 993 : 143;
-
-$debugimap1 = $debugimap2 = 1 if ( $debugimap ) ;
-$debug = 1 if ( $debugimap1 or $debugimap2 ) ;
-
-# By default, don't take size to compare 
-$skipsize = (defined $skipsize) ? $skipsize : 1;
-
-$uid1 = defined($uid1) ? $uid1 : 1;
-$uid2 = defined($uid2) ? $uid2 : 1;
-
-$subscribe = defined($subscribe) ? $subscribe : 1;
-
-# Allow size mismatch by default
-$allowsizemismatch = defined($allowsizemismatch) ? $allowsizemismatch : 1;
-
-$delete2folders = 1 
-    if ( defined( $delete2foldersbutnot ) or defined( $delete2foldersonly ) ) ;
-
-if ($justconnect) {
-	justconnect();
-	exit_clean(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-$syncinternaldates = defined($syncinternaldates) ? $syncinternaldates : 1;
-
-# Turn on expunge if there is not explicit option --noexpunge and option 
-# --delete is given.
-# Done because --delete --noexpunge is very dangerous on the second run:
-# the Deleted flag is then synced to all previously transfered messages.
-# So --delete implies --expunge is a better usability default behaviour.
-if ($delete) {
-	if ( ! defined($expunge)) {
-		$expunge = 1;
-	}
-}
-
-if ( $uidexpunge2 and !  Mail::IMAPClient->can( 'uidexpunge' ) ) {
-        print "Failure: uidexpunge not supported (IMAPClient release < 3.17), use --expunge2 instead\n" ;
-        exit_clean( 3 ) ;
-}
-
-if ( $delete2 and ! defined( $uidexpunge2 ) ) {
-        if ( Mail::IMAPClient->can( 'uidexpunge' ) ) {
-                print "Info: will act as --uidexpunge2\n" ;
-		$uidexpunge2 = 1 ;
-        }elsif ( ! defined( $expunge2 ) ) {
-                 print "Info: will act as --expunge2 (no uidexpunge support)\n" ;
-                $expunge2 = 1 ;
-        }
-}
-
-if ( $delete and $delete2 ) {
-	print "Warning: using --delete and --delete2 together is almost always a bad idea, exiting imapsync\n" ;
-	exit_clean( 4 ) ;
-}
-
-if ($idatefromheader) {
-	print "Turned ON idatefromheader, ",
-	      "will set the internal dates on host2 from the 'Date:' header line.\n";
-	$syncinternaldates = 0;
-}
-
-if ($syncinternaldates) {
-	print "Info: turned ON syncinternaldates, ",
-	      "will set the internal dates (arrival dates) on host2 same as host1.\n";
-}else{
-	print "Info: turned OFF syncinternaldates\n";
-}
-
-if (defined($authmd5) and ($authmd5)) {
-	$authmd51 = 1 ;
-	$authmd52 = 1 ;
-}
-
-if (defined($authmd51) and ($authmd51)) {
-	$authmech1 ||= 'CRAM-MD5';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'LOGIN';
-}
-
-if (defined($authmd52) and ($authmd52)) {
-	$authmech2 ||= 'CRAM-MD5';
-}
-else{
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'LOGIN';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-# Check required options for XGWTRUSTEDAPP
-if ($authmech1 eq 'XGWTRUSTEDAPP') {
-        $authuser1 || missing_option("--authuser1");
-}
-
-if (defined $proxyauth1 && !$authuser1) {
-        missing_option("With --proxyauth1, --authuser1");
-}
-
-if (defined $proxyauth2 && !$authuser2) {
-        missing_option("With --proxyauth2, --authuser2");
-}
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "Info: will try to use $authmech1 authentication on host1\n";
-print "Info: will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-$foldersizesatend = (defined($foldersizesatend)) ? $foldersizesatend : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-$reconnectretry1 = (defined($reconnectretry1)) ? $reconnectretry1 : 3;
-$reconnectretry2 = (defined($reconnectretry2)) ? $reconnectretry2 : 3;
-
-@useheader = ( "Message-Id", "Message-ID", "Received" ) unless ( @useheader ) ;
-
-my %useheader ;
-
-# Make a hash %useheader of each --useheader 'key' in uppercase
-@useheader{ map( { uc( $_ ) } @useheader ) } = (  ) ;
-
-#require Data::Dumper ;
-#print Data::Dumper->Dump( [ \%useheader ] ) ;
-
-
-print "Host1: imap server [$host1] port [$port1] user [$user1]\n";
-print "Host2: imap server [$host2] port [$port2] user [$user2]\n";
-
-$password1 || $passfile1 || 'PREAUTH' eq $authmech1 || do {
-	$password1 = ask_for_password( $authuser1 || $user1, $host1 ) ;
-} ;
-
-$password1 = ( defined( $passfile1 ) ) ? firstline ( $passfile1 ) : $password1 ;
-
-$password2 || $passfile2 || 'PREAUTH' eq $authmech2 || do {
-	$password2 = ask_for_password( $authuser2 || $user2, $host2 ) ;
-} ;
-
-$password2 = ( defined( $passfile2 ) ) ? firstline ( $passfile2 ) : $password2 ;
-
-
-my $dry_message = '' ;
-$dry_message = "\t(not really since --dry mode)" if $dry ;
-
-
-my $imap1 = ();
-my $imap2 = ();
-
-
-
-$debugimap1 and print "Host1 connection\n";
-$imap1 = login_imap($host1, $port1, $user1, $domain1, $password1, 
-		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		   $authmech1, $authuser1, $reconnectretry1,
-		   $proxyauth1, $uid1, $split1);
-
-$debugimap2 and print "Host2 connection\n";
-$imap2 = login_imap($host2, $port2, $user2, $domain2, $password2, 
-		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		 $authmech2, $authuser2, $reconnectretry2,
-		 $proxyauth2, $uid2, $split2);
-
-
-$debug and print "Host1 Buffer I/O: ", $imap1->Buffer(), "\n";
-$debug and print "Host2 Buffer I/O: ", $imap2->Buffer(), "\n";
-
-
-
-die_clean( 'Not authenticated on host1' ) unless $imap1->IsAuthenticated( ) ;
-print "Host1: state Authenticated\n";
-die_clean( 'Not authenticated on host2' ) unless   $imap2->IsAuthenticated( ) ;
-print "Host2: state Authenticated\n";
-
-print "Host1 capability: ", join(" ", $imap1->capability_update()), "\n";
-print "Host2 capability: ", join(" ", $imap2->capability_update()), "\n";
-
-
-exit_clean(0) if ($justlogin);
-
-# 
-# Folder stuff
-#
-
-my (
-@h1_folders_all, %h1_folders_all, @h1_folders_wanted, %requested_folder, 
-%h1_subscribed_folder, %h2_subscribed_folder, 
-@h2_folders_all, %h2_folders_all, @h2_folders_from_1_wanted,  %h2_folders_from_1_wanted, 
-@h2_folders_from_1_all, %h2_folders_from_1_all,
-);
-
-
-# Make a hash of subscribed folders in both servers.
-map { $h1_subscribed_folder{ $_ } = 1 } $imap1->subscribed(  );
-map { $h2_subscribed_folder{ $_ } = 1 } $imap2->subscribed(  );
-
-
-# All folders on host1 and host2
-@h1_folders_all = sort $imap1->folders();
-@h2_folders_all = sort $imap2->folders();
-
-map { $h1_folders_all{$_} = 1} @h1_folders_all;
-map { $h2_folders_all{$_} = 1} @h2_folders_all;
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ( $subscribed ) {
-		add_to_requested_folders( keys ( %h1_subscribed_folder ) ) ;
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($imap1->folders($folderrec));
-		}
-	}
-}
-else {
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		add_to_requested_folders(@h1_folders_all);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	foreach my $include (@include) {
-		my @included_folders = grep /$include/, @h1_folders_all;
-		add_to_requested_folders(@included_folders);
-		print "Including folders matching pattern '$include': @included_folders\n";
-	}
-}
-
-if (scalar(@exclude)) {
-	foreach my $exclude (@exclude) {
-		my @requested_folder = sort(keys(%requested_folder));
-		my @excluded_folders = grep /$exclude/, @requested_folder;
-		remove_from_requested_folders(@excluded_folders);
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-	}
-}
-
-# Remove no selectable folders
-
-$checkselectable and do {
-	foreach my $folder (keys(%requested_folder)) {
-        	if ( not $imap1->selectable($folder)) {
-			print "Warning: ignoring folder $folder because it is not selectable\n";
-                	remove_from_requested_folders($folder);
-        	}
-	}
-} ;
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@h1_folders_wanted = @requested_folder;
-
-#my $h1_namespace = $imap1->namespace() ;
-#my $h2_namespace = $imap2->namespace() ;
-#require Data::Dumper ;
-#$debug and print "Host1 namespace:\n", Data::Dumper->Dump([$h1_namespace]) ;
-#$debug and print "Host2 namespace:\n", Data::Dumper->Dump([$h2_namespace]) ;
-
-my($h1_sep,$h2_sep); 
-# what are the private folders separators for each server ?
-
-$debug and print "Getting separators\n";
-$h1_sep = get_separator($imap1, $sep1, "--sep1");
-$h2_sep = get_separator($imap2, $sep2, "--sep2");
-
-my($h1_prefix,$h2_prefix); 
-$h1_prefix = get_prefix($imap1, $prefix1, "--prefix1");
-$h2_prefix = get_prefix($imap2, $prefix2, "--prefix2");
-
-
-print "Host1 separator and prefix: [$h1_sep][$h1_prefix]\n";
-print "Host2 separator and prefix: [$h2_sep][$h2_prefix]\n";
-
-#my $h1_xlist_folders = $imap1->xlist_folders(  ) ;
-#my $h2_xlist_folders = $imap2->xlist_folders(  ) ;
-#require Data::Dumper ;
-#print "Host1 xlist:\n", Data::Dumper->Dump([$h1_xlist_folders]) ;
-#print "Host2 xlist:\n", Data::Dumper->Dump([$h2_xlist_folders]) ;
-
-#exit ;
-
-foreach my $h1_fold (@h1_folders_wanted) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders_from_1_wanted{$h2_fold}++;
-}
-@h2_folders_from_1_wanted = sort keys(%h2_folders_from_1_wanted);
-
-foreach my $h1_fold (@h1_folders_all) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders_from_1_all{$h2_fold}++;
-}
-#@h2_folders_from_1_all = sort keys(%h2_folders_from_1_all);
-
-
-if ( $foldersizes ) {
-	( $h1_nb_msg_start, $h1_bytes_start ) = foldersizes( "Host1", $imap1, @h1_folders_wanted ) ;
-	( $h2_nb_msg_start, $h2_bytes_start ) = foldersizes( "Host2", $imap2, @h2_folders_from_1_wanted ) ;
-	sleep( 2 ) ;
-}
-
-
-exit_clean(0) if ($justfoldersizes);
-
-print 
-  "++++ Listing folders\n",
-  "Host1 folders list:\n", map("[$_]\n",@h1_folders_all),"\n",
-  "Host2 folders list:\n", map("[$_]\n",@h2_folders_all),"\n";
-
-print 
-  "Host1 subscribed folders list: ", 
-  map( "[$_] ", sort keys( %h1_subscribed_folder ) ), "\n" 
-  if ( $subscribed ) ;
-
-my @h2_folders_not_in_1;
-@h2_folders_not_in_1 = list_folders_in_2_not_in_1();
-
-print "Folders in host2 not in host1:\n", 
-  map("[$_]\n", @h2_folders_not_in_1),"\n";
-
-delete_folders_in_2_not_in_1() if $delete2folders;
-
-# folder loop
-print "++++ Looping on each folder\n";
-
-my $begin_transfer_time = time ;
-
-FOLDER: foreach my $h1_fold (@h1_folders_wanted) {
-
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-
-	my $h2_fold = imap2_folder_name( $h1_fold ) ;
-	#relogin1(  ) if ( $relogin1 ) ;
-	printf( "%-35s -> %-35s\n", "[$h1_fold]", "[$h2_fold]" ) ;
-
-	# host1 can not be fetched read only, select is needed because of expunge.
-	select_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	#examine_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	
-	
-	if ( ! exists( $h2_folders_all{ $h2_fold } ) ) {
-		create_folder( $imap2, $h2_fold, $h1_fold ) or next FOLDER ;
-	}
-	
-	acls_sync( $h1_fold, $h2_fold ) ;
-	
-        # Sometimes the folder on host2 is listed (it exists) but is
-        # not selectable but becomes selectable by a create (Gmail)
-	select_folder( $imap2, $h2_fold, 'Host2' ) 
-        or ( create_folder( $imap2, $h2_fold, $h1_fold ) 
-             and select_folder( $imap2, $h2_fold, 'Host2' ) )
-        or next FOLDER ;
-	my @select_results = $imap2->Results(  ) ;
-	
-	#print "%%% @select_results\n" ;
-	my $permanentflags2 = permanentflags( @select_results ) ;
-	$debug and print "permanentflags: $permanentflags2\n" ;
-	if ( $expunge or $expunge1 ){
-		print "Expunging host1 $h1_fold $dry_message\n" ;
-		unless($dry) { $imap1->expunge() } ;
-		#print "Expunging host2 $h2_fold\n" ;
-		#unless($dry) { $imap2->expunge() } ;
-	}
-	
-	if ( ( ( $subscribe and exists $h1_subscribed_folder{ $h1_fold } ) or $subscribe_all )
-             and ! exists $h2_subscribed_folder{ $h2_fold } ) {
-		print "Subscribing to folder $h2_fold on destination server\n" ;
-		unless( $dry ) { $imap2->subscribe( $h2_fold ) } ;
-	}
-	
-	next FOLDER if ($justfolders);
-
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-
-        my $h1_msgs_all_hash_ref = {  } ;
-	my @h1_msgs = select_msgs( $imap1, $h1_msgs_all_hash_ref );
-
-        my $h1_msgs_nb = scalar( @h1_msgs ) ;
-        $h1{ $h1_fold }{ 'messages_nb' } = $h1_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host1 LIST: $h1_msgs_nb messages [@h1_msgs]\n" ;
-        
-        my $h2_msgs_all_hash_ref = {  } ;
-	my @h2_msgs = select_msgs( $imap2, $h2_msgs_all_hash_ref ) ;
-	
-        my $h2_msgs_nb = scalar( @h2_msgs ) ;
-        $h2{ $h2_fold }{ 'messages_nb' } = $h2_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host2 LIST: $h2_msgs_nb messages [@h2_msgs]\n";
-        
-	my $cache_base = "$tmpdir/imapsync_cache/$host1/$user1/$host2/$user2" ;
-	my $cache_dir = cache_folder( $cache_base, $h1_fold, $h2_fold ) ;
-	my ( $cache_1_2_ref, $cache_2_1_ref ) = ( {}, {} ) ;
-	my $h1_uidvalidity = $imap1->uidvalidity(  ) || '' ;
-	my $h2_uidvalidity = $imap2->uidvalidity(  ) || '' ;
-        
-        last FOLDER if $imap1->IsUnconnected() ;
-        last FOLDER if $imap2->IsUnconnected() ;
-
-	if ( $usecache ) {
-		print "cache directory: $cache_dir\n" ;
-		mkpath( "$cache_dir" ) ;
-		( $cache_1_2_ref, $cache_2_1_ref ) 
-                = get_cache( $cache_dir, \@h1_msgs, \@h2_msgs, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-		print "CACHE h1 h2: ", scalar( keys %$cache_1_2_ref ), " files\n" ; 
-		$debug and print '[',
-		    map ( { "$_->$cache_1_2_ref->{$_} " } keys %$cache_1_2_ref ), " ]\n";
-	}
-	
-	my %h1_hash = ();
-	my %h2_hash = ();
-	
-	my ( %h1_msgs, %h2_msgs ) ;
-	@h1_msgs{ @h1_msgs } = ();
-	@h2_msgs{ @h2_msgs } = ();
-	
-	my @h1_msgs_in_cache = sort { $a <=> $b } keys %$cache_1_2_ref ;
-	my @h2_msgs_in_cache = keys %$cache_2_1_ref ;
-	
-	my ( %h1_msgs_not_in_cache, %h2_msgs_not_in_cache ) ;
-	%h1_msgs_not_in_cache = %h1_msgs ;
-	%h2_msgs_not_in_cache = %h2_msgs ;
-	delete @h1_msgs_not_in_cache{ @h1_msgs_in_cache } ;
-	delete @h2_msgs_not_in_cache{ @h2_msgs_in_cache } ;
-	
-	my @h1_msgs_not_in_cache = keys %h1_msgs_not_in_cache ;
-	#print "h1_msgs_not_in_cache: [@h1_msgs_not_in_cache]\n" ;
-	my @h2_msgs_not_in_cache = keys %h2_msgs_not_in_cache ;
-	
-	my @h2_msgs_delete2_not_in_cache = () ;
-	%h1_msgs_copy_by_uid = (  ) ;
-	
-	if ( $useuid ) {
-		# use uid so we have to avoid getting header
-		@h1_msgs_copy_by_uid{ @h1_msgs_not_in_cache } = (  ) ;
-		@h2_msgs_delete2_not_in_cache = @h2_msgs_not_in_cache if $usecache ;
-		@h1_msgs_not_in_cache = (  ) ;
-		@h2_msgs_not_in_cache = (  ) ;
-		
-		#print "delete2: @h2_msgs_delete2_not_in_cache\n";
-	}
-	
-	$debug and print "Host1 parsing headers of folder [$h1_fold]\n";
-
-	my ($h1_heads_ref, $h1_fir_ref) = ({}, {});
-	$h1_heads_ref = $imap1->parse_headers([@h1_msgs_not_in_cache], @useheader) if (@h1_msgs_not_in_cache);
-	$debug and print "Host1 parsing headers of folder [$h1_fold] took ", timenext(), " s\n";
-
-	@$h1_fir_ref{@h1_msgs} = (undef);
-        
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold]\n" ;
-        if ( $abletosearch ) {
-		$h1_fir_ref = $imap1->fetch_hash( "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref )
-	  	if ( @h1_msgs ) ;
-        }else{
-		$h1_fir_ref = $imap1->fetch_hash( '1:999999', "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref )
-		if ( @h1_msgs ) ;
-        }
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold] took ", timenext(), " s\n";
-	unless ($h1_fir_ref) {
-		print
-		"Host1 folder $h1_fold: Could not fetch_hash ",
-		scalar(@h1_msgs), " msgs: ", $imap1->LastError, "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-
-	my @h1_msgs_duplicate;
-	foreach my $m (@h1_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap1, $m, $h1_heads_ref, $h1_fir_ref, 'Host1', \%h1_hash);
-		if (! defined($rc)) {
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			print "Host1 $h1_fold/$m size $h1_size ignored (no wanted headers so we ignore this message)\n" ;
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			$h1_nb_msg_noheader +=1;
-                        $h1_nb_msg_processed +=1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			push(@h1_msgs_duplicate, $m);
-			# duplicate, same id same size?
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			$nb_msg_skipped += 1;
-			$h1_total_bytes_duplicate += $h1_size;
-			$h1_nb_msg_duplicate += 1;
-                        $h1_nb_msg_processed +=1 ;
-		}
-	}
-        my $h1_msgs_duplicate_nb = scalar( @h1_msgs_duplicate ) ;
-        $h1{ $h1_fold }{ 'duplicates_nb' } = $h1_msgs_duplicate_nb ;
-        
-        $debug and print "Host1 selected: $h1_msgs_nb  duplicates: $h1_msgs_duplicate_nb\n" ;
-	$debug and print "Host1 whole time parsing headers took ", timenext(), " s\n";
-        
-	$debug and print "Host2 parsing headers of folder [$h2_fold]\n";
-        
-	my ($h2_heads_ref, $h2_fir_ref) = ( {}, {} );
-	$h2_heads_ref =   $imap2->parse_headers([@h2_msgs_not_in_cache], @useheader) if (@h2_msgs_not_in_cache);
-	$debug and print "Host2 parsing headers of folder [$h2_fold] took ", timenext(), " s\n" ;
-
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold]\n" ;
-	@$h2_fir_ref{@h2_msgs} = (  ); # fetch_hash can select by uid with last arg as ref
-	$h2_fir_ref   =   $imap2->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE", $h2_fir_ref)
-	  if (@h2_msgs);
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold] took ", timenext(), " s\n" ;
-	
-	my @h2_msgs_duplicate;
-	foreach my $m (@h2_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap2, $m, $h2_heads_ref, $h2_fir_ref, 'Host2', \%h2_hash);
-		my $h2_size = $h2_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-		if (! defined($rc)) {
-                        print "Host2 $h2_fold/$m size $h2_size ignored (no wanted headers so we ignore this message)\n" ;
-			$h2_nb_msg_noheader += 1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			$h2_nb_msg_duplicate += 1;
-			$h2_total_bytes_duplicate += $h2_size;
-			push(@h2_msgs_duplicate, $m);
-		}
-	}
-        my $h2_msgs_duplicate_nb = scalar( @h2_msgs_duplicate ) ;
-        $h2{ $h2_fold }{ 'duplicates_nb' } = $h2_msgs_duplicate_nb ;
-        
-        print "Host2 selected: $h2_msgs_nb,  duplicates: $h2_msgs_duplicate_nb\n" 
-        	if ( $debug or $delete2duplicates or $h2_msgs_duplicate_nb ) ;
-	$debug and print "Host2 whole time parsing headers took ", timenext(), " s\n";
-
-	$debug and print "++++ Verifying [$h1_fold] -> [$h2_fold]\n";
-	# messages in host1 that are not in host2
-	
-	my @h1_hash_keys_sorted_by_uid 
-	  = sort {$h1_hash{$a}{'m'} <=> $h1_hash{$b}{'m'}} keys(%h1_hash);
-	
-	#print map { $h1_hash{$_}{'m'} . " "} @h1_hash_keys_sorted_by_uid;
-	
-	my @h2_hash_keys_sorted_by_uid 
-	  = sort {$h2_hash{$a}{'m'} <=> $h2_hash{$b}{'m'}} keys(%h2_hash);
-
-        if ( 0 ) {
-        # What the hell was this code written for?
-        # hashes, keys are uid, values are the internaldates in epoch (best format to compare dates)
-        my %h1_epoch ;
-        my %h2_epoch ;
-        @h1_epoch{ @h1_msgs } = map( { epoch( $h1_fir_ref->{ $_ }->{ 'INTERNALDATE' } ) } @h1_msgs ) ;
-        @h2_epoch{ @h2_msgs } = map( { epoch( $h2_fir_ref->{ $_ }->{ 'INTERNALDATE' } ) } @h2_msgs ) ;
-        #print keyval( %h1_epoch ) ;
-        #print keyval( %h2_epoch ) ;
-        my $h1_greatest_epoch = max( values %h1_epoch ) ;
-        print "h1_greatest_epoch $h1_greatest_epoch\n" ;
-        }
-        
-        #next FOLDER ;
-        
-	if( $delete2duplicates ) {
-		my @h2_expunge ;
-
-		foreach my $h2_msg ( @h2_msgs_duplicate ) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [duplicate] on host2 $dry_message\n" ;
-			push( @h2_expunge, $h2_msg ) if $uidexpunge2 ;
-			unless ( $dry ) {
-				$imap2->delete_message( $h2_msg ) ;
-				$h2_nb_msg_deleted += 1 ;
-			}
-		}
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s) $dry_message\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ( $expunge2 ){
-                	print "Expunging host2 folder $h2_fold $dry_message\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-	}
-        
-	if($delete2) {
-		my @h2_expunge;
-		foreach my $m_id (@h2_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($h1_hash{$m_id})) {
-				my $h2_msg  = $h2_hash{$m_id}{'m'};
-				my $h2_flags  = $h2_hash{$m_id}{'F'} || "";
-				my $isdel  = $h2_flags =~ /\B\\Deleted\b/ ? 1 : 0;
-				print "msg $h2_fold/$h2_msg marked \\Deleted on host2 [$m_id] $dry_message\n"
-				  if ! $isdel;
-				push(@h2_expunge, $h2_msg) if $uidexpunge2;
-				unless ($dry or $isdel) {
-					$imap2->delete_message($h2_msg);
-					$h2_nb_msg_deleted += 1;
-				}
-			}
-		}
-		foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [not in cache] on host2 $dry_message\n";
-                        push(@h2_expunge, $h2_msg) if $uidexpunge2;
-			unless ($dry) {
-				$imap2->delete_message($h2_msg);
-				$h2_nb_msg_deleted += 1;
-			}
-		}
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s) $dry_message\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ($expunge2){
-                	print "Expunging host2 folder $h2_fold $dry_message\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-	}
-
-	my $h2_uidnext = $imap2->uidnext( $h2_fold ) ;
-        $debug and print "Host2 uidnext: $h2_uidnext\n" ;
-	$h2_uidguess = $h2_uidnext ;
-	MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
-		#print "h1_nb_msg_processed: $h1_nb_msg_processed\n" ;
-		my $h1_size  = $h1_hash{$m_id}{'s'};
-		my $h1_msg   = $h1_hash{$m_id}{'m'};
-		my $h1_idate = $h1_hash{$m_id}{'D'};
-
-		unless (exists($h2_hash{$m_id})) {
-			# copy
-                        last FOLDER if $imap1->IsUnconnected();
-                        last FOLDER if $imap2->IsUnconnected();
-			copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                        last FOLDER if total_bytes_max_reached(  ) ;
-			next MESS;
-		}
-		else{
-		        # already on host2
-			my $h2_msg   = $h2_hash{$m_id}{'m'} ;
-			$debug and print "Host1 found msg $h1_fold/$h1_msg equals Host2 $h2_fold/$h2_msg\n" ;
-			$total_bytes_skipped += $h1_size ;
-			$nb_msg_skipped += 1 ;
-                        $h1_nb_msg_processed +=1 ;
-                        
-                        if ( $usecache ) {
-				$debugcache and print "touch $cache_dir/${h1_msg}_$h2_msg\n" ;
-				touch( "$cache_dir/${h1_msg}_$h2_msg" ) 
-                                or die( "Couldn't touch $cache_dir/${h1_msg}_$h2_msg" ) ;
-                        }
-		}
-		
-		#$debug and print "MESSAGE $m_id\n";
-		my $h2_msg  = $h2_hash{$m_id}{'m'};
-
-                sync_flags( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-
-	    	# Good
-		my $h2_size = $h2_hash{$m_id}{'s'};
-		$debug and print
-		"Host1 size  msg $h1_fold/$h1_msg = $h1_size <> $h2_size = Host2 $h2_fold/$h2_msg\n";
-		if( $delete ) {
-                        my $expunge_message = '' ;
-                        $expunge_message = "and expunged" if ( $expungeaftereach and ( $expunge or $expunge1 ) ) ;
-			print "Host1 msg $h1_fold/$h1_msg marked deleted $expunge_message $dry_message\n" ;
-			unless( $dry ) {
-				$imap1->delete_message( $h1_msg ) ;
-				$h1_nb_msg_deleted += 1 ;
-				$imap1->expunge() if ( $expungeaftereach and ( $expunge or $expunge1 ) ) ;
-			}
-		}
-		
-	}
-	# END MESS: loop
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-	MESS_IN_CACHE: foreach my $h1_msg ( @h1_msgs_in_cache ) {
-		my $h2_msg = $cache_1_2_ref->{ $h1_msg } ;
-		$debugcache and print "cache messages update flags $h1_msg->$h2_msg\n";
-		sync_flags( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-		my $h1_size = $h1_fir_ref->{ $h1_msg }->{ 'RFC822.SIZE' } || 0 ;
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-                $h1_nb_msg_processed +=1 ;
-	}
-	
-	#print "Messages by uid: ", map { "$_ " } keys %h1_msgs_copy_by_uid, "\n" ;
-	MESS_BY_UID: foreach my $h1_msg ( sort { $a <=> $b } keys %h1_msgs_copy_by_uid ) {
-		# 
-		$debug and print "Copy by uid $h1_fold/$h1_msg\n" ;
-                last FOLDER if $imap1->IsUnconnected();
-                last FOLDER if $imap2->IsUnconnected();
-		copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-		last FOLDER if total_bytes_max_reached(  ) ;
-	}
-	
-	if ($expunge or $expunge1){
-		print "Expunging host1 folder $h1_fold $dry_message\n";
-		unless($dry) { $imap1->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging host2 folder $h2_fold $dry_message\n";
-		unless($dry) { $imap2->expunge() };
-	}
-
-	$debug and print "Time: ", timenext(), " s\n";
-}
-
-sub total_bytes_max_reached {
-
-	return( 0 ) if not $exitwhenover ;
-	if ( $total_bytes_transferred >= $exitwhenover ) {
-        	print "Maximum bytes transfered reached, $total_bytes_transferred >= $exitwhenover, ending sync\n" ;
-        	return( 1 ) ;
-        }  
-
-}
-
-sub size_filtered_flag {
-	my $h1_size = shift ;
-	
-	if (defined $maxsize and $h1_size >= $maxsize) {
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub sync_flags {
-	my ( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) = @_ ;
-	$debug and print "Host1 flags $h1_fold/$h1_msg -> Host2 $h2_fold/$h2_msg\n";
-
-	my $h1_size = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} ;
-	return() if size_filtered_flag( $h1_size ) ;
-
-	# used cached flag values for efficiency
-	my $h1_flags = $h1_fir_ref->{ $h1_msg }->{ "FLAGS" } || '' ;
-	my $h2_flags = $h2_fir_ref->{ $h2_msg }->{ "FLAGS" } || '' ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags init msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-
-	# RFC 2060: This flag can not be altered by any client
-	$h1_flags =~ s@\\Recent\s?@@gi ;
-	$h1_flags = flags_regex( $h1_flags ) if @regexflag;
-	$h1_flags = flagsCase( $h1_flags ) if $flagsCase ;
-	$h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-	
-	# compare flags - set flags if there a difference
-	my @h1_flags = sort split(' ', $h1_flags );
-	my @h2_flags = sort split(' ', $h2_flags );
-	my $diff = compare_lists( \@h1_flags, \@h2_flags );
-
-	#$diff = 1 ;
-	( $debug or $debugflags ) and print "Host1 flags filt msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-	$diff and ( $debug or $debugflags ) 
-		and     print "Host2 flags msg $h2_fold/$h2_msg replacing h2 flags( $h2_flags ) with h1 flags( $h1_flags )\n";
-	# This sets flags so flags can be removed with this
-	# When you remove a \Seen flag on host1 you want to it
-	# to be removed on host2. Just add flags is not what 
-	# we need most of the time.
-	
-	if ( ! $dry and $diff and ! $imap2->store( $h2_msg, "FLAGS.SILENT (@h1_flags)" ) ) {
-		print "Host2 flags msg $h2_fold/$h2_msg could not add flags [@h1_flags]: ",
-		  $imap2->LastError, "\n";
-		#$nb_errors++;
-	}
-}
-
-print "++++ End looping on each folder\n";
-#print memory_consumption();
-
-if ( $foldersizesatend ) {
-	( $h1_nb_msg_end, $h1_bytes_end ) = foldersizes( "Host1", $imap1, @h1_folders_wanted ) ;
-	( $h2_nb_msg_end, $h2_bytes_end ) = foldersizes( "Host2", $imap2, @h2_folders_from_1_wanted ) ;
-}
-
-$imap1->logout(  ) ;
-$imap2->logout(  ) ;
-
-stats(  ) ;
-exit_clean( 1 ) if ( $nb_errors ) ;
-exit_clean( 0 ) ;
-
-# END of main program
-
-# subroutines
-
-sub max {
-	return(undef) if (0 == scalar(@_));
-	my @sorted = sort { $a <=> $b } @_;
-	return(pop(@sorted));
-}
-
-sub tests_max {
-	ok(0 == max(0),   "max 0");
-	ok(1 == max(1),   "max 1");
-	ok(-1 == max(-1), "max -1");
-	ok(! defined(max()), "max no arg");
-	ok(100 == max(1, 100), "max 1 100");
-	ok(100 == max(100, 1), "max 100 1");
-	ok(100 == max(100, 42, 1), "max 100 42 1");
-	ok(100 == max(100, "42", 1), "max 100 42 1");
-	ok(100 == max("100", "42", 1), "max 100 42 1");
-	#ok(100 == max(100, "haha", 1), "max 100 42 1");
-}
-
-sub keyval {
-        my %hash = @_ ;
-        return( join( " ", map( { "$_ => " . $hash{ $_ } } keys %hash ) ) . "\n" ) ;
-}
-        
-
-
-sub check_lib_version {
-	$debug and print "IMAPClient $Mail::IMAPClient::VERSION\n";
-	##if ($Mail::IMAPClient::VERSION eq '2.2.9') {
-	if ($Mail::IMAPClient::VERSION eq '3.31') {
-		override_imapclient2();
-		return(1);
-	}
-	else{
-		# 3.x.x is no longer buggy with imapsync.
-		if ($allow3xx) {
-			return(1);
-		}else{
-			return(0);
-		}
-	}
-}
-
-sub modules_VERSION {
-
-	my @list_version;
-
-	foreach my $module (qw(
-Mail::IMAPClient
-IO::Socket      
-IO::Socket::INET
-IO::Socket::SSL 
-Digest::MD5     
-Digest::HMAC_MD5
-Term::ReadKey
-Authen::NTLM))
-	{
-		my $v = "?";
-	
-		if (eval "require $module") {
-			# module is here
-			$v = eval "\$${module}::VERSION";
-		}else{
-			# no module
-			$v = "?";
-		}
-		#print ("$module ", $v, "\n");
-		push (@list_version, sprintf("%-20s %s\n", $module, $v));
-	}
-	return(@list_version);
-}
-
-# Construct a command line copy with passwords replaced by MASKED.
-sub command_line_nopassword {
-	my @argv_copy = @_;
-	my @argv_nopassword;
-        
-        return("@argv_copy") if $showpasswords ;
-	while (@argv_copy) {
-		my $arg = shift(@argv_copy); # option name or value
-		if ($arg =~ m/-password[12]/) {
-			shift(@argv_copy); # password value 
-			push(@argv_nopassword, $arg, "MASKED"); # option name and fake value
-		}else{
-			push(@argv_nopassword, $arg); # same option or value
-		}
-	}
-	return("@argv_nopassword");
-}
-
-sub tests_command_line_nopassword {
-
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 MASKED' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 MASKED --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-	$showpasswords = 1 ;
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 secret1' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 secret1 --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-
-}
-
-sub ask_for_password {
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-sub catch_exit {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-	stats(  ) ;
-	exit_clean( 6 ) ;
-}
-
-sub catch_continue {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-}
-
-sub myconnect {
-	my $self = shift;
-	
-	$debug and print "Entering myconnect\n";
-	%$self = (%$self, @_);
-
-        my $sock = (($self->Ssl) ? IO::Socket::SSL->new : IO::Socket::INET->new);
-        my $dp = ($self->Ssl ? 'imaps(993)' : 'imap(143)');
-
-	$debug and print "Calling configure\n";
-	my $ret = $sock->configure({
-		PeerAddr => $self->Server		,
-                PeerPort => $self->Port||$dp	       	,
-                Proto    => 'tcp' 			,
-                Timeout  => $self->Timeout||0		,
-		Debug	=> $self->Debug 		,
-	});
-	unless ( defined($ret) ) {
-		$self->LastError( "$@\n");	  
-		$@ 		= "$@";   
-		carp 		  "$@" 
-				unless defined wantarray;	
-		return undef;
-	}
-	$sock->autoflush(1);
-	
-	my $banner = $sock->getline();
-	$debug and print "Read: $banner";
-	
-	$self->Banner($banner);
-	$self->RawSocket2($sock);
-	$self->State(Connected);
-	if ($banner =~ /\* PREAUTH/)
-        {
-            $self->State(Authenticated);
-        }	
-	if ($self->Tls) {
-	    starttls($self);
-	    $self->Starttls( 1 ) ;
-	}
-	
-	$self->Ignoresizeerrors($allowsizemismatch);
-	
-	if ($self->User and $self->Password) {
-		$debug and print "Calling login\n";
-		return $self->login ;
-	} 
-	else {
-		return $self;
-	}
-}
-
-
-
-
-sub starttls {
-  my $self   = shift;
-  my $socket   = $self->RawSocket2();
-  
-  $debug and print "Entering starttls\n";
-  unless ($self->has_capability("STARTTLS")) {
-    die_clean( "No STARTTLS capability" );
-  }
-  
-  print $socket "z00 STARTTLS\015\012";
-  CORE::select( undef, undef, undef, 0.025 );
-  my $txt = $socket->getline();
-  $debug and print "Read tls: $txt";
-  unless($txt =~ /^z00 OK/){
-    die_clean( "Invalid response for STARTTLS: $txt\n" );
-  }
-  $debug and print "Calling start_SSL\n";
-  unless(IO::Socket::SSL->start_SSL($socket,
-      {
-      SSL_version    =>  "TLSV1",
-      SSL_startHandshake => 1,
-      SSL_verify_depth => 1,
-      }))
-  {
-    die_clean( "Couldn't start TLS: ".IO::Socket::SSL::errstr()."\n");
-  }
-  if (ref($socket) ne "IO::Socket::SSL") {
-    die_clean( "Socket has NOT been converted to SSL");
-  }else{
-     $debug and print "Socket successfuly converted to SSL\n";
-  }
-  $debug and print "Ending starttls\n";
-}
-
-
-
-sub connect_imap {
-	my($host, $port, $debugimap, $ssl, $tls) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Can not open imap connection on [$host]: $@\n");	
-}
-
-sub justconnect {
-	my $imap1 = ();
-	my $imap2 = ();
-	
-	$imap1 = connect_imap($host1, $port1, $debugimap1, $ssl1, $tls1);
-	print "Host1 software: ", server_banner($imap1);
-	print "Host1 capability: ", join(" ", $imap1->capability()), "\n";
-	$imap2   = connect_imap($host2, $port2, $debugimap2, $ssl2, $tls2);
-	print "Host2 software: ", server_banner($imap2);
-	print "Host2 capability: ", join(" ", $imap2->capability()), "\n";
-	$imap1->logout();
-	$imap2->logout();
-
-}
-
-sub relogin1 {
-	$imap1 = relogin_imap(
-		$imap1,
-		$host1, $port1, $user1, $domain1, $password1, 
-		$debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		$authmech1, $authuser1, $reconnectretry1,
-		$proxyauth1, $uid1, $split1) ;
-		
-	$relogin1-- if ( $relogin1 ) ;
-}
-
-sub relogin2 {
-	$imap2 = relogin_imap(
-		$imap2,
-		$host2, $port2, $user2, $domain2, $password2, 
-		$debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		$authmech2, $authuser2, $reconnectretry2,
-		$proxyauth2, $uid2, $split2) ;
-		
-	$relogin2-- if ( $relogin2 )  ;
-}
-
-sub relogin_imap {
-	my($imap,
-	   $host, $port, $user, $domain, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split) = @_;
-
-	my $folder_current = $imap->Folder ;
-	$imap->logout(  ) ;
-	$imap = login_imap(
-		$host, $port, $user, $domain, $password, 
-		$debugimap, $timeout, $fastio, 
-		$ssl, $tls, $authmech, $authuser, $reconnectretry,
-		$proxyauth, $uid, $split
-	) ;
-	$imap->select( $folder_current ) if defined( $folder_current ) ;
-	return( $imap ) ;
-}
-
-sub login_imap {
-	my($host, $port, $user, $domain, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split ) = @_;
-	my ($imap);
-	
-	$imap = Mail::IMAPClient->new();
-	
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	$imap->Clear(1);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid($uid);
-	#$imap->Uid(0);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-
-	$imap->Reconnectretry($reconnectretry) if ($reconnectretry);
-
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Failure: can not open imap connection on [$host] with user [$user]: $@\n");
-	
-	print "Banner: ", server_banner($imap);
-	
-        if ( $authmech eq 'PREAUTH' ) {
-        	if ( $imap->IsAuthenticated( ) ) {
-        		$imap->Socket ;
-			printf("Info: Assuming PREAUTH for host %s\n", $imap->Server ) ;
-        	}else{
-                	die_clean( "Failure: error login on [$host] with user [$user] auth [PREAUTH]" ) ;
-                }
-        }
-        
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Info: host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} 
-	else {
-		printf("Info: host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Info: frequently PLAIN is only supported with SSL, ",
-			  "try --ssl or --tls options\n";
-		}
-	}
-	
-        if ($proxyauth) {
-                $imap->Authmechanism("");
-        } else {
-                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' ) ;
-        }
-
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-	$imap->Authcallback(\&xgwtrustedappauth) if $authmech eq "XGWTRUSTEDAPP";
-	
-
-        if ($proxyauth) {
-                $imap->User($authuser);
-		$imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                $imap->Password($password);
-        } else {
-                $imap->User($user);
-		$imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                $imap->Password($password);
-        }
-	
-	unless ( $authmech eq 'PREAUTH' or $imap->login( ) ) {
-		my $info  = "Failure: error login on [$host] with user [$user] auth" ;
-		my $einfo = $imap->LastError || @{$imap->History}[-1] ;
-		chomp( $einfo ) ;
-		my $error = "$info [$authmech]: $einfo\n" ;
-                if ( $authmech eq 'LOGIN' or $imap->IsUnconnected( ) or $authuser ) {
-                	die_clean( $error ) ;
-                }else{
-			print $error ;
-                }
-		print "Info: trying LOGIN Auth mechanism on [$host] with user [$user]\n" ;
-		$imap->Authmechanism("") ;
-		$imap->login() or
-		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n") ;
-	}
-	$proxyauth && $imap->proxyauth($user);
-	$split and $imap->Split( $split ) ;
-	
-	print "Info: success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap);
-}
-
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-sub xgwtrustedappauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = 'XGWTRUSTEDAPP ' . encode_base64(sprintf("%s\x00%s", $imap->Authuser, $imap->Password), "");
-
-        return $string;
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	my $banner = $imap->Banner() ||  "No banner\n";
-	return $banner;
- }
-
-
-sub banner_imapsync {
-
-	my @argv_copy = @_;
-	my $banner_imapsync = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.516 $ ',
-		  '$Date: 2012/11/02 22:15:04 $ ',
-		  "\n",localhost_info(), "\n",
-		  "Command line used:\n",
-		  "$0 ", command_line_nopassword(@argv_copy), "\n",
-	);
-}
-
-sub is_valid_directory {
-	my $dir = shift;
-	return(1) if (-d $dir and -r _ and -w _);
-	# Trying to create it
-	mkpath($dir) or die "Error creating tmpdir $tmpdir : $!";
-	die "Error with tmpdir $tmpdir : $!" if not (-d $dir and -r _ and -w _);
-	return(1);
-}
-
-
-sub write_pidfile { 
-	my $pidfile = shift ;
-	
-	print "PID file is $pidfile\n" ;
-	if ( -e $pidfile and $pidfilelocking ) {
-		print "$pidfile already exists, another imapsync may be curently running. Aborting imapsync.\n" ;
-                exit( 8 ) ;
-	} 
-	if ( -e $pidfile ) {
-		print "$pidfile already exists, overwriting it\n" ;
-	} 
-	open( PIDFILE, ">$pidfile" ) or do {
-		print "Could not open $pidfile for writing" ;
-		return undef ;
-	} ;
-	
-	print PIDFILE $PROCESS_ID ;
-	close PIDFILE ;
-	return( $PROCESS_ID ) ;
-} 
-
-sub exit_clean {
-	my $status = shift ;
-	$status = defined( $status ) ? $status : 1 ;
-	unlink( $pidfile ) ;
-	exit( $status ) ;
-}
-
-sub die_clean { 
-	unlink( $pidfile ) ;
-	die @_ ;
-} 
-
-sub missing_option {
-	my ($option) = @_;
-	die_clean("$option option must be used, run $0 --help for help\n");
-}
-
-
-sub select_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->select( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not select: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok select succeeded
-		return( 1 ) ;
-	}
-}
-
-sub examine_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->examine( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not examine: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok examine succeeded
-		return( 1 ) ;
-	}
-}
-
-
-sub create_folder {
-	my( $imap2, $h2_fold, $h1_fold ) = @_ ;
-	
-	print "Creating folder [$h2_fold] on host2\n";
-        if ( ( 'INBOX' eq uc( $h2_fold) )
-         and ( $imap2->exists( $h2_fold ) ) ) {
-                print "Folder [$h2_fold] already exists\n" ;
-                return( 1 ) ;
-        }
-	if ( ! $dry ){
-		if ( ! $imap2->create( $h2_fold ) ) {
-			print( "Couldn't create folder [$h2_fold] from [$h1_fold]: ",
-			$imap2->LastError(  ), "\n" );
-			$nb_errors++;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $imap2->exists( $h2_fold ) ;
-                        # failure since create failed
-			return( 0 );
-		}else{
-			#create succeeded
-			return( 1 );
-		}
-	}else{
-		# dry mode, no folder so many imap will fail, assuming failure
-		return( 0 );
-	}
-}
-
-
-
-sub tests_folder_routines {
-	ok( !is_requested_folder('folder_foo')                                );
-	ok(  add_to_requested_folders('folder_foo')                           );
-	ok(  is_requested_folder('folder_foo')                                );
-	ok( !is_requested_folder('folder_NO_EXIST')                           );
-	ok( !remove_from_requested_folders('folder_foo'), "removed folder_foo");
-	ok( !is_requested_folder('folder_foo')                                );
-	my @f;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f");
-	ok(  is_requested_folder('folder_bar')                                );
-	ok(  is_requested_folder('folder_toto')                               );
-	ok(  remove_from_requested_folders('folder_toto')                     );
-	ok( !is_requested_folder('folder_toto')                               );
-}
-
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	defined( $requested_folder{ $folder } );
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder };
-	}
-	return( keys( %requested_folder ) );
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder};
-	}
-	return( keys(%requested_folder) );
-}
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if ((not defined($list_1_ref)) and not defined($list_2_ref)); # end if no list
-	return(1)  if (not defined($list_2_ref)); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = -1;
-	#print "\$#$list_1_ref:", $#$list_1_ref, "\n";
-	#print "\$#$list_2_ref:", $#$list_2_ref, "\n";
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref);
-	
-	# same size, each element equal
-	return 0
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-	ok(-1 == compare_lists(undef , [1])    , 'compare_lists, undef < [1]');
-	ok(-1 == compare_lists(undef , [0])    , 'compare_lists, undef < [0]');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-
-	ok(-1 == compare_lists([] , [1])        , 'compare_lists, [] < [1]');
-	ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
-
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 0 ,  1 )          , "compare_lists,  0  <  1 ") ;
-	ok(-1 == compare_lists(-1 ,  0 )          , "compare_lists, -1  <  0 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  <  2 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  2  >  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(+1 == compare_lists([2], [1,2])     , "compare_lists, [2] > [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-	ok( 0 == compare_lists([split(" ", "a b")], ["a", "b"]), 'compare_lists, split') ;
-	ok( 0 == compare_lists([sort split(" ", "b a")], ["a", "b"]), 'compare_lists, sort split') ;
-}
-
-
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      help_to_guess_prefix($imap, $prefix_opt);
-		exit_clean(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ( defined( $sep_in ) ) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out) if defined $sep_out;
-		print 
-		  "NAMESPACE request failed for ", 
-		  $imap->Server(), ": ", $imap->LastError, "\n",
-                  help_to_guess_sep( $imap, $sep_opt ) ;
-		exit_clean(1);
-	}
-	else{
-		print
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      help_to_guess_sep($imap, $sep_opt);
-		exit_clean(1);
-	}
-}
-
-sub help_to_guess_sep {
-	my($imap, $sep_opt) = @_;
-	
-	my $help = "Give the separator character with the $sep_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help($imap)
-	. "Most of the time it is character . or /\n"
-	. "so try $sep_opt . or $sep_opt /\n";
-	
-	return($help);
-}
-
-sub help_to_guess_prefix {
-	my($imap, $prefix_opt) = @_;
-		      
-	my $help = "Give the prefix namespace with the $prefix_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help($imap)
-	. "Most of the time it is INBOX. or an empty string\n"
-	. "so try $prefix_opt INBOX. or $prefix_opt ''\n";
-	
-	return($help);
-}
-
-
-sub folders_list_to_help {
-	my($imap) = @_;
-
-	my @folders = $imap->folders;
-	my $listing = join('', map { "[$_]\n" } @folders);
-	return $listing;
-	
-}
-
-sub separator_invert { 
-	# The separator we hope we'll never encounter: 00000000 
-	my $o_sep="\000" ;
-
-	my($h1_fold, $h1_sep, $h2_sep) = @_ ;
-
-	my $h2_fold = $h1_fold ;
-	$h2_fold =~ s@\Q$h2_sep@$o_sep@g ;
-	$h2_fold =~ s@\Q$h1_sep@$h2_sep@g ;
-	$h2_fold =~ s@\Q$o_sep@$h1_sep@g ;
-        $h2_fold =~ s,/,_,g if( $fixslash2 and '/' ne $h2_sep and '/' eq $h1_sep ) ;
-	return( $h2_fold ) ;
-} 
-
-
-sub tests_imap2_folder_name {
-
-$h1_prefix = $h2_prefix = '';
-$h1_sep = '/';
-$h2_sep = '.';
-
-$debug and print 
-"prefix1: [$h1_prefix]
-prefix2: [$h2_prefix]
-sep1:[$h1_sep]
-sep2:[$h2_sep]
-";
-
-$fixslash2 = 0 ;
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam');
-@regextrans2 = ('s,/,X,g');
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string [s,/,X,g]');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,/,X,g]');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam [s,/,X,g]');
-ok('spamXspam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam [s,/,X,g]');
-ok('spam.spamXspam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam [s,/,X,g]');
-
-@regextrans2 = ('s, ,_,g');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s, ,_,g]');
-ok('bla_bla' eq imap2_folder_name('bla bla'), 'imap2_folder_name: blabla [s, ,_,g]');
-
-@regextrans2 = ('s,(.*),\U$1,');
-ok('BLABLA' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,\U(.*)\E,$1,]');
-
-$fixslash2 = 1 ;
-@regextrans2 = (  ) ;
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-ok('spam_spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam -> spam_spam');
-ok('spam.spam_spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam_spam');
-
-$h1_sep = '.';
-$h2_sep = '/';
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam -> spam/spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam/spam');
-
-
-}
-
-sub imap2_folder_name {
-	my ($h2_fold);
-	my ($x_fold) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^\Q$h1_prefix\E//;
-	$debug and print "removed host1 prefix: [$x_fold]\n";
-	$h2_fold = separator_invert($x_fold,$h1_sep, $h2_sep);
-	$debug and print "inverted  separators: [$h2_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$h2_fold = $h2_prefix . $h2_fold 
-	  unless(($h2_prefix eq "INBOX" . $h2_sep) and ($h2_fold =~ m/^INBOX$/i));
-	$debug and print "added   host2 prefix: [$h2_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-	        my $h2_fold_before = $h2_fold;
-		eval("\$h2_fold =~ $regextrans2");
-		$debug and print "[$h2_fold_before] -> [$h2_fold] using re [$regextrans2]\n";
-		die_clean("error: eval regextrans2 '$regextrans2': $@\n") if $@;
-	}
-	return($h2_fold);
-}
-
-
-sub foldersizes {
-
-	my ( $side, $imap, @folders ) = @_ ;
-	my $total_size = 0 ;
-	my $total_nb = 0 ;
-	my $biggest = 0 ;
-	
-	print "++++ Calculating sizes on $side\n" ;
-	foreach my $folder ( @folders )     {
-		my $stot = 0 ;
-		my $nb_msgs = 0 ;
-		printf( "$side folder %-35s", "[$folder]" ) ;
-                if ( 'Host2' eq $side and ! exists( $h2_folders_all{ $folder } ) ) {
-		        print(" does not exist yet\n") ;
-			next ;
-		}
-                if ( 'Host1' eq $side and ! exists( $h1_folders_all{ $folder } ) ) {
-		        print( " does not exist\n" ) ;
-			next ;
-		}
-                
-		unless ( $imap->examine( $folder ) ) {
-			print 
-			  "$side Folder $folder: Could not examine: ",
-			    $imap->LastError,  "\n" ;
-			$nb_errors++ ;
-			next ;
-		}
-		
-		my $hash_ref = { } ;
-		my @msgs = select_msgs( $imap ) ;
-		$nb_msgs = scalar( @msgs ) ;
-		my $smax = 0 ;
-		@$hash_ref{ @msgs } = ( undef ) if @msgs ;
-		if ( $nb_msgs > 0 and @msgs ) {
-                	if ( $abletosearch ) {
-				$imap->fetch_hash( "RFC822.SIZE", $hash_ref) or die_clean("$@" ) ;
-                        }else{
-                        	$imap->fetch_hash( '1:999999', "RFC822.SIZE", $hash_ref ) or die_clean( "$@" ) ;
-                        }
-			#print map {$hash_ref->{$_}->{"RFC822.SIZE"}, " "} keys %$hash_ref ;
-			map { $stot += $hash_ref->{ $_ }->{ "RFC822.SIZE" } } keys %$hash_ref ;
-			$smax = max( map { $hash_ref->{ $_ }->{ "RFC822.SIZE" } } keys %$hash_ref ) ;
-			$biggest  = max( $biggest, $smax ) ;
-		}
-		
-		printf( " Size: %9s", $stot ) ;
-		printf( " Messages: %5s", $nb_msgs ) ;
-		printf( " Biggest: %9s\n", $smax ) ;
-		$total_size += $stot ;
-		$total_nb += $nb_msgs ;
-	}
-	printf ( "%s Nb messages:     %11s messages\n", $side, $total_nb ) ;
-	printf ( "%s Total size:      %11s bytes (%s)\n", $side, $total_size, bytes_display_string( $total_size ) ) ;
-	printf ( "%s Biggest message: %11s bytes (%s)\n", $side, $biggest, bytes_display_string( $biggest ) ) ;
-	printf ( "%s Time spent:      %11.1f seconds\n", $side, timenext(  ) ) ;
-        return( $total_nb, $total_size ) ;
-}
-
-sub timenext {
-	my ( $timenow, $timediff ) ;
-	# $timebefore is global, beurk !
-	$timenow    = time ;
-	$timediff   = $timenow - $timebefore ;
-	$timebefore = $timenow ;
-	return( $timediff ) ;
-}
-
-sub timesince {
-	my $timeinit = shift ;
-	my ( $timenow, $timediff ) ;
-	$timenow    = time ;
-	$timediff   = $timenow - $timeinit ;
-	return( $timediff ) ;
-}
-
-
-
-
-sub tests_flags_regex {
-	
-	my $string;
-	ok('' eq flags_regex(''), "flags_regex, null string ''");
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, nothing to do');
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex,');
-	@regexflag = ('s/NonJunk//g');
-	ok('\Seen  $Spam' eq flags_regex('\Seen NonJunk $Spam'), "flags_regex, remove NonJunk: 's/NonJunk//g'");
-	@regexflag = ('s/\$Spam//g');
-	ok('\Seen NonJunk ' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove $Spam: '."'s/\$Spam//g'");
-	
-	@regexflag = ('s/\\\\Seen//g');
-	
-	ok(' NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove \Seen: '. "'s/\\\\\\\\Seen//g'");
-	
-	@regexflag = ('s/(\s|^)[^\\\\]\w+//g');
-	ok('\Seen \Middle \End' eq flags_regex('\Seen NonJunk \Middle $Spam \End'), 'flags_regex, only \word [' . flags_regex('\Seen NonJunk \Middle $Spam \End'.']'));
-	ok(' \Seen \Middle \End1' eq flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'), 'flags_regex, only \word [' . flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'.']'));
-
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g');
-	ok('Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), "Keep only regex");
-	#ok('Keep1 Keep2' eq flags_regex('Keep1 Keep2 Remove1'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM REM Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM REM  Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM Keep1'), "Keep only regex");
-
-	@regexflag = ('s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 ReB'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 REM REM  REM'), "Keep only regex");
-	ok('Keep2 ' eq flags_regex('Keep2 REM REM  REM'), "Keep only regex");
-	#ok('' eq flags_regex('REM REM'), "Keep only regex");
-	
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g', 
-	's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	
-	@regexflag = ('s/(.*)/$1 jrdH8u/');
-	ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), "Keep only regex 's/(.*)/\$1 jrdH8u/'");	
-	@regexflag = ('s/jrdH8u *//');
-	ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), "Keep only regex s/jrdH8u *//");	
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(Keep1|Keep2|Keep3|jrdH8u)/$1 /g', 
-	's/(Keep1|Keep2|Keep3|jrdH8u) (?!(Keep1|Keep2|Keep3|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex 'REM Keep1 REM Keep2 REM'");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	ok('' eq flags_regex('REM  REM REM REM REM'), "Keep only regex");
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)/$1 /g', 
-	's/(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u) (?!(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla $Junk \\Deleted machin \\Answered truc'), "Keep only regex: Exchange case");
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string");
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), "Keep only regex: Exchange case, no accepted flags ");
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), "Keep only regex: Exchange case");
-	
-	
-	@regexflag = (
-	's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string (Phil)");
-	
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), 
-	"Keep only regex: Exchange case, no accepted flags (Phil)");
-	
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	
-}
-
-sub flags_regex {
-	my ($h1_flags) = @_;
-	foreach my $regexflag (@regexflag) {
-		my $h1_flags_orig = $h1_flags;
-		$debugflags and print "eval \$h1_flags =~ $regexflag\n";
-		eval("\$h1_flags =~ $regexflag");
-		die_clean("error: eval regexflag '$regexflag': $@\n") if $@;
-		$debugflags and print "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n";
-	}
-	return($h1_flags);
-}
-
-sub acls_sync {
-	my($h1_fold, $h2_fold) = @_;
-	if ($syncacls) {
-		my $h1_hash = $imap1->getacl($h1_fold)
-		  or print "Could not getacl for $h1_fold: $@\n";
-		my $h2_hash = $imap2->getacl($h2_fold)
-		  or print "Could not getacl for $h2_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$h1_hash), keys(%$h2_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $h1_hash->{$user} || "none";
-			print "acl $user: [$acl]\n";
-			next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-				 $h1_hash->{$user} eq $h2_hash->{$user});
-			unless ($dry) {
-				print "setting acl $h2_fold $user $acl\n";
-				$imap2->setacl($h2_fold, $user, $acl)
-				  or print "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-sub tests_permanentflags {
-	
-	my $string;
-	ok('' eq permanentflags(' * OK [PERMANENTFLAGS (\* \Draft \Answered)] Limited'), 
-	   'permanentflags \*');
-	ok('\Draft \Answered' eq permanentflags(' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited'), 
-	   'permanentflags \Draft \Answered');
-	ok('\Draft \Answered' 
-	   eq permanentflags('Blabla', 
-	                     ' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited',
-			     'Blabla'),
-	   'permanentflags \Draft \Answered'
-	);
-	ok('' eq permanentflags('Blabla'), 'permanentflags nothing');
-}
-
-sub permanentflags {
-	my @lines = @_ ;
-
-	foreach my $line (@lines) {
-		if ( $line =~ m{\[PERMANENTFLAGS \(([^)]+?)\)\]} ) {
-			( $debugflags or $debug ) and print "permanentflags: $line" ;
-			my $permanentflags = $1 ;
-			if ( $permanentflags =~ m{\\\*} ) {
-				$permanentflags = '' ;
-			}
-			return($permanentflags) ;
-		};
-	}
-}
-
-sub tests_flags_filter {
-
-	ok( '\Seen' eq flags_filter('\Seen', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '' eq flags_filter('\Seen', '\Draft  \Answered'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', '\Seen'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', ' \Seen '), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', ' \Draft \Seen \Answered '), 'flags_filter ' );
-
-}
-
-sub flags_filter {
-	my($flags, $allowed_flags) = @_;
-	
-	my @flags = split(/\s+/, $flags);
-	my %allowed_flags = map { $_ => 1 } split(' ', $allowed_flags );
-	my @flags_out     = map { exists $allowed_flags{$_} ? $_ : () } @flags;
-
-	my $flags_out = join(' ', @flags_out);
-	#print "%%%$flags_out%%%\n";
-	return($flags_out);
-}
-
-sub flagsCase {
-	my $flags = shift ;
-	
-	my @flags = split( /\s+/, $flags );
-	my %rfc_flags = map { $_ => 1 } split(' ', '\Answered \Flagged \Deleted \Seen \Draft' );
-	my @flags_out = map { exists $rfc_flags{ ucsecond( lc( $_ ) ) } ? ucsecond( lc( $_ ) ) : $_ } @flags ;
-
-	my $flags_out = join( ' ', @flags_out ) ;
-	#print "%%%$flags_out%%%\n" ;
-	return( $flags_out ) ;
-}
-
-sub tests_flagsCase {
-	ok( '\Seen' eq flagsCase( '\Seen' ), 'flagsCase: \Seen -> \Seen' ) ;
-	ok( '\Seen' eq flagsCase( '\SEEN' ), 'flagsCase: \SEEN -> \Seen' ) ;
-
-	ok( '\Seen \Draft' eq flagsCase( '\SEEN \DRAFT' ), 'flagsCase: \SEEN \DRAFT -> \Seen \Draft' ) ;
-	ok( '\Draft \Seen' eq flagsCase( '\DRAFT \SEEN' ), 'flagsCase: \DRAFT \SEEN -> \Draft \Seen' ) ;
-	
-	ok( '\Draft LALA \Seen' eq flagsCase( '\DRAFT  LALA \SEEN' ), 'flagsCase: \DRAFT  LALA \SEEN -> \Draft LALA \Seen' ) ;
-	ok( '\Draft lala \Seen' eq flagsCase( '\DRAFT  lala \SEEN' ), 'flagsCase: \DRAFT  lala \SEEN -> \Draft lala \Seen' ) ;
-}
-
-sub ucsecond {
-	my $string = shift ;
-	my $output ;
-	
-	return( $string )  if ( 1 >= length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) if ( 2 == length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) . substr( $string, 2 );
-	#print "UUU $string -> $output\n" ;
-	return( $output ) ;
-}
-
-
-sub tests_ucsecond {
-	ok( 'aBcde' eq ucsecond( 'abcde' ), 'ucsecond: abcde -> aBcde' ) ;
-	ok( 'ABCDE' eq ucsecond( 'ABCDE' ), 'ucsecond: ABCDE -> ABCDE'  ) ;
-	ok( 'ABCDE' eq ucsecond( 'AbCDE' ), 'ucsecond: AbCDE -> ABCDE'  ) ;
-	ok( 'ABCde' eq ucsecond( 'AbCde' ), 'ucsecond: AbCde -> ABCde'  ) ;
-	ok( 'A'     eq ucsecond( 'A' ),     'ucsecond: A  -> A'  ) ;
-	ok( 'AB'    eq ucsecond( 'Ab' ),    'ucsecond: Ab -> AB' ) ;
-	ok( '\B'    eq ucsecond( '\b' ),    'ucsecond: \b -> \B' ) ;
-	ok( '\Bcde' eq ucsecond( '\bcde' ), 'ucsecond: \bcde -> \Bcde' ) ;
-}
-
-sub select_msgs {
-	my ( $imap, $msgs_all_hash_ref ) = @_ ;
-	my ( @msgs, @msgs_all, @max, @min, @union, @inter ) ;
-	
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-	if ( defined( $msgs_all_hash_ref ) 
-        or ( ! defined( $maxage ) and ! defined( $minage ) and ! defined( $search ) )
-        ) {
-        	if ( $abletosearch ) {
-        		$debugdev and print "Calling messages()\n" ;
-			@msgs = $imap->messages() ;
-                }else{ 
-                	$debugdev and print "Calling fetch_hash()\n" ;
-                	@msgs = sort { $a <=> $b } keys( %{$imap->fetch_hash( '1:999999', "RFC822.SIZE")} ) ;
-                }
-                $debugdev and print "Done fetch_hash()\n" ;
-                
-                if ( defined( $msgs_all_hash_ref ) ) {
-                        @msgs_all = @msgs ;
-                        @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-                }
-                # return all messages
-                if ( ! defined( $maxage ) and ! defined( $minage ) and ! defined( $search ) ) {
-                        return( @msgs ) ;
-                }
-	}
-        
-        if ( defined( $search ) ) {
-        	@msgs = $imap->search( $search ) ;
-                return( @msgs ) ;
-        }
-        
-	if ( defined( $maxage ) ) {
-		@max = $imap->sentsince( $timestart_int - 86400 * $maxage ) ;
-	}
-	if ( defined($minage ) ) {
-		@min = $imap->sentbefore( $timestart_int - 86400 * $minage ) ;
-	}
-      SWITCH: {
-		unless( defined( $minage ) ) { @msgs = @max ; last SWITCH } ;
-		unless( defined( $maxage ) ) { @msgs = @min ; last SWITCH } ;
-		my ( %union, %inter ) ; 
-		foreach my $m ( @min, @max ) { $union{$m}++ && $inter{$m}++ }
-		@inter = keys( %inter ) ;
-		@union = keys( %union ) ;
-		# normal case
-		if ( $minage <= $maxage )  { @msgs = @inter ; last SWITCH } ;
-		# just exclude messages between
-		if ( $minage > $maxage )  { @msgs = @union ; last SWITCH } ;
-		
-	}
-	return(@msgs);
-}
-
-
-sub lastuid {
-	my $imap   = shift ;
-	my $folder = shift ;
-	my $lastuid_guess  = shift ;
-	my $lastuid ;
-	
-	# rfc3501: The only reliable way to identify recent messages is to
-	#          look at message flags to see which have the \Recent flag
-	#          set, or to do a SEARCH RECENT.
-	# SEARCH RECENT doesn't work this way on courrier.
-
-	my @recent_messages ;
-	# SEARCH RECENT for each transfer can be expensive with a big folder
-	# Call commented for now
-	#@recent_messages = $imap->recent(  ) ;
-	#print "Recent: @recent_messages\n";
-	
-	my $max_recent ;
-	$max_recent = max( @recent_messages ) ;
-	 
-	if ( defined( $max_recent ) and ($lastuid_guess <= $max_recent ) ) {
-		$lastuid = $max_recent ;
-	}else{
-		$lastuid = $lastuid_guess
-	}
-	return( $lastuid ) ;
-}
-
-sub size_filtered {
-	my( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) = @_ ;
-	
-        $h1_size = 0 if ( ! $h1_size ) ; # null if empty or undef
-	if (defined $maxsize and $h1_size >= $maxsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size exceeds maxsize limit $maxsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size smaller than minsize $minsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub message_exists {
-
-	my( $imap, $msg ) = @_ ;
-	return( 1 ) if not $imap->Uid(  ) ;
-        
-	my $search ;
-        ( $search ) = $imap->search( "UID $msg" ) ;
-        #print "$search ? $msg\n" ;
-        return( 1 ) if ( $search eq $msg ) ;
-        return( 0 ) ;
-
-}
-
-sub copy_message {
-	# copy
-	
-	my ( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) = @_ ;
-	$debug and print "msg $h1_fold/$h1_msg copying to $h2_fold\n";
-
-	my $h1_size  = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} || '' ;
-	my $h1_flags = $h1_fir_ref->{$h1_msg}->{"FLAGS"} || '' ;
-	my $h1_idate = $h1_fir_ref->{$h1_msg}->{"INTERNALDATE"} || '' ;
-	
-	
-        if (size_filtered( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) ) {
-        	$h1_nb_msg_processed +=1 ;
-                return(  ) ;
-        }
-	
-	my $string;
-	do { print "SLEEP 5\n" and sleep 5 ; } if ( $debugsleep ) ;
-	print "- msg $h1_fold/$h1_msg S[$h1_size] F[$h1_flags] I[$h1_idate] has RFC822.SIZE null!\n" if ( ! $h1_size ) ;
-
-	
-        if ( $checkmessageexists and not message_exists( $imap1, $h1_msg ) ) {
-        	$h1_nb_msg_processed +=1 ;
-                return(  ) ;
-        }
-        
-	$string = $imap1->message_string($h1_msg);
-	
-	
-	my $string_len = defined( $string ) ? length( $string ) : '' ; # length or undef
-	#print "- msg $h1_fold/$h1_msg {$string_len}\n" ;
-	unless ( defined( $string ) and $string_len ) { # undef or 0 length
-		print
-		"- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate] could not be fetched: ",
-		$imap1->LastError, "\n" ;
-		$nb_errors++ ;
-		$total_bytes_error += $h1_size if ( $h1_size ) ;
-		#relogin1(  ) if ( $relogin1 ) ;
-                $h1_nb_msg_processed +=1 ;
-		return(  ) ;
-	}
-	
-	if (@regexmess) {
-		$string = regexmess($string);
-	}
-
-	$debugcontent and print 
-		"=" x80, "\n", 
-		"F message content begin next line\n",
-		$string,
-		"F message content ended on previous line\n", "=" x 80, "\n";
-	my $h1_date = "";
-	if ($syncinternaldates) {
-		$h1_date = $h1_idate;
-		$debug and print "internal date from host1: [$h1_date]\n";
-		$h1_date = good_date($h1_date);
-		$debug and print "internal date from host1: [$h1_date] (fixed)\n";
-	}
-	
-	if ($idatefromheader) {
-		
-		$h1_date = $imap1->get_header($h1_msg,"Date");
-		$debug and print "header date from host1: [$h1_date]\n";
-		$h1_date = good_date($h1_date);
-		$debug and print "header date from host1: [$h1_date] (fixed)\n";
-	}
-
-        if ( $addheader and defined $h1_fir_ref->{$h1_msg}->{"NO_HEADER"} ) {
-                my $header = add_header( $h1_msg ) ;
-                $debug and print "msg $h1_fold/$h1_msg adding custom header [$header]\n" ;
-                $string = $header . "\r\n" . $string ;
-        }
-	# RFC 2060: This flag can not be altered by any client
-	$h1_flags =~ s@\\Recent\s?@@gi;
-	$h1_flags = flags_regex($h1_flags) if @regexflag;
-	$h1_flags = flagsCase( $h1_flags ) if $flagsCase ;
-        $h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-	
-	my $new_id;
-	$debug and print "msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n";
-	$h1_date = undef if ($h1_date eq "");
-	
-	unless ($dry) {
-		$max_msg_size_in_bytes = max($h1_size, $max_msg_size_in_bytes);
-		$new_id = $imap2->append_string($h2_fold, $string, $h1_flags, $h1_date);
-		unless($new_id){
-			no warnings 'uninitialized';
-			print "- msg $h1_fold/$h1_msg {$string_len} couldn't append  (Subject:[".
-			  $imap1->subject($h1_msg)."]) to folder $h2_fold: ",
-			  $imap2->LastError, "\n";
-			$nb_errors++;
-			$total_bytes_error += $h1_size;
-                        $h1_nb_msg_processed +=1 ;
-			return(  ) ;
-		}
-		else{
-			# good
-			# $new_id is an id if the IMAP server has the 
-			# UIDPLUS capability else just a ref
-			if ( $new_id !~ m{^\d+$} ) {
-				$new_id = lastuid( $imap2, $h2_fold, $h2_uidguess ) ;
-			}
-			$h2_uidguess += 1 ;
-			$total_bytes_transferred += $h1_size ;
-			$nb_msg_transferred += 1 ;
-                        $h1_nb_msg_processed +=1 ;
-                        
-                        my $time_spent = timesince( $begin_transfer_time ) ;
-                        my $rate = bytes_display_string( $total_bytes_transferred / $time_spent ) ;
-                        my $eta = eta( $time_spent, $h1_nb_msg_processed, $h1_nb_msg_start, $nb_msg_transferred ) ;
-                        #my $eta = eta( $time_spent, $nb_msg_transferred, $h1_nb_msg_start ) ;
-                        
-			printf( "msg %s/%-19s copied to %s/%-10s %.2f msgs/s  %s/s  %s\n", 
-                        $h1_fold, "$h1_msg {$string_len}", $h2_fold, $new_id, $nb_msg_transferred/$time_spent, $rate, $eta );
-                        
-                        if ( $usecache and $cacheaftercopy and $new_id =~ m{^\d+$} ) {
-				$debugcache and print "touch $cache_dir/${h1_msg}_$new_id\n" ;
-				touch( "$cache_dir/${h1_msg}_$new_id" ) 
-                        	or die( "Couldn't touch $cache_dir/${h1_msg}_$new_id" ) ;
-                        }
-			if ( $delete ) {
-				print "msg $h1_fold/$h1_msg deleted on host1\n";
-				unless($dry) {
-					$imap1->delete_message($h1_msg);
-					$h1_nb_msg_deleted += 1;
-					$imap1->expunge() if ( $expunge or $expunge1 );
-				}
-			}
-			#print "PRESS ENTER" and my $a = <> ;
-		}
-	}
-	else{
-		$nb_msg_skipped_dry_mode += 1;
-                $h1_nb_msg_processed +=1 ;
-	}
-}
-
-sub eta {
-
-	return( '' ) if not $foldersizes ;
-
-	my( $time_spent, $h1_nb_msg_processed, $h1_nb_msg_start, $nb_msg_transferred ) = @_ ;
-	
-        my $time_remaining = time_remaining( @_ ) ;
-        my $nb_msg_remaining = $h1_nb_msg_start - $h1_nb_msg_processed ;
-        my $eta_date = localtime( time + $time_remaining ) ;
-        return( sprintf( "ETA: %s  %1.0f s  %s msgs left", $eta_date, $time_remaining, $nb_msg_remaining ) ) ;
-        
-}
-
-sub time_remaining {
-
-	my( $time_spent, $h1_nb_msg_processed, $h1_nb_msg_start, $nb_msg_transferred ) = @_ ;
-
-	my $time_remaining = ( $time_spent / $nb_msg_transferred ) * ( $h1_nb_msg_start - $h1_nb_msg_processed ) ;
-	return( $time_remaining ) ;
-}
-
-
-sub tests_time_remaining {
-
-
-	ok( 1 == time_remaining( 1, 1, 2, 1 ), "time_remaining: 1, 1, 2, 1 -> 1") ;
-	ok( 1 == time_remaining( 9, 9, 10, 9 ), "time_remaining: 9, 9, 10, 9 -> 1") ;
-	ok( 9 == time_remaining( 1, 1, 10, 1 ), "time_remaining: 1, 1, 10, 1 -> 1") ;
-
-}
-
-
-sub cache_map {
-	my ( $cache_files_ref, $h1_msgs_ref, $h2_msgs_ref ) = @_;
-	my ( %map1_2, %map2_1, %done2 ) ;
-	
-	my $h1_msgs_hash_ref = {  } ;
-	my $h2_msgs_hash_ref = {  } ;
-	
-	@$h1_msgs_hash_ref{ @$h1_msgs_ref } = (  ) ;
-	@$h2_msgs_hash_ref{ @$h2_msgs_ref } = (  ) ;
-	
-	foreach my $file ( sort @$cache_files_ref ) {
-		$debugcache and print "C12: $file\n" ;
-		( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-		
-		if (  exists( $h1_msgs_hash_ref->{ defined( $uid1 ) ? $uid1 : q{} } ) 
-		  and exists( $h2_msgs_hash_ref->{ defined( $uid2 ) ? $uid2 : q{} } ) ) {
-		  	# keep only the greatest uid2 
-			# 130_2301 and
-			# 130_231  => keep only 130 -> 2301
-			
-			# keep only the greatest uid1
-			# 1601_260 and
-			#  161_260 => keep only 1601 -> 260
-		  	my $max_uid2 = max( $uid2, $map1_2{ $uid1 } || -1 ) ;
-			if ( exists( $done2{ $max_uid2 } ) ) {
-				if ( $done2{ $max_uid2 } < $uid1 )  {
-					$map1_2{ $uid1 } = $max_uid2 ;
-					delete( $map1_2{ $done2{ $max_uid2 } } ) ;
-					$done2{ $max_uid2 } = $uid1 ;
-				}
-			}else{
-				$map1_2{ $uid1 } = $max_uid2 ;
-				$done2{ $max_uid2 } = $uid1 ;
-			}
-		};
-		
-	}
-	%map2_1 = reverse( %map1_2 ) ;
-	return( \%map1_2, \%map2_1) ;
-}
-
-sub tests_cache_map {
-	#$debugcache = 1 ;
-	my @cache_files = qw (
-	100_200
-	101_201
-	120_220
-	142_242
-	143_243
-	177_277
-	177_278
-	177_279
-	155_255
-	180_280
-	181_280
-	182_280
-	130_231
-	130_2301
-	161_260
-	1601_260
-	) ;
-	
-	my $msgs_1 = [120, 142, 143, 144, 161, 1601,           177,      182, 130 ];
-	my $msgs_2 = [     242, 243,       260,      299, 377, 279, 255, 280, 231, 2301 ];
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = cache_map( \@cache_files, $msgs_1, $msgs_2 ), 'cache_map: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 130, 142, 143,      177, 182, 1601      ], $a1 ), 'cache_map: 03' );
-	ok( 0 == compare_lists( [      242, 243, 260, 279, 280,      2301 ], $a2 ), 'cache_map: 04' );
-	ok( ! $c12->{161},        'cache_map: ! 161 ->  260' );
-	ok( 260  == $c12->{1601}, 'cache_map:  1601 ->  260' );
-	ok( 2301 == $c12->{130},  'cache_map:   130 -> 2301' );
-	#print $c12->{1601}, "\n";
-
-}
-
-sub cache_dir_fix {
-	my $cache_dir = shift ;
-        $cache_dir =~ s/([;<>\*\|`&\$!#\(\)\[\]\{\}:'"\\])/\\$1/g ;
-        #print "cache_dir_fix: $cache_dir\n" ;
-	return( $cache_dir ) ;
-}
-
-sub tests_cache_dir_fix {
-	ok( 'lalala' eq  cache_dir_fix('lalala'),  'cache_dir_fix: lalala -> lalala' );
-	ok( 'ii\\\\ii' eq  cache_dir_fix('ii\ii'), 'cache_dir_fix: ii\ii -> ii\\\\ii' );
-	ok( 'ii@ii' eq  cache_dir_fix('ii@ii'),  'cache_dir_fix: ii@ii -> ii@ii' );
-	ok( 'ii@ii\\:ii' eq  cache_dir_fix('ii@ii:ii'), 'cache_dir_fix: ii@ii:ii -> ii@ii\\:ii' );
-
-}
-
-sub get_cache { 
-	$debugcache and print "Entering get_cache\n";
-	my ( $cache_dir, $h1_msgs_ref, $h2_msgs_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) = @_;
-
-	-d $cache_dir or return( undef ); # exit if cache directory doesn't exist
-	$debugcache and print "cache_dir    : $cache_dir\n";
-	
-	#$cache_dir =~ s{\\}{\\\\}g;
-        $cache_dir = cache_dir_fix( $cache_dir ) if ( 'MSWin32' ne $OSNAME ) ;
-
-	$debugcache and print "cache_dir_fix: $cache_dir\n" ;
-        
-	my @cache_files = bsd_glob( "$cache_dir/*" ) ;
-	#$debugcache and print "cache_files: [@cache_files]\n" ;
-        
-	$debugcache and print( "cache_files: ", scalar( @cache_files ), " files found\n" ) ;
-	
-	my( $cache_1_2_ref, $cache_2_1_ref ) 
-	  = cache_map( \@cache_files, $h1_msgs_ref, $h2_msgs_ref ) ;
-	
-	clean_cache( \@cache_files, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-	
-	#print "\n", map { "c12 $_ -> $cache_1_2_ref->{ $_ }\n" } keys %$cache_1_2_ref ;
-	#print "\n", map { "c21 $_ -> $cache_2_1_ref->{ $_ }\n" } keys %$cache_2_1_ref ;
-
-	$debugcache and print "Exiting get_cache\n";
-	return ( $cache_1_2_ref, $cache_2_1_ref ) ;
-}
-
-
-sub tests_get_cache {
-	
-	ok( ! get_cache('/cache_no_exist'), 'get_cache: /cache_no_exist' );
-	ok( ( ! -d 'W/tmp/cache/F1/F2' or rmtree( 'W/tmp/cache/F1/F2' )), 'get_cache: rmtree W/tmp/cache/F1/F2' ) ;
-	ok( mkpath( 'W/tmp/cache/F1/F2' ), 'get_cache: mkpath W/tmp/cache/F1/F2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/F1/F2/100_200
-	W/tmp/cache/F1/F2/101_201
-	W/tmp/cache/F1/F2/120_220
-	W/tmp/cache/F1/F2/142_242
-	W/tmp/cache/F1/F2/143_243
-	W/tmp/cache/F1/F2/177_277
-	W/tmp/cache/F1/F2/177_377
-	W/tmp/cache/F1/F2/177_777
-	W/tmp/cache/F1/F2/155_255
-	) ) ;
-	ok( touch( @test_files_cache ), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-	
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	my $msgs_1 = [120, 142, 143, 144,          177      ];
-	my $msgs_2 = [     242, 243,     299, 377, 777, 255 ];
-        
-        my $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        my $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = get_cache( 'W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: 04' );
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file removed 100_200');
-	ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file removed 101_201');
-	
-	# test clean_cache executed
-	$maxage = 2 ;
-	ok( touch(@test_files_cache), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-	ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file NOT removed 100_200');
-	ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file NOT removed 101_201');
-	
-	
-	# strange files
-	#$debugcache = 1 ;
-	$maxage = undef ;
-	ok( ( ! -d 'W/tmp/cache/rr\uee' or rmtree( 'W/tmp/cache/rr\uee' )), 'get_cache: rmtree W/tmp/cache/rr\uee' ) ;
-	ok( mkpath( 'W/tmp/cache/rr\uee' ), 'get_cache: mkpath W/tmp/cache/rr\uee' ) ;
-	
-	@test_files_cache = ( qw( 
-	W/tmp/cache/rr\uee/100_200
-	W/tmp/cache/rr\uee/101_201
-	W/tmp/cache/rr\uee/120_220
-	W/tmp/cache/rr\uee/142_242
-	W/tmp/cache/rr\uee/143_243
-	W/tmp/cache/rr\uee/177_277
-	W/tmp/cache/rr\uee/177_377
-	W/tmp/cache/rr\uee/177_777
-	W/tmp/cache/rr\uee/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'get_cache: touch strange W/tmp/cache/...' ) ;
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	$msgs_1 = [120, 142, 143, 144,  	177	 ];
-	$msgs_2 = [	242, 243,     299, 377, 777, 255 ];
-	
-        $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-        
-	ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/rr\uee', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2), 'get_cache: strange path 02' );
-	$a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	$a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: strange path 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: strange path 04' );
-	ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 142_242');
-	ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 143_243');
-	ok( ! -f 'W/tmp/cache/rr\uee/100_200', 'get_cache: strange path file removed 100_200');
-	ok( ! -f 'W/tmp/cache/rr\uee/101_201', 'get_cache: strange path file removed 101_201');
-	
-
-}
-
-sub match_a_cache_file {
-	my $file = shift ;
-	my ( $uid1, $uid2 ) ;
-	
-	return( ( undef, undef ) ) if ( ! $file ) ;
-	if ( $file =~ m{(?:^|/)(\d+)_(\d+)$} ) {
-		$uid1 = $1 ;
-		$uid2 = $2 ;
-	}
-	return( $uid1, $uid2 ) ;
-}
-
-sub tests_match_a_cache_file {
-	my ( $uid1, $uid2 ) ;
-	ok( ( $uid1, $uid2 ) = match_a_cache_file(  ), 'match_a_cache_file: no arg' ) ;
-	ok( ! defined( $uid1 ), 'match_a_cache_file: no arg 1' ) ;
-	ok( ! defined( $uid2 ), 'match_a_cache_file: no arg 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '' ), 'match_a_cache_file: empty arg' ) ;
-	ok( ! defined( $uid1 ), 'match_a_cache_file: empty arg 1' ) ;
-	ok( ! defined( $uid2 ), 'match_a_cache_file: empty arg 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '000_000' ), 'match_a_cache_file: 000_000' ) ;
-	ok( '000' eq $uid1, 'match_a_cache_file: 000_000 1' ) ;
-	ok( '000' eq $uid2, 'match_a_cache_file: 000_000 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '123_456' ), 'match_a_cache_file: 123_456' ) ;
-	ok( '123' eq $uid1, 'match_a_cache_file: 123_456 1' ) ;
-	ok( '456' eq $uid2, 'match_a_cache_file: 123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '/tmp/truc/123_456' ), 'match_a_cache_file: /tmp/truc/123_456' ) ;
-	ok( '123' eq $uid1, 'match_a_cache_file: /tmp/truc/123_456 1' ) ;
-	ok( '456' eq $uid2, 'match_a_cache_file: /tmp/truc/123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '/lala123_456' ), 'match_a_cache_file: NO /lala123_456' ) ;
-	ok( ! $uid1, 'match_a_cache_file: /lala123_456 1' ) ;
-	ok( ! $uid2, 'match_a_cache_file: /lala123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( 'la123_456' ), 'match_a_cache_file: NO la123_456' ) ;
-	ok( ! $uid1, 'match_a_cache_file: la123_456 1' ) ;
-	ok( ! $uid2, 'match_a_cache_file: la123_456 2' ) ;
-
-	
-}
-
-sub clean_cache {
-	my ( $cache_files_ref, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref )  = @_ ;
-	
-	$debugcache and print "Entering clean_cache\n";
-	
-	$debugcache and print map { "$_ -> " . $cache_1_2_ref->{ $_ } . "\n" } keys %$cache_1_2_ref ;
-	foreach my $file ( @$cache_files_ref ) {
-		$debugcache and print "$file\n" ;
-		my ( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-		$debugcache and print "u1: $uid1 u2: $uid2 c12: ", $cache_1_2_ref->{ $uid1 } || '', "\n" ;
-#		  or ( ! exists( $cache_1_2_ref->{ $uid1 } ) )
-#		  or ( ! ( $uid2 == $cache_1_2_ref->{ $uid1 } ) )
-		if ( ( ! defined( $uid1 ) )
-		  or ( ! defined( $uid2 ) )
-                  or ( ! exists( $h1_msgs_all_hash_ref->{ $uid1 } ) )
-                  or ( ! exists( $h2_msgs_all_hash_ref->{ $uid2 } ) )
-                ) {
-			$debugcache and print "remove $file\n" ;
-			unlink( $file ) or print "$!" ;
-		}
-	}
-	
-	$debugcache and print "Exiting clean_cache\n";
-	return( 1 ) ;
-}
-
-sub tests_clean_cache {
-
-	ok( ( ! -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache: rmtree W/tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache: mkpath W/tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/G1/G2/100_200
-	W/tmp/cache/G1/G2/101_201
-	W/tmp/cache/G1/G2/120_220
-	W/tmp/cache/G1/G2/142_242
-	W/tmp/cache/G1/G2/143_243
-	W/tmp/cache/G1/G2/177_277
-	W/tmp/cache/G1/G2/177_377
-	W/tmp/cache/G1/G2/177_777
-	W/tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache: touch W/tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 before' );
-	ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 before' );
-	ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache: ' ) ;
-	
-	ok( ! -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 after' );
-}
-
-sub tests_clean_cache_2 {
-
-	ok( ( ! -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache_2: rmtree W/tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache_2: mkpath W/tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/G1/G2/100_200
-	W/tmp/cache/G1/G2/101_201
-	W/tmp/cache/G1/G2/120_220
-	W/tmp/cache/G1/G2/142_242
-	W/tmp/cache/G1/G2/143_243
-	W/tmp/cache/G1/G2/177_277
-	W/tmp/cache/G1/G2/177_377
-	W/tmp/cache/G1/G2/177_777
-	W/tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache_2: touch W/tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 before' );
-	ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 before' );
-	ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                100 => '',
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-        
-        
-        
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache_2: ' ) ;
-	
-	ok(   -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 after' );
-}
-
-
-
-sub tests_mkpath {
-
-        my $long_path = "123456789/" x 30 ;
-	ok( (-d "W/tmp/tests/long/$long_path" or  mkpath( "W/tmp/tests/long/$long_path" )), 'tests_mkpath: mkpath > 300 char' ) ;
-	ok( (-d "W/tmp/tests/long/$long_path" and rmtree( "W/tmp/tests/long/" )),           'tests_mkpath: rmtree > 300 char' ) ;
-        ok( 1 == 1, 'tests_mkpath: 1 == 1' ) ;
-}
-
-sub tests_touch {
-
-	ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' )), 'tests_touch: mkpath W/tmp/tests/' ) ;
-	ok( 1 == touch( 'W/tmp/tests/lala'), 'tests_touch: W/tmp/tests/lala') ;
-	ok( 1 == touch( 'W/tmp/tests/\y'), 'tests_touch: W/tmp/tests/\y') ;
-	ok( 0 == touch( '/aaa'), 'tests_touch: not /aaa') ;
-	ok( 1 == touch( 'W/tmp/tests/lili', 'W/tmp/tests/lolo'), 'tests_touch: 2 files') ;
-	ok( 0 == touch( 'W/tmp/tests/\y', '/aaa'), 'tests_touch: 2 files, 1 fails' ) ;
-
-}
-
-
-sub touch {
-	my @files = @_ ;
-	my $failures = 0 ;
-	
-	foreach my $file ( @files ) {
-		my  $fh = new IO::File ;
-		if ( $fh->open(">> $file" ) ) {
-			$fh->close ;
-		}else{
-                	print "Could not open file $file in write/append mode\n" ;
-                	$failures++ ;
-                }
-	}
-	return( ! $failures );
-}
-
-sub tests_cache_folder {
-
-	ok( '/path/fold1/fold2' eq cache_folder( '/path', 'fold1', 'fold2'), 'cache_folder: /path, fold1, fold2 -> /path/fold1/fold2' ) ;
-	ok( '/pa_th/fold1/fold2' eq cache_folder( '/pa*th', 'fold1', 'fold2'), 'cache_folder: /pa*th, fold1, fold2 -> /path/fold1/fold2' ) ;
-	ok( '/_p_a__th/fol_d1/fold2' eq cache_folder( '/>p<a|*th', 'fol*d1', 'fold2'), 'cache_folder: />p<a|*th, fol*d1, fold2 -> /path/fol_d1/fold2' ) ;
-}
-
-sub cache_folder {
-	my( $cache_dir, $h1_fold, $h2_fold ) = @_ ;
-	
-	my $sep1 = $h1_sep || '/';
-	my $sep2 = $h2_sep || '/';
-	
-	#print "$cache_dir h1_fold $h1_fold sep1 $sep1 h2_fold $h2_fold sep2 $sep2\n";
-	$h1_fold = convert_sep_to_slash( $h1_fold, $sep1 ) ;
-	$h2_fold = convert_sep_to_slash( $h2_fold, $sep2 ) ;
-        
-        my $cache_folder = "$cache_dir/$h1_fold/$h2_fold" ;
-        $cache_folder = filter_forbidden_characters( $cache_folder ) ;
-	#print "cache_folder [$cache_folder]\n" ;
-        return( $cache_folder ) ;
-}
-
-sub filter_forbidden_characters {
-	my $string = shift ;
-        
-        $string =~ s{[\Q*|?:"<>\E]}{_}g ;
-	return ( $string ) ;
-}
-
-sub tests_filter_forbidden_characters {
-
-	ok( 'a_b' eq filter_forbidden_characters( 'a_b' ), 'filter_forbidden_characters: a_b -> a_b' ) ;
-	ok( 'a_b' eq filter_forbidden_characters( 'a*b' ), 'filter_forbidden_characters: a*b -> a_b' );
-	ok( 'a_b' eq filter_forbidden_characters( 'a|b' ), 'filter_forbidden_characters: a|b -> a_b' );
-	ok( 'a_b' eq filter_forbidden_characters( 'a?b' ), 'filter_forbidden_characters: a?*b -> a_b' );
-	ok( 'a_______b' eq filter_forbidden_characters( 'a*|?:"<>b' ), 'filter_forbidden_characters: a*|?:"<>b -> a_______b' );
-
-}
-
-sub convert_sep_to_slash {
-	my ( $folder, $sep ) = @_ ;
-	
-	$folder =~ s{\Q$sep\E}{/}g ;
-	return( $folder ) ;
-}
-
-sub tests_convert_sep_to_slash {
-
-	ok('' eq convert_sep_to_slash('', '/'), 'convert_sep_to_slash: no folder');
-	ok('INBOX' eq convert_sep_to_slash('INBOX', '/'), 'convert_sep_to_slash: INBOX');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX/foo', '/'), 'convert_sep_to_slash: INBOX/foo');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX_foo', '_'), 'convert_sep_to_slash: INBOX_foo');
-	ok('INBOX/foo/zob' eq convert_sep_to_slash('INBOX_foo_zob', '_'), 'convert_sep_to_slash: INBOX_foo_zob');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX.foo', '.'), 'convert_sep_to_slash: INBOX.foo');
-	ok('INBOX/foo/hi' eq convert_sep_to_slash('INBOX.foo.hi', '.'), 'convert_sep_to_slash: INBOX.foo.hi');
-}
-
-
-sub tests_regexmess {
-	
-	ok("blabla" eq regexmess("blabla"), "regexmess, no regexmess, nothing to do");
-	
-	@regexmess = ('s/p/Z/g');
-	ok("ZoZoZo" eq regexmess("popopo"), "regexmess, s/p/Z/g");
-	
-	@regexmess = 's{c}{C}gxms';
-	ok("H1: abC\nH2: Cde\n\nBody abC" 
-		   eq regexmess("H1: abc\nH2: cde\n\nBody abc"), 
-	   "regexmess, c->C");
-	   
-	@regexmess = 's{\AFrom\ }{From:}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 add colon blank');
-	
-	ok(          'From:<tartanpion@machin.truc>' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 add colo');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 add colo');
-	
-	ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 add colo');
-	
-	@regexmess = 's{\AFrom\ [^\n]*(\n)?}{}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 remove, blank');
-	
-	ok(          '' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 remove');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 remove');
-	
-	#print "[", regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'), "]";
-	ok(          ""            . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 remove');
-	
-
-	ok(
-'Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-	eq regexmess(
-'From  zzz
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-	),
-	'From mbox 5 remove');
-}
-
-sub regexmess {
-	my ($string) = @_;
-	foreach my $regexmess (@regexmess) {
-		$debug and print "eval \$string =~ $regexmess\n";
-		eval("\$string =~ $regexmess");
-		die_clean("error: eval regexmess '$regexmess': $@\n") if $@;
-	}
-	return($string);
-}
-
-sub bytes_display_string { 
-	my ( $bytes ) = @_ ;
-
-        if ( abs( $bytes ) < ( 1024 * 1024 ) ) {
-                 return sprintf( "%.2f KiB", $bytes / 1024) ;
-        } elsif ( abs( $bytes ) < ( 1024 * 1024 * 1024 ) ) {
-        	return sprintf( "%.2f MiB", $bytes / (1024 * 1024) ) ;
-        } elsif ( abs( $bytes ) < ( 1024 * 1024 * 1024 * 1024) ) {
-		return sprintf("%.2f GiB", $bytes / (1024 * 1024 * 1024) ) ;
-        } elsif ( abs( $bytes ) < ( 1024 * 1024 * 1024 * 1024 * 1024) ) {
-		return sprintf( "%.2f TiB", $bytes / (1024 * 1024 * 1024 * 1024) ) ;
-        } else {
-		return sprintf( "%.2f PiB", $bytes / (1024 * 1024 * 1024 * 1024 * 1024) ) ;
-        }
-       # if you have exabytes (EiB) of email to transfer, you have too much email
-}
-
-sub stats {
-	$timeend = time(  );
-	$timediff = $timeend - $timestart ;
-
-	my $timeend_str   = localtime( $timeend ) ;
-        
-	my $memory_consumption = memory_consumption(  ) || 0 ;
-	my $memory_ratio = ($max_msg_size_in_bytes) ?  
-		sprintf('%.1f', $memory_consumption / $max_msg_size_in_bytes) : "NA" ;
-
-	my $host1_reconnect_count = $imap1->Reconnect_counter() || 0 ;
-	my $host2_reconnect_count = $imap2->Reconnect_counter() || 0 ;
-
-	print   "++++ Statistics\n" ;
-	print   "Transfer started on               : $timestart_str\n";
-	print   "Transfer ended on                 : $timeend_str\n";
-	printf( "Transfer time                     : %.1f sec\n", $timediff ) ;
-	print   "Messages transferred              : $nb_msg_transferred ";
-	print   "(could be $nb_msg_skipped_dry_mode without dry mode)" if ($dry);
-	print   "\n";
-	print   "Messages skipped                  : $nb_msg_skipped\n";
-	print   "Messages found duplicate on host1 : $h1_nb_msg_duplicate\n";
-	print   "Messages found duplicate on host2 : $h2_nb_msg_duplicate\n";
-	print   "Messages void (noheader) on host1 : $h1_nb_msg_noheader\n";
-	print   "Messages void (noheader) on host2 : $h2_nb_msg_noheader\n";
-	print   "Messages deleted on host1         : $h1_nb_msg_deleted\n";
-	print   "Messages deleted on host2         : $h2_nb_msg_deleted\n";
-        printf( "Total bytes transferred           : %d (%s)\n",
-                $total_bytes_transferred,
-                bytes_display_string($total_bytes_transferred));
-        printf( "Total bytes duplicate host1       : %d (%s)\n",
-                $h1_total_bytes_duplicate,
-                bytes_display_string($h1_total_bytes_duplicate));
-        printf( "Total bytes duplicate host2       : %d (%s)\n",
-                $h2_total_bytes_duplicate,
-                bytes_display_string($h2_total_bytes_duplicate));
-        printf( "Total bytes skipped               : %d (%s)\n",
-                $total_bytes_skipped,
-                bytes_display_string($total_bytes_skipped));
-        printf( "Total bytes error                 : %d (%s)\n",
-                $total_bytes_error,
-                bytes_display_string($total_bytes_error));
-	$timediff ||= 1; # No division per 0
-	printf ("Message rate                      : %.1f messages/s\n", $nb_msg_transferred / $timediff);
-	printf ("Average bandwidth rate            : %.1f KiB/s\n", $total_bytes_transferred / 1024 / $timediff);
-	print   "Reconnections to host1            : $host1_reconnect_count\n";
-	print   "Reconnections to host2            : $host2_reconnect_count\n";
-	printf ("Memory consumption                : %.1f MiB\n", $memory_consumption / 1024 / 1024);
-	print   "Biggest message                   : $max_msg_size_in_bytes bytes\n";
-#	print   "Memory/biggest message ratio      : $memory_ratio\n";
-        if ( $foldersizesatend and $foldersizes ) {
-	printf("Initial difference host2 - host1  : %s messages, %s bytes (%s)\n", $h2_nb_msg_start - $h1_nb_msg_start,
-                                                        $h2_bytes_start  - $h1_bytes_start,
-                                                        bytes_display_string( $h2_bytes_start  - $h1_bytes_start ) ) ;
-	printf("Final   difference host2 - host1  : %s messages, %s bytes (%s)\n", $h2_nb_msg_end   - $h1_nb_msg_end,
-                                                        $h2_bytes_end    - $h1_bytes_end,
-                                                        bytes_display_string( $h2_bytes_end    - $h1_bytes_end ) ) ;
-        }
-	print   "Detected $nb_errors errors\n\n" ;
-
-	print   $warn_release, "\n" ;
-	print   thank_author();
-}
-
-sub thank_author {
-
-	return("Homepage: http://imapsync.lamiral.info/\n");
-	
-        # used to be
-	return(join("", "Happy with this free, open and gratis DWTFPL software?\n",
-	  "Encourage the author (Gilles LAMIRAL) by giving him a book\n",
-          "or just money via paypal:\n",
-	  "http://imapsync.lamiral.info/\n"));
-}
-
-sub get_options {
-	my $numopt = scalar(@ARGV);
-	my $argv   = join("¤", @ARGV);
-	
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-
-	if($argv =~ m/-delete¤2/) {
-		print "May be you mean --delete2 instead of --delete 2\n";
-		exit 1;
-	}
-        my $opt_ret = GetOptions(
-                                   "debug!"        => \$debug,
-                                   "debugLIST!"    => \$debugLIST,
-                                   "debugcontent!" => \$debugcontent,
-				   "debugsleep!"   => \$debugsleep,
-                                   "debugflags!"   => \$debugflags,
-                                   "debugimap!"    => \$debugimap,
-                                   "debugimap1!"   => \$debugimap1,
-                                   "debugimap2!"   => \$debugimap2,
-                                   "debugdev!"   => \$debugdev,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "domain1=s"   => \$domain1,
-                                   "domain2=s"   => \$domain2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-				   "authmd51!"   => \$authmd51,
-				   "authmd52!"   => \$authmd52,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "fixslash2!"  => \$fixslash2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-				   "filterflags!" => \$filterflags,
-				   "flagsCase!"  => \$flagsCase,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "delete2duplicates!" => \$delete2duplicates,
-				   "delete2folders!"    => \$delete2folders,
-				   "delete2foldersonly=s" => \$delete2foldersonly,
-				   "delete2foldersbutnot=s" => \$delete2foldersbutnot,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "idatefromheader!"   => \$idatefromheader,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "minsize=i"   => \$minsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-                                   "search=s"    => \$search,
-				   "foldersizes!" => \$foldersizes,
-				   "foldersizesatend!" => \$foldersizesatend,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "uidexpunge2!" => \$uidexpunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "subscribe_all!"  => \$subscribe_all,
-				   "justbanner!" => \$justbanner,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "wholeheaderifneeded!"   => \$wholeheaderifneeded,
-				   "skipsize!"   => \$skipsize,
-				   "allowsizemismatch!" => \$allowsizemismatch,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "tls1!"        => \$tls1,
-				   "tls2!"        => \$tls2,
-				   "uid1!"        => \$uid1,
-				   "uid2!"        => \$uid2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "proxyauth1"        => \$proxyauth1,
-				   "proxyauth2"        => \$proxyauth2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-				   "buffersize=i" => \$buffersize,
-				   "reconnectretry1=i" => \$reconnectretry1,
-				   "reconnectretry2=i" => \$reconnectretry2,
-				   "relogin1=i"  => \$relogin1,
-				   "relogin2=i"  => \$relogin2,
-                                   "tests"       => \$tests,
-                                   "tests_debug" => \$tests_debug,
-                                   "allow3xx!"   => \$allow3xx,
-                                   "justlogin!"  => \$justlogin,
-				   "tmpdir=s"    => \$tmpdir,
-				   "pidfile=s"    => \$pidfile,
-				   "pidfilelocking!"    => \$pidfilelocking,                                 
-				   "releasecheck!" => \$releasecheck,
-				   "modules_version!" => \$modules_version,
-				   "usecache!"    => \$usecache,
-                                   "cacheaftercopy!" => \$cacheaftercopy,
-				   "debugcache!" => \$debugcache,
-				   "useuid!"      => \$useuid,
-                                   "addheader!"   => \$addheader,
-                                   "exitwhenover=i" => \$exitwhenover,
-                                   "checkselectable!" => \$checkselectable,
-                                   "checkmessageexists!" => \$checkmessageexists,
-                                   "expungeaftereach!" => \$expungeaftereach,
-                                   "abletosearch!" => \$abletosearch,
-                                   "showpasswords!" => \$showpasswords,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print imapsync_version(), "\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-	if ($tests_debug) {
-		$test_builder->no_ending(0);
-		tests_debug();
-		exit;
-	}
-
-	$help = 1 if ! $numopt;
-	load_modules();
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-
-}
-
-
-sub load_modules {
-
-	require IO::Socket::SSL if ($ssl1 or $ssl2 or $tls1 or $tls2);
-
-        require Term::ReadKey if (
-	       ((not($password1 or $passfile1)) 
-	    or (not($password2 or $passfile2)))
-	and (not $help));
-
-	#require Data::Dumper if ($debug);
-}
-
-
-
-sub parse_header_msg {
-	my ($imap, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "$s uid $m_uid head nb pass one: ", $headnum, "\n";
-	
-	my $headstr;
-	
-	if ( ( ! $headnum ) and ( $wholeheaderifneeded ) ){
-		print "$s uid $m_uid no header by parse_headers so taking whole header with BODY.PEEK[HEADER]\n" ;
-		$imap->fetch($m_uid, "BODY.PEEK[HEADER]");
-		my $whole_header = $imap->_transaction_literals;
-		
-                #print $whole_header;
-                $head = decompose_header( $whole_header ) ;
-                
-                $headnum =  scalar( keys( %$head ) ) ;
-	        $debug and print "$s uid $m_uid head nb pass two: ", $headnum, "\n";
-	}
-
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $head, \%useheader ] ) ;
-
-	foreach my $h (sort keys(%$head)){
-                next if ( ! exists( $useheader{ uc( $h ) } )
-                      and ! exists( $useheader{ 'ALL' } )
-                ) ;
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			$val =~ s/^\s*(.+)$/$1/;
-
-			# and uppercase header line 
-			# (dbmail and dovecot)
-			
-			my $H = uc("$h: $val");
-			# show stuff in debug mode
-			$debug and print "$s uid $m_uid header [$H]", "\n";
-			
-			if ($skipheader and $H =~ m/$skipheader/i) {
-				$debug and print "$s uid $m_uid skipping header [$H]\n";
-				next;
-			}
-			$headstr .= "$H";
-		}
-	}
-	
-	if ( ( ! $headstr) and ( $addheader ) and ( $s eq "Host1" )){
-        	my $header = add_header( $m_uid ) ;
-		print "Host1 uid $m_uid no header found so adding our own [$header]\n";
-		$headstr .= uc( $header ) ;
-		$s_fir->{$m_uid}->{"NO_HEADER"} = 1;
-	}
-
-	return() if ( ! $headstr );
-	
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s uid $m_uid sig $m_md5 size $size idate $idate\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	# 0 return code is used to identify duplicate message hash
-	return 0 if exists $s_hash->{"$key"};
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die_clean("error [$file]: $! ");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line: "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die_clean("error [$file]: $! ");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die_clean("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-sub tests_is_a_release_number {
-	ok(is_a_release_number(1.351), 'is_a_release_number 1.351');
-	ok(is_a_release_number(42.4242), 'is_a_release_number 42.4242');
-	ok(is_a_release_number(imapsync_version()), 'is_a_release_number imapsync_version()');
-	ok(! is_a_release_number('blabla' ), '! is_a_release_number blabla');
-
-}
-
-sub is_a_release_number {
-	my $number = shift;
-	
-	$number =~ m{\d\.\d+};
-}
-
-sub check_last_release {
-
-	my $public_release = not_long('imapsync_version_lfo');
-	#print "check_last_release: [$public_release]\n" ;
-	return('unknown') if ($public_release eq 'unknown');
-	return('timeout') if ($public_release eq 'timeout');
-	return('unknown') if (! is_a_release_number($public_release));
-	
-	my $imapsync_here  = imapsync_version();
-	
-	if ($public_release > $imapsync_here) {
-		return("New imapsync release $public_release available");
-	}else{
-		return("This current imapsync is up to date");
-	}
-}
-
-sub imapsync_version {
-	my $rcs = '$Id: imapsync,v 1.516 2012/11/02 22:15:04 gilles Exp gilles $ ';
-	$rcs =~ m/,v (\d+\.\d+)/;
-	my $VERSION = ($1) ? $1: "UNKNOWN";
-	return($VERSION);
-}
-
-sub tests_imapsync_basename {
-
-	ok('imapsync' eq imapsync_basename(), 'imapsync_basename: imapsync');
-	ok('blabla' ne imapsync_basename(), '! imapsync_basename: blabla');
-}
-
-sub imapsync_basename {
-
-	return basename($0);
-
-}
-
-sub imapsync_version_lfo {
-	
-	my $local_version = imapsync_version();
-	my $imapsync_basename = imapsync_basename();
-	my $agent_info = "$OSNAME system, perl " 
-		. sprintf("%vd", $PERL_VERSION) 
-		. ", Mail::IMAPClient $Mail::IMAPClient::VERSION"
-		. " $imapsync_basename";
-	my $sock = new IO::Socket::INET (
-		PeerAddr => 'imapsync.lamiral.info',
-		PeerPort => '80',
-		Proto => 'tcp');
-	return('unknown') if not $sock;
-	print $sock
-		"GET /prj/imapsync/VERSION HTTP/1.0\n",
-		"User-Agent: imapsync/$local_version ($agent_info)\n",
-		"Host: ks.lamiral.info\n\n";
-	my @line = <$sock>;
-	close($sock);
-	my $last_release = $line[-1];
-	chomp($last_release);
-	return($last_release);
-}
-
-sub not_long {
-	#print "Entering not_long\n";
-	my ($func) = @_;
-	my $val;
-	
-	# Doesn't work with gethostbyname (see perlipc)
-	#local $SIG{ALRM} = sub { die "alarm\n" };
-	
-	if ('MSWin32' eq $OSNAME) {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-	}else{
-	
-        	POSIX::sigaction(SIGALRM,
-                         POSIX::SigAction->new(sub { die "alarm" }))
-        		or print "Error setting SIGALRM handler: $!\n";
-	}
-	
-	eval {
-		
-		alarm(3);
-		#print $func, "\n";
-		{
-			no strict "refs";
-			#print "Calling $func\n";
-			$val = &$func();
-			#print "End of  $func\n";
-		}
-		alarm(0);
-	};
-	if ($@) {
-		#print "$@";
-		if ($@ =~ /alarm/) {
-		# timed out
-			return('timeout');
-		}else{
-			alarm(0);
-			return('unknown'); # propagate unexpected errors
-		}
-	}else {
-	# didn't
-		return($val);
-	}
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	    "Here is a [$OSNAME] system (", 
-	    join(" ", 
-	         uname(),
-	         ),
-                 ")\n",
-	         "With perl ", 
-	         sprintf("%vd", $PERL_VERSION),
-	         " Mail::IMAPClient  $Mail::IMAPClient::VERSION",
-            );	  
-	return($infos);
-
-}
-
-sub usage {
-	my $localhost_info = localhost_info();
-	my $thank = thank_author();
-	my $warn_release ='';
-	$warn_release = check_last_release() if (not defined($releasecheck));
-        my $escape_char = ( 'MSWin32' eq $OSNAME ) ? '^' : '\\';
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---domain1     <string> : domain on host1 (NTLM authentication).
---authuser1   <string> : user to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---proxyauth1           : Use proxyauth on host1. Requires --authuser1.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user
---password1   <string> : password for the user1. Dangerous, use --passfile1
---showpasswords        : shows passwords on output instead of "MASKED".
-                         Useful to restart a complete run by just reading a log.
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---domain2     <string> : domain on host2 (NTLM authentication).
---authuser2   <string> : user to auth with on host2 (admin user).
---proxyauth2           : Use proxyauth on host2. Requires --authuser2.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---authmd51             : Use MD5 authentification for host1.
---authmd52             : Use MD5 authentification for host2.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---tls1                 : use an TLS connection on host1.
---tls2                 : use an TLS connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---tmpdir      <string> : where to store temporary files and subdirectories.
-                         Will be created if it doesn't exist.
-			 Default is system specific and should be ok.
---pidfile     <string> : the file where imapsync pid is written.
---pidfilelocking       : Abort if pidfile already exists. Usefull to avoid 
-                         concurrent transfers on the same mailbox.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         you can use --prefix1 if your source imap server 
-                         does not have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example: 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example: 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : host1 separator in case namespace is not supported.
---sep2        <string> : idem for host2.
---delete               : Deletes messages on host1 server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imapsync, --delete tags messages as deleted and 
-                         they are really deleted unless --noexpunge is used.
---delete2              : delete messages in host2 that are not in
-                         host1 server. Useful for backup or pre-sync.
---delete2duplicates    : delete messages in host2 that are duplicates.
-                         Works only without --useuid since duplicates are 
-                         detected with header part of each message.
---delete2folders       : Delete folders in host2 that are not in host1 server. 
-                         For safety, first try it like this (it is safe):
-			 --delete2folders --dry --justfolders --nofoldersizes
---delete2foldersonly   <regex>: delete only folders matching regex.
---delete2foldersbutnot <regex>: do not delete folders matching regex.
-                         Example: --delete2foldersbutnot "/Tasks|Contacts|Foo/"
---noexpunge            : Do not expunge messages on host1.
-                         Expunge really deletes messages marked deleted.
-                         Expunge is made at the beginning, on host1 only. 
-                         Newly transferred messages are also expunged if 
-			 option --delete is given.
-                         No expunge is done on host2 account (unless --expunge2)
---expunge1             : Expunge messages on host1 after messages transfer.
---expunge2             : Expunge messages on host2 after messages transfer.
---uidexpunge2          : uidexpunge messages on the host2 account
-                         that are not on the host1 account, requires --delete2
---syncinternaldates    : sets the internal dates on host2 same as host1.
-                         Turned on by default. Internal date is the date
-			 a message arrived on a host (mtime).
---idatefromheader      : sets the internal dates on host2 same as the 
-                         "Date:" headers.
---maxsize     <int>    : skip messages larger  (or equal) than <int> bytes
---minsize     <int>    : skip messages smaller (or equal) than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---search      <string> : Select messages returned by this IMAP SEARCH command.
---exitwhenover   <int> : Stop syncing when total bytes transferred reached.
-                         Gmail per day allows 2500000000 down 500000000 upload.
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         host2 that are subscribed on host1. On by default.
---subscribe_all        : subscribe to the folders transferred on the 
-                         host2 even if they are not subscribed on host1.
---nofoldersizes        : Do not calculate the size of each folder in bytes
-                         and message counts. Default is to calculate them.
---nofoldersizesatend   : Do not calculate the size of each folder in bytes
-                         and message counts at the end. Default is on.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : synchronises acls (Access Control Lists).
---nosyncacls           : does not synchronise acls. This is the default.
---usecache             : Use cache to speedup.
---nousecache           : Do not use cache. Caveat: --useuid --nousecache creates
-                         duplicates on multiple runs.
---useuid               : Use uid instead of header as a criterium to sync.
-                         --usecache is then implied unless --nousecache is
-                         used.  
---debug                : debug mode.
---debugcontent         : debug content of the messages transfered.
---debugflags           : debug flags.
---debugimap1           : imap debug mode for host1. imap debug is very verbose.
---debugimap2           : imap debug mode for host2.
---debugimap            : imap debug mode for host1 and host2.
---version              : print software version.
---noreleasecheck       : do not check for new imapsync release (a http request).
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justlogin            : just login to both host1 and host2 with users 
-                         credentials, then exit.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster, equivalent to --nofoldersizes
---help                 : print this help.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                    to  imap account "bar" on "imap.trac.org"
-                    with foo password "secret1"
-                    and  bar password "secret2"
-
-$0 $escape_char
-   --host1 imap.truc.org --user1 foo --password1 secret1 $escape_char
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-$localhost_info
-$rcs
-$warn_release
-
-$thank
-EOF
-}
-
-sub usage_complete {
-	print <<EOF ;
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
-        
---skipsize             : Don't take message size into account to compare 
-                         messages on both sides. On by default.
-			 Use --no-skipsize for using size comparaison.
---allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-                         consider also --skipsize to avoid duplicate messages
-                         when running syncs more than one time per mailbox
-
---reconnectretry1 <int>: reconnect to host1 if connection is lost up to 
-                         <int> times per imap command (default is 3)
---reconnectretry2 <int>: same as --reconnectretry1 but for host2
---split1     <int>     : split the requests in several parts on host1.
-                         <int> is the number of messages handled per request.
-                         default is like --split1 500.
---split2     <int>     : same thing on host2.
---timeout     <int>    : imap connect timeout.
-
-EOF
-}
-
-sub memory_consumption {
-	# memory consumed by imapsync until now in bytes
-	return( ( memory_consumption_of_pids(  ) )[0] );
-}
-
-sub memory_consumption_of_pids {
-
-	my @PID = (@_) ? @_ : ($PROCESS_ID);
-	
-	#print "PIDs: @PID\n";
-	my @val;
-	if ('MSWin32' eq $OSNAME) {
-		@val = memory_consumption_of_pids_win32(@PID);
-	}else{
-		# Unix
-		my @ps = qx{ ps -o vsz -p @PID };
-		shift @ps; # First line is column name "VSZ"
-		chomp @ps; 
-		# convert to 
-		@val = map { $_ * 1024 } @ps;
-		return(@val);
-	}
-}
-
-sub memory_consumption_of_pids_win32 {
-	# Windows
-	my @PID = @_;
-	my %PID;
-	# hash of pids as key values
-	map { $PID{$_}++ } @PID;
-	
-	# Does not work but should reading the tasklist documentation
-	#@ps = qx{ tasklist /FI "PID eq @PID" };
-	
-	my @ps = qx{ tasklist /NH /FO CSV };
-	#print "-" x 80, "\n", @ps, "-" x 80, "\n";
-	my @val;
-	foreach my $line (@ps) {
-		my($name, $pid, $mem) = (split(',', $line))[0,1,4];
-		next if (! $pid);
-		#print "[$name][$pid][$mem]";
-		if ($PID{remove_qq($pid)}) {
-			#print "MATCH !\n";
-			chomp($mem);
-			$mem = remove_qq($mem);
-			$mem = remove_Ko($mem);
-			$mem = remove_not_num($mem);
-			#print "[$mem]\n";
-			push(@val, $mem * 1024);
-		}
-	}
-	return(@val);
-}
-
-sub remove_not_num {
-	
-	my $string = shift;
-	$string =~ tr/0-9//cd;
-	#print "tr [$string]\n";
-	return($string);
-}
-
-sub tests_remove_not_num {
-
-	ok('123' eq remove_not_num(123), 'remove_not_num( 123 )');
-	ok('123' eq remove_not_num('123'), "remove_not_num( '123' )");
-	ok('123' eq remove_not_num('12 3'), "remove_not_num( '12 3' )");
-	ok('123' eq remove_not_num('a 12 3 Ko'), "remove_not_num( 'a 12 3 Ko' )");
-}
-
-sub remove_Ko {
-	my $string = shift;
-	if ($string =~ /^(.*) Ko$/) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub remove_qq {
-	my $string = shift;
-	if ($string =~ /^"(.*)"$/) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub memory_consumption_ratio {
-
-	my ($base) = @_;
-	$base ||= 1;
-	my $consu = memory_consumption();
-	return($consu / $base);
-}
-
-sub tests_memory_consumption {
-
-	ok(print join("\n", memory_consumption_of_pids()), "\n");
-	ok(print join("\n", memory_consumption_of_pids('1')), "\n");
-	ok(print join("\n", memory_consumption_of_pids('1', $$)), "\n");
-
-	ok(print memory_consumption_ratio(), "\n");
-	ok(print memory_consumption_ratio(1), "\n");
-	ok(print memory_consumption_ratio(10), "\n");
-	
-	ok(print memory_consumption(), "\n");
-}
-
-sub good_date {
-        # two incoming formats:
-        # header    Tue, 24 Aug 2010 16:00:00 +0200
-	# internal       24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: internal date format
-        #   24-Aug-2010 16:00:00 +0200
-	
-    my $d = shift ;
-    return ('') if not defined($d);
-    
-    if ( $d =~ m{(\d?)(\d-...-\d{4})( \d{2}:\d{2}:\d{2})( (?:\+|-)\d{4})?}o ) {
-    	#print "internal: [$1][$2][$3][$4]\n";
-	my ($day_1, $date_rest, $hour, $zone) = ($1,$2,$3,$4);
-	$day_1 = '0' if ($day_1 eq '');
-	$zone  = ' +0000'  if not defined($zone);
-	$d = $day_1 . $date_rest . $hour . $zone;
-    }elsif ($d =~ m{(?:\w{3,}, )?(\d{1,2}),?\s+(\w{3,})\s+(\d{2,4})\s+(\d{1,2})(?::|\.)(\d{1,2})(?:(?::|\.)(\d{1,2}))?\s*((?:\+|-)\d{4})?}o ) {
-       # Handles any combination of following formats
-       # Tue, 24 Aug 2010 16:00:00 +0200 -- Standard
-       # 24 Aug 2010 16:00:00 +0200 -- Missing Day of Week
-       # Tue, 24 Aug 97 16:00:00 +0200 -- Two digit year
-       # Tue, 24 Aug 1997 16.00.00 +0200 -- Periods instead of colons 
-       # Tue, 24 Aug 1997  16:00:00 +0200 -- Extra whitespace between year and hour
-       # Tue, 24 Aug 1997 6:5:2 +0200 -- Single digit hour, min, or second
-       # Tue, 24, Aug 1997 16:00:00 +0200 -- Extra comma
-       
-       #print "header: [$1][$2][$3][$4][$5][$6][$7][$8]\n";
-       my ($day, $month, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7,$8);
-       $year = '19' . $year if length($year) == 2 && $year =~ /^[789]/;
-       $year = '20' . $year if length($year) == 2;
-        
-       $month = substr $month, 0, 3 if length($month) > 4;
-       $day = sprintf("%02d", $day);
-       $hour = sprintf("%02d", $hour);
-       $min = sprintf("%02d", $min);
-       $sec  = '00' if not defined($sec);
-       $sec = sprintf("%02d", $sec);
-       $zone  = '+0000' if not defined($zone);
-       $d = "$day-$month-$year $hour:$min:$sec $zone";
-
-    }elsif ($d =~ m{(?:.{3}) (...)\s+(\d{1,2}) (\d{1,2}):(\d{1,2}):(\d{1,2}) (?:\w{3})?\s?(\d{4})}o ) {
-       # Handles any combination of following formats
-       # Sun Aug 20 11:55:09 2006
-       # Wed Jan 24 11:58:38 MST 2007
-       # Wed Jan  2 08:40:57 2008
-       
-       #print "header: [$1][$2][$3][$4][$5][$6]\n";
-       my ($month, $day, $hour, $min, $sec, $year) = ($1,$2,$3,$4,$5,$6);
-       $day = sprintf("%02d", $day);
-       $hour = sprintf("%02d", $hour);
-       $min = sprintf("%02d", $min);
-       $sec = sprintf("%02d", $sec);
-       $d = "$day-$month-$year $hour:$min:$sec +0000";
-       
-       }elsif ($d =~ m{(\d{2})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})}o ) {
-       # Handles the following format
-       # 02/06/09 22:18:08 -- Generated by AVTECH TemPageR devices
-       
-       #print "header: [$1][$2][$3][$4][$5][$6]\n";
-       my ($month, $day, $year, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6);
-       $year = '20' . $year;
-       my %num2mon = qw(01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec);
-       $month = $num2mon{$month};
-       $d = "$day-$month-$year $hour:$min:$sec +0000";
-       
-    }elsif ($d =~ m{\w{6,}, (\w{3})\w+\s+(\d{1,2}), (\d{4}) (\d{2}):(\d{2}) (AM|PM)}o ) {
-       # Handles the following format
-       # Saturday, December 14, 2002 05:00 PM - KBtoys.com order confirmations
-
-       my ($month, $day, $year, $hour, $min, $apm) = ($1,$2,$3,$4,$5,$6);
-       
-       $hour += 12 if $apm eq 'PM';
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year $hour:$min:00 +0000";
-
-    }elsif ($d =~ m{(\w{3}) (\d{1,2}) (\d{4}) (\d{2}):(\d{2}):(\d{2}) ((?:\+|-)\d{4})}o ) {
-       # Handles the following format
-       # Saturday, December 14, 2002 05:00 PM - jr.com order confirmations
-
-       my ($month, $day, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7);
-
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year $hour:$min:$sec $zone";
-
-    }elsif ($d =~ m{(\d{1,2})-(\w{3})-(\d{4})}o ) {
-       # Handles the following format
-       # 21-Jun-2001 - register.com domain transfer email circa 2001
-
-       my ($day, $month, $year) = ($1,$2,$3);
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year 11:11:11 +0000";
-
-    }else{
-    	# unknown/unmatch => return same string
-    	return($d);
-    }
-    
-    $d = qq("$d");
-    return($d);
-} 
-
-
-sub tests_good_date {
-
-	ok('' eq good_date(), 'good_date no arg');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24-Aug-2010 16:00:00 +0200'), 'good_date internal 2digit zone');
-	ok('"24-Aug-2010 16:00:00 +0000"' eq good_date('24-Aug-2010 16:00:00'), 'good_date internal 2digit no zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date( '1-Sep-2010 16:00:00 +0200'), 'good_date internal SP 1digit');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('Tue, 24 Aug 2010 16:00:00 +0200'), 'good_date header 2digit zone');
-	ok('"01-Sep-2010 16:00:00 +0000"' eq good_date('Wed, 1 Sep 2010 16:00:00'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200 (CEST)'), 'good_date header SP 1digit zone');
-        ok('"06-Feb-2009 22:18:08 +0000"' eq good_date('02/06/09 22:18:08'), 'good_date header TemPageR');
-        ok('"02-Jan-2008 08:40:57 +0000"' eq good_date('Wed Jan  2 08:40:57 2008'), 'good_date header dice.com support 1digit day');
-        ok('"20-Aug-2006 11:55:09 +0000"' eq good_date('Sun Aug 20 11:55:09 2006'), 'good_date header dice.com support 2digit day');
-        ok('"24-Jan-2007 11:58:38 +0000"' eq good_date('Wed Jan 24 11:58:38 MST 2007'), 'good_date header status-now.com');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24 Aug 2010 16:00:00 +0200'), 'good_date header missing date of week');
-        ok('"24-Aug-2067 16:00:00 +0200"' eq good_date('Tue, 24 Aug 67 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1977 16:00:00 +0200"' eq good_date('Tue, 24 Aug 77 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1987 16:00:00 +0200"' eq good_date('Tue, 24 Aug 87 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 97 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-2004 16:00:00 +0200"' eq good_date('Tue, 24 Aug 04 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997 16.00.00 +0200'), 'good_date header period time sep');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997  16:00:00 +0200'), 'good_date header extra white space type1');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24 Aug 1997 5:6:2 +0200'), 'good_date header 1digit time vals');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24, Aug 1997 05:06:02 +0200'), 'good_date header extra commas');
-        ok('"01-Oct-2003 12:45:24 +0000"' eq good_date('Wednesday, 01 October 2003 12:45:24 CDT'), 'good_date header no abbrev');
-        ok('"11-Jan-2005 17:58:27 -0500"' eq good_date('Tue,  11  Jan 2005 17:58:27 -0500'), 'good_date extra white space');
-        ok('"18-Dec-2002 15:07:00 +0000"' eq good_date('Wednesday, December 18, 2002 03:07 PM'), 'good_date kbtoys.com orders');
-        ok('"16-Dec-2004 02:01:49 -0500"' eq good_date('Dec 16 2004 02:01:49 -0500'), 'good_date jr.com orders');
-        ok('"21-Jun-2001 11:11:11 +0000"' eq good_date('21-Jun-2001'), 'good_date register.com domain transfer');
-
-}
-
-
-sub tests_list_keys_in_2_not_in_1 {
-
-	my @list;
-	ok( ! list_keys_in_2_not_in_1( {}, {}), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( [], [ list_keys_in_2_not_in_1( {}, {} ) ] ), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( ['a','b'], [ list_keys_in_2_not_in_1( {}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	
-}
-
-sub list_keys_in_2_not_in_1 {
-
-	my $folders1_ref = shift;
-	my $folders2_ref = shift;
-	my @list;
-	
-	foreach my $folder ( sort keys %$folders2_ref ) {
-		next if exists($folders1_ref->{$folder});
-		push(@list, $folder);
-	}	
-	return(@list);
-}
-
-
-sub list_folders_in_2_not_in_1 {
-
-	my (@h2_folders_not_in_1, %h2_folders_not_in_1);
-	@h2_folders_not_in_1 = list_keys_in_2_not_in_1( \%h1_folders_all, \%h2_folders_all);
-	map { $h2_folders_not_in_1{$_} = 1} @h2_folders_not_in_1;
-	@h2_folders_not_in_1 = list_keys_in_2_not_in_1( \%h2_folders_from_1_all, \%h2_folders_not_in_1);
-	
-	return( reverse @h2_folders_not_in_1 );
-}
-
-sub delete_folders_in_2_not_in_1 { 
-
-	my $dry_message = '';
-	$dry_message = "\t(not really since --dry mode)" if $dry;
-	foreach my $folder (@h2_folders_not_in_1) {
-		if ( defined( $delete2foldersonly ) and eval( "\$folder !~ $delete2foldersonly" ) ) {
-			print "Not deleting $folder because of --delete2foldersonly $delete2foldersonly\n";
-			next;
-		}
-		if ( defined( $delete2foldersbutnot ) and eval( "\$folder =~ $delete2foldersbutnot" ) ) {
-			print "Not deleting $folder because of --delete2foldersbutnot $delete2foldersbutnot\n";
-			next;
-		}
-		my $res = $dry ; # always success in dry mode!
-		$imap2->unsubscribe( $folder ) if ( ! $dry ) ;
-		$res = $imap2->delete( $folder ) if ( ! $dry ) ;
-		if ( $res ) {
-			print "Delete $folder", "$dry_message", "\n" ;
-		}else{
-			print "Delete $folder failure", "\n" ;
-		}
-	}
-}
-
-
-sub extract_header {
-        my $string = shift ;
-        
-        my ( $header ) = split( /\n\n/, $string ) ;
-        #print "[$header]\n" ;
-        return( $header ) ;
-}
-
-sub tests_extract_header {
-        ok( 
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)' 
-eq extract_header(
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-
-body
-lalala
-' ), 'extract_header: 1') ;
-     
-}
-
-sub decompose_header{
-        my $string = shift ;
-        
-        my $header = {  } ;
-        
-        my ($key, $val ) ;
-        my @line = split( /\n|\r\n/, $string ) ;
-        foreach my $line ( @line ) {
-                #print "DDD $line\n" ;
-                if( $line =~ m/(^[^     :]+): (.*)/ ) {
-                        $key = $1 ;
-                        $val = $2 ;
-                        #print "DDD [$key] [$val]\n" ;
-                        push( @{ $header->{ $key } }, $val ) ;
-                }elsif( $line =~ m/^(\s+)(.*)/ ) {
-                        $val = $2 ;
-                        #print "DDD only [$val]\n" ;
-                        @{ $header->{ $key } }[ -1 ] .= " $val" if $key ;
-                }else{
-                        next ;
-                }
-        }
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $header ] ) ;
-
-        return( $header ) ;
-}
-
-
-sub tests_decompose_header{
-
-        my $header_dec ;
-        
-        $header_dec = decompose_header(
-'KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-'
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: VAL_3' ) ;
-
-        ok( 'VAL_1' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: VAL_1' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[1], 'decompose_header: VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-        
-        $header_dec = decompose_header(
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)'
-        ) ;
-
-        ok( '<20100428101817.A66CB162474E@plume.est.belle>' 
-        eq $header_dec->{ 'Message-Id' }[0], 'decompose_header: 1' ) ;
-
-        $header_dec = decompose_header(
-'Return-Path: <gilles@louloutte.dyndns.org>
-Received: by plume.est.belle (Postfix, from userid 1000)
-        id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)
-Subject: test:eekahceishukohpe'
-        ) ;
-        ok( 
-'by plume.est.belle (Postfix, from userid 1000) id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)' 
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 2' ) ;
-
-        $header_dec = decompose_header(
-'Received: from plume (localhost [127.0.0.1])
-        by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9
-        for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-Received: from plume [192.168.68.7]
-        by plume with POP3 (fetchmail-6.3.6)
-        for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        ) ;
-        ok(
-        'from plume (localhost [127.0.0.1]) by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9 for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 3' ) ;
-        ok(
-        'from plume [192.168.68.7] by plume with POP3 (fetchmail-6.3.6) for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[1], 'decompose_header: 3' ) ;
-
-# Bad header beginning with a blank character
-        $header_dec = decompose_header(
-' KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-'
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: Bad header VAL_3' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: Bad header VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: Bad header VAL_2 VAL_2_+ VAL_2_++' ) ;
-}
-
-sub epoch {
-        # incoming format:
-	# internal date 24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: epoch
-
-
-        my $d = shift ;
-        return ('') if not defined($d);
-
-        my ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) ;
-        my $time ;
-        
-        if ( $d =~ m{(\d{2})-([A-Z][a-z]{2})-(\d{4}) (\d{2}):(\d{2}):(\d{2}) ((?:\+|-))(\d{2})(\d{2})}o ) {
-                #print "internal: [$1][$2][$3][$4][$5][$6][$7][$8][$9]\n" ;
-                ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) 
-                =  ( $1,   $2,     $3,    $4,    $5,  $6,    $7,     $8,     $9 ) ;
-                #print "( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m )\n" ;
-                
-                $sign = +1 if ( '+' eq $sign ) ;
-                $sign = -1 if ( '-' eq $sign ) ;
-                
-                $time = timegm( $sec, $min, $hour, $mday, $month_abrev{$month}, $year ) 
-                        - $sign * ( 3600 * $zone_h + 60 * $zone_m ) ;
-                
-                #print( "$time ", scalar(localtime($time)), "\n");
-        }
-        return( $time ) ;
-}
-
-sub tests_epoch {
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:00:00 +0200' ), 'epoch 24-Aug-2010 16:00:00 +0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:00:00 +0000' ), 'epoch 24-Aug-2010 14:00:00 +0000 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 12:00:00 -0200' ), 'epoch 24-Aug-2010 12:00:00 -0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:01:00 +0201' ), 'epoch 24-Aug-2010 16:01:00 +0201 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:01:00 +0001' ), 'epoch 24-Aug-2010 14:01:00 +0001 -> 1282658400' ) ;
-}
-
-sub add_header {
-	my $uid = shift || 'mistake' ;
-	my $header = 'Message-Id: <' . $uid . '@imapsync>' ;
-        return( $header ) ;
-}
-
-sub tests_add_header {
-	ok( 'Message-Id: <mistake@imapsync>' eq add_header(), 'add_header no arg' ) ;
-	ok( 'Message-Id: <123456789@imapsync>' eq add_header(123456789), 'add_header 123456789' ) ;
-
-}
-
-
-sub tests_debug {
-	
-      SKIP: {
-		skip "No test in normal run" if ( not $tests_debug );
-                tests_imap2_folder_name(  ) ;
-	}
-}
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-		tests_regexmess();
-		tests_flags_regex();
-		tests_permanentflags();
-		tests_flags_filter(  ) ;
-		tests_imap2_folder_name();
-		tests_command_line_nopassword();
-		tests_good_date();
-		tests_max();
-		tests_remove_not_num();
-		tests_memory_consumption();
-		tests_is_a_release_number();
-		tests_imapsync_basename();
-		tests_list_keys_in_2_not_in_1();
-		tests_convert_sep_to_slash(  ) ;
-		tests_match_a_cache_file(  ) ;
-		tests_cache_map(  ) ;
-		tests_get_cache(  ) ;
-		tests_clean_cache(  ) ;
-		tests_clean_cache_2(  ) ;
-		tests_touch(  ) ;
-		tests_ucsecond(  ) ;
-		tests_flagsCase(  ) ;
-                tests_mkpath(  ) ;
-                tests_extract_header(  ) ;
-                tests_decompose_header(  ) ;
-                tests_epoch(  ) ;
-                tests_add_header(  ) ;
-                tests_cache_dir_fix(  ) ;
-                tests_filter_forbidden_characters(  ) ;
-                tests_cache_folder(  ) ;
-                tests_time_remaining(  ) ;
-	}
-}
-
-# IMAPClient 3.31 overrides
-
-sub override_imapclient2 {
-no warnings 'redefine';
-no strict 'subs';
-
-use constant Unconnected => 0;
-use constant Connected         => 1;            # connected; not logged in
-use constant Authenticated => 2;                # logged in; no mailbox selected
-use constant Selected => 3;                     # mailbox selected
-use constant INDEX => 0;                        # Array index for output line number
-use constant TYPE => 1;                         # Array index for line type 
-                                                #    (either OUTPUT, INPUT, or LITERAL)
-use constant DATA => 2;                         # Array index for output line data
-use constant NonFolderArg => 1;                 # Value to pass to Massage to 
-                                                # indicate non-folder argument
-
-*Mail::IMAPClient::authenticate = sub {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-		
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                        if ($o->[DATA]=~ /^\d+\s+(NO|BAD)/i) {
-                                return undef ;
-			}
-                }
-        }
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR;
-          } 
-	  else {
-            $response = \&Mail::IMAPClient::_cram_md5;
-          }
-        }
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        ##$code =~ /^OK/ and $self->State(Authenticated) ;
-        ##return $code =~ /^OK/ ? $self : undef ;
-
-        # Return undef on authenticate failure
-        if (! ($code =~ /^OK/)) {
-                return undef;
-        }
-
-        # With XGWTRUSTEDAPP authentication, we have to select mailbox after auth
-        if ($scheme eq 'XGWTRUSTEDAPP') {
-
-                my $id = $self->User;
-                my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-                my $string = "Login " . ( $has_quotes ? $id : qq("$id") ) . "\r\n";
-                $self->_imap_command($string)
-                        and $self->State(Authenticated);
-                # $self->folders and $self->separator unless $self->NoAutoList;
-                unless ( $self->IsAuthenticated) {
-                        my($carp)       =  $self->LastError;
-                        $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                        carp $carp unless defined wantarray;
-                        return undef;
-                };
-                return $self;
-        }
-
-        # Set authenticated flag and return imap object
-        $self->State(Authenticated);
-        return $self;
-};
-
-}
-
-# End of sub override_imapclient2 (yes, very bad indentation)
-
-# IMAPClient 2.2.9 overrides
-
-sub override_imapclient {
-no warnings 'redefine';
-no strict 'subs';
-
-use constant Unconnected => 0;
-use constant Connected         => 1;            # connected; not logged in
-use constant Authenticated => 2;                # logged in; no mailbox selected
-use constant Selected => 3;                     # mailbox selected
-use constant INDEX => 0;                        # Array index for output line number
-use constant TYPE => 1;                         # Array index for line type 
-                                                #    (either OUTPUT, INPUT, or LITERAL)
-use constant DATA => 2;                         # Array index for output line data
-use constant NonFolderArg => 1;                 # Value to pass to Massage to 
-                                                # indicate non-folder argument
-
-
-*Mail::IMAPClient::_transaction_literals = sub {
-	my $self = shift;
-	my $string = "";
-
-	foreach my $result  (@{$self->{"History"}{$self->Transaction}}) { 
-	      $string .= $result->[DATA] 
-		if defined($result) and $self->_is_literal($result) ;
-	}      
-	return $string;
-};
-
-# Got from 3.25
-*Mail::IMAPClient::append_string = sub {
-    my $self   = shift;
-    my $folder = $self->Massage(shift);
-    my ( $text, $flags, $date ) = @_;
-    defined $text or $text = '';
-
-    if ( defined $flags ) {
-        $flags =~ s/^\s+//g;
-        $flags =~ s/\s+$//g;
-        $flags = "($flags)" if $flags !~ /^\(.*\)$/;
-    }
-
-    if ( defined $date ) {
-        $date =~ s/^\s+//g;
-        $date =~ s/\s+$//g;
-        $date = qq("$date") if $date !~ /^"/;
-    }
-
-    $text =~ s/\r?\n/$CRLF/og;
-
-    my $command =
-        "APPEND $folder "
-      . ( $flags ? "$flags " : "" )
-      . ( $date  ? "$date "  : "" ) . "{"
-      . length($text)
-      . "}$CRLF";
-
-    $command .= $text . $CRLF;
-    $self->_imap_command( $command ) or return undef;
-
-    my $data = join '', $self->Results;
-    #print "ZZZ|$data|ZZZ\n";
-    # look for something like return size or self if no size found:
-    # <tag> OK [APPENDUID <uid> <size>] APPEND completed
-    # 18 OK [APPENDUID 1286144680 1539] APPEND Ok.
-    my $ret = $data =~ m#^\d+ OK \[APPEND.*\s+(\d+)\].*\Z#m ? $1 : $self;
-
-    return $ret;
-};
-
-
-*Mail::IMAPClient::fetch_hash = sub {
-	# taken from above *Mail::IMAPClient::fetch_hash
-	# if last arg is a ref then the fetch is done only 
-	# on the messages listed as the keys of this hash.
-	# Init an "empty" $hash_ref by value can be done this way:
-	# @$hash_ref{2, 3, 4, 55} = (undef);
-	
-        my $self = shift;
-        my $hash_ref = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-	
-	my $msgs_ref_all;
-	if (scalar %$hash_ref) {
-		$msgs_ref_all = [ sort { $a <=> $b } keys (%$hash_ref) ];
-		#print "ZZZZ 1 [@$msgs_ref_all]\n";
-	}else{
-	        $msgs_ref_all = scalar($self->messages);
-		#print "ZZZZ 2 [@$msgs_ref_all]\n";
-	}
-	
-	my $split = $self->Split() || scalar(@$msgs_ref_all);
-	while(my @msgs = splice(@$msgs_ref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgs_ref = \@msgs;
-	my $output = scalar($self->fetch($msgs_ref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( defined $hash_ref->{$uid} ) {
-                                $entry = $hash_ref->{$uid} ;
-                        }
-			else {
-                                $hash_ref->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( defined $hash_ref->{$mid} ) {
-                                $entry = $hash_ref->{$mid} ;
-                        }
-			else {
-                                $hash_ref->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]*)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash_ref : $hash_ref;
-};
-
-
-
-*Mail::IMAPClient::login = sub {
-        my $self = shift;
-        return $self->authenticate($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-        my $string =    "Login " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        };
-        return $self;
-};
-
-
-*Mail::IMAPClient::get_header = sub {
-        my($self , $msg, $header ) = @_;
-        my $val;
-        
-	#eval { $val = $self->parse_headers([$msg],$header)->{$header}[0] };
-	my $h = $self->parse_headers([$msg],$header);
-	#require Data::Dumper;
-	#print Data::Dumper->Dump([$h]);
-        #$val = $self->parse_headers([$msg],$header)->{$header}[0];
-	
-	$val = $h->{$msg}{$header}[0];
-        return defined($val)? $val : undef;
-};
-
-
-*Mail::IMAPClient::parse_headers = sub {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	#print ref($msgspec_all), "\n";
-	#if(ref($msgspec_all) eq 'HASH') {
-    #    print ref($msgspec_all), "\n";
-		#$msgspec_all = [$msgspec_all];
-	#}
-
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers want an ARRAY ref\n";
-		#exit 1;
-		return undef;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		#$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        }else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                
-		no warnings;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } 
-				else {
-                                        $h = {};
-                                }
-                        } 
-			else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;
-			#print "W[$hdr]", ref($hdr), "!\n";
-			#next if ( ! defined($hdr));
-			#print "X[$hdr]\n";
-
-                        if (defined($hdr) and ($hdr =~ s/^(\S+):\s*//)) {
-			# if ($hdr =~ s/^(\S+):\s*//) {
-				#print "X1\n";
-				$field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-				#print "X2\n";
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-				#print "X3\n";
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-	use warnings;
-#       my $candump = 0;
-#       if ($self->Debug) {
-#                eval {
-#                        require Data::Dumper;
-#                        Data::Dumper->import;
-#                };
-#                $candump++ unless $@;
-#        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-};
-
-
-*Mail::IMAPClient::authenticate = sub {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-		
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                        if ($o->[DATA]=~ /^\d+\s+(NO|BAD)/i) {
-                                return undef ;
-			}
-                }
-        }
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR;
-          } 
-	  else {
-            $response = \&Mail::IMAPClient::_cram_md5;
-          }
-        }
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        ##$code =~ /^OK/ and $self->State(Authenticated) ;
-        ##return $code =~ /^OK/ ? $self : undef ;
-
-        # Return undef on authenticate failure
-        if (! ($code =~ /^OK/)) {
-                return undef;
-        }
-
-        # With XGWTRUSTEDAPP authentication, we have to select mailbox after auth
-        if ($scheme eq 'XGWTRUSTEDAPP') {
-
-                my $id = $self->User;
-                my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-                my $string = "Login " . ( $has_quotes ? $id : qq("$id") ) . "\r\n";
-                $self->_imap_command($string)
-                        and $self->State(Authenticated);
-                # $self->folders and $self->separator unless $self->NoAutoList;
-                unless ( $self->IsAuthenticated) {
-                        my($carp)       =  $self->LastError;
-                        $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                        carp $carp unless defined wantarray;
-                        return undef;
-                };
-                return $self;
-        }
-
-        # Set authenticated flag and return imap object
-        $self->State(Authenticated);
-        return $self;
-};
-
-
-
-*Mail::IMAPClient::_cram_md5 = sub  {
-  my ($code, $client) = @_;
-  my $hmac = Digest::HMAC_MD5::hmac_md5_hex(MIME::Base64::decode($code),
-                                            $client->Password());
-  return MIME::Base64::encode($client->User() . " $hmac", "");
-};
-
-*Mail::IMAPClient::message_string = sub {
-        my $self = shift;
-        my $msg  = shift;
-        my $expected_size = $self->size($msg);
-        return undef unless(defined $expected_size);    # unable to get size
-        my $cmd  =      $self->has_capability('IMAP4REV1')                              ?
-                                "BODY" . ( $self->Peek ? '.PEEK[]' : '[]' )             :
-                                "RFC822" .  ( $self->Peek ? '.PEEK' : ''  )             ;
-
-	#print "Message_string Beg fetch:\n", memory_consumption();
-        $self->fetch($msg,$cmd) or return undef;
-	#print "Message_string End fetch:\n", memory_consumption();
-
-        my $string = "";
-
-
-        foreach my $result  (@{$self->{"History"}{$self->Transaction}}) {
-              $string .= $result->[DATA]
-                if defined($result) and $self->_is_literal($result) ;
-        }
-	#print "Message_string End string:\n", memory_consumption();
-
-        # BUG? should probably return undef if length != expected
-	# No bug, somme servers are buggy.
-
-	if (! $self->Ignoresizeerrors ) {
-        	if ( length($string) != $expected_size ) {
-                	print "message_string: " .
-                        	"expected $expected_size bytes but received " .
-                        	length($string) . "\n";
-			$self->LastError("message_string: expected ".
-                        	"$expected_size bytes but received " .
-                        	length($string)."\n");
-        	}
-	}
-        return $string;
-};
-
-
-
-{
-no warnings 'once';
-
-*Mail::IMAPClient::Ssl = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{SSL} = shift }
-	return $self->{SSL};
-};
-
-*Mail::IMAPClient::Starttls = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{Starttls} = shift }
-	return $self->{Starttls};
-};
-
-
-
-*Mail::IMAPClient::exists = sub  {
-    # Bad implementation STATUS fails and can close the connexion
-    # Exchange does this after 10 failures
-    my ( $self, $folder ) = @_;
-    $self->status($folder) ? $self : undef;
-};
-
-
-
-*Mail::IMAPClient::Authuser = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-};
-
-
-*Mail::IMAPClient::Ignoresizeerrors = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{IGNORESIZEERRORS} = shift }
-	return $self->{IGNORESIZEERRORS};
-};
-
-*Mail::IMAPClient::Reconnectretry = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{RECONNECTRETRY} = shift }
-	return $self->{RECONNECTRETRY};
-};
-
-
-*Mail::IMAPClient::reconnect  = sub {
-    my $self = shift;
-
-    if ( $self->IsAuthenticated ) {
-        $self->_debug("reconnect called but already authenticated");
-        return $self;
-    }
-
-    my $einfo = $self->LastError || "";
-    $self->_debug( "reconnecting to ", $self->Server, ", last error: $einfo" );
-
-    # reconnect and select appropriate folder
-    $self->connect or return undef;
-
-    return ( defined $self->Folder ) ? $self->select( $self->Folder ) : $self;
-};
-
-
-# wrapper for _imap_command_do to enable retrying on lost connections
-*Mail::IMAPClient::_imap_command  = sub {
-    my $self = shift;
-
-    my $tries = 0;
-    my $retry = $self->Reconnectretry || 0;
-    my ( $rc, @err );
-
-    #print "@_ Beg _imap_command:\n", memory_consumption();
-
-    # LastError (if set) will be overwritten masking any earlier errors
-    while ( $tries++ <= $retry ) {
-        # do command on the first try or if Connected (reconnect ongoing)
-        if ( $tries == 1 or $self->IsConnected ) {
-	    #print "call @_\n";
-            $rc = $self->_imap_command_do(@_);
-            push( @err, $self->LastError ) if $self->LastError;
-	    #print "call @_ done [", $rc || '', "] [$tries/$retry][" . $self->IsUnconnected . "]\n";
-        }
-	
-        if ( !defined($rc) 
-	     and $retry and $self->IsUnconnected
-	     and ( $self->LastIMAPCommand !~ /LOGOUT/ )
-	     
-	) {
-	   print "\nWarning: disconnected. ";
-           if ( $self->reconnect ) {
-                print "Reconnect successful on try #$tries\n";
-		$self->Reconnect_counter($self->Reconnect_counter() + 1);
-            }
-            else {
-                print "Reconnect failed on try #$tries\n";
-                push( @err, $self->LastError ) if $self->LastError;
-            }
-        }
-        else {
-            last;
-        }
-    }
-
-    unless ($rc) {
-        my ( %seen, @keep, @info );
-
-        foreach my $str (@err) {
-            my ( $sz, $len ) = ( 96, length($str) );
-            $str =~ s/$CR?$LF$/\\n/omg;
-            if ( !$self->Debug and $len > $sz * 2 ) {
-                my $beg = substr( $str, 0,    $sz );
-                my $end = substr( $str, -$sz, $sz );
-                $str = $beg . "..." . $end;
-            }
-            next if $seen{$str}++;
-            push( @keep, $str );
-        }
-        foreach my $msg (@keep) {
-            push( @info, $msg . ( $seen{$msg} > 1 ? " ($seen{$msg}x)" : "" ) );
-        }
-        $self->LastError( join( "; ", @info ) );
-    }
-    #print "@_ End _imap_command:\n", memory_consumption();
-    return $rc;
-};
-
-
-*Mail::IMAPClient::_imap_command_do = sub {
-	
-	my $self 	= shift;
-	my $string 	= shift 	or return undef;
-	my $good 	= shift 	|| 'GOOD';
-
-	my $qgood = quotemeta($good);
-
-	my $clear = "";
-	$clear = $self->Clear;
-
-	$self->Clear($clear) 
-		if $self->Count >= $clear and $clear > 0;
-
-	my $count 	= $self->Count($self->Count+1);
-
-	$string 	= "$count $string" ;
-
-        #print "$string\n", memory_consumption();
-	$self->_record($count,[ 0, "INPUT", "$string\x0d\x0a"] );
-        #print "\n2 $count\n", memory_consumption();
-	my $feedback = $self->_send_line("$string");
-
-	unless ($feedback) {
-		$self->LastError( "Error sending '$string' to IMAP: $!\n");
-		$@ = "Error sending '$string' to IMAP: $!";
-		carp "Error sending '$string' to IMAP: $!";
-		return undef;
-	}
-
-	my ($code, $output);	
-	$output = "";
-
-	READ: until ( $code)  {
-	    	# escape infinite loop if read_line never returns any data:
-              	$output = $self->_read_line or return undef; 
-
-		for my $o (@$output) { 
-			
-			$self->_record($count,$o);	# $o is a ref
-                      # $self->_debug("Received from readline: ${\($o->[DATA])}<<END OF RESULT>>\n");
-			next unless $self->_is_output($o);
-			if ( $good eq '+' ) {
-                      		$o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)|^($qgood)/mi ;
-				$code = $1||$2 ;
-			} else {
-                      		($code) = $o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)/mi ;
-			}
-                      if ($o->[DATA] =~ /^\*\s+BYE/im) {
-				$self->State(Unconnected);
-				return undef ;
-			}
-		}
-	}	
-	#print "$string: returned $code\n", memory_consumption();
-	# $self->_debug("Command $string: returned $code\n");
-	return $code =~ /^OK|$qgood/im ? $self : undef ;
-
-};
-
-# capability 2.2.9 is stupid: it caches and return first imap CAPABILITY call
-# but call imap CAPABILITY each time.
-# Copy/paste from 3.25
-*Mail::IMAPClient::capability = sub {
-    my $self = shift;
-
-    if ( $self->{CAPABILITY} ) {
-        my @caps = keys %{ $self->{CAPABILITY} };
-        return wantarray ? @caps : \@caps;
-    }
-
-    $self->_imap_command('CAPABILITY')
-      or return undef;
-
-    my @caps = map { split } grep s/^\*\s+CAPABILITY\s+//, $self->History;
-    foreach (@caps) {
-        $self->{CAPABILITY}{ uc $_ }++;
-        $self->{ uc $1 } = uc $2 if /(.*?)\=(.*)/;
-    }
-
-    return wantarray ? @caps : \@caps;
-};
-
-*Mail::IMAPClient::_read_line = sub {
-	my $self 	= shift;	
-	my $sh		= $self->Socket;
-	my $literal_callback    = shift;
-	my $output_callback = shift;
-	
-	unless ($self->IsConnected and $self->Socket) {
-		$self->LastError("NO Not connected.\n");
-		carp "Not connected" if $^W;
-		return undef;
-	}
-
-	my $iBuffer	= ""; 
-	my $oBuffer	= [];
-	my $count	= 0;
-	my $index	= $self->_next_index($self->Transaction);
-	my $rvec 	= my $ready = my $errors = 0; 
-	my $timeout	= $self->Timeout;
-
-	my $readlen 	= 1;
-	my $fast_io	= $self->Fast_io;	# Remember setting to reduce future method calls
-
-	if ( $fast_io ) {
-		
-		# set fcntl if necessary:
-		exists $self->{_fcntl} or $self->Fast_io($fast_io);
-		$readlen = $self->{Buffer}||4096;
-	}
-	until (	
-		# there's stuff in output buffer:
-		scalar(@$oBuffer)	and 			
-
-		# the last thing there has cr-lf:
-                $oBuffer->[-1][DATA] =~ /\x0d\x0a$/  and     
-
-		# that thing is an output line:
-                $oBuffer->[-1][TYPE]    eq "OUTPUT"  and     
-
-		# and the input buffer has been MT'ed:
-		$iBuffer		eq "" 		
-
-	) {
-		#print memory_consumption();
-              my $transno = $self->Transaction;  # used below in several places
-		if ($timeout) {
-			vec($rvec, fileno($self->Socket), 1) = 1;
-			my @ready = $self->{_select}->can_read($timeout) ;
-			unless ( @ready ) {
-				$self->LastError("Tag $transno: " .
-					"Timeout after $timeout seconds " .
-					"waiting for data from server\n");	
-				$self->_record($transno,
-					[	$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Timeout after ".
-						"$timeout seconds " .
-						"during read from " .
-						"server\x0d\x0a"
-					]
-				);
-				$self->LastError(
-					"Timeout after $timeout seconds " .
-					"during read from server\x0d\x0a"
-				);
-				return undef;
-			}
-		}
-		
-		#local($^W) = undef;	# Now quiet down warnings
-
-		# read "$readlen" bytes (or less):
-              # need to check return code from $self->_sysread 
-  	      #	in case other end has shut down!!!
-              my $ret = $self->_sysread( $sh, \$iBuffer, $readlen, length($iBuffer)) ;
-	      # $self->_debug("Read so far: $iBuffer<<END>>\n");
-	      redo if(! defined($ret)) ;
-              if(($timeout and ! defined($ret))) { # Blocking read error...
-                  my $msg = "Error while reading data from server: $!\x0d\x0a";
-		  $self->LastError('Error while reading data from server');
-		  $self->State(Unconnected);
-		  print $msg;
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-		  
-                  return undef;
-              }
-              elsif(defined($ret) and $ret == 0) {    # Caught EOF...
-                  my $msg="Socket closed while reading data from server [$!]\x0d\x0a";
-		  print "$msg";
-		  $self->LastError('Socket closed while reading data from server');
-		  $self->State(Unconnected);
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-                  return undef;
-              }
-	      
-              # successfully wrote to other end, keep going...
-              $count += $ret;
-		LINES: while ( $iBuffer =~ s/^(.*?\x0d?\x0a)// ) {
-		   my $current_line = $1;
-		   #print memory_consumption();
-
-		   # $self->_debug("BUFFER: pulled from buffer: <BEGIN>${current_line}<END>\n" .
-		   # 	"and left with buffer contents of: <BEGIN>${iBuffer}<END>\n");
-
-		   LITERAL: if ($current_line =~ s/\{(\d+)\}\x0d\x0a$//) {
-			# This part handles IMAP "Literals", 
-			# which according to rfc2060 look something like this:
-			# [tag]|* BLAH BLAH {nnn}\r\n
-			# [nnn bytes of literally transmitted stuff]
-			# [part of line that follows literal data]\r\n
-
-			# Set $len to be length of impending literal:
-			my $len = $1 ;
-			
-			$self->_debug("LITERAL: received literal in line ".
-				"$current_line of length $len; ".
-				"attempting to ".
-				"retrieve from the " . length($iBuffer) . 
-				" bytes in: $iBuffer<END_OF_iBuffer>\n");
-
-			# Xfer up to $len bytes from front of $iBuffer to $litstring: 
-			my $litstring = substr($iBuffer, 0, $len);
-			$iBuffer = substr($iBuffer, length($litstring), 
-					length($iBuffer) - length($litstring) ) ;
-
-			# Figure out what's left to read (i.e. what part of 
-			# literal wasn't in buffer):
-			my $remainder_count = $len - length($litstring);
-			my $callback_value = "";
-
-			if ( defined($literal_callback) ) 	{	
-				if 	( $literal_callback =~ /GLOB/) 	{	
-					print $literal_callback $litstring ;
-					$litstring = "";
-				} elsif ($literal_callback =~ /CODE/ ) {
-					# Don't do a thing
-
-				} else 	{
-					$self->LastError(
-						ref($literal_callback) . 
-						" is an invalid callback type; " .
-						"must be a filehandle or coderef\n"
-					); 
-				}
-
-		
-			}
-			if ($remainder_count > 0 and $timeout) {
-				# If we're doing timeouts then here we set up select 
-				# and wait for data from the the IMAP socket.
-				vec($rvec, fileno($self->Socket), 1) = 1;
-				unless ( CORE::select( $ready = $rvec, 
-							undef, 
-							$errors = $rvec, 
-							$timeout) 
-				) {	
-					# Select failed; that means bad news. 
-					# Better tell someone.
-					$self->LastError("Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n");	
-					carp "Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n"
-						if $self->Debug or $^W;	
-					return undef;
-				}	
-			} 
-			
-			fcntl($sh, F_SETFL, $self->{_fcntl}) 
-				if $fast_io and defined($self->{_fcntl});
-			while ( $remainder_count > 0 ) {	   # As long as not done,
-				$self->_debug("Still need $remainder_count to " .
-					"complete literal string\n");
-				my $ret	= $self->_sysread(   	   # bytes read
-						$sh, 		   # IMAP handle 
-						\$litstring,	   # place to read into
-						$remainder_count,  # bytes left to read
-						length($litstring) # offset to read into
-				) ;
-				$self->_debug("Received ret=$ret and buffer = " .
-				"\n$litstring<END>\nwhile processing LITERAL\n");
-				if ( $timeout and !defined($ret)) { # possible timeout
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Error reading data " .
-						"from server: $!\n"
-						]
-					);
-					return undef;
-				} elsif ( $ret == 0 and eof($sh) ) {
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * ".
-						"BYE Server unexpectedly " .
-						"closed connection: $!\n"	
-						]
-					);
-					$self->State(Unconnected);
-					return undef;
-				}
-				# decrement remaining bytes by amt read:
-				$remainder_count -= $ret;	   
-
-				if ( length($litstring) > $len ) {
-                                    # copy the extra struff into the iBuffer:
-                                    $iBuffer = substr(
-                                        $litstring,   
-                                        $len, 
-                                        length($litstring) - $len 
-                                    );
-                                    $litstring = substr($litstring, 0, $len) ;
-                                }
-
-				if ( defined($literal_callback) ) {
-					if ( $literal_callback =~ /GLOB/ ) {
-						print $literal_callback $litstring;
-						$litstring = "";
-					} 
-				}
-
-			}
-			$literal_callback->($litstring) 
-				if defined($litstring) and 
-				defined($literal_callback) and $literal_callback =~ /CODE/;
-
-			$self->Fast_io($fast_io) if $fast_io;
-
-		# Now let's make sure there are no IMAP server output lines 
-		# (i.e. [tag|*] BAD|NO|OK Text) embedded in the literal string
-		# (There shouldn't be but I've seen it done!), but only if
-		# EnableServerResponseInLiteral is set to true
-
-			my $embedded_output = 0;
-			my $lastline = ( split(/\x0d?\x0a/,$litstring))[-1] 
-				if $litstring;
-
-			if ( 	$self->EnableServerResponseInLiteral and
-				$lastline and 
-				$lastline =~ /^(?:\*|(\d+))\s(BAD|NO|OK)/i 
-			) {
-			  $litstring =~ s/\Q$lastline\E\x0d?\x0a//;
-			  $embedded_output++;
-
-			  $self->_debug("Got server output mixed in " .
-					"with literal: $lastline\n"
-			  ) 	if $self->Debug;
-
-			}
-		  	# Finally, we need to stuff the literal onto the 
-			# end of the oBuffer:
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line],
-					[ $index++, "LITERAL", $litstring   ];
-			push @$oBuffer,	[ $index++, "OUTPUT",  $lastline    ] 
-					if $embedded_output;
-
-		  } else { 
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line ]; 
-		  }
-		
-		}
-		#$self->_debug("iBuffer is now: $iBuffer<<END OF BUFFER>>\n");
-	}
-	#	_debug $self, "Buffer is now $buffer\n";
-      _debug $self, "Read: " . join("",map {$_->[DATA]} @$oBuffer) ."\n" 
-		if $self->Debug;
-	return scalar(@$oBuffer) ? $oBuffer : undef ;
-};
-
-
-
-}
-
-# End of sub override_imapclient (yes, very bad indentation)
-}
-
-# IMAPClient 2.2.9 3.xx ads
-
-package Mail::IMAPClient;
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { 
-		$self->{SPLIT} = shift;
-		$self->{Maxcommandlength} = 10 * $self->{SPLIT};
-	}
-	return $self->{SPLIT};
-}
-
-sub Tls {
-	my $self = shift;
-	
-	if (@_) { $self->{TLS} = shift }
-	return $self->{TLS};
-}
-
-sub Reconnect_counter {
-	my $self = shift;
-	$self->{Reconnect_counter} = 0 if ( not defined( $self->{Reconnect_counter} ) ) ;
-	if (@_) { $self->{Reconnect_counter} = shift }
-	return $self->{Reconnect_counter};
-}
-
-
-sub Banner {
-	my $self = shift;
-	
-	if (@_) { $self->{BANNER} = shift }
-	return $self->{BANNER};
-}
-
-
-sub RawSocket2  {
-    my ( $self, $sock ) = @_;
-    defined $sock
-      or return $self->{Socket};
-
-    $self->{Socket}  = $sock;
-    $self->{_select} = IO::Select->new($sock);
-    delete $self->{_fcntl};
-    #$self->Fast_io( $self->Fast_io );
-    $sock;
-}
-
-sub capability_update {
-	my $self = shift;
-	
-	delete $self->{CAPABILITY};
-	$self->capability;
-}
-
diff --git a/W/patches/imapsync-yahoo b/W/patches/imapsync-yahoo
deleted file mode 100644
index bd06df8..0000000
--- a/W/patches/imapsync-yahoo
+++ /dev/null
@@ -1,2430 +0,0 @@
-#!/usr/bin/perl -w
-
-use lib '/usr/share/imapsync/';
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration
-tool. Synchronise mailboxes between two imap servers. Good
-at IMAP migration. More than 32 different IMAP server softwares
-supported with success.
-
-$Revision: 1.241 $
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows 2000 (at least) and ActiveState's 5.8 Perl
-
- imapsync is already available directly on the following distributions (at least):
- FreeBSD, Debian, Ubuntu, Gentoo, NetBSD, Darwin, Mandriva.
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/dist/
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://www.linux-france.org/prj/imapsync/INSTALL (for windows users)
- 
- The freshmeat record is at http://freshmeat.net/projects/imapsync/
-
-=head1 SYNOPSIS
-
-  imapsync [options]
-
-To get a description of each option just run imapsync like this :
-
-  imapsync --help
-  imapsync
-
-The option list :
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-           [--authmech1 <string>] [--authmech2 <string>] 
-           [--noauthmd5]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect]
-           [--syncinternaldates]
-           [--buffersize  <int>]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-           [--skipsize]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2]
-           [--subscribed] [--subscribe]
-           [--nofoldersizes]
-           [--dry]
-           [--debug] [--debugimap]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--version] [--help]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transfered, recursively.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is the adequate tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers, same message size
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync is adapted to a bad
-connection. imapsync is CPU hungry so nice and renice 
-commands can be a good help. imapsync can be memory hungry too,
-especially with large messages.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete --expunge1 options.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A.
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without loosing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwith link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started its life being a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" on host
-"imap.src.fr" to the imap account "max" on host
-"imap.dest.fr" (the passwords are located in two files
-"/etc/secret1" for "buddy", "/etc/secret2" for "max") :
-
- imapsync --host1 imap.src.fr  --user1 buddy --passfile1 /etc/secret1 \
-          --host2 imap.dest.fr --user2 max   --passfile2 /etc/secret2
-
-Then, you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --password1 instead of --passfile1 to give the
-password but it is dangerous because any user on your host
-can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text in
-case CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 and --ssl2 to enable encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have a buggy internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap is a good place to talk about
-imapsync. I read it when imapsync is concerned.
-
-Gilles LAMIRAL earn his living writing, installing,
-configuring and teaching free open and gratis
-softwares. Do not hesitate to pay him for that services.
-
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by
-the GNU General Public License. See the GPL file included in
-the distribution or the web site
-http://www.gnu.org/licenses/licenses.html
-
-=head1 BUGS
-
-No known serious bug.  Report any bug to the author.
-Before reporting bugs, read the FAQ, this README and the
-TODO files.
-
-Don't write imapsync in uppercase in the email title, I'll
-know you run windows.
-
-Make a good title, not just "imapsync" or "problem",
-a good title is made of keywords summary,  not too long (one visible line).
-
-In your report, please include:
-
- - imapsync version.
- - IMAPClient.pm version.
- - perl version.
- - operating system running imapsync.
- - imap servers softwares on both side and their version.
-
- Those values can be found with the command line
-
- imapsync --host1 imap.host1.net  --host2 imap.host2.org  --justconnect
-
- And also, if it can help :
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). This can be found
-   at the beginning of the output.
- - output given with --debug --debugimap near the failure point.
-
-=head1 IMAP SERVERS
-
-Failure stories reported with the following 4 imap servers :
-
- - MailEnable 1.54 (Proprietary) http://www.mailenable.com/
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 works.
-   Patient and confident testers are welcome.
- - dkimap4 2.39
- - Imail 7.04 (maybe).
-
-Success stories reported with the following 35 imap servers 
-(softwares names are in alphabetic order) : 
-
- - Archiveopteryx 2.03, 2.04 (OSL 3.0) http://www.archiveopteryx.org/
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.10, 2.2.12, 
-   v2.2.3-Invoca-RPM-2.2.3-8,
-   2.3-alpha (OSI Approved),
-   v2.2.12-Invoca-RPM-2.2.12-3.RHEL4.1,
-   2.2.13,
-   v2.3.1-Invoca-RPM-2.3.1-2.7.fc5,
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Deerfield VisNetic MailServer 5.8.6 [from]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest] (LGPL) (http://www.dovecot.org/)
- - Domino (Notes) 6.5, 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 7.0.1 [from]
- - Eudora WorldMail v2
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform)
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.5.7638.1 [dest]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431
- - SmarterMail
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java System Messaging Server 6.2-2.05
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - Imap part of TCP/IP suite of VMS 7.3.2
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 5.5.
-
-Please report to the author any success or bad story with
-imapsync and don't forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- From software :* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- To   software :* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example :
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-Please rate imapsync at http://freshmeat.net/projects/imapsync/
-or better give the author a book, he likes books:
-http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
-(or its paypal account gilles.lamiral@laposte.net)
-
-=head1 HUGE MIGRATION
-
-
-Have a special attention on options 
---subscribed
---subscribe
---delete
---delete2
---expunge
---expunge1
---expunge2
---maxage
---minage
---maxsize
---useheader
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file content is :
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just :
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 "$u1" --password1 "$p1" --user2 "$u2" --password2 "$p2" ...
- done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the GPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : http://software.complete.org/offlineimap
-  mailsync      : http://mailsync.sourceforge.net/
-  imapxfer      : http://www.washington.edu/imap/
-                   part of the imap-utils from UW.
-  mailutil      : replace imapxfer in 
-                   part of the imap-utils from UW.
-                  http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freshmeat.net/projects/imap-repl/
-  imap_migrate  : http://freshmeat.net/projects/imapmigration/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also tools/wonko_ruby_imapsync
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will be always welcome.
-
-$Id: imapsync,v 1.241 2007/12/31 13:39:02 gilles Exp gilles $
-
-
-
-=cut
-
-
-++$|;
-use strict;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use POSIX qw(uname);
-use Fcntl;
-
-#use Test::Simple tests => 1;
-use Test::More 'no_plan';
-
-eval { require 'usr/include/sysexits.ph' };
-
-
-my(
-        $rcs, $debug, $debugimap, $error,$is_yahoo,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag, 
-        $sep1, $sep2,
-	$syncinternaldates, $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $maxage, $minage, 
-        $skipheader, @useheader,
-        $skipsize, $foldersizes, $buffersize,
-	$delete, $delete2,
-        $expunge, $expunge1, $expunge2, $dry,
-        $justfoldersizes,
-        $authmd5,
-        $subscribed, $subscribe,
-	$version, $VERSION, $help, 
-        $justconnect, $justfolders,
-        $fast,
-        $mess_size_total_trans,
-        $mess_size_total_skipped,
-        $mess_size_total_error,
-        $mess_trans, $mess_skipped, $mess_skipped_dry, 
-        $timeout,   # whr (ESS/PRW)
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-        $authuser1, $authuser2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-	$tests, $test_builder,
-);
-
-use vars qw ($opt_G); # missing code for this will be option.
-
-
-$rcs = ' $Id: imapsync,v 1.241 2007/12/31 13:39:02 gilles Exp gilles $ ';
-$rcs =~ m/,v (\d+\.\d+)/;
-$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\n";
-
-
-$mess_size_total_trans   = 0;
-$mess_size_total_skipped = 0;
-$mess_size_total_error   = 0;
-$mess_trans = $mess_skipped = $mess_skipped_dry = 0;
-
-
-sub check_lib_version {
-	if ($VERSION_IMAPClient =~ m/(\d+)\.(\d+)\.(\d+)/) {
-		$debug and print "VERSION_IMAPClient $1 $2 $3\n";
-		#my($major,$minor,$sub) = ($1, $2, $3);
-		
-		return(1) if($VERSION_IMAPClient eq '2.2.9');
-		
-	}
-	else{
-		return 0; # don't match regex => bad
-	}
-}
-
-$error=0;
-
-my $banner = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.241 $ ',
-		  '$Date: 2007/12/31 13:39:02 $ ',
-		  "\n",localhost_info(),
-		  " and the module Mail::IMAPClient version used here is ",
-		  $VERSION_IMAPClient,"\n",
-		  "Command line used :\n",
-		  "$0 @ARGV\n",
-		 );
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-get_options();
-print $banner;
-
-sub missing_option {
-	my ($option) = @_;
-	die "$option option must be used, run $0 --help for help\n";
-}
-
-# By default, 1000 at a time, not more.
-$split1 ||= 1000;
-$split2 ||= 1000;
-
-$host1 || missing_option("--host1") ;
-# $port1 = (defined($port1)) ? $port1 : 143;
-$port1 ||= defined $ssl1 ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-# $port2 = (defined($port2)) ? $port2 : 143;
-$port2 ||= defined $ssl2 ? 993 : 143;
-
-sub connect_imap {
-	my($host, $port, $debugimap) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	$imap->connect2()
-	  or die "Can not open imap connection on [$host] : $@\n";	
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	"Here is a [$OSNAME] system (", 
-	join(" ", 
-	     uname(),
-	),
-        ")\n",
-	"with perl ", 
-	sprintf("%vd", $PERL_VERSION));		  
-	return($infos);
-
-}
-
-if ($justconnect) {
-	my $from = ();
-	my $to = ();
-	
-	$from = connect_imap($host1, $port1);
-	print "From software : ", server_banner($from);
-	print "From capability : ", join(" ", $from->capability()), "\n";
-	$to   = connect_imap($host2, $port2);
-	print "To   software : ", server_banner($to);
-	print "To   capability : ", join(" ", $to->capability()), "\n";
-	$from->logout();
-	$to->logout();
-	exit(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-if(defined($authmd5) and not($authmd5)) {
-	$authmech1 ||= 'LOGIN';
-	$authmech2 ||= 'LOGIN';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'CRAM-MD5';
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'CRAM-MD5';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "will try to use $authmech1 authentication on host1\n";
-print "will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-
-@useheader = ("ALL") unless (@useheader);
-
-print "From imap server [$host1] port [$port1] user [$user1]\n";
-print "To   imap server [$host2] port [$port2] user [$user2]\n";
-
-
-sub ask_for_password {
-	require Term::ReadKey;
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-
-$password1 || $passfile1 || do {
-	$password1 = ask_for_password($authuser1 || $user1, $host1);
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	$password2 = ask_for_password($authuser2 || $user2, $host2);
-};
-
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-my $from = ();
-my $to = ();
-
-$timestart = time();
-$timebefore = $timestart;
-
-$debugimap and print "From connection\n";
-$from = login_imap($host1, $port1, $user1, $password1, 
-		   $debugimap, $timeout, $fastio1, $ssl1, 
-		   $authmech1, $authuser1);
-
-$debugimap and print "To  connection\n";
-$to = login_imap($host2, $port2, $user2, $password2, 
-		 $debugimap, $timeout, $fastio2, $ssl2, 
-		 $authmech2, $authuser2);
-
-#  history
-
-$debug and print "From Buffer I/O : ", $from->Buffer(), "\n";
-$debug and print "To   Buffer I/O : ", $to->Buffer(), "\n";
-
-
-sub login_imap {
-	my($host, $port, $user, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $authmech, $authuser) = @_;
-	my ($imap);
-	if ($ssl) {
-		require IO::Socket::SSL;
-		my $socssl = new IO::Socket::SSL("$host:$port");
-		die "Error connecting to $host:$port: $@\n" unless $socssl;
-		$socssl->autoflush(1);
-		
-		$imap = Mail::IMAPClient->new(
-					      Socket => $socssl,
-					      Server => $host,
-					     );
-	} 
-	else {
-		$imap = Mail::IMAPClient->new();
-	}
-	$imap->Clear(20);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-	
-	if ($ssl) {
-		$imap->State(Mail::IMAPClient::Connected);
-	} 
-	else {
-		$imap->connect2()
-	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-	}
-	print "Banner : ", server_banner($imap);
-	
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} 
-	else {
-		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Frequently PLAIN is only supported with SSL, ",
-			  "try --ssl1 or --ssl2 option\n";
-		}
-	}
-	
-	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-
-	$imap->User($user);
-	$imap->Authuser($authuser);
-	$imap->Password($password);
-	$is_yahoo = 0;
-	$is_yahoo = index($host,"yahoo");	
-	# Allow Login to Yahoo www.bwebcentral.com
-
-	
-	unless ($imap->login2()) {
-		print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
-		die if ($authmech eq 'LOGIN');
-		die if $imap->IsUnconnected();
-		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-		$imap->Authmechanism("");
-		$imap->login2() or
-		  die "Error login : [$host] with user [$user] auth [LOGIN] : $@";
-	}
-	print "Success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap);
-}
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	for my $line ($imap->Results()) {
-		#print "LR: $line";
-		return $line if $line =~ /^\* (OK|NO|BAD)/;
-        }
-	return "No banner\n";
- }
-
-
-
-print "From capability : ", join(" ", $from->capability()), "\n";
-print "To   capability : ", join(" ", $to->capability()), "\n";
-
-die unless $from->IsAuthenticated();
-print "From state Authenticated\n";
-die unless   $to->IsAuthenticated();
-print "To   state Authenticated\n";
-
-$split1 and $from->Split($split1);
-$split2 and $to->Split($split2);
-
-# 
-# Folder stuff
-#
-
-my (@f_folders, %requested_folder, @t_folders, %subscribed_folder, %t_folders);
-
-sub tests_folder_routines {
-	ok( !give_requested_folders()                ,"no requested folders"  );
-	ok( !is_requested_folder('folder_foo')                                );
-	ok(  add_to_requested_folders('folder_foo')                           );
-	ok(  is_requested_folder('folder_foo')                                );
-	ok( !is_requested_folder('folder_NO_EXIST')                           );
-	ok( !remove_from_requested_folders('folder_foo'), "removed folder_foo");
-	ok( !is_requested_folder('folder_foo')                                );
-	my @f;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f");
-	ok(  is_requested_folder('folder_bar')                                );
-	ok(  is_requested_folder('folder_toto')                               );
-	ok(  remove_from_requested_folders('folder_toto')                     );
-	ok( !is_requested_folder('folder_toto')                               );
-	ok( init_requested_folders()                 , 'empty requested folders');
-	ok( !give_requested_folders()                , 'no requested folders'  );
-}
-
-sub give_requested_folders {
-	return(keys(%requested_folder));
-}
-
-sub init_requested_folders {
-	
-	%requested_folder = ();
-	return(1);
-	
-}
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	defined( $requested_folder{ $folder } );
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder };
-	}
-	return( keys( %requested_folder ) );
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder};
-	}
-	return( keys(%requested_folder) );
-}
-
-
-# Make a hash of subscribed folders in source server.
-map { $subscribed_folder{$_} = 1 } $from->subscribed();
-
-
-my @all_source_folders = sort $from->folders();
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ($subscribed) {
-		add_to_requested_folders(keys (%subscribed_folder));
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($from->folders($folderrec));
-		}
-	}
-}
-else {
-	
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		add_to_requested_folders(@all_source_folders);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	foreach my $include (@include) {
-		my @included_folders = grep /$include/, @all_source_folders;
-		add_to_requested_folders(@included_folders);
-		print "Including folders matching pattern '$include': @included_folders\n";
-	}
-}
-
-if (scalar(@exclude)) {
-	foreach my $exclude (@exclude) {
-		my @requested_folder = sort(keys(%requested_folder));
-		my @excluded_folders = grep /$exclude/, @requested_folder;
-		remove_from_requested_folders(@excluded_folders);
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-	}
-}
-
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@f_folders = @requested_folder;
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if (! $list_1_ref); # end if no list
-	return(1)  if (! $list_2_ref); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = 0;
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref);
-	
-	# same size, each element equal
-	return 0
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  =  1 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  1  =  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-}
-
-
-@t_folders = sort @{$to->folders()};
-
-my($f_sep,$t_sep); 
-# what are the private folders separators for each server ?
-
-
-$debug and print "Getting separators\n";
-$f_sep = get_separator($from, $sep1, "--sep1");
-$t_sep = get_separator($to, $sep2, "--sep2");
-
-#my $f_namespace = $from->namespace();
-#my $t_namespace = $to->namespace();
-#$debug and print "From namespace:\n", Data::Dumper->Dump([$f_namespace]);
-#$debug and print "To   namespace:\n", Data::Dumper->Dump([$t_namespace]);
-
-my($f_prefix,$t_prefix); 
-$f_prefix = get_prefix($from, $prefix1, "--prefix1");
-$t_prefix = get_prefix($to, $prefix2, "--prefix2");
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the prefix namespace with the $prefix_opt option\n";
-		exit(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ($sep_in) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator caracter with the $sep_opt option\n";
-		exit(1);
-	}
-}
-
-
-print "From separator and prefix : [$f_sep][$f_prefix]\n";
-print "To   separator and prefix : [$t_sep][$t_prefix]\n";
-
-
-sub foldersizes {
-
-	my ($side, $imap, $folders_r) = @_;
-	my $tot = 0;
-	my $tmess = 0;
-	my @folders = @{$folders_r};
-	print "++++ Calculating sizes ++++\n";
-	foreach my $folder (@folders)     {
-		my $stot = 0;
-		my $smess = 0;
-		printf("$side Folder %-35s", "[$folder]");
-		unless($imap->exists($folder)) {
-			print("does not exist yet\n");
-			next;
-		}
-		unless ($imap->select($folder)) {
-			warn 
-			  "$side Folder $folder : Could not select ",
-			    $imap->LastError,  "\n";
-			$error++;
-			next;
-		}
-		if (defined($maxage) or defined($minage)) {
-			# The pb is fetch_hash() can only be applied on ALL messages
-			my @msgs = select_msgs($imap);
-			$smess = scalar(@msgs);
-			foreach my $m (@msgs) {
-				my $s = $imap->size($m)
-				  or warn "Could not find size of message $m: $@\n";
-				$stot += $s;
-			}
-		}
-		else{
-			my $hashref = {};
-			$smess = $imap->message_count();
-			unless ($smess == 0) {
-				#$imap->Ranges(1);
-				$imap->fetch_hash2("RFC822.SIZE",$hashref) or die "$@";
-				#$imap->Ranges(0);
-				#print map {$hashref->{$_}->{"RFC822.SIZE"}, " "} keys %$hashref;
-				map {$stot += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
-			}
-		}
-		printf(" Size: %9s", $stot);
-		printf(" Messages: %5s\n", $smess);
-		$tot += $stot;
-		$tmess += $smess;
-	}
-	print "Total size: $tot\n";
-	print "Total messages: $tmess\n";
-	print "Time : ", timenext(), " s\n";
-}
-
-
-foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	$t_fold = to_folder_name($f_fold);
-	$t_folders{$t_fold}++;
-}
-
-@t_folders = sort keys(%t_folders);
-
-
-if ($foldersizes) {
-	foldersizes("From", $from, \@f_folders);
-	foldersizes("To  ", $to,   \@t_folders);
-}
-
-
-
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-exit if ($justfoldersizes);
-
-# needed for setting flags
-my $tohasuidplus = $to->has_capability("UIDPLUS");
-
-
-
-print 
-  "++++ Listing folders ++++\n",
-  "From folders list : ", map("[$_] ",@f_folders),"\n",
-  "To   folders list : ", map("[$_] ",@t_folders),"\n";
-
-print 
-  "From subscribed folders list : ", 
-  map("[$_] ", sort keys(%subscribed_folder)), "\n" 
-  if ($subscribed);
-
-sub separator_invert {
-	# The separator we hope we'll never encounter
-	my $o_sep="\000";
-
-	my($f_fold, $f_sep, $t_sep) = @_;
-
-	my $t_fold = $f_fold;
-	$t_fold =~ s@\Q$t_sep@$o_sep@g;
-	$t_fold =~ s@\Q$f_sep@$t_sep@g;
-	$t_fold =~ s@\Q$o_sep@$f_sep@g;
-	return($t_fold);
-}
-
-sub to_folder_name {
-	my ($t_fold);
-	my ($x_fold) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^$f_prefix//;
-	$debug and print "removed source prefix : [$x_fold]\n";
-	$t_fold = separator_invert($x_fold,$f_sep, $t_sep);
-	$debug and print "inverted   separators : [$t_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$t_fold = $t_prefix . $t_fold 
-	  unless(($t_prefix eq "INBOX.") and ($t_fold =~ m/^INBOX$/i));
-	$debug and print "added   target prefix : [$t_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-		$debug and print "eval \$t_fold =~ $regextrans2\n";
-		eval("\$t_fold =~ $regextrans2");
-	}
-	return($t_fold);
-}
-
-sub flags_regex {
-	my ($flags_f) = @_;
-	foreach my $regexflag (@regexflag) {
-		$debug and print "eval \$flags_f =~ $regexflag\n";
-		eval("\$flags_f =~ $regexflag");
-	}
-	return($flags_f);
-}
-
-sub acls_sync {
-	my($f_fold, $t_fold) = @_;
-	if ($syncacls) {
-		my $f_hash = $from->getacl($f_fold)
-		  or warn "Could not getacl for $f_fold: $@\n";
-		my $t_hash = $to->getacl($t_fold)
-		  or warn "Could not getacl for $t_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$f_hash), keys(%$t_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $f_hash->{$user} || "none";
-			print "acl $user : [$acl]\n";
-			next if ($f_hash->{$user} && $t_hash->{$user} &&
-				 $f_hash->{$user} eq $t_hash->{$user});
-			unless ($dry) {
-				print "setting acl $t_fold $user $acl\n";
-				$to->setacl($t_fold, $user, $acl)
-				  or warn "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-print "++++ Looping on each folder ++++\n";
-
-FOLDER: foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	$t_fold = to_folder_name($f_fold);
-	print "To   Folder [$t_fold]\n";
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-	
-	unless ($from->select($f_fold)) {
-		warn 
-		"From Folder $f_fold : Could not select ",
-		$from->LastError,  "\n";
-		$error++;
-		next FOLDER;
-	}
-
-	unless ($to->exists($t_fold) or $to->select($t_fold)) { 
-		print "To   Folder $t_fold does not exist\n";
-		print "Creating folder [$t_fold]\n";
-		unless ($dry){
-			unless ($to->create($t_fold)){
-				warn "Couldn't create [$t_fold]",
-				$to->LastError,"\n";
-				$error++;
-				next FOLDER;
-			}
-		}
-		else{
-			next FOLDER;
-		}
-	}
-	
-	acls_sync($f_fold, $t_fold);
-
-	unless ($to->select($t_fold)) { 
-		warn 
-		"To   Folder $t_fold : Could not select ",
-		$to->LastError, "\n";
-		$error++;
-		next FOLDER;
-	}
-	
-	if ($expunge){
-		print "Expunging $f_fold and $t_fold\n";
-		unless($dry) { $from->expunge() };
-		#unless($dry) { $to->expunge() };
-	}
-	
-	if ($subscribe and exists $subscribed_folder{$f_fold}) {
-		print "Subscribing to folder $t_fold on destination server\n";
-		unless($dry) { $to->subscribe($t_fold) };
-	}
-	
-	next FOLDER if ($justfolders);
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my @f_msgs = select_msgs($from);
-
-
-
-	$debug and print "LIST FROM : ", scalar(@f_msgs), " messages [@f_msgs]\n";
-	# internal dates on "TO" are after the ones on "FROM"
-	# normally...
-	my @t_msgs = select_msgs($to);
-	
-	$debug and print "LIST TO   : ", scalar(@t_msgs), " messages [@t_msgs]\n";
-
-	my %f_hash = ();
-	my %t_hash = ();
-	
-	print "++++ From [$f_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $f_heads = $from->parse_headers2([@f_msgs],
-					    @useheader)if (@f_msgs) ;
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $f_fir  = $from->fetch_hash2("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@f_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	
-	foreach my $m (@f_msgs) {
-		parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ To   [$t_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $t_heads =   $to->parse_headers2([@t_msgs],
-					    @useheader) if (@t_msgs);
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $t_fir  =   $to->fetch_hash2("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@t_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	foreach my $m (@t_msgs) {
-		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
-	# messages in "from" that are not good in "to"
-	
-	my @f_hash_keys_sorted_by_uid 
-	  = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
-	
-	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
-	
-	my @t_hash_keys_sorted_by_uid 
-	  = sort {$t_hash{$a}{'m'} <=> $t_hash{$b}{'m'}} keys(%t_hash);
-
-	
-	if($delete2) {
-		foreach my $m_id (@t_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($f_hash{$m_id})) {
-				my $t_msg  = $t_hash{$m_id}{'m'};
-				print "deleting message $m_id  $t_msg\n";
-				$to->delete_message($t_msg) unless ($dry);	
-			}
-		}
-	}
-
-	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
-		my $f_size = $f_hash{$m_id}{'s'};
-		my $f_msg = $f_hash{$m_id}{'m'};
-		my $f_idate = $f_hash{$m_id}{'D'};
-		
-		if (defined $maxsize and $f_size > $maxsize) {
-			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-			next MESS;
-		}
-		$debug and print "+ key     $m_id #$f_msg\n";
-		unless (exists($t_hash{$m_id})) {
-			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-			# copy
-			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-			last FOLDER if $from->IsUnconnected();
-			#my $string = $from->message_string($f_msg);			
-			my $message_file = "tmp_imapsync_$$";
-			unlink($message_file);
-			$from->message_to_file($message_file, $f_msg);
-			my $string = file_to_string($message_file);
-			#unlink($message_file);
-			if (@regexmess) {
-				foreach my $regexmess (@regexmess) {
-					$debug and print "eval \$string =~ $regexmess\n";
-					eval("\$string =~ $regexmess");
-				}
-				string_to_file($string, $message_file);
-			}
-			$debug and print "F message content begin next line\n",
-			  $string,
-			    "F message content ended on previous line\n";
-			my $d = "";
-			if ($syncinternaldates) {
-				$d = $f_idate;
-				$debug and print "internal date from 1: [$d]\n";
-				require Date::Manip;
-				Date::Manip->import(qw(ParseDate Date_Cmp UnixDate));
-				$d = UnixDate(ParseDate($d), "%d-%b-%Y %H:%M:%S %z");
-				$d = "\"$d\"";
-				$debug and print "internal date from 1: [$d] (fixed)\n";
-			}
-			
-			my $flags_f = $f_hash{$m_id}{'F'} || "";
-			# RFC 2060 : This flag can not be altered by any client
-			$flags_f =~ s@\\Recent@@gi;
-			$flags_f = flags_regex($flags_f) if @regexflag;
-			
-			my $new_id;
-			print "flags from : [$flags_f][$d]\n";
-			last FOLDER if   $to->IsUnconnected();
-			unless ($dry) {
-				
-				if ($OSNAME eq "MSWin32") {
-					$new_id = $to->append_string($t_fold,$string, $flags_f, $d);
-				}
-				else {
-					$new_id = $to->append_file2($t_fold, $message_file, "", $flags_f, $d);
-				}
-				unless($new_id){
-					warn "Couldn't append msg #$f_msg (Subject:[".
-					  $from->subject($f_msg)."]) to folder $t_fold: ",
-					  $to->LastError, "\n";
-					$error++;
-					$mess_size_total_error += $f_size;
-					next MESS;
-				}
-				else{
-					# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-					$mess_trans += 1;
-					if($delete) {
-						print "Deleting msg #$f_msg in folder $f_fold\n";
-						$from->delete_message($f_msg) unless ($dry);
-						$from->expunge() if ($expunge and not $dry);
-					}
-				}
-			}
-			else{
-				$mess_skipped_dry += 1;
-			}
-			unlink($message_file);
-			next MESS;
-		}
-		else{
-			$debug and print "Message id [$m_id] found in t:$t_fold\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-		}
-		
-		$fast and next MESS;
-		#$debug and print "MESSAGE $m_id\n"; 
-		my $t_size = $t_hash{$m_id}{'s'};
-		my $t_msg  = $t_hash{$m_id}{'m'};
-		
-		
-		$debug and print "Setting flags\n";
-		last FOLDER if $from->IsUnconnected();
-		last FOLDER if   $to->IsUnconnected();
-
-		my (@flags_f,@flags_t);
-		my $flags_f_rv = $from->flags($f_msg);
-		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
-		
-		# No flag \Recent here, no ?
-		my $flags_f = join(" ", @flags_f);
-		
-		$flags_f = flags_regex($flags_f) if @regexflag;
-		
-		# This add or change flags but no flag are removed with this
-		$to->store($t_msg,
-			   "+FLAGS (" . $flags_f . ")"
-			  ) unless ($dry) ;
-		
-		my $flags_t_rv = $to->flags($t_msg);
-		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
-		my $flags_t = join(" ", @flags_t);
-		$debug and print 
-		  "flags from : $flags_f\n",
-		  "flags to   : $flags_t\n";
-		
-
-		$debug and do {
-			print "Looking dates\n"; 
-			#my $d_f = $from->internaldate($f_msg);
-			#my $d_t = $to->internaldate($t_msg);
-			my $d_f = $f_hash{$m_id}{'D'};
-			my $d_t = $t_hash{$m_id}{'D'};
-			print 
-			  "idate from : $d_f\n",
-			    "idate to   : $d_t\n";
-			
-			#unless ($d_f eq $d_t) {
-			#	print "!!! Dates differ !!!\n";
-			#}
-		};
-		unless (($f_size == $t_size) or $skipsize) {
-			# Bad size
-			print 
-			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			# delete in to and recopy ?
-			# NO recopy CODE HERE. to be written if needed.
-			$error++;
-			if ($opt_G){
-				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-				$to->delete_message($t_msg) unless ($dry);
-			}
-		}
-		else {
-	    		# Good 
-			$debug and print
-			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			if($delete) {
-				print "Deleting msg #$f_msg in folder $f_fold\n";
-				$from->delete_message($f_msg) unless ($dry);
-				$from->expunge() if ($expunge and not $dry);
-			}
-		}
-	}
-	if ($expunge1){
-		print "Expunging source folder $f_fold\n";
-		unless($dry) { $from->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging target folder $t_fold\n";
-		unless($dry) { $to->expunge() };
-	}
-
-print "Time : ", timenext(), " s\n";
-}
-$from->logout();
-$to->logout();
-
-$timeend = time();
-
-$timediff = $timeend - $timestart;
-
-stats();
-
-
-
-
-exit(1) if($error);
-
-sub select_msgs {
-	my ($imap) = @_;
-	my (@msgs,@max,@min,@union,@inter);
-	
-	unless (defined($maxage) or defined($minage)) {
-		@msgs = $imap->search("ALL");
-		return(@msgs);
-	}
-	if (defined($maxage)) {
-		@max = $imap->sentsince(time - 86400 * $maxage);
-	}
-	if (defined($minage)) {
-		@min = $imap->sentbefore(time - 86400 * $minage);
-	}
-      SWITCH: {
-		unless(defined($minage)) {@msgs = @max; last SWITCH};
-		unless(defined($maxage)) {@msgs = @min; last SWITCH};
-		my (%union, %inter); 
-		foreach my $m (@min, @max) {$union{$m}++ && $inter{$m}++}
-		@inter = keys(%inter);
-		@union = keys(%union);
-		# normal case
-		if ($minage <= $maxage)  {@msgs = @inter; last SWITCH};
-		# just exclude messages between
-		if ($minage > $maxage)  {@msgs = @union; last SWITCH};
-		
-	}
-	return(@msgs);
-}
-
-sub stats {
-	print "++++ Statistics ++++\n";
-	print "Time                   : $timediff sec\n";
-	print "Messages transferred   : $mess_trans ";
-	print "(could be $mess_skipped_dry without dry mode)" if ($dry);
-	print "\n";
-	print "Messages skipped       : $mess_skipped\n";
-	print "Total bytes transferred: $mess_size_total_trans\n";
-	print "Total bytes skipped    : $mess_size_total_skipped\n";
-	print "Total bytes error      : $mess_size_total_error\n";
-	print "Detected $error errors\n";
-	print "Please, rate imapsync at http://freshmeat.net/projects/imapsync/\n";
-	print "?Happy with this free, open source and gratis GPL software?\n",
-	  "Feel free to thank the author by giving him a book:\n",
-	  "http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/\n",
-	  "(or its paypal account gilles.lamiral\@laposte.net)\n";
-
-
-}
-
-
-sub get_options
-{
-	my $numopt = scalar(@ARGV);
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-				   "buffersize=i" => \$buffersize,
-				   "foldersizes!" => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "skipsize!"   => \$skipsize,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-                                   "tests"       => \$tests,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-		
-	# just the version
-        print "$VERSION\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-	
-	
-}
-
-
-sub parse_header_msg1 {
-	my ($imap, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "Head NUM:", $headnum, "\n";
-	unless($headnum) { print "Warning : no header used or found \n"; }
-	my $headstr;
-	
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			# and uppercase  header keywords 
-			# (dbmail and dovecot)
-			$val =~ s/^\s*(.+)$/$1/;
-			my $H = uc($h);
-			# show stuff in debug mode
-			$debug and print "${s}H $H:", $val, "\n";
-			if ($skipheader and $H =~ m/$skipheader/i) {
-				$debug and print "Skipping header $h\n";
-				next;
-			}
-			$headstr .= "$H:". $val;
-		}
-	}
-	#return unless ($headstr);
-	unless ($headstr){
-		print "no header so taking everything\n";
-		$headstr = $imap->message_string($m_uid);
-	}
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s msg $m_uid:$m_md5:$size\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die("error [$file]: $! ");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line : "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die("error [$file]: $! ");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-
-
-sub usage {
-	my $localhost_info = localhost_info();
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---authuser1   <string> : user to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---authuser2   <string> : user to auth with on host2 (admin user).
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         you can use --prefix1 if your source imap server 
-                         does not have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example : 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example : 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : separator in case namespace is not supported.
---sep2        <string> : idem.
---delete               : delete messages on source imap server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imap, delete tags messages as deleted, they
-			 are not really deleted. See expunge.
---delete2              : delete messages on the destination imap server that
-                         are not on the source server.
---expunge              : expunge messages on source account.
-                         expunge really deletes messages marked deleted.
-                         expunge is made at the beginning on the 
-                         source server only. newly transferred messages
-                         are expunged if option --expunge is given.
-                         no expunge is done on destination account but
-                         it will change in future releases.
---expunge1             : expunge messages on source account.
---expunge2             : expunge messages on target account.
---syncinternaldates    : sets the internal dates on host2 same as host1
---buffersize  <int>    : sets the size of a block of I/O.
---maxsize     <int>    : skip messages larger than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---skipsize             : Don't take message size into account.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         "destination" server that are subscribed
-                         on the "source" server.
---(no)foldersizes      : Calculate the size of each "From" folder in bytes
-                         and message counts. Meant to be used with
-                         --justfoldersizes. Turned on by default.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : Synchronises acls (Access Control Lists).
---nosyncacls           : Does not synchronise acls. This is the default.
---debug                : debug mode.
---debugimap            : imap debug mode.
---version              : print software version.
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster (just does not sync flags).
---split1     <int>     : split the requests in several parts on source server.
-                         <int > is the number of messages handled per request.
-                         default is like --split1 1000
---split2     <int>     : same thing on the "destination" server.
---fastio1              : use fastio with the "from" server.
---fastio2              : use fastio with the "destination" server.
---timeout     <int>    : imap connect timeout.
---help                 : print this.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                     to imap account "bar" on "imap.trac.org"
-
-$0 \\
-   --host1 imap.truc.org --user1 foo --passfile1 /etc/secret1 \\
-   --host2 imap.trac.org --user2 bar --passfile2 /etc/secret2
-
-$localhost_info
- Mail::IMAPClient version is $Mail::IMAPClient::VERSION
-$rcs
-      imapsync copyleft is the GNU General Public License.
-      See http://www.gnu.org/copyleft/gpl.html
-http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
-EOF
-}
-
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-	}
-}
-
-
-package Mail::IMAPClient;
-
-
-sub Authuser {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-}
-
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { $self->{SPLIT} = shift }
-	return $self->{SPLIT};
-}
-
-# From IMAPClient.pm
-sub append_file2 {
-
-        my $self        = shift;
-        my $folder      = $self->Massage(shift);
-        my $file        = shift; 
-        my $control     = shift || undef;
-        my $count       = $self->Count($self->Count+1);
-	my $flags       = shift || undef;
-	my $date        = shift || undef;
-	
-	if (defined($flags)) {
-                $flags =~ s/^\s+//g;
-                $flags =~ s/\s+$//g;
-        }
-	
-        if (defined($date)) {
-                $date =~ s/^\s+//g;
-                $date =~ s/\s+$//g;
-        }
-	
-        $flags = "($flags)"  if $flags and $flags !~ /^\(.*\)$/ ;
-        $date  = qq/"$date"/ if $date  and $date  !~ /^"/       ;
-	
-
-        unless ( -f $file ) {
-                $self->LastError("File $file not found.\n");
-                return undef;
-        }
-
-        my $fh = IO::File->new($file) ;
-
-        unless ($fh) {
-                $self->LastError("Unable to open $file: $!\n");
-                $@ = "Unable to open $file: $!" ;
-                carp "unable to open $file: $!" if $^W;
-                return undef;
-        }
-
-        my $bare_nl_count = scalar grep { /^\x0a$|[^\x0d]\x0a$/} <$fh>;
-
-        seek($fh,0,0);
-
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $length = ( -s $file ) + $bare_nl_count;
-
-	my $string = "$count APPEND $folder " .
-	             ( $flags ? "$flags " : ""       ) .
-	             ( $date ? "$date " : ""         ) .
-	             "{" . $length  . "}\x0d\x0a" ;
-	
-        $self->_record($count,[ $self->_next_index($count), "INPUT", "$string" ] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                $fh->close;
-                return undef;
-        }
-
-        my ($code, $output) = ("","");
-
-        until ( $code ) {
-                $output = $self->_read_line or $fh->close, return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      ($code) = $o->[DATA] =~ /(^\+|^\d+\sNO|^\d+\sBAD)/i; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA] if $^W;
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA] if $^W;
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-
-        {       # Narrow scope
-                # Slurp up headers: later we'll make this more efficient I guess
-                local $/ = "\x0d\x0a\x0d\x0a"; 
-                my $text = <$fh>;
-                $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                $self->_record($count,[ $self->_next_index($count), "INPUT", "{From file $file}" ] ) ;
-                $feedback = $self->_send_line($text);
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-                _debug $self, "control points to $$control\n" if ref($control) and $self->Debug;
-                $/ =    ref($control) ?  "\x0a" : $control ? $control :         "\x0a";
-                while (defined($text = <$fh>)) {
-                        $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                        $self->_record( $count,
-                                        [ $self->_next_index($count), "INPUT", "{from $file}\x0d\x0a" ] 
-                        );
-                        $feedback = $self->_send_line($text,1);
-
-                        unless ($feedback) {
-                                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                $fh->close;
-                                return undef;
-                        }
-                }
-                $feedback = $self->_send_line("\x0d\x0a");
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-        } 
-
-        # Now for the crucial test: Did the append work or not?
-        ($code, $output) = ("","");
-
-        my $uid = undef;
-        until ( $code ) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      $self->_debug("append_file: Deciding if " . $o->[DATA] . " has the code.\n") 
-                                if $self->Debug;
-                      ($code) = $o->[DATA]  =~ /^\d+\s(NO|BAD|OK)/i; 
-                        # try to grab new msg's uid from o/p
-                      $o->[DATA]  =~ m#UID\s+\d+\s+(\d+)\]# and $uid = $1; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA] if $^W;
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA] if $^W;
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-        $fh->close;
-
-        if ($code !~ /^OK/i) {
-                return undef;
-        }
-
-
-        return defined($uid) ? $uid : $self;
-}
-
-# From IMAPClient.pm
-sub fetch_hash2 {
-	# taken from original lib, 
-	# just added split code.
-        my $self = shift;
-        my $hash = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-        my $msgref_all = scalar($self->messages);
-	my $split = $self->Split() || scalar(@$msgref_all);
-	while(my @msgs = splice(@$msgref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgref = \@msgs;
-	my $output = scalar($self->fetch($msgref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( exists $hash->{$uid} ) {
-                                $entry = $hash->{$uid} ;
-                        }
-			else {
-                                $hash->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( exists $hash->{$mid} ) {
-                                $entry = $hash->{$mid} ;
-                        }
-			else {
-                                $hash->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]+)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash : $hash;
-}
-
-
-# From IMAPClient.pm
-
-sub login2 {
-        my $self = shift;
-        return $self->authenticate2($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-	print "Yahoo: $is_yahoo";
-	if ($is_yahoo > 0)
-           {
-   		print "Yahoo found, sending magic Yahoo command\n";
-  		$self->_imap_command("ID (\"GUID\" \"1\")");
-	   }
-        my $string =    "LOGIN " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        };
-        return $self;
-}
-
-# From IMAPClient.pm
-
-sub parse_headers2 {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers2 want an ARRAY ref\n";
-		exit 1;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        }else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                local($^W) = undef;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } 
-				else {
-                                        $h = {};
-                                }
-                        } 
-			else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;   
-                        if ($hdr =~ s/^(\S+):\s*//) { 
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-        my $candump = 0;
-        if ($self->Debug) {
-                eval {
-                        require Data::Dumper;
-                        Data::Dumper->import;
-                };
-                $candump++ unless $@;
-        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-}
-
-
-# From IMAPClient.pm
-
-sub authenticate2 {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                }
-        }
-
-        return undef if $code =~ /^BAD|^NO/ ;
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR if $^W;
-          } 
-	  else {
-            $response = \&_cram_md5_2;
-          }
-        }
-
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        $code =~ /^OK/ and $self->State(Authenticated) ;
-        return $code =~ /^OK/ ? $self : undef ;
-
-}
-
-sub _cram_md5_2 {
-  my ($code, $client) = @_;
-  my $hmac = Digest::HMAC_MD5::hmac_md5_hex(MIME::Base64::decode($code),
-                                            $client->Password());
-  return MIME::Base64::encode($client->User() . " $hmac", "");
-}
-
-
-sub connect2 {
-	my $self = shift;
-	
-	$self->Port(143) 
-		if 	defined ($IO::Socket::INET::VERSION) 
-		and 	$IO::Socket::INET::VERSION eq '1.25' 
-		and 	!$self->Port;
-	%$self = (%$self, @_);
-	my $sock = IO::Socket::INET->new;
-	my $dp = 'imap(143)';
-	#print "i01\n";
-	my $ret = $sock->configure({
-		PeerAddr => $self->Server		,
-                PeerPort => $self->Port||$dp	       	,
-                Proto    => 'tcp' 			,
-                Timeout  => $self->Timeout||0		,
-		Debug	=> $self->Debug 		,
-	});
-	#print "i02\n";
-	unless ( defined($ret) ) {
-		$self->LastError( "$@\n");	  
-		$@ 		= "$@";   
-		carp 		  "$@" 
-				unless defined wantarray;	
-		return undef;
-	}
-	#print "i03\n";
-	$self->Socket($sock);
-	$self->State(Connected);
-
-	$sock->autoflush(1)				;
-	
-	my ($code, $output);
-        $output = "";
-
-        until ( $code ) {
-
-                $output = $self->_read_line or return undef;
-                for my $o (@$output) {
-			$self->_debug("Connect: Received this from readline: " . 
-					join("/",@$o) . "\n");
-                        $self->_record($self->Count,$o);	# $o is a ref
-                      next unless $o->[TYPE] eq "OUTPUT";
-                      ($code) = $o->[DATA] =~ /^\*\s+(OK|BAD|NO)/i  ;
-                }
-
-        }
-
-	if ($code =~ /BYE|NO /) {
-		$self->State(Unconnected);
-		return undef ;
-	}
-
-	if ($self->User and $self->Password) {
-		return $self->login ;
-	} 
-	else {
-		return $self;	
-	}
-}
-	
diff --git a/W/patches/imapsync.1.282.patch b/W/patches/imapsync.1.282.patch
deleted file mode 100644
index 95087d1..0000000
--- a/W/patches/imapsync.1.282.patch
+++ /dev/null
@@ -1,462 +0,0 @@
---- imapsync.ORIG	2009-05-21 02:30:56.828125000 -0400
-+++ imapsync	2009-05-21 02:35:55.984375000 -0400
-@@ -72,13 +72,14 @@
-            [--useheader <string>] [--useheader <string>]
-            [--skipsize] [--allowsizemismatch]
-            [--delete] [--delete2]
--           [--expunge] [--expunge1] [--expunge2]
-+           [--expunge] [--expunge1] [--expunge2] [--uidexpunge2]
-            [--subscribed] [--subscribe]
-            [--nofoldersizes]
-            [--dry]
-            [--debug] [--debugimap]
-            [--timeout <int>] [--fast]
-            [--split1] [--split2] 
-+           [--reconnectretry1 <int>] [--reconnectretry2 <int>]
-            [--version] [--help]
-   
- =cut
-@@ -358,6 +359,7 @@
- --expunge
- --expunge1
- --expunge2
-+--uidexpunge2
- --maxage
- --minage
- --maxsize
-@@ -456,7 +458,7 @@
-         $skipheader, @useheader,
-         $skipsize, $allowsizemismatch, $foldersizes, $buffersize,
- 	$delete, $delete2,
--        $expunge, $expunge1, $expunge2, $dry,
-+        $expunge, $expunge1, $expunge2, $uidexpunge2, $dry,
-         $justfoldersizes,
-         $authmd5,
-         $subscribed, $subscribe,
-@@ -474,6 +476,7 @@
-         $authuser1, $authuser2,
-         $authmech1, $authmech2,
-         $split1, $split2,
-+        $reconnectretry1, $reconnectretry2,
- 	$tests, $test_builder,
- 	$allow3xx, $justlogin,
- );
-@@ -735,12 +738,12 @@
- $debugimap and print "From connection\n";
- $from = login_imap($host1, $port1, $user1, $password1, 
- 		   $debugimap, $timeout, $fastio1, $ssl1, 
--		   $authmech1, $authuser1);
-+		   $authmech1, $authuser1, $reconnectretry1);
- 
- $debugimap and print "To  connection\n";
- $to = login_imap($host2, $port2, $user2, $password2, 
- 		 $debugimap, $timeout, $fastio2, $ssl2, 
--		 $authmech2, $authuser2);
-+		 $authmech2, $authuser2, $reconnectretry2);
- 
- #  history
- 
-@@ -751,13 +754,13 @@
- sub login_imap {
- 	my($host, $port, $user, $password, 
- 	   $debugimap, $timeout, $fastio, 
--	   $ssl, $authmech, $authuser) = @_;
-+	   $ssl, $authmech, $authuser, $reconnectretry) = @_;
- 	my ($imap);
- 	
- 	$imap = Mail::IMAPClient->new();
- 	
- 	$imap->Ssl($ssl) if ($ssl);
--	$imap->Clear(20);
-+	$imap->Clear(5);
- 	$imap->Server($host);
- 	$imap->Port($port);
- 	$imap->Fast_io($fastio);
-@@ -766,7 +769,12 @@
- 	$imap->Peek(1);
- 	$imap->Debug($debugimap);
- 	$timeout and $imap->Timeout($timeout);
--	
-+
-+	( Mail::IMAPClient->VERSION =~ /^2/ or !$imap->can("Reconnectretry"))
-+	  ? warn("--reconnectretry* requires IMAPClient >= 3.17\n")
-+	  : $imap->Reconnectretry($reconnectretry)
-+	  if ($reconnectretry);
-+
- 	#$imap->connect()
- 	myconnect($imap)
- 	  or die "Can not open imap connection on [$host] with user [$user]: $@\n";
-@@ -831,13 +839,13 @@
- 
- 
- 
--#print "From capability: ", join(" ", $from->capability()), "\n";
--#print "To   capability: ", join(" ", $to->capability()), "\n";
-+$debug and print "From capability: ", join(" ", $from->capability()), "\n";
-+$debug and print "To   capability: ", join(" ", $to->capability()), "\n";
- 
- die unless $from->IsAuthenticated();
--print "host1 :state Authenticated\n";
-+print "host1: state Authenticated\n";
- die unless   $to->IsAuthenticated();
--print "host2 :state Authenticated\n";
-+print "host2: state Authenticated\n";
- 
- exit(0) if ($justlogin);
- 
-@@ -1100,13 +1108,17 @@
- 	$debug and print "Calling namespace capability\n";
- 	if ($imap->has_capability("namespace")) {
- 		$sep_out = $imap->separator();
--		return($sep_out);
-+		return($sep_out) if defined $sep_out;
-+		warn 
-+		  "NAMESPACE request failed for ", 
-+		  $imap->Server(), ": ", $imap->LastError, "\n";
-+		exit(1);
- 	}
- 	else{
--		print 
-+		warn
- 		  "No NAMESPACE capability in imap server ", 
- 		    $imap->Server(),"\n",
--		      "Give the separator caracter with the $sep_opt option\n";
-+		      "Give the separator character with the $sep_opt option\n";
- 		exit(1);
- 	}
- }
-@@ -1133,9 +1145,9 @@
- 		}
- 		unless ($imap->select($folder)) {
- 			warn 
--			  "$side Folder $folder: Could not select ",
-+			  "$side Folder $folder: Could not select: ",
- 			    $imap->LastError,  "\n";
--			#$error++;
-+			$error++;
- 			next;
- 		}
- 		if (defined($maxage) or defined($minage)) {
-@@ -1319,9 +1331,9 @@
- 
- 	unless ($from->select($f_fold)) {
- 		warn 
--		"From Folder $f_fold: Could not select ",
-+		"From Folder $f_fold: Could not select: ",
- 		$from->LastError,  "\n";
--		#$error++;
-+		$error++;
- 		next FOLDER;
- 	}
- 	if ( ! exists($t_folders_list{$t_fold})) {
-@@ -1329,7 +1341,7 @@
- 		print "Creating folder [$t_fold]\n";
- 		unless ($dry){
- 			unless ($to->create($t_fold)){
--				warn "Couldn't create [$t_fold]",
-+				warn "Couldn't create [$t_fold]: ",
- 				$to->LastError,"\n";
- 				$error++;
- 				next FOLDER;
-@@ -1344,9 +1356,9 @@
- 
- 	unless ($to->select($t_fold)) { 
- 		warn 
--		"To   Folder $t_fold: Could not select ",
-+		"To   Folder $t_fold: Could not select: ",
- 		$to->LastError, "\n";
--		#$error++;
-+		$error++;
- 		next FOLDER;
- 	}
- 	
-@@ -1384,17 +1396,22 @@
- 	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
- 
--	my $f_heads = $from->parse_headers([@f_msgs],
--					    @useheader)if (@f_msgs) ;
-+	my ($f_heads, $f_fir) = ({}, {});
-+	$f_heads = $from->parse_headers([@f_msgs], @useheader) if (@f_msgs);
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	last FOLDER if $from->IsUnconnected();
--	last FOLDER if   $to->IsUnconnected();
--	my $f_fir  = $from->fetch_hash("FLAGS",
--				       "INTERNALDATE",
--				       "RFC822.SIZE") if (@f_msgs);
-+
-+	$f_fir   = $from->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE")
-+	  if (@f_msgs);
- 	$debug and print "Time fir: ", timenext(), " s\n";
-+	unless ($f_fir) {
-+		warn
-+		"From Folder $f_fold: Could not fetch_hash ",
-+		scalar(@f_msgs), " msgs: ", $from->LastError, "\n";
-+		$error++;
-+		next FOLDER;
-+	}
- 	last FOLDER if $from->IsUnconnected();
--	last FOLDER if   $to->IsUnconnected();
- 
- 	foreach my $m (@f_msgs) {
- 		unless (parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash)) {
-@@ -1407,25 +1424,21 @@
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	
- 	print "++++ To   [$t_fold] Parse 1 ++++\n";
--	last FOLDER if $from->IsUnconnected();
--	last FOLDER if   $to->IsUnconnected();
- 
--	my $t_heads =   $to->parse_headers([@t_msgs],
--					    @useheader) if (@t_msgs);
-+	my ($t_heads, $t_fir) = ({}, {});
-+	$t_heads =   $to->parse_headers([@t_msgs], @useheader) if (@t_msgs);
- 	$debug and print "Time headers: ", timenext(), " s\n";
--	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
--	my $t_fir  =   $to->fetch_hash("FLAGS",
--				       "INTERNALDATE",
--				       "RFC822.SIZE") if (@t_msgs);
-+
-+	$t_fir   =   $to->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE")
-+	  if (@t_msgs);
- 	$debug and print "Time fir: ", timenext(), " s\n";
--	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
- 	foreach my $m (@t_msgs) {
- 		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
--	
-+
- 	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
- 	# messages in "from" that are not good in "to"
- 	
-@@ -1439,18 +1452,31 @@
- 
- 	
- 	if($delete2) {
-+		my @expunge;
- 		foreach my $m_id (@t_hash_keys_sorted_by_uid) {
- 			#print "$m_id ";
- 			unless (exists($f_hash{$m_id})) {
- 				my $t_msg  = $t_hash{$m_id}{'m'};
--				print "deleting message $m_id  $t_msg\n";
--				unless ($dry) {
--					last FOLDER if $from->IsUnconnected();
--                                        last FOLDER if   $to->IsUnconnected();
-+				my $flags  = $t_hash{$m_id}{'F'} || "";
-+				my $isdel  = $flags =~ /\B\\Deleted\b/ ? 1 : 0;
-+				print "deleting message $m_id  $t_msg\n"
-+				  if ! $isdel;
-+				push(@expunge,$t_msg) if $uidexpunge2;
-+				unless ($dry or $isdel) {
- 					$to->delete_message($t_msg);
-+					last FOLDER if $to->IsUnconnected();
- 				}
- 			}
- 		}
-+
-+		my $cnt = scalar @expunge;
-+		if(@expunge and !$to->can("uidexpunge")) {
-+			warn "uidexpunge not supported (< IMAPClient 3.17)\n";
-+		}
-+		elsif(@expunge) {
-+			print "uidexpunge $cnt message(s)\n";
-+			$to->uidexpunge(\@expunge) if !$dry;
-+		}
- 	}
- 
- 	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
-@@ -1475,7 +1501,7 @@
- 			$string = $from->message_string($f_msg);
- 			unless (defined($string)) {
- 				warn
--				"Could not fetch message #$f_msg from $f_fold ",
-+				"Could not fetch message #$f_msg from $f_fold: ",
- 				$from->LastError, "\n";
- 				$error++;
- 				$mess_size_total_error += $f_size;
-@@ -1591,10 +1617,10 @@
- 					if($delete) {
- 						print "Deleting msg #$f_msg in folder $f_fold\n";
- 						unless($dry) {
--			                                last FOLDER if $from->IsUnconnected();
--			                                last FOLDER if   $to->IsUnconnected();
- 							$from->delete_message($f_msg);
-+							last FOLDER if $from->IsUnconnected();
- 							$from->expunge() if ($expunge);
-+							last FOLDER if $from->IsUnconnected();
- 						}
- 					}
- 				}
-@@ -1612,44 +1638,31 @@
- 		}
- 		
- 		$fast and next MESS;
--		#$debug and print "MESSAGE $m_id\n"; 
-+		#$debug and print "MESSAGE $m_id\n";
- 		my $t_size = $t_hash{$m_id}{'s'};
- 		my $t_msg  = $t_hash{$m_id}{'m'};
--		
--		
--		$debug and print "Setting flags\n";
--		last FOLDER if $from->IsUnconnected();
--		last FOLDER if   $to->IsUnconnected();
- 
-+		# used cached flag values for efficiency
-+		my $flags_f = $f_hash{$m_id}{'F'} || "";
-+		my $flags_t = $t_hash{$m_id}{'F'} || "";
- 
--		my (@flags_f,@flags_t);
--		my $flags_f_rv = $from->flags($f_msg);
--		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
--		
- 		# No flag \Recent here, no ?
--		my $flags_f = join(" ", @flags_f);
--		
- 		$flags_f = flags_regex($flags_f) if @regexflag;
--		
--		# This add or change flags but no flag are removed with this
--		$to->store($t_msg,
--			   "+FLAGS.SILENT (" . $flags_f . ")"
--			  ) unless ($dry);
--	        
--		# I think one IsUnconnected() is enough before all flags operations.
--		#last FOLDER if   $to->IsUnconnected();
--		
--		my $flags_t_rv = $to->flags($t_msg);
--		#last FOLDER if   $to->IsUnconnected();
- 
--		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
--		my $flags_t = join(" ", @flags_t);
--		$debug and print 
--		  "flags from: $flags_f\n",
--		  "flags to  : $flags_t\n";
--		
-+		$debug and print "Setting flags from($flags_f) to($flags_t)\n";
-+
-+		# This add or change flags but no flag are removed with this
-+		$to->store($t_msg, "+FLAGS.SILENT ($flags_f)" )
-+		  if (!$dry and $flags_f ne $flags_t);
-+		last FOLDER if   $to->IsUnconnected();
- 
- 		$debug and do {
-+			my @flags_t = @{ $to->flags($t_msg) || [] };
-+			last FOLDER if   $to->IsUnconnected();
-+
-+			print "flags from: $flags_f\n",
-+			      "flags to  : @flags_t\n";
-+
- 			print "Looking dates\n"; 
- 			#my $d_f = $from->internaldate($f_msg);
- 			#my $d_t = $to->internaldate($t_msg);
-@@ -1657,7 +1670,7 @@
- 			my $d_t = $t_hash{$m_id}{'D'};
- 			print 
- 			  "idate from: $d_f\n",
--			  "idate to  : $d_t\n";
-+			    "idate to  : $d_t\n";
- 			
- 			#unless ($d_f eq $d_t) {
- 			#	print "!!! Dates differ !!!\n";
-@@ -1673,8 +1686,7 @@
- 			if ($opt_G){
- 				print "Deleting msg f:#$t_msg in folder $t_fold\n";
- 				$to->delete_message($t_msg) unless ($dry);
--				# $opt_G is fake
--				#last FOLDER if   $to->IsUnconnected();
-+				last FOLDER if   $to->IsUnconnected();
- 			}
- 		}
- 		else {
-@@ -1684,10 +1696,10 @@
- 			if($delete) {
- 				print "Deleting msg #$f_msg in folder $f_fold\n";
- 				unless($dry) {
--				        last FOLDER if $from->IsUnconnected();
--					last FOLDER if   $to->IsUnconnected();
- 					$from->delete_message($f_msg);
-+					last FOLDER if $from->IsUnconnected();
- 					$from->expunge() if ($expunge);
-+					last FOLDER if $from->IsUnconnected();
- 				}
- 			}
- 		}
-@@ -1713,21 +1725,31 @@
- # 
- # can be tested with a "killall /usr/bin/imapd" (or equivalent) in command line.
- #
-+sub _filter {
-+	my $str = shift or return "";
-+	my $sz  = 64;
-+        my $len = length($str);
-+	if ( ! $debug and $len > $sz*2 ) {
-+		my $beg = substr($str, 0, $sz);
-+		my $end = substr($str, -$sz, $sz);
-+		$str = $beg . "..." . $end;
-+	}
-+	$str =~ s/\012?\015$//;
-+	return "(len=$len) " . $str;
-+}
-+
- sub lost_connection {
- 	my($imap, $error_message) = @_;
- 	if ( $imap->IsUnconnected() ) {
- 		$error++;
-+		my $lcomm = $imap->LastIMAPCommand || "";
- 		my $einfo = $imap->LastError || @{$imap->History}[-1] || "";
--		my $sz = 64;
--		# if einfo is long try reduce to a more reasonable size
--		if ( ! $debug and length($einfo) > $sz*2 ) {
--			my $beg = substr($einfo, 0, $sz);
--			my $end = substr($einfo, -$sz, $sz);
--			$einfo = $beg . "..." . $end;
--		}
--		chomp($einfo);
--		$einfo = ": $einfo" if $einfo;
--		warn("error: lost connection $error_message $einfo\n");
-+
-+		# if string is long try reduce to a more reasonable size
-+		$lcomm = _filter($lcomm);
-+		$einfo = _filter($einfo);
-+		warn("error: last command: $lcomm\n") if ($debug && $lcomm);
-+		warn("error: lost connection $error_message", $einfo, "\n");
- 		return(1);
- 	}else{
- 		return(0);
-@@ -1847,6 +1869,7 @@
-                                    "expunge!"    => \$expunge,
-                                    "expunge1!"    => \$expunge1,
-                                    "expunge2!"    => \$expunge2,
-+                                   "uidexpunge2!" => \$uidexpunge2,
-                                    "subscribed!" => \$subscribed,
-                                    "subscribe!"  => \$subscribe,
- 				   "justbanner!" => \$justbanner,
-@@ -1871,6 +1894,8 @@
- 				   "authuser2=s" => \$authuser2,
- 				   "split1=i"    => \$split1,
- 				   "split2=i"    => \$split2,
-+				   "reconnectretry1=i" => \$reconnectretry1,
-+				   "reconnectretry2=i" => \$reconnectretry2,
-                                    "tests"       => \$tests,
-                                    "allow3xx!"   => \$allow3xx,
-                                    "justlogin!"   => \$justlogin,
-@@ -2088,6 +2113,8 @@
-                          it will change in future releases.
- --expunge1             : expunge messages on source account.
- --expunge2             : expunge messages on target account.
-+--uidexpunge2          : uidexpunge messages on the destination imap server
-+                         that are not on the source server, requires --delete2
- --syncinternaldates    : sets the internal dates on host2 same as host1.
-                          Turned on by default.
- --idatefromheader      : sets the internal dates on host2 same as the 
-@@ -2132,6 +2159,8 @@
-                          and exit.
- --justfolders          : just do things about folders (ignore messages).
- --fast                 : be faster (just does not sync flags).
-+--reconnectretry1 <int>: reconnect if connection is lost up to <int> times
-+--reconnectretry2 <int>: reconnect if connection is lost up to <int> times
- --split1     <int>     : split the requests in several parts on source server.
-                          <int> is the number of messages handled per request.
-                          default is like --split1 1000
diff --git a/W/patches/imapsync.1.282.patch2 b/W/patches/imapsync.1.282.patch2
deleted file mode 100644
index 8f4af2a..0000000
--- a/W/patches/imapsync.1.282.patch2
+++ /dev/null
@@ -1,108 +0,0 @@
---- imapsync.1.282+patch1	2009-06-19 15:44:09.140625000 -0400
-+++ imapsync	2009-06-19 15:50:31.437500000 -0400
-@@ -515,7 +515,7 @@
- 	
- 	if (@_) { $self->{SSL} = shift }
- 	return $self->{SSL};
--};
-+} unless Mail::IMAPClient->can("Ssl");
- 			return(1);
- 
- 		}else{
-@@ -1245,7 +1245,7 @@
- 	my ($t_fold);
- 	my ($x_fold) = @_;
- 	# first we remove the prefix
--	$x_fold =~ s/^$f_prefix//;
-+	$x_fold =~ s/^\Q$f_prefix\E//;
- 	$debug and print "removed source prefix: [$x_fold]\n";
- 	$t_fold = separator_invert($x_fold,$f_sep, $t_sep);
- 	$debug and print "inverted   separators: [$t_fold]\n";
-@@ -1414,9 +1414,11 @@
- 	last FOLDER if $from->IsUnconnected();
- 
- 	foreach my $m (@f_msgs) {
--		unless (parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash)) {
-+		my $rc = parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash);
-+		if (!$rc) {
-+			my $reason = !defined($rc) ? "no header" : "duplicate";
- 			my $f_size = $f_fir->{$m}->{"RFC822.SIZE"} || 0;
--			print "+ Skipping msg #$m:$f_size in folder $f_fold (no header so we ignore this message)\n";
-+			print "+ Skipping msg #$m:$f_size in folder $f_fold ($reason so we ignore this message)\n";
- 			$mess_size_total_skipped += $f_size;
- 			$mess_skipped += 1;
- 		}
-@@ -1435,7 +1437,14 @@
- 	$debug and print "Time fir: ", timenext(), " s\n";
- 	last FOLDER if   $to->IsUnconnected();
- 	foreach my $m (@t_msgs) {
--		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-+		my $rc = parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-+		if (!$rc) {
-+			my $reason = !defined($rc) ? "no header" : "duplicate";
-+			my $t_size = $t_fir->{$m}->{"RFC822.SIZE"} || 0;
-+			print "+ Skipping msg #$m:$t_size in 'to' folder $t_fold ($reason so we ignore this message)\n";
-+			#$mess_size_total_skipped += $msize;
-+			#$mess_skipped += 1;
-+		}
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 
-@@ -1580,7 +1589,7 @@
- 
- 			my $flags_f = $f_hash{$m_id}{'F'} || "";
- 			# RFC 2060: This flag can not be altered by any client
--			$flags_f =~ s@\\Recent@@gi;
-+			$flags_f =~ s@\\Recent\s?@@gi;
- 			$flags_f = flags_regex($flags_f) if @regexflag;
- 			
- 			my $new_id;
-@@ -1646,14 +1655,24 @@
- 		my $flags_f = $f_hash{$m_id}{'F'} || "";
- 		my $flags_t = $t_hash{$m_id}{'F'} || "";
- 
--		# No flag \Recent here, no ?
-+		# RFC 2060: This flag can not be altered by any client
-+		$flags_f =~ s@\\Recent\s?@@gi;
- 		$flags_f = flags_regex($flags_f) if @regexflag;
- 
--		$debug and print "Setting flags from($flags_f) to($flags_t)\n";
--
--		# This add or change flags but no flag are removed with this
--		$to->store($t_msg, "+FLAGS.SILENT ($flags_f)" )
--		  if (!$dry and $flags_f ne $flags_t);
-+		# compare flags - add missing flags
-+		my @ff = split(' ', $flags_f );
-+		my %ft = map { $_ => 1 } split(' ', $flags_t );
-+		my @flags_a = map { exists $ft{$_} ? () : $_ } @ff;
-+
-+		$debug and print "Setting flags(@flags_a) ffrom($flags_f) fto($flags_t) on msg #$t_msg in $t_fold\n";
-+
-+		# This adds or changes flags but no flag are removed with this
-+		if (!$dry and @flags_a and !$to->store($t_msg, "+FLAGS.SILENT (@flags_a)") ) {
-+			warn "Could not add flags '@flags_a' flagf '$flags_f'",
-+			  " flagt '$flags_t' on msg #$t_msg in $t_fold: ",
-+			  $to->LastError, "\n";
-+			#$error++;
-+		}
- 		last FOLDER if   $to->IsUnconnected();
- 
- 		$debug and do {
-@@ -1979,7 +1998,7 @@
- 		#$headstr = $imap->message_string($m_uid);
- 		
- 		print "no header so we ignore this message\n";
--		return;
-+		return undef;
- 	}
- 	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
- 	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-@@ -1994,6 +2013,8 @@
- 	else {
-                 $key = "$m_md5:$size";
-         }
-+	# 0 return code is used to identify duplicate message hash
-+	return 0 if exists $s_hash->{"$key"};
- 	$s_hash->{"$key"}{'5'} = $m_md5;
- 	$s_hash->{"$key"}{'s'} = $size;
- 	$s_hash->{"$key"}{'D'} = $idate;
diff --git a/W/patches/imapsync.1.284.patch b/W/patches/imapsync.1.284.patch
deleted file mode 100644
index 6389698..0000000
--- a/W/patches/imapsync.1.284.patch
+++ /dev/null
@@ -1,98 +0,0 @@
---- imapsync.ORIG	2009-06-30 15:39:54.156250000 -0400
-+++ imapsync	2009-06-30 15:55:06.703125000 -0400
-@@ -1237,7 +1237,7 @@
- 	my ($t_fold);
- 	my ($x_fold) = @_;
- 	# first we remove the prefix
--	$x_fold =~ s/^$f_prefix//;
-+	$x_fold =~ s/^\Q$f_prefix\E//;
- 	$debug and print "removed source prefix: [$x_fold]\n";
- 	$t_fold = separator_invert($x_fold,$f_sep, $t_sep);
- 	$debug and print "inverted   separators: [$t_fold]\n";
-@@ -1406,9 +1406,11 @@
- 	last FOLDER if $from->IsUnconnected();
- 
- 	foreach my $m (@f_msgs) {
--		unless (parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash)) {
-+		my $rc = parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash);
-+		if (!$rc) {
-+			my $reason = !defined($rc) ? "no header" : "duplicate";
- 			my $f_size = $f_fir->{$m}->{"RFC822.SIZE"} || 0;
--			print "+ Skipping msg #$m:$f_size in folder $f_fold (no header so we ignore this message)\n";
-+			print "+ Skipping msg #$m:$f_size in folder $f_fold ($reason so we ignore this message)\n";
- 			$mess_size_total_skipped += $f_size;
- 			$mess_skipped += 1;
- 		}
-@@ -1427,7 +1429,14 @@
- 	$debug and print "Time fir: ", timenext(), " s\n";
- 	last FOLDER if   $to->IsUnconnected();
- 	foreach my $m (@t_msgs) {
--		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-+		my $rc = parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-+		if (!$rc) {
-+			my $reason = !defined($rc) ? "no header" : "duplicate";
-+			my $t_size = $t_fir->{$m}->{"RFC822.SIZE"} || 0;
-+			print "+ Skipping msg #$m:$t_size in 'to' folder $t_fold ($reason so we ignore this message)\n";
-+			#$mess_size_total_skipped += $msize;
-+			#$mess_skipped += 1;
-+		}
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 
-@@ -1572,7 +1581,7 @@
- 
- 			my $flags_f = $f_hash{$m_id}{'F'} || "";
- 			# RFC 2060: This flag can not be altered by any client
--			$flags_f =~ s@\\Recent@@gi;
-+			$flags_f =~ s@\\Recent\s?@@gi;
- 			$flags_f = flags_regex($flags_f) if @regexflag;
- 			
- 			my $new_id;
-@@ -1638,14 +1647,24 @@
- 		my $flags_f = $f_hash{$m_id}{'F'} || "";
- 		my $flags_t = $t_hash{$m_id}{'F'} || "";
- 
--		# No flag \Recent here, no ?
-+		# RFC 2060: This flag can not be altered by any client
-+		$flags_f =~ s@\\Recent\s?@@gi;
- 		$flags_f = flags_regex($flags_f) if @regexflag;
- 
--		$debug and print "Setting flags from($flags_f) to($flags_t)\n";
-+		# compare flags - add missing flags
-+		my @ff = split(' ', $flags_f );
-+		my %ft = map { $_ => 1 } split(' ', $flags_t );
-+		my @flags_a = map { exists $ft{$_} ? () : $_ } @ff;
- 
--		# This add or change flags but no flag are removed with this
--		$to->store($t_msg, "+FLAGS.SILENT ($flags_f)" )
--		  if (!$dry and $flags_f ne $flags_t);
-+		$debug and print "Setting flags(@flags_a) ffrom($flags_f) fto($flags_t) on msg #$t_msg in $t_fold\n";
-+
-+		# This adds or changes flags but no flag are removed with this
-+		if (!$dry and @flags_a and !$to->store($t_msg, "+FLAGS.SILENT (@flags_a)") ) {
-+			warn "Could not add flags '@flags_a' flagf '$flags_f'",
-+			  " flagt '$flags_t' on msg #$t_msg in $t_fold: ",
-+			  $to->LastError, "\n";
-+			#$error++;
-+		}
- 		last FOLDER if   $to->IsUnconnected();
- 
- 		$debug and do {
-@@ -1971,7 +1990,7 @@
- 		#$headstr = $imap->message_string($m_uid);
- 		
- 		print "no header so we ignore this message\n";
--		return;
-+		return undef;
- 	}
- 	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
- 	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-@@ -1986,6 +2005,8 @@
- 	else {
-                 $key = "$m_md5:$size";
-         }
-+	# 0 return code is used to identify duplicate message hash
-+	return 0 if exists $s_hash->{"$key"};
- 	$s_hash->{"$key"}{'5'} = $m_md5;
- 	$s_hash->{"$key"}{'s'} = $size;
- 	$s_hash->{"$key"}{'D'} = $idate;
diff --git a/W/patches/imapsync.WilliamHernandez.INBOX.INBOX b/W/patches/imapsync.WilliamHernandez.INBOX.INBOX
deleted file mode 100644
index 60e53f3..0000000
--- a/W/patches/imapsync.WilliamHernandez.INBOX.INBOX
+++ /dev/null
@@ -1,882 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 NAME 
-
-imapsync - IMAP sync or copy tool. Synchronize mailboxes between two imap servers.
-
-$Revision: 1.77 $
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS.
- imapsync works fine under Windows 2000 (at least) and ActiveState's 5.8 Perl
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/dist/ 
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want :
-
- tar xzvf  imapsync-x.xx.tgz  
-
- Go into the directory imapsync-x.xx and read the INSTALL
- file.
-
- The freshmeat record is http://freshmeat.net/projects/imapsync/
-
-=head1 SYNOPSIS
-
-  imapsync [options]
-
-  imapsync --help
-  imapsync
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>] 
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>] 
-           [--folder <string> --folder <string> ...]
-	   [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--syncinternaldates]
-	   [--maxsize <int>]
-	   [--maxage <int>]
-           [--delete] [--expunge]
-           [--subscribed] [--subscribe]
-           [--dry]
-           [--debug] [--debugimap]
-           [--timeout <int>]
-           [--version] [--help]
-  
-=cut
-# comment
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and recursive 
-imap transfer from one mailbox to another.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is the adequate tool because it reduces the amount of data
-transfered by not transfering a given message if it is already on
-both sides. All flags are preserved, unread will stay unread, read
-will stay read, deleted will stay deleted. You can stop the
-transfert at any time and restart it later, imapsync is adapted
-to a bad connection.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfert (it is a good feature when migrating).
-In that case, use the --delete option, and run imapsync again
-with the --expunge option.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A.
-
-=head1 OPTIONS
-
-Invoke: imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without loosing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwith link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transfered and delete it after a good
-transfert. imapsync started its life being a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLES
-
-While working on imapsync parameters please run imapsync in dry mode (no
-modification induced) with the --dry option. Nothing bad can be done
-this way.
-
-To synchronize the imap account "buddy" on host "imap.src.fr" to the
-imap account "max" on host "imap.dest.fr" (the passwords are located
-in too files "/etc/secret1" for "buddy", "/etc/secret2" for "max") :
-
- imapsync --host1 imap.src.fr  --user1 buddy --passfile1 /etc/secret1 \
-          --host2 imap.dest.fr --user2 max   --passfile2 /etc/secret2
-
-Then, you will have buddy's mailbox updated from max's mailbox.
-
-=head1 SECURITY
-
-You can use --password1 instead of --passfile1 to give the
-password but it is dangerous because any user on your host
-can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not protected against sniffers on the network so
-the passwords are in plain text.
-
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have a buggy internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 AUTHOR
-
-Gilles LAMIRAL lamiral@linux-france.org
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by the GNU General 
-Public License. See the GPL file included in the distribution or the web site
-http://www.gnu.org/licenses/licenses.html
-
-=head1 BUGS
-
-No known serious bug.
-
-Flags : with some IMAP servers the flags are not very well copied the
-first time.  Run imapsync twice if you want the flags set correctly.
-(fixed since 1.28 release but wait for a time before removing those
-lines)
-
-Report any bugs to the author: lamiral@linux-france.org
-
-=head1 IMAP SERVERS
-
-Success stories reported (softwares in alphabetic order) : 
-
- - BincImap 1.2.3
- - CommunicatePro server (Redhat 8.0)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.2.1, Cyrus 2.2.2-BETA
- - DBMail 1.2.1
- - Dovecot 0.99.10.4
- - iPlanet Messaging server 4.15
- - Netscape Mail Server 3.6 (Wintel !)
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
- - UW - QMail v2.1
-
-Please report to the author any success or bad story with
-imapsync and don't forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- From software :* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- To   software :* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-
-And please rate imapsync at http://freshmeat.net/projects/imapsync/
-
-=head1 HUGE MIGRATION
-
-
-Have a special attention on options 
---subscribed
---subscribe
---delete
---expunge
---maxage
---maxsize
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file content is :
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just :
-
-{ while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 $u1 --password1 $p1 --user2 $u2 --password2 $p2 ...
-done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the GPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  offlineimap : http://gopher.quux.org:70/devel/offlineimap/
-  mailsync    : http://mailsync.sourceforge.net/
-  imapxfer    : http://www.washington.edu/imap/
-                part of the imap-utils from UW.
-  mailutil    : replace imapxfer in 
-                part of the imap-utils from UW.
-		http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl    : http://www.bl0rg.net/software/
-                http://freshmeat.net/projects/imap-repl/
-  imap_migrate: http://freshmeat.net/projects/imapmigration/
-  pop2imap    : http://www.linux-france.org/prj/pop2imap/
-
-Feedback (good or bad) will be always welcome.
-
-$Id: imapsync,v 1.77 2004/03/11 05:33:22 gilles Exp $
-
-=cut
-
-
-++$|;
-use strict;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Digest::HMAC_MD5;
-
-eval { require 'usr/include/sysexits.ph' };
-
-
-my(
-        $rcs, $debug, $debugimap, $error,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, $include, $exclude, $prefix2,
-        $sep1, $sep2,
-	$syncinternaldates,
-	$maxsize, $maxage,
-	$delete, $expunge, $dry, 
-        $authmd5,
-        $subscribed, $subscribe,
-	$version, $VERSION, $help, 
-        $justconnect,
-        $mess_size_total_trans,
-        $mess_size_total_skipped,
-        $mess_size_total_error,
-        $timeout,   # whr (ESS/PRW)
-);
-
-use vars qw ($opt_G); # missing code for this will be option.
-
-
-$rcs = ' $Id: imapsync,v 1.77 2004/03/11 05:33:22 gilles Exp $ ';
-$rcs =~ m/,v (\d+\.\d+)/;
-$VERSION = ($1) ? $1 : "UNKNOWN";
-
-my $VERSION_IMAPClient = $Mail::IMAPClient::VERSION;
-
-my $md5_supported = 0;
-$md5_supported = md5_supported();
-
-$mess_size_total_trans   = 0;
-$mess_size_total_skipped = 0;
-$mess_size_total_error   = 0;
-
-sub md5_supported {
-	
-	
-	# before 2.2.6 no md5 native
-	# I know this is ugly, I should write a sort function
-	if ($VERSION_IMAPClient =~ m/(\d+)\.(\d+)\.(\d+)/) {
-		$debug and print "VERSION_IMAPClient $1 $2 $3\n";
-		my($major,$minor,$sub) = ($1, $2, $3);
-		return(1) if($major >=3);
-		return(0) if($major <=1);
-		return(1) if($minor >=3);
-		return(0) if($minor <=1);
-		return(1) if($sub >=6);
-		return(0) if($sub <=5);
-	}else{
-		return 0; # don't match regex => bad
-	}
-}
-
-$error=0;
-
-my $banner = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.77 $ ',
-		  '$Date: 2004/03/11 05:33:22 $ ',
-		  "\n",
-		  "Mail::IMAPClient version used here is ",
-		  $VERSION_IMAPClient, " auth md5 : $md5_supported",
-		  "\n"
-		 );
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-get_options();
-print $banner;
-
-sub missing_option {
-	my ($option) = @_;
-	die "$option option must be used, run $0 --help for help\n";
-}
-
-$host1 || missing_option("--host1") ;
-$port1 = (defined($port1)) ? $port1 : 143;
-$user1 || missing_option("--user1");
-$password1 || $passfile1 || missing_option("--passfile1 or --password1");
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$host2 || missing_option("--host2") ;
-$port2 = (defined($port2)) ? $port2 : 143;
-$user2 || missing_option("--user2");
-$password2 || $passfile2 || missing_option("--passfile2 or --password2");
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-$authmd5 = (defined($authmd5)) ? $authmd5 : 1;
-
-print "From imap server [$host1] port [$port1] user [$user1]\n";
-print "To   imap server [$host2] port [$port2] user [$user2]\n";
-
-my $from = ();
-my $to = ();
-
-my $authmech = "CRAM-MD5";
-
-unless ($md5_supported) {
-		print "Auth $authmech not supported by IMAPClient $VERSION_IMAPClient\n";
-	}else{
-		print "Auth $authmech supported by IMAPClient $VERSION_IMAPClient\n";	
-	}
-
-
-
-$debugimap and print "From connection\n";
-$from = login_imap($host1, $port1, $user1, $password1, $debugimap, $timeout);
-
-$debugimap and print "To  connection\n";
-$to = login_imap($host2, $port2, $user2, $password2, $debugimap, $timeout);
-
-sub login_imap {
-	my($host, $port, $user, $password, $debugimap, $timeout, $authmech) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io(1);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$imap->connect()
-	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-    if ($timeout)    # whr (ESS/PRW)
-    {
-        $imap->Timeout($timeout);
-        print "Setting imap timeout to $timeout\n";
-    }
-	
-	$imap->User($user);
-	$imap->Password($password);
-	md5auth($imap);
-	$imap->login() or die "Error login : [$host] with user [$user] : $@";
-	return($imap);
-}
-
-
-sub md5auth() {
-	my ($imap) = @_;
-	unless ($md5_supported) {
-		return;
-	}
-	unless ($authmd5) {
-		print "$authmech not wanted by you\n";
-		return;
-	}
-	if ($imap->has_capability($authmech) 
-	    or $imap->has_capability("AUTH=$authmech")) {
-		print "Server [", $imap->Server, 
-		  "] has capability $authmech\n";
-	}else{
-		print "Server [", $imap->Server, 
-		  "] has NOT capability $authmech\n";
-		return;
-	}
-	#print "EE", $imap->Authmechanism(), "\n";
-	if ($imap->Authmechanism($authmech)) {
-		print "Using $authmech authentification\n";
-		#$imap->Authmechanism(undef);
-		#print "EE", $imap->Authmechanism(), "\n";
-	}else{
-		$imap->Authmechanism(undef);
-		print "Can NOT use $authmech authentification, using plain\n";
-		
-	}
-	return;
-}
-
-
-print "From software : ", ($from->Report())[0];
-print "To   software : ", ($to->Report())[0];
-
-print "From capability : ", join(" ", $from->capability()), "\n";
-print "To   capability : ", join(" ", $to->capability()), "\n";
-
-die unless $from->IsAuthenticated();
-die unless   $to->IsAuthenticated();
-
-my (@f_folders, @t_folders, %fs_folders);
-
-# Make a hash of subscribed folders in source server.
-map { $fs_folders{$_}=1 } $from->subscribed();
-
-
-
-
-if (scalar(@folder)) {
-	# folders given by option --folder
-	@f_folders = @folder;
-}elsif ($subscribed) {
-	# option --subscribed
-	@f_folders = sort keys (%fs_folders);
-}else {
-	# no option, all folders
-	@f_folders = sort $from->folders();
-	# consider (optional) includes and excludes
-	if ($include) {
-		@f_folders = grep  /$include/,@f_folders;
-		print "Only including folders matching pattern '$include'\n";
-	}
-	if ($exclude) {
-		@f_folders = grep !/$exclude/,@f_folders;
-		print "Excluding folders matching pattern '$exclude'\n";
-	}
-}
-
-my($f_sep,$t_sep); 
-# what are the private folders separators for each server ?
-
-
-$debug and print "Getting separators\n";
-$f_sep = get_separator($from, $sep1, "--sep1");
-$t_sep = get_separator($to, $sep2, "--sep2");
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		# Less complicated call. Must be tested
-		# before uncommenting definitively.
-		 $sep_out = $imap->separator();
-		#$sep_out = $imap->namespace()->[0][0][1];
-		
-	}elsif ($sep_in) {
-		$sep_out = $sep_in;
-	}else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator caracter with the $sep_opt option\n";
-		exit(1);
-	}
-	return($sep_out);
-}
-
-
-print "From separator : [$f_sep]\n";
-print "To   separator : [$t_sep]\n";
-
-exit if ($justconnect);
-
-# needed for setting flags
-# my $tohasuidplus = $to->has_capability("UIDPLUS");
-
-
-@t_folders = sort @{$to->folders()};
-for (my $i=0; $i<scalar(@t_folders); $i++)     # whr (ESS/PRW)
-{
-    if ( $t_folders[$i] =~ /^INBOX\/INBOX$/ )
-    {
-        $t_folders[$i] = "INBOX";
-    }
-}
-
-print 
-  "From folders : ", map("[$_] ",@f_folders),"\n",
-  "To   folders : ", map("[$_] ",@t_folders),"\n";
-
-print 
-  "From subscribed folders : ", map("[$_] ", sort keys(%fs_folders)), "\n";
-
-sub separator_invert {
-	my $o_sep="\000";
-
-	my($f_fold, $f_sep, $t_sep) = @_;
-
-	my $t_fold = $f_fold;
-	$t_fold =~ s@\Q$t_sep@$o_sep@g;
-	$t_fold =~ s@\Q$f_sep@$t_sep@g;
-	$t_fold =~ s@\Q$o_sep@$f_sep@g;
-	return($t_fold);
-}
-
-FOLDER: foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	
-	$t_fold = separator_invert($f_fold,$f_sep, $t_sep);
-	$t_fold = $prefix2 . $t_fold if ($prefix2);
-    $t_fold='INBOX' if ($t_fold eq 'INBOX/INBOX');  # whr (ESS/PRW)
-	print "To   Folder [$t_fold]\n";
-
-	unless ($from->select($f_fold)) {
-		warn 
-		"From Folder $f_fold : Could not select ",
-		$from->LastError,  "\n";
-		$error++;
-		next FOLDER;
-	}
-
-	unless ($to->exists($t_fold) or $to->select($t_fold)) { 
-		print "To   Folder $t_fold does not exist\n";
-		print "Creating folder [$t_fold]\n";
-		unless ($dry){
-			unless ($to->create($t_fold)){
-				warn "Couldn't create [$t_fold]",
-				$to->LastError,"\n";
-				$error++;
-				next FOLDER;
-			}
-            $to->subscribe($t_fold);                # whr (ESS/PRW)
-            $to->setacl($t_fold,'root','c');        # whr (ESS/PRW)
-
-		}else{
-			next FOLDER;
-		}
-	}
-    
-	unless ($to->select($t_fold)) { 
-		warn 
-		"To   Folder $t_fold : Could not select ",
-		$to->LastError, "\n";
-		$error++;
-		next FOLDER;
-	}
-
-	if ($expunge){
-		print "Expunging $f_fold and $t_fold\n";
-		unless($dry) { $from->expunge() };
-		unless($dry) { $to->expunge() };
-	}
-
-	if ($subscribe and exists $fs_folders{$f_fold}) {
-		print "Subscribing to folder $t_fold on destination server\n";
-		unless($dry) { $to->subscribe($t_fold) };
-	}
-	
-	my @f_msgs = $maxage ? $from->since(time - 86400 * $maxage) : $from->search("ALL");
-	$debug and print "LIST FROM : @f_msgs\n";
-	# internal dates on "TO" are after the ones on "FROM"
-	# normally...
-	my @t_msgs = $maxage ? $to->since(time - 86400 * $maxage) : $to->search("ALL");
-	$debug and print "LIST TO   : @t_msgs\n";
-
-	my %f_hash = ();
-	my %t_hash = ();
-
-	$debug and print "From Parse\n";
-	foreach my $m (@f_msgs) {
-		parse_header_msg($m, $from, "F", \%f_hash);
-	}
-    
-	$debug and print "To   Parse\n";
-	foreach my $m (@t_msgs) {
-		parse_header_msg($m, $to, "T", \%t_hash);
-	}
-	$debug and print "Verifying\n";
-	# messages in "from" that are not good in "to"
-    
-	MESS: foreach my $m_id (keys(%f_hash)) {
-		my $f_size = $f_hash{$m_id}{'s'};
-		my $f_msg = $f_hash{$m_id}{'m'};
-		if (defined $maxsize and $f_size > $maxsize) {
-			print "Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-			$mess_size_total_skipped += $f_msg;
-			next MESS;
-		}
-		$debug and print "key     $m_id #$f_msg\n";
-		unless (exists($t_hash{$m_id})) {
-			print "NO msg #$f_msg [$m_id] in $t_fold\n";
-			# copy
-			print "Copying msg #$f_msg:$f_size to folder $t_fold\n";
-			unless ($dry) {
-				my $string = $from->message_string($f_msg);
-				my $d = $from->internaldate($f_msg);
-				$d = "\"$d\"";
-				$debug and print "internal date from 1: [$d]\n";
-				$syncinternaldates or $d = "";
-				my $flags_f = join(" ", @{$from->flags($f_msg)});
-				# RFC 2060 : This flag can not be altered by the client
-				$flags_f =~ s@\\Recent@@g;
-				
-				my $new_id;
-				print "flags from : [$flags_f][$d]\n";
-				unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
-					warn "Couldn't append msg #$f_msg (Subject: ".$from->subject($f_msg).") to folder $t_fold: ",
-					$to->LastError, "\n";
-					$error++;
-					$mess_size_total_error += $f_size;
-					next MESS;
-					
-				}else{
-					# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-				}
-			}
-	    		next MESS;
-		}else{
-			$debug and print "Message id [$m_id] found in t:$t_fold\n";
-			$mess_size_total_skipped += $f_size;
-		}
-		
-		#$debug and print "MESSAGE $m_id\n"; 
-		my $t_size = $t_hash{$m_id}{'s'};
-		my $t_msg  = $t_hash{$m_id}{'m'};
-
-		$debug and print "Setting flags\n"; 
-		my (@flags_f,@flags_t);
-		@flags_f = @{$from->flags($f_msg)};
-		# No flag \Recent here, no ?
-		
-		$to->store($t_msg,
-			   "+FLAGS (" . join(" ", @flags_f) . ")"
-			  );
-		@flags_t = @{$to->flags($t_msg)};
-		$debug and print 
-		  "flags from : @flags_f\n",
-		  "flags to   : @flags_t\n";
-		$debug and print "Looking dates\n"; 
-		my $d_f = $from->internaldate($f_msg);
-		my $d_t = $to->internaldate($t_msg);
-		$debug and print 
-		  "idate from : $d_f\n",
-		  "idate to   : $d_t\n";
-		#unless ($d_f eq $d_t) {
-		#	print "!!! Dates differ !!!\n";
-		#}
-		unless ($f_size == $t_size) {
-			# Bad size
-			print 
-			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			# delete in to and recopy ?
-			# NO recopy CODE HERE. to be written if needed.
-			$error++;
-			if ($opt_G){
-				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-				$to->delete_message($t_msg);
-			}
-		}else {
-	    		# Good 
-			$debug and print
-			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			if($delete) {
-				print "Deleting msg #$f_msg in folder $f_fold\n";
-				$from->delete_message($f_msg);
-			}
-		}
-	}
-}
-
-stats();
-
-exit(1) if($error);
-
-sub stats {
-	print "Total bytes transfered : $mess_size_total_trans\n";
-	print "Total bytes skipped    : $mess_size_total_skipped\n";
-	print "Total bytes error      : $mess_size_total_error\n";
-	print "Detected $error errors\n";
-	print "Please, rate imapsync at http://freshmeat.net/projects/imapsync/\n";
-
-
-}
-
-
-sub get_options
-{
-	my $numopt = scalar(@ARGV);
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "include=s"   => \$include,
-				   "exclude=s"   => \$exclude,
-				   "prefix2=s"   => \$prefix2,
-                                   "delete!"     => \$delete,
-                                   "syncinternaldates!" => \$syncinternaldates,
-				   "maxsize=i"   => \$maxsize,
-				   "maxage=i"    => \$maxage,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "justconnect!"=> \$justconnect,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"        => \$timeout, # whr (ESS/PRW)
-                                  );
-          
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print "$VERSION\n" and exit if ($version) ;
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-	
-	
-}
-
-
-sub parse_header_msg {
-
-	my ($m, $imap, $s, $s_hash) = @_;
-	$debug and print "-" x 50, "\nMSG $m\n";
-	my $head = $imap->parse_headers($m,"ALL");
-	my $headstr;
-	$debug and print "Head NUM:", scalar(keys(%$head)), "\n";
-	return unless(scalar(keys(%$head)));	    
-	foreach my $h (sort keys(%$head)){
-		foreach my $val ( @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			$debug and print "${s}H $h:", $val, "\n";
-			$headstr .= "$h:". $val;
-		}
-	}
-	my $m_md5 = md5_base64($headstr);
-	my $size = $imap->size($m);
-	$debug and print "$s msg $m:$m_md5:$size\n";
-	
-	$s_hash->{"$m_md5:$size"}{'5'} = "$m_md5:$size";
-	$s_hash->{"$m_md5:$size"}{'s'} = $size;
-	$s_hash->{"$m_md5:$size"}{'m'} = $m;
-}
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die("$! $file");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line : "!EMPTY! $file";
-        return $line;   
-}
-
-sub usage {
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect. Default is 143.
---user1       <string> : user to login.   Mandatory.
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect. Default is 143.
---user2       <string> : user to login.   Mandatory.
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification
---folder      <string> : sync only this folder.
---folder      <string> : and this one.
---folder      <string> : and this one, etc.
---include     <regex>  : only sync folders matching this regular expression
-                         (only effective if neither --folder nor --subscribed
-			  is specified)
---exclude     <regex>  : skip folders matching this regular expression
-                         (only effective if neither --folder nor --subscribed
-			  is specified)
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
---sep1        <char>   : separator in case namespace is not supported.
---sep2        <char>   : idem.
---delete               : delete messages in "from" imap server after
-                         a successful transfert. useful in case you
-                         want to migrate from one server to another one.
-			 With imap, delete tags messages as deleted, they
-			 are not really deleted. See expunge.
---expunge              : expunge messages on both account.
-                         expunge delete messages marked deleted.
-                         expunge is made at the begining so newly
-                         transfered messages won't be expunged.
---syncinternaldates    : set the internal dates on host2 same as host1
---maxsize     <int>    : skip messages larger than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
---dry                  : do nothing, just print what would be done.
---subscribed           : transfer only subscribed folders.
---subscribe            : subscribe to the folders transfered on the 
-                         "destination" server that are subscribed
-                         on the "source" server.
---debug                : debug mode.
---debugimap            : imap debug mode.
---version              : print sotfware version.
---justconnect          : just connect to both servers and print useful 
-                         information.
---timeout     <int>    : imap connect timeout.
---help                 : print this.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                     to imap account "bar" on "imap.trac.org"
-
-$0 \\
-   --host1 imap.troc.org --user1 foo --passfile1 /etc/secret1 \\
-   --host2 imap.trac.org --user2 bar --passfile2 /etc/secret2
-
-
- Mail::IMAPClient version is $Mail::IMAPClient::VERSION
-$rcs
-      imapsync copyleft is the GNU General Public License.
-      See http://www.gnu.org/copyleft/gpl.html
-EOF
-}
\ No newline at end of file
diff --git a/W/patches/imapsync.dave b/W/patches/imapsync.dave
deleted file mode 100644
index fc6b980..0000000
--- a/W/patches/imapsync.dave
+++ /dev/null
@@ -1,5543 +0,0 @@
-#!/opt/local/bin/perl5.12
-
-# structure
-# pod documentation
-# pragmas
-# main program
-# global variables initialisation
-# default values
-# folder loop
-# subroutines
-# IMAPClient 2.2.9 overrides
-# IMAPClient 2.2.9 3.xx ads
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration tool.
-Synchronise mailboxes between two imap servers.
-Good at IMAP migration. More than 44 different IMAP server softwares
-supported with success.
-
-$Revision: 1.488 $
-
-=head1 SYNOPSIS
-
-To synchronise imap account "foo" on "imap.truc.org"
-           to  imap account "bar" on "imap.trac.org"
-           with foo password "secret1"
-           and  bar password "secret2":
-
-  imapsync \
-   --host1 imap.truc.org --user1 foo --password1 secret1 \
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows (2000, XP) 
- with Strawberry Perl 5.10 or 5.12
- or as a standalone binary software imapsync.exe
-
-imapsync can be available directly on the following distributions:
-FreeBSD, Debian, Ubuntu, Gentoo, Fedora,
-NetBSD, Darwin, Mandriva and OpenBSD.
-
- Purchase latest imapsync at
- http://imapsync.lamiral.info/
-
- You'll receive a link to a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://imapsync.lamiral.info/INSTALL
-
- The freecode (was freshmeat) record is at 
- http://freecode.com/projects/imapsync
-
-=head1 USAGE
-
- imapsync [options]
-
-To get a description of each option just run imapsync like this:
-
-  imapsync --help
-  imapsync
-
-The option list:
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-	   [--tls1] [--tls2]
-           [--authmech1 <string>] [--authmech2 <string>]
-           [--proxyauth1] [--proxyauth2]
-	   [--domain1] [--domain2] 
-           [--authmd51] [--authmd52]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect] [--justbanner]
-           [--syncinternaldates]
-           [--idatefromheader]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-	   [--minsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-	   [--nouid1] [--nouid2] 
-	   [--usecache]
-           [--skipsize] [--allowsizemismatch]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2] [--uidexpunge2]
-	   [--delete2folders] [--delete2foldersonly] [--delete2foldersbutnot]
-           [--subscribed] [--subscribe] [--subscribe_all] 
-           [--nofoldersizes]
-           [--dry]
-           [--debug] [--debugimap][--debugimap1][--debugimap2]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--reconnectretry1 <int>] [--reconnectretry2 <int>]
-	   [--noreleasecheck]
-	   [--pidfile <filepath>]
-	   [--tmpdir  <dirpath>]
-           [--version] [--help]
-	   [--tests] [--tests_debug]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transferred, recursively.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is a good tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync works well with bad 
-connections.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete option. Option --delete implies 
-also option --expunge so all messages marked deleted on host1 
-will be really deleted.
-(you can use --noexpunge to avoid this but I don't see any
-real world scenario for the combinaison --delete --noexpunge).
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A (--delete2
-may help)
-
-imapsync is not adequate for maintaining two active imap accounts 
-in synchronization where the user plays independently on both sides.
-Use offlineimap (written by John Goerzen) or mbsync (written by 
-Michael R. Elkins) for 2 ways synchronizations.
-
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without losing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwidth link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started life as a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" (with password "secret1") 
-on host "imap.src.fr" to the imap account "max" (with password "secret2") 
-on host "imap.dest.fr":
-
- imapsync --host1 imap.src.fr  --user1 buddy --password1 secret1 \
-          --host2 imap.dest.fr --user2 max   --password2 secret2
-
-Then you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --passfile1  instead of --password1 to give the
-password since it is safer. With --password1 option any user 
-on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text
-if CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 (or --tls1) and --ssl2 (or --tls2) to enable 
-encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-
-When working on Sun/iPlanet/Netscape IMAP servers you must use 
---proxyauth1 to enable administrative user to masquerade as another user. 
-Can also be used on destination server with --proxyauth2 
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have an unreliable internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 LICENSE
-
-imapsync is free, open source but not always gratis software cover by
-the Do What The Fuck You Want To Public License (WTFPL).
-See COPYING file included in the distribution or the web site
-http://sam.zoy.org/wtfpl/COPYING
-
-=head1 MAILING-LIST
-
-The public mailing-list may be the best way to get support.
-
-To write on the mailing-list, the address is:
-<imapsync@linux-france.org>
-
-To subscribe, send any message (even empty) to:
-<imapsync-subscribe@listes.linux-france.org>
-then just reply to the confirmation message.
-
-To unsubscribe, send a message to:
-<imapsync-unsubscribe@listes.linux-france.org>
-
-To contact the person in charge for the list:
-<imapsync-request@listes.linux-france.org>
-
-The list archives may be available at:
-http://www.linux-france.org/prj/imapsync_list/
-So consider that the list is public, anyone
-can see your post. Use a pseudonym or do not
-post to this list if you want to stay private.
-
-Thank you for your participation.
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap may be a good place to talk about
-imapsync. I read it when imapsync is concerned.
-A better place is the public imapsync mailing-list
-(see below).
-
-Gilles LAMIRAL earns his living writing, installing,
-configuring and teaching free, open and often gratis
-softwares. Do not hesitate to pay him for that services.
-
-=head1 BUG REPORT GUIDELINES
-
-Help us to help you: follow the following guidelines.
-
-Report any bugs or feature requests to the public mailing-list 
-or to the author.
-
-Before reporting bugs, read the FAQ, the README and the
-TODO files. http://imapsync.lamiral.info/
-
-Upgrade to last imapsync release, maybe the bug
-is already fixed.
-
-Upgrade to last Mail-IMAPClient Perl module.
-http://search.cpan.org/dist/Mail-IMAPClient/
-maybe the bug is already fixed.
-
-Make a good title with word "imapsync" in it (my spam filter won't filter it), 
-Don't write an email title with just "imapsync" or "problem",
-a good title is made of keywords summary, not too long (one visible line).
-
-Don't write imapsync in uppercase in the email title, we'll
-know you run Windows and you haven't read this README yet.
-
-Help us to help you: in your report, please include:
-
- - imapsync version.
-
- - output given with --debug --debugimap near the failure point.
-   Isolate a message or two in a folder 'BUG' and use 
-
-     imapsync ... --folder 'BUG' --debug --debugimap 
-
- - imap server software on both side and their version number.
-
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). 
-
- - IMAPClient.pm version.
-
- - the run context. Do you run imapsync.exe, a unix binary or the perl script imapsync.
-
- - operating system running imapsync.
-
- - virtual software context (vmware, xen etc.)
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
-
-Most of those values can be found as a copy/paste at the begining of the output.
-
-One time in your life, read the paper 
-"How To Ask Questions The Smart Way"
-http://www.catb.org/~esr/faqs/smart-questions.html
-and then forget it.
-
-=head1 IMAP SERVERS 
-
-Failure stories reported with the following 3 imap servers:
-
- - MailEnable 1.54 (Proprietary) but MailEnable 4.23 is supported. 
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 is supported.
-   Patient and confident testers are welcome.
- - Imail 7.04 (maybe).
- - (2011) MDaemon 12.0.3 as host2 but MDaemon is supported as host1.
-   MDaemon is simply buggy with the APPEND IMAP command with 
-   any IMAP email client.
- 
-
-Success stories reported with the following 44 imap servers 
-(software names are in alphabetic order): 
-
- - 1und1 H mimap1 84498 [host1]
- - a1.net imap.a1.net IMAP4 Ready [host1]
- - Archiveopteryx 2.03, 2.04, 2.09, 2.10 [host2], 3.0.0 [host2]
-   (OSL 3.0) http://www.archiveopteryx.org/
- - Axigen Mail Server Version 8.0.0
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0) (Solaris), CommuniGate Pro 5.2.17[host2] (CentOS 5.4)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.10, 2.2.12, 
-   v2.2.3-Invoca-RPM-2.2.3-8,
-   2.3-alpha (OSI Approved),
-   v2.2.12-Invoca-RPM-2.2.12-3.RHEL4.1,
-   2.2.13,
-   v2.3.1-Invoca-RPM-2.3.1-2.7.fc5,
-   v2.3.7,
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Deerfield VisNetic MailServer 5.8.6 [host1]
- - dkimap4 [host1]
- - Domino (Notes) 4.61[host1], 6.5[host1], 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 
-   7.0.1[host1], 8.0.1[host1], 8.5.2[host2]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest/source] (LGPL) (http://www.dovecot.org/)
- - Eudora WorldMail v2
- - Gimap (Gmail imap)
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - hMailServer 5.3.3 [host2], 4.4.1 [host1] (see FAQ)
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12, 11.03 [host1]
- - Kerio 7.2.0 Patch 1 [host1] [host2]
- - MailEnable 4.23 [host1] [host2], 4.26 [host1][host2], 5 [host1]
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform), 12 [host2],
-   12.0.3 [host1]
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.0.6249.0[host1], 6.0.6487.0[host1], 
-   6.5.7638.1 [host2], 6.5 [host1], Exchange 2007 SP1 (with Update Rollup 2), 
-   Exchange2007-EP-SP2,
-   Exchange 2010 RTM (Release to Manufacturing) [host2],
-   Exchange 2010 SP1 RU2[host2],
- - Mirapoint, 4.1.9-GA [host1]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Oracle Beehive [host1]
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431
- - SmarterMail, Smarter Mail 5.0 Enterprise, Smarter Mail 5.5 [host1].
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java(tm) System Messaging Server 6.2-2.05,  6.2-7.05, 6.3
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - VMS, Imap part of TCP/IP suite of VMS 7.3.2
- - Yahoo [host1]
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 
-   Zimbra 5.0.24_GA_3356.RHEL4 [host1], 5.5, 6.x
-
-Please report to the author any success or bad story with
-imapsync and do not forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- Host1 software:* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- Host2 software:* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example:
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-
-=head1 HUGE MIGRATION
-
-Pay special attention to options 
---subscribed
---subscribe
---delete
---delete2
---delete2folders
---expunge
---expunge1
---expunge2
---uidexpunge2
---maxage
---minage
---maxsize
---useheader
---fast
---useuid
---usecache
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.txt (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.txt file contains:
-
-user001_1;password001_1;user001_2;password001_2
-user002_1;password002_1;user002_2;password002_2
-user003_1;password003_1;user003_2;password003_2
-user004_1;password004_1;user004_2;password004_2
-user005_1;password005_1;user005_2;password005_2
-...
-
-On Unix the shell program can be:
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --host1 imap.side1.org --user1 "$u1" --password1 "$p1" \
-                 --host2 imap.side2.org --user2 "$u2" --password2 "$p2" ...
- done ; } < file.txt
-
-On Windows the batch program can be:
-
-  FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-  --host1 imap.side1.org --user1 %%G --password1 %%H ^
-  --host2 imap.side2.org --user2 %%I --password2 %%J ...
-
-The ... have to be replaced by nothing or any imapsync option.
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the WTFPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : https://github.com/nicolas33/offlineimap
-  mbsync        : http://isync.sourceforge.net/
-  mailsync      : http://mailsync.sourceforge.net/
-  mailutil      : http://www.washington.edu/imap/
-                  part of the UW IMAP tookit.
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freecode.com/projects/imap-repl/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also file W/tools/wonko_ruby_imapsync
-  exchange-away : http://exchange-away.sourceforge.net/
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will often be welcome.
-
-$Id: imapsync,v 1.488 2012/04/15 17:38:21 gilles Exp gilles $
-
-=cut
-
-
-# pragmas
-
-use warnings;
-++$|;
-use strict;
-use Carp;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use File::Basename;
-use POSIX qw(uname SIGALRM);
-use Fcntl;
-use File::Spec;
-use File::Path qw(mkpath rmtree);
-use IO::Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE);
-use Errno qw(EAGAIN EPIPE ECONNRESET);
-use File::Glob qw( :glob ) ;
-use IO::File;
-use Time::Local ;
-
-use Test::More 'no_plan';
-
-eval { require 'usr/include/sysexits.ph' };
-
-use constant {
-    Unconnected   => 0,
-    Connected     => 1,    # connected; not logged in
-    Authenticated => 2,    # logged in; no mailbox selected
-    Selected      => 3,    # mailbox selected
-};
-
-
-# global variables
-
-my(
-        $rcs, $pidfile,
-	$debug, $debugimap, $debugimap1, $debugimap2, $debugcontent, $debugflags,
-	$debugLIST, $debugsleep, 
-	$nb_errors,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $domain1, $domain2, 
-	$password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag,
-	$flagsCase, $filterflags,
-        $sep1, $sep2,
-	$syncinternaldates,
-        $idatefromheader,
-	$usedatemanip,
-        $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $minsize, $maxage, $minage,
-        $exitwhenover,
-        $search,
-        $skipheader, @useheader,
-        $skipsize, $allowsizemismatch, $foldersizes, $buffersize,
-	$delete, $delete2,
-        $expunge, $expunge1, $expunge2, $uidexpunge2, $dry,
-        $justfoldersizes,
-        $authmd5, $authmd51, $authmd52, 
-        $subscribed, $subscribe, $subscribe_all,
-	$version, $help, 
-        $justconnect, $justfolders, $justbanner,
-        $fast,
-        $total_bytes_transferred,
-        $total_bytes_skipped,
-        $total_bytes_error,
-        $nb_msg_transferred, 
-	$nb_msg_skipped, 
-	$nb_msg_skipped_dry_mode,
-	$h1_nb_msg_duplicate,
-	$h2_nb_msg_duplicate,
-	$h1_nb_msg_noheader,
-	$h2_nb_msg_noheader,
-	$h1_total_bytes_duplicate,
-	$h2_total_bytes_duplicate,
-	$h1_nb_msg_deleted,
-	$h2_nb_msg_deleted,
-        $timeout,
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-	$tls1, $tls2,
-	$uid1, $uid2,
-        $authuser1, $authuser2,
-        $proxyauth1, $proxyauth2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-	$relogin1, $relogin2,
-	$tests, $test_builder, $tests_debug,
-	$allow3xx, $justlogin,
-	$tmpdir,
-	$releasecheck,
-	$max_msg_size_in_bytes,
-	$modules_version,
-	$delete2folders, $delete2foldersonly, $delete2foldersbutnot,
-	$usecache, $debugcache, $cacheaftercopy,
-	$wholeheaderifneeded, %h1_msgs_copy_by_uid, $useuid, $h2_uidguess,
-        $addheader,
-        %h1, %h2,
-);
-
-# main program
-
-# global variables initialisation
-
-$rcs = '$Id: imapsync,v 1.488 2012/04/15 17:38:21 gilles Exp gilles $ ';
-
-$total_bytes_transferred   = 0;
-$total_bytes_skipped = 0;
-$total_bytes_error   = 0;
-$nb_msg_transferred = 0;
-$nb_msg_skipped = $nb_msg_skipped_dry_mode = 0;
-$h1_nb_msg_deleted = $h2_nb_msg_deleted = 0;
-$h1_nb_msg_duplicate = $h2_nb_msg_duplicate = 0;
-$h1_nb_msg_noheader = $h2_nb_msg_noheader = 0;
-$h1_total_bytes_duplicate = $h2_total_bytes_duplicate = 0;
-
-$nb_errors = 0;
-$max_msg_size_in_bytes = 0;
-
-my %month_abrev = (
-   Jan => 0,
-   Feb => 1,
-   Mar => 2,
-   Apr => 3,
-   May => 4,
-   Jun => 5,
-   Jul => 6,
-   Aug => 7,
-   Sep => 8,
-   Oct => 9,
-   Nov => 10,
-   Dec => 11,
-);
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-
-
-# @ARGV will be eat by get_options()
-my @argv_copy = @ARGV;
-
-get_options();
-
-$modules_version = defined($modules_version) ? $modules_version : 1;
-
-# $SIG{ INT } = \&catch_continue ;
-
-$releasecheck = defined($releasecheck) ? $releasecheck : 1;
-my $warn_release = ($releasecheck) ? check_last_release() : '';
-
-$SIG{ INT } = \&catch_exit ;
-
-# default values
-
-$tmpdir ||= File::Spec->tmpdir();
-$pidfile ||= $tmpdir . '/imapsync.pid';
-
-# allow Mail::IMAPClient 3.0.xx by default
-$allow3xx = defined($allow3xx) ? $allow3xx : 1;
-
-$wholeheaderifneeded  = defined( $wholeheaderifneeded )  ? $wholeheaderifneeded  : 1;
-
-# turn on RFC standard flags correction like \SEEN -> \Seen
-$flagsCase = defined( $flagsCase ) ? $flagsCase : 1 ;
-
-# Use PERMANENTFLAGS if available
-$filterflags = defined( $filterflags ) ? $filterflags : 1 ;
-
-# turn on relogin 5 by default
-$relogin1 = defined( $relogin1 ) ? $relogin1 : 5 ;
-$relogin2 = defined( $relogin2 ) ? $relogin2 : 5 ;
-
-if ( $fast ) {
-	# $useuid = 1 ;
-	$foldersizes = 0 ;
-}
-
-# Activate --usecache if --useuid is set and no --nousecache
-$usecache = 1 if ( $useuid and ( ! defined( $usecache ) ) ) ;
-$cacheaftercopy = 1 if ( $usecache and ( ! defined( $cacheaftercopy ) ) ) ;
-
-print banner_imapsync(@argv_copy);
-
-print "Temp directory is $tmpdir\n";
-
-is_valid_directory($tmpdir);
-write_pidfile($pidfile) if ($pidfile);
-
-$modules_version and print "Modules version list:\n", modules_VERSION(), "\n";
-
-check_lib_version() or 
-  die "imapsync needs perl lib Mail::IMAPClient release 2.2.9, or 3.25 or superior \n";
-
-exit_clean(0) if ($justbanner);
-
-# By default, 1000 at a time, not more.
-$split1 ||= 100;
-$split2 ||= 100;
-
-$host1 || missing_option("--host1") ;
-$port1 ||= (defined $ssl1 and !defined $tls1) ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-$port2 ||= (defined $ssl2 && !defined $tls2) ? 993 : 143;
-
-$debugimap1 = $debugimap2 = 1 if ( $debugimap ) ;
-$debug = 1 if ( $debugimap1 or $debugimap2 ) ;
-
-# By default, don't take size to compare 
-$skipsize = (defined $skipsize) ? $skipsize : 1;
-
-$uid1 = defined($uid1) ? $uid1 : 1;
-$uid2 = defined($uid2) ? $uid2 : 1;
-
-$subscribe = defined($subscribe) ? $subscribe : 1;
-
-# Allow size mismatch by default
-$allowsizemismatch = defined($allowsizemismatch) ? $allowsizemismatch : 1;
-
-$delete2folders = 1 
-    if ( defined( $delete2foldersbutnot ) or defined( $delete2foldersonly ) ) ;
-
-if ($justconnect) {
-	justconnect();
-	exit_clean(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-$syncinternaldates = defined($syncinternaldates) ? $syncinternaldates : 1;
-
-# Turn on expunge if there is not explicit option --noexpunge and option 
-# --delete is given.
-# Done because --delete --noexpunge is very dangerous on the second run:
-# the Deleted flag is then synced to all previously transfered messages.
-# So --delete implies --expunge is a better usability default behaviour.
-if ($delete) {
-	if ( ! defined($expunge)) {
-		$expunge = 1;
-	}
-}
-
-if ( $uidexpunge2 and !  Mail::IMAPClient->can( 'uidexpunge' ) ) {
-        print "Failure: uidexpunge not supported (IMAPClient release < 3.17), use --expunge2 instead\n" ;
-        exit_clean( 3 ) ;
-}
-
-if ( $delete2 and ! defined( $uidexpunge2 ) ) {
-        if ( Mail::IMAPClient->can( 'uidexpunge' ) ) {
-                print "Info: will act as --uidexpunge2\n" ;
-		$uidexpunge2 = 1 ;
-        }elsif ( ! defined( $expunge2 ) ) {
-                 print "Info: will act as --expunge2 (no uidexpunge support)\n" ;
-                $expunge2 = 1 ;
-        }
-}
-
-if ( $delete and $delete2 ) {
-	print "Warning: using --delete and --delete2 is almost always a bad idea, exiting imapsync\n" ;
-	exit_clean( 4 ) ;
-}
-
-if ($idatefromheader) {
-	print "Turned ON idatefromheader, ",
-	      "will set the internal dates on host2 from the 'Date:' header line.\n";
-	$syncinternaldates = 0;
-}
-
-if ($syncinternaldates) {
-	print "Info: turned ON syncinternaldates, ",
-	      "will set the internal dates (arrival dates) on host2 same as host1.\n";
-}else{
-	print "Info: turned OFF syncinternaldates\n";
-}
-
-if (defined($authmd5) and ($authmd5)) {
-	$authmd51 = 1 ;
-	$authmd52 = 1 ;
-}
-
-if (defined($authmd51) and ($authmd51)) {
-	$authmech1 ||= 'CRAM-MD5';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'LOGIN';
-}
-
-if (defined($authmd52) and ($authmd52)) {
-	$authmech2 ||= 'CRAM-MD5';
-}
-else{
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'LOGIN';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-if (defined $proxyauth1 && !$authuser1) {
-        missing_option("With --proxyauth1, --authuser1");
-}
-
-if (defined $proxyauth2 && !$authuser2) {
-        missing_option("With --proxyauth2, --authuser2");
-}
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "Info: will try to use $authmech1 authentication on host1\n";
-print "Info: will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-$reconnectretry1 = (defined($reconnectretry1)) ? $reconnectretry1 : 3;
-$reconnectretry2 = (defined($reconnectretry2)) ? $reconnectretry2 : 3;
-
-@useheader = ( "Message-Id", "Message-ID", "Received" ) unless ( @useheader ) ;
-
-my %useheader ;
-
-# Make a hash %useheader of each --useheader 'key' in uppercase
-@useheader{ map( { uc( $_ ) } @useheader ) } = (  ) ;
-
-#require Data::Dumper ;
-#print Data::Dumper->Dump( [ \%useheader ] ) ;
-
-
-print "Host1: imap server [$host1] port [$port1] user [$user1]\n";
-print "Host2: imap server [$host2] port [$port2] user [$user2]\n";
-
-$password1 || $passfile1 || do {
-	$password1 = ask_for_password($authuser1 || $user1, $host1);
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	$password2 = ask_for_password($authuser2 || $user2, $host2);
-};
-
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-if ( ! ( 1
-      or ( $maxsize 
-      or $minsize 
-      or $maxage  
-      or $minage )
-     and $usecache 
-     and ! $delete ) ) {
-        die_clean( 
-"Problem --usecache can not be used safely with options --maxsize --minsize --maxage --minage
-Use --nousecache or suppress the --max* --min* options\n" ) ;    
-}
-
-my $imap1 = ();
-my $imap2 = ();
-
-$timestart = time(  );
-$timebefore = $timestart;
-
-$debugimap1 and print "Host1 connection\n";
-$imap1 = login_imap($host1, $port1, $user1, $domain1, $password1, 
-		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		   $authmech1, $authuser1, $reconnectretry1,
-		   $proxyauth1, $uid1, $split1);
-
-$debugimap2 and print "Host2 connection\n";
-$imap2 = login_imap($host2, $port2, $user2, $domain2, $password2, 
-		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		 $authmech2, $authuser2, $reconnectretry2,
-		 $proxyauth2, $uid2, $split2);
-
-
-$debug and print "Host1 Buffer I/O: ", $imap1->Buffer(), "\n";
-$debug and print "Host2 Buffer I/O: ", $imap2->Buffer(), "\n";
-
-
-
-die_clean() unless $imap1->IsAuthenticated();
-print "Host1: state Authenticated\n";
-die_clean() unless   $imap2->IsAuthenticated();
-print "Host2: state Authenticated\n";
-
-print "Host1 capability: ", join(" ", $imap1->capability_update()), "\n";
-print "Host2 capability: ", join(" ", $imap2->capability_update()), "\n";
-
-
-exit_clean(0) if ($justlogin);
-
-# 
-# Folder stuff
-#
-
-my (
-@h1_folders_all, %h1_folders_all, @h1_folders_wanted, %requested_folder, 
-%h1_subscribed_folder, %h2_subscribed_folder, 
-@h2_folders_all, %h2_folders_all, @h2_folders_from_1_wanted,  %h2_folders_from_1_wanted, 
-@h2_folders_from_1_all, %h2_folders_from_1_all,
-);
-
-
-# Make a hash of subscribed folders in both servers.
-map { $h1_subscribed_folder{ $_ } = 1 } $imap1->subscribed(  );
-map { $h2_subscribed_folder{ $_ } = 1 } $imap2->subscribed(  );
-
-
-# All folders on host1 and host2
-@h1_folders_all = sort $imap1->folders();
-@h2_folders_all = sort $imap2->folders();
-
-map { $h1_folders_all{$_} = 1} @h1_folders_all;
-map { $h2_folders_all{$_} = 1} @h2_folders_all;
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ( $subscribed ) {
-		add_to_requested_folders( keys ( %h1_subscribed_folder ) ) ;
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($imap1->folders($folderrec));
-		}
-	}
-}
-else {
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		add_to_requested_folders(@h1_folders_all);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	foreach my $include (@include) {
-		my @included_folders = grep /$include/, @h1_folders_all;
-		add_to_requested_folders(@included_folders);
-		print "Including folders matching pattern '$include': @included_folders\n";
-	}
-}
-
-if (scalar(@exclude)) {
-	foreach my $exclude (@exclude) {
-		my @requested_folder = sort(keys(%requested_folder));
-		my @excluded_folders = grep /$exclude/, @requested_folder;
-		remove_from_requested_folders(@excluded_folders);
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-	}
-}
-
-# Remove no selectable folders
-
-foreach my $folder (keys(%requested_folder)) {
-        if ( not $imap1->selectable($folder)) {
-		print "Warning: ignoring folder $folder because it is not selectable\n";
-                remove_from_requested_folders($folder);
-        }
-}
-
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@h1_folders_wanted = @requested_folder;
-
-#my $h1_namespace = $imap1->namespace() ;
-#my $h2_namespace = $imap2->namespace() ;
-#require Data::Dumper ;
-#$debug and print "Host1 namespace:\n", Data::Dumper->Dump([$h1_namespace]) ;
-#$debug and print "Host2 namespace:\n", Data::Dumper->Dump([$h2_namespace]) ;
-
-my($h1_sep,$h2_sep); 
-# what are the private folders separators for each server ?
-
-$debug and print "Getting separators\n";
-$h1_sep = get_separator($imap1, $sep1, "--sep1");
-$h2_sep = get_separator($imap2, $sep2, "--sep2");
-
-my($h1_prefix,$h2_prefix); 
-$h1_prefix = get_prefix($imap1, $prefix1, "--prefix1");
-$h2_prefix = get_prefix($imap2, $prefix2, "--prefix2");
-
-
-print "Host1 separator and prefix: [$h1_sep][$h1_prefix]\n";
-print "Host2 separator and prefix: [$h2_sep][$h2_prefix]\n";
-
-
-foreach my $h1_fold (@h1_folders_wanted) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders_from_1_wanted{$h2_fold}++;
-}
-@h2_folders_from_1_wanted = sort keys(%h2_folders_from_1_wanted);
-
-foreach my $h1_fold (@h1_folders_all) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders_from_1_all{$h2_fold}++;
-}
-#@h2_folders_from_1_all = sort keys(%h2_folders_from_1_all);
-
-
-if ($foldersizes) {
-	foldersizes( "Host1", $imap1, @h1_folders_wanted ) ;
-	foldersizes( "Host2", $imap2, @h2_folders_from_1_wanted ) ;
-	sleep( 2 ) ;
-}
-
-
-exit_clean(0) if ($justfoldersizes);
-
-print 
-  "++++ Listing folders\n",
-  "Host1 folders list:\n", map("[$_]\n",@h1_folders_all),"\n",
-  "Host2 folders list:\n", map("[$_]\n",@h2_folders_all),"\n";
-
-print 
-  "Host1 subscribed folders list: ", 
-  map( "[$_] ", sort keys( %h1_subscribed_folder ) ), "\n" 
-  if ( $subscribed ) ;
-
-my @h2_folders_not_in_1;
-@h2_folders_not_in_1 = list_folders_in_2_not_in_1();
-
-print "Folders in host2 not in host1:\n", 
-  map("[$_]\n", @h2_folders_not_in_1),"\n";
-
-delete_folders_in_2_not_in_1() if $delete2folders;
-
-# folder loop
-print "++++ Looping on each folder\n";
-
-FOLDER: foreach my $h1_fold (@h1_folders_wanted) {
-
-	my $h2_fold = imap2_folder_name( $h1_fold ) ;
-	#relogin1(  ) if ( $relogin1 ) ;
-	printf( "%-35s -> %-35s\n", "[$h1_fold]", "[$h2_fold]" ) ;
-
-	# host1 can not be fetched read only, select is needed because of expunge.
-	select_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	#examine_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	
-	
-	if ( ! exists( $h2_folders_all{ $h2_fold } ) ) {
-		create_folder( $imap2, $h2_fold, $h1_fold ) or next FOLDER ;
-	}
-	
-	acls_sync( $h1_fold, $h2_fold ) ;
-	
-        # Sometimes the folder on host2 is listed (it exists) but is
-        # not selectable but becomes selectable by a create (Gmail)
-	select_folder( $imap2, $h2_fold, 'Host2' ) 
-        or ( create_folder( $imap2, $h2_fold, $h1_fold ) 
-             and select_folder( $imap2, $h2_fold, 'Host2' ) )
-        or next FOLDER ;
-	my @select_results = $imap2->Results(  ) ;
-	
-	#print "%%% @select_results\n" ;
-	my $permanentflags2 = permanentflags( @select_results ) ;
-	$debug and print "permanentflags: $permanentflags2\n" ;
-	if ( $expunge or $expunge1 ){
-		print "Expunging host1 $h1_fold\n" ;
-		unless($dry) { $imap1->expunge() } ;
-		#print "Expunging host2 $h2_fold\n" ;
-		#unless($dry) { $imap2->expunge() } ;
-	}
-	
-	if ( ( ( $subscribe and exists $h1_subscribed_folder{ $h1_fold } ) or $subscribe_all )
-             and ! exists $h2_subscribed_folder{ $h2_fold } ) {
-		print "Subscribing to folder $h2_fold on destination server\n" ;
-		unless( $dry ) { $imap2->subscribe( $h2_fold ) } ;
-	}
-	
-	next FOLDER if ($justfolders);
-
-        my $h1_msgs_all_hash_ref = {  } ;
-	my @h1_msgs = select_msgs( $imap1, $h1_msgs_all_hash_ref );
-
-        my $h1_msgs_nb = scalar( @h1_msgs ) ;
-        $h1{ $h1_fold }{ 'messages_nb' } = $h1_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host1 LIST: $h1_msgs_nb messages [@h1_msgs]\n" ;
-        
-        my $h2_msgs_all_hash_ref = {  } ;
-	my @h2_msgs = select_msgs( $imap2, $h2_msgs_all_hash_ref ) ;
-	
-        my $h2_msgs_nb = scalar( @h2_msgs ) ;
-        $h2{ $h2_fold }{ 'messages_nb' } = $h2_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host2 LIST: $h2_msgs_nb messages [@h2_msgs]\n";
-        
-	my $cache_base = "$tmpdir/imapsync_cache/$host1/$user1/$host2/$user2";
-	my $cache_dir = cache_folder( $cache_base, $h1_fold, $h2_fold );
-	my ( $cache_1_2_ref, $cache_2_1_ref ) = ( {}, {} );
-	
-	if ( $usecache ) {
-		print "cache directory: $cache_dir\n" ;
-		mkpath( "$cache_dir" ) ;
-		( $cache_1_2_ref, $cache_2_1_ref ) 
-                = get_cache( $cache_dir, \@h1_msgs, \@h2_msgs, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-		print "CACHE h1 h2: ", scalar( keys %$cache_1_2_ref ), " files\n" ; 
-		$debug and print '[',
-		    map ( { "$_->$cache_1_2_ref->{$_} " } keys %$cache_1_2_ref ), " ]\n";
-	}
-	
-	my %h1_hash = ();
-	my %h2_hash = ();
-	
-	my ( %h1_msgs, %h2_msgs ) ;
-	@h1_msgs{ @h1_msgs } = ();
-	@h2_msgs{ @h2_msgs } = ();
-	
-	my @h1_msgs_in_cache = sort { $a <=> $b } keys %$cache_1_2_ref ;
-	my @h2_msgs_in_cache = keys %$cache_2_1_ref ;
-	
-	my ( %h1_msgs_not_in_cache, %h2_msgs_not_in_cache ) ;
-	%h1_msgs_not_in_cache = %h1_msgs ;
-	%h2_msgs_not_in_cache = %h2_msgs ;
-	delete @h1_msgs_not_in_cache{ @h1_msgs_in_cache } ;
-	delete @h2_msgs_not_in_cache{ @h2_msgs_in_cache } ;
-	
-	my @h1_msgs_not_in_cache = keys %h1_msgs_not_in_cache ;
-	#print "h1_msgs_not_in_cache: [@h1_msgs_not_in_cache]\n" ;
-	my @h2_msgs_not_in_cache = keys %h2_msgs_not_in_cache ;
-	
-	my @h2_msgs_delete2_not_in_cache = () ;
-	%h1_msgs_copy_by_uid = (  ) ;
-	
-	if ( $useuid ) {
-		# use uid so we have to avoid getting header
-		@h1_msgs_copy_by_uid{ @h1_msgs_not_in_cache } = (  ) ;
-		@h2_msgs_delete2_not_in_cache = @h2_msgs_not_in_cache if $usecache ;
-		@h1_msgs_not_in_cache = (  ) ;
-		@h2_msgs_not_in_cache = (  ) ;
-		
-		#print "delete2: @h2_msgs_delete2_not_in_cache\n";
-	}
-	
-	$debug and print "Host1 parsing headers of folder [$h1_fold]\n";
-
-	my ($h1_heads_ref, $h1_fir_ref) = ({}, {});
-	$h1_heads_ref = $imap1->parse_headers([@h1_msgs_not_in_cache], @useheader) if (@h1_msgs_not_in_cache);
-	$debug and print "Host1 parsing headers of folder [$h1_fold] took ", timenext(), " s\n";
-
-	@$h1_fir_ref{@h1_msgs} = (undef);
-        
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold]\n" ;
-	$h1_fir_ref = $imap1->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref)
-	  if (@h1_msgs);
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold] took ", timenext(), " s\n";
-	unless ($h1_fir_ref) {
-		print
-		"Host1 folder $h1_fold: Could not fetch_hash ",
-		scalar(@h1_msgs), " msgs: ", $imap1->LastError, "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-
-	my @h1_msgs_duplicate;
-	foreach my $m (@h1_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap1, $m, $h1_heads_ref, $h1_fir_ref, 'Host1', \%h1_hash);
-		if (! defined($rc)) {
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			print "Host1 $h1_fold/$m size $h1_size ignored (no wanted headers so we ignore this message)\n" ;
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			$h1_nb_msg_noheader +=1;
-		} elsif(0 == $rc) {
-			# duplicate
-			push(@h1_msgs_duplicate, $m);
-			# duplicate, same id same size?
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			$nb_msg_skipped += 1;
-			$h1_total_bytes_duplicate += $h1_size;
-			$h1_nb_msg_duplicate += 1;
-		}
-	}
-        my $h1_msgs_duplicate_nb = scalar( @h1_msgs_duplicate ) ;
-        $h1{ $h1_fold }{ 'duplicates_nb' } = $h1_msgs_duplicate_nb ;
-        
-        $debug and print "Host1 selected: $h1_msgs_nb  duplicates: $h1_msgs_duplicate_nb\n" ;
-	$debug and print "Host1 whole time parsing headers took ", timenext(), " s\n";
-        
-	$debug and print "Host2 parsing headers of folder [$h2_fold]\n";
-        
-	my ($h2_heads_ref, $h2_fir_ref) = ( {}, {} );
-	$h2_heads_ref =   $imap2->parse_headers([@h2_msgs_not_in_cache], @useheader) if (@h2_msgs_not_in_cache);
-	$debug and print "Host2 parsing headers of folder [$h2_fold] took ", timenext(), " s\n" ;
-
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold]\n" ;
-	@$h2_fir_ref{@h2_msgs} = (  ); # fetch_hash can select by uid with last arg as ref
-	$h2_fir_ref   =   $imap2->fetch_hash("FLAGS", "INTERNALDATE", "RFC822.SIZE", $h2_fir_ref)
-	  if (@h2_msgs);
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold] took ", timenext(), " s\n" ;
-	
-	my @h2_msgs_duplicate;
-	foreach my $m (@h2_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap2, $m, $h2_heads_ref, $h2_fir_ref, 'Host2', \%h2_hash);
-		my $h2_size = $h2_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-		if (! defined($rc)) {
-                        print "Host2 $h2_fold/$m size $h2_size ignored (no wanted headers so we ignore this message)\n" ;
-			$h2_nb_msg_noheader += 1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			$h2_nb_msg_duplicate += 1;
-			$h2_total_bytes_duplicate += $h2_size;
-			push(@h2_msgs_duplicate, $m);
-		}
-	}
-        my $h2_msgs_duplicate_nb = scalar( @h2_msgs_duplicate ) ;
-        $h2{ $h2_fold }{ 'duplicates_nb' } = $h2_msgs_duplicate_nb ;
-        
-        $debug and print "Host2 selected: $h2_msgs_nb  duplicates: $h2_msgs_duplicate_nb\n" ;
-	$debug and print "Host2 whole time parsing headers took ", timenext(), " s\n";
-
-	$debug and print "++++ Verifying [$h1_fold] -> [$h2_fold]\n";
-	# messages in host1 that are not in host2
-	
-	my @h1_hash_keys_sorted_by_uid 
-	  = sort {$h1_hash{$a}{'m'} <=> $h1_hash{$b}{'m'}} keys(%h1_hash);
-	
-	#print map { $h1_hash{$_}{'m'} . " "} @h1_hash_keys_sorted_by_uid;
-	
-	my @h2_hash_keys_sorted_by_uid 
-	  = sort {$h2_hash{$a}{'m'} <=> $h2_hash{$b}{'m'}} keys(%h2_hash);
-
-        if ( 0 ) {
-        # hashes, keys are uid, values are the internaldates in epoch (best format to compare dates)
-        my %h1_epoch ;
-        my %h2_epoch ;
-        @h1_epoch{ @h1_msgs } = map( { epoch( $h1_fir_ref->{ $_ }->{ 'INTERNALDATE' } ) } @h1_msgs ) ;
-        @h2_epoch{ @h2_msgs } = map( { epoch( $h2_fir_ref->{ $_ }->{ 'INTERNALDATE' } ) } @h2_msgs ) ;
-        #print keyval( %h1_epoch ) ;
-        #print keyval( %h2_epoch ) ;
-        my $h1_greatest_epoch = max( values %h1_epoch ) ;
-        print "h1_greatest_epoch $h1_greatest_epoch\n" ;
-        }
-        
-        #next FOLDER ;
-	if($delete2) {
-		my @h2_expunge;
-		foreach my $m_id (@h2_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($h1_hash{$m_id})) {
-				my $h2_msg  = $h2_hash{$m_id}{'m'};
-				my $h2_flags  = $h2_hash{$m_id}{'F'} || "";
-				my $isdel  = $h2_flags =~ /\B\\Deleted\b/ ? 1 : 0;
-				print "msg $h2_fold/$h2_msg marked \\Deleted on host2 [$m_id]\n"
-				  if ! $isdel;
-				push(@h2_expunge, $h2_msg) if $uidexpunge2;
-				unless ($dry or $isdel) {
-					$imap2->delete_message($h2_msg);
-					$h2_nb_msg_deleted += 1;
-				}
-			}
-		}
-		foreach my $h2_msg (@h2_msgs_duplicate) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [duplicate] on host2\n";
-			push(@h2_expunge, $h2_msg) if $uidexpunge2;
-			unless ($dry) {
-				$imap2->delete_message($h2_msg);
-				$h2_nb_msg_deleted += 1;
-			}
-		}
-		foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [not in cache] on host2\n";
-                        push(@h2_expunge, $h2_msg) if $uidexpunge2;
-			unless ($dry) {
-				$imap2->delete_message($h2_msg);
-				$h2_nb_msg_deleted += 1;
-			}
-		}
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s)\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ($expunge2){
-                	print "Expunging host2 folder $h2_fold\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-	}
-
-	my $h2_uidnext = $imap2->uidnext( $h2_fold ) ;
-        $debug and print "Host2 uidnext: $h2_uidnext\n" ;
-	$h2_uidguess = $h2_uidnext ;
-	MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
-		my $h1_size  = $h1_hash{$m_id}{'s'};
-		my $h1_msg   = $h1_hash{$m_id}{'m'};
-		my $h1_idate = $h1_hash{$m_id}{'D'};
-
-		unless (exists($h2_hash{$m_id})) {
-			# copy
-			copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                        last FOLDER if total_bytes_max_reached(  ) ;
-			next MESS;
-		}
-		else{
-		        # already on host2
-			my $h2_msg   = $h2_hash{$m_id}{'m'} ;
-			$debug and print "Host1 found msg $h1_fold/$h1_msg equals Host2 $h2_fold/$h2_msg\n" ;
-			$total_bytes_skipped += $h1_size ;
-			$nb_msg_skipped += 1 ;
-			$debugcache and print "touch $cache_dir/${h1_msg}_$h2_msg\n"  if ( $usecache ) ;
-			touch( "$cache_dir/${h1_msg}_$h2_msg" ) if ( $usecache ) ;
-		}
-		
-		#$debug and print "MESSAGE $m_id\n";
-		my $h2_msg  = $h2_hash{$m_id}{'m'};
-
-                sync_flags( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-
-	    	# Good
-		my $h2_size = $h2_hash{$m_id}{'s'};
-		$debug and print
-		"Host1 size  msg $h1_fold/$h1_msg = $h1_size <> $h2_size = Host2 $h2_fold/$h2_msg\n";
-		if( $delete ) {
-			print "Host1 msg $h1_fold/$h1_msg deleted\n";
-			unless( $dry ) {
-				$imap1->delete_message( $h1_msg );
-				$h1_nb_msg_deleted += 1;
-				$imap1->expunge() if ( $expunge or $expunge1 );
-			}
-		}
-		
-	}
-	# END MESS: loop
-	MESS_IN_CACHE: foreach my $h1_msg ( @h1_msgs_in_cache ) {
-		my $h2_msg = $cache_1_2_ref->{ $h1_msg } ;
-		$debugcache and print "cache messages update flags $h1_msg->$h2_msg\n";
-		sync_flags( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-		my $h1_size = $h1_fir_ref->{ $h1_msg }->{ 'RFC822.SIZE' } || 0 ;
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-	}
-	
-	#print "Messages by uid: ", map { "$_ " } keys %h1_msgs_copy_by_uid, "\n" ;
-	MESS_BY_UID: foreach my $h1_msg ( sort { $a <=> $b } keys %h1_msgs_copy_by_uid ) {
-		# 
-		$debug and print "Copy by uid $h1_fold/$h1_msg\n" ;
-		copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-		last FOLDER if total_bytes_max_reached(  ) ;
-	}
-	
-	if ($expunge or $expunge1){
-		print "Expunging host1 folder $h1_fold\n";
-		unless($dry) { $imap1->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging host2 folder $h2_fold\n";
-		unless($dry) { $imap2->expunge() };
-	}
-
-	$debug and print "Time: ", timenext(), " s\n";
-}
-
-sub total_bytes_max_reached {
-
-	return( 0 ) if not $exitwhenover ;
-	if ( $total_bytes_transferred >= $exitwhenover ) {
-        	print "Maximum bytes transfered reached, $total_bytes_transferred >= $exitwhenover, ending sync\n" ;
-        	return( 1 ) ;
-        }  
-
-}
-
-sub size_filtered_flag {
-	my $h1_size = shift ;
-	
-	if (defined $maxsize and $h1_size >= $maxsize) {
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub sync_flags {
-	my ( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) = @_ ;
-	$debug and print "Host1 flags $h1_fold/$h1_msg -> Host2 $h2_fold/$h2_msg\n";
-
-	my $h1_size = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} ;
-	return() if size_filtered_flag( $h1_size ) ;
-
-	# used cached flag values for efficiency
-	my $h1_flags = $h1_fir_ref->{ $h1_msg }->{ "FLAGS" } || '' ;
-	my $h2_flags = $h2_fir_ref->{ $h2_msg }->{ "FLAGS" } || '' ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags init msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-
-	# RFC 2060: This flag can not be altered by any client
-	$h1_flags =~ s@\\Recent\s?@@gi ;
-	$h1_flags = flags_regex( $h1_flags ) if @regexflag;
-	$h1_flags = flagsCase( $h1_flags ) if $flagsCase ;
-	$h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-	
-	# compare flags - set flags if there a difference
-	my @h1_flags = sort split(' ', $h1_flags );
-	my @h2_flags = sort split(' ', $h2_flags );
-	my $diff = compare_lists( \@h1_flags, \@h2_flags );
-
-	#$diff = 1 ;
-	( $debug or $debugflags ) and print "Host1 flags filt msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-	$diff and ( $debug or $debugflags ) 
-		and     print "Host2 flags msg $h2_fold/$h2_msg replacing h2 flags( $h2_flags ) with h1 flags( $h1_flags )\n";
-	# This sets flags so flags can be removed with this
-	# When you remove a \Seen flag on host1 you want to it
-	# to be removed on host2. Just add flags is not what 
-	# we need most of the time.
-	
-	if ( ! $dry and $diff and ! $imap2->store( $h2_msg, "FLAGS.SILENT (@h1_flags)" ) ) {
-		print "Host2 flags msg $h2_fold/$h2_msg could not add flags [@h1_flags]: ",
-		  $imap2->LastError, "\n";
-		#$nb_errors++;
-	}
-}
-
-print "++++ End looping on each folder\n";
-#print memory_consumption();
-
-
-$imap1->logout();
-$imap2->logout();
-
-
-stats();
-exit_clean(1) if( $nb_errors );
-exit_clean(0);
-
-# END of main program
-
-# subroutines
-
-sub max {
-	return(undef) if (0 == scalar(@_));
-	my @sorted = sort { $a <=> $b } @_;
-	return(pop(@sorted));
-}
-
-sub tests_max {
-	ok(0 == max(0),   "max 0");
-	ok(1 == max(1),   "max 1");
-	ok(-1 == max(-1), "max -1");
-	ok(! defined(max()), "max no arg");
-	ok(100 == max(1, 100), "max 1 100");
-	ok(100 == max(100, 1), "max 100 1");
-	ok(100 == max(100, 42, 1), "max 100 42 1");
-	ok(100 == max(100, "42", 1), "max 100 42 1");
-	ok(100 == max("100", "42", 1), "max 100 42 1");
-	#ok(100 == max(100, "haha", 1), "max 100 42 1");
-}
-
-sub keyval {
-        my %hash = @_ ;
-        return( join( " ", map( { "$_ => " . $hash{ $_ } } keys %hash ) ) . "\n" ) ;
-}
-        
-
-
-sub check_lib_version {
-	$debug and print "IMAPClient $Mail::IMAPClient::VERSION\n";
-	if ($Mail::IMAPClient::VERSION eq '2.2.9') {
-		override_imapclient();
-		return(1);
-	}
-	else{
-		# 3.x.x is no longer buggy with imapsync.
-		if ($allow3xx) {
-			return(1);
-		}else{
-			return(0);
-		}
-	}
-}
-
-sub modules_VERSION {
-
-	my @list_version;
-
-	foreach my $module (qw(
-Mail::IMAPClient
-IO::Socket      
-IO::Socket::INET
-IO::Socket::SSL 
-Digest::MD5     
-Digest::HMAC_MD5
-Term::ReadKey
-Authen::NTLM))
-	{
-		my $v = "?";
-	
-		if (eval "require $module") {
-			# module is here
-			$v = eval "\$${module}::VERSION";
-		}else{
-			# no module
-			$v = "?";
-		}
-		#print ("$module ", $v, "\n");
-		push (@list_version, sprintf("%-20s %s\n", $module, $v));
-	}
-	return(@list_version);
-}
-
-# Construct a command line copy with passwords replaced by MASKED.
-sub command_line_nopassword {
-	my @argv_copy = @_;
-	my @argv_nopassword;
-	while (@argv_copy) {
-		my $arg = shift(@argv_copy); # option name or value
-		if ($arg =~ m/-password[12]/) {
-			shift(@argv_copy); # password value 
-			push(@argv_nopassword, $arg, "MASKED"); # option name and fake value
-		}else{
-			push(@argv_nopassword, $arg); # same option or value
-		}
-	}
-	return("@argv_nopassword");
-}
-
-sub tests_command_line_nopassword {
-
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 MASKED' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 MASKED --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-
-
-}
-
-sub ask_for_password {
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-sub catch_exit {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-	stats(  ) ;
-	exit_clean(  ) ;
-}
-
-sub catch_continue {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-}
-
-sub myconnect {
-	my $self = shift;
-	
-	$debug and print "Entering myconnect\n";
-	%$self = (%$self, @_);
-
-        my $sock = (($self->Ssl) ? IO::Socket::SSL->new : IO::Socket::INET->new);
-        my $dp = ($self->Ssl ? 'imaps(993)' : 'imap(143)');
-
-	$debug and print "Calling configure\n";
-	my $ret = $sock->configure({
-		PeerAddr => $self->Server		,
-                PeerPort => $self->Port||$dp	       	,
-                Proto    => 'tcp' 			,
-                Timeout  => $self->Timeout||0		,
-		Debug	=> $self->Debug 		,
-	});
-	unless ( defined($ret) ) {
-		$self->LastError( "$@\n");	  
-		$@ 		= "$@";   
-		carp 		  "$@" 
-				unless defined wantarray;	
-		return undef;
-	}
-	$sock->autoflush(1);
-	
-	my $banner = $sock->getline();
-	$debug and print "Read: $banner";
-	
-	$self->Banner($banner);
-	$self->RawSocket2($sock);
-	$self->State(Connected);
-	if ($banner =~ /\* PREAUTH/)
-        {
-            $self->State(Authenticated);
-        }
-	if ($self->Tls) {
-	    starttls($self);
-	    $self->Starttls( 1 ) ;
-	}
-	
-	$self->Ignoresizeerrors($allowsizemismatch);
-	
-	if ($self->User and $self->Password) {
-		$debug and print "Calling login\n";
-		return $self->login ;
-	} 
-	else {
-		return $self;
-	}
-}
-
-
-
-
-sub starttls {
-  my $self   = shift;
-  my $socket   = $self->RawSocket2();
-  
-  $debug and print "Entering starttls\n";
-  unless ($self->has_capability("STARTTLS")) {
-    die_clean( "No STARTTLS capability" );
-  }
-  print $socket, "\n";
-  print $socket "z00 STARTTLS\015\012";
-  CORE::select( undef, undef, undef, 0.025 );
-  my $txt = $socket->getline();
-  $debug and print "Read tls: $txt";
-  unless($txt =~ /^z00 OK/){
-    die_clean( "Invalid response for STARTTLS: $txt\n" );
-  }
-  $debug and print "Calling start_SSL\n";
-  unless(IO::Socket::SSL->start_SSL($socket,
-      {
-      SSL_version    =>  "TLSV1",
-      SSL_startHandshake => 1,
-      SSL_verify_depth => 1,
-      }))
-  {
-    die_clean( "Couldn't start TLS: ".IO::Socket::SSL::errstr()."\n");
-  }
-  if (ref($socket) ne "IO::Socket::SSL") {
-    die_clean( "Socket has NOT been converted to SSL");
-  }else{
-     $debug and print "Socket successfuly converted to SSL\n";
-  }
-  $debug and print "Ending starttls\n";
-}
-
-
-
-sub connect_imap {
-	my($host, $port, $debugimap, $ssl, $tls) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Can not open imap connection on [$host]: $@\n");	
-}
-
-sub justconnect {
-	my $imap1 = ();
-	my $imap2 = ();
-	
-	$imap1 = connect_imap($host1, $port1, $debugimap1, $ssl1, $tls1);
-	print "Host1 software: ", server_banner($imap1);
-	print "Host1 capability: ", join(" ", $imap1->capability()), "\n";
-	$imap2   = connect_imap($host2, $port2, $debugimap2, $ssl2, $tls2);
-	print "Host2 software: ", server_banner($imap2);
-	print "Host2 capability: ", join(" ", $imap2->capability()), "\n";
-	$imap1->logout();
-	$imap2->logout();
-
-}
-
-sub relogin1 {
-	$imap1 = relogin_imap(
-		$imap1,
-		$host1, $port1, $user1, $domain1, $password1, 
-		$debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		$authmech1, $authuser1, $reconnectretry1,
-		$proxyauth1, $uid1, $split1) ;
-		
-	$relogin1-- if ( $relogin1 ) ;
-}
-
-sub relogin2 {
-	$imap2 = relogin_imap(
-		$imap2,
-		$host2, $port2, $user2, $domain2, $password2, 
-		$debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		$authmech2, $authuser2, $reconnectretry2,
-		$proxyauth2, $uid2, $split2) ;
-		
-	$relogin2-- if ( $relogin2 )  ;
-}
-
-sub relogin_imap {
-	my($imap,
-	   $host, $port, $user, $domain, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split) = @_;
-
-	my $folder_current = $imap->Folder ;
-	$imap->logout(  ) ;
-	$imap = login_imap(
-		$host, $port, $user, $domain, $password, 
-		$debugimap, $timeout, $fastio, 
-		$ssl, $tls, $authmech, $authuser, $reconnectretry,
-		$proxyauth, $uid, $split
-	) ;
-	$imap->select( $folder_current ) if defined( $folder_current ) ;
-	return( $imap ) ;
-}
-
-sub login_imap {
-	my($host, $port, $user, $domain, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split ) = @_;
-	my ($imap);
-	
-	$imap = Mail::IMAPClient->new();
-	
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	$imap->Clear(1);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid($uid);
-	#$imap->Uid(0);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-
-	$imap->Reconnectretry($reconnectretry) if ($reconnectretry);
-
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Failure: can not open imap connection on [$host] with user [$user]: $@\n");
-	
-	print "Banner: ", server_banner($imap);
-	
-        if ($authmech eq 'PREAUTH')  {
-            $imap->Socket;
-		printf("Info: Assuming PREAUTH for host %s\n",
-		       $imap->Server);
-        }
-	elsif ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Info: host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} 
-	else {
-		printf("Info: host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Info: frequently PLAIN is only supported with SSL, ",
-			  "try --ssl or --tls options\n";
-		}
-	}
-	
-        if ($proxyauth) {
-                $imap->Authmechanism("");
-        } else {
-                $imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN' or $authmech eq 'PREAUTH');
-        }
-
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-	
-
-        if ($proxyauth) {
-                $imap->User($authuser);
-		$imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                $imap->Password($password);
-        } else {
-                $imap->User($user);
-		$imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                $imap->Password($password);
-        }
-
-	unless ($authmech eq 'PREAUTH' or $imap->login()) {
-		my $info  = "Failure: error login [$host] with user [$user] auth";
-		my $einfo = $imap->LastError || @{$imap->History}[-1];
-		chomp($einfo);
-		my $error = "$info [$authmech]: $einfo\n";
-		print $error; # note: duplicating error on stdout/stderr
-		die_clean($error) if ($authmech eq 'LOGIN' or $imap->IsUnconnected() or $authuser);
-		print "Info: trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-		$imap->Authmechanism("");
-		$imap->login() or
-		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n");
-	}
-	$proxyauth && $imap->proxyauth($user);
-	$split and $imap->Split( $split ) ;
-	
-	print "Info: success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap);
-}
-
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	my $banner = $imap->Banner() ||  "No banner\n";
-	return $banner;
- }
-
-
-sub banner_imapsync {
-
-	my @argv_copy = @_;
-	my $banner_imapsync = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.488 $ ',
-		  '$Date: 2012/04/15 17:38:21 $ ',
-		  "\n",localhost_info(), "\n",
-		  "Command line used:\n",
-		  "$0 ", command_line_nopassword(@argv_copy), "\n",
-	);
-}
-
-sub is_valid_directory {
-	my $dir = shift;
-	return(1) if (-d $dir and -r _ and -w _);
-	# Trying to create it
-	mkpath($dir) or die "Error creating tmpdir $tmpdir : $!";
-	die "Error with tmpdir $tmpdir : $!" if not (-d $dir and -r _ and -w _);
-	return(1);
-}
-
-
-sub write_pidfile {
-	my $pidfile = shift;
-	
-	print "PID file is $pidfile\n";
-	if (-e $pidfile) {
-		print "$pidfile already exists, overwriting it\n";
-	}
-	open(PIDFILE, ">$pidfile") or do {
-		print "Could not open $pidfile for writing";
-		return undef;
-	};
-	
-	print PIDFILE $PROCESS_ID;
-	close PIDFILE;
-	return($PROCESS_ID);
-}
-
-sub exit_clean {
-	my $status = shift;
-	$status = defined( $status ) ? $status : 1 ;
-	unlink($pidfile);
-	exit($status);
-}
-
-sub die_clean {
-
-	unlink($pidfile);
-	die @_;
-}
-
-sub missing_option {
-	my ($option) = @_;
-	die_clean("$option option must be used, run $0 --help for help\n");
-}
-
-
-sub select_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->select( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not select: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok select succeeded
-		return( 1 ) ;
-	}
-}
-
-sub examine_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->examine( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not examine: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok examine succeeded
-		return( 1 ) ;
-	}
-}
-
-
-sub create_folder {
-	my( $imap2, $h2_fold, $h1_fold ) = @_ ;
-	
-	print "Creating folder [$h2_fold] on host2\n";
-        if ( ( 'INBOX' eq uc( $h2_fold) )
-         and ( $imap2->exists( $h2_fold ) ) ) {
-                print "Folder [$h2_fold] already exists\n" ;
-                return( 1 ) ;
-        }
-	if ( ! $dry ){
-		if ( ! $imap2->create( $h2_fold ) ) {
-			print( "Couldn't create folder [$h2_fold] from [$h1_fold]: ",
-			$imap2->LastError(  ), "\n" );
-			$nb_errors++;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $imap2->exists( $h2_fold ) ;
-                        # failure since create failed
-			return( 0 );
-		}else{
-			#create succeeded
-			return( 1 );
-		}
-	}else{
-		# dry mode, no folder so many imap will fail, assuming failure
-		return( 0 );
-	}
-}
-
-
-
-sub tests_folder_routines {
-	ok( !is_requested_folder('folder_foo')                                );
-	ok(  add_to_requested_folders('folder_foo')                           );
-	ok(  is_requested_folder('folder_foo')                                );
-	ok( !is_requested_folder('folder_NO_EXIST')                           );
-	ok( !remove_from_requested_folders('folder_foo'), "removed folder_foo");
-	ok( !is_requested_folder('folder_foo')                                );
-	my @f;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f");
-	ok(  is_requested_folder('folder_bar')                                );
-	ok(  is_requested_folder('folder_toto')                               );
-	ok(  remove_from_requested_folders('folder_toto')                     );
-	ok( !is_requested_folder('folder_toto')                               );
-}
-
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	defined( $requested_folder{ $folder } );
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder };
-	}
-	return( keys( %requested_folder ) );
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder};
-	}
-	return( keys(%requested_folder) );
-}
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if ((not defined($list_1_ref)) and not defined($list_2_ref)); # end if no list
-	return(1)  if (not defined($list_2_ref)); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = -1;
-	#print "\$#$list_1_ref:", $#$list_1_ref, "\n";
-	#print "\$#$list_2_ref:", $#$list_2_ref, "\n";
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref);
-	
-	# same size, each element equal
-	return 0
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-	ok(-1 == compare_lists(undef , [1])    , 'compare_lists, undef < [1]');
-	ok(-1 == compare_lists(undef , [0])    , 'compare_lists, undef < [0]');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-
-	ok(-1 == compare_lists([] , [1])        , 'compare_lists, [] < [1]');
-	ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
-
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 0 ,  1 )          , "compare_lists,  0  <  1 ") ;
-	ok(-1 == compare_lists(-1 ,  0 )          , "compare_lists, -1  <  0 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  <  2 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  2  >  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(+1 == compare_lists([2], [1,2])     , "compare_lists, [2] > [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-	ok( 0 == compare_lists([split(" ", "a b")], ["a", "b"]), 'compare_lists, split') ;
-	ok( 0 == compare_lists([sort split(" ", "b a")], ["a", "b"]), 'compare_lists, sort split') ;
-}
-
-
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      help_to_guess_prefix($imap, $prefix_opt);
-		exit_clean(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ( defined( $sep_in ) ) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out) if defined $sep_out;
-		print 
-		  "NAMESPACE request failed for ", 
-		  $imap->Server(), ": ", $imap->LastError, "\n",
-                  help_to_guess_sep( $imap, $sep_opt ) ;
-		exit_clean(1);
-	}
-	else{
-		print
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      help_to_guess_sep($imap, $sep_opt);
-		exit_clean(1);
-	}
-}
-
-sub help_to_guess_sep {
-	my($imap, $sep_opt) = @_;
-	
-	my $help = "Give the separator character with the $sep_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help($imap)
-	. "Most of the time it is character . or /\n"
-	. "so try $sep_opt . or $sep_opt /\n";
-	
-	return($help);
-}
-
-sub help_to_guess_prefix {
-	my($imap, $prefix_opt) = @_;
-		      
-	my $help = "Give the prefix namespace with the $prefix_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help($imap)
-	. "Most of the time it is INBOX. or an empty string\n"
-	. "so try $prefix_opt INBOX. or $prefix_opt ''\n";
-	
-	return($help);
-}
-
-
-sub folders_list_to_help {
-	my($imap) = @_;
-
-	my @folders = $imap->folders;
-	my $listing = join('', map { "[$_]\n" } @folders);
-	return $listing;
-	
-}
-
-sub separator_invert {
-	# The separator we hope we'll never encounter: 00000000
-	my $o_sep="\000";
-
-	my($h1_fold, $h1_sep, $h2_sep) = @_;
-
-	my $h2_fold = $h1_fold;
-	$h2_fold =~ s@\Q$h2_sep@$o_sep@g;
-	$h2_fold =~ s@\Q$h1_sep@$h2_sep@g;
-	$h2_fold =~ s@\Q$o_sep@$h1_sep@g;
-	return($h2_fold);
-}
-
-
-sub tests_imap2_folder_name {
-
-$h1_prefix = $h2_prefix = '';
-$h1_sep = '/';
-$h2_sep = '.';
-
-$debug and print 
-"prefix1: [$h1_prefix]
-prefix2: [$h2_prefix]
-sep1:[$h1_sep]
-sep2:[$h2_sep]
-";
-
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam');
-@regextrans2 = ('s,/,X,g');
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string [s,/,X,g]');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,/,X,g]');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam [s,/,X,g]');
-ok('spamXspam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam [s,/,X,g]');
-ok('spam.spamXspam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam [s,/,X,g]');
-
-@regextrans2 = ('s, ,_,g');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s, ,_,g]');
-ok('bla_bla' eq imap2_folder_name('bla bla'), 'imap2_folder_name: blabla [s, ,_,g]');
-
-@regextrans2 = ('s,(.*),\U$1,');
-ok('BLABLA' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,\U(.*)\E,$1,]');
-
-
-}
-
-sub imap2_folder_name {
-	my ($h2_fold);
-	my ($x_fold) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^\Q$h1_prefix\E//;
-	$debug and print "removed host1 prefix: [$x_fold]\n";
-	$h2_fold = separator_invert($x_fold,$h1_sep, $h2_sep);
-	$debug and print "inverted  separators: [$h2_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$h2_fold = $h2_prefix . $h2_fold 
-	  unless(($h2_prefix eq "INBOX" . $h2_sep) and ($h2_fold =~ m/^INBOX$/i));
-	$debug and print "added   host2 prefix: [$h2_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-	        my $h2_fold_before = $h2_fold;
-		eval("\$h2_fold =~ $regextrans2");
-		$debug and print "[$h2_fold_before] -> [$h2_fold] using re [$regextrans2]\n";
-		die_clean("error: eval regextrans2 '$regextrans2': $@\n") if $@;
-	}
-	return($h2_fold);
-}
-
-
-sub foldersizes {
-
-	my ( $side, $imap, @folders ) = @_ ;
-	my $total_size = 0 ;
-	my $total_nb = 0 ;
-	my $biggest = 0 ;
-	
-	print "++++ Calculating sizes\n" ;
-	foreach my $folder ( @folders )     {
-		my $stot = 0 ;
-		my $nb_msgs = 0 ;
-		printf( "$side folder %-35s", "[$folder]" ) ;
-                if ( 'Host2' eq $side and ! exists( $h2_folders_all{ $folder } ) ) {
-		        print(" does not exist yet\n") ;
-			next ;
-		}
-                if ( 'Host1' eq $side and ! exists( $h1_folders_all{ $folder } ) ) {
-		        print( " does not exist\n" ) ;
-			next ;
-		}
-                
-		unless ( $imap->examine( $folder ) ) {
-			print 
-			  "$side Folder $folder: Could not examine: ",
-			    $imap->LastError,  "\n" ;
-			$nb_errors++ ;
-			next ;
-		}
-		
-		my $hash_ref = { } ;
-		my @msgs = select_msgs( $imap ) ;
-		$nb_msgs = scalar( @msgs ) ;
-		my $smax = 0 ;
-		@$hash_ref{ @msgs } = ( undef ) if @msgs ;
-		if ( $nb_msgs > 0 and @msgs ) {
-			$imap->fetch_hash("RFC822.SIZE",$hash_ref) or die_clean("$@") ;
-			#print map {$hash_ref->{$_}->{"RFC822.SIZE"}, " "} keys %$hash_ref ;
-			map { $stot += $hash_ref->{ $_ }->{ "RFC822.SIZE" } } keys %$hash_ref ;
-			$smax = max( map { $hash_ref->{ $_ }->{ "RFC822.SIZE" } } keys %$hash_ref ) ;
-			$biggest  = max( $biggest, $smax ) ;
-		}
-		
-		printf( " Size: %9s", $stot ) ;
-		printf( " Messages: %5s", $nb_msgs ) ;
-		printf( " Biggest: %9s\n", $smax ) ;
-		$total_size += $stot ;
-		$total_nb += $nb_msgs ;
-	}
-	printf ( "Nb messages:     %11s\n", $total_nb ) ;
-	printf ( "Total size:      %11s bytes\n", $total_size ) ;
-	printf ( "Biggest message: %11s bytes\n", $biggest ) ;
-	printf ( "Time:            %11s seconds\n", timenext(  ) ) ;
-}
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-
-sub tests_flags_regex {
-	
-	my $string;
-	ok('' eq flags_regex(''), "flags_regex, null string ''");
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, nothing to do');
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex,');
-	@regexflag = ('s/NonJunk//g');
-	ok('\Seen  $Spam' eq flags_regex('\Seen NonJunk $Spam'), "flags_regex, remove NonJunk: 's/NonJunk//g'");
-	@regexflag = ('s/\$Spam//g');
-	ok('\Seen NonJunk ' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove $Spam: '."'s/\$Spam//g'");
-	
-	@regexflag = ('s/\\\\Seen//g');
-	
-	ok(' NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove \Seen: '. "'s/\\\\\\\\Seen//g'");
-	
-	@regexflag = ('s/(\s|^)[^\\\\]\w+//g');
-	ok('\Seen \Middle \End' eq flags_regex('\Seen NonJunk \Middle $Spam \End'), 'flags_regex, only \word [' . flags_regex('\Seen NonJunk \Middle $Spam \End'.']'));
-	ok(' \Seen \Middle \End1' eq flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'), 'flags_regex, only \word [' . flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'.']'));
-
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g');
-	ok('Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), "Keep only regex");
-	#ok('Keep1 Keep2' eq flags_regex('Keep1 Keep2 Remove1'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM REM Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM REM  Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM Keep1'), "Keep only regex");
-
-	@regexflag = ('s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 ReB'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 REM REM  REM'), "Keep only regex");
-	ok('Keep2 ' eq flags_regex('Keep2 REM REM  REM'), "Keep only regex");
-	#ok('' eq flags_regex('REM REM'), "Keep only regex");
-	
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g', 
-	's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	
-	@regexflag = ('s/(.*)/$1 jrdH8u/');
-	ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), "Keep only regex 's/(.*)/\$1 jrdH8u/'");	
-	@regexflag = ('s/jrdH8u *//');
-	ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), "Keep only regex s/jrdH8u *//");	
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(Keep1|Keep2|Keep3|jrdH8u)/$1 /g', 
-	's/(Keep1|Keep2|Keep3|jrdH8u) (?!(Keep1|Keep2|Keep3|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex 'REM Keep1 REM Keep2 REM'");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	ok('' eq flags_regex('REM  REM REM REM REM'), "Keep only regex");
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)/$1 /g', 
-	's/(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u) (?!(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla $Junk \\Deleted machin \\Answered truc'), "Keep only regex: Exchange case");
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string");
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), "Keep only regex: Exchange case, no accepted flags ");
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), "Keep only regex: Exchange case");
-	
-	
-	@regexflag = (
-	's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string (Phil)");
-	
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), 
-	"Keep only regex: Exchange case, no accepted flags (Phil)");
-	
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	
-}
-
-sub flags_regex {
-	my ($h1_flags) = @_;
-	foreach my $regexflag (@regexflag) {
-		my $h1_flags_orig = $h1_flags;
-		$debugflags and print "eval \$h1_flags =~ $regexflag\n";
-		eval("\$h1_flags =~ $regexflag");
-		die_clean("error: eval regexflag '$regexflag': $@\n") if $@;
-		$debugflags and print "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n";
-	}
-	return($h1_flags);
-}
-
-sub acls_sync {
-	my($h1_fold, $h2_fold) = @_;
-	if ($syncacls) {
-		my $h1_hash = $imap1->getacl($h1_fold)
-		  or print "Could not getacl for $h1_fold: $@\n";
-		my $h2_hash = $imap2->getacl($h2_fold)
-		  or print "Could not getacl for $h2_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$h1_hash), keys(%$h2_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $h1_hash->{$user} || "none";
-			print "acl $user: [$acl]\n";
-			next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-				 $h1_hash->{$user} eq $h2_hash->{$user});
-			unless ($dry) {
-				print "setting acl $h2_fold $user $acl\n";
-				$imap2->setacl($h2_fold, $user, $acl)
-				  or print "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-sub tests_permanentflags {
-	
-	my $string;
-	ok('' eq permanentflags(' * OK [PERMANENTFLAGS (\* \Draft \Answered)] Limited'), 
-	   'permanentflags \*');
-	ok('\Draft \Answered' eq permanentflags(' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited'), 
-	   'permanentflags \Draft \Answered');
-	ok('\Draft \Answered' 
-	   eq permanentflags('Blabla', 
-	                     ' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited',
-			     'Blabla'),
-	   'permanentflags \Draft \Answered'
-	);
-	ok('' eq permanentflags('Blabla'), 'permanentflags nothing');
-}
-
-sub permanentflags {
-	my @lines = @_ ;
-
-	foreach my $line (@lines) {
-		if ( $line =~ m{\[PERMANENTFLAGS \(([^)]+?)\)\]} ) {
-			( $debugflags or $debug ) and print "permanentflags: $line" ;
-			my $permanentflags = $1 ;
-			if ( $permanentflags =~ m{\\\*} ) {
-				$permanentflags = '' ;
-			}
-			return($permanentflags) ;
-		};
-	}
-}
-
-sub tests_flags_filter {
-
-	ok( '\Seen' eq flags_filter('\Seen', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '' eq flags_filter('\Seen', '\Draft  \Answered'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', '\Seen'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', ' \Seen '), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', ' \Draft \Seen \Answered '), 'flags_filter ' );
-
-}
-
-sub flags_filter {
-	my($flags, $allowed_flags) = @_;
-	
-	my @flags = split(/\s+/, $flags);
-	my %allowed_flags = map { $_ => 1 } split(' ', $allowed_flags );
-	my @flags_out     = map { exists $allowed_flags{$_} ? $_ : () } @flags;
-
-	my $flags_out = join(' ', @flags_out);
-	#print "%%%$flags_out%%%\n";
-	return($flags_out);
-}
-
-sub flagsCase {
-	my $flags = shift ;
-	
-	my @flags = split( /\s+/, $flags );
-	my %rfc_flags = map { $_ => 1 } split(' ', '\Answered \Flagged \Deleted \Seen \Draft' );
-	my @flags_out = map { exists $rfc_flags{ ucsecond( lc( $_ ) ) } ? ucsecond( lc( $_ ) ) : $_ } @flags ;
-
-	my $flags_out = join( ' ', @flags_out ) ;
-	#print "%%%$flags_out%%%\n" ;
-	return( $flags_out ) ;
-}
-
-sub tests_flagsCase {
-	ok( '\Seen' eq flagsCase( '\Seen' ), 'flagsCase: \Seen -> \Seen' ) ;
-	ok( '\Seen' eq flagsCase( '\SEEN' ), 'flagsCase: \SEEN -> \Seen' ) ;
-
-	ok( '\Seen \Draft' eq flagsCase( '\SEEN \DRAFT' ), 'flagsCase: \SEEN \DRAFT -> \Seen \Draft' ) ;
-	ok( '\Draft \Seen' eq flagsCase( '\DRAFT \SEEN' ), 'flagsCase: \DRAFT \SEEN -> \Draft \Seen' ) ;
-	
-	ok( '\Draft LALA \Seen' eq flagsCase( '\DRAFT  LALA \SEEN' ), 'flagsCase: \DRAFT  LALA \SEEN -> \Draft LALA \Seen' ) ;
-	ok( '\Draft lala \Seen' eq flagsCase( '\DRAFT  lala \SEEN' ), 'flagsCase: \DRAFT  lala \SEEN -> \Draft lala \Seen' ) ;
-}
-
-sub ucsecond {
-	my $string = shift ;
-	my $output ;
-	
-	return( $string )  if ( 1 >= length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) if ( 2 == length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) . substr( $string, 2 );
-	#print "UUU $string -> $output\n" ;
-	return( $output ) ;
-}
-
-
-sub tests_ucsecond {
-	ok( 'aBcde' eq ucsecond( 'abcde' ), 'ucsecond: abcde -> aBcde' ) ;
-	ok( 'ABCDE' eq ucsecond( 'ABCDE' ), 'ucsecond: ABCDE -> ABCDE'  ) ;
-	ok( 'ABCDE' eq ucsecond( 'AbCDE' ), 'ucsecond: AbCDE -> ABCDE'  ) ;
-	ok( 'ABCde' eq ucsecond( 'AbCde' ), 'ucsecond: AbCde -> ABCde'  ) ;
-	ok( 'A'     eq ucsecond( 'A' ),     'ucsecond: A  -> A'  ) ;
-	ok( 'AB'    eq ucsecond( 'Ab' ),    'ucsecond: Ab -> AB' ) ;
-	ok( '\B'    eq ucsecond( '\b' ),    'ucsecond: \b -> \B' ) ;
-	ok( '\Bcde' eq ucsecond( '\bcde' ), 'ucsecond: \bcde -> \Bcde' ) ;
-}
-
-sub select_msgs {
-	my ( $imap, $msgs_all_hash_ref ) = @_ ;
-	my ( @msgs, @msgs_all, @max, @min, @union, @inter ) ;
-	
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-	if ( defined( $msgs_all_hash_ref ) 
-        or ( ! defined( $maxage ) and ! defined( $minage ) and ! defined( $search ) )
-        ) {
-		@msgs = $imap->messages() ;
-                if ( defined( $msgs_all_hash_ref ) ) {
-                        @msgs_all = @msgs ;
-                        @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-                }
-                # return all messages
-                if ( ! defined( $maxage ) and ! defined( $minage ) and ! defined( $search ) ) {
-                        return( @msgs ) ;
-                }
-	}
-        
-        if ( defined( $search ) ) {
-        	@msgs = $imap->search( $search ) ;
-                return( @msgs ) ;
-        }
-        
-	if ( defined( $maxage ) ) {
-		@max = $imap->sentsince( $timestart - 86400 * $maxage ) ;
-	}
-	if ( defined($minage ) ) {
-		@min = $imap->sentbefore( $timestart - 86400 * $minage ) ;
-	}
-      SWITCH: {
-		unless( defined( $minage ) ) { @msgs = @max ; last SWITCH } ;
-		unless( defined( $maxage ) ) { @msgs = @min ; last SWITCH } ;
-		my ( %union, %inter ) ; 
-		foreach my $m ( @min, @max ) { $union{$m}++ && $inter{$m}++ }
-		@inter = keys( %inter ) ;
-		@union = keys( %union ) ;
-		# normal case
-		if ( $minage <= $maxage )  { @msgs = @inter ; last SWITCH } ;
-		# just exclude messages between
-		if ( $minage > $maxage )  { @msgs = @union ; last SWITCH } ;
-		
-	}
-	return(@msgs);
-}
-
-
-sub lastuid {
-	my $imap   = shift ;
-	my $folder = shift ;
-	my $lastuid_guess  = shift ;
-	my $lastuid ;
-	
-	# rfc3501: The only reliable way to identify recent messages is to
-	#          look at message flags to see which have the \Recent flag
-	#          set, or to do a SEARCH RECENT.
-	# SEARCH RECENT doesn't work this way on courrier.
-
-	my @recent_messages ;
-	# SEARCH RECENT for each transfer can be expensive with a big folder
-	# Call commented for now
-	#@recent_messages = $imap->recent(  ) ;
-	#print "Recent: @recent_messages\n";
-	
-	my $max_recent ;
-	$max_recent = max( @recent_messages ) ;
-	 
-	if ( defined( $max_recent ) and ($lastuid_guess <= $max_recent ) ) {
-		$lastuid = $max_recent ;
-	}else{
-		$lastuid = $lastuid_guess
-	}
-	return( $lastuid ) ;
-}
-
-sub size_filtered {
-	my( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) = @_ ;
-	
-        $h1_size = 0 if ( ! $h1_size ) ; # null if empty or undef
-	if (defined $maxsize and $h1_size >= $maxsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size exceeds maxsize limit $maxsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size smaller than minsize $minsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub message_exists {
-
-	my( $imap, $msg ) = @_ ;
-	return( 1 ) if not $imap->Uid(  ) ;
-        
-	my $search ;
-        ( $search ) = $imap->search( "UID $msg" ) ;
-        #print "$search ? $msg\n" ;
-        return( 1 ) if ( $search eq $msg ) ;
-        return( 0 ) ;
-
-}
-
-sub copy_message {
-	# copy
-	
-	my ( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) = @_ ;
-	$debug and print "msg $h1_fold/$h1_msg copying to $h2_fold\n";
-
-	my $h1_size  = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} || '' ;
-	my $h1_flags = $h1_fir_ref->{$h1_msg}->{"FLAGS"} || '' ;
-	my $h1_idate = $h1_fir_ref->{$h1_msg}->{"INTERNALDATE"} || '' ;
-	
-	return() if size_filtered( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) ;
-	
-	my $string;
-	do { print "SLEEP 5\n" and sleep 5 ; } if ( $debugsleep ) ;
-	print "- msg $h1_fold/$h1_msg S[$h1_size] F[$h1_flags] I[$h1_idate] has RFC822.SIZE null!\n" if ( ! $h1_size ) ;
-
-	return(  ) if not message_exists( $imap1, $h1_msg ) ;
-	$string = $imap1->message_string($h1_msg);
-	
-	
-	my $string_len = defined( $string ) ? length( $string ) : '' ; # length or undef
-	#print "- msg $h1_fold/$h1_msg {$string_len}\n" ;
-	unless ( defined( $string ) and $string_len ) { # undef or 0 length
-		print
-		"- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate] could not be fetched: ",
-		$imap1->LastError, "\n" ;
-		$nb_errors++ ;
-		$total_bytes_error += $h1_size if ( $h1_size ) ;
-		#relogin1(  ) if ( $relogin1 ) ;
-		return(  ) ;
-	}
-	
-	if (@regexmess) {
-		$string = regexmess($string);
-	}
-
-	$debugcontent and print 
-		"=" x80, "\n", 
-		"F message content begin next line\n",
-		$string,
-		"F message content ended on previous line\n", "=" x 80, "\n";
-	my $h1_date = "";
-	if ($syncinternaldates) {
-		$h1_date = $h1_idate;
-		$debug and print "internal date from host1: [$h1_date]\n";
-		$h1_date = good_date($h1_date);
-		$debug and print "internal date from host1: [$h1_date] (fixed)\n";
-	}
-	
-	if ($idatefromheader) {
-		
-		$h1_date = $imap1->get_header($h1_msg,"Date");
-		$debug and print "header date from host1: [$h1_date]\n";
-		$h1_date = good_date($h1_date);
-		$debug and print "header date from host1: [$h1_date] (fixed)\n";
-	}
-
-        if ( $addheader and defined $h1_fir_ref->{$h1_msg}->{"NO_HEADER"} ) {
-                my $header = add_header( $h1_msg ) ;
-                $debug and print "msg $h1_fold/$h1_msg adding custom header [$header]\n" ;
-                $string = $header . "\r\n" . $string ;
-        }
-	# RFC 2060: This flag can not be altered by any client
-	$h1_flags =~ s@\\Recent\s?@@gi;
-	$h1_flags = flags_regex($h1_flags) if @regexflag;
-	$h1_flags = flagsCase( $h1_flags ) if $flagsCase ;
-	$h1_flags = flags_filter($h1_flags, $permanentflags2) if ($permanentflags2);
-	
-	my $new_id;
-	$debug and print "msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n";
-	$h1_date = undef if ($h1_date eq "");
-	
-	unless ($dry) {
-		$max_msg_size_in_bytes = max($h1_size, $max_msg_size_in_bytes);
-		$new_id = $imap2->append_string($h2_fold, $string, $h1_flags, $h1_date);
-		unless($new_id){
-			no warnings 'uninitialized';
-			print "- msg $h1_fold/$h1_msg {$string_len} couldn't append  (Subject:[".
-			  $imap1->subject($h1_msg)."]) to folder $h2_fold: ",
-			  $imap2->LastError, "\n";
-			$nb_errors++;
-			$total_bytes_error += $h1_size;
-			return(  ) ;
-		}
-		else{
-			# good
-			# $new_id is an id if the IMAP server has the 
-			# UIDPLUS capability else just a ref
-			if ( $new_id !~ m{^\d+$} ) {
-				$new_id = lastuid( $imap2, $h2_fold, $h2_uidguess ) ;
-			}
-			printf( "msg %s/%-19s copied to %s/%-10s\n", $h1_fold, "$h1_msg {$string_len}", $h2_fold, $new_id );
-			$h2_uidguess += 1 ;
-			$total_bytes_transferred += $h1_size;
-			$nb_msg_transferred += 1;
-			$debugcache and print "touch $cache_dir/${h1_msg}_$new_id\n"  if ( $usecache and $cacheaftercopy and $new_id =~ m{^\d+$} ) ;
-			touch( "$cache_dir/${h1_msg}_$new_id" ) if ( $usecache and $cacheaftercopy and $new_id =~ m{^\d+$} ) ;
-			if ( $delete ) {
-				print "msg $h1_fold/$h1_msg deleted on host1\n";
-				unless($dry) {
-					$imap1->delete_message($h1_msg);
-					$h1_nb_msg_deleted += 1;
-					$imap1->expunge() if ( $expunge or $expunge1 );
-				}
-			}
-			#print "PRESS ENTER" and my $a = <> ;
-		}
-	}
-	else{
-		$nb_msg_skipped_dry_mode += 1;
-	}
-	return(  );
-}
-
-
-sub cache_map {
-	my ( $cache_files_ref, $h1_msgs_ref, $h2_msgs_ref ) = @_;
-	my ( %map1_2, %map2_1, %done2 ) ;
-	
-	my $h1_msgs_hash_ref = {  } ;
-	my $h2_msgs_hash_ref = {  } ;
-	
-	@$h1_msgs_hash_ref{ @$h1_msgs_ref } = (  ) ;
-	@$h2_msgs_hash_ref{ @$h2_msgs_ref } = (  ) ;
-	
-	foreach my $file ( sort @$cache_files_ref ) {
-		$debugcache and print "C12: $file\n" ;
-		( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-		
-		if (  exists( $h1_msgs_hash_ref->{ defined( $uid1 ) ? $uid1 : q{} } ) 
-		  and exists( $h2_msgs_hash_ref->{ defined( $uid2 ) ? $uid2 : q{} } ) ) {
-		  	# keep only the greatest uid2 
-			# 130_2301 and
-			# 130_231  => keep only 130 -> 2301
-			
-			# keep only the greatest uid1
-			# 1601_260 and
-			#  161_260 => keep only 1601 -> 260
-		  	my $max_uid2 = max( $uid2, $map1_2{ $uid1 } || -1 ) ;
-			if ( exists( $done2{ $max_uid2 } ) ) {
-				if ( $done2{ $max_uid2 } < $uid1 )  {
-					$map1_2{ $uid1 } = $max_uid2 ;
-					delete( $map1_2{ $done2{ $max_uid2 } } ) ;
-					$done2{ $max_uid2 } = $uid1 ;
-				}
-			}else{
-				$map1_2{ $uid1 } = $max_uid2 ;
-				$done2{ $max_uid2 } = $uid1 ;
-			}
-		};
-		
-	}
-	%map2_1 = reverse( %map1_2 ) ;
-	return( \%map1_2, \%map2_1) ;
-}
-
-sub tests_cache_map {
-	#$debugcache = 1 ;
-	my @cache_files = qw (
-	100_200
-	101_201
-	120_220
-	142_242
-	143_243
-	177_277
-	177_278
-	177_279
-	155_255
-	180_280
-	181_280
-	182_280
-	130_231
-	130_2301
-	161_260
-	1601_260
-	) ;
-	
-	my $msgs_1 = [120, 142, 143, 144, 161, 1601,           177,      182, 130 ];
-	my $msgs_2 = [     242, 243,       260,      299, 377, 279, 255, 280, 231, 2301 ];
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = cache_map( \@cache_files, $msgs_1, $msgs_2 ), 'cache_map: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 130, 142, 143,      177, 182, 1601      ], $a1 ), 'cache_map: 03' );
-	ok( 0 == compare_lists( [      242, 243, 260, 279, 280,      2301 ], $a2 ), 'cache_map: 04' );
-	ok( ! $c12->{161},        'cache_map: ! 161 ->  260' );
-	ok( 260  == $c12->{1601}, 'cache_map:  1601 ->  260' );
-	ok( 2301 == $c12->{130},  'cache_map:   130 -> 2301' );
-	#print $c12->{1601}, "\n";
-
-}
-
-
-sub get_cache { 
-	$debugcache and print "Entering get_cache\n";
-	my ( $cache_dir, $h1_msgs_ref, $h2_msgs_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) = @_;
-
-	-d $cache_dir or return( undef ); # exit if cache directory doesn't exist
-	$debugcache and print "cache_dir    : $cache_dir\n";
-	
-	#$cache_dir =~ s{\\}{\\\\}g;
-        $cache_dir =~ s/([;<>\*\|`&\$!#\(\)\[\]\{\}:'"\\])/\\$1/g ;
-
-	$debugcache and print "cache_dir fix: $cache_dir\n";
-        
-	my @cache_files = bsd_glob( "$cache_dir/*" ) ;
-	#$debugcache and print "cache_files: [@cache_files]\n";
-	
-	my( $cache_1_2_ref, $cache_2_1_ref ) 
-	  = cache_map( \@cache_files, $h1_msgs_ref, $h2_msgs_ref ) ;
-	
-	clean_cache( \@cache_files, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-	
-	#print "\n", map { "c12 $_ -> $cache_1_2_ref->{ $_ }\n" } keys %$cache_1_2_ref ;
-	#print "\n", map { "c21 $_ -> $cache_2_1_ref->{ $_ }\n" } keys %$cache_2_1_ref ;
-
-	$debugcache and print "Exiting get_cache\n";
-	return ( $cache_1_2_ref, $cache_2_1_ref ) ;
-}
-
-
-sub tests_get_cache {
-	
-	ok( ! get_cache('/cache_no_exist'), 'get_cache: /cache_no_exist' );
-	ok( ( ! -d 'tmp/cache/F1/F2' or rmtree( 'tmp/cache/F1/F2' )), 'get_cache: rmtree tmp/cache/F1/F2' ) ;
-	ok( mkpath( 'tmp/cache/F1/F2' ), 'get_cache: mkpath tmp/cache/F1/F2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	tmp/cache/F1/F2/100_200
-	tmp/cache/F1/F2/101_201
-	tmp/cache/F1/F2/120_220
-	tmp/cache/F1/F2/142_242
-	tmp/cache/F1/F2/143_243
-	tmp/cache/F1/F2/177_277
-	tmp/cache/F1/F2/177_377
-	tmp/cache/F1/F2/177_777
-	tmp/cache/F1/F2/155_255
-	) ) ;
-	ok( touch( @test_files_cache ), 'get_cache: touch tmp/cache/F1/F2/...' ) ;
-	
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	my $msgs_1 = [120, 142, 143, 144,          177      ];
-	my $msgs_2 = [     242, 243,     299, 377, 777, 255 ];
-        
-        my $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        my $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = get_cache( 'tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: 04' );
-	ok( -f 'tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'tmp/cache/F1/F2/100_200', 'get_cache: file removed 100_200');
-	ok( ! -f 'tmp/cache/F1/F2/101_201', 'get_cache: file removed 101_201');
-	
-	# test clean_cache executed
-	$maxage = 2 ;
-	ok( touch(@test_files_cache), 'get_cache: touch tmp/cache/F1/F2/...' ) ;
-	ok( ( $c12, $c21 ) = get_cache('tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	ok( -f 'tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'tmp/cache/F1/F2/100_200', 'get_cache: file NOT removed 100_200');
-	ok( ! -f 'tmp/cache/F1/F2/101_201', 'get_cache: file NOT removed 101_201');
-	
-	
-	# strange files
-	#$debugcache = 1 ;
-	$maxage = undef ;
-	ok( ( ! -d 'tmp/cache/rr\uee' or rmtree( 'tmp/cache/rr\uee' )), 'get_cache: rmtree tmp/cache/rr\uee' ) ;
-	ok( mkpath( 'tmp/cache/rr\uee' ), 'get_cache: mkpath tmp/cache/rr\uee' ) ;
-	
-	@test_files_cache = ( qw( 
-	tmp/cache/rr\uee/100_200
-	tmp/cache/rr\uee/101_201
-	tmp/cache/rr\uee/120_220
-	tmp/cache/rr\uee/142_242
-	tmp/cache/rr\uee/143_243
-	tmp/cache/rr\uee/177_277
-	tmp/cache/rr\uee/177_377
-	tmp/cache/rr\uee/177_777
-	tmp/cache/rr\uee/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'get_cache: touch strange tmp/cache/...' ) ;
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	$msgs_1 = [120, 142, 143, 144,  	177	 ];
-	$msgs_2 = [	242, 243,     299, 377, 777, 255 ];
-	
-        $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-        
-	ok( ( $c12, $c21 ) = get_cache('tmp/cache/rr\uee', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2), 'get_cache: strange path 02' );
-	$a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	$a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: strange path 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: strange path 04' );
-	ok( -f 'tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 142_242');
-	ok( -f 'tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 143_243');
-	ok( ! -f 'tmp/cache/rr\uee/100_200', 'get_cache: strange path file removed 100_200');
-	ok( ! -f 'tmp/cache/rr\uee/101_201', 'get_cache: strange path file removed 101_201');
-	
-
-}
-
-sub match_a_cache_file {
-	my $file = shift ;
-	my ( $uid1, $uid2 ) ;
-	
-	return( ( undef, undef ) ) if ( ! $file ) ;
-	if ( $file =~ m{(?:^|/)(\d+)_(\d+)$} ) {
-		$uid1 = $1 ;
-		$uid2 = $2 ;
-	}
-	return( $uid1, $uid2 ) ;
-}
-
-sub tests_match_a_cache_file {
-	my ( $uid1, $uid2 ) ;
-	ok( ( $uid1, $uid2 ) = match_a_cache_file(  ), 'match_a_cache_file: no arg' ) ;
-	ok( ! defined( $uid1 ), 'match_a_cache_file: no arg 1' ) ;
-	ok( ! defined( $uid2 ), 'match_a_cache_file: no arg 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '' ), 'match_a_cache_file: empty arg' ) ;
-	ok( ! defined( $uid1 ), 'match_a_cache_file: empty arg 1' ) ;
-	ok( ! defined( $uid2 ), 'match_a_cache_file: empty arg 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '000_000' ), 'match_a_cache_file: 000_000' ) ;
-	ok( '000' eq $uid1, 'match_a_cache_file: 000_000 1' ) ;
-	ok( '000' eq $uid2, 'match_a_cache_file: 000_000 2' ) ;
-	
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '123_456' ), 'match_a_cache_file: 123_456' ) ;
-	ok( '123' eq $uid1, 'match_a_cache_file: 123_456 1' ) ;
-	ok( '456' eq $uid2, 'match_a_cache_file: 123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '/tmp/truc/123_456' ), 'match_a_cache_file: /tmp/truc/123_456' ) ;
-	ok( '123' eq $uid1, 'match_a_cache_file: /tmp/truc/123_456 1' ) ;
-	ok( '456' eq $uid2, 'match_a_cache_file: /tmp/truc/123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( '/lala123_456' ), 'match_a_cache_file: NO /lala123_456' ) ;
-	ok( ! $uid1, 'match_a_cache_file: /lala123_456 1' ) ;
-	ok( ! $uid2, 'match_a_cache_file: /lala123_456 2' ) ;
-
-	ok( ( $uid1, $uid2 ) = match_a_cache_file( 'la123_456' ), 'match_a_cache_file: NO la123_456' ) ;
-	ok( ! $uid1, 'match_a_cache_file: la123_456 1' ) ;
-	ok( ! $uid2, 'match_a_cache_file: la123_456 2' ) ;
-
-	
-}
-
-sub clean_cache {
-	my ( $cache_files_ref, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref )  = @_ ;
-	
-	$debugcache and print "Entering clean_cache\n";
-	
-	$debugcache and print map { "$_ -> " . $cache_1_2_ref->{ $_ } . "\n" } keys %$cache_1_2_ref ;
-	foreach my $file ( @$cache_files_ref ) {
-		$debugcache and print "$file\n" ;
-		my ( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-		$debugcache and print "u1: $uid1 u2: $uid2 c12: ", $cache_1_2_ref->{ $uid1 } || '', "\n" ;
-#		  or ( ! exists( $cache_1_2_ref->{ $uid1 } ) )
-#		  or ( ! ( $uid2 == $cache_1_2_ref->{ $uid1 } ) )
-		if ( ( ! defined( $uid1 ) )
-		  or ( ! defined( $uid2 ) )
-                  or ( ! exists( $h1_msgs_all_hash_ref->{ $uid1 } ) )
-                  or ( ! exists( $h2_msgs_all_hash_ref->{ $uid2 } ) )
-                ) {
-			$debugcache and print "remove $file\n" ;
-			unlink( $file ) or print "$!" ;
-		}
-	}
-	
-	$debugcache and print "Exiting clean_cache\n";
-	return( 1 ) ;
-}
-
-sub tests_clean_cache {
-
-	ok( ( ! -d  'tmp/cache/G1/G2' or rmtree( 'tmp/cache/G1/G2' )), 'clean_cache: rmtree tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'tmp/cache/G1/G2' ), 'clean_cache: mkpath tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	tmp/cache/G1/G2/100_200
-	tmp/cache/G1/G2/101_201
-	tmp/cache/G1/G2/120_220
-	tmp/cache/G1/G2/142_242
-	tmp/cache/G1/G2/143_243
-	tmp/cache/G1/G2/177_277
-	tmp/cache/G1/G2/177_377
-	tmp/cache/G1/G2/177_777
-	tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache: touch tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 before' );
-	ok( -f 'tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 before' );
-	ok( -f 'tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 before' );
-	ok( -f 'tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 before' );
-	ok( -f 'tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 before' );
-	ok( -f 'tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache: ' ) ;
-	
-	ok( ! -f 'tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 after' );
-	ok(   -f 'tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 after' );
-	ok( ! -f 'tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 after' );
-	ok( ! -f 'tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 after' );
-	ok(   -f 'tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 after' );
-	ok( ! -f 'tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 after' );
-}
-
-sub tests_clean_cache_2 {
-
-	ok( ( ! -d  'tmp/cache/G1/G2' or rmtree( 'tmp/cache/G1/G2' )), 'clean_cache_2: rmtree tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'tmp/cache/G1/G2' ), 'clean_cache_2: mkpath tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	tmp/cache/G1/G2/100_200
-	tmp/cache/G1/G2/101_201
-	tmp/cache/G1/G2/120_220
-	tmp/cache/G1/G2/142_242
-	tmp/cache/G1/G2/143_243
-	tmp/cache/G1/G2/177_277
-	tmp/cache/G1/G2/177_377
-	tmp/cache/G1/G2/177_777
-	tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache_2: touch tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 before' );
-	ok( -f 'tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 before' );
-	ok( -f 'tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 before' );
-	ok( -f 'tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 before' );
-	ok( -f 'tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 before' );
-	ok( -f 'tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                100 => '',
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-        
-        
-        
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache_2: ' ) ;
-	
-	ok(   -f 'tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 after' );
-	ok(   -f 'tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 after' );
-	ok( ! -f 'tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 after' );
-	ok( ! -f 'tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 after' );
-	ok(   -f 'tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 after' );
-	ok( ! -f 'tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 after' );
-}
-
-
-sub tests_touch {
-
-	ok( (-d 'tmp/tests/' or  mkpath( 'tmp/tests/' )), 'tests_touch: mkpath tmp/tests/' ) ;
-	ok( 1 == touch( 'tmp/tests/lala'), 'tests_touch: tmp/tests/lala') ;
-	ok( 1 == touch( 'tmp/tests/\y'), 'tests_touch: tmp/tests/\y') ;
-	ok( 0 == touch( '/aaa'), 'tests_touch: not /aaa') ;
-	ok( 2 == touch( 'tmp/tests/lili', 'tmp/tests/lolo'), 'tests_touch: 2 files') ;
-	ok( 1 == touch( 'tmp/tests/\y', '/aaa'), 'tests_touch: 2 files, 1 fails' ) ;
-
-}
-
-sub tests_mkpath {
-
-        my $long_path = "123456789/" x 30 ;
-	ok( (-d "tmp/tests/long/$long_path" or  mkpath( "tmp/tests/long/$long_path" )), 'tests_mkpath: mkpath > 300 char' ) ;
-	ok( (-d "tmp/tests/long/$long_path" and rmtree( "tmp/tests/long/" )),           'tests_mkpath: rmtree > 300 char' ) ;
-        ok( 1 == 1, 'tests_mkpath: 1 == 1' ) ;
-}
-
-sub touch {
-	my @files = @_ ;
-	my @result;
-	
-	foreach my $file ( @files ) {
-		my  $fh = new IO::File ;
-		if ($fh->open(">> $file")) {
-			$fh->close ;
-			push(@result, $file) ;
-		}
-	}
-	return(@result);
-}
-
-sub cache_folder {
-	my( $cache_dir, $h1_fold, $h2_fold ) = @_ ;
-	
-	#print "sep1 $h1_sep sep2 $h2_sep\n";
-	my $sep1 = $h1_sep || '/';
-	my $sep2 = $h2_sep || '/';
-	
-	my $h1_fold_slash = convert_sep_to_slash( $h1_fold, $sep1 );
-	my $h2_fold_slash = convert_sep_to_slash( $h2_fold, $sep2 );
-	
-	return( "$cache_dir/$h1_fold_slash/$h2_fold_slash" ) ;
-        
-        
-}
-
-sub convert_sep_to_slash {
-	my ($folder, $sep) = @_;
-	
-	$folder =~ s{\Q$sep\E}{/}g;
-	return($folder);
-}
-
-sub tests_convert_sep_to_slash {
-
-	ok('' eq convert_sep_to_slash('', '/'), 'convert_sep_to_slash: no folder');
-	ok('INBOX' eq convert_sep_to_slash('INBOX', '/'), 'convert_sep_to_slash: INBOX');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX/foo', '/'), 'convert_sep_to_slash: INBOX/foo');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX_foo', '_'), 'convert_sep_to_slash: INBOX_foo');
-	ok('INBOX/foo/zob' eq convert_sep_to_slash('INBOX_foo_zob', '_'), 'convert_sep_to_slash: INBOX_foo_zob');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX.foo', '.'), 'convert_sep_to_slash: INBOX.foo');
-	ok('INBOX/foo/hi' eq convert_sep_to_slash('INBOX.foo.hi', '.'), 'convert_sep_to_slash: INBOX.foo.hi');
-}
-
-
-sub tests_regexmess {
-	
-	ok("blabla" eq regexmess("blabla"), "regexmess, no regexmess, nothing to do");
-	
-	@regexmess = ('s/p/Z/g');
-	ok("ZoZoZo" eq regexmess("popopo"), "regexmess, s/p/Z/g");
-	
-	@regexmess = 's{c}{C}gxms';
-	ok("H1: abC\nH2: Cde\n\nBody abC" 
-		   eq regexmess("H1: abc\nH2: cde\n\nBody abc"), 
-	   "regexmess, c->C");
-	   
-	@regexmess = 's{\AFrom\ }{From:}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 add colon blank');
-	
-	ok(          'From:<tartanpion@machin.truc>' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 add colo');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 add colo');
-	
-	ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 add colo');
-	
-	@regexmess = 's{\AFrom\ [^\n]*(\n)?}{}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 remove, blank');
-	
-	ok(          '' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 remove');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 remove');
-	
-	#print "[", regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'), "]";
-	ok(          ""            . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 remove');
-	
-
-	ok(
-'Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-	eq regexmess(
-'From  zzz
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-	),
-	'From mbox 5 remove');
-}
-
-sub regexmess {
-	my ($string) = @_;
-	foreach my $regexmess (@regexmess) {
-		$debug and print "eval \$string =~ $regexmess\n";
-		eval("\$string =~ $regexmess");
-		die_clean("error: eval regexmess '$regexmess': $@\n") if $@;
-	}
-	return($string);
-}
-
-sub stats {
-	$timeend = time();
-	$timediff = $timeend - $timestart;
-
-	my $timestart_str = localtime( $timestart ) ;
-	my $timeend_str   = localtime( $timeend ) ;
-        
-	my $memory_consumption = memory_consumption(  ) || 0 ;
-	my $memory_ratio = ($max_msg_size_in_bytes) ?  
-		sprintf('%.1f', $memory_consumption / $max_msg_size_in_bytes) : "NA";
-
-	my $host1_reconnect_count = $imap1->Reconnect_counter() || 0;
-	my $host2_reconnect_count = $imap2->Reconnect_counter() || 0;
-
-	print   "++++ Statistics\n";
-	print   "Transfer started on               : $timestart_str\n";
-	print   "Transfer ended on                 : $timeend_str\n";
-	print   "Transfer time                     : $timediff sec\n";
-	print   "Messages transferred              : $nb_msg_transferred ";
-	print   "(could be $nb_msg_skipped_dry_mode without dry mode)" if ($dry);
-	print   "\n";
-	print   "Messages skipped                  : $nb_msg_skipped\n";
-	print   "Messages found duplicate on host1 : $h1_nb_msg_duplicate\n";
-	print   "Messages found duplicate on host2 : $h2_nb_msg_duplicate\n";
-	print   "Messages void (noheader) on host1 : $h1_nb_msg_noheader\n";
-	print   "Messages void (noheader) on host2 : $h2_nb_msg_noheader\n";
-	print   "Messages deleted on host1         : $h1_nb_msg_deleted\n";
-	print   "Messages deleted on host2         : $h2_nb_msg_deleted\n";
-	print   "Total bytes transferred           : $total_bytes_transferred\n";
-	print   "Total bytes duplicate host1       : $h1_total_bytes_duplicate\n";
-	print   "Total bytes duplicate host2       : $h2_total_bytes_duplicate\n";
-	print   "Total bytes skipped               : $total_bytes_skipped\n";
-	print   "Total bytes error                 : $total_bytes_error\n";
-	$timediff ||= 1; # No division per 0
-	printf ("Message rate                      : %.1f messages/s\n", $nb_msg_transferred / $timediff);
-	printf ("Average bandwidth rate            : %.1f KiB/s\n", $total_bytes_transferred / 1024 / $timediff);
-	print   "Reconnections to host1            : $host1_reconnect_count\n";
-	print   "Reconnections to host2            : $host2_reconnect_count\n";
-	printf ("Memory consumption                : %.1f MB\n", $memory_consumption / 1024 / 1024);
-	print   "Biggest message                   : $max_msg_size_in_bytes bytes\n";
-#	print   "Memory/biggest message ratio      : $memory_ratio\n";
-	print   "Detected $nb_errors errors\n\n";
-
-	print   $warn_release, "\n";
-	print   thank_author();
-}
-
-sub thank_author {
-
-	return("Homepage: http://imapsync.lamiral.info/\n");
-	
-        # used to be
-	return(join("", "Happy with this free, open and gratis DWTFPL software?\n",
-	  "Encourage the author (Gilles LAMIRAL) by giving him a book\n",
-          "or just money via paypal:\n",
-	  "http://imapsync.lamiral.info/\n"));
-}
-
-sub get_options {
-	my $numopt = scalar(@ARGV);
-	my $argv   = join("¤", @ARGV);
-	
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-
-	if($argv =~ m/-delete¤2/) {
-		print "May be you mean --delete2 instead of --delete 2\n";
-		exit 1;
-	}
-        my $opt_ret = GetOptions(
-                                   "debug!"        => \$debug,
-                                   "debugLIST!"    => \$debugLIST,
-                                   "debugcontent!" => \$debugcontent,
-				   "debugsleep!"   => \$debugsleep,
-                                   "debugflags!"   => \$debugflags,
-                                   "debugimap!"    => \$debugimap,
-                                   "debugimap1!"   => \$debugimap1,
-                                   "debugimap2!"   => \$debugimap2,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "domain1=s"   => \$domain1,
-                                   "domain2=s"   => \$domain2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-				   "authmd51!"   => \$authmd51,
-				   "authmd52!"   => \$authmd52,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-				   "filterflags!" => \$filterflags,
-				   "flagsCase!"  => \$flagsCase,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-				   "delete2folders!"    => \$delete2folders,
-				   "delete2foldersonly=s" => \$delete2foldersonly,
-				   "delete2foldersbutnot=s" => \$delete2foldersbutnot,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "idatefromheader!"   => \$idatefromheader,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "minsize=i"   => \$minsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-                                   "search=s"    => \$search,
-				   "foldersizes!" => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "uidexpunge2!" => \$uidexpunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "subscribe_all!"  => \$subscribe_all,
-				   "justbanner!" => \$justbanner,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "wholeheaderifneeded!"   => \$wholeheaderifneeded,
-				   "skipsize!"   => \$skipsize,
-				   "allowsizemismatch!" => \$allowsizemismatch,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "tls1!"        => \$tls1,
-				   "tls2!"        => \$tls2,
-				   "uid1!"        => \$uid1,
-				   "uid2!"        => \$uid2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "proxyauth1"        => \$proxyauth1,
-				   "proxyauth2"        => \$proxyauth2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-				   "buffersize=i" => \$buffersize,
-				   "reconnectretry1=i" => \$reconnectretry1,
-				   "reconnectretry2=i" => \$reconnectretry2,
-				   "relogin1=i"  => \$relogin1,
-				   "relogin2=i"  => \$relogin2,
-                                   "tests"       => \$tests,
-                                   "tests_debug" => \$tests_debug,
-                                   "allow3xx!"   => \$allow3xx,
-                                   "justlogin!"  => \$justlogin,
-				   "tmpdir=s"    => \$tmpdir,
-				   "pidfile=s"    => \$pidfile,
-				   "releasecheck!" => \$releasecheck,
-				   "modules_version!" => \$modules_version,
-				   "usecache!"    => \$usecache,
-                                   "cacheaftercopy!" => \$cacheaftercopy,
-				   "debugcache!" => \$debugcache,
-				   "useuid!"      => \$useuid,
-                                   "addheader!"   => \$addheader,
-                                   "exitwhenover=i" => \$exitwhenover,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print imapsync_version(), "\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-	if ($tests_debug) {
-		$test_builder->no_ending(0);
-		tests_debug();
-		exit;
-	}
-
-	$help = 1 if ! $numopt;
-	load_modules();
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-
-}
-
-
-sub load_modules {
-
-	require IO::Socket::SSL if ($ssl1 or $ssl2 or $tls1 or $tls2);
-
-        require Term::ReadKey if (
-	       ((not($password1 or $passfile1)) 
-	    or (not($password2 or $passfile2)))
-	and (not $help));
-
-	#require Data::Dumper if ($debug);
-}
-
-
-
-sub parse_header_msg {
-	my ($imap, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "$s uid $m_uid head nb pass one: ", $headnum, "\n";
-	
-	my $headstr;
-	
-	if ( ( ! $headnum ) and ( $wholeheaderifneeded ) ){
-		print "$s uid $m_uid no header by parse_headers so taking whole header with BODY.PEEK[HEADER]\n" ;
-		$imap->fetch($m_uid, "BODY.PEEK[HEADER]");
-		my $whole_header = $imap->_transaction_literals;
-		
-                #print $whole_header;
-                $head = decompose_header( $whole_header ) ;
-                
-                $headnum =  scalar( keys( %$head ) ) ;
-	        $debug and print "$s uid $m_uid head nb pass two: ", $headnum, "\n";
-	}
-
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $head, \%useheader ] ) ;
-
-	foreach my $h (sort keys(%$head)){
-                next if ( ! exists( $useheader{ uc( $h ) } )
-                      and ! exists( $useheader{ 'ALL' } )
-                ) ;
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			$val =~ s/^\s*(.+)$/$1/;
-
-			# and uppercase header line 
-			# (dbmail and dovecot)
-			
-			my $H = uc("$h: $val");
-			# show stuff in debug mode
-			$debug and print "$s uid $m_uid header [$H]", "\n";
-			
-			if ($skipheader and $H =~ m/$skipheader/i) {
-				$debug and print "$s uid $m_uid skipping header [$H]\n";
-				next;
-			}
-			$headstr .= "$H";
-		}
-	}
-	
-	if ( ( ! $headstr) and ( $addheader ) and ( $s eq "Host1" )){
-        	my $header = add_header( $m_uid ) ;
-		print "Host1 uid $m_uid no header found so adding our own [$header]\n";
-		$headstr .= uc( $header ) ;
-		$s_fir->{$m_uid}->{"NO_HEADER"} = 1;
-	}
-
-	return() if ( ! $headstr );
-	
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s uid $m_uid sig $m_md5 size $size\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	# 0 return code is used to identify duplicate message hash
-	return 0 if exists $s_hash->{"$key"};
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die_clean("error [$file]: $! ");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line: "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die_clean("error [$file]: $! ");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die_clean("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-sub tests_is_a_release_number {
-	ok(is_a_release_number(1.351), 'is_a_release_number 1.351');
-	ok(is_a_release_number(42.4242), 'is_a_release_number 42.4242');
-	ok(is_a_release_number(imapsync_version()), 'is_a_release_number imapsync_version()');
-	ok(! is_a_release_number('blabla' ), '! is_a_release_number blabla');
-
-}
-
-sub is_a_release_number {
-	my $number = shift;
-	
-	$number =~ m{\d\.\d+};
-}
-
-sub check_last_release {
-
-	my $public_release = not_long('imapsync_version_lfo');
-	#print "check_last_release: [$public_release]\n" ;
-	return('unknown') if ($public_release eq 'unknown');
-	return('timeout') if ($public_release eq 'timeout');
-	return('unknown') if (! is_a_release_number($public_release));
-	
-	my $imapsync_here  = imapsync_version();
-	
-	if ($public_release > $imapsync_here) {
-		return("New imapsync release $public_release available");
-	}else{
-		return("This current imapsync is up to date");
-	}
-}
-
-sub imapsync_version {
-	my $rcs = '$Id: imapsync,v 1.488 2012/04/15 17:38:21 gilles Exp gilles $ ';
-	$rcs =~ m/,v (\d+\.\d+)/;
-	my $VERSION = ($1) ? $1: "UNKNOWN";
-	return($VERSION);
-}
-
-sub tests_imapsync_basename {
-
-	ok('imapsync' eq imapsync_basename(), 'imapsync_basename: imapsync');
-	ok('blabla' ne imapsync_basename(), '! imapsync_basename: blabla');
-}
-
-sub imapsync_basename {
-
-	return basename($0);
-
-}
-
-sub imapsync_version_lfo {
-	
-	my $local_version = imapsync_version();
-	my $imapsync_basename = imapsync_basename();
-	my $agent_info = "$OSNAME system, perl " 
-		. sprintf("%vd", $PERL_VERSION) 
-		. ", Mail::IMAPClient $Mail::IMAPClient::VERSION"
-		. " $imapsync_basename";
-	my $sock = new IO::Socket::INET (
-		PeerAddr => 'imapsync.lamiral.info',
-		PeerPort => '80',
-		Proto => 'tcp');
-	return('unknown') if not $sock;
-	print $sock
-		"GET /prj/imapsync/VERSION HTTP/1.0\n",
-		"User-Agent: imapsync/$local_version ($agent_info)\n",
-		"Host: ks.lamiral.info\n\n";
-	my @line = <$sock>;
-	close($sock);
-	my $last_release = $line[-1];
-	chomp($last_release);
-	return($last_release);
-}
-
-sub not_long {
-	#print "Entering not_long\n";
-	my ($func) = @_;
-	my $val;
-	
-	# Doesn't work with gethostbyname (see perlipc)
-	#local $SIG{ALRM} = sub { die "alarm\n" };
-	
-	if ('MSWin32' eq $OSNAME) {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-	}else{
-	
-        	POSIX::sigaction(SIGALRM,
-                         POSIX::SigAction->new(sub { die "alarm" }))
-        		or print "Error setting SIGALRM handler: $!\n";
-	}
-	
-	eval {
-		
-		alarm(3);
-		#print $func, "\n";
-		{
-			no strict "refs";
-			#print "Calling $func\n";
-			$val = &$func();
-			#print "End of  $func\n";
-		}
-		alarm(0);
-	};
-	if ($@) {
-		#print "$@";
-		if ($@ =~ /alarm/) {
-		# timed out
-			return('timeout');
-		}else{
-			alarm(0);
-			return('unknown'); # propagate unexpected errors
-		}
-	}else {
-	# didn't
-		return($val);
-	}
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	    "Here is a [$OSNAME] system (", 
-	    join(" ", 
-	         uname(),
-	         ),
-                 ")\n",
-	         "With perl ", 
-	         sprintf("%vd", $PERL_VERSION),
-	         " Mail::IMAPClient  $Mail::IMAPClient::VERSION",
-            );	  
-	return($infos);
-
-}
-
-sub usage {
-	my $localhost_info = localhost_info();
-	my $thank = thank_author();
-	my $warn_release ='';
-	$warn_release = check_last_release() if (not defined($releasecheck));
-        my $escape_char = ( 'MSWin32' eq $OSNAME ) ? '^' : '\\';
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---domain1     <string> : domain on host1 (NTLM authentication).
---authuser1   <string> : user to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---proxyauth1           : Use proxyauth on host1. Requires --authuser1.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---domain2     <string> : domain on host2 (NTLM authentication).
---authuser2   <string> : user to auth with on host2 (admin user).
---proxyauth2           : Use proxyauth on host2. Requires --authuser2.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---authmd51             : Use MD5 authentification for host1.
---authmd52             : Use MD5 authentification for host2.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---tls1                 : use an TLS connection on host1.
---tls2                 : use an TLS connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---tmpdir      <string> : where to store temporary files and subdirectories.
-                         Will be created if it doesn't exist.
-			 Default is system specific and should be ok.
---pidfile     <string> : the file where imapsync pid is written.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         you can use --prefix1 if your source imap server 
-                         does not have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example: 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example: 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : host1 separator in case namespace is not supported.
---sep2        <string> : idem for host2.
---delete               : Deletes messages on host1 server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imapsync, --delete tags messages as deleted and 
-                         they are really deleted unless --noexpunge is used.
---delete2              : delete messages in host2 that are not in
-                         host1 server. Useful for backup or pre-sync.
---delete2folders       : Delete folders in host2 that are not in host1 server. 
-                         For safety, first try it like this (it is safe):
-			 --delete2folders --dry --justfolders --nofoldersizes
---delete2foldersonly   <regex>: delete only folders matching regex.
---delete2foldersbutnot <regex>: do not delete folders matching regex.
---noexpunge            : Do not expunge messages on host1.
-                         Expunge really deletes messages marked deleted.
-                         Expunge is made at the beginning, on host1 only. 
-                         Newly transferred messages are also expunged if 
-			 option --delete is given.
-                         No expunge is done on host2 account (unless --expunge2)
---expunge1             : Expunge messages on host1 after messages transfer.
---expunge2             : Expunge messages on host2 after messages transfer.
---uidexpunge2          : uidexpunge messages on the host2 account
-                         that are not on the host1 account, requires --delete2
---syncinternaldates    : sets the internal dates on host2 same as host1.
-                         Turned on by default. Internal date is the date
-			 a message arrived on a host (mtime).
---idatefromheader      : sets the internal dates on host2 same as the 
-                         "Date:" headers.
---maxsize     <int>    : skip messages larger  (or equal) than <int> bytes
---minsize     <int>    : skip messages smaller (or equal) than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---search      <string> : Select messages returned by this IMAP SEARCH command.
---exitwhenover   <int> : Stop syncing when total bytes transferred reached.
-                         Gmail per day allows 2500000000 down 500000000 upload.
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         host2 that are subscribed on host1. On by default.
---subscribe_all        : subscribe to the folders transferred on the 
-                         host2 even if they are not subscribed on host1.
---nofoldersizes        : Do not calculate the size of each folder in bytes
-                         and message counts. Default is to calculate them.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : synchronises acls (Access Control Lists).
---nosyncacls           : does not synchronise acls. This is the default.
---usecache             : Use cache to speedup.
---nousecache           : Do not use cache. Caveat: --useuid --nousecache creates
-                         duplicates on multiple runs.
---useuid               : Use uid instead of header as a criterium to sync.
-                         --usecache is then implied unless --nousecache is
-                         used.  
---debug                : debug mode.
---debugcontent         : debug content of the messages transfered.
---debugflags           : debug flags.
---debugimap1           : imap debug mode for host1. imap debug is very verbose.
---debugimap2           : imap debug mode for host2.
---debugimap            : imap debug mode for host1 and host2.
---version              : print software version.
---noreleasecheck       : do not check for new imapsync release (a http request).
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justlogin            : just login to both host1 and host2 with users 
-                         credentials, then exit.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster, equivalent to --nofoldersizes
---help                 : print this help.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                    to  imap account "bar" on "imap.trac.org"
-                    with foo password "secret1"
-                    and  bar password "secret2"
-
-$0 $escape_char
-   --host1 imap.truc.org --user1 foo --password1 secret1 $escape_char
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-$localhost_info
-$rcs
-$warn_release
-
-$thank
-EOF
-}
-
-sub usage_complete {
-	print <<EOF ;
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
-        
---skipsize             : Don't take message size into account to compare 
-                         messages on both sides. On by default.
-			 Use --no-skipsize for using size comparaison.
---allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-                         consider also --skipsize to avoid duplicate messages
-                         when running syncs more than one time per mailbox
-
---reconnectretry1 <int>: reconnect to host1 if connection is lost up to 
-                         <int> times per imap command (default is 3)
---reconnectretry2 <int>: same as --reconnectretry1 but for host2
---split1     <int>     : split the requests in several parts on host1.
-                         <int> is the number of messages handled per request.
-                         default is like --split1 500.
---split2     <int>     : same thing on host2.
---timeout     <int>    : imap connect timeout.
-
-EOF
-}
-
-sub memory_consumption {
-	# memory consumed by imapsync until now in bytes
-	return( ( memory_consumption_of_pids(  ) )[0] );
-}
-
-sub memory_consumption_of_pids {
-
-	my @PID = (@_) ? @_ : ($PROCESS_ID);
-	
-	#print "PIDs: @PID\n";
-	my @val;
-	if ('MSWin32' eq $OSNAME) {
-		@val = memory_consumption_of_pids_win32(@PID);
-	}else{
-		# Unix
-		my @ps = qx{ ps -o vsz -p @PID };
-		shift @ps; # First line is column name "VSZ"
-		chomp @ps; 
-		# convert to 
-		@val = map { $_ * 1024 } @ps;
-		return(@val);
-	}
-}
-
-sub memory_consumption_of_pids_win32 {
-	# Windows
-	my @PID = @_;
-	my %PID;
-	# hash of pids as key values
-	map { $PID{$_}++ } @PID;
-	
-	# Does not work but should reading the tasklist documentation
-	#@ps = qx{ tasklist /FI "PID eq @PID" };
-	
-	my @ps = qx{ tasklist /NH /FO CSV };
-	#print "-" x 80, "\n", @ps, "-" x 80, "\n";
-	my @val;
-	foreach my $line (@ps) {
-		my($name, $pid, $mem) = (split(',', $line))[0,1,4];
-		next if (! $pid);
-		#print "[$name][$pid][$mem]";
-		if ($PID{remove_qq($pid)}) {
-			#print "MATCH !\n";
-			chomp($mem);
-			$mem = remove_qq($mem);
-			$mem = remove_Ko($mem);
-			$mem = remove_not_num($mem);
-			#print "[$mem]\n";
-			push(@val, $mem * 1024);
-		}
-	}
-	return(@val);
-}
-
-sub remove_not_num {
-	
-	my $string = shift;
-	$string =~ tr/0-9//cd;
-	#print "tr [$string]\n";
-	return($string);
-}
-
-sub tests_remove_not_num {
-
-	ok('123' eq remove_not_num(123), 'remove_not_num( 123 )');
-	ok('123' eq remove_not_num('123'), "remove_not_num( '123' )");
-	ok('123' eq remove_not_num('12 3'), "remove_not_num( '12 3' )");
-	ok('123' eq remove_not_num('a 12 3 Ko'), "remove_not_num( 'a 12 3 Ko' )");
-}
-
-sub remove_Ko {
-	my $string = shift;
-	if ($string =~ /^(.*) Ko$/) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub remove_qq {
-	my $string = shift;
-	if ($string =~ /^"(.*)"$/) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub memory_consumption_ratio {
-
-	my ($base) = @_;
-	$base ||= 1;
-	my $consu = memory_consumption();
-	return($consu / $base);
-}
-
-sub tests_memory_consumption {
-
-	ok(print join("\n", memory_consumption_of_pids()), "\n");
-	ok(print join("\n", memory_consumption_of_pids('1')), "\n");
-	ok(print join("\n", memory_consumption_of_pids('1', $$)), "\n");
-
-	ok(print memory_consumption_ratio(), "\n");
-	ok(print memory_consumption_ratio(1), "\n");
-	ok(print memory_consumption_ratio(10), "\n");
-	
-	ok(print memory_consumption(), "\n");
-}
-
-sub good_date {
-        # two incoming formats:
-        # header    Tue, 24 Aug 2010 16:00:00 +0200
-	# internal       24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: internal date format
-        #   24-Aug-2010 16:00:00 +0200
-	
-    my $d = shift ;
-    return ('') if not defined($d);
-    
-    if ( $d =~ m{(\d?)(\d-...-\d{4})( \d{2}:\d{2}:\d{2})( (?:\+|-)\d{4})?}o ) {
-    	#print "internal: [$1][$2][$3][$4]\n";
-	my ($day_1, $date_rest, $hour, $zone) = ($1,$2,$3,$4);
-	$day_1 = '0' if ($day_1 eq '');
-	$zone  = ' +0000'  if not defined($zone);
-	$d = $day_1 . $date_rest . $hour . $zone;
-    }elsif ($d =~ m{(?:\w{3,}, )?(\d{1,2}),?\s+(\w{3,})\s+(\d{2,4})\s+(\d{1,2})(?::|\.)(\d{1,2})(?:(?::|\.)(\d{1,2}))?\s*((?:\+|-)\d{4})?}o ) {
-       # Handles any combination of following formats
-       # Tue, 24 Aug 2010 16:00:00 +0200 -- Standard
-       # 24 Aug 2010 16:00:00 +0200 -- Missing Day of Week
-       # Tue, 24 Aug 97 16:00:00 +0200 -- Two digit year
-       # Tue, 24 Aug 1997 16.00.00 +0200 -- Periods instead of colons 
-       # Tue, 24 Aug 1997  16:00:00 +0200 -- Extra whitespace between year and hour
-       # Tue, 24 Aug 1997 6:5:2 +0200 -- Single digit hour, min, or second
-       # Tue, 24, Aug 1997 16:00:00 +0200 -- Extra comma
-       
-       #print "header: [$1][$2][$3][$4][$5][$6][$7][$8]\n";
-       my ($day, $month, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7,$8);
-       $year = '19' . $year if length($year) == 2 && $year =~ /^[789]/;
-       $year = '20' . $year if length($year) == 2;
-        
-       $month = substr $month, 0, 3 if length($month) > 4;
-       $day = sprintf("%02d", $day);
-       $hour = sprintf("%02d", $hour);
-       $min = sprintf("%02d", $min);
-       $sec  = '00' if not defined($sec);
-       $sec = sprintf("%02d", $sec);
-       $zone  = '+0000' if not defined($zone);
-       $d = "$day-$month-$year $hour:$min:$sec $zone";
-
-    }elsif ($d =~ m{(?:.{3}) (...)\s+(\d{1,2}) (\d{1,2}):(\d{1,2}):(\d{1,2}) (?:\w{3})?\s?(\d{4})}o ) {
-       # Handles any combination of following formats
-       # Sun Aug 20 11:55:09 2006
-       # Wed Jan 24 11:58:38 MST 2007
-       # Wed Jan  2 08:40:57 2008
-       
-       #print "header: [$1][$2][$3][$4][$5][$6]\n";
-       my ($month, $day, $hour, $min, $sec, $year) = ($1,$2,$3,$4,$5,$6);
-       $day = sprintf("%02d", $day);
-       $hour = sprintf("%02d", $hour);
-       $min = sprintf("%02d", $min);
-       $sec = sprintf("%02d", $sec);
-       $d = "$day-$month-$year $hour:$min:$sec +0000";
-       
-       }elsif ($d =~ m{(\d{2})/(\d{2})/(\d{2}) (\d{2}):(\d{2}):(\d{2})}o ) {
-       # Handles the following format
-       # 02/06/09 22:18:08 -- Generated by AVTECH TemPageR devices
-       
-       #print "header: [$1][$2][$3][$4][$5][$6]\n";
-       my ($month, $day, $year, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6);
-       $year = '20' . $year;
-       my %num2mon = qw(01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec);
-       $month = $num2mon{$month};
-       $d = "$day-$month-$year $hour:$min:$sec +0000";
-       
-    }elsif ($d =~ m{\w{6,}, (\w{3})\w+\s+(\d{1,2}), (\d{4}) (\d{2}):(\d{2}) (AM|PM)}o ) {
-       # Handles the following format
-       # Saturday, December 14, 2002 05:00 PM - KBtoys.com order confirmations
-
-       my ($month, $day, $year, $hour, $min, $apm) = ($1,$2,$3,$4,$5,$6);
-       
-       $hour += 12 if $apm eq 'PM';
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year $hour:$min:00 +0000";
-
-    }elsif ($d =~ m{(\w{3}) (\d{1,2}) (\d{4}) (\d{2}):(\d{2}):(\d{2}) ((?:\+|-)\d{4})}o ) {
-       # Handles the following format
-       # Saturday, December 14, 2002 05:00 PM - jr.com order confirmations
-
-       my ($month, $day, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7);
-
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year $hour:$min:$sec $zone";
-
-    }elsif ($d =~ m{(\d{1,2})-(\w{3})-(\d{4})}o ) {
-       # Handles the following format
-       # 21-Jun-2001 - register.com domain transfer email circa 2001
-
-       my ($day, $month, $year) = ($1,$2,$3);
-       $day = sprintf("%02d", $day);
-       $d = "$day-$month-$year 11:11:11 +0000";
-
-    }else{
-    	# unknown/unmatch => return same string
-    	return($d);
-    }
-    
-    $d = qq("$d");
-    return($d);
-} 
-
-
-sub tests_good_date {
-
-	ok('' eq good_date(), 'good_date no arg');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24-Aug-2010 16:00:00 +0200'), 'good_date internal 2digit zone');
-	ok('"24-Aug-2010 16:00:00 +0000"' eq good_date('24-Aug-2010 16:00:00'), 'good_date internal 2digit no zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date( '1-Sep-2010 16:00:00 +0200'), 'good_date internal SP 1digit');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('Tue, 24 Aug 2010 16:00:00 +0200'), 'good_date header 2digit zone');
-	ok('"01-Sep-2010 16:00:00 +0000"' eq good_date('Wed, 1 Sep 2010 16:00:00'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200 (CEST)'), 'good_date header SP 1digit zone');
-        ok('"06-Feb-2009 22:18:08 +0000"' eq good_date('02/06/09 22:18:08'), 'good_date header TemPageR');
-        ok('"02-Jan-2008 08:40:57 +0000"' eq good_date('Wed Jan  2 08:40:57 2008'), 'good_date header dice.com support 1digit day');
-        ok('"20-Aug-2006 11:55:09 +0000"' eq good_date('Sun Aug 20 11:55:09 2006'), 'good_date header dice.com support 2digit day');
-        ok('"24-Jan-2007 11:58:38 +0000"' eq good_date('Wed Jan 24 11:58:38 MST 2007'), 'good_date header status-now.com');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24 Aug 2010 16:00:00 +0200'), 'good_date header missing date of week');
-        ok('"24-Aug-2067 16:00:00 +0200"' eq good_date('Tue, 24 Aug 67 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1977 16:00:00 +0200"' eq good_date('Tue, 24 Aug 77 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1987 16:00:00 +0200"' eq good_date('Tue, 24 Aug 87 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 97 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-2004 16:00:00 +0200"' eq good_date('Tue, 24 Aug 04 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997 16.00.00 +0200'), 'good_date header period time sep');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997  16:00:00 +0200'), 'good_date header extra white space type1');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24 Aug 1997 5:6:2 +0200'), 'good_date header 1digit time vals');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24, Aug 1997 05:06:02 +0200'), 'good_date header extra commas');
-        ok('"01-Oct-2003 12:45:24 +0000"' eq good_date('Wednesday, 01 October 2003 12:45:24 CDT'), 'good_date header no abbrev');
-        ok('"11-Jan-2005 17:58:27 -0500"' eq good_date('Tue,  11  Jan 2005 17:58:27 -0500'), 'good_date extra white space');
-        ok('"18-Dec-2002 15:07:00 +0000"' eq good_date('Wednesday, December 18, 2002 03:07 PM'), 'good_date kbtoys.com orders');
-        ok('"16-Dec-2004 02:01:49 -0500"' eq good_date('Dec 16 2004 02:01:49 -0500'), 'good_date jr.com orders');
-        ok('"21-Jun-2001 11:11:11 +0000"' eq good_date('21-Jun-2001'), 'good_date register.com domain transfer');
-
-}
-
-
-sub tests_list_keys_in_2_not_in_1 {
-
-	my @list;
-	ok( ! list_keys_in_2_not_in_1( {}, {}), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( [], [ list_keys_in_2_not_in_1( {}, {} ) ] ), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( ['a','b'], [ list_keys_in_2_not_in_1( {}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	
-}
-
-sub list_keys_in_2_not_in_1 {
-
-	my $folders1_ref = shift;
-	my $folders2_ref = shift;
-	my @list;
-	
-	foreach my $folder ( sort keys %$folders2_ref ) {
-		next if exists($folders1_ref->{$folder});
-		push(@list, $folder);
-	}	
-	return(@list);
-}
-
-
-sub list_folders_in_2_not_in_1 {
-
-	my (@h2_folders_not_in_1, %h2_folders_not_in_1);
-	@h2_folders_not_in_1 = list_keys_in_2_not_in_1( \%h1_folders_all, \%h2_folders_all);
-	map { $h2_folders_not_in_1{$_} = 1} @h2_folders_not_in_1;
-	@h2_folders_not_in_1 = list_keys_in_2_not_in_1( \%h2_folders_from_1_all, \%h2_folders_not_in_1);
-	
-	return( reverse @h2_folders_not_in_1 );
-}
-
-sub delete_folders_in_2_not_in_1 { 
-
-	my $dry_message = '';
-	$dry_message = "\t(not really since --dry mode)" if $dry;
-	foreach my $folder (@h2_folders_not_in_1) {
-		if ( defined( $delete2foldersonly ) and eval( "\$folder !~ $delete2foldersonly" ) ) {
-			print "Not deleting $folder because of --delete2foldersonly $delete2foldersonly\n";
-			next;
-		}
-		if ( defined( $delete2foldersbutnot ) and eval( "\$folder =~ $delete2foldersbutnot" ) ) {
-			print "Not deleting $folder because of --delete2foldersbutnot $delete2foldersbutnot\n";
-			next;
-		}
-		my $res = $dry; # always success in dry mode!
-		$res = $imap2->delete($folder) if ( ! $dry ) ;
-		if ($res) {
-			print "Delete $folder", "$dry_message", "\n";
-		}else{
-			print "Delete $folder failure", "\n";
-		}
-	}
-}
-
-
-sub extract_header {
-        my $string = shift ;
-        
-        my ( $header ) = split( /\n\n/, $string ) ;
-        #print "[$header]\n" ;
-        return( $header ) ;
-}
-
-sub tests_extract_header {
-        ok( 
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)' 
-eq extract_header(
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-
-body
-lalala
-' ), 'extract_header: 1') ;
-     
-}
-
-sub decompose_header{
-        my $string = shift ;
-        
-        my $header = {  } ;
-        
-        my ($key, $val ) ;
-        my @line = split( /\n|\r\n/, $string ) ;
-        foreach my $line ( @line ) {
-                #print "DDD $line\n" ;
-                if( $line =~ m/(^[^     :]+): (.*)/ ) {
-                        $key = $1 ;
-                        $val = $2 ;
-                        #print "DDD [$key] [$val]\n" ;
-                        push( @{ $header->{ $key } }, $val ) ;
-                }elsif( $line =~ m/^(\s+)(.*)/ ) {
-                        $val = $2 ;
-                        #print "DDD only [$val]\n" ;
-                        @{ $header->{ $key } }[ -1 ] .= " $val" if $key ;
-                }else{
-                        next ;
-                }
-        }
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $header ] ) ;
-
-        return( $header ) ;
-}
-
-
-sub tests_decompose_header{
-
-        my $header_dec ;
-        
-        $header_dec = decompose_header(
-'KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-'
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: VAL_3' ) ;
-
-        ok( 'VAL_1' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: VAL_1' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[1], 'decompose_header: VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-        
-        $header_dec = decompose_header(
-'Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)'
-        ) ;
-
-        ok( '<20100428101817.A66CB162474E@plume.est.belle>' 
-        eq $header_dec->{ 'Message-Id' }[0], 'decompose_header: 1' ) ;
-
-        $header_dec = decompose_header(
-'Return-Path: <gilles@louloutte.dyndns.org>
-Received: by plume.est.belle (Postfix, from userid 1000)
-        id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)
-Subject: test:eekahceishukohpe'
-        ) ;
-        ok( 
-'by plume.est.belle (Postfix, from userid 1000) id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)' 
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 2' ) ;
-
-        $header_dec = decompose_header(
-'Received: from plume (localhost [127.0.0.1])
-        by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9
-        for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-Received: from plume [192.168.68.7]
-        by plume with POP3 (fetchmail-6.3.6)
-        for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        ) ;
-        ok(
-        'from plume (localhost [127.0.0.1]) by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9 for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 3' ) ;
-        ok(
-        'from plume [192.168.68.7] by plume with POP3 (fetchmail-6.3.6) for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[1], 'decompose_header: 3' ) ;
-
-# Bad header beginning with a blank character
-        $header_dec = decompose_header(
-' KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-'
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: Bad header VAL_3' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: Bad header VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: Bad header VAL_2 VAL_2_+ VAL_2_++' ) ;
-}
-
-sub epoch {
-        # incoming format:
-	# internal date 24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: epoch
-
-
-        my $d = shift ;
-        return ('') if not defined($d);
-
-        my ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) ;
-        my $time ;
-        
-        if ( $d =~ m{(\d{2})-([A-Z][a-z]{2})-(\d{4}) (\d{2}):(\d{2}):(\d{2}) ((?:\+|-))(\d{2})(\d{2})}o ) {
-                #print "internal: [$1][$2][$3][$4][$5][$6][$7][$8][$9]\n" ;
-                ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) 
-                =  ( $1,   $2,     $3,    $4,    $5,  $6,    $7,     $8,     $9 ) ;
-                #print "( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m )\n" ;
-                
-                $sign = +1 if ( '+' eq $sign ) ;
-                $sign = -1 if ( '-' eq $sign ) ;
-                
-                $time = timegm( $sec, $min, $hour, $mday, $month_abrev{$month}, $year ) 
-                        - $sign * ( 3600 * $zone_h + 60 * $zone_m ) ;
-                
-                #print( "$time ", scalar(localtime($time)), "\n");
-        }
-        return( $time ) ;
-}
-
-sub tests_epoch {
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:00:00 +0200' ), 'epoch 24-Aug-2010 16:00:00 +0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:00:00 +0000' ), 'epoch 24-Aug-2010 14:00:00 +0000 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 12:00:00 -0200' ), 'epoch 24-Aug-2010 12:00:00 -0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:01:00 +0201' ), 'epoch 24-Aug-2010 16:01:00 +0201 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:01:00 +0001' ), 'epoch 24-Aug-2010 14:01:00 +0001 -> 1282658400' ) ;
-}
-
-sub add_header {
-	my $uid = shift || 'mistake' ;
-	my $header = 'Message-Id: <' . $uid . '@imapsync>' ;
-        return( $header ) ;
-}
-
-sub tests_add_header {
-	ok( 'Message-Id: <mistake@imapsync>' eq add_header(), 'add_header no arg' ) ;
-	ok( 'Message-Id: <123456789@imapsync>' eq add_header(123456789), 'add_header 123456789' ) ;
-
-}
-
-
-sub tests_debug {
-	
-      SKIP: {
-		skip "No test in normal run" if ( not $tests_debug );
-                tests_add_header(  ) ;
-	}
-}
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-		tests_regexmess();
-		tests_flags_regex();
-		tests_permanentflags();
-		tests_flags_filter(  ) ;
-		tests_imap2_folder_name();
-		tests_command_line_nopassword();
-		tests_good_date();
-		tests_max();
-		tests_remove_not_num();
-		tests_memory_consumption();
-		tests_is_a_release_number();
-		tests_imapsync_basename();
-		tests_list_keys_in_2_not_in_1();
-		tests_convert_sep_to_slash(  ) ;
-		tests_match_a_cache_file(  ) ;
-		tests_cache_map(  ) ;
-		tests_get_cache(  ) ;
-		tests_clean_cache(  ) ;
-		tests_clean_cache_2(  ) ;
-		tests_touch(  ) ;
-		tests_ucsecond(  ) ;
-		tests_flagsCase(  ) ;
-                tests_mkpath(  ) ;
-                tests_extract_header(  ) ;
-                tests_decompose_header(  ) ;
-                tests_epoch(  ) ;
-	}
-}
-
-# IMAPClient 2.2.9 overrides
-
-sub override_imapclient {
-no warnings 'redefine';
-no strict 'subs';
-
-use constant Unconnected => 0;
-use constant Connected         => 1;            # connected; not logged in
-use constant Authenticated => 2;                # logged in; no mailbox selected
-use constant Selected => 3;                     # mailbox selected
-use constant INDEX => 0;                        # Array index for output line number
-use constant TYPE => 1;                         # Array index for line type 
-                                                #    (either OUTPUT, INPUT, or LITERAL)
-use constant DATA => 2;                         # Array index for output line data
-use constant NonFolderArg => 1;                 # Value to pass to Massage to 
-                                                # indicate non-folder argument
-
-
-*Mail::IMAPClient::_transaction_literals = sub {
-	my $self = shift;
-	my $string = "";
-
-	foreach my $result  (@{$self->{"History"}{$self->Transaction}}) { 
-	      $string .= $result->[DATA] 
-		if defined($result) and $self->_is_literal($result) ;
-	}      
-	return $string;
-};
-
-# Got from 3.25
-*Mail::IMAPClient::append_string = sub {
-    my $self   = shift;
-    my $folder = $self->Massage(shift);
-    my ( $text, $flags, $date ) = @_;
-    defined $text or $text = '';
-
-    if ( defined $flags ) {
-        $flags =~ s/^\s+//g;
-        $flags =~ s/\s+$//g;
-        $flags = "($flags)" if $flags !~ /^\(.*\)$/;
-    }
-
-    if ( defined $date ) {
-        $date =~ s/^\s+//g;
-        $date =~ s/\s+$//g;
-        $date = qq("$date") if $date !~ /^"/;
-    }
-
-    $text =~ s/\r?\n/$CRLF/og;
-
-    my $command =
-        "APPEND $folder "
-      . ( $flags ? "$flags " : "" )
-      . ( $date  ? "$date "  : "" ) . "{"
-      . length($text)
-      . "}$CRLF";
-
-    $command .= $text . $CRLF;
-    $self->_imap_command( $command ) or return undef;
-
-    my $data = join '', $self->Results;
-    #print "ZZZ|$data|ZZZ\n";
-    # look for something like return size or self if no size found:
-    # <tag> OK [APPENDUID <uid> <size>] APPEND completed
-    # 18 OK [APPENDUID 1286144680 1539] APPEND Ok.
-    my $ret = $data =~ m#^\d+ OK \[APPEND.*\s+(\d+)\].*\Z#m ? $1 : $self;
-
-    return $ret;
-};
-
-
-*Mail::IMAPClient::fetch_hash = sub {
-	# taken from above *Mail::IMAPClient::fetch_hash
-	# if last arg is a ref then the fetch is done only 
-	# on the messages listed as the keys of this hash.
-	# Init an "empty" $hash_ref by value can be done this way:
-	# @$hash_ref{2, 3, 4, 55} = (undef);
-	
-        my $self = shift;
-        my $hash_ref = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-	
-	my $msgs_ref_all;
-	if (scalar %$hash_ref) {
-		$msgs_ref_all = [ sort { $a <=> $b } keys (%$hash_ref) ];
-		#print "ZZZZ 1 [@$msgs_ref_all]\n";
-	}else{
-	        $msgs_ref_all = scalar($self->messages);
-		#print "ZZZZ 2 [@$msgs_ref_all]\n";
-	}
-	
-	my $split = $self->Split() || scalar(@$msgs_ref_all);
-	while(my @msgs = splice(@$msgs_ref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgs_ref = \@msgs;
-	my $output = scalar($self->fetch($msgs_ref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( defined $hash_ref->{$uid} ) {
-                                $entry = $hash_ref->{$uid} ;
-                        }
-			else {
-                                $hash_ref->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( defined $hash_ref->{$mid} ) {
-                                $entry = $hash_ref->{$mid} ;
-                        }
-			else {
-                                $hash_ref->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]*)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash_ref : $hash_ref;
-};
-
-
-
-*Mail::IMAPClient::login = sub {
-        my $self = shift;
-        return $self->authenticate($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-        my $string =    "Login " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        };
-        return $self;
-};
-
-
-*Mail::IMAPClient::get_header = sub {
-        my($self , $msg, $header ) = @_;
-        my $val;
-        
-	#eval { $val = $self->parse_headers([$msg],$header)->{$header}[0] };
-	my $h = $self->parse_headers([$msg],$header);
-	#require Data::Dumper;
-	#print Data::Dumper->Dump([$h]);
-        #$val = $self->parse_headers([$msg],$header)->{$header}[0];
-	
-	$val = $h->{$msg}{$header}[0];
-        return defined($val)? $val : undef;
-};
-
-
-*Mail::IMAPClient::parse_headers = sub {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	#print ref($msgspec_all), "\n";
-	#if(ref($msgspec_all) eq 'HASH') {
-    #    print ref($msgspec_all), "\n";
-		#$msgspec_all = [$msgspec_all];
-	#}
-
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers want an ARRAY ref\n";
-		#exit 1;
-		return undef;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		#$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        }else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                
-		no warnings;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } 
-				else {
-                                        $h = {};
-                                }
-                        } 
-			else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;
-			#print "W[$hdr]", ref($hdr), "!\n";
-			#next if ( ! defined($hdr));
-			#print "X[$hdr]\n";
-
-                        if (defined($hdr) and ($hdr =~ s/^(\S+):\s*//)) {
-			# if ($hdr =~ s/^(\S+):\s*//) {
-				#print "X1\n";
-				$field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-				#print "X2\n";
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-				#print "X3\n";
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-	use warnings;
-#       my $candump = 0;
-#       if ($self->Debug) {
-#                eval {
-#                        require Data::Dumper;
-#                        Data::Dumper->import;
-#                };
-#                $candump++ unless $@;
-#        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-};
-
-
-*Mail::IMAPClient::authenticate = sub {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-		
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                        if ($o->[DATA]=~ /^\d+\s+(NO|BAD)/i) {
-                                return undef ;
-			}
-                }
-        }
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR;
-          } 
-	  else {
-            $response = \&Mail::IMAPClient::_cram_md5;
-          }
-        }
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        $code =~ /^OK/ and $self->State(Authenticated) ;
-        return $code =~ /^OK/ ? $self : undef ;
-
-};
-
-
-
-*Mail::IMAPClient::_cram_md5 = sub  {
-  my ($code, $client) = @_;
-  my $hmac = Digest::HMAC_MD5::hmac_md5_hex(MIME::Base64::decode($code),
-                                            $client->Password());
-  return MIME::Base64::encode($client->User() . " $hmac", "");
-};
-
-*Mail::IMAPClient::message_string = sub {
-        my $self = shift;
-        my $msg  = shift;
-        my $expected_size = $self->size($msg);
-        return undef unless(defined $expected_size);    # unable to get size
-        my $cmd  =      $self->has_capability('IMAP4REV1')                              ?
-                                "BODY" . ( $self->Peek ? '.PEEK[]' : '[]' )             :
-                                "RFC822" .  ( $self->Peek ? '.PEEK' : ''  )             ;
-
-	#print "Message_string Beg fetch:\n", memory_consumption();
-        $self->fetch($msg,$cmd) or return undef;
-	#print "Message_string End fetch:\n", memory_consumption();
-
-        my $string = "";
-
-
-        foreach my $result  (@{$self->{"History"}{$self->Transaction}}) {
-              $string .= $result->[DATA]
-                if defined($result) and $self->_is_literal($result) ;
-        }
-	#print "Message_string End string:\n", memory_consumption();
-
-        # BUG? should probably return undef if length != expected
-	# No bug, somme servers are buggy.
-
-	if (! $self->Ignoresizeerrors ) {
-        	if ( length($string) != $expected_size ) {
-                	print "message_string: " .
-                        	"expected $expected_size bytes but received " .
-                        	length($string) . "\n";
-			$self->LastError("message_string: expected ".
-                        	"$expected_size bytes but received " .
-                        	length($string)."\n");
-        	}
-	}
-        return $string;
-};
-
-
-
-{
-no warnings 'once';
-
-*Mail::IMAPClient::Ssl = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{SSL} = shift }
-	return $self->{SSL};
-};
-
-*Mail::IMAPClient::Starttls = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{Starttls} = shift }
-	return $self->{Starttls};
-};
-
-
-
-*Mail::IMAPClient::exists = sub  {
-    # Bad implementation STATUS fails and can close the connexion
-    # Exchange does this after 10 failures
-    my ( $self, $folder ) = @_;
-    $self->status($folder) ? $self : undef;
-};
-
-
-
-*Mail::IMAPClient::Authuser = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-};
-
-
-*Mail::IMAPClient::Ignoresizeerrors = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{IGNORESIZEERRORS} = shift }
-	return $self->{IGNORESIZEERRORS};
-};
-
-*Mail::IMAPClient::Reconnectretry = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{RECONNECTRETRY} = shift }
-	return $self->{RECONNECTRETRY};
-};
-
-
-*Mail::IMAPClient::reconnect  = sub {
-    my $self = shift;
-
-    if ( $self->IsAuthenticated ) {
-        $self->_debug("reconnect called but already authenticated");
-        return $self;
-    }
-
-    my $einfo = $self->LastError || "";
-    $self->_debug( "reconnecting to ", $self->Server, ", last error: $einfo" );
-
-    # reconnect and select appropriate folder
-    $self->connect or return undef;
-
-    return ( defined $self->Folder ) ? $self->select( $self->Folder ) : $self;
-};
-
-
-# wrapper for _imap_command_do to enable retrying on lost connections
-*Mail::IMAPClient::_imap_command  = sub {
-    my $self = shift;
-
-    my $tries = 0;
-    my $retry = $self->Reconnectretry || 0;
-    my ( $rc, @err );
-
-    #print "@_ Beg _imap_command:\n", memory_consumption();
-
-    # LastError (if set) will be overwritten masking any earlier errors
-    while ( $tries++ <= $retry ) {
-        # do command on the first try or if Connected (reconnect ongoing)
-        if ( $tries == 1 or $self->IsConnected ) {
-	    #print "call @_\n";
-            $rc = $self->_imap_command_do(@_);
-            push( @err, $self->LastError ) if $self->LastError;
-	    #print "call @_ done [", $rc || '', "] [$tries/$retry][" . $self->IsUnconnected . "]\n";
-        }
-	
-        if ( !defined($rc) 
-	     and $retry and $self->IsUnconnected
-	     and ( $self->LastIMAPCommand !~ /LOGOUT/ )
-	     
-	) {
-	   print "\nWarning: disconnected. ";
-           if ( $self->reconnect ) {
-                print "Reconnect successful on try #$tries\n";
-		$self->Reconnect_counter($self->Reconnect_counter() + 1);
-            }
-            else {
-                print "Reconnect failed on try #$tries\n";
-                push( @err, $self->LastError ) if $self->LastError;
-            }
-        }
-        else {
-            last;
-        }
-    }
-
-    unless ($rc) {
-        my ( %seen, @keep, @info );
-
-        foreach my $str (@err) {
-            my ( $sz, $len ) = ( 96, length($str) );
-            $str =~ s/$CR?$LF$/\\n/omg;
-            if ( !$self->Debug and $len > $sz * 2 ) {
-                my $beg = substr( $str, 0,    $sz );
-                my $end = substr( $str, -$sz, $sz );
-                $str = $beg . "..." . $end;
-            }
-            next if $seen{$str}++;
-            push( @keep, $str );
-        }
-        foreach my $msg (@keep) {
-            push( @info, $msg . ( $seen{$msg} > 1 ? " ($seen{$msg}x)" : "" ) );
-        }
-        $self->LastError( join( "; ", @info ) );
-    }
-    #print "@_ End _imap_command:\n", memory_consumption();
-    return $rc;
-};
-
-
-*Mail::IMAPClient::_imap_command_do = sub {
-	
-	my $self 	= shift;
-	my $string 	= shift 	or return undef;
-	my $good 	= shift 	|| 'GOOD';
-
-	my $qgood = quotemeta($good);
-
-	my $clear = "";
-	$clear = $self->Clear;
-
-	$self->Clear($clear) 
-		if $self->Count >= $clear and $clear > 0;
-
-	my $count 	= $self->Count($self->Count+1);
-
-	$string 	= "$count $string" ;
-
-        #print "$string\n", memory_consumption();
-	$self->_record($count,[ 0, "INPUT", "$string\x0d\x0a"] );
-        #print "\n2 $count\n", memory_consumption();
-	my $feedback = $self->_send_line("$string");
-
-	unless ($feedback) {
-		$self->LastError( "Error sending '$string' to IMAP: $!\n");
-		$@ = "Error sending '$string' to IMAP: $!";
-		carp "Error sending '$string' to IMAP: $!";
-		return undef;
-	}
-
-	my ($code, $output);	
-	$output = "";
-
-	READ: until ( $code)  {
-	    	# escape infinite loop if read_line never returns any data:
-              	$output = $self->_read_line or return undef; 
-
-		for my $o (@$output) { 
-			
-			$self->_record($count,$o);	# $o is a ref
-                      # $self->_debug("Received from readline: ${\($o->[DATA])}<<END OF RESULT>>\n");
-			next unless $self->_is_output($o);
-			if ( $good eq '+' ) {
-                      		$o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)|^($qgood)/mi ;
-				$code = $1||$2 ;
-			} else {
-                      		($code) = $o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)/mi ;
-			}
-                      if ($o->[DATA] =~ /^\*\s+BYE/im) {
-				$self->State(Unconnected);
-				return undef ;
-			}
-		}
-	}	
-	#print "$string: returned $code\n", memory_consumption();
-	# $self->_debug("Command $string: returned $code\n");
-	return $code =~ /^OK|$qgood/im ? $self : undef ;
-
-};
-
-# capability 2.2.9 is stupid: it caches and return first imap CAPABILITY call
-# but call imap CAPABILITY each time.
-# Copy/paste from 3.25
-*Mail::IMAPClient::capability = sub {
-    my $self = shift;
-
-    if ( $self->{CAPABILITY} ) {
-        my @caps = keys %{ $self->{CAPABILITY} };
-        return wantarray ? @caps : \@caps;
-    }
-
-    $self->_imap_command('CAPABILITY')
-      or return undef;
-
-    my @caps = map { split } grep s/^\*\s+CAPABILITY\s+//, $self->History;
-    foreach (@caps) {
-        $self->{CAPABILITY}{ uc $_ }++;
-        $self->{ uc $1 } = uc $2 if /(.*?)\=(.*)/;
-    }
-
-    return wantarray ? @caps : \@caps;
-};
-
-*Mail::IMAPClient::_read_line = sub {
-	my $self 	= shift;	
-	my $sh		= $self->Socket;
-	my $literal_callback    = shift;
-	my $output_callback = shift;
-	
-	unless ($self->IsConnected and $self->Socket) {
-		$self->LastError("NO Not connected.\n");
-		carp "Not connected" if $^W;
-		return undef;
-	}
-
-	my $iBuffer	= ""; 
-	my $oBuffer	= [];
-	my $count	= 0;
-	my $index	= $self->_next_index($self->Transaction);
-	my $rvec 	= my $ready = my $errors = 0; 
-	my $timeout	= $self->Timeout;
-
-	my $readlen 	= 1;
-	my $fast_io	= $self->Fast_io;	# Remember setting to reduce future method calls
-
-	if ( $fast_io ) {
-		
-		# set fcntl if necessary:
-		exists $self->{_fcntl} or $self->Fast_io($fast_io);
-		$readlen = $self->{Buffer}||4096;
-	}
-	until (	
-		# there's stuff in output buffer:
-		scalar(@$oBuffer)	and 			
-
-		# the last thing there has cr-lf:
-                $oBuffer->[-1][DATA] =~ /\x0d\x0a$/  and     
-
-		# that thing is an output line:
-                $oBuffer->[-1][TYPE]    eq "OUTPUT"  and     
-
-		# and the input buffer has been MT'ed:
-		$iBuffer		eq "" 		
-
-	) {
-		#print memory_consumption();
-              my $transno = $self->Transaction;  # used below in several places
-		if ($timeout) {
-			vec($rvec, fileno($self->Socket), 1) = 1;
-			my @ready = $self->{_select}->can_read($timeout) ;
-			unless ( @ready ) {
-				$self->LastError("Tag $transno: " .
-					"Timeout after $timeout seconds " .
-					"waiting for data from server\n");	
-				$self->_record($transno,
-					[	$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Timeout after ".
-						"$timeout seconds " .
-						"during read from " .
-						"server\x0d\x0a"
-					]
-				);
-				$self->LastError(
-					"Timeout after $timeout seconds " .
-					"during read from server\x0d\x0a"
-				);
-				return undef;
-			}
-		}
-		
-		#local($^W) = undef;	# Now quiet down warnings
-
-		# read "$readlen" bytes (or less):
-              # need to check return code from $self->_sysread 
-  	      #	in case other end has shut down!!!
-              my $ret = $self->_sysread( $sh, \$iBuffer, $readlen, length($iBuffer)) ;
-	      # $self->_debug("Read so far: $iBuffer<<END>>\n");
-	      redo if(! defined($ret)) ;
-              if(($timeout and ! defined($ret))) { # Blocking read error...
-                  my $msg = "Error while reading data from server: $!\x0d\x0a";
-		  $self->LastError('Error while reading data from server');
-		  $self->State(Unconnected);
-		  print $msg;
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-		  
-                  return undef;
-              }
-              elsif(defined($ret) and $ret == 0) {    # Caught EOF...
-                  my $msg="Socket closed while reading data from server [$!]\x0d\x0a";
-		  print "$msg";
-		  $self->LastError('Socket closed while reading data from server');
-		  $self->State(Unconnected);
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-                  return undef;
-              }
-	      
-              # successfully wrote to other end, keep going...
-              $count += $ret;
-		LINES: while ( $iBuffer =~ s/^(.*?\x0d?\x0a)// ) {
-		   my $current_line = $1;
-		   #print memory_consumption();
-
-		   # $self->_debug("BUFFER: pulled from buffer: <BEGIN>${current_line}<END>\n" .
-		   # 	"and left with buffer contents of: <BEGIN>${iBuffer}<END>\n");
-
-		   LITERAL: if ($current_line =~ s/\{(\d+)\}\x0d\x0a$//) {
-			# This part handles IMAP "Literals", 
-			# which according to rfc2060 look something like this:
-			# [tag]|* BLAH BLAH {nnn}\r\n
-			# [nnn bytes of literally transmitted stuff]
-			# [part of line that follows literal data]\r\n
-
-			# Set $len to be length of impending literal:
-			my $len = $1 ;
-			
-			$self->_debug("LITERAL: received literal in line ".
-				"$current_line of length $len; ".
-				"attempting to ".
-				"retrieve from the " . length($iBuffer) . 
-				" bytes in: $iBuffer<END_OF_iBuffer>\n");
-
-			# Xfer up to $len bytes from front of $iBuffer to $litstring: 
-			my $litstring = substr($iBuffer, 0, $len);
-			$iBuffer = substr($iBuffer, length($litstring), 
-					length($iBuffer) - length($litstring) ) ;
-
-			# Figure out what's left to read (i.e. what part of 
-			# literal wasn't in buffer):
-			my $remainder_count = $len - length($litstring);
-			my $callback_value = "";
-
-			if ( defined($literal_callback) ) 	{	
-				if 	( $literal_callback =~ /GLOB/) 	{	
-					print $literal_callback $litstring ;
-					$litstring = "";
-				} elsif ($literal_callback =~ /CODE/ ) {
-					# Don't do a thing
-
-				} else 	{
-					$self->LastError(
-						ref($literal_callback) . 
-						" is an invalid callback type; " .
-						"must be a filehandle or coderef\n"
-					); 
-				}
-
-		
-			}
-			if ($remainder_count > 0 and $timeout) {
-				# If we're doing timeouts then here we set up select 
-				# and wait for data from the the IMAP socket.
-				vec($rvec, fileno($self->Socket), 1) = 1;
-				unless ( CORE::select( $ready = $rvec, 
-							undef, 
-							$errors = $rvec, 
-							$timeout) 
-				) {	
-					# Select failed; that means bad news. 
-					# Better tell someone.
-					$self->LastError("Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n");	
-					carp "Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n"
-						if $self->Debug or $^W;	
-					return undef;
-				}	
-			} 
-			
-			fcntl($sh, F_SETFL, $self->{_fcntl}) 
-				if $fast_io and defined($self->{_fcntl});
-			while ( $remainder_count > 0 ) {	   # As long as not done,
-				$self->_debug("Still need $remainder_count to " .
-					"complete literal string\n");
-				my $ret	= $self->_sysread(   	   # bytes read
-						$sh, 		   # IMAP handle 
-						\$litstring,	   # place to read into
-						$remainder_count,  # bytes left to read
-						length($litstring) # offset to read into
-				) ;
-				$self->_debug("Received ret=$ret and buffer = " .
-				"\n$litstring<END>\nwhile processing LITERAL\n");
-				if ( $timeout and !defined($ret)) { # possible timeout
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Error reading data " .
-						"from server: $!\n"
-						]
-					);
-					return undef;
-				} elsif ( $ret == 0 and eof($sh) ) {
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * ".
-						"BYE Server unexpectedly " .
-						"closed connection: $!\n"	
-						]
-					);
-					$self->State(Unconnected);
-					return undef;
-				}
-				# decrement remaining bytes by amt read:
-				$remainder_count -= $ret;	   
-
-				if ( length($litstring) > $len ) {
-                                    # copy the extra struff into the iBuffer:
-                                    $iBuffer = substr(
-                                        $litstring,   
-                                        $len, 
-                                        length($litstring) - $len 
-                                    );
-                                    $litstring = substr($litstring, 0, $len) ;
-                                }
-
-				if ( defined($literal_callback) ) {
-					if ( $literal_callback =~ /GLOB/ ) {
-						print $literal_callback $litstring;
-						$litstring = "";
-					} 
-				}
-
-			}
-			$literal_callback->($litstring) 
-				if defined($litstring) and 
-				defined($literal_callback) and $literal_callback =~ /CODE/;
-
-			$self->Fast_io($fast_io) if $fast_io;
-
-		# Now let's make sure there are no IMAP server output lines 
-		# (i.e. [tag|*] BAD|NO|OK Text) embedded in the literal string
-		# (There shouldn't be but I've seen it done!), but only if
-		# EnableServerResponseInLiteral is set to true
-
-			my $embedded_output = 0;
-			my $lastline = ( split(/\x0d?\x0a/,$litstring))[-1] 
-				if $litstring;
-
-			if ( 	$self->EnableServerResponseInLiteral and
-				$lastline and 
-				$lastline =~ /^(?:\*|(\d+))\s(BAD|NO|OK)/i 
-			) {
-			  $litstring =~ s/\Q$lastline\E\x0d?\x0a//;
-			  $embedded_output++;
-
-			  $self->_debug("Got server output mixed in " .
-					"with literal: $lastline\n"
-			  ) 	if $self->Debug;
-
-			}
-		  	# Finally, we need to stuff the literal onto the 
-			# end of the oBuffer:
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line],
-					[ $index++, "LITERAL", $litstring   ];
-			push @$oBuffer,	[ $index++, "OUTPUT",  $lastline    ] 
-					if $embedded_output;
-
-		  } else { 
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line ]; 
-		  }
-		
-		}
-		#$self->_debug("iBuffer is now: $iBuffer<<END OF BUFFER>>\n");
-	}
-	#	_debug $self, "Buffer is now $buffer\n";
-      _debug $self, "Read: " . join("",map {$_->[DATA]} @$oBuffer) ."\n" 
-		if $self->Debug;
-	return scalar(@$oBuffer) ? $oBuffer : undef ;
-};
-
-
-
-}
-
-# End of sub override_imapclient (yes, very bad indentation)
-}
-
-# IMAPClient 2.2.9 3.xx ads
-
-package Mail::IMAPClient;
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { 
-		$self->{SPLIT} = shift;
-		$self->{Maxcommandlength} = 10 * $self->{SPLIT};
-	}
-	return $self->{SPLIT};
-}
-
-sub Tls {
-	my $self = shift;
-	
-	if (@_) { $self->{TLS} = shift }
-	return $self->{TLS};
-}
-
-sub Reconnect_counter {
-	my $self = shift;
-	$self->{Reconnect_counter} = 0 if ( not defined( $self->{Reconnect_counter} ) ) ;
-	if (@_) { $self->{Reconnect_counter} = shift }
-	return $self->{Reconnect_counter};
-}
-
-
-sub Banner {
-	my $self = shift;
-	
-	if (@_) { $self->{BANNER} = shift }
-	return $self->{BANNER};
-}
-
-
-sub RawSocket2  {
-    my ( $self, $sock ) = @_;
-    defined $sock
-      or return $self->{Socket};
-
-    $self->{Socket}  = $sock;
-    $self->{_select} = IO::Select->new($sock);
-    delete $self->{_fcntl};
-    #$self->Fast_io( $self->Fast_io );
-    $sock;
-}
-
-sub capability_update {
-	my $self = shift;
-	
-	delete $self->{CAPABILITY};
-	$self->capability;
-}
diff --git a/W/patches/imapsync.diff b/W/patches/imapsync.diff
deleted file mode 100644
index 6cd0b1f..0000000
--- a/W/patches/imapsync.diff
+++ /dev/null
@@ -1,146 +0,0 @@
---- imapsync.orig	Wed Dec 24 04:04:34 2003
-+++ imapsync	Wed Jan 21 10:32:24 2004
-@@ -34,10 +34,13 @@
-            [--host2 server2]  [--port2 <num>]
-            [--user2 <string>] [--passfile2 <string>] 
-            [--folder <string> --folder <string> ...]
-+	   [--include <regex>] [--exclude <regex>]
-            [--prefix2 <string>]
-            [--sep1 <char>]
-            [--sep2 <char>]
--           [--syncinternaldate]
-+           [--syncinternaldates]
-+	   [--maxsize <int>]
-+	   [--maxage <int>]
-            [--delete] [--expunge]
-            [--subscribed] [--subscribe]
-            [--dry]
-@@ -239,9 +242,10 @@
-         $rcs, $debug, $debugimap, $error,
- 	$host1, $host2, $port1, $port2,
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
--        @folder, $prefix2,
-+        @folder, $include, $exclude, $prefix2,
-         $sep1, $sep2,
- 	$syncinternaldates,
-+	$maxsize, $maxage,
- 	$delete, $expunge, $dry, 
-         $subscribed, $subscribe,
- 	$version, $VERSION, $help, 
-@@ -369,10 +373,19 @@
- 	@f_folders = @folder;
- }elsif ($subscribed) {
- 	# option --subscribed
--	@f_folders = keys (%fs_folders);
-+	@f_folders = sort keys (%fs_folders);
- }else {
- 	# no option, all folders
--	@f_folders = $from->folders()
-+	@f_folders = sort $from->folders();
-+	# consider (optional) includes and excludes
-+	if ($include) {
-+		@f_folders = grep  /$include/,@f_folders;
-+		print "Only including folders matching pattern '$include'\n";
-+	}
-+	if ($exclude) {
-+		@f_folders = grep !/$exclude/,@f_folders;
-+		print "Excluding folders matching pattern '$exclude'\n";
-+	}
- }
- 
- my($f_sep,$t_sep); 
-@@ -415,13 +428,13 @@
- # my $tohasuidplus = $to->has_capability("UIDPLUS");
- 
- 
--@t_folders = @{$to->folders()};
-+@t_folders = sort @{$to->folders()};
- print 
-   "From folders : ", map("[$_] ",@f_folders),"\n",
-   "To   folders : ", map("[$_] ",@t_folders),"\n";
- 
- print 
--  "From subscribed folders : ", map("[$_] ", keys(%fs_folders)), "\n";
-+  "From subscribed folders : ", map("[$_] ", sort keys(%fs_folders)), "\n";
- 
- sub separator_invert {
- 	my $o_sep="\000";
-@@ -485,9 +498,9 @@
- 		unless($dry) { $to->subscribe($t_fold) };
- 	}
- 	
--	my @f_msgs = $from->search("ALL");
-+	my @f_msgs = $maxage ? $from->since(time - 86400 * $maxage) : $from->search("ALL");
- 	$debug and print "LIST FROM : @f_msgs\n";
--	my @t_msgs = $to->search("ALL");
-+	my @t_msgs = $maxage ? $to->since(time - 86400 * $maxage) : $to->search("ALL");
- 	$debug and print "LIST TO   : @t_msgs\n";
- 
- 	my %f_hash = ();
-@@ -508,6 +521,10 @@
- 	MESS: foreach my $m_id (keys(%f_hash)) {
- 		my $f_size = $f_hash{$m_id}{'s'};
- 		my $f_msg = $f_hash{$m_id}{'m'};
-+		if (defined $maxsize and $f_size > $maxsize) {
-+			print "Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit)\n";
-+			next MESS;
-+		}
- 		$debug and print "key     $m_id #$f_msg\n";
- 		unless (exists($t_hash{$m_id})) {
- 			print "NO msg #$f_msg [$m_id] in $t_fold\n";
-@@ -526,7 +543,7 @@
- 				my $new_id;
- 				print "flags from : [$flags_f][$d]\n";
- 				unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
--					warn "Couldn't append msg #$f_msg to folder $t_fold",
-+					warn "Couldn't append msg #$f_msg (Subject: ".$from->subject($f_msg).") to folder $t_fold: ",
- 					$to->LastError, "\n";
- 					$error++;
- 					next MESS;
-@@ -619,9 +636,13 @@
-                                    "sep1=s"      => \$sep1,
-                                    "sep2=s"      => \$sep2,
- 				   "folder=s"    => \@folder,
-+				   "include=s"   => \$include,
-+				   "exclude=s"   => \$exclude,
- 				   "prefix2=s"   => \$prefix2,
-                                    "delete!"     => \$delete,
-                                    "syncinternaldates!" => \$syncinternaldates,
-+				   "maxsize=i"   => \$maxsize,
-+				   "maxage=i"    => \$maxage,
-                                    "dry!"        => \$dry,
-                                    "expunge!"    => \$expunge,
-                                    "subscribed!" => \$subscribed,
-@@ -656,8 +677,8 @@
- 	return unless(scalar(keys(%$head)));	    
- 	foreach my $h (sort keys(%$head)){
- 		foreach my $val ( @{$head->{$h}}) {
--			# no accent in headers !
--			$val =~ y/éèàù/XXXX/;
-+			# no 8-bit data in headers !
-+			$val =~ s/[\x80-\xff]/X/g;
- 			$debug and print "${s}H $h:", $val, "\n";
- 			$headstr .= "$h:". $val;
- 		}
-@@ -704,6 +725,12 @@
- --folder      <string> : sync only this folder.
- --folder      <string> : and this one.
- --folder      <string> : and this one, etc.
-+--include     <regex>  : only sync folders matching this regular expression
-+                         (only effective if neither --folder nor --subscribed
-+			  is specified)
-+--exclude     <regex>  : skip folders matching this regular expression
-+                         (only effective if neither --folder nor --subscribed
-+			  is specified)
- --prefix2     <string> : add prefix to all destination folders 
-                          (usually INBOX. for cyrus imap servers)
- --sep1        <char>   : separator in case namespace is not supported.
-@@ -718,6 +745,8 @@
-                          expunge is made at the begining so newly
-                          transfered messages won't be expunged.
- --syncinternaldates    : set the internal dates on host2 same as host1
-+--maxsize     <int>    : skip messages larger than <int> bytes
-+--maxage      <int>    : skip messages older than <int> days
- --dry                  : do nothing, just print what would be done.
- --subscribed           : transfer only subscribed folders.
- --subscribe            : subscribe to the folders transfered on the 
diff --git a/W/patches/imapsync.patch_rick_romero b/W/patches/imapsync.patch_rick_romero
deleted file mode 100644
index ae44f79..0000000
--- a/W/patches/imapsync.patch_rick_romero
+++ /dev/null
@@ -1,633 +0,0 @@
---- imapsync-1.267/imapsync	Tue Oct  7 06:36:03 2008
-+++ /usr/local/bin/imapsync	Mon Dec  8 12:09:28 2008
-@@ -79,6 +79,9 @@
-            [--debug] [--debugimap]
-            [--timeout <int>] [--fast]
-            [--split1] [--split2] 
-+	   [--quiet] 
-+	   [--showstats]
-+	   [--emailreport] [--emailuser <string]
-            [--version] [--help]
-   
- =cut
-@@ -435,6 +438,7 @@
- use Carp;
- use Getopt::Long;
- use Mail::IMAPClient;
-+use Net::SMTP;
- use Digest::MD5  qw(md5_base64);
- #use Term::ReadKey;
- #use IO::Socket::SSL;
-@@ -442,6 +446,7 @@
- use English;
- use POSIX qw(uname);
- use Fcntl;
-+use Time::Zone;
- 
- #use Test::Simple tests => 1;
- use Test::More 'no_plan';
-@@ -450,7 +455,7 @@
- 
- 
- my(
--        $rcs, $debug, $debugimap, $error,
-+        $rcs, $debug, $debugimap, $error, $errortext, $emailreport, $emailuser,
- 	$host1, $host2, $port1, $port2,
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, @include, @exclude, @folderrec,
-@@ -484,7 +489,7 @@
-         $authmech1, $authmech2,
-         $split1, $split2,
- 	$tests, $test_builder,
--	$allow3xx,
-+	$allow3xx,$quiet,$showstats
- );
- 
- use vars qw ($opt_G); # missing code for this will be option.
-@@ -548,7 +553,6 @@
- 
- }
- 
--
- my $banner = join("", 
- 		  '$RCSfile: imapsync,v $ ',
- 		  '$Revision: 1.267 $ ',
-@@ -566,12 +570,12 @@
- }
- 
- get_options();
--
-+$errortext = "";
- 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";
- 
- 
--print $banner;
-+!$quiet and print $banner;
- 
- sub missing_option {
- 	my ($option) = @_;
-@@ -622,11 +626,11 @@
- 	my $to = ();
- 	
- 	$from = connect_imap($host1, $port1, $debugimap, $ssl1);
--	print "From software : ", server_banner($from);
--	print "From capability : ", join(" ", $from->capability()), "\n";
-+	!$quiet and print "From software : ", server_banner($from);
-+	!$quiet and print "From capability : ", join(" ", $from->capability()), "\n";
- 	$to   = connect_imap($host2, $port2, $debugimap, $ssl2);
--	print "To   software : ", server_banner($to);
--	print "To   capability : ", join(" ", $to->capability()), "\n";
-+	!$quiet and print "To   software : ", server_banner($to);
-+	!$quiet and print "To   capability : ", join(" ", $to->capability()), "\n";
- 	$from->logout();
- 	$to->logout();
- 	exit(0);
-@@ -638,16 +642,16 @@
- $syncinternaldates = defined($syncinternaldates) ? defined($syncinternaldates) : 1;
- 
- if($idatefromheader) {
--	print "Turned ON idatefromheader, ",
-+	!$quiet and print "Turned ON idatefromheader, ",
- 	      "will set the internal dates on host2 from the 'Date:' header line.\n";
- 	$syncinternaldates = 0;
- 
- }
- if ($syncinternaldates) {
--	print "Turned ON syncinternaldates, ",
-+	!$quiet and print "Turned ON syncinternaldates, ",
- 	      "will set the internal dates on host2 same as host1.\n";
- }else{
--	print "Turned OFF syncinternaldates\n";
-+	!$quiet and print "Turned OFF syncinternaldates\n";
- }
- 
- if ($syncinternaldates || $idatefromheader) {
-@@ -656,11 +660,12 @@
- 	require Date::Manip;
- 	Date::Manip->import(qw(ParseDate Date_Cmp UnixDate Date_Init Date_TimeZone));
- 	#print "Date_init : [", join(" ",Date_Init()), "]\n";
--	print "TimeZone :[", Date_TimeZone(), "]\n";
- 	if (not (Date_TimeZone())) {
--		warn "TimeZone not defined, setting it to GMT";
-+		#warn "TimeZone not defined, setting it to GMT";
- 		Date_Init("TZ=GMT");
--		print "TimeZone : [", Date_TimeZone(), "]\n";
-+		!$quiet and print "TimeZone : [", Date_TimeZone(), "]\n";
-+	}else{
-+		!$quiet and print "TimeZone :[", Date_TimeZone(), "]\n";
- 	}
- }
- 
-@@ -680,8 +685,8 @@
- $authuser1 ||= $user1;
- $authuser2 ||= $user2;
- 
--print "Will try to use $authmech1 authentication on host1\n";
--print "Will try to use $authmech2 authentication on host2\n";
-+!$quiet and print "Will try to use $authmech1 authentication on host1\n";
-+!$quiet and print "Will try to use $authmech2 authentication on host2\n";
- 
- $syncacls = (defined($syncacls)) ? $syncacls : 0;
- $foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-@@ -693,8 +698,8 @@
- 
- @useheader = ("ALL") unless (@useheader);
- 
--print "From imap server [$host1] port [$port1] user [$user1]\n";
--print "To   imap server [$host2] port [$port2] user [$user2]\n";
-+!$quiet and print "From imap server [$host1] port [$port1] user [$user1]\n";
-+!$quiet and print "To   imap server [$host2] port [$port2] user [$user2]\n";
- 
- 
- sub ask_for_password {
-@@ -765,20 +770,20 @@
- 	$imap->connect()
- 	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
- 	
--	print "Banner : ", server_banner($imap);
-+	!$quiet and print "Banner : ", server_banner($imap);
- 	
- 	if ($imap->has_capability("AUTH=$authmech")
- 	    or $imap->has_capability($authmech)
- 	   ) {
--		printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
--		       $imap->Server, $authmech);
-+		if (!$quiet) { printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-+		       $imap->Server, $authmech);}
- 	} 
- 	else {
--		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
--		       $imap->Server, $authmech);
-+		if (!$quiet) { printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-+		       $imap->Server, $authmech);}
- 		if ($authmech eq 'PLAIN') {
- 			print "Frequently PLAIN is only supported with SSL, ",
--			  "try --ssl1 or --ssl2 option\n";
-+			  "try using SSL option\n";
- 		}
- 	}
- 	
-@@ -789,15 +794,15 @@
- 	$imap->Authuser($authuser);
- 	$imap->Password($password);
- 	unless ($imap->login()) {
--		print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
-+		!$quiet and print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
- 		die if ($authmech eq 'LOGIN');
- 		die if $imap->IsUnconnected();
--		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-+		!$quiet and print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
- 		$imap->Authmechanism("");
- 		$imap->login() or
- 		  die "Error login : [$host] with user [$user] auth [LOGIN] : $@";
- 	}
--	print "Success login on [$host] with user [$user] auth [$authmech]\n";
-+	!$quiet and print "Success login on [$host] with user [$user] auth [$authmech]\n";
- 	return($imap);
- }
- 
-@@ -822,13 +827,13 @@
- 
- 
- 
--print "From capability : ", join(" ", $from->capability()), "\n";
--print "To   capability : ", join(" ", $to->capability()), "\n";
-+!$quiet and print "From capability : ", join(" ", $from->capability()), "\n";
-+!$quiet and print "To   capability : ", join(" ", $to->capability()), "\n";
- 
- die unless $from->IsAuthenticated();
--print "From state Authenticated\n";
-+!$quiet and print "From state Authenticated\n";
- die unless   $to->IsAuthenticated();
--print "To   state Authenticated\n";
-+!$quiet and print "To   state Authenticated\n";
- 
- $split1 and $from->Split($split1);
- $split2 and $to->Split($split2);
-@@ -932,7 +937,7 @@
- 	foreach my $include (@include) {
- 		my @included_folders = grep /$include/, @all_source_folders;
- 		add_to_requested_folders(@included_folders);
--		print "Including folders matching pattern '$include': @included_folders\n";
-+		!$quiet and print "Including folders matching pattern '$include': @included_folders\n";
- 	}
- }
- 
-@@ -941,7 +946,7 @@
- 		my @requested_folder = sort(keys(%requested_folder));
- 		my @excluded_folders = grep /$exclude/, @requested_folder;
- 		remove_from_requested_folders(@excluded_folders);
--		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-+		!$quiet and print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
- 	}
- }
- 
-@@ -1056,7 +1061,7 @@
- 	
- 	$debug and print "Getting prefix namespace\n";
- 	if (defined($prefix_in)) {
--		print "Using [$prefix_in] given by $prefix_opt\n";
-+		!$quiet and print "Using [$prefix_in] given by $prefix_opt\n";
- 		$prefix_out = $prefix_in;
- 		return($prefix_out);
- 	}
-@@ -1082,7 +1087,7 @@
- 	
- 	
- 	if ($sep_in) {
--		print "Using [$sep_in] given by $sep_opt\n";
-+		!$quiet and print "Using [$sep_in] given by $sep_opt\n";
- 		$sep_out = $sep_in;
- 		return($sep_out);
- 	}
-@@ -1101,8 +1106,8 @@
- }
- 
- 
--print "From separator and prefix : [$f_sep][$f_prefix]\n";
--print "To   separator and prefix : [$t_sep][$t_prefix]\n";
-+!$quiet and print "From separator and prefix : [$f_sep][$f_prefix]\n";
-+!$quiet and print "To   separator and prefix : [$t_sep][$t_prefix]\n";
- 
- 
- sub foldersizes {
-@@ -1111,13 +1116,13 @@
- 	my $tot = 0;
- 	my $tmess = 0;
- 	my @folders = @{$folders_r};
--	print "++++ Calculating sizes ++++\n";
-+	!$quiet and print "++++ Calculating sizes ++++\n";
- 	foreach my $folder (@folders)     {
- 		my $stot = 0;
- 		my $smess = 0;
--		printf("$side Folder %-35s", "[$folder]");
-+		!$quiet and printf("$side Folder %-35s", "[$folder]");
- 		unless($imap->exists($folder)) {
--			print("does not exist yet\n");
-+			!$quiet and print("does not exist yet\n");
- 			next;
- 		}
- 		unless ($imap->select($folder)) {
-@@ -1148,14 +1153,14 @@
- 				map {$stot += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
- 			}
- 		}
--		printf(" Size: %9s", $stot);
--		printf(" Messages: %5s\n", $smess);
-+		!$quiet and printf(" Size: %9s", $stot);
-+		!$quiet and printf(" Messages: %5s\n", $smess);
- 		$tot += $stot;
- 		$tmess += $smess;
- 	}
--	print "Total size: $tot\n";
--	print "Total messages: $tmess\n";
--	print "Time : ", timenext(), " s\n";
-+	!$quiet and print "Total size: $tot\n";
-+	!$quiet and print "Total messages: $tmess\n";
-+	!$quiet and print "Time : ", timenext(), " s\n";
- }
- 
- 
-@@ -1196,12 +1201,12 @@
- 	$t_folders_list{$folder}++;
- }
- 
--print 
-+!$quiet and print 
-   "++++ Listing folders ++++\n",
-   "From folders list : ", map("[$_] ",@f_folders),"\n",
-   "To   folders list : ", map("[$_] ",@t_folders_list),"\n";
- 
--print 
-+!$quiet and print 
-   "From subscribed folders list : ", 
-   map("[$_] ", sort keys(%subscribed_folder)), "\n" 
-   if ($subscribed);
-@@ -1259,11 +1264,11 @@
- 		my %users = map({ ($_, 1) } (keys(%$f_hash), keys(%$t_hash)));
- 		foreach my $user (sort(keys(%users))) {
- 			my $acl = $f_hash->{$user} || "none";
--			print "acl $user : [$acl]\n";
-+			!$quiet and print "acl $user : [$acl]\n";
- 			next if ($f_hash->{$user} && $t_hash->{$user} &&
- 				 $f_hash->{$user} eq $t_hash->{$user});
- 			unless ($dry) {
--				print "setting acl $t_fold $user $acl\n";
-+				!$quiet and print "setting acl $t_fold $user $acl\n";
- 				$to->setacl($t_fold, $user, $acl)
- 				  or warn "Could not set acl: $@\n";
- 			}
-@@ -1272,13 +1277,13 @@
- }
- 
- 
--print "++++ Looping on each folder ++++\n";
-+!$quiet and print "++++ Looping on each folder ++++\n";
- 
- FOLDER: foreach my $f_fold (@f_folders) {
- 	my $t_fold;
--	print "From Folder [$f_fold]\n";
-+	!$quiet and print "From Folder [$f_fold]\n";
- 	$t_fold = to_folder_name($f_fold);
--	print "To   Folder [$t_fold]\n";
-+	!$quiet and print "To   Folder [$t_fold]\n";
- 
- 	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
-@@ -1291,12 +1296,13 @@
- 		next FOLDER;
- 	}
- 	if ( ! exists($t_folders_list{$t_fold})) {
--		print "To   Folder $t_fold does not exist\n";
--		print "Creating folder [$t_fold]\n";
-+		!$quiet and print "To   Folder $t_fold does not exist\n";
-+		!$quiet and print "Creating folder [$t_fold]\n";
- 		unless ($dry){
- 			unless ($to->create($t_fold)){
- 				warn "Couldn't create [$t_fold]",
- 				$to->LastError,"\n";
-+				$errortext .= "Couldn't create [$t_fold]",
- 				$error++;
- 				next FOLDER;
- 			}
-@@ -1317,13 +1323,13 @@
- 	}
- 	
- 	if ($expunge){
--		print "Expunging $f_fold and $t_fold\n";
-+		!$quiet and print "Expunging $f_fold and $t_fold\n";
- 		unless($dry) { $from->expunge() };
- 		#unless($dry) { $to->expunge() };
- 	}
- 	
- 	if ($subscribe and exists $subscribed_folder{$f_fold}) {
--		print "Subscribing to folder $t_fold on destination server\n";
-+		!$quiet and print "Subscribing to folder $t_fold on destination server\n";
- 		unless($dry) { $to->subscribe($t_fold) };
- 	}
- 	
-@@ -1346,7 +1352,7 @@
- 	my %f_hash = ();
- 	my %t_hash = ();
- 	
--	print "++++ From [$f_fold] Parse 1 ++++\n";
-+	!$quiet and print "++++ From [$f_fold] Parse 1 ++++\n";
- 	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
- 
-@@ -1363,7 +1369,7 @@
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	
--	print "++++ To   [$t_fold] Parse 1 ++++\n";
-+	!$quiet and print "++++ To   [$t_fold] Parse 1 ++++\n";
- 	last FOLDER if $from->IsUnconnected();
- 	last FOLDER if   $to->IsUnconnected();
- 
-@@ -1379,7 +1385,7 @@
- 	}
- 	$debug and print "Time headers: ", timenext(), " s\n";
- 	
--	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
-+	!$quiet and print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
- 	# messages in "from" that are not good in "to"
- 	
- 	my @f_hash_keys_sorted_by_uid 
-@@ -1396,7 +1402,7 @@
- 			#print "$m_id ";
- 			unless (exists($f_hash{$m_id})) {
- 				my $t_msg  = $t_hash{$m_id}{'m'};
--				print "deleting message $m_id  $t_msg\n";
-+				!$quiet and print "deleting message $m_id  $t_msg\n";
- 				$to->delete_message($t_msg) unless ($dry);	
- 			}
- 		}
-@@ -1408,16 +1414,16 @@
- 		my $f_idate = $f_hash{$m_id}{'D'};
- 		
- 		if (defined $maxsize and $f_size > $maxsize) {
--			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-+			!$quiet and print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
- 			$mess_size_total_skipped += $f_size;
- 			$mess_skipped += 1;
- 			next MESS;
- 		}
- 		$debug and print "+ key     $m_id #$f_msg\n";
- 		unless (exists($t_hash{$m_id})) {
--			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-+			!$quiet and print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
- 			# copy
--			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-+			!$quiet and print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
- 			last FOLDER if $from->IsUnconnected();
- 			my $string;
- 			$string = $from->message_string($f_msg);
-@@ -1497,7 +1503,7 @@
- 			$flags_f = flags_regex($flags_f) if @regexflag;
- 			
- 			my $new_id;
--			print "flags from : [$flags_f][$d]\n";
-+			!$quiet and print "flags from : [$flags_f][$d]\n";
- 			last FOLDER if   $to->IsUnconnected();
- 			unless ($dry) {
- 				
-@@ -1514,6 +1520,9 @@
- 					warn "Couldn't append msg #$f_msg (Subject:[".
- 					  $from->subject($f_msg)."]) to folder $t_fold: ",
- 					  $to->LastError, "\n";
-+					$errortext .= "Couldn't append msg #$f_msg (Subject:[".
-+					  $from->subject($f_msg)."]) to folder $t_fold: " .
-+					  $to->LastError . "\n";	
- 					$error++;
- 					$mess_size_total_error += $f_size;
- 					next MESS;
-@@ -1522,11 +1531,11 @@
- 					# good
- 					# $new_id is an id if the IMAP server has the 
- 					# UIDPLUS capability else just a ref
--					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-+					!$quiet and print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
- 					$mess_size_total_trans += $f_size;
- 					$mess_trans += 1;
- 					if($delete) {
--						print "Deleting msg #$f_msg in folder $f_fold\n";
-+						!$quiet and print "Deleting msg #$f_msg in folder $f_fold\n";
- 						$from->delete_message($f_msg) unless ($dry);
- 						$from->expunge() if ($expunge and not $dry);
- 					}
-@@ -1577,12 +1586,12 @@
- 		
- 
- 		$debug and do {
--			print "Looking dates\n"; 
-+			!$quiet and print "Looking dates\n"; 
- 			#my $d_f = $from->internaldate($f_msg);
- 			#my $d_t = $to->internaldate($t_msg);
- 			my $d_f = $f_hash{$m_id}{'D'};
- 			my $d_t = $t_hash{$m_id}{'D'};
--			print 
-+			!$quiet and print 
- 			  "idate from : $d_f\n",
- 			    "idate to   : $d_t\n";
- 			
-@@ -1592,13 +1601,14 @@
- 		};
- 		unless (($f_size == $t_size) or $skipsize) {
- 			# Bad size
--			print 
-+			!$quiet and print 
- 			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			# delete in to and recopy ?
- 			# NO recopy CODE HERE. to be written if needed.
-+			$errortext .= "Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			$error++;
- 			if ($opt_G){
--				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-+				!$quiet and print "Deleting msg f:#$t_msg in folder $t_fold\n";
- 				$to->delete_message($t_msg) unless ($dry);
- 			}
- 		}
-@@ -1607,22 +1617,22 @@
- 			$debug and print
- 			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
- 			if($delete) {
--				print "Deleting msg #$f_msg in folder $f_fold\n";
-+				!$quiet and print "Deleting msg #$f_msg in folder $f_fold\n";
- 				$from->delete_message($f_msg) unless ($dry);
- 				$from->expunge() if ($expunge and not $dry);
- 			}
- 		}
- 	}
- 	if ($expunge1){
--		print "Expunging source folder $f_fold\n";
-+		!$quiet and print "Expunging source folder $f_fold\n";
- 		unless($dry) { $from->expunge() };
- 	}
- 	if ($expunge2){
--		print "Expunging target folder $t_fold\n";
-+		!$quiet and print "Expunging target folder $t_fold\n";
- 		unless($dry) { $to->expunge() };
- 	}
- 
--print "Time : ", timenext(), " s\n";
-+!$quiet and print "Time : ", timenext(), " s\n";
- }
- 
- 
-@@ -1673,17 +1683,47 @@
- }
- 
- sub stats {
--	print "++++ Statistics ++++\n";
--	print "Time                   : $timediff sec\n";
--	print "Messages transferred   : $mess_trans ";
--	print "(could be $mess_skipped_dry without dry mode)" if ($dry);
--	print "\n";
--	print "Messages skipped       : $mess_skipped\n";
--	print "Total bytes transferred: $mess_size_total_trans\n";
--	print "Total bytes skipped    : $mess_size_total_skipped\n";
--	print "Total bytes error      : $mess_size_total_error\n";
--	print "Detected $error errors\n\n";
--	print thank_author();
-+
-+	if ($error){$emailreport=1;}
-+	if ($emailreport == 1){
-+		my $smtpserver = 'localhost';
-+                my $Mail = Net::SMTP->new($smtpserver) ||
-+                     die "Could not connect to SMTP server $smtpserver : $!";
-+                $Mail->mail($emailuser);
-+                $Mail->recipient($emailuser);
-+                my $Message = "To: " . $emailuser . "\n";
-+                $Message .= "From: admin\@vfemail.net\n";
-+                $Message .= "Date: " . date_r() ."\n";
-+                $Message .= "Subject: IMAPSync Report\n\n\n";
-+		$Message .= "++++ Statistics ++++\n";
-+		$Message .= "Time                   : $timediff sec\n";
-+		$Message .= "Messages transferred   : $mess_trans ";
-+		$Message .= "\n";
-+		$Message .= "Messages skipped       : $mess_skipped\n";
-+		$Message .= "Total bytes transferred: $mess_size_total_trans\n";
-+		$Message .= "Total bytes skipped    : $mess_size_total_skipped\n";
-+		$Message .= "Total bytes error      : $mess_size_total_error\n";
-+		$Message .= "Detected $error errors\n\n";
-+		if ($error){$Message .= $errortext."\n\n";}
-+
-+                $Mail->data($Message);
-+                $Mail->quit();
-+
-+
-+
-+	}elsif ($showstats){
-+		print "++++ Statistics ++++\n";
-+		print "Time                   : $timediff sec\n";
-+		print "Messages transferred   : $mess_trans ";
-+		print "(could be $mess_skipped_dry without dry mode)" if ($dry);
-+		print "\n";
-+		print "Messages skipped       : $mess_skipped\n";
-+		print "Total bytes transferred: $mess_size_total_trans\n";
-+		print "Total bytes skipped    : $mess_size_total_skipped\n";
-+		print "Total bytes error      : $mess_size_total_error\n";
-+		print "Detected $error errors\n\n";
-+		#print thank_author();
-+	}
- }
- 
- sub thank_author {
-@@ -1695,6 +1735,25 @@
- 
- }
- 
-+sub date_r
-+    {
-+        my ($day, $mon, $str);
-+        my (@lt) = ();
-+        my @DAYS = ( "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" );
-+        my @MON = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
-+
-+        @lt     = localtime();
-+        $day    = $lt[6];
-+        $mon    = $lt[4];
-+
-+        $str = $DAYS[$day] . ", " . $lt[3] . " " . $MON[$mon] . " " . ($lt[5]+1900)
-+             . " " . sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0] )
-+            . " " . sprintf("%03d%02d", (tz_offset() / 3600), 0);
-+
-+        return $str;
-+    }
-+
-+
- sub get_options
- {
- 	my $numopt = scalar(@ARGV);
-@@ -1760,6 +1819,10 @@
- 				   "split1=i"    => \$split1,
- 				   "split2=i"    => \$split2,
-                                    "tests"       => \$tests,
-+                                   "quiet!"       => \$quiet,
-+                                   "showstats"   => \$showstats,
-+                                   "emailreport"  => \$emailreport,
-+                                   "emailuser=s"  => \$emailuser,
-                                    "allow3xx!"   => \$allow3xx,
-                                   );
- 	
-@@ -1769,7 +1832,7 @@
- 	$test_builder->no_ending(1);
- 		
- 	# just the version
--        print "$VERSION\n" and exit if ($version) ;
-+        !$quiet and print "$VERSION\n" and exit if ($version) ;
- 	
- 	if ($tests) {
- 		$test_builder->no_ending(0);
-@@ -2027,6 +2090,10 @@
- --fastio1              : use fastio with the "from" server.
- --fastio2              : use fastio with the "destination" server.
- --timeout     <int>    : imap connect timeout.
-+--quiet		       : Only outupt errors.
-+--showstats	       : On by default, use with --quiet for end results.
-+--emailreport	       : Send final stats to email address.
-+--emailuser <string>   : User to send final stats to (server defaults to localhost).
- --help                 : print this.
- 
- Example: to synchronise imap account "foo" on "imap.truc.org"
diff --git a/W/patches/imapsync.syncuid.diff b/W/patches/imapsync.syncuid.diff
deleted file mode 100644
index 80cbfbc..0000000
--- a/W/patches/imapsync.syncuid.diff
+++ /dev/null
@@ -1,97 +0,0 @@
---- imapsync.orig	Tue Jun 14 23:28:32 2005
-+++ imapsync	Wed Jun 15 14:04:14 2005
-@@ -318,7 +318,7 @@
- 	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-         @folder, $include, $exclude, $prefix2, $regextrans2, @regexmess,
-         $sep1, $sep2,
--	$syncinternaldates, $syncacls,
-+	$syncinternaldates, $syncacls, $syncuids,
- 	$maxsize, $maxage,
-         $skipheader, @useheader,
-         $skipsize, $foldersizes, $buffersize,
-@@ -410,6 +410,7 @@
- $authmd5 = (defined($authmd5)) ? $authmd5 : 1;
- 
- $syncacls = (defined($syncacls)) ? $syncacls : 0;
-+$syncuids = (defined($syncuids)) ? $syncuids : 0;
- $foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
- 
- @useheader = ("ALL") unless (@useheader);
-@@ -661,7 +662,8 @@
- # needed for setting flags
- my $tohasuidplus = $to->has_capability("UIDPLUS");
- 
--
-+die("Need UIDPLUS on destination server to synchronize UIDs\n")
-+	if ($syncuids && !$tohasuidplus);
- 
- print 
-   "From folders : ", map("[$_] ",@f_folders),"\n",
-@@ -788,7 +790,7 @@
- 	print "Time sizes  : ", timenext(), " s\n";
- 	#my $f_flags = $from->flags(@f_msgs) ;
- 	#print "Time flags  : ", timenext(), " s\n";
--	use Data::Dumper;
-+	#use Data::Dumper;
- 	#print Data::Dumper->Dump([$f_heads]);
- 	#print Data::Dumper->Dump([$f_flags]);
- 	
-@@ -821,6 +823,7 @@
- 	
- 	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
- 	
-+	my $last_uid = 0;
- 	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
- 		my $f_size = $f_hash{$m_id}{'s'};
- 		my $f_msg = $f_hash{$m_id}{'m'};
-@@ -835,6 +838,21 @@
- 			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
- 			# copy
- 			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-+			while ($syncuids && !$dry && $last_uid < $f_msg - 1) {
-+				my $new_id = $to->append_string($t_fold,
-+				    "From: imapsync\r\n".
-+				    "Subject: deleted message\r\n".
-+				    "\r\n".
-+				    "This message has been deleted.\r\n");
-+				if ($new_id) {
-+					warn "Inserted padding message #$new_id\n";
-+					$to->delete_message($new_id);
-+					$last_uid = $new_id;
-+				} else {
-+					warn "Failed to insert padding message\n";
-+					last;
-+				}
-+			}
- 			my $string = $from->message_string($f_msg);
- 			foreach my $regexmess (@regexmess) {
- 				$debug and print "eval \$string =~ $regexmess\n";
-@@ -883,6 +901,11 @@
- 					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
- 					$mess_size_total_trans += $f_size;
- 					$mess_trans += 1;
-+					$last_uid = $new_id;
-+					if ($syncuids && $last_uid != $f_msg) {
-+						# not much we can do about this...
-+						warn "Couldn't preserve message UID\n";
-+					}
- 				}
- 			}
- 			next MESS;
-@@ -1002,6 +1025,7 @@
-                                    "delete!"     => \$delete,
-                                    "syncinternaldates!" => \$syncinternaldates,
-                                    "syncacls!"   => \$syncacls,
-+                                   "syncuids!"   => \$syncuids,
- 				   "maxsize=i"   => \$maxsize,
- 				   "maxage=i"    => \$maxage,
- 				   "buffersize=i" => \$buffersize,
-@@ -1156,6 +1180,8 @@
-                          --justconnect. Turned on by default.
- --syncacls             : Synchronizes acls.
- --nosyncacls           : Does not synchronize acls. This is the default.
-+--syncuids             : Synchronizes UIDs.
-+--nosyncuids           : Does not synchronize UIDs. This is the default.
- --debug                : debug mode.
- --debugimap            : imap debug mode.
- --version              : print sotfware version.
diff --git a/W/patches/imapsync_1.267_jari b/W/patches/imapsync_1.267_jari
deleted file mode 100644
index 36464a5..0000000
--- a/W/patches/imapsync_1.267_jari
+++ /dev/null
@@ -1,2790 +0,0 @@
-#!/usr/bin/perl
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration
-tool. Synchronise mailboxes between two imap servers. Good
-at IMAP migration. More than 32 different IMAP server softwares
-supported with success.
-
-$Revision: 1.267 $
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows (2000, XP) and ActiveState's 5.8 Perl
-
- imapsync is already available directly on the following distributions (at least):
- FreeBSD, Debian, Ubuntu, Gentoo, NetBSD, Darwin, Mandriva and OpenBSD (yeah!).
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/dist/
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://www.linux-france.org/prj/imapsync/INSTALL (for windows users)
- 
- The freshmeat record is at http://freshmeat.net/projects/imapsync/
-
-=head1 SYNOPSIS
-
-  imapsync [options]
-
-To get a description of each option just run imapsync like this :
-
-  imapsync --help
-  imapsync
-
-The option list :
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-           [--authmech1 <string>] [--authmech2 <string>] 
-           [--noauthmd5]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect]
-           [--syncinternaldates]
-           [--idatefromheader]
-           [--buffersize  <int>]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-           [--skipsize]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2]
-           [--subscribed] [--subscribe]
-           [--nofoldersizes]
-           [--dry]
-           [--debug] [--debugimap]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--version] [--help]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transfered, recursively.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is the adequate tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers, same message size
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync is adapted to a bad
-connection. imapsync is CPU hungry so nice and renice 
-commands can be a good help. imapsync can be memory hungry too,
-especially with large messages.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete --expunge1 options.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A.
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without loosing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwith link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started its life being a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" on host
-"imap.src.fr" to the imap account "max" on host
-"imap.dest.fr" (the passwords are located in two files
-"/etc/secret1" for "buddy", "/etc/secret2" for "max") :
-
- imapsync --host1 imap.src.fr  --user1 buddy --passfile1 /etc/secret1 \
-          --host2 imap.dest.fr --user2 max   --passfile2 /etc/secret2
-
-Then, you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --password1 instead of --passfile1 to give the
-password but it is dangerous because any user on your host
-can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text in
-case CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 and --ssl2 to enable encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have a buggy internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap is a good place to talk about
-imapsync. I read it when imapsync is concerned.
-
-Gilles LAMIRAL earn his living writing, installing,
-configuring and teaching free open and gratis
-softwares. Do not hesitate to pay him for that services.
-
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by
-the GNU General Public License. See the GPL file included in
-the distribution or the web site
-http://www.gnu.org/licenses/licenses.html
-
-=head1 MAILING-LIST
-
-Here is the welcome message:
-
-Welcome on the imapsync mailing-list.
-
-This list is dedicated to the users of imapsync
-http://www.linux-france.org/prj/imapsync/
-
-To write on the list, the address is:
-mailto:imapsync@linux-france.org
-
-To unsubscribe, send a message to:
-mailto:imapsync-unsubscribe@listes.linux-france.org
-
-To subscribe, send a message to:
-mailto:imapsync-subscribe@listes.linux-france.org
-
-To contact the person in charge for the list:
-mailto:imapsync-request@listes.linux-france.org
-
-The list archives may be available at:
-http://www.linux-france.org/prj/imapsync_list/
-So consider that the list is public, anyone
-can see your post. Use a pseudonym or do not
-post to this list if you want to stay private.
-
-Thank you for your participation.
-
-=head1 BUGS and BUG REPORT
-
-No known serious bug.  
-
-Report any bug or feature request to the author
-or the mailing-list.
-
-Before reporting bugs, read the FAQ, this README and the
-TODO files.
-
-Don't write imapsync in uppercase in the email title, I'll
-know you run windows and you haven't read the README yet.
-
-Make a good title, not just "imapsync" or "problem",
-a good title is made of keywords summary,  not too long (one visible line).
-
-Before reporting bugs, read the FAQ, this README and the
-TODO files. http://www.linux-france.org/prj/imapsync/
-
-Help me to help you: in your report, please include:
-
- - imapsync version.
- - output given with --debug --debugimap near the failure point.
- - operating system running imapsync.
- - imap servers softwares on both side and their version number.
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). 
- - IMAPClient.pm version.
-
- Those values can be found as a copy/paste at the begining of the output.
-
- And also, if it can help :
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
-
-=head1 IMAP SERVERS
-
-Failure stories reported with the following 4 imap servers :
-
- - MailEnable 1.54 (Proprietary) http://www.mailenable.com/
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 works.
-   Patient and confident testers are welcome.
- - dkimap4 2.39
- - Imail 7.04 (maybe).
-
-Success stories reported with the following 35 imap servers 
-(softwares names are in alphabetic order) : 
-
- - Archiveopteryx 2.03, 2.04, 2.09, 2.10 [dest], 3.0.0 [dest]
-   (OSL 3.0) http://www.archiveopteryx.org/
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.10, 2.2.12, 
-   v2.2.3-Invoca-RPM-2.2.3-8,
-   2.3-alpha (OSI Approved),
-   v2.2.12-Invoca-RPM-2.2.12-3.RHEL4.1,
-   2.2.13,
-   v2.3.1-Invoca-RPM-2.3.1-2.7.fc5,
-   v2.3.7,
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Deerfield VisNetic MailServer 5.8.6 [from]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest/source] (LGPL) (http://www.dovecot.org/)
- - Domino (Notes) 4.61[from], 6.5, 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 7.0.1 [from]
- - Eudora WorldMail v2
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform)
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.0.6249.0[from], 6.5.7638.1 [dest]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431
- - SmarterMail
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java System Messaging Server 6.2-2.05
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - Imap part of TCP/IP suite of VMS 7.3.2
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 5.5.
-
-Please report to the author any success or bad story with
-imapsync and do not forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- From software :* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- To   software :* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example :
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-Please rate imapsync at http://freshmeat.net/projects/imapsync/
-or better give the author a book, he likes books:
-http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
-(or its paypal account gilles.lamiral@laposte.net)
-
-=head1 HUGE MIGRATION
-
-
-Have a special attention on options 
---subscribed
---subscribe
---delete
---delete2
---expunge
---expunge1
---expunge2
---maxage
---minage
---maxsize
---useheader
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file content is :
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just :
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 "$u1" --password1 "$p1" --user2 "$u2" --password2 "$p2" ...
- done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the GPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : http://software.complete.org/offlineimap
-  mailsync      : http://mailsync.sourceforge.net/
-  imapxfer      : http://www.washington.edu/imap/
-                   part of the imap-utils from UW.
-  mailutil      : replace imapxfer in 
-                   part of the imap-utils from UW.
-                  http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freshmeat.net/projects/imap-repl/
-  imap_migrate  : http://freshmeat.net/projects/imapmigration/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also tools/wonko_ruby_imapsync
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will be always welcome.
-
-$Id: imapsync,v 1.267 2008/10/07 11:36:02 gilles Exp - patched by NeuroAgent / 29.10.2008 $
-
-
-
-=cut
-
-
-#use warnings;
-++$|;
-use strict;
-use Carp;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use POSIX qw(uname);
-use Fcntl;
-
-#use Test::Simple tests => 1;
-use Test::More 'no_plan';
-
-eval { require 'usr/include/sysexits.ph' };
-
-
-my(
-        $rcs, $debug, $debugimap, $error,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag, 
-        $sep1, $sep2,
-	$syncinternaldates,
-        $idatefromheader,
-        $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $maxage, $minage, 
-        $skipheader, @useheader,
-        $skipsize, $foldersizes, $buffersize,
-	$delete, $delete2,
-        $expunge, $expunge1, $expunge2, $dry,
-        $justfoldersizes,
-        $authmd5,
-        $subscribed, $subscribe,
-	$version, $VERSION, $help, 
-        $justconnect, $justfolders,
-        $fast,
-        $mess_size_total_trans,
-        $mess_size_total_skipped,
-        $mess_size_total_error,
-        $mess_trans, $mess_skipped, $mess_skipped_dry, 
-        $timeout,   # whr (ESS/PRW)
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-        $authuser1, $authuser2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-	$tests, $test_builder,
-	$allow3xx,
-    $fserver, $tserver,
-);
-
-use vars qw ($opt_G); # missing code for this will be option.
-
-
-$rcs = '$Id: imapsync,v 1.267 2008/10/07 11:36:02 gilles Exp - patched by NeuroAgent / 29.10.2008 $ ';
-$rcs =~ m/,v (\d+\.\d+)/;
-$VERSION = ($1) ? $1 : "UNKNOWN";
-
-my $VERSION_IMAPClient = $Mail::IMAPClient::VERSION;
-
-
-
-$mess_size_total_trans   = 0;
-$mess_size_total_skipped = 0;
-$mess_size_total_error   = 0;
-$mess_trans = $mess_skipped = $mess_skipped_dry = 0;
-
-
-sub check_lib_version {
-	$debug and print "VERSION_IMAPClient $1 $2 $3\n";
-	if ($VERSION_IMAPClient eq '2.2.9') {
-		override_imapclient();
-		return(1);
-	}
-	else{
-		# 3.x.x is still buggy with imapsync.
-		# uncomment "return 1" if you want to check it.
-		return 1;
-		#return 0;
-		if ($allow3xx) {
-*Mail::IMAPClient::Ssl = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{SSL} = shift }
-	return $self->{SSL};
-};
-			return(1);
-
-		}else{
-			return(0);
-		}
-	}
-}
-
-$error=0;
-
-sub modules_VERSION() {
-
-no warnings 'uninitialized';
-my $modules_releases = "
-Mail::IMAPClient  $Mail::IMAPClient::VERSION
-IO::Socket        $IO::Socket::VERSION
-IO::Socket::SSL   $IO::Socket::SSL::VERSION
-Digest::MD5       $Digest::MD5::VERSION
-Digest::HMAC_MD5  $Digest::HMAC_MD5::VERSION
-Term::ReadKey     $Term::ReadKey::VERSION
-Date::Manip       $Date::Manip::VERSION
-";	
-    return($modules_releases);
-
-}
-
-
-my $banner = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.267 - patched version $ ',
-		  '$Date: 2008/10/07 11:36:02 $ ',
-		  "\n",localhost_info(),
-		  " and the module Mail::IMAPClient version used here is ",
-		  $VERSION_IMAPClient,"\n",
-		  "Command line used :\n",
-		  "$0 @ARGV\n",
-		 );
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-get_options();
-
-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";
-
-
-print $banner;
-
-sub missing_option {
-	my ($option) = @_;
-	die "$option option must be used, run $0 --help for help\n";
-}
-
-# By default, 1000 at a time, not more.
-$split1 ||= 1000;
-$split2 ||= 1000;
-
-$host1 || missing_option("--host1") ;
-$port1 ||= defined $ssl1 ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-$port2 ||= defined $ssl2 ? 993 : 143;
-
-
-
-sub connect_imap {
-	my($host, $port, $debugimap, $ssl) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->connect()
-	  or die "Can not open imap connection on [$host] : $@\n";	
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	    "Here is a [$OSNAME] system (", 
-	    join(" ", 
-	         uname(),
-	         ),
-                 ")\n",
-	         "with perl ", 
-	         sprintf("%vd", $PERL_VERSION),
-	         modules_VERSION()
-            );	  
-	return($infos);
-
-}
-
-if ($justconnect) {
-	my $from = ();
-	my $to = ();
-	
-	$from = connect_imap($host1, $port1, $debugimap, $ssl1);
-	print "From software : ", server_banner($from);
-	print "From capability : ", join(" ", $from->capability()), "\n";
-	$to   = connect_imap($host2, $port2, $debugimap, $ssl2);
-	print "To   software : ", server_banner($to);
-	print "To   capability : ", join(" ", $to->capability()), "\n";
-	$from->logout();
-	$to->logout();
-	exit(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-$syncinternaldates = defined($syncinternaldates) ? defined($syncinternaldates) : 1;
-
-if($idatefromheader) {
-	print "Turned ON idatefromheader, ",
-	      "will set the internal dates on host2 from the 'Date:' header line.\n";
-	$syncinternaldates = 0;
-
-}
-if ($syncinternaldates) {
-	print "Turned ON syncinternaldates, ",
-	      "will set the internal dates on host2 same as host1.\n";
-}else{
-	print "Turned OFF syncinternaldates\n";
-}
-
-if ($syncinternaldates || $idatefromheader) {
-	no warnings 'redefine';
-	local *Carp::confess = sub { return undef; };
-	require Date::Manip;
-	Date::Manip->import(qw(ParseDate Date_Cmp UnixDate Date_Init Date_TimeZone));
-	#print "Date_init : [", join(" ",Date_Init()), "]\n";
-	print "TimeZone :[", Date_TimeZone(), "]\n";
-	if (not (Date_TimeZone())) {
-		print "TimeZone not defined, setting it to GMT";
-		Date_Init("TZ=GMT");
-		print "TimeZone : [", Date_TimeZone(), "]\n";
-	}
-}
-
-
-if(defined($authmd5) and not($authmd5)) {
-	$authmech1 ||= 'LOGIN';
-	$authmech2 ||= 'LOGIN';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'CRAM-MD5';
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'CRAM-MD5';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "Will try to use $authmech1 authentication on host1\n";
-print "Will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-
-
-@useheader = ("ALL") unless (@useheader);
-
-print "From imap server [$host1] port [$port1] user [$user1]\n";
-print "To   imap server [$host2] port [$port2] user [$user2]\n";
-
-
-sub ask_for_password {
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-
-$password1 || $passfile1 || do {
-	$password1 = ask_for_password($authuser1 || $user1, $host1);
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	$password2 = ask_for_password($authuser2 || $user2, $host2);
-};
-
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-my $from = ();
-my $to = ();
-
-$timestart = time();
-$timebefore = $timestart;
-
-$debugimap and print "From connection\n";
-($from,$fserver) = login_imap($host1, $port1, $user1, $password1, 
-		   $debugimap, $timeout, $fastio1, $ssl1, 
-		   $authmech1, $authuser1);
-
-$debugimap and print "To  connection\n";
-($to,$tserver) = login_imap($host2, $port2, $user2, $password2, 
-		 $debugimap, $timeout, $fastio2, $ssl2, 
-		 $authmech2, $authuser2);
-
-#  history
-
-$debug and print "From Buffer I/O : ", $from->Buffer(), "\n";
-$debug and print "To   Buffer I/O : ", $to->Buffer(), "\n";
-
-
-sub login_imap {
-	my($host, $port, $user, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $authmech, $authuser) = @_;
-	my ($imap);
-	
-	$imap = Mail::IMAPClient->new();
-	
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Clear(20);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-	
-	$imap->connect()
-	  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
-	
-	# This is used later to check if to-server is Sun's mail server
-	# Reason for this check is that some mail servers doesn't accept some signs in folders so those will be removed
-	# that mail migration can be done successfully
-	my $server = server_banner($imap);
-	print "Banner : $server";
-	
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} 
-	else {
-		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Frequently PLAIN is only supported with SSL, ",
-			  "try --ssl1 or --ssl2 option\n";
-		}
-	}
-	
-	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-
-	$imap->User($user);
-	$imap->Authuser($authuser);
-	$imap->Password($password);
-	unless ($imap->login()) {
-		print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
-		die if ($authmech eq 'LOGIN');
-		die if $imap->IsUnconnected();
-		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-		$imap->Authmechanism("");
-		$imap->login() or
-		  die "Error login : [$host] with user [$user] auth [LOGIN] : $@";
-	}
-	print "Success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap,$server);
-}
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	for my $line ($imap->Results()) {
-		#print "LR: $line";
-		return $line if $line =~ /^\* (OK|NO|BAD)/;
-        }
-	return "No banner\n";
- }
-
-
-
-print "From capability : ", join(" ", $from->capability()), "\n";
-print "To   capability : ", join(" ", $to->capability()), "\n";
-
-die unless $from->IsAuthenticated();
-print "From state Authenticated\n";
-die unless   $to->IsAuthenticated();
-print "To   state Authenticated\n";
-
-$split1 and $from->Split($split1);
-$split2 and $to->Split($split2);
-
-# 
-# Folder stuff
-#
-
-my (@f_folders, %requested_folder, @t_folders, @t_folders_list, %t_folders_list, %subscribed_folder, %t_folders);
-
-sub tests_folder_routines {
-	ok( !give_requested_folders()                ,"no requested folders"  );
-	ok( !is_requested_folder('folder_foo')                                );
-	ok(  add_to_requested_folders('folder_foo')                           );
-	ok(  is_requested_folder('folder_foo')                                );
-	ok( !is_requested_folder('folder_NO_EXIST')                           );
-	ok( !remove_from_requested_folders('folder_foo'), "removed folder_foo");
-	ok( !is_requested_folder('folder_foo')                                );
-	my @f;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f");
-	ok(  is_requested_folder('folder_bar')                                );
-	ok(  is_requested_folder('folder_toto')                               );
-	ok(  remove_from_requested_folders('folder_toto')                     );
-	ok( !is_requested_folder('folder_toto')                               );
-	ok( init_requested_folders()                 , 'empty requested folders');
-	ok( !give_requested_folders()                , 'no requested folders'  );
-}
-
-sub give_requested_folders {
-	return(keys(%requested_folder));
-}
-
-sub init_requested_folders {
-	
-	%requested_folder = ();
-	return(1);
-	
-}
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	defined( $requested_folder{ $folder } );
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder };
-	}
-	return( keys( %requested_folder ) );
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder};
-	}
-	return( keys(%requested_folder) );
-}
-
-
-# Make a hash of subscribed folders in source server.
-map { $subscribed_folder{$_} = 1 } $from->subscribed();
-
-
-my @all_source_folders = sort $from->folders();
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ($subscribed) {
-		add_to_requested_folders(keys (%subscribed_folder));
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($from->folders($folderrec));
-		}
-	}
-}
-else {
-	
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		add_to_requested_folders(@all_source_folders);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	foreach my $include (@include) {
-		my @included_folders = grep /$include/, @all_source_folders;
-		add_to_requested_folders(@included_folders);
-		print "Including folders matching pattern '$include': @included_folders\n";
-	}
-}
-
-if (scalar(@exclude)) {
-	foreach my $exclude (@exclude) {
-		my @requested_folder = sort(keys(%requested_folder));
-		my @excluded_folders = grep /$exclude/, @requested_folder;
-		remove_from_requested_folders(@excluded_folders);
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-	}
-}
-
-# Remove no selectable folders
-
-foreach my $folder (keys(%requested_folder)) {
-        if ( not $from->selectable($folder)) {
-		print "Warning : ignoring folder $folder because it is not selectable\n";
-                remove_from_requested_folders($folder);
-        }
-}
-
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@f_folders = @requested_folder;
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if (! $list_1_ref); # end if no list
-	return(1)  if (! $list_2_ref); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = 0;
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref);
-	
-	# same size, each element equal
-	return 0
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  =  1 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  1  =  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-}
-
-
-
-
-
-my($f_sep,$t_sep); 
-# what are the private folders separators for each server ?
-
-
-$debug and print "Getting separators\n";
-$f_sep = get_separator($from, $sep1, "--sep1");
-$t_sep = get_separator($to, $sep2, "--sep2");
-
-#my $f_namespace = $from->namespace();
-#my $t_namespace = $to->namespace();
-#$debug and print "From namespace:\n", Data::Dumper->Dump([$f_namespace]);
-#$debug and print "To   namespace:\n", Data::Dumper->Dump([$t_namespace]);
-
-my($f_prefix,$t_prefix); 
-$f_prefix = get_prefix($from, $prefix1, "--prefix1");
-$t_prefix = get_prefix($to, $prefix2, "--prefix2");
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the prefix namespace with the $prefix_opt option\n";
-		exit(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ($sep_in) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator caracter with the $sep_opt option\n";
-		exit(1);
-	}
-}
-
-
-print "From separator and prefix : [$f_sep][$f_prefix]\n";
-print "To   separator and prefix : [$t_sep][$t_prefix]\n";
-
-
-sub foldersizes {
-
-	my ($side, $imap, $folders_r) = @_;
-	my $tot = 0;
-	my $tmess = 0;
-	my @folders = @{$folders_r};
-	print "++++ Calculating sizes ++++\n";
-	foreach my $folder (@folders)     {
-		my $stot = 0;
-		my $smess = 0;
-		printf("$side Folder %-35s", "[$folder]");
-		unless($imap->exists($folder)) {
-			print("does not exist yet\n");
-			next;
-		}
-		unless ($imap->select($folder)) {
-			print 
-			  "$side Folder $folder : Could not select ",
-			    $imap->LastError,  "\n";
-			#$error++;
-			next;
-		}
-		if (defined($maxage) or defined($minage)) {
-			# The pb is fetch_hash() can only be applied on ALL messages
-			my @msgs = select_msgs($imap);
-			$smess = scalar(@msgs);
-			foreach my $m (@msgs) {
-				my $s = $imap->size($m)
-				  or print "Could not find size of message $m: $@\n";
-				$stot += $s;
-			}
-		}
-		else{
-			my $hashref = {};
-			$smess = $imap->message_count();
-			unless ($smess == 0) {
-				#$imap->Ranges(1);
-				$imap->fetch_hash("RFC822.SIZE",$hashref) or die "$@";
-				#$imap->Ranges(0);
-				#print map {$hashref->{$_}->{"RFC822.SIZE"}, " "} keys %$hashref;
-				map {$stot += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
-			}
-		}
-		printf(" Size: %9s", $stot);
-		printf(" Messages: %5s\n", $smess);
-		$tot += $stot;
-		$tmess += $smess;
-	}
-	print "Total size: $tot\n";
-	print "Total messages: $tmess\n";
-	print "Time : ", timenext(), " s\n";
-}
-
-
-foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	$t_fold = to_folder_name($f_fold,$tserver);
-	$t_folders{$t_fold}++;
-}
-
-@t_folders = sort keys(%t_folders);
-
-
-if ($foldersizes) {
-	foldersizes("From", $from, \@f_folders);
-	foldersizes("To  ", $to,   \@t_folders);
-}
-
-
-
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-exit if ($justfoldersizes);
-
-# needed for setting flags
-my $tohasuidplus = $to->has_capability("UIDPLUS");
-
-
-@t_folders_list = sort @{$to->folders()};
-foreach my $folder (@t_folders_list) {
-	$t_folders_list{$folder}++;
-}
-
-print 
-  "++++ Listing folders ++++\n",
-  "From folders list : ", map("[$_] ",@f_folders),"\n",
-  "To   folders list : ", map("[$_] ",@t_folders_list),"\n";
-
-print 
-  "From subscribed folders list : ", 
-  map("[$_] ", sort keys(%subscribed_folder)), "\n" 
-  if ($subscribed);
-
-sub separator_invert {
-	# The separator we hope we'll never encounter
-	my $o_sep="\000";
-
-	my($f_fold, $f_sep, $t_sep) = @_;
-
-	my $t_fold = $f_fold;
-	$t_fold =~ s@\Q$t_sep@$o_sep@g;
-	$t_fold =~ s@\Q$f_sep@$t_sep@g;
-	$t_fold =~ s@\Q$o_sep@$f_sep@g;
-	return($t_fold);
-}
-
-sub to_folder_name {
-	my ($t_fold);
-	my ($x_fold,$tserver) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^$f_prefix//;
-	$debug and print "removed source prefix : [$x_fold]\n";
-	$t_fold = separator_invert($x_fold,$f_sep, $t_sep);
-	$debug and print "inverted   separators : [$t_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$t_fold = $t_prefix . $t_fold 
-	  unless(($t_prefix eq "INBOX.") and ($t_fold =~ m/^INBOX$/i));
-	$debug and print "added   target prefix : [$t_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-		$debug and print "eval \$t_fold =~ $regextrans2\n";
-		eval("\$t_fold =~ $regextrans2");
-	}
-
-	# Fix foldernames so that it's possible copy those
-	# This is not perfect solution, but much better than not copy those
-	if ($tserver =~ /Sun Java\(tm\) System Messaging Server/)
-	{
-	    $t_fold =~ s/\?/\_qm\_/g;
-	    $t_fold =~ s/\&5A\-/\&AOQ\-/g;
-	    $t_fold =~ s/\&xA\-/\&AOQ\-/g;
-	    $t_fold =~ s/\%20/\_/g;
-	    $t_fold =~ s/\%e4/a/g;
-	    $t_fold =~ s/\&9g\-/o/g;
-	    $t_fold =~ s/\&1g\-/o/g;
-	    $t_fold =~ s/\%f6/o/g;
-	    $t_fold =~ s/\%2f/\-/g;
-	    $t_fold =~ s/INBOX\//INBOX\-/g;
-	    $t_fold =~ s/\&APYA\-/o/g;
-	    $t_fold =~ s/\&AOQA\-/a/g;
-	    $t_fold =~ s/\&AOQA5A\-/aa/g;
-	    $t_fold =~ s/\&APYA5A\-/oo/g;
-	}
-	# Remove ?, #, $ and @ -signs if to-server is Cyrus
-	# And change those to _qm_/_dm_/_at_/_nm_ marks
-	elsif($tserver =~ /Cyrus IMAP4/)
-	{
-	    $t_fold =~ s/\?/\_qm\_/g;
-	    $t_fold =~ s/\#/\_nm\_/g;
-	    $t_fold =~ s/\$/\_dm\_/g;
-	    $t_fold =~ s/\@/\_at\_/g;
-	    $t_fold =~ s/\!/\_yel\_/g;
-	    $t_fold =~ s/\(/\_ps\_/g;
-	    $t_fold =~ s/\)/\_pe\_/g;
-	    $t_fold =~ s/\,/\_cm\_/g;
-	    $t_fold =~ s/\:/\_cl\_/g;
-	    $t_fold =~ s/\=/\_sum\_/g;
-	    $t_fold =~ s/\</\_less\_/g;
-	    $t_fold =~ s/\>/\_great\_/g;
-	}
-
-	return($t_fold);
-}
-
-sub flags_regex {
-	my ($flags_f) = @_;
-	foreach my $regexflag (@regexflag) {
-		$debug and print "eval \$flags_f =~ $regexflag\n";
-		eval("\$flags_f =~ $regexflag");
-	}
-	return($flags_f);
-}
-
-sub acls_sync {
-	my($f_fold, $t_fold) = @_;
-	if ($syncacls) {
-		my $f_hash = $from->getacl($f_fold)
-		  or print "Could not getacl for $f_fold: $@\n";
-		my $t_hash = $to->getacl($t_fold)
-		  or print "Could not getacl for $t_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$f_hash), keys(%$t_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $f_hash->{$user} || "none";
-			print "acl $user : [$acl]\n";
-			next if ($f_hash->{$user} && $t_hash->{$user} &&
-				 $f_hash->{$user} eq $t_hash->{$user});
-			unless ($dry) {
-				print "setting acl $t_fold $user $acl\n";
-				$to->setacl($t_fold, $user, $acl)
-				  or print "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-print "++++ Looping on each folder ++++\n";
-
-FOLDER: foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	$t_fold = to_folder_name($f_fold,$tserver);
-	print "To   Folder [$t_fold]\n";
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-	
-	unless ($from->select($f_fold)) {
-		print 
-		"From Folder $f_fold : Could not select ",
-		$from->LastError,  "\n";
-		#$error++;
-		next FOLDER;
-	}
-	if ( ! exists($t_folders_list{$t_fold})) {
-		print "To   Folder $t_fold does not exist\n";
-		print "Creating folder [$t_fold]\n";
-		unless ($dry){
-			unless ($to->create($t_fold)){
-				print "Couldn't create [$t_fold]",
-				$to->LastError,"\n";
-				$error++;
-				next FOLDER;
-			}
-		}
-		else{
-			next FOLDER;
-		}
-	}
-	
-	acls_sync($f_fold, $t_fold);
-
-	unless ($to->select($t_fold)) { 
-		print 
-		"To   Folder $t_fold : Could not select ",
-		$to->LastError, "\n";
-		#$error++;
-		next FOLDER;
-	}
-	
-	if ($expunge){
-		print "Expunging $f_fold and $t_fold\n";
-		unless($dry) { $from->expunge() };
-		#unless($dry) { $to->expunge() };
-	}
-	
-	if ($subscribe and exists $subscribed_folder{$f_fold}) {
-		print "Subscribing to folder $t_fold on destination server\n";
-		unless($dry) { $to->subscribe($t_fold) };
-	}
-	
-	next FOLDER if ($justfolders);
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my @f_msgs = select_msgs($from);
-
-
-
-	$debug and print "LIST FROM : ", scalar(@f_msgs), " messages [@f_msgs]\n";
-	# internal dates on "TO" are after the ones on "FROM"
-	# normally...
-	my @t_msgs = select_msgs($to);
-	
-	$debug and print "LIST TO   : ", scalar(@t_msgs), " messages [@t_msgs]\n";
-
-	my %f_hash = ();
-	my %t_hash = ();
-	
-	print "++++ From [$f_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $f_heads = $from->parse_headers([@f_msgs],
-					    @useheader)if (@f_msgs) ;
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $f_fir  = $from->fetch_hash("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@f_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	
-	foreach my $m (@f_msgs) {
-		parse_header_msg1($from, $m, $f_heads, $f_fir, "F", \%f_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ To   [$t_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $t_heads =   $to->parse_headers([@t_msgs],
-					    @useheader) if (@t_msgs);
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $t_fir  =   $to->fetch_hash("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@t_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	foreach my $m (@t_msgs) {
-		parse_header_msg1($to, $m, $t_heads, $t_fir, "T", \%t_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
-	# messages in "from" that are not good in "to"
-	
-	my @f_hash_keys_sorted_by_uid 
-	  = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
-	
-	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
-	
-	my @t_hash_keys_sorted_by_uid 
-	  = sort {$t_hash{$a}{'m'} <=> $t_hash{$b}{'m'}} keys(%t_hash);
-
-	
-	if($delete2) {
-		foreach my $m_id (@t_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($f_hash{$m_id})) {
-				my $t_msg  = $t_hash{$m_id}{'m'};
-				print "deleting message $m_id  $t_msg\n";
-				$to->delete_message($t_msg) unless ($dry);	
-			}
-		}
-	}
-
-	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
-		my $f_size = $f_hash{$m_id}{'s'};
-		my $f_msg = $f_hash{$m_id}{'m'};
-		my $f_idate = $f_hash{$m_id}{'D'};
-		
-		if (defined $maxsize and $f_size > $maxsize) {
-			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-			next MESS;
-		}
-		$debug and print "+ key     $m_id #$f_msg\n";
-		unless (exists($t_hash{$m_id})) {
-			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-			# copy
-			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-			last FOLDER if $from->IsUnconnected();
-			my $string;
-			$string = $from->message_string($f_msg);
-			my $message_file = "";
-			#print "AAAmessage_string[$string]ZZZ\n";
-			#my $message_file = "tmp_imapsync_$$";
-			#$from->select($f_fold);
-			#unlink($message_file);
-			#$from->message_to_file($message_file, $f_msg) or do {
-			#	warn "Could not put message #$f_msg to file $message_file",
-			#	$from->LastError;
-			#	$error++;
-			#	$mess_size_total_error += $f_size;
-			#	next MESS;
-			#};
-			#$string = file_to_string($message_file);
-			#print "AAA1[$string]ZZZ\n";
-			#unlink($message_file);
-			if (@regexmess) {
-				$string = regexmess($string);
-				
-				#string_to_file($string, $message_file);
-			}
-
-			sub tests_regexmess {
-				
-				ok("blabla" eq regexmess("blabla"), "regexmess, nothing to do");
-				@regexmess = ('s/p/Z/g');
-				ok("ZoZoZo" eq regexmess("popopo"), "regexmess, s/p/Z/g");
-				@regexmess = 's{c}{C}gxms';
-				#print "RRR¤\n", regexmess("H1: abc\nH2: cde\n\nBody abc"), "\n";
-				ok("H1: abC\nH2: Cde\n\nBody abC" 
-					   eq regexmess("H1: abc\nH2: cde\n\nBody abc"), 
-				   "regexmess, c->C");
-				
-			}
-
-			sub regexmess {
-				my ($string) = @_;
-				foreach my $regexmess (@regexmess) {
-					$debug and print "eval \$string =~ $regexmess\n";
-					eval("\$string =~ $regexmess");
-				}
-				return($string);
-			}
-
-			$debug and print 
-				"=" x80, "\n", 
-				"F message content begin next line\n",
-				$string,
-				"F message content ended on previous line\n", "=" x 80, "\n";
-			my $d = "";
-			if ($syncinternaldates) {
-				$d = $f_idate;
-				$debug and print "internal date from 1: [$d]\n";
-				$d = good_date($d);
-				$debug and print "internal date from 1: [$d] (fixed)\n";
-			}
-			
-			if ($idatefromheader) {
-				
-				$d = $from->get_header($f_msg,"Date");
-				$debug and print "header date from 1: [$d]\n";
-				$d = good_date($d);
-				$debug and print "header date from 1: [$d] (fixed)\n";
-			}
-
-			sub good_date {
-				my ($d) = @_;
-				$d = UnixDate(ParseDate($d), "%d-%b-%Y %H:%M:%S %z");
-				$d = "\"$d\"";
-				return($d);
-			}
-
-			my $flags_f = $f_hash{$m_id}{'F'} || "";
-			# RFC 2060 : This flag can not be altered by any client
-			$flags_f =~ s@\\Recent@@gi;
-			$flags_f = flags_regex($flags_f) if @regexflag;
-			
-			my $new_id;
-			print "flags from : [$flags_f][$d]\n";
-			last FOLDER if   $to->IsUnconnected();
-			unless ($dry) {
-				if ($OSNAME eq "MSWin32") {
-					$new_id = $to->append_string($t_fold,$string, $flags_f, $d);
-				}
-				else {
-					$new_id = $to->append_file($t_fold, $message_file, "", $flags_f, $d);
-				}
-
-				unless($new_id){
-				    # OK, let's try to fix header problems and then try again....
-				    $string = fix_header($string,$from->subject($f_msg));
-				    unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d))
-				    {
-					print "Couldn't append msg #$f_msg (Subject:[".$from->subject($f_msg)."]) to folder $t_fold: ",
-					$to->LastError, "\n";
-					$error++;
-					$mess_size_total_error += $f_size;
-					next MESS;
-				    }
-				    else
-				    {
-					# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-					$mess_trans += 1;
-					if($delete) {
-						print "Deleting msg #$f_msg in folder $f_fold\n";
-						$from->delete_message($f_msg) unless ($dry);
-						$from->expunge() if ($expunge and not $dry);
-					}
-				    }
-
-				}
-				else{
-					# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-					$mess_trans += 1;
-					if($delete) {
-						print "Deleting msg #$f_msg in folder $f_fold\n";
-						$from->delete_message($f_msg) unless ($dry);
-						$from->expunge() if ($expunge and not $dry);
-					}
-				}
-			}
-			else{
-				$mess_skipped_dry += 1;
-			}
-			#unlink($message_file);
-			next MESS;
-		}
-		else{
-			$debug and print "Message id [$m_id] found in t:$t_fold\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-		}
-		
-		$fast and next MESS;
-		#$debug and print "MESSAGE $m_id\n"; 
-		my $t_size = $t_hash{$m_id}{'s'};
-		my $t_msg  = $t_hash{$m_id}{'m'};
-		
-		
-		$debug and print "Setting flags\n";
-		last FOLDER if $from->IsUnconnected();
-		last FOLDER if   $to->IsUnconnected();
-
-		my (@flags_f,@flags_t);
-		my $flags_f_rv = $from->flags($f_msg);
-		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
-		
-		# No flag \Recent here, no ?
-		my $flags_f = join(" ", @flags_f);
-		
-		$flags_f = flags_regex($flags_f) if @regexflag;
-		
-		# This add or change flags but no flag are removed with this
-		$to->store($t_msg,
-			   "+FLAGS (" . $flags_f . ")"
-			  ) unless ($dry) ;
-		
-		my $flags_t_rv = $to->flags($t_msg);
-		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
-		my $flags_t = join(" ", @flags_t);
-		$debug and print 
-		  "flags from : $flags_f\n",
-		  "flags to   : $flags_t\n";
-		
-
-		$debug and do {
-			print "Looking dates\n"; 
-			#my $d_f = $from->internaldate($f_msg);
-			#my $d_t = $to->internaldate($t_msg);
-			my $d_f = $f_hash{$m_id}{'D'};
-			my $d_t = $t_hash{$m_id}{'D'};
-			print 
-			  "idate from : $d_f\n",
-			    "idate to   : $d_t\n";
-			
-			#unless ($d_f eq $d_t) {
-			#	print "!!! Dates differ !!!\n";
-			#}
-		};
-		unless (($f_size == $t_size) or $skipsize) {
-			# Bad size
-			print 
-			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			# delete in to and recopy ?
-			# NO recopy CODE HERE. to be written if needed.
-			$error++;
-			if ($opt_G){
-				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-				$to->delete_message($t_msg) unless ($dry);
-			}
-		}
-		else {
-	    		# Good 
-			$debug and print
-			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			if($delete) {
-				print "Deleting msg #$f_msg in folder $f_fold\n";
-				$from->delete_message($f_msg) unless ($dry);
-				$from->expunge() if ($expunge and not $dry);
-			}
-		}
-	}
-	if ($expunge1){
-		print "Expunging source folder $f_fold\n";
-		unless($dry) { $from->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging target folder $t_fold\n";
-		unless($dry) { $to->expunge() };
-	}
-
-print "Time : ", timenext(), " s\n";
-}
-
-
-$from->logout();
-$to->logout();
-
-$timeend = time();
-
-$timediff = $timeend - $timestart;
-
-stats();
-
-
-exit(1) if($error);
-
-########################################################################
-#
-#                        Writes header part again
-#      This might make fix copy/move problem and migration can go on
-#
-########################################################################
-sub fix_header
-{
-    my ($mail,$subject) = @_;
-    my ($from,$mid,$date,$ct,$received,$cte,$rfrom) = undef;
-    # Remove windoze line feeds
-    $mail =~ s/\r//g;
-    $mail =~ s/Return-Path:\s\<([^\>]+)>\n//;
-    $rfrom = $1?$1:"-";
-    $mail =~ s/Message-Id:\s\<([^\>]+)>\n//;
-    $mid = $1?$1:"1111";
-    $mail =~ s/Content-Type:\s([^\n]+)\n([^\n]+)\n//;
-    $ct =  ($1 && $2)?"$1\n$2":"text/plain;\ncharset=\"iso-8859-1\"";
-    $mail =~ s/Content-Transfer-Encoding:\s([^\n]+)\n//;
-    $cte = $1?$1:"quoted-printable;";
-    $mail =~ s/Received:\s([^\n]+)\n([^\n]+)\n([^\n]+)\n//;
-    $received = ($1 && $2 && $3)?"$1\n$2\n$3":"-";
-    $mail =~ s/From:([^\n]+)\n//g;
-    $from = $1?$1:$rfrom;
-    $mail =~ s/From[^\n]+\n//g;
-    $mail =~ s/Return-Path:\s[^\n]+\n//;
-    $mail =~ s/Received:\s[^\n]+\n[^\n]+\n[^\n]+\n//;
-    $mail =~ s/To:\s([^\n]+)\n//;
-    $mail =~ s/Subject:\s[^\n]+\n//;
-    $mail =~ s/MIME-Version:[^\n]+\n//;
-    $mail =~ s/Reply-To:\s[^\n]+\n//;
-    $mail =~ s/Date:\s([^\n]+)\n//;
-    $date = $1?$1:"Tue, 1 Jan 2008 00:00:00 +0200";
-    $mail =~ s/^[^\n\n]+\n//;
-
-    my $header = "Return-Path: <$from>\nReceived: $received\nDate: $date\nMessage-ID: $mid\nFrom: $from\nTo: \nSubject: $subject\nContent-Transfer-Encoding: $cte\nMIME-Version: 1.0\nContent-Type: $ct\n";
-    return "$header$mail";
-}
-
-
-sub select_msgs {
-	my ($imap) = @_;
-	my (@msgs,@max,@min,@union,@inter);
-	
-	unless (defined($maxage) or defined($minage)) {
-		@msgs = $imap->search("ALL");
-		return(@msgs);
-	}
-	if (defined($maxage)) {
-		@max = $imap->sentsince(time - 86400 * $maxage);
-	}
-	if (defined($minage)) {
-		@min = $imap->sentbefore(time - 86400 * $minage);
-	}
-      SWITCH: {
-		unless(defined($minage)) {@msgs = @max; last SWITCH};
-		unless(defined($maxage)) {@msgs = @min; last SWITCH};
-		my (%union, %inter); 
-		foreach my $m (@min, @max) {$union{$m}++ && $inter{$m}++}
-		@inter = keys(%inter);
-		@union = keys(%union);
-		# normal case
-		if ($minage <= $maxage)  {@msgs = @inter; last SWITCH};
-		# just exclude messages between
-		if ($minage > $maxage)  {@msgs = @union; last SWITCH};
-		
-	}
-	return(@msgs);
-}
-
-sub stats {
-	print "++++ Statistics ++++\n";
-	print "Time                   : $timediff sec\n";
-	print "Messages transferred   : $mess_trans ";
-	print "(could be $mess_skipped_dry without dry mode)" if ($dry);
-	print "\n";
-	print "Messages skipped       : $mess_skipped\n";
-	print "Total bytes transferred: $mess_size_total_trans\n";
-	print "Total bytes skipped    : $mess_size_total_skipped\n";
-	print "Total bytes error      : $mess_size_total_error\n";
-	print "Detected $error errors\n\n";
-	print thank_author();
-}
-
-sub thank_author {
-
-	return(join("", "Happy with this free, open and gratis GPL software?\n",
-	  "Please, thank the author (Gilles LAMIRAL) by giving him a book:\n",
-	  "http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/\n",
-          "and rate imapsync at http://freshmeat.net/projects/imapsync/\n"));
-
-}
-
-sub get_options
-{
-	my $numopt = scalar(@ARGV);
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "idatefromheader!" => \$idatefromheader,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-				   "buffersize=i" => \$buffersize,
-				   "foldersizes!" => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "skipsize!"   => \$skipsize,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-                                   "tests"       => \$tests,
-                                   "allow3xx!"   => \$allow3xx,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-		
-	# just the version
-        print "$VERSION\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-
-
-	load_modules();
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-	
-	
-	
-}
-
-
-sub load_modules {
-
-	require IO::Socket::SSL if ($ssl1 or $ssl2);
-	require Date::Manip if ($syncinternaldates || $idatefromheader) ;
-
-#	require Term::ReadKey if (
-#		(not($password1 or $passfile1)) 
-#	     or (not($password2 or $passfile2))
-#        or (not $help));
-
-	#require Data::Dumper if ($debug);
-}
-
-
-
-sub parse_header_msg1 {
-	my ($imap, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "Head NUM:", $headnum, "\n";
-	unless($headnum) { print "Warning : no header used or found for message $m_uid\n"; }
-	my $headstr;
-	
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			# and uppercase  header keywords 
-			# (dbmail and dovecot)
-			$val =~ s/^\s*(.+)$/$1/;
-			
-			#my $H = uc($h);
-			my $H = "$h: $val";
-			# show stuff in debug mode
-			$debug and print "${s}H $H:", $val, "\n";
-			
-			if ($skipheader and $H =~ m/$skipheader/i) {
-				$debug and print "Skipping header $H\n";
-				next;
-			}
-			#$headstr .= "$H:". $val;
-			$headstr .= "$H";
-		}
-	}
-	#return unless ($headstr);
-	unless ($headstr){
-		# taking everything is too heavy,
-		# should take only 1 Ko
-		#print "no header so taking everything\n";
-		#$headstr = $imap->message_string($m_uid);
-		
-		print "no header so we ignore this message\n";
-		return;
-	}
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s msg $m_uid:$m_md5:$size\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die("error [$file]: $! ");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line : "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die("error [$file]: $! ");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-
-
-sub usage {
-	my $localhost_info = localhost_info();
-	my $thank = thank_author();
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---authuser1   <string> : user to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---authuser2   <string> : user to auth with on host2 (admin user).
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         you can use --prefix1 if your source imap server 
-                         does not have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example : 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example : 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : separator in case namespace is not supported.
---sep2        <string> : idem.
---delete               : delete messages on source imap server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imap, delete tags messages as deleted, they
-			 are not really deleted. See expunge.
---delete2              : delete messages on the destination imap server that
-                         are not on the source server.
---expunge              : expunge messages on source account.
-                         expunge really deletes messages marked deleted.
-                         expunge is made at the beginning on the 
-                         source server only. newly transferred messages
-                         are expunged if option --expunge is given.
-                         no expunge is done on destination account but
-                         it will change in future releases.
---expunge1             : expunge messages on source account.
---expunge2             : expunge messages on target account.
---syncinternaldates    : sets the internal dates on host2 same as host1.
-                         Turned on by default.
---idatefromheader      : sets the internal dates on host2 same as the 
-                         "Date:" headers. 
---buffersize  <int>    : sets the size of a block of I/O.
---maxsize     <int>    : skip messages larger than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---skipsize             : Don't take message size into account.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         "destination" server that are subscribed
-                         on the "source" server.
---(no)foldersizes      : Calculate the size of each "From" folder in bytes
-                         and message counts. Meant to be used with
-                         --justfoldersizes. Turned on by default.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : Synchronises acls (Access Control Lists).
---nosyncacls           : Does not synchronise acls. This is the default.
---debug                : debug mode.
---debugimap            : imap debug mode.
---version              : print software version.
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster (just does not sync flags).
---split1     <int>     : split the requests in several parts on source server.
-                         <int > is the number of messages handled per request.
-                         default is like --split1 1000
---split2     <int>     : same thing on the "destination" server.
---fastio1              : use fastio with the "from" server.
---fastio2              : use fastio with the "destination" server.
---timeout     <int>    : imap connect timeout.
---help                 : print this.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                     to imap account "bar" on "imap.trac.org"
-
-$0 \\
-   --host1 imap.truc.org --user1 foo --passfile1 /etc/secret1 \\
-   --host2 imap.trac.org --user2 bar --passfile2 /etc/secret2
-
-$localhost_info
-$rcs
-
-$thank
-EOF
-}
-
-
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-		tests_regexmess();
-	}
-}
-
-sub override_imapclient {
-no warnings 'redefine';
-no strict 'subs';
-
-use constant Unconnected => 0;
-use constant Connected         => 1;            # connected; not logged in
-use constant Authenticated => 2;                # logged in; no mailbox selected
-use constant Selected => 3;                     # mailbox selected
-use constant INDEX => 0;                        # Array index for output line number
-use constant TYPE => 1;                         # Array index for line type 
-                                                #    (either OUTPUT, INPUT, or LITERAL)
-use constant DATA => 2;                         # Array index for output line data
-use constant NonFolderArg => 1;                 # Value to pass to Massage to 
-                                                # indicate non-folder argument
-
-
-
-*Mail::IMAPClient::append_file = sub  {
-
-        my $self        = shift;
-        my $folder      = $self->Massage(shift);
-        my $file        = shift; 
-        my $control     = shift || undef;
-        my $count       = $self->Count($self->Count+1);
-	my $flags       = shift || undef;
-	my $date        = shift || undef;
-	
-	if (defined($flags)) {
-                $flags =~ s/^\s+//g;
-                $flags =~ s/\s+$//g;
-        }
-	
-        if (defined($date)) {
-                $date =~ s/^\s+//g;
-                $date =~ s/\s+$//g;
-        }
-	
-        $flags = "($flags)"  if $flags and $flags !~ /^\(.*\)$/ ;
-        $date  = qq/"$date"/ if $date  and $date  !~ /^"/       ;
-	
-
-        unless ( -f $file ) {
-                $self->LastError("File $file not found.\n");
-                return undef;
-        }
-
-        my $fh = IO::File->new($file) ;
-
-        unless ($fh) {
-                $self->LastError("Unable to open $file: $!\n");
-                $@ = "Unable to open $file: $!" ;
-                carp "unable to open $file: $!";
-                return undef;
-        }
-
-        my $bare_nl_count = scalar grep { /^\x0a$|[^\x0d]\x0a$/} <$fh>;
-
-        seek($fh,0,0);
-
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $length = ( -s $file ) + $bare_nl_count;
-
-	my $string = "$count APPEND $folder " .
-	             ( $flags ? "$flags " : ""       ) .
-	             ( $date ? "$date " : ""         ) .
-	             "{" . $length  . "}\x0d\x0a" ;
-	
-        $self->_record($count,[ $self->_next_index($count), "INPUT", "$string" ] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                $fh->close;
-                return undef;
-        }
-
-        my ($code, $output) = ("","");
-
-        until ( $code ) {
-                $output = $self->_read_line or $fh->close, return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      ($code) = $o->[DATA] =~ /(^\+|^\d+\sNO|^\d+\sBAD)/i; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA];
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA];
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-
-        {       # Narrow scope
-                # Slurp up headers: later we'll make this more efficient I guess
-                local $/ = "\x0d\x0a\x0d\x0a"; 
-                my $text = <$fh>;
-                $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                $self->_record($count,[ $self->_next_index($count), "INPUT", "{From file $file}" ] ) ;
-                $feedback = $self->_send_line($text);
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-                _debug($self, "control points to $$control\n") if ref($control) and $self->Debug;
-                $/ =    ref($control) ?  "\x0a" : $control ? $control :         "\x0a";
-                while (defined($text = <$fh>)) {
-                        $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                        $self->_record( $count,
-                                        [ $self->_next_index($count), "INPUT", "{from $file}\x0d\x0a" ] 
-                        );
-                        $feedback = $self->_send_line($text,1);
-
-                        unless ($feedback) {
-                                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                $fh->close;
-                                return undef;
-                        }
-                }
-                $feedback = $self->_send_line("\x0d\x0a");
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-        } 
-
-        # Now for the crucial test: Did the append work or not?
-        ($code, $output) = ("","");
-
-        my $uid = undef;
-        until ( $code ) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      $self->_debug("append_file: Deciding if " . $o->[DATA] . " has the code.\n") 
-                                if $self->Debug;
-                      ($code) = $o->[DATA]  =~ /^\d+\s(NO|BAD|OK)/i; 
-                        # try to grab new msg's uid from o/p
-                      $o->[DATA]  =~ m#UID\s+\d+\s+(\d+)\]# and $uid = $1; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA];
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA];
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-        $fh->close;
-
-        if ($code !~ /^OK/i) {
-                return undef;
-        }
-
-
-        return defined($uid) ? $uid : $self;
-};
-
-
-
-
-*Mail::IMAPClient::fetch_hash = sub {
-	# taken from original lib, 
-	# just added split code.
-        my $self = shift;
-        my $hash = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-        my $msgref_all = scalar($self->messages);
-	my $split = $self->Split() || scalar(@$msgref_all);
-	while(my @msgs = splice(@$msgref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgref = \@msgs;
-	my $output = scalar($self->fetch($msgref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( exists $hash->{$uid} ) {
-                                $entry = $hash->{$uid} ;
-                        }
-			else {
-                                $hash->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( exists $hash->{$mid} ) {
-                                $entry = $hash->{$mid} ;
-                        }
-			else {
-                                $hash->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]+)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash : $hash;
-};
-
-
-
-*Mail::IMAPClient::login = sub {
-        my $self = shift;
-        return $self->authenticate($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-        my $string =    "Login " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        };
-        return $self;
-};
-
-
-*Mail::IMAPClient::get_header = sub {
-        my($self , $msg, $header ) = @_;
-        my $val;
-        
-	#eval { $val = $self->parse_headers([$msg],$header)->{$header}[0] };
-	my $h = $self->parse_headers([$msg],$header);
-	#require Data::Dumper;
-	#print Data::Dumper->Dump([$h]);
-        #$val = $self->parse_headers([$msg],$header)->{$header}[0];
-	
-	$val = $h->{$msg}{$header}[0];
-        return defined($val)? $val : undef;
-};
-
-
-*Mail::IMAPClient::parse_headers = sub {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	#print ref($msgspec_all), "\n";
-	#if(ref($msgspec_all) eq 'HASH') {
-    #    print ref($msgspec_all), "\n";
-		#$msgspec_all = [$msgspec_all];
-	#}
-
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers want an ARRAY ref\n";
-		#exit 1;
-		return undef;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        }else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                
-		no warnings;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } 
-				else {
-                                        $h = {};
-                                }
-                        } 
-			else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;
-			#print "W[$hdr]", ref($hdr), "!\n";
-			#next if ( ! defined($hdr));
-			#print "X[$hdr]\n";
-
-                        if (defined($hdr) and ($hdr =~ s/^(\S+):\s*//)) {
-			# if ($hdr =~ s/^(\S+):\s*//) {
-				#print "X1\n";
-				$field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-				#print "X2\n";
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-				#print "X3\n";
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-	use warnings;
-#       my $candump = 0;
-#       if ($self->Debug) {
-#                eval {
-#                        require Data::Dumper;
-#                        Data::Dumper->import;
-#                };
-#                $candump++ unless $@;
-#        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-};
-
-
-*Mail::IMAPClient::authenticate = sub {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-		
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                        if ($o->[DATA]=~ /^\d+\s+(NO|BAD)/i) {
-                                return undef ;
-			}
-                }
-        }
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR;
-          } 
-	  else {
-            $response = \&Mail::IMAPClient::_cram_md5;
-          }
-        }
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        $code =~ /^OK/ and $self->State(Authenticated) ;
-        return $code =~ /^OK/ ? $self : undef ;
-
-};
-
-
-
-*Mail::IMAPClient::_cram_md5 = sub  {
-  my ($code, $client) = @_;
-  my $hmac = Digest::HMAC_MD5::hmac_md5_hex(MIME::Base64::decode($code),
-                                            $client->Password());
-  return MIME::Base64::encode($client->User() . " $hmac", "");
-};
-
-*Mail::IMAPClient::message_string = sub {
-        my $self = shift;
-        my $msg  = shift;
-        my $expected_size = $self->size($msg);
-        return undef unless(defined $expected_size);    # unable to get size
-        my $cmd  =      $self->has_capability('IMAP4REV1')                              ?
-                                "BODY" . ( $self->Peek ? '.PEEK[]' : '[]' )             :
-                                "RFC822" .  ( $self->Peek ? '.PEEK' : ''  )             ;
-
-        $self->fetch($msg,$cmd) or return undef;
-
-        my $string = "";
-
-        foreach my $result  (@{$self->{"History"}{$self->Transaction}}) {
-              $string .= $result->[DATA]
-                if defined($result) and $self->_is_literal($result) ;
-        }
-
-        # BUG? should probably return undef if length != expected
-	# No bug, somme servers are buggy.
-
-        if ( length($string) != $expected_size ) {
-                print "message_string: " .
-                        "expected $expected_size bytes but received " .
-                        length($string) . "\n";
-		$self->LastError("message_string: expected ".
-                        "$expected_size bytes but received " .
-                        length($string)."\n");
-        }
-        return $string;
-};
-
-*Mail::IMAPClient::Ssl = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{SSL} = shift }
-	return $self->{SSL};
-};
-
-
-*Mail::IMAPClient::connect = sub {
-	my $self = shift;
-	
-	$self->Port(143) 
-		if 	defined ($IO::Socket::INET::VERSION) 
-		and 	$IO::Socket::INET::VERSION eq '1.25' 
-		and 	!$self->Port;
-	%$self = (%$self, @_);
-
-        my $sock = ($self->Ssl ? IO::Socket::SSL->new : IO::Socket::INET->new);
-        my $dp = ($self->Ssl ? 'imaps(993)' : 'imap(143)');
-
-	my $ret = $sock->configure({
-		PeerAddr => $self->Server		,
-                PeerPort => $self->Port||$dp	       	,
-                Proto    => 'tcp' 			,
-                Timeout  => $self->Timeout||0		,
-		Debug	=> $self->Debug 		,
-	});
-	unless ( defined($ret) ) {
-		$self->LastError( "$@\n");	  
-		$@ 		= "$@";   
-		carp 		  "$@" 
-				unless defined wantarray;	
-		return undef;
-	}
-	$self->Socket($sock);
-	$self->State(Connected);
-	$sock->autoflush(1)				;
-	my ($code, $output);
-        $output = "";
-        until ( $code ) {
-
-                $output = $self->_read_line or return undef;
-                for my $o (@$output) {
-			$self->_debug("Connect: Received this from readline: " . 
-					join("/",@$o) . "\n");
-                        $self->_record($self->Count,$o);	# $o is a ref
-                      next unless $o->[TYPE] eq "OUTPUT";
-                      ($code) = $o->[DATA] =~ /^\*\s+(OK|BAD|NO)/i  ;
-                }
-
-        }
-
-	if ($code =~ /BYE|NO /) {
-		$self->State(Unconnected);
-		return undef ;
-	}
-
-	if ($self->User and $self->Password) {
-		return $self->login ;
-	} 
-	else {
-		return $self;	
-	}
-}
-	
-
-
-}
-
-package Mail::IMAPClient;
-
-
-sub Authuser {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-}
-
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { $self->{SPLIT} = shift }
-	return $self->{SPLIT};
-}
\ No newline at end of file
diff --git a/W/patches/imapsync_1.592.groupwise_auth.diff b/W/patches/imapsync_1.592.groupwise_auth.diff
deleted file mode 100644
index ff32e2f..0000000
--- a/W/patches/imapsync_1.592.groupwise_auth.diff
+++ /dev/null
@@ -1,145 +0,0 @@
---- imapsync-master/imapsync    2014-08-08 01:10:54.000000000 -0600
-+++ imapsync-gw/imapsync    2014-11-12 20:21:33.727746150 -0700
-@@ -601,6 +601,7 @@
-    $host1, $host2, $port1, $port2,
-    $user1, $user2, $domain1, $domain2, 
-    $password1, $password2, $passfile1, $passfile2,
-+   $gwtapp1, $gwtappkey1, $gwtapp2, $gwtappkey2,
-         @folder, @include, @exclude, @folderrec,
-         @folderfirst, @folderlast,
-         $prefix1, $prefix2, 
-@@ -1038,13 +1039,13 @@
-
- $debugimap1 and print "Host1 connection\n";
- $imap1 = login_imap($host1, $port1, $user1, $domain1, $password1, 
--          $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-+          $debugimap1, $timeout, $fastio1, $gwtapp1, $gwtappkey1, $ssl1, $tls1,
-           $authmech1, $authuser1, $reconnectretry1,
-           $proxyauth1, $uid1, $split1, 'Host1', $ssl1_SSL_version );
-
- $debugimap2 and print "Host2 connection\n";
- $imap2 = login_imap($host2, $port2, $user2, $domain2, $password2, 
--        $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-+        $debugimap2, $timeout, $fastio2, $gwtapp2, $gwtappkey2, $ssl2, $tls2,
-         $authmech2, $authuser2, $reconnectretry2,
-         $proxyauth2, $uid2, $split2, 'Host2', $ssl2_SSL_version );
-
-@@ -2062,7 +2063,7 @@
-    $imap1 = relogin_imap(
-        $imap1,
-        $host1, $port1, $user1, $domain1, $password1, 
--       $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-+       $debugimap1, $timeout, $fastio1, $gwtapp1, $gwtappkey1, $ssl1, $tls1,
-        $authmech1, $authuser1, $reconnectretry1,
-        $proxyauth1, $uid1, $split1) ;
-
-@@ -2074,7 +2075,7 @@
-    $imap2 = relogin_imap(
-        $imap2,
-        $host2, $port2, $user2, $domain2, $password2, 
--       $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-+       $debugimap2, $timeout, $fastio2, $gwtapp2, $gwtappkey2, $ssl2, $tls2,
-        $authmech2, $authuser2, $reconnectretry2,
-        $proxyauth2, $uid2, $split2) ;
-
-@@ -2085,7 +2086,7 @@
- sub relogin_imap {
-    my($imap,
-       $host, $port, $user, $domain, $password, 
--      $mydebugimap, $mytimeout, $fastio, 
-+      $mydebugimap, $mytimeout, $fastio, $gwtapp, $gwtappkey, 
-       $ssl, $tls, $authmech, $authuser, $reconnectretry,
-       $proxyauth, $uid, $split) = @_;
-
-@@ -2093,7 +2094,7 @@
-    $imap->logout(  ) ;
-    $imap = login_imap(
-        $host, $port, $user, $domain, $password, 
--       $mydebugimap, $mytimeout, $fastio, 
-+       $mydebugimap, $mytimeout, $fastio, $gwtapp, $gwtappkey,
-        $ssl, $tls, $authmech, $authuser, $reconnectretry,
-        $proxyauth, $uid, $split
-    ) ;
-@@ -2101,17 +2102,17 @@
-    return( $imap ) ;
- }
-
--
- sub login_imap {
-
-    my @allargs = @_ ;
-    my($host, $port, $user, $domain, $password, 
--      $mydebugimap, $mytimeout, $fastio, 
-+      $mydebugimap, $mytimeout, $fastio, $gwtapp, $gwtappkey,
-       $ssl, $tls, $authmech, $authuser, $reconnectretry,
-       $proxyauth, $uid, $split, $Side, $SSL_version ) = @allargs ;
-
-    my $side = lc( $Side ) ;
-    my $imap = init_imap( @allargs ) ;
-+   my $gwtapp_encoded = "";
-
-    $imap->connect()
-      or die_clean("Failure: can not open imap connection on $side [$host] with user [$user]: $@\n");
-@@ -2120,6 +2121,7 @@
-         $imap->Banner( $banner ) ;
-    print "$Side: ", server_banner($imap);
-
-+
-         if ( $authmech eq 'PREAUTH' ) {
-            if ( $imap->IsAuthenticated( ) ) {
-                $imap->Socket ;
-@@ -2135,6 +2137,13 @@
-                 or die_clean("Can not go to tls encryption on [$host]:", $imap->LastError, "\n" ) ;
-         }
-
-+   if ( defined($gwtapp) && !($gwtapp eq '') && defined($gwtappkey) && !($gwtappkey eq '')) {
-+       $gwtapp_encoded = encode_base64(qq/$gwtapp\x00$gwtappkey/,"");
-+       $imap->tag_and_run("AUTHENTICATE XGWTRUSTEDAPP\nXGWTRUSTEDAPP $gwtapp_encoded\n")
-+           or die_clean("Failed to log in with GroupWise Trust App.");
-+       @allargs[4] = "";
-+   }
-+
-         authenticate_imap( $imap, @allargs ) ;
-
-    print "$Side: success login on [$host] with user [$user] auth [$authmech]\n" ;
-@@ -2146,7 +2155,7 @@
-
-    my($imap,
-            $host, $port, $user, $domain, $password, 
--      $mydebugimap, $mytimeout, $fastio, 
-+      $mydebugimap, $mytimeout, $fastio, $gwtapp, $gwtappkey,
-       $ssl, $tls, $authmech, $authuser, $reconnectretry,
-       $proxyauth, $uid, $split, $Side ) = @_ ;
-
-@@ -2247,7 +2256,7 @@
-
- sub init_imap {
-    my($host, $port, $user, $domain, $password, 
--      $mydebugimap, $mytimeout, $fastio, 
-+      $mydebugimap, $mytimeout, $fastio, $gwtapp, $gwtappkey,
-       $ssl, $tls, $authmech, $authuser, $reconnectretry,
-       $proxyauth, $uid, $split, $Side, $SSL_version ) = @_ ;
-
-@@ -5860,7 +5869,10 @@
-
- --dry                  : Makes imapsync doing nothing, just print what would 
-                          be done without --dry.
--
-+--gwtapp1     <string> : GroupWise Trusted App Name for Source
-+--gwtappkey1  <string> : GroupWise Trusted App Key for Source
-+--gwtapp2     <string> : GroupWise Trusted App Key for Destination
-+--gwtappkey2  <string> : GroupWise Trusted App Key for Destination
- --host1       <string> : Source or "from" imap server. Mandatory.
- --port1       <int>    : Port to connect on host1. Default is 143.
- --user1       <string> : User to login on host1. Mandatory.
-@@ -6251,6 +6263,10 @@
-                                    "debugcrossduplicates!" => \$debugcrossduplicates,
-                                    "log!" => \$log,
-                                    "logfile=s" => \$logfile,
-+                  "gwtapp1=s" => \$gwtapp1,
-+                  "gwtappkey1=s" => \$gwtappkey1,
-+                  "gwtapp2=s" => \$gwtapp2,
-+                  "gwtappkey2=s" => \$gwtappkey2,
-                                   );
-
-         $debug and print "get options: [$opt_ret]\n";
diff --git a/W/patches/imapsync_1.592.kerio.diff b/W/patches/imapsync_1.592.kerio.diff
deleted file mode 100644
index 4783739..0000000
--- a/W/patches/imapsync_1.592.kerio.diff
+++ /dev/null
@@ -1,68 +0,0 @@
---- imapsync	2014-08-12 15:23:24.000000000 +0000
-+++ imapsync.kerio	2014-09-02 08:47:07.560989980 +0000
-@@ -1053,8 +1053,8 @@
- $debug and print "Host2 Buffer I/O: ", $imap2->Buffer(), "\n";
- 
- 
--
--die_clean( 'Not authenticated on host1' ) unless $imap1->IsAuthenticated( ) ;
-+# FIXME no time for a proper change, but just assume, that the imapsync is correctly corrected to Kerio
-+#die_clean( 'Not authenticated on host1' ) unless $imap1->IsAuthenticated( ) ;
- print "Host1: state Authenticated\n";
- die_clean( 'Not authenticated on host2' ) unless   $imap2->IsAuthenticated( ) ;
- print "Host2: state Authenticated\n";
-@@ -2129,6 +2129,36 @@
-                 }
-         }
- 
-+	if ( $authmech eq 'KERIO' ) {
-+		# send the string 'X-MASTERAUTH'
-+		my @return = $imap->tag_and_run("X-MASTERAUTH", "+") ;
-+		# receive a challenge
-+		my $challenge ;
-+		foreach my $line ( @return ) {
-+			if ($line =~ /^\+\ .*/) {
-+				$challenge = $line ;
-+			}
-+		}
-+		# strip carriage return and newline characters
-+		$/ = "\r\n" ;
-+		chomp($challenge) ;
-+		$/ = "\n" ;
-+		# strip the challenge and return it for debuging
-+		$challenge = substr($challenge, 2) ;
-+		printf("%s: Challenge is '%s'\n", $Side, $challenge ) ;
-+		# of the masterpassword, Kerio accepts only the first 24 characters
-+		$challenge .= substr($password,0,24) ;
-+		# create an md5sum of the master password
-+		my $md5pass = md5_hex($challenge) ;
-+		# show the challenge response and send it to the server
-+		printf("%s: MD5 of Challenge Response is '%s'\n", $Side, $md5pass ) ;
-+		my $sock = $imap->Socket() ;
-+		printf("%s", $sock );
-+		print $sock "$md5pass\r\n" ;
-+		# now change the user to the final one
-+		$imap->tag_and_run("X-SETUSER $user", "OK") ;
-+	}
-+
-         if ( $imap->Tls(  ) ) {
-         	set_tls( $imap ) ;
-         	$imap->starttls(  )
-@@ -2156,7 +2186,7 @@
-                 $imap->Authmechanism("") ;
-                 $imap->User($authuser) ;
-         } else {
--                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' ) ;
-+                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' or $authmech eq 'KERIO' ) ;
-                 $imap->User($user) ;
-         }
-         
-@@ -2167,7 +2197,7 @@
-         $imap->Authuser($authuser) ;
-         $imap->Password($password) ;
- 	
--	unless ( $authmech eq 'PREAUTH' or $imap->login( ) ) {
-+	unless ( $authmech eq 'PREAUTH' or $authmech eq 'KERIO' or $imap->login( ) ) {
- 		my $info  = "Failure: error login on [$host] with user [$user] auth" ;
- 		my $einfo = $imap->LastError || @{$imap->History}[-1] ;
- 		chomp( $einfo ) ;
diff --git a/W/patches/imapsync_Cvitkovich_pidfile_tmpfile b/W/patches/imapsync_Cvitkovich_pidfile_tmpfile
deleted file mode 100644
index 274f5cf..0000000
--- a/W/patches/imapsync_Cvitkovich_pidfile_tmpfile
+++ /dev/null
@@ -1,2071 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration
-tool. Synchronise mailboxes between two imap servers. Good
-at IMAP migration. More than 32 different IMAP server softwares
-supported with success.
-
-$Revision: 1.213 $
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows 2000 (at least) and ActiveState's 5.8 Perl
-
- imapsync is already available on the following distributions (at least):
- FreeBSD, Debian, Gentoo, NetBSD.
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/dist/
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want :
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL
- file.
-
- The freshmeat record is http://freshmeat.net/projects/imapsync/
-
-=head1 SYNOPSIS
-
-  imapsync [options]
-
-  imapsync --help
-  imapsync
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-           [--authmech1 <string>] [--authmech2 <string>] 
-           [--noauthmd5]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect]
-           [--syncinternaldates]
-           [--buffersize  <int>]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-           [--skipsize]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2]
-           [--subscribed] [--subscribe]
-           [--nofoldersizes]
-           [--dry]
-           [--debug] [--debugimap]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--pidfile <filename>]
-           [--tmpfile <filename>]
-           [--version] [--help]
-  
-=cut
-# comment
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and recursive
-imap transfer from one mailbox to another.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is the adequate tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers, same message size
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync is adapted to a bad
-connection. imapsync is CPU hungry so nice and renice 
-commands can be a good help. imapsync can be memory hungry too,
-especially with large messages.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete --expunge1 options.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A.
-
-=head1 OPTIONS
-
-Invoke: imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without loosing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwith link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started its life being a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" on host
-"imap.src.fr" to the imap account "max" on host
-"imap.dest.fr" (the passwords are located in two files
-"/etc/secret1" for "buddy", "/etc/secret2" for "max") :
-
- imapsync --host1 imap.src.fr  --user1 buddy --passfile1 /etc/secret1 \
-          --host2 imap.dest.fr --user2 max   --passfile2 /etc/secret2
-
-Then, you will have buddy's mailbox updated from max's
-mailbox.
-
-=head1 SECURITY
-
-You can use --password1 instead of --passfile1 to give the
-password but it is dangerous because any user on your host
-can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text in
-case CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 and --ssl2 to enable encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used, but otherwise,
---authmech1 CRAM-MD5 is the default. Same behavior with the
---authuser2 option.
-
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have a buggy internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap is a good place to talk about
-imapsync. I read it when imapsync is concerned.
-
-Gilles LAMIRAL earn his living writing, installing,
-configuring and teaching free open and gratis
-softwares. Do not hesitate to pay him for that services.
-
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by
-the GNU General Public License. See the GPL file included in
-the distribution or the web site
-http://www.gnu.org/licenses/licenses.html
-
-=head1 BUGS
-
-No known serious bug.  Report any bug to the author.
-Before reporting bugs, read the FAQ, this README and the
-TODO files.
-
-In your report, please include:
-
- - imapsync version.
- - IMAPClient.pm version.
- - perl version.
- - operating system running imapsync.
- - imap servers softwares on both side and their version.
-
- Those values can be found with the command line
-
- imapsync --host1 imap.host1.net  --host2 imap.host2.org  --justconnect
-
- And also, if it can help :
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). This can be found
-   at the beginning of the output.
- - output given with --debug --debugimap near the failure point.
-
-=head1 IMAP SERVERS
-
-Failure stories reported with the following 4 imap servers :
-
- - MailEnable 1.54 (Proprietary) http://www.mailenable.com/
- - DBMail 2.0.7 (GPL). But DBMail 1.2.1 works.
-   Patient and confident testers are welcome.
- - dkimap4 2.39
- - Imail 7.04 (maybe).
-
-Success stories reported with the following 32 imap servers 
-(softwares names are in alphabetic order) : 
-
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.10, 2.2.12, 
-   v2.2.3-Invoca-RPM-2.2.3-8,
-   2.3-alpha (OSI Approved),
-   v2.2.12-Invoca-RPM-2.2.12-3.RHEL4.1,
-   v2.3.1-Invoca-RPM-2.3.1-2.7.fc5,
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7 (LGPL) 
-   (http://www.dovecot.org/)
- - Domino (Notes) 6.5, 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1
- - Eudora WorldMail v2
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1, 8.1, 9.5.4 (Windows server 2003 R2 platform)
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431
- - SmarterMail
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java System Messaging Server 6.2-2.05
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - Imap part of TCP/IP suite of VMS 7.3.2
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 5.5.
-
-Please report to the author any success or bad story with
-imapsync and don't forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- From software :* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- To   software :* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example :
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-Please rate imapsync at http://freshmeat.net/projects/imapsync/
-or better give the author a book, he likes books:
-http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
-
-
-=head1 HUGE MIGRATION
-
-
-Have a special attention on options 
---subscribed
---subscribe
---delete
---delete2
---expunge
---expunge1
---expunge2
---maxage
---minage
---maxsize
---useheader
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file content is :
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just :
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 "$u1" --password1 "$p1" --user2 "$u2" --password2 "$p2" ...
- done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the GPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools  : http://www.athensfbc.com/imap_tools
-  offlineimap : http://gopher.quux.org:70/devel/offlineimap/
-  mailsync    : http://mailsync.sourceforge.net/
-  imapxfer    : http://www.washington.edu/imap/
-                part of the imap-utils from UW.
-  mailutil    : replace imapxfer in 
-                part of the imap-utils from UW.
-		http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl    : http://www.bl0rg.net/software/
-                http://freshmeat.net/projects/imap-repl/
-  imap_migrate: http://freshmeat.net/projects/imapmigration/
-  imapcopy    : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool http://sourceforge.net/projects/migrationtool/
-  pop2imap    : http://www.linux-france.org/prj/pop2imap/
-
-Feedback (good or bad) will be always welcome.
-
-$Id: imapsync,v 1.213 2007/02/16 04:07:19 gilles Exp $
-
-
-
-=cut
-
-
-++$|;
-use strict;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use POSIX qw(uname);
-use Fcntl;
-
-eval { require 'usr/include/sysexits.ph' };
-
-
-my(
-        $rcs, $debug, $debugimap, $error,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag, 
-        $sep1, $sep2,
-	$syncinternaldates, $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $maxage, $minage, 
-        $skipheader, @useheader,
-        $skipsize, $foldersizes, $buffersize,
-	$delete, $delete2,
-        $expunge, $expunge1, $expunge2, $dry,
-        $justfoldersizes,
-        $authmd5,
-        $subscribed, $subscribe,
-        $pidfile, $tmpfile,
-	$version, $VERSION, $help, 
-        $justconnect, $justfolders,
-        $fast,
-        $mess_size_total_trans,
-        $mess_size_total_skipped,
-        $mess_size_total_error,
-        $mess_trans, $mess_skipped, $mess_skipped_dry, 
-        $timeout,   # whr (ESS/PRW)
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-        $authuser1, $authuser2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-);
-
-use vars qw ($opt_G); # missing code for this will be option.
-
-
-$rcs = ' $Id: imapsync,v 1.213 2007/02/16 04:07:19 gilles Exp $ ';
-$rcs =~ m/,v (\d+\.\d+)/;
-$VERSION = ($1) ? $1 : "UNKNOWN";
-
-my $VERSION_IMAPClient = $Mail::IMAPClient::VERSION;
-
-check_lib_version() or 
-  die "Upgrade perl lib Mail::IMAPClient to release 2.2.9 at least\n";
-
-
-$mess_size_total_trans   = 0;
-$mess_size_total_skipped = 0;
-$mess_size_total_error   = 0;
-$mess_trans = $mess_skipped = $mess_skipped_dry = 0;
-
-
-sub check_lib_version {
-	# I know this is ugly, I should write a sort function
-	if ($VERSION_IMAPClient =~ m/(\d+)\.(\d+)\.(\d+)/) {
-		$debug and print "VERSION_IMAPClient $1 $2 $3\n";
-		my($major,$minor,$sub) = ($1, $2, $3);
-		
-		return(1) if($major >=3);
-		return(0) if($major <=1);
-		return(1) if($minor >=3);
-		return(0) if($minor <=1);
-		return(1) if($sub >=8);
-		return(0) if($sub <=7);
-	}else{
-		return 0; # don't match regex => bad
-	}
-}
-
-$error=0;
-
-my $banner = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.213 $ ',
-		  '$Date: 2007/02/16 04:07:19 $ ',
-		  "\n",
-		  "Mail::IMAPClient version used here is ",
-		  $VERSION_IMAPClient,"\n",
-		  "Command line used :\n",
-		  "$0 @ARGV\n",
-		 );
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-get_options();
-print $banner;
-
-if ($pidfile) {
-   open(TMP, ">$pidfile") or die "Can not open PID file for writing\n";
-   print TMP $$;
-   close(TMP);
-}
-
-sub missing_option {
-	my ($option) = @_;
-	unlink($pidfile) if ($pidfile and -f $pidfile);
-	die "$option option must be used, run $0 --help for help\n";
-}
-
-# By default, 1000 at a time, not more.
-$split1 ||= 1000;
-$split2 ||= 1000;
-
-$host1 || missing_option("--host1") ;
-# $port1 = (defined($port1)) ? $port1 : 143;
-$port1 ||= defined $ssl1 ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-# $port2 = (defined($port2)) ? $port2 : 143;
-$port2 ||= defined $ssl2 ? 993 : 143;
-
-sub connect_imap {
-	my($host, $port, $debugimap) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	unless ($imap->connect()) {
-	  unlink($pidfile) if ($pidfile and -f $pidfile);
-	  die "Can not open imap connection on [$host] : $@\n";	
-	}
-}
-
-if ($justconnect) {
-	my $from = ();
-	my $to = ();
-	
-
-	print "Here is a $OSNAME system (",
-	  join(" ", uname()), 
-	  ")\nwith perl ", 
-	  sprintf("%vd", $PERL_VERSION), "\n";
-	
-	$from = connect_imap($host1, $port1);
-	print "From software : ", server_banner($from);
-	print "From capability : ", join(" ", $from->capability()), "\n";
-	$to   = connect_imap($host2, $port2);
-	print "To   software : ", server_banner($to);
-	print "To   capability : ", join(" ", $to->capability()), "\n";
-	$from->logout();
-	$to->logout();
-	exit(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-if(defined($authmd5) and not($authmd5)) {
-	$authmech1 ||= 'LOGIN';
-	$authmech2 ||= 'LOGIN';
-}else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'CRAM-MD5';
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'CRAM-MD5';
-}
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "will try to use $authmech1 authentication on host1\n";
-print "will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 1;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 1;
-
-
-@useheader = ("ALL") unless (@useheader);
-
-print "From imap server [$host1] port [$port1] user [$user1]\n";
-print "To   imap server [$host2] port [$port2] user [$user2]\n";
-
-
-sub ask_for_password {
-	require Term::ReadKey;
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-
-$password1 || $passfile1 || do {
-	$password1 = ask_for_password($authuser1 || $user1, $host1);
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	$password2 = ask_for_password($authuser2 || $user2, $host2);
-};
-
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-my $from = ();
-my $to = ();
-
-$timestart = time();
-$timebefore = $timestart;
-
-$debugimap and print "From connection\n";
-$from = login_imap($host1, $port1, $user1, $password1, 
-		   $debugimap, $timeout, $fastio1, $ssl1, 
-		   $authmech1, $authuser1);
-
-$debugimap and print "To  connection\n";
-$to = login_imap($host2, $port2, $user2, $password2, 
-		 $debugimap, $timeout, $fastio2, $ssl2, 
-		 $authmech2, $authuser2);
-
-#  history
-
-$debug and print "From Buffer I/O : ", $from->Buffer(), "\n";
-$debug and print "To   Buffer I/O : ", $to->Buffer(), "\n";
-
-
-sub login_imap {
-	my($host, $port, $user, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $authmech, $authuser) = @_;
-	my ($imap);
-	if ($ssl) {
-		require IO::Socket::SSL;
-		my $socssl = new IO::Socket::SSL("$host:$port");
-		unless ($socssl) {
-                   unlink($pidfile) if ($pidfile and -f $pidfile);
-                   die "Error connecting to $host:$port: $@\n";
-                }
-		$socssl->autoflush(1);
-		
-		$imap = Mail::IMAPClient->new(
-					      Socket => $socssl,
-					      Server => $host,
-					     );
-	} else {
-		$imap = Mail::IMAPClient->new();
-	}
-	$imap->Clear(20);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-	
-	if ($ssl) {
-		$imap->State(Mail::IMAPClient::Connected);
-	} else {
-		unless($imap->connect())
-                {
-                   unlink($pidfile) if ($pidfile and -f $pidfile);
-                   die "Can not open imap connection on [$host] with user [$user] : $@\n";
-                }
-	}
-	print "Banner : ", server_banner($imap);
-	
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} else {
-		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Frequently PLAIN is only supported with SSL, ",
-			  "try --ssl1 or --ssl2 option\n";
-		}
-	}
-	
-	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-
-	$imap->User($user);
-	$imap->Authuser($authuser);
-	$imap->Password($password);
-	unless ($imap->login2()) {
-		print "Error login : [$host] with user [$user] auth [$authmech]: $@\n";
-		if (($authmech eq 'LOGIN') or $imap->IsUnconnected()) {
-                  unlink($pidfile) if ($pidfile and -f $pidfile);
-                  die;
-                }
-		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-		$imap->Authmechanism("");
-                unless ($imap->login2()) {
-                  unlink($pidfile) if ($pidfile and -f $pidfile);
-		  die "Error login : [$host] with user [$user] auth [LOGIN] : $@";
-                }
-	}
-	print "Success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap);
-}
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	for my $line ($imap->Results()) {
-		#print "LR: $line";
-		return $line if $line =~ /^\* (OK|NO|BAD)/;
-        }
-	return "No banner\n";
- }
-
-
-
-print "From capability : ", join(" ", $from->capability()), "\n";
-print "To   capability : ", join(" ", $to->capability()), "\n";
-
-unless ($from->IsAuthenticated()) {
-  unlink($pidfile) if ($pidfile and -f $pidfile);
-  die;
-}
-print "From state Authenticated\n";
-unless ($to->IsAuthenticated()) {
-  unlink($pidfile) if ($pidfile and -f $pidfile);
-  die;
-}
-print "To   state Authenticated\n";
-
-$split1 and $from->Split($split1);
-$split2 and $to->Split($split2);
-
-
-my (@f_folders, @t_folders, %fs_folders, %t_folders);
-
-# Make a hash of subscribed folders in source server.
-map { $fs_folders{$_}=1 } $from->subscribed();
-
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	push(@f_folders, @folder) if scalar(@folder);
-	# option --subscribed
-	push(@f_folders,  sort keys (%fs_folders)) if ($subscribed);
-	
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			push(@f_folders, $from->folders($folderrec));
-		}
-	}
-	@f_folders = sort @f_folders;
-}else {
-	# no folder/subscribed/folderrec options => all folders
-	@f_folders = sort $from->folders();
-}
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	my @f_folders_inc;
-	foreach my $include (@include) {
-		push(@f_folders_inc, grep  /$include/, @f_folders);
-		print "Including folders matching pattern '$include'\n";
-	}
-	push(@f_folders, sort @f_folders_inc);
-}
-
-foreach my $exclude (@exclude) {
-	@f_folders = grep !/$exclude/,@f_folders;
-	print "Excluding folders matching pattern '$exclude'\n";
-}
-
-
-@t_folders = sort @{$to->folders()};
-
-my($f_sep,$t_sep); 
-# what are the private folders separators for each server ?
-
-
-$debug and print "Getting separators\n";
-$f_sep = get_separator($from, $sep1, "--sep1");
-$t_sep = get_separator($to, $sep2, "--sep2");
-
-#my $f_namespace = $from->namespace();
-#my $t_namespace = $to->namespace();
-#$debug and print "From namespace:\n", Data::Dumper->Dump([$f_namespace]);
-#$debug and print "To   namespace:\n", Data::Dumper->Dump([$t_namespace]);
-
-my($f_prefix,$t_prefix); 
-$f_prefix = get_prefix($from, $prefix1, "--prefix1");
-$t_prefix = get_prefix($to, $prefix2, "--prefix2");
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the prefix namespace with the $prefix_opt option\n";
-		exit(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ($sep_in) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out);
-	}else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator caracter with the $sep_opt option\n";
-		exit(1);
-	}
-}
-
-
-print "From separator and prefix : [$f_sep][$f_prefix]\n";
-print "To   separator and prefix : [$t_sep][$t_prefix]\n";
-
-
-sub foldersizes {
-
-	my ($side, $imap, $folders_r) = @_;
-	my $tot = 0;
-	my $tmess = 0;
-	my @folders = @{$folders_r};
-	print "++++ Calculating sizes ++++\n";
-	foreach my $folder (@folders)     {
-		my $stot = 0;
-		my $smess = 0;
-		printf("$side Folder %-35s", "[$folder]");
-		unless($imap->exists($folder)) {
-			print("does not exist yet\n");
-			next;
-		}
-		unless ($imap->select($folder)) {
-			warn 
-			  "$side Folder $folder : Could not select ",
-			    $imap->LastError,  "\n";
-			$error++;
-			next;
-		}
-		if (defined($maxage) or defined($minage)) {
-			# The pb is fetch_hash() can only be applied on ALL messages
-			my @msgs = select_msgs($imap);
-			$smess = scalar(@msgs);
-			foreach my $m (@msgs) {
-				my $s = $imap->size($m)
-				  or warn "Could not find size of message $m: $@\n";
-				$stot += $s;
-			}
-		}else{
-			my $hashref = {};
-			$smess = $imap->message_count();
-			unless ($smess == 0) {
-				#$imap->Ranges(1);
-                                unless ( $imap->fetch_hash2("RFC822.SIZE",$hashref) ) {
-                                  unlink($pidfile) if ($pidfile and -f $pidfile);
-                                  die "$@";
-                                }
-				#$imap->Ranges(0);
-				#print map {$hashref->{$_}->{"RFC822.SIZE"}, " "} keys %$hashref;
-				map {$stot += $hashref->{$_}->{"RFC822.SIZE"}} keys %$hashref;
-			}
-		}
-		printf(" Size: %9s", $stot);
-		printf(" Messages: %5s\n", $smess);
-		$tot += $stot;
-		$tmess += $smess;
-	}
-	print "Total size: $tot\n";
-	print "Total messages: $tmess\n";
-	print "Time : ", timenext(), " s\n";
-}
-
-
-foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	$t_fold = to_folder_name($f_fold);
-	$t_folders{$t_fold}++;
-}
-
-@t_folders = sort keys(%t_folders);
-
-
-if ($foldersizes) {
-	foldersizes("From", $from, \@f_folders);
-	foldersizes("To  ", $to,   \@t_folders);
-}
-
-
-
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-exit if ($justfoldersizes);
-
-# needed for setting flags
-my $tohasuidplus = $to->has_capability("UIDPLUS");
-
-
-
-print 
-  "++++ Listing folders ++++\n",
-  "From folders list : ", map("[$_] ",@f_folders),"\n",
-  "To   folders list : ", map("[$_] ",@t_folders),"\n";
-
-print 
-  "From subscribed folders list : ", 
-  map("[$_] ", sort keys(%fs_folders)), "\n" 
-  if ($subscribed);
-
-sub separator_invert {
-	# The separator we hope we'll never encounter
-	my $o_sep="\000";
-
-	my($f_fold, $f_sep, $t_sep) = @_;
-
-	my $t_fold = $f_fold;
-	$t_fold =~ s@\Q$t_sep@$o_sep@g;
-	$t_fold =~ s@\Q$f_sep@$t_sep@g;
-	$t_fold =~ s@\Q$o_sep@$f_sep@g;
-	return($t_fold);
-}
-
-sub to_folder_name {
-	my ($t_fold);
-	my ($x_fold) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^$f_prefix//;
-	$debug and print "removed source prefix : [$x_fold]\n";
-	$t_fold = separator_invert($x_fold,$f_sep, $t_sep);
-	$debug and print "inverted   separators : [$t_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$t_fold = $t_prefix . $t_fold 
-	  unless(($t_prefix eq "INBOX.") and ($t_fold =~ m/^INBOX$/i));
-	$debug and print "added   target prefix : [$t_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-		$debug and print "eval \$t_fold =~ $regextrans2\n";
-		eval("\$t_fold =~ $regextrans2");
-	}
-	return($t_fold);
-}
-
-sub flags_regex {
-	my ($flags_f) = @_;
-	foreach my $regexflag (@regexflag) {
-		$debug and print "eval \$flags_f =~ $regexflag\n";
-		eval("\$flags_f =~ $regexflag");
-	}
-	return($flags_f);
-}
-
-sub acls_sync {
-	my($f_fold, $t_fold) = @_;
-	if ($syncacls) {
-		my $f_hash = $from->getacl($f_fold)
-		  or warn "Could not getacl for $f_fold: $@\n";
-		my $t_hash = $to->getacl($t_fold)
-		  or warn "Could not getacl for $t_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$f_hash), keys(%$t_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $f_hash->{$user} || "none";
-			print "acl $user : [$acl]\n";
-			next if ($f_hash->{$user} && $t_hash->{$user} &&
-				 $f_hash->{$user} eq $t_hash->{$user});
-			unless ($dry) {
-				print "setting acl $t_fold $user $acl\n";
-				$to->setacl($t_fold, $user, $acl)
-				  or warn "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-print "++++ Looping on each folder ++++\n";
-
-FOLDER: foreach my $f_fold (@f_folders) {
-	my $t_fold;
-	print "From Folder [$f_fold]\n";
-	$t_fold = to_folder_name($f_fold);
-	print "To   Folder [$t_fold]\n";
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-	
-	unless ($from->select($f_fold)) {
-		warn 
-		"From Folder $f_fold : Could not select ",
-		$from->LastError,  "\n";
-		$error++;
-		next FOLDER;
-	}
-
-	unless ($to->exists($t_fold) or $to->select($t_fold)) { 
-		print "To   Folder $t_fold does not exist\n";
-		print "Creating folder [$t_fold]\n";
-		unless ($dry){
-			unless ($to->create($t_fold)){
-				warn "Couldn't create [$t_fold]",
-				$to->LastError,"\n";
-				$error++;
-				next FOLDER;
-			}
-		}else{
-			next FOLDER;
-		}
-	}
-	
-	acls_sync($f_fold, $t_fold);
-
-	unless ($to->select($t_fold)) { 
-		warn 
-		"To   Folder $t_fold : Could not select ",
-		$to->LastError, "\n";
-		$error++;
-		next FOLDER;
-	}
-	
-	if ($expunge){
-		print "Expunging $f_fold and $t_fold\n";
-		unless($dry) { $from->expunge() };
-		#unless($dry) { $to->expunge() };
-	}
-	
-	if ($subscribe and exists $fs_folders{$f_fold}) {
-		print "Subscribing to folder $t_fold on destination server\n";
-		unless($dry) { $to->subscribe($t_fold) };
-	}
-	
-	next FOLDER if ($justfolders);
-
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my @f_msgs = select_msgs($from);
-
-
-
-	$debug and print "LIST FROM : ", scalar(@f_msgs), " messages [@f_msgs]\n";
-	# internal dates on "TO" are after the ones on "FROM"
-	# normally...
-	my @t_msgs = select_msgs($to);
-	
-	$debug and print "LIST TO   : ", scalar(@t_msgs), " messages [@t_msgs]\n";
-
-	my %f_hash = ();
-	my %t_hash = ();
-	
-	print "++++ From [$f_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $f_heads = $from->parse_headers2([@f_msgs],
-					    @useheader)if (@f_msgs) ;
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $f_fir  = $from->fetch_hash2("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@f_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	
-	foreach my $m (@f_msgs) {
-		parse_header_msg1($from, $f_fold, $m, $f_heads, $f_fir, "F", \%f_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ To   [$t_fold] Parse 1 ++++\n";
-	last FOLDER if $from->IsUnconnected();
-	last FOLDER if   $to->IsUnconnected();
-
-	my $t_heads =   $to->parse_headers2([@t_msgs],
-					    @useheader) if (@t_msgs);
-	$debug and print "Time headers: ", timenext(), " s\n";
-	my $t_fir  =   $to->fetch_hash2("FLAGS",
-				       "INTERNALDATE",
-				       "RFC822.SIZE") if (@t_msgs);
-	$debug and print "Time fir  : ", timenext(), " s\n";
-	foreach my $m (@t_msgs) {
-		parse_header_msg1($to, $t_fold, $m, $t_heads, $t_fir, "T", \%t_hash);
-	}
-	$debug and print "Time headers: ", timenext(), " s\n";
-	
-	print "++++ Verifying [$f_fold] -> [$t_fold] ++++\n";
-	# messages in "from" that are not good in "to"
-	
-	my @f_hash_keys_sorted_by_uid 
-	  = sort {$f_hash{$a}{'m'} <=> $f_hash{$b}{'m'}} keys(%f_hash);
-	
-	#print map { $f_hash{$_}{'m'} . " "} @f_hash_keys_sorted_by_uid;
-	
-	my @t_hash_keys_sorted_by_uid 
-	  = sort {$t_hash{$a}{'m'} <=> $t_hash{$b}{'m'}} keys(%t_hash);
-
-	
-	if($delete2) {
-		foreach my $m_id (@t_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($f_hash{$m_id})) {
-				my $t_msg  = $t_hash{$m_id}{'m'};
-				print "deleting message $m_id  $t_msg\n";
-				$to->delete_message($t_msg) unless ($dry);	
-			}
-		}
-	}
-
-	MESS: foreach my $m_id (@f_hash_keys_sorted_by_uid) {
-		my $f_size = $f_hash{$m_id}{'s'};
-		my $f_msg = $f_hash{$m_id}{'m'};
-		my $f_idate = $f_hash{$m_id}{'D'};
-		
-		if (defined $maxsize and $f_size > $maxsize) {
-			print "+ Skipping msg #$f_msg:$f_size in folder $f_fold (exceeds maxsize limit $maxsize bytes)\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-			next MESS;
-		}
-		$debug and print "+ key     $m_id #$f_msg\n";
-		unless (exists($t_hash{$m_id})) {
-			print "+ NO msg #$f_msg [$m_id] in $t_fold\n";
-			# copy
-			print "+ Copying msg #$f_msg:$f_size to folder $t_fold\n";
-			last FOLDER if $from->IsUnconnected();
-			#my $string = $from->message_string($f_msg);			
-			my $message_file = $tmpfile || "tmp_imapsync_$$";
-			unlink($message_file);
-			$from->message_to_file($message_file, $f_msg);
-			my $string = file_to_string($message_file);
-			#unlink($message_file);
-			if (@regexmess) {
-				foreach my $regexmess (@regexmess) {
-					$debug and print "eval \$string =~ $regexmess\n";
-					eval("\$string =~ $regexmess");
-				}
-				string_to_file($string, $message_file);
-			}
-			$debug and print "F message content begin next line\n",
-			  $string,
-			    "F message content ended on previous line\n";
-			my $d = "";
-			if ($syncinternaldates) {
-				$d = $f_idate;
-				$d = "\"$d\"";
-				$debug and print "internal date from 1: [$d]\n";
-			}
-			
-			my $flags_f = $f_hash{$m_id}{'F'} || "";
-			# RFC 2060 : This flag can not be altered by any client
-			$flags_f =~ s@\\Recent@@g;
-			$flags_f = flags_regex($flags_f) if @regexflag;
-			
-			my $new_id;
-			print "flags from : [$flags_f][$d]\n";
-			last FOLDER if   $to->IsUnconnected();
-			unless ($dry) {
-				#unless($new_id = $to->append_string($t_fold,$string, $flags_f, $d)){
-				unless($new_id = $to->append_file2($t_fold, $message_file, "", $flags_f, $d)){
-					warn "Couldn't append msg #$f_msg (Subject:[".
-					  $from->subject($f_msg)."]) to folder $t_fold: ",
-					  $to->LastError, "\n";
-					$error++;
-					$mess_size_total_error += $f_size;
-					next MESS;
-					
-				}else{
-						# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "Copied msg id [$f_msg] to folder $t_fold msg id [$new_id]\n";
-					$mess_size_total_trans += $f_size;
-					$mess_trans += 1;
-					if($delete) {
-						print "Deleting msg #$f_msg in folder $f_fold\n";
-						$from->delete_message($f_msg) unless ($dry);
-						$from->expunge() if ($expunge and not $dry);
-					}
-				}
-			}else{
-				$mess_skipped_dry += 1;
-			}
-			unlink($message_file);
-			next MESS;
-		}else{
-			$debug and print "Message id [$m_id] found in t:$t_fold\n";
-			$mess_size_total_skipped += $f_size;
-			$mess_skipped += 1;
-		}
-		
-		$fast and next MESS;
-		#$debug and print "MESSAGE $m_id\n"; 
-		my $t_size = $t_hash{$m_id}{'s'};
-		my $t_msg  = $t_hash{$m_id}{'m'};
-		
-		
-		$debug and print "Setting flags\n";
-		last FOLDER if $from->IsUnconnected();
-		last FOLDER if   $to->IsUnconnected();
-
-		my (@flags_f,@flags_t);
-		my $flags_f_rv = $from->flags($f_msg);
-		@flags_f = @{$flags_f_rv} if ref($flags_f_rv);
-		
-		# No flag \Recent here, no ?
-		my $flags_f = join(" ", @flags_f);
-		
-		$flags_f = flags_regex($flags_f) if @regexflag;
-		
-		# This add or change flags but no flag are removed with this
-		$to->store($t_msg,
-			   "+FLAGS (" . $flags_f . ")"
-			  ) unless ($dry) ;
-		
-		my $flags_t_rv = $to->flags($t_msg);
-		@flags_t = @{$flags_t_rv} if ref($flags_t_rv);
-		my $flags_t = join(" ", @flags_t);
-		$debug and print 
-		  "flags from : $flags_f\n",
-		  "flags to   : $flags_t\n";
-		
-
-		$debug and do {
-			print "Looking dates\n"; 
-			#my $d_f = $from->internaldate($f_msg);
-			#my $d_t = $to->internaldate($t_msg);
-			my $d_f = $f_hash{$m_id}{'D'};
-			my $d_t = $t_hash{$m_id}{'D'};
-			print 
-			  "idate from : $d_f\n",
-			    "idate to   : $d_t\n";
-			
-			#unless ($d_f eq $d_t) {
-			#	print "!!! Dates differ !!!\n";
-			#}
-		};
-		unless (($f_size == $t_size) or $skipsize) {
-			# Bad size
-			print 
-			"Message $m_id SZ_BAD  f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			# delete in to and recopy ?
-			# NO recopy CODE HERE. to be written if needed.
-			$error++;
-			if ($opt_G){
-				print "Deleting msg f:#$t_msg in folder $t_fold\n";
-				$to->delete_message($t_msg) unless ($dry);
-			}
-		}else {
-	    		# Good 
-			$debug and print
-			"Message $m_id SZ_GOOD f:$f_msg:$f_size t:$t_msg:$t_size\n";
-			if($delete) {
-				print "Deleting msg #$f_msg in folder $f_fold\n";
-				$from->delete_message($f_msg) unless ($dry);
-				$from->expunge() if ($expunge and not $dry);
-			}
-		}
-	}
-	if ($expunge1){
-		print "Expunging source folder $f_fold\n";
-		unless($dry) { $from->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging target folder $t_fold\n";
-		unless($dry) { $to->expunge() };
-	}
-
-print "Time : ", timenext(), " s\n";
-}
-$from->logout();
-$to->logout();
-
-$timeend = time();
-
-$timediff = $timeend - $timestart;
-
-stats();
-
-unlink($pidfile) if ($pidfile and -f $pidfile);
-exit(1) if($error);
-
-sub select_msgs {
-	my ($imap) = @_;
-	my (@msgs,@max,@min,@union,@inter);
-	
-	unless (defined($maxage) or defined($minage)) {
-		@msgs = $imap->search("ALL");
-		return(@msgs);
-	}
-	if (defined($maxage)) {
-		@max = $imap->sentsince(time - 86400 * $maxage);
-	}
-	if (defined($minage)) {
-		@min = $imap->sentbefore(time - 86400 * $minage);
-	}
-      SWITCH: {
-		unless(defined($minage)) {@msgs = @max; last SWITCH};
-		unless(defined($maxage)) {@msgs = @min; last SWITCH};
-		my (%union, %inter); 
-		foreach my $m (@min, @max) {$union{$m}++ && $inter{$m}++}
-		@inter = keys(%inter);
-		@union = keys(%union);
-		# normal case
-		if ($minage <= $maxage)  {@msgs = @inter; last SWITCH};
-		# just exclude messages between
-		if ($minage > $maxage)  {@msgs = @union; last SWITCH};
-		
-	}
-	return(@msgs);
-}
-
-sub stats {
-	print "++++ Statistics ++++\n";
-	print "Time                   : $timediff sec\n";
-	print "Messages transferred   : $mess_trans ";
-	print "(could be $mess_skipped_dry without dry mode)" if ($dry);
-	print "\n";
-	print "Messages skipped       : $mess_skipped\n";
-	print "Total bytes transferred: $mess_size_total_trans\n";
-	print "Total bytes skipped    : $mess_size_total_skipped\n";
-	print "Total bytes error      : $mess_size_total_error\n";
-	print "Detected $error errors\n";
-	print "Please, rate imapsync at http://freshmeat.net/projects/imapsync/\n";
-	print "?Happy with this free, open source and gratis GPL software?\n",
-	  "Feel free to thank the author by giving him a book:\n",
-	  "http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/\n";
-
-
-}
-
-
-sub get_options
-{
-	my $numopt = scalar(@ARGV);
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-				   "buffersize=i" => \$buffersize,
-				   "foldersizes!" => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "skipsize!"   => \$skipsize,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-                                   "pidfile=s"   => \$pidfile,
-                                   "tmpfile=s"   => \$tmpfile,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print "$VERSION\n" and exit if ($version) ;
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-	
-	
-}
-
-
-sub parse_header_msg1 {
-	my ($imap, $folder, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "Head NUM:", $headnum, "\n";
-	unless($headnum) { print "Warning : no header used or found \n"; }
-	my $headstr;
-	
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			# and uppercase  header keywords 
-			# (dbmail and dovecot)
-			$val =~ s/^\s*(.+)$/$1/;
-			my $H = uc($h);
-			# show stuff in debug mode
-			$debug and print "${s}H $H:", $val, "\n";
-			if ($skipheader) {
-				if ($skipheader =~ m/^(.*?):(.*)$/) {
-					my ($forfolder,$skipheader2) = ($1,$2);
-					if ($folder =~ m/$forfolder/i) {
-						if ($H =~ m/$skipheader2/i) {
-							$debug and print "Skipping header $h\n";
-							next;
-						}
-					}
-				}
-				elsif ($H =~ m/$skipheader/i) {
-					$debug and print "Skipping header $h\n";
-					next;
-				}
-			}
-			$headstr .= "$H:". $val;
-		}
-	}
-	#return unless ($headstr);
-	unless ($headstr){
-		print "no header so taking everything\n";
-		$headstr = $imap->message_string($m_uid);
-	}
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s msg $m_uid:$m_md5:$size\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }else {
-                $key = "$m_md5:$size";
-        }
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        unless (open FILE, $file) {
-          unlink($pidfile) if ($pidfile and -f $pidfile);
-          die("error [$file]: $! ");
-        }
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line : "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-        unless (open FILE, $file) {
-          unlink($pidfile) if ($pidfile and -f $pidfile);
-          die("error [$file]: $! ");
-        }
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	unless (sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600))
-        {
-          unlink($pidfile) if ($pidfile and -f $pidfile);
-          die("$! $file");
-        }
-	print FILE $string;
-	close FILE;
-}
-
-
-
-sub usage {
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---authuser1   <string> : user to auth with on host1 (admin user).
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---authuser2   <string> : user to auth with on host2 (admin user).
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix1 if your source imap server does not
-                         have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example : 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example : 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : separator in case namespace is not supported.
---sep2        <string> : idem.
---delete               : delete messages on source imap server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imap, delete tags messages as deleted, they
-			 are not really deleted. See expunge.
---delete2              : delete messages on the destination imap server that
-                         are not on the source server.
---expunge              : expunge messages on source account.
-                         expunge really deletes messages marked deleted.
-                         expunge is made at the beginning on the 
-                         source server only. newly transferred messages
-                         are expunged if option --expunge is given.
-                         no expunge is done on destination account but
-                         it will change in future releases.
---expunge1             : expunge messages on source account.
---expunge2             : expunge messages on target account.
---syncinternaldates    : sets the internal dates on host2 same as host1
---buffersize  <int>    : sets the size of a block of I/O.
---maxsize     <int>    : skip messages larger than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
-                         use 'folder:regexp' to apply only to certain folders
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---skipsize             : Don't take message size into account.
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         "destination" server that are subscribed
-                         on the "source" server.
---(no)foldersizes      : Calculate the size of each "From" folder in bytes
-                         and message counts. Meant to be used with
-                         --justfoldersizes. Turned on by default.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : Synchronises acls (Access Control Lists).
---nosyncacls           : Does not synchronise acls. This is the default.
---debug                : debug mode.
---debugimap            : imap debug mode.
---version              : print software version.
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster (just does not sync flags).
---split1     <int>     : split the requests in several parts on source server.
-                         <int > is the number of messages handled per request.
-                         default is like --split1 1000
---split2     <int>     : same thing on the "destination" server.
---nofastio1            : don't use fastio with the "from" server.
---nofastio2            : don't use fastio with the "destination" server.
---timeout     <int>    : imap connect timeout.
---help                 : print this.
---tmpfile   <string>   : file name for temporary message file.
---pidfile   <string>   : file name for PID file.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                     to imap account "bar" on "imap.trac.org"
-
-$0 \\
-   --host1 imap.truc.org --user1 foo --passfile1 /etc/secret1 \\
-   --host2 imap.trac.org --user2 bar --passfile2 /etc/secret2
-
-
- Mail::IMAPClient version is $Mail::IMAPClient::VERSION
-$rcs
-      imapsync copyleft is the GNU General Public License.
-      See http://www.gnu.org/copyleft/gpl.html
-EOF
-}
-
-
-package Mail::IMAPClient;
-
-
-sub Authuser {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-}
-
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { $self->{SPLIT} = shift }
-	return $self->{SPLIT};
-}
-
-# From IMAPClient.pm
-sub append_file2 {
-
-        my $self        = shift;
-        my $folder      = $self->Massage(shift);
-        my $file        = shift; 
-        my $control     = shift || undef;
-        my $count       = $self->Count($self->Count+1);
-	my $flags       = shift || undef;
-	my $date        = shift || undef;
-	
-	if (defined($flags)) {
-                $flags =~ s/^\s+//g;
-                $flags =~ s/\s+$//g;
-        }
-	
-        if (defined($date)) {
-                $date =~ s/^\s+//g;
-                $date =~ s/\s+$//g;
-        }
-	
-        $flags = "($flags)"  if $flags and $flags !~ /^\(.*\)$/ ;
-        $date  = qq/"$date"/ if $date  and $date  !~ /^"/       ;
-	
-
-        unless ( -f $file ) {
-                $self->LastError("File $file not found.\n");
-                return undef;
-        }
-
-        my $fh = IO::File->new($file) ;
-
-        unless ($fh) {
-                $self->LastError("Unable to open $file: $!\n");
-                $@ = "Unable to open $file: $!" ;
-                carp "unable to open $file: $!" if $^W;
-                return undef;
-        }
-
-        my $bare_nl_count = scalar grep { /^\x0a$|[^\x0d]\x0a$/} <$fh>;
-
-        seek($fh,0,0);
-
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $length = ( -s $file ) + $bare_nl_count;
-
-	my $string = "$count APPEND $folder " .
-	             ( $flags ? "$flags " : ""       ) .
-	             ( $date ? "$date " : ""         ) .
-	             "{" . $length  . "}\x0d\x0a" ;
-	
-        $self->_record($count,[ $self->_next_index($count), "INPUT", "$string" ] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                close $fh;
-                return undef;
-        }
-
-        my ($code, $output) = ("","");
-
-        until ( $code ) {
-                $output = $self->_read_line or close $fh, return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      ($code) = $o->[DATA] =~ /(^\+|^\d+\sNO|^\d+\sBAD)/i; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA] if $^W;
-                                $self->State(Unconnected);
-                                close $fh;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA] if $^W;
-                                close $fh;
-                                return undef;
-                        }
-                }
-        }
-
-        {       # Narrow scope
-                # Slurp up headers: later we'll make this more efficient I guess
-                local $/ = "\x0d\x0a\x0d\x0a"; 
-                my $text = <$fh>;
-                $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                $self->_record($count,[ $self->_next_index($count), "INPUT", "{From file $file}" ] ) ;
-                $feedback = $self->_send_line($text);
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        close $fh;
-                        return undef;
-                }
-                _debug $self, "control points to $$control\n" if ref($control) and $self->Debug;
-                $/ =    ref($control) ?  "\x0a" : $control ? $control :         "\x0a";
-                while (defined($text = <$fh>)) {
-                        $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                        $self->_record( $count,
-                                        [ $self->_next_index($count), "INPUT", "{from $file}\x0d\x0a" ] 
-                        );
-                        $feedback = $self->_send_line($text,1);
-
-                        unless ($feedback) {
-                                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                close $fh;
-                                return undef;
-                        }
-                }
-                $feedback = $self->_send_line("\x0d\x0a");
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        close $fh;
-                        return undef;
-                }
-        } 
-
-        # Now for the crucial test: Did the append work or not?
-        ($code, $output) = ("","");
-
-        my $uid = undef;
-        until ( $code ) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      $self->_debug("append_file: Deciding if " . $o->[DATA] . " has the code.\n") 
-                                if $self->Debug;
-                      ($code) = $o->[DATA]  =~ /^\d+\s(NO|BAD|OK)/i; 
-                        # try to grab new msg's uid from o/p
-                      $o->[DATA]  =~ m#UID\s+\d+\s+(\d+)\]# and $uid = $1; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA] if $^W;
-                                $self->State(Unconnected);
-                                close $fh;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA] if $^W;
-                                close $fh;
-                                return undef;
-                        }
-                }
-        }
-        close $fh;
-
-        if ($code !~ /^OK/i) {
-                return undef;
-        }
-
-
-        return defined($uid) ? $uid : $self;
-}
-
-# From IMAPClient.pm
-sub fetch_hash2 {
-	# taken from original lib, 
-	# just added split code.
-        my $self = shift;
-        my $hash = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-        my $msgref_all = scalar($self->messages);
-	my $split = $self->Split() || scalar(@$msgref_all);
-	while(my @msgs = splice(@$msgref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgref = \@msgs;
-	my $output = scalar($self->fetch($msgref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( exists $hash->{$uid} ) {
-                                $entry = $hash->{$uid} ;
-                        } else {
-                                $hash->{$uid} ||= $entry;
-                        }
-                } else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( exists $hash->{$mid} ) {
-                                $entry = $hash->{$mid} ;
-                        } else {
-                                $hash->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   } else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]+)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash : $hash;
-}
-
-
-# From IMAPClient.pm
-
-sub login2 {
-        my $self = shift;
-        return $self->authenticate($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-        my $string =    "Login " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        }
-        return $self;
-}
-
-# From IMAPClient.pm
-
-sub parse_headers2 {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers2 want an ARRAY ref\n";
-		exit 1;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        } else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                local($^W) = undef;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } else {
-                                        $h = {};
-                                }
-                        } else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;   
-                        if ($hdr =~ s/^(\S+):\s*//) { 
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-        my $candump = 0;
-        if ($self->Debug) {
-                eval {
-                        require Data::Dumper;
-                        Data::Dumper->import;
-                };
-                $candump++ unless $@;
-        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-}
diff --git a/W/patches/imapsync_bhaveshah@gmail.com b/W/patches/imapsync_bhaveshah@gmail.com
deleted file mode 100644
index 259654c..0000000
--- a/W/patches/imapsync_bhaveshah@gmail.com
+++ /dev/null
@@ -1,5926 +0,0 @@
-#!/usr/bin/perl5.8.8
-
-# structure
-# pod documentation
-# pragmas
-# main program
-# global variables initialisation
-# default values
-# folder loop
-# subroutines
-# IMAPClient 2.2.9 overrides
-# IMAPClient 2.2.9 3.xx ads
-
-# pod documentation
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration tool.
-Synchronises mailboxes between two imap servers.
-Good at IMAP migration. More than 52 different IMAP server softwares
-supported with success, few failures.
-
-$Revision: 1.564 $
-
-=head1 SYNOPSIS
-
-To synchronize imap account "foo" on "imap.truc.org"
-           to  imap account "bar" on "imap.trac.org"
-           with foo password "secret1"
-           and  bar password "secret2":
-
-  imapsync \
-   --host1 imap.truc.org --user1 foo --password1 secret1 \
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows (2000, XP, Vista, Seven) 
- with Strawberry Perl (5.10, 5.12 or higher)
- or as a standalone binary software imapsync.exe
-
-imapsync can be available directly on the following distributions:
-FreeBSD, Debian, Ubuntu, Gentoo, Fedora,
-NetBSD, Darwin, Mandriva and OpenBSD.
-
- Purchase latest imapsync at
- http://imapsync.lamiral.info/
-
- You'll receive a link to a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://imapsync.lamiral.info/INSTALL
-
- The freecode (was freshmeat) record is at 
- http://freecode.com/projects/imapsync
-
-=head1 USAGE
-
- imapsync [options]
-
-To get a description of each option just run imapsync like this:
-
-  imapsync --help
-  imapsync
-
-The option list:
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-	   [--tls1] [--tls2]
-           [--authmech1 <string>] [--authmech2 <string>]
-           [--proxyauth1] [--proxyauth2]
-	   [--domain1] [--domain2] 
-           [--authmd51] [--authmd52]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect] [--justbanner]
-           [--syncinternaldates]
-           [--idatefromheader]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-	   [--minsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--search <string>]
-           [--search1 <string>]
-           [--search2 <string>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-	   [--nouid1] [--nouid2] 
-	   [--usecache]
-           [--skipsize] [--allowsizemismatch]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2] [--uidexpunge2]
-	   [--delete2folders] [--delete2foldersonly] [--delete2foldersbutnot]
-           [--subscribed] [--subscribe] [--subscribe_all] 
-           [--nofoldersizes] [--nofoldersizesatend] 
-           [--dry]
-           [--debug] [--debugimap][--debugimap1][--debugimap2]
-           [--timeout <int>] 
-           [--split1] [--split2] 
-           [--reconnectretry1 <int>] [--reconnectretry2 <int>]
-	   [--noreleasecheck]
-	   [--pidfile <filepath>]
-	   [--tmpdir  <dirpath>]
-           [--version] [--help]
-	   [--tests] [--tests_debug]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transferred, recursively, all 
-possible flags (\Seen \Answered \Flagged etc.) are synced too.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is a good tool because it reduces the amount
-of data transferred by not transferring a given message 
-if it is already on both sides. Same headers
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync works well with bad 
-connections.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer, it can be a good feature when migrating
-live mailboxes since messages will be only on one side.
-In that case, use the --delete option. Option --delete implies 
-also option --expunge so all messages marked deleted on host1 
-will be really deleted.
-(you can use --noexpunge to avoid this but I don't see any
-good real world scenario for the combinaison --delete --noexpunge).
-
-You can also just synchronize a mailbox B from another mailbox A
-in case you just want to keep a "live" copy of A in B. 
-In that case --delete2 can be used, it deletes messages in host2
-folder B that are not in host1 folder A.
-
-imapsync is not adequate for maintaining two active imap accounts 
-in synchronization where the user plays independently on both sides.
-Use offlineimap (written by John Goerzen) or mbsync (written by 
-Michael R. Elkins) for 2 ways synchronizations.
-
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without losing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwidth link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started life as a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" (with password "secret1") 
-on host "imap.src.fr" to the imap account "max" (with password "secret2") 
-on host "imap.dest.fr":
-
- imapsync --host1 imap.src.fr  --user1 buddy --password1 secret1 \
-          --host2 imap.dest.fr --user2 max   --password2 secret2
-
-Then you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --passfile1  instead of --password1 to give the
-password since it is safer. With --password1 option any user 
-on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text
-if CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 (or --tls1) and --ssl2 (or --tls2) to enable 
-encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-Authenticate with an admin account must be supported by your
-imap server to work with imapsync.
-
-When working on Sun/iPlanet/Netscape IMAP servers you must use 
---proxyauth1 to enable administrative user to masquerade as another user. 
-Can also be used on destination server with --proxyauth2 
-
-You can authenticate with OAUTH when transfering from Google Apps.
-The consumer key will be the domain part of the --user, and the
---password will be used as the consumer secret. It does not work
-with Google Apps free edition. 
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have an unreliable internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 LICENSE
-
-imapsync is free, open, public but not always gratis software 
-cover by the NOLIMIT Public License.
-See the LICENSE file included in the distribution or just read this
-simple sentence as it is the licence text:
-No limit to do anything with this work and this license.
-
-=head1 MAILING-LIST
-
-The public mailing-list may be the best way to get free support.
-
-To write on the mailing-list, the address is:
-<imapsync@linux-france.org>
-
-To subscribe, send any message (even empty) to:
-<imapsync-subscribe@listes.linux-france.org>
-then just reply to the confirmation message.
-
-To unsubscribe, send a message to:
-<imapsync-unsubscribe@listes.linux-france.org>
-
-To contact the person in charge for the list:
-<imapsync-request@listes.linux-france.org>
-
-The list archives are available at:
-http://www.linux-france.org/prj/imapsync_list/
-So consider that the list is public, anyone
-can see your post. Use a pseudonym or do not
-post to this list if you want to stay private.
-
-Thank you for your participation.
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <gilles.lamiral@laposte.net>
-
-Feedback good or bad is very often welcome.
-
-Gilles LAMIRAL earns his living by writing, installing,
-configuring and teaching free, open and often gratis
-softwares. It used to be "always gratis" but now it is
-"often" because imapsync is sold by its author, a good
-way to stay maintening and supporting free open public 
-softwares (see the license) over decades.
-
-=head1 BUG REPORT GUIDELINES
-
-Help us to help you: follow the following guidelines.
-
-Report any bugs or feature requests to the public mailing-list 
-or to the author.
-
-Before reporting bugs, read the FAQ, the README and the
-TODO files. http://imapsync.lamiral.info/
-
-Upgrade to last imapsync release, maybe the bug
-is already fixed.
-
-Upgrade to last Mail-IMAPClient Perl module.
-http://search.cpan.org/dist/Mail-IMAPClient/
-maybe the bug is already fixed.
-
-Make a good title with word "imapsync" in it (my spam filter won't filter it), 
-Don't write an email title with just "imapsync" or "problem",
-a good title is made of keywords summary, not too long (one visible line).
-
-Don't write imapsync in uppercase in the email title, I'll
-then know you run Windows and you haven't read this README yet.
-
-Help us to help you: in your report, please include:
-
- - imapsync version.
-
- - output given with --debug --debugimap near the failure point.
-   Isolate a message or two in a folder 'BUG' and use 
-
-     imapsync ... --folder 'BUG' --debug --debugimap 
-
- - imap server software on both side and their version number.
-
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). 
-
- - IMAPClient.pm version.
-
- - the run context. Do you run imapsync.exe, a unix binary 
-   or the perl script imapsync.
-
- - operating system running imapsync.
-
- - virtual software context (vmware, xen etc.)
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
-
-Most of those values can be found as a copy/paste at the begining of the output,
-so a copy of the output is a very easy and very good debug report for me.
-
-One time in your life, read the paper 
-"How To Ask Questions The Smart Way"
-http://www.catb.org/~esr/faqs/smart-questions.html
-and then forget it.
-
-=head1 IMAP SERVERS 
-
-Failure stories reported with the following 3 imap servers:
-
- - MailEnable 1.54 (Proprietary) but MailEnable 4.23 is supported. 
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 is supported.
-   Patient and confident testers are welcome.
- - Imail 7.04 (maybe).
- - (2011) MDaemon 12.0.3 as host2 but MDaemon is supported as host1.
-   MDaemon is simply buggy with the APPEND IMAP command with 
-   any IMAP email client.
- - Hotmail since hotmail.com does not provide IMAP access
- - Outlook.com since outlook.com does not provide IMAP access
-
-Success stories reported with the following 55 imap servers 
-(software names are in alphabetic order): 
-
- - 1und1 H mimap1 84498 [host1] H mibap4 95231 [host1]
- - a1.net imap.a1.net IMAP4 Ready [host1]
- - Apple Server 10.6 Snow Leopard [host1]
- - Archiveopteryx 2.03, 2.04, 2.09, 2.10 [host2], 3.0.0 [host2]
-   (OSL 3.0) http://www.archiveopteryx.org/
- - Atmail 6.x [host1]
- - Axigen Mail Server Version 8.0.0
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0) (Solaris), CommuniGate Pro 5.2.17[host2] (CentOS 5.4)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 
-   2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.3, 2.2.6, 2.2.10, 2.2.12, 2.2.13,
-   2.3-alpha (OSI Approved), 2.3.1, 2.3.7, 2.3.16
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - Deerfield VisNetic MailServer 5.8.6 [host1] (http://www.deerfield.net/products/visnetic-mailserver/) 
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - DBOX 2.41 System [host1] (http://www.dbox.handshake.de/).
- - Deerfield VisNetic MailServer 5.8.6 [host1]
- - dkimap4 [host1]
- - Domino (Notes) 4.61 [host1], 6.5 [host1], 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 
-   7.0.1 [host1], 8.0.1 [host1], 8.5.2 [host2], 8.5.3 [host1]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest/source] (LGPL) (http://www.dovecot.org/)
- - Eudora WorldMail v2
- - Gimap (Gmail imap)
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - hMailServer 5.3.3 [host2], 4.4.1 [host1] (see FAQ)
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12, 11.03 [host1]
- - Kerio 7.2.0 Patch 1 [host12], Kerio 8 [host1]
- - Mail2World IMAP4 Server 2.5 [host1] (http://www.mail2world.com/)
- - MailEnable 4.23 [host1] [host2], 4.26 [host1][host2], 5 [host1]
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform), 
-   9.6.5 [host1], 12 [host2], 12.0.3 [host1], 12.5.5 [host1],
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.0.6249.0[host1], 6.0.6487.0[host1], 
-   6.5.7638.1 [host2], 6.5 [host1], Exchange 2007 SP1 (with Update Rollup 2), 
-   Exchange2007-EP-SP2,
-   Exchange 2010 RTM (Release to Manufacturing) [host2],
-   Exchange 2010 SP1 RU2[host2],
- - Mirapoint, 4.1.9-GA [host1]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - Office 365 [host1] [host2]
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Oracle Beehive [host1]
- - Qualcomm Worldmail (NT)
- - QQMail IMAP4Server [host1] [host2] https://en.mail.qq.com/
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431, 11.4.6
- - SmarterMail, Smarter Mail 5.0 Enterprise, Smarter Mail 5.5 [host1], SmarterMail Professional 10.2 [host1].
- - Softalk Workgroup Mail 7.6.4 [host1].
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java(tm) System Messaging Server 6.2-2.05,  6.2-7.05, 6.3
- - Surgemail 3.6f5-5, 6.3d-72 [host2]
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - VMS, Imap part of TCP/IP suite of VMS 7.3.2
- - Yahoo [host1]
- - Zarafa 6,40,0,20653 [host1] (http://www.zarafa.com/)
- - Zarafa ZCP 7.1.4 IMAP Gateway [host2]
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 
-   Zimbra 5.0.24_GA_3356.RHEL4 [host1], 5.5, 6.x
-
-Please report to the author any success or bad story with
-imapsync and do not forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- Host1 software:* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- Host2 software:* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example:
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-
-=head1 HUGE MIGRATION
-
-Pay special attention to options 
---subscribed
---subscribe
---delete
---delete2
---delete2folders
---maxage
---minage
---maxsize
---useuid
---usecache
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.txt (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.txt file contains:
-
-user001_1;password001_1;user001_2;password001_2
-user002_1;password002_1;user002_2;password002_2
-user003_1;password003_1;user003_2;password003_2
-user004_1;password004_1;user004_2;password004_2
-user005_1;password005_1;user005_2;password005_2
-...
-
-On Unix the shell program can be:
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --host1 imap.side1.org --user1 "$u1" --password1 "$p1" \
-                 --host2 imap.side2.org --user2 "$u2" --password2 "$p2" ...
- done ; } < file.txt
-
-On Windows the batch program can be:
-
-  FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-  --host1 imap.side1.org --user1 %%G --password1 %%H ^
-  --host2 imap.side2.org --user2 %%I --password2 %%J ...
-
-The ... have to be replaced by nothing or any imapsync option.
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the NOLIMIT license permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : https://github.com/nicolas33/offlineimap
-  mbsync        : http://isync.sourceforge.net/
-  mailsync      : http://mailsync.sourceforge.net/
-  mailutil      : http://www.washington.edu/imap/
-                  part of the UW IMAP tookit.
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freecode.com/projects/imap-repl/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also file W/tools/wonko_ruby_imapsync
-  exchange-away : http://exchange-away.sourceforge.net/
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will often be welcome.
-
-$Id: imapsync,v 1.564 2013/08/18 19:28:47 gilles Exp gilles $
-
-=cut
-
-
-# pragmas
-
-use strict;
-use warnings;
-++$|;
-use Carp;
-use Getopt::Long;
-use Mail::IMAPClient 3.29 ;
-use Digest::MD5  qw( md5 md5_hex md5_base64 );
-use Digest::HMAC_SHA1 qw( hmac_sha1 ) ;
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English '-no_match_vars' ;
-use File::Basename;
-use POSIX qw(uname SIGALRM);
-use Fcntl;
-use File::Spec;
-use File::Path qw(mkpath rmtree);
-use IO::Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE);
-use Errno qw(EAGAIN EPIPE ECONNRESET);
-use File::Glob qw( :glob ) ;
-use IO::File;
-use Time::Local ;
-use Time::HiRes qw( time ) ;
-use Test::More 'no_plan' ;
-use IPC::Open3 'open3' ;
-#use Unix::Sysexits ;
-
-# global variables
-
-my(
-        $rcs, $pidfile, $pidfilelocking, 
-	$debug, $debugimap, $debugimap1, $debugimap2, $debugcontent, $debugflags,
-	$debugLIST, $debugsleep, $debugdev, 
-	$nb_errors,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $domain1, $domain2, 
-	$password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag,
-	$flagsCase, $filterflags, $syncflagsaftercopy,
-        $sep1, $sep2,
-	$syncinternaldates,
-        $idatefromheader,
-        $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $minsize, $maxage, $minage,
-        $exitwhenover,
-        $search, $search1, $search2, 
-        $skipheader, @useheader,
-        $skipsize, $allowsizemismatch, $foldersizes, $foldersizesatend, $buffersize,
-	$delete, $delete2, $delete2duplicates,
-        $expunge, $expunge1, $expunge2, $uidexpunge2, $dry,
-        $justfoldersizes,
-        $authmd5, $authmd51, $authmd52, 
-        $subscribed, $subscribe, $subscribe_all,
-	$version, $help, 
-        $justconnect, $justfolders, $justbanner,
-        $fast,
-        
-        $total_bytes_transferred,
-        $total_bytes_skipped,
-        $total_bytes_error,
-        $nb_msg_transferred, 
-	$nb_msg_skipped, 
-	$nb_msg_skipped_dry_mode,
-	$h1_nb_msg_duplicate,
-	$h2_nb_msg_duplicate,
-	$h1_nb_msg_noheader,
-	$h2_nb_msg_noheader,
-	$h1_total_bytes_duplicate,
-	$h2_total_bytes_duplicate,
-	$h1_nb_msg_deleted,
-	$h2_nb_msg_deleted,
-        
-        $h1_bytes_processed, 
-        $h1_nb_msg_processed,
-        $h1_nb_msg_at_start, $h1_bytes_start,
-        $h2_nb_msg_start, $h2_bytes_start, 
-        $h1_nb_msg_end, $h1_bytes_end,
-        $h2_nb_msg_end, $h2_bytes_end, 
-        
-        $timeout,
-	$timestart, $timestart_int, $timeend,
-        $timebefore,
-        $ssl1, $ssl2, 
-        $ssl1_SSL_version, $ssl2_SSL_version,
-	$tls1, $tls2,
-	$uid1, $uid2,
-        $authuser1, $authuser2,
-        $proxyauth1, $proxyauth2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-	$relogin1, $relogin2,
-	$tests, $test_builder, $tests_debug,
-	$allow3xx, $justlogin,
-	$tmpdir,
-	$releasecheck,
-	$max_msg_size_in_bytes,
-	$modules_version,
-	$delete2folders, $delete2foldersonly, $delete2foldersbutnot,
-	$usecache, $debugcache, $cacheaftercopy,
-	$wholeheaderifneeded, %h1_msgs_copy_by_uid, $useuid, $h2_uidguess,
-        $addheader,
-        %h1, %h2,
-        $checkselectable, $checkmessageexists,
-        $expungeaftereach,
-        $abletosearch,
-        $showpasswords,
-        $fixslash2,
-        $messageidnodomain,
-        $fixInboxINBOX,
-        $maxlinelength,
-	$uidnext_default,
-);
-
-# main program
-
-# global variables initialisation
-
-$rcs = '$Id: imapsync,v 1.564 2013/08/18 19:28:47 gilles Exp gilles $ ';
-
-$total_bytes_transferred   = 0;
-$total_bytes_skipped = 0;
-$total_bytes_error   = 0;
-$nb_msg_transferred = 0;
-$nb_msg_skipped = $nb_msg_skipped_dry_mode = 0;
-$h1_nb_msg_deleted = $h2_nb_msg_deleted = 0;
-$h1_nb_msg_duplicate = $h2_nb_msg_duplicate = 0;
-$h1_nb_msg_noheader = $h2_nb_msg_noheader = 0;
-$h1_total_bytes_duplicate = $h2_total_bytes_duplicate = 0;
-
-
-$h1_nb_msg_at_start     = $h1_bytes_start = 0 ;
-$h2_nb_msg_start     = $h2_bytes_start = 0 ;
-$h1_nb_msg_processed = $h1_bytes_processed = 0 ;
-
-$h1_nb_msg_end = $h1_bytes_end = 0 ;
-$h2_nb_msg_end = $h2_bytes_end = 0 ;
-
-$nb_errors = 0;
-$max_msg_size_in_bytes = 0;
-
-my %month_abrev = (
-   Jan => 0,
-   Feb => 1,
-   Mar => 2,
-   Apr => 3,
-   May => 4,
-   Jun => 5,
-   Jul => 6,
-   Aug => 7,
-   Sep => 8,
-   Oct => 9,
-   Nov => 10,
-   Dec => 11,
-);
-
-sub EX_USAGE { 
-	# 64 on my linux box.
-        # See http://search.cpan.org/~jmates/Unix-Sysexits-0.02/lib/Unix/Sysexits.pm
-	return( 64 ) ;
-}
-
-
-# @ARGV will be eat by get_options()
-my @argv_copy = @ARGV;
-
-get_options();
-
-# $SIG{ INT } = \&catch_continue ;
-local $SIG{ INT } = local $SIG{ QUIT } = local $SIG{ TERM } = \&catch_exit ;
-
-$timestart = time(  );
-$timestart_int = int( $timestart ) ;
-$timebefore = $timestart;
-
-my $timestart_str = localtime( $timestart ) ;
-print   "Transfer started at $timestart_str\n";
-
-$modules_version = defined($modules_version) ? $modules_version : 1;
-
-
-$releasecheck = defined($releasecheck) ? $releasecheck : 1;
-my $warn_release = ($releasecheck) ? check_last_release() : '';
-
-# default values
-
-$tmpdir ||= File::Spec->tmpdir();
-$pidfile ||= $tmpdir . '/imapsync.pid';
-
-$pidfilelocking = defined( $pidfilelocking ) ? $pidfilelocking : 0 ;
-
-# allow Mail::IMAPClient 3.0.xx by default
-$allow3xx = defined($allow3xx) ? $allow3xx : 1;
-
-$wholeheaderifneeded  = defined( $wholeheaderifneeded )  ? $wholeheaderifneeded  : 1;
-
-# turn on RFC standard flags correction like \SEEN -> \Seen
-$flagsCase = defined( $flagsCase ) ? $flagsCase : 1 ;
-
-# Use PERMANENTFLAGS if available
-$filterflags = defined( $filterflags ) ? $filterflags : 1 ;
-
-# sync flags just after an APPEND, some servers ignore the flags given in the APPEND
-# like MailEnable IMAP server.
-# Off by default since it takes time.
-$syncflagsaftercopy = defined( $syncflagsaftercopy ) ? $syncflagsaftercopy : 0 ;
-
-
-
-# turn on relogin 5 by default
-$relogin1 = defined( $relogin1 ) ? $relogin1 : 5 ;
-$relogin2 = defined( $relogin2 ) ? $relogin2 : 5 ;
-
-if ( $fast ) {
-	# $useuid = 1 ;
-	# $foldersizes      = 0 ;
-	# $foldersizesatend = 0 ;
-}
-
-# Activate --usecache if --useuid is set and no --nousecache
-$usecache = 1 if ( $useuid and ( ! defined( $usecache ) ) ) ;
-$cacheaftercopy = 1 if ( $usecache and ( ! defined( $cacheaftercopy ) ) ) ;
-
-$checkselectable = defined( $checkselectable ) ? $checkselectable : 1 ;
-$checkmessageexists = defined( $checkmessageexists ) ? $checkmessageexists : 0 ;
-$expungeaftereach = defined( $expungeaftereach ) ? $expungeaftereach : 1 ;
-$abletosearch = defined( $abletosearch ) ? $abletosearch : 1 ;
-$checkmessageexists = 0 if ( not $abletosearch ) ;
-$showpasswords = defined( $showpasswords ) ? $showpasswords : 0 ;
-$fixslash2 = defined( $fixslash2 ) ? $fixslash2 : 1 ;
-$fixInboxINBOX = defined( $fixInboxINBOX ) ? $fixInboxINBOX : 1 ;
-
-$delete2duplicates = 1 if ( $delete2 and ( ! defined( $delete2duplicates ) ) ) ;
-
-print banner_imapsync(@argv_copy);
-
-print "Temp directory is $tmpdir\n";
-
-is_valid_directory($tmpdir);
-write_pidfile($pidfile) if ($pidfile);
-
-$modules_version and print "Modules version list:\n", modules_VERSION(), "\n";
-
-check_lib_version() or 
-  croak "imapsync needs perl lib Mail::IMAPClient release 3.25 or superior \n";
-
-exit_clean(0) if ($justbanner);
-
-# By default, 100 at a time, not more.
-$split1 ||= 100;
-$split2 ||= 100;
-
-$host1 || missing_option("--host1") ;
-$port1 ||= ( $ssl1 ) ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-$port2 ||= ( $ssl2 ) ? 993 : 143;
-
-$debugimap1 = $debugimap2 = 1 if ( $debugimap ) ;
-$debug = 1 if ( $debugimap1 or $debugimap2 ) ;
-
-# By default, don't take size to compare 
-$skipsize = (defined $skipsize) ? $skipsize : 1;
-
-$uid1 = defined($uid1) ? $uid1 : 1;
-$uid2 = defined($uid2) ? $uid2 : 1;
-
-$subscribe = defined($subscribe) ? $subscribe : 1;
-
-# Allow size mismatch by default
-$allowsizemismatch = defined($allowsizemismatch) ? $allowsizemismatch : 1;
-
-$delete2folders = 1 
-    if ( defined( $delete2foldersbutnot ) or defined( $delete2foldersonly ) ) ;
-
-if ($justconnect) {
-	justconnect();
-	exit_clean(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-$syncinternaldates = defined($syncinternaldates) ? $syncinternaldates : 1;
-
-# Turn on expunge if there is not explicit option --noexpunge and option 
-# --delete is given.
-# Done because --delete --noexpunge is very dangerous on the second run:
-# the Deleted flag is then synced to all previously transfered messages.
-# So --delete implies --expunge is a better usability default behaviour.
-if ($delete) {
-	if ( ! defined($expunge)) {
-		$expunge = 1;
-	}
-}
-
-if ( $uidexpunge2 and not Mail::IMAPClient->can( 'uidexpunge' ) ) {
-        print "Failure: uidexpunge not supported (IMAPClient release < 3.17), use --expunge2 instead\n" ;
-        exit_clean( 3 ) ;
-}
-
-if ( ( $delete2 or $delete2duplicates ) and not defined( $uidexpunge2 ) ) {
-        if ( Mail::IMAPClient->can( 'uidexpunge' ) ) {
-                print "Info: will act as --uidexpunge2\n" ;
-		$uidexpunge2 = 1 ;
-        }elsif ( not defined( $expunge2 ) ) {
-                 print "Info: will act as --expunge2 (no uidexpunge support)\n" ;
-                $expunge2 = 1 ;
-        }
-}
-
-if ( $delete and $delete2 ) {
-	print "Warning: using --delete and --delete2 together is almost always a bad idea, exiting imapsync\n" ;
-	exit_clean( 4 ) ;
-}
-
-if ($idatefromheader) {
-	print "Turned ON idatefromheader, ",
-	      "will set the internal dates on host2 from the 'Date:' header line.\n";
-	$syncinternaldates = 0;
-}
-
-if ($syncinternaldates) {
-	print "Info: turned ON syncinternaldates, ",
-	      "will set the internal dates (arrival dates) on host2 same as host1.\n";
-}else{
-	print "Info: turned OFF syncinternaldates\n";
-}
-
-
-
-if (defined($authmd5) and ($authmd5)) {
-	$authmd51 = 1 ;
-	$authmd52 = 1 ;
-}
-
-if (defined($authmd51) and ($authmd51)) {
-	$authmech1 ||= 'CRAM-MD5';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'LOGIN';
-}
-
-if (defined($authmd52) and ($authmd52)) {
-	$authmech2 ||= 'CRAM-MD5';
-}
-else{
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'LOGIN';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-if (defined $proxyauth1 && !$authuser1) {
-        missing_option("With --proxyauth1, --authuser1");
-}
-
-if (defined $proxyauth2 && !$authuser2) {
-        missing_option("With --proxyauth2, --authuser2");
-}
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "Info: will try to use $authmech1 authentication on host1\n";
-print "Info: will try to use $authmech2 authentication on host2\n";
-
-$timeout = defined( $timeout ) ? $timeout : 120 ;
-print "Info: imap connexions timeout is $timeout seconds\n";
-
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0 ;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1 ;
-$foldersizesatend = (defined($foldersizesatend)) ? $foldersizesatend : $foldersizes ;
-
-
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-$reconnectretry1 = (defined($reconnectretry1)) ? $reconnectretry1 : 3;
-$reconnectretry2 = (defined($reconnectretry2)) ? $reconnectretry2 : 3;
-
-# Since select_msgs() returns no messages when uidnext does not return something
-# then $uidnext_default is never used. So I have to remove it.
-$uidnext_default = 999999 ;
-
-@useheader = ( "Message-Id", "Message-ID", "Received" ) unless ( @useheader ) ;
-
-my %useheader ;
-
-# Make a hash %useheader of each --useheader 'key' in uppercase
-for ( @useheader ) { $useheader{ uc( $_ ) } = undef } ;
-
-#require Data::Dumper ;
-#print Data::Dumper->Dump( [ \%useheader ] ) ;
-#exit ;
-
-print "Host1: IMAP server [$host1] port [$port1] user [$user1]\n";
-print "Host2: IMAP server [$host2] port [$port2] user [$user2]\n";
-
-$password1 || $passfile1 || do {
-        $password1 = ask_for_password($authuser1 || $user1, $host1) unless ($authmech1 eq "EXTERNAL");
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-#$password1 || $passfile1 || 'PREAUTH' eq $authmech1 || do {
-#	$password1 = ask_for_password( $authuser1 || $user1, $host1 ) ;
-#} ;
-
-#$password1 = ( defined( $passfile1 ) ) ? firstline ( $passfile1 ) : $password1 ;
-
-$password2 || $passfile2 || 'PREAUTH' eq $authmech2 || do {
-	$password2 = ask_for_password( $authuser2 || $user2, $host2 ) ;
-} ;
-
-$password2 = ( defined( $passfile2 ) ) ? firstline ( $passfile2 ) : $password2 ;
-
-
-my $dry_message = '' ;
-$dry_message = "\t(not really since --dry mode)" if $dry ;
-
-$search1 ||= $search if ( $search ) ;
-$search2 ||= $search if ( $search ) ;
-
-
-if ( @regexmess ) {
-	my $string = regexmess( '' ) ;
-        # string undef means one of the eval regex was bad.
-        if ( not ( defined( $string ) ) ) {
-        	die_clean( "Error: one of --regexmess option is bad, check it" ) ;
-        }
-}
-
-if ( @regexflag and not ( defined( flags_regex( '' ) ) ) ) {
-        die_clean( "Error: one of --regexmess option is bad, check it" ) ;
-}
-
-my $imap1 = ();
-my $imap2 = ();
-
-$debugimap1 and print "Host1 connection\n";
-$imap1 = login_imap($host1, $port1, $user1, $domain1, $password1, 
-		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		   $authmech1, $authuser1, $reconnectretry1,
-		   $proxyauth1, $uid1, $split1, 'Host1', $ssl1_SSL_version );
-
-$debugimap2 and print "Host2 connection\n";
-$imap2 = login_imap($host2, $port2, $user2, $domain2, $password2, 
-		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		 $authmech2, $authuser2, $reconnectretry2,
-		 $proxyauth2, $uid2, $split2, 'Host2', $ssl2_SSL_version );
-
-
-$debug and print "Host1 Buffer I/O: ", $imap1->Buffer(), "\n";
-$debug and print "Host2 Buffer I/O: ", $imap2->Buffer(), "\n";
-
-
-
-die_clean( 'Not authenticated on host1' ) unless $imap1->IsAuthenticated( ) ;
-print "Host1: state Authenticated\n";
-die_clean( 'Not authenticated on host2' ) unless   $imap2->IsAuthenticated( ) ;
-print "Host2: state Authenticated\n";
-
-print "Host1 capability: ", join(" ", @{ $imap1->capability_update() || [] }), "\n";
-print "Host2 capability: ", join(" ", @{ $imap2->capability_update() || [] }), "\n";
-
-
-exit_clean(0) if ($justlogin);
-
-# 
-# Folder stuff
-#
-
-my (
-@h1_folders_all, %h1_folders_all, @h1_folders_wanted, %requested_folder, 
-%h1_subscribed_folder, %h2_subscribed_folder, 
-@h2_folders_all, %h2_folders_all, 
-@h2_folders_from_1_wanted, %h2_folders_from_1_wanted, 
-%h2_folders_from_1_several, 
-%h2_folders_from_1_all,
-);
-
-
-# Make a hash of subscribed folders in both servers.
-
-for ( $imap1->subscribed(  ) ) { $h1_subscribed_folder{ $_ } = 1 } ;
-for ( $imap2->subscribed(  ) ) { $h2_subscribed_folder{ $_ } = 1 } ;
-
-# All folders on host1 and host2
-@h1_folders_all = sort $imap1->folders();
-@h2_folders_all = sort $imap2->folders();
-
-for ( @h1_folders_all ) { $h1_folders_all{ $_ } = 1 } ;
-for ( @h2_folders_all ) { $h2_folders_all{ $_ } = 1 } ;
-
-if ( $fixInboxINBOX and ( my $reg = fix_Inbox_INBOX_mapping( \%h1_folders_all, \%h2_folders_all ) ) ) {
-	#print "RRRRRR $reg\n" ;
-	push( @regextrans2, $reg ) ;
-} 
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ( $subscribed ) {
-		add_to_requested_folders( keys ( %h1_subscribed_folder ) ) ;
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($imap1->folders($folderrec));
-		}
-	}
-}
-else {
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		add_to_requested_folders(@h1_folders_all);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if ( scalar( @include ) ) {
-	foreach my $include ( @include ) {
-		my @included_folders = grep { /$include/x } @h1_folders_all ;
-		add_to_requested_folders( @included_folders ) ;
-		print "Including folders matching pattern '$include': @included_folders\n" ;
-	}
-}
-
-if ( scalar( @exclude ) ) {
-	foreach my $exclude ( @exclude ) {
-		my @requested_folder = sort( keys( %requested_folder ) ) ;
-		my @excluded_folders = grep { /$exclude/x } @requested_folder ;
-		remove_from_requested_folders( @excluded_folders ) ;
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n" ;
-	}
-}
-
-# Remove no selectable folders
-
-$checkselectable and do {
-	foreach my $folder (keys(%requested_folder)) {
-        	if ( not $imap1->selectable($folder)) {
-			print "Warning: ignoring folder $folder because it is not selectable\n";
-                	remove_from_requested_folders($folder);
-        	}
-	}
-} ;
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@h1_folders_wanted = @requested_folder;
-
-#my $h1_namespace = $imap1->namespace() ;
-#my $h2_namespace = $imap2->namespace() ;
-#require Data::Dumper ;
-#$debug and print "Host1 namespace:\n", Data::Dumper->Dump([$h1_namespace]) ;
-#$debug and print "Host2 namespace:\n", Data::Dumper->Dump([$h2_namespace]) ;
-
-my($h1_sep,$h2_sep); 
-# what are the private folders separators for each server ?
-
-$debug and print "Getting separators\n";
-$h1_sep = get_separator($imap1, $sep1, "--sep1");
-$h2_sep = get_separator($imap2, $sep2, "--sep2");
-
-my($h1_prefix,$h2_prefix); 
-$h1_prefix = get_prefix($imap1, $prefix1, "--prefix1");
-$h2_prefix = get_prefix($imap2, $prefix2, "--prefix2");
-
-
-print "Host1 separator and prefix: [$h1_sep][$h1_prefix]\n";
-print "Host2 separator and prefix: [$h2_sep][$h2_prefix]\n";
-
-#my $h1_xlist_folders = $imap1->xlist_folders(  ) ;
-#my $h2_xlist_folders = $imap2->xlist_folders(  ) ;
-#require Data::Dumper ;
-#print "Host1 xlist:\n", Data::Dumper->Dump([$h1_xlist_folders]) ;
-#print "Host2 xlist:\n", Data::Dumper->Dump([$h2_xlist_folders]) ;
-
-#exit ;
-
-foreach my $h1_fold ( @h1_folders_wanted ) {
-	my $h2_fold ;
-	$h2_fold = imap2_folder_name( $h1_fold ) ;
-	$h2_folders_from_1_wanted{ $h2_fold }++ ;
-        if ( 1 < $h2_folders_from_1_wanted{ $h2_fold } ) {
-        	$h2_folders_from_1_several{ $h2_fold }++ ;
-        }
-} 
-@h2_folders_from_1_wanted = sort keys(%h2_folders_from_1_wanted);
-
-foreach my $h1_fold (@h1_folders_all) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders_from_1_all{$h2_fold}++;
-}
-
-
-if ( $foldersizes ) {
-	( $h1_nb_msg_at_start, $h1_bytes_start ) = foldersizes( "Host1", $imap1, $search1, @h1_folders_wanted ) ;
-	( $h2_nb_msg_start, $h2_bytes_start ) = foldersizes( "Host2", $imap2, $search2, @h2_folders_from_1_wanted ) ;
-	$fast or sleep( 2 ) ;
-}
-
-
-exit_clean(0) if ($justfoldersizes);
-
-print 
-  "++++ Listing folders\n",
-  "Host1 folders list:\n", map( { "[$_]\n" } @h1_folders_all ), "\n",
-  "Host2 folders list:\n", map( { "[$_]\n" } @h2_folders_all ), "\n" ;
-
-print 
-  "Host1 subscribed folders list: ", 
-  map( { "[$_] " } sort keys( %h1_subscribed_folder ) ), "\n" 
-  if ( $subscribed ) ;
-
-my @h2_folders_not_in_1;
-@h2_folders_not_in_1 = list_folders_in_2_not_in_1();
-
-print "Folders in host2 not in host1:\n", 
-  map( { "[$_]\n" } @h2_folders_not_in_1 ), "\n" ;
-
-delete_folders_in_2_not_in_1() if $delete2folders;
-
-# folder loop
-print "++++ Looping on each folder\n";
-
-my $begin_transfer_time = time ;
-
-
-my %uid_candidate_for_deletion ;
-my %uid_candidate_no_deletion ;
-
-FOLDER: foreach my $h1_fold ( @h1_folders_wanted ) {
-
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-
-	my $h2_fold = imap2_folder_name( $h1_fold ) ;
-	#relogin1(  ) if ( $relogin1 ) ;
-	printf( "%-35s -> %-35s\n", "[$h1_fold]", "[$h2_fold]" ) ;
-
-	# host1 can not be fetched read only, select is needed because of expunge.
-	select_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	#examine_folder( $imap1, $h1_fold, 'Host1' ) or next FOLDER ;
-	
-	
-	if ( ! exists( $h2_folders_all{ $h2_fold } ) ) {
-		create_folder( $imap2, $h2_fold, $h1_fold ) or next FOLDER ;
-	}
-	
-	acls_sync( $h1_fold, $h2_fold ) ;
-	
-        # Sometimes the folder on host2 is listed (it exists) but is
-        # not selectable but becomes selectable by a create (Gmail)
-	select_folder( $imap2, $h2_fold, 'Host2' ) 
-        or ( create_folder( $imap2, $h2_fold, $h1_fold ) 
-             and select_folder( $imap2, $h2_fold, 'Host2' ) )
-        or next FOLDER ;
-	my @select_results = $imap2->Results(  ) ;
-	
-	#print "%%% @select_results\n" ;
-	my $permanentflags2 = permanentflags( @select_results ) ;
-	( $debug or $debugflags ) and print "permanentflags: $permanentflags2\n" ;
-
-	if ( $expunge or $expunge1 ){
-		print "Expunging host1 $h1_fold $dry_message\n" ;
-		unless($dry) { $imap1->expunge() } ;
-		#print "Expunging host2 $h2_fold\n" ;
-		#unless($dry) { $imap2->expunge() } ;
-	}
-	
-	if ( ( ( $subscribe and exists $h1_subscribed_folder{ $h1_fold } ) or $subscribe_all )
-             and not exists( $h2_subscribed_folder{ $h2_fold } ) ) {
-		print "Subscribing to folder $h2_fold on destination server\n" ;
-		unless( $dry ) { $imap2->subscribe( $h2_fold ) } ;
-	}
-	
-	next FOLDER if ($justfolders);
-
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-
-        my $h1_msgs_all_hash_ref = {  } ;
-	my @h1_msgs = select_msgs( $imap1, $h1_msgs_all_hash_ref, $search1, $h1_fold );
-	last FOLDER if $imap1->IsUnconnected();
-        
-        my $h1_msgs_nb = scalar( @h1_msgs ) ;
-        $h1{ $h1_fold }{ 'messages_nb' } = $h1_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host1 LIST: $h1_msgs_nb messages [@h1_msgs]\n" ;
-        $debug and print "Host1 selecting messages of folder [$h1_fold] took ", timenext(), " s\n";
-        
-        my $h2_msgs_all_hash_ref = {  } ;
-	my @h2_msgs = select_msgs( $imap2, $h2_msgs_all_hash_ref, $search2, $h2_fold ) ;
-	last FOLDER if $imap2->IsUnconnected();
-        
-        my $h2_msgs_nb = scalar( @h2_msgs ) ;
-        $h2{ $h2_fold }{ 'messages_nb' } = $h2_msgs_nb ;
-
-	( $debug or $debugLIST ) and print "Host2 LIST: $h2_msgs_nb messages [@h2_msgs]\n";
-        $debug and print "Host2 selecting messages of folder [$h2_fold] took ", timenext(), " s\n";
-        
-	my $cache_base = "$tmpdir/imapsync_cache/$host1/$user1/$host2/$user2" ;
-	my $cache_dir = cache_folder( $cache_base, $h1_fold, $h2_fold ) ;
-	my ( $cache_1_2_ref, $cache_2_1_ref ) = ( {}, {} ) ;
-        
-	my $h1_uidvalidity = $imap1->uidvalidity(  ) || '' ;
-	my $h2_uidvalidity = $imap2->uidvalidity(  ) || '' ;
-
-        last FOLDER if $imap1->IsUnconnected() ;
-        last FOLDER if $imap2->IsUnconnected() ;
-
-	if ( $usecache ) {
-		print "cache directory: $cache_dir\n" ;
-		mkpath( "$cache_dir" ) ;
-		( $cache_1_2_ref, $cache_2_1_ref ) 
-                = get_cache( $cache_dir, \@h1_msgs, \@h2_msgs, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-		print "CACHE h1 h2: ", scalar( keys %$cache_1_2_ref ), " files\n" ; 
-		$debug and print '[',
-		    map ( { "$_->$cache_1_2_ref->{$_} " } keys %$cache_1_2_ref ), " ]\n";
-	}
-	
-	my %h1_hash = ();
-	my %h2_hash = ();
-	
-	my ( %h1_msgs, %h2_msgs ) ;
-	@h1_msgs{ @h1_msgs } = ();
-	@h2_msgs{ @h2_msgs } = ();
-	
-	my @h1_msgs_in_cache = sort { $a <=> $b } keys %$cache_1_2_ref ;
-	my @h2_msgs_in_cache = keys %$cache_2_1_ref ;
-	
-	my ( %h1_msgs_not_in_cache, %h2_msgs_not_in_cache ) ;
-	%h1_msgs_not_in_cache = %h1_msgs ;
-	%h2_msgs_not_in_cache = %h2_msgs ;
-	delete @h1_msgs_not_in_cache{ @h1_msgs_in_cache } ;
-	delete @h2_msgs_not_in_cache{ @h2_msgs_in_cache } ;
-	
-	my @h1_msgs_not_in_cache = keys %h1_msgs_not_in_cache ;
-	#print "h1_msgs_not_in_cache: [@h1_msgs_not_in_cache]\n" ;
-	my @h2_msgs_not_in_cache = keys %h2_msgs_not_in_cache ;
-	
-	my @h2_msgs_delete2_not_in_cache = () ;
-	%h1_msgs_copy_by_uid = (  ) ;
-	
-	if ( $useuid ) {
-		# use uid so we have to avoid getting header
-		@h1_msgs_copy_by_uid{ @h1_msgs_not_in_cache } = (  ) ;
-		@h2_msgs_delete2_not_in_cache = @h2_msgs_not_in_cache if $usecache ;
-		@h1_msgs_not_in_cache = (  ) ;
-		@h2_msgs_not_in_cache = (  ) ;
-		
-		#print "delete2: @h2_msgs_delete2_not_in_cache\n";
-	}
-	
-	$debug and print "Host1 parsing headers of folder [$h1_fold]\n";
-
-	my ($h1_heads_ref, $h1_fir_ref) = ({}, {});
-	$h1_heads_ref = $imap1->parse_headers([@h1_msgs_not_in_cache], @useheader) if (@h1_msgs_not_in_cache);
-	$debug and print "Host1 parsing headers of folder [$h1_fold] took ", timenext(), " s\n";
-
-	@$h1_fir_ref{@h1_msgs} = (undef);
-        
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold]\n" ;
-        if ( $abletosearch ) {
-		$h1_fir_ref = $imap1->fetch_hash( \@h1_msgs, "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref )
-	  	if ( @h1_msgs ) ;
-        }else{
-		my $uidnext = $imap1->uidnext( $h1_fold ) || $uidnext_default ;
-		$h1_fir_ref = $imap1->fetch_hash( "1:$uidnext", "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref )
-		if ( @h1_msgs ) ;
-        }
-	$debug and print "Host1 getting flags idate and sizes of folder [$h1_fold] took ", timenext(), " s\n";
-	unless ($h1_fir_ref) {
-		print
-		"Host1 folder $h1_fold: Could not fetch_hash ",
-		scalar(@h1_msgs), " msgs: ", $imap1->LastError || '', "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-
-	my @h1_msgs_duplicate;
-	foreach my $m (@h1_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap1, $m, $h1_heads_ref, $h1_fir_ref, 'Host1', \%h1_hash);
-		if (! defined($rc)) {
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			print "Host1 $h1_fold/$m size $h1_size ignored (no wanted headers so we ignore this message. To solve this: use --addheader)\n" ;
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			$h1_nb_msg_noheader +=1;
-                        $h1_nb_msg_processed +=1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			push(@h1_msgs_duplicate, $m);
-			# duplicate, same id same size?
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			$nb_msg_skipped += 1;
-			$h1_total_bytes_duplicate += $h1_size;
-			$h1_nb_msg_duplicate += 1;
-                        $h1_nb_msg_processed +=1 ;
-		}
-	}
-        my $h1_msgs_duplicate_nb = scalar( @h1_msgs_duplicate ) ;
-        $h1{ $h1_fold }{ 'duplicates_nb' } = $h1_msgs_duplicate_nb ;
-        
-        $debug and print "Host1 selected: $h1_msgs_nb  duplicates: $h1_msgs_duplicate_nb\n" ;
-	$debug and print "Host1 whole time parsing headers took ", timenext(), " s\n";
-        
-	$debug and print "Host2 parsing headers of folder [$h2_fold]\n";
-        
-	my ($h2_heads_ref, $h2_fir_ref) = ( {}, {} );
-	$h2_heads_ref =   $imap2->parse_headers([@h2_msgs_not_in_cache], @useheader) if (@h2_msgs_not_in_cache);
-	$debug and print "Host2 parsing headers of folder [$h2_fold] took ", timenext(), " s\n" ;
-
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold]\n" ;
-	@$h2_fir_ref{@h2_msgs} = (  ); # fetch_hash can select by uid with last arg as ref
-
-
-        if ( $abletosearch ) {
-		$h2_fir_ref = $imap2->fetch_hash( \@h2_msgs, "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h2_fir_ref)
-		if (@h2_msgs) ;
-        }else{
-		my $uidnext = $imap2->uidnext( $h2_fold ) || $uidnext_default ;
-		$h2_fir_ref = $imap2->fetch_hash( "1:$uidnext", "FLAGS", "INTERNALDATE", "RFC822.SIZE", $h2_fir_ref )
-		if ( @h2_msgs ) ;
-        }
-
-	$debug and print "Host2 getting flags idate and sizes of folder [$h2_fold] took ", timenext(), " s\n" ;
-	
-	my @h2_msgs_duplicate;
-	foreach my $m (@h2_msgs_not_in_cache) {
-		my $rc = parse_header_msg($imap2, $m, $h2_heads_ref, $h2_fir_ref, 'Host2', \%h2_hash);
-		my $h2_size = $h2_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-		if (! defined($rc)) {
-                        print "Host2 $h2_fold/$m size $h2_size ignored (no wanted headers so we ignore this message)\n" ;
-			$h2_nb_msg_noheader += 1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			$h2_nb_msg_duplicate += 1;
-			$h2_total_bytes_duplicate += $h2_size;
-			push(@h2_msgs_duplicate, $m);
-		}
-	}
-        my $h2_msgs_duplicate_nb = scalar( @h2_msgs_duplicate ) ;
-        $h2{ $h2_fold }{ 'duplicates_nb' } = $h2_msgs_duplicate_nb ;
-        
-        print "Host2 folder $h2_fold selected: $h2_msgs_nb messages,  duplicates: $h2_msgs_duplicate_nb\n" 
-        	if ( $debug or $delete2duplicates or $h2_msgs_duplicate_nb ) ;
-	$debug and print "Host2 whole time parsing headers took ", timenext(), " s\n";
-
-	$debug and print "++++ Verifying [$h1_fold] -> [$h2_fold]\n";
-	# messages in host1 that are not in host2
-	
-	my @h1_hash_keys_sorted_by_uid 
-	  = sort {$h1_hash{$a}{'m'} <=> $h1_hash{$b}{'m'}} keys(%h1_hash);
-	
-	#print map { $h1_hash{$_}{'m'} . " "} @h1_hash_keys_sorted_by_uid;
-	
-	my @h2_hash_keys_sorted_by_uid 
-	  = sort {$h2_hash{$a}{'m'} <=> $h2_hash{$b}{'m'}} keys(%h2_hash);
-
-        
-	if( $delete2duplicates and not exists( $h2_folders_from_1_several{ $h2_fold } ) ) {
-		my @h2_expunge ;
-
-		foreach my $h2_msg ( @h2_msgs_duplicate ) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [duplicate] on host2 $dry_message\n" ;
-			push( @h2_expunge, $h2_msg ) if $uidexpunge2 ;
-			unless ( $dry ) {
-				$imap2->delete_message( $h2_msg ) ;
-				$h2_nb_msg_deleted += 1 ;
-			}
-		}
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s) $dry_message\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ( $expunge2 ){
-                	print "Expunging host2 folder $h2_fold $dry_message\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-	}
-        
-	if( $delete2 and not exists( $h2_folders_from_1_several{ $h2_fold } ) ) {
-        	# No host1 folders f1a f1b ... going all to same f2 (via --regextrans2)
-		my @h2_expunge;
-		foreach my $m_id (@h2_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($h1_hash{$m_id})) {
-				my $h2_msg  = $h2_hash{$m_id}{'m'};
-				my $h2_flags  = $h2_hash{$m_id}{'F'} || "";
-				my $isdel  = $h2_flags =~ /\B\\Deleted\b/x ? 1 : 0;
-				print "msg $h2_fold/$h2_msg marked \\Deleted on host2 [$m_id] $dry_message\n"
-				  if ! $isdel;
-				push(@h2_expunge, $h2_msg) if $uidexpunge2;
-				unless ($dry or $isdel) {
-					$imap2->delete_message($h2_msg);
-					$h2_nb_msg_deleted += 1;
-				}
-			}
-		}
-		foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-			print "msg $h2_fold/$h2_msg marked \\Deleted [not in cache] on host2 $dry_message\n";
-                        push(@h2_expunge, $h2_msg) if $uidexpunge2;
-			unless ($dry) {
-				$imap2->delete_message($h2_msg);
-				$h2_nb_msg_deleted += 1;
-			}
-		}
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s) $dry_message\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ($expunge2){
-                	print "Expunging host2 folder $h2_fold $dry_message\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-	}
-
-	if( $delete2 and exists( $h2_folders_from_1_several{ $h2_fold } ) ) {
-        	print "Host2 folder $h2_fold $h2_folders_from_1_several{ $h2_fold } folders left to sync there\n" ;
-		my @h2_expunge;
-		foreach my $m_id ( @h2_hash_keys_sorted_by_uid ) {
-                	my $h2_msg  = $h2_hash{ $m_id }{ 'm' } ;
-			unless ( exists( $h1_hash{ $m_id } ) ) {
-				my $h2_flags  = $h2_hash{ $m_id }{ 'F' } || "" ;
-				my $isdel  = $h2_flags =~ /\B\\Deleted\b/x ? 1 : 0 ;
-				unless ( $isdel ) {
-                                	$debug and print "msg $h2_fold/$h2_msg candidate for deletion on host2 [$m_id]\n" ;
-					$uid_candidate_for_deletion{ $h2_fold }{ $h2_msg }++ ;
-				}
-			}else{
-                        	$debug and print "msg $h2_fold/$h2_msg will cancel deletion on host2 [$m_id]\n" ;
-                        	$uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                        }
-		}
-		foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-			print "msg $h2_fold/$h2_msg candidate for deletion [not in cache] on host2\n";
-                        $uid_candidate_for_deletion{ $h2_fold }{ $h2_msg }++ ;
-		}
-                
-		foreach my $h2_msg ( @h2_msgs_in_cache ) {
-			print "msg $h2_fold/$h2_msg will cancel deletion [in cache] on host2\n";
-                        $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-		}
-                
-                
-                if ( 0 == $h2_folders_from_1_several{ $h2_fold } ) {
-                	# last host1 folder going to $h2_fold
-                        print "Last host1 folder going to $h2_fold\n" ;
-                        foreach my $h2_msg ( keys %{ $uid_candidate_for_deletion{ $h2_fold } } ) {
-                        	$debug and print "msg $h2_fold/$h2_msg candidate for deletion on host2\n" ;
-                                if ( exists( $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg } ) ) {
-                                	$debug and print "msg $h2_fold/$h2_msg canceled deletion on host2\n" ;
-                                }else{
-                                	print "msg $h2_fold/$h2_msg marked \\Deleted on host2 $dry_message\n";
-                                        push( @h2_expunge, $h2_msg ) if $uidexpunge2 ;
-                                        unless ( $dry ) {
-                                        	$imap2->delete_message( $h2_msg ) ;
-                                        	$h2_nb_msg_deleted += 1 ;
-                                        }
-                                }
-                        }
-                }
-                
-		my $cnt = scalar @h2_expunge ;
-		if( @h2_expunge ) {
-			print "uidexpunge $cnt message(s) $dry_message\n" ;
-			$imap2->uidexpunge( \@h2_expunge ) if ! $dry ;
-		}
-        	if ( $expunge2 ) {
-                	print "Expunging host2 folder $h2_fold $dry_message\n" ;
-                	$imap2->expunge(  ) if ! $dry ;
-        	}
-
-                $h2_folders_from_1_several{ $h2_fold }-- ;                
-	}
-
-
-	my $h2_uidnext = $imap2->uidnext( $h2_fold ) ;
-        $debug and print "Host2 uidnext: $h2_uidnext\n" ;
-	$h2_uidguess = $h2_uidnext ;
-	MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
-        	last FOLDER if $imap1->IsUnconnected();
-                last FOLDER if $imap2->IsUnconnected();
-		#print "h1_nb_msg_processed: $h1_nb_msg_processed\n" ;
-		my $h1_size  = $h1_hash{$m_id}{'s'};
-		my $h1_msg   = $h1_hash{$m_id}{'m'};
-		my $h1_idate = $h1_hash{$m_id}{'D'};
-
-		unless (exists($h2_hash{$m_id})) {
-			# copy
-			my $h2_msg = copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                        if( $delete2 and exists( $h2_folders_from_1_several{ $h2_fold } ) and $h2_msg ) {
-                        	print "msg $h2_fold/$h2_msg will cancel deletion [fresh copy] on host2\n" ;
-	                        $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                        }
-                        last FOLDER if total_bytes_max_reached(  ) ;
-			next MESS;
-		}
-		else{
-		        # already on host2
-			my $h2_msg   = $h2_hash{$m_id}{'m'} ;
-			$debug and print "Host1 found msg $h1_fold/$h1_msg equals Host2 $h2_fold/$h2_msg\n" ;
-			$total_bytes_skipped += $h1_size ;
-			$nb_msg_skipped += 1 ;
-                        $h1_nb_msg_processed +=1 ;
-                        
-                        if ( $usecache ) {
-				$debugcache and print "touch $cache_dir/${h1_msg}_$h2_msg\n" ;
-				touch( "$cache_dir/${h1_msg}_$h2_msg" ) 
-                                or croak( "Couldn't touch $cache_dir/${h1_msg}_$h2_msg" ) ;
-                        }
-		}
-		
-		#$debug and print "MESSAGE $m_id\n";
-		my $h2_msg  = $h2_hash{$m_id}{'m'};
-
-                sync_flags_fir( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-                last FOLDER if $imap2->IsUnconnected() ;
-	    	# Good
-		my $h2_size = $h2_hash{$m_id}{'s'};
-		$debug and print
-		"Host1 size  msg $h1_fold/$h1_msg = $h1_size <> $h2_size = Host2 $h2_fold/$h2_msg\n";
-		if( $delete ) {
-                        my $expunge_message = '' ;
-                        $expunge_message = "and expunged" if ( $expungeaftereach and ( $expunge or $expunge1 ) ) ;
-			print "Host1 msg $h1_fold/$h1_msg marked deleted $expunge_message $dry_message\n" ;
-			unless( $dry ) {
-				$imap1->delete_message( $h1_msg ) ;
-				$h1_nb_msg_deleted += 1 ;
-				$imap1->expunge() if ( $expungeaftereach and ( $expunge or $expunge1 ) ) ;
-			}
-		}
-		
-	}
-	# END MESS: loop
-        last FOLDER if $imap1->IsUnconnected();
-        last FOLDER if $imap2->IsUnconnected();
-	MESS_IN_CACHE: foreach my $h1_msg ( @h1_msgs_in_cache ) {
-		my $h2_msg = $cache_1_2_ref->{ $h1_msg } ;
-		$debugcache and print "cache messages update flags $h1_msg->$h2_msg\n";
-		sync_flags_fir( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-		my $h1_size = $h1_fir_ref->{ $h1_msg }->{ 'RFC822.SIZE' } || 0 ;
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-                $h1_nb_msg_processed +=1 ;
-                last FOLDER if $imap2->IsUnconnected();                
-	}
-	
-	#print "Messages by uid: ", map { "$_ " } keys %h1_msgs_copy_by_uid, "\n" ;
-	MESS_BY_UID: foreach my $h1_msg ( sort { $a <=> $b } keys %h1_msgs_copy_by_uid ) {
-		# 
-		$debug and print "Copy by uid $h1_fold/$h1_msg\n" ;
-                last FOLDER if $imap1->IsUnconnected();
-                last FOLDER if $imap2->IsUnconnected();
-		my $h2_msg = copy_message( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                if( $delete2 and exists( $h2_folders_from_1_several{ $h2_fold } ) and $h2_msg ) {
-                	print "msg $h2_fold/$h2_msg will cancel deletion [fresh copy] on host2\n" ;
-	                $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                }
-		last FOLDER if total_bytes_max_reached(  ) ;
-	}
-	
-	if ($expunge or $expunge1){
-		print "Expunging host1 folder $h1_fold $dry_message\n";
-		unless($dry) { $imap1->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging host2 folder $h2_fold $dry_message\n";
-		unless($dry) { $imap2->expunge() };
-	}
-
-	$debug and print "Time: ", timenext(), " s\n";
-}
-
-
-sub total_bytes_max_reached {
-
-	return( 0 ) if not $exitwhenover ;
-	if ( $total_bytes_transferred >= $exitwhenover ) {
-        	print "Maximum bytes transfered reached, $total_bytes_transferred >= $exitwhenover, ending sync\n" ;
-        	return( 1 ) ;
-        }  
-
-}
-
-print "++++ End looping on each folder\n";
-$debug and print "Time: ", timenext(), " s\n";
-
-#print memory_consumption();
-
-
-if ( $foldersizesatend ) {
-	timenext() ;
-	( $h1_nb_msg_end, $h1_bytes_end ) = foldersizes( "Host1", $imap1, $search1, @h1_folders_wanted ) ;
-	( $h2_nb_msg_end, $h2_bytes_end ) = foldersizes( "Host2", $imap2, $search2, @h2_folders_from_1_wanted ) ;
-}
-
-$imap1->logout(  ) unless lost_connection($imap1, "for host1 [$host1]");
-$imap2->logout(  ) unless lost_connection($imap2, "for host2 [$host2]");
-
-
-stats(  ) ;
-exit_clean( 1 ) if ( $nb_errors ) ;
-exit_clean( 0 ) ;
-
-# END of main program
-
-# subroutines
-
-
-sub size_filtered_flag {
-	my $h1_size = shift ;
-	
-	if (defined $maxsize and $h1_size >= $maxsize) {
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub sync_flags_fir {
-	my ( $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) = @_ ;
-
-	my $h1_size = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} ;
-	return(  ) if size_filtered_flag( $h1_size ) ;
-
-	# used cached flag values for efficiency
-	my $h1_flags = $h1_fir_ref->{ $h1_msg }->{ "FLAGS" } || '' ;
-	my $h2_flags = $h2_fir_ref->{ $h2_msg }->{ "FLAGS" } || '' ;
-
-	sync_flags( $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) ;
-
-        return(  ) ;
-}
-
-sub sync_flags_after_copy {
-	my( $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $permanentflags2 ) = @_ ;
-        
-        my @h2_flags = $imap2->flags( $h2_msg ) ;
-        my $h2_flags = "@h2_flags" ;
-        print "FLAGS $h2_msg: $h2_flags\n" ;
-	sync_flags( $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) ;
-        return(  ) ;
-}
-
-sub sync_flags {
-	my( $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) = @_ ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags init msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-
-	$h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
-
-	$h2_flags = flagsCase( $h2_flags ) ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags filt msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 $h2_fold/$h2_msg flags( $h2_flags )\n" ;
-
-	
-	# compare flags - set flags if there a difference
-	my @h1_flags = sort split(' ', $h1_flags );
-	my @h2_flags = sort split(' ', $h2_flags );
-	my $diff = compare_lists( \@h1_flags, \@h2_flags );
-
-	$diff and ( $debug or $debugflags ) 
-		and     print "Host2 flags msg $h2_fold/$h2_msg replacing h2 flags( $h2_flags ) with h1 flags( $h1_flags )\n";
-	# This sets flags so flags can be removed with this
-	# When you remove a \Seen flag on host1 you want to it
-	# to be removed on host2. Just add flags is not what 
-	# we need most of the time.
-	
-	if ( not $dry and $diff and not $imap2->store( $h2_msg, "FLAGS.SILENT (@h1_flags)" ) ) {
-		print "Host2 flags msg $h2_fold/$h2_msg could not add flags [@h1_flags]: ",
-		  $imap2->LastError || '', "\n" ;
-		#$nb_errors++ ;
-	}
-
-        return(  ) ;
-}
-
-
-
-sub _filter {
-	my $str = shift or return "";
-        my $sz  = 64;
-        my $len = length($str);
-        if ( not $debug and $len > $sz*2 ) {
-                my $beg = substr($str, 0, $sz);
-                my $end = substr($str, -$sz, $sz);
-                $str = $beg . "..." . $end;
-        }
-        $str =~ s/\012?\015$//x;
-        return "(len=$len) " . $str;
-}
-
-
-
-sub lost_connection {
-	my($imap, $error_message) = @_;
-        if ( $imap->IsUnconnected() ) {
-                $nb_errors++;
-                my $lcomm = $imap->LastIMAPCommand || "";
-                my $einfo = $imap->LastError || @{$imap->History}[-1] || "";
-
-                # if string is long try reduce to a more reasonable size
-                $lcomm = _filter($lcomm);
-                $einfo = _filter($einfo);
-                print("Failure: last command: $lcomm\n") if ($debug && $lcomm);
-                print("Failure: lost connection $error_message: ", $einfo, "\n");
-                return(1);
-        }
-        else{
-        	return(0);
-        }
-}
-
-sub max {
-	my @list = @_ ;
-	return( undef ) if ( 0 == scalar( @list ) ) ;
-	my @sorted = sort { $a <=> $b } @list ;
-	return( pop( @sorted ) ) ;
-}
-
-sub tests_max {
-	ok( 0 == max(0),   "max 0");
-	ok( 1 == max(1),   "max 1");
-	ok( -1 == max(-1), "max -1");
-	ok( not ( defined( max(  ) ) ), "max no arg" ) ;
-	ok( 100 == max( 1, 100 ), "max 1 100" ) ;
-	ok( 100 == max( 100, 1 ), "max 100 1") ;
-	ok( 100 == max( 100, 42, 1 ), "max 100 42 1") ;
-	ok( 100 == max( 100, "42", 1 ), "max 100 42 1") ;
-	ok( 100 == max( "100", "42", 1 ), "max 100 42 1") ;
-	#ok( 100 == max( 100, "haha", 1 ), "max 100 42 1") ;
-        return(  ) ;
-}
-
-sub keyval {
-        my %hash = @_ ;
-        return( join( " ", map( { "$_ => " . $hash{ $_ } } keys %hash ) ) . "\n" ) ;
-}
-        
-
-
-sub check_lib_version {
-	$debug and print "IMAPClient $Mail::IMAPClient::VERSION\n";
-	if ($Mail::IMAPClient::VERSION eq '2.2.9') {
-		print "imapsync no longer supports Mail::IMAPClient 2.2.9, upgrade it" ;
-		return( 0 ) ;
-	}
-	else{
-		# 3.x.x is no longer buggy with imapsync.
-		return( 1 ) ;      
-	}
-}
-
-sub module_version_str {
-	my( $module_name, $module_version ) = @_ ;
-	my $str = sprintf( "%-20s %s\n", $module_name, $module_version ) ;
-        return( $str ) ;
-}
-
-sub modules_VERSION {
-
-	my @list_version;
-
-	my $v ;
-	eval { require Mail::IMAPClient; $v = $Mail::IMAPClient::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Mail::IMAPClient', $v ) ) ;
-
-	eval { require IO::Socket; $v = $IO::Socket::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'IO::Socket', $v ) ) ;
-
-	eval { require IO::Socket::IP; $v = $IO::Socket::IP::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'IO::Socket::IP', $v ) ) ;
-
-	eval { require IO::Socket::INET; $v = $IO::Socket::INET::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'IO::Socket::INET', $v ) ) ;
-
-	eval { require IO::Socket::SSL ; $v = $IO::Socket::SSL::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'IO::Socket::SSL ', $v ) ) ;
-
-	eval { require Net::SSLeay ; $v = $Net::SSLeay::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Net::SSLeay ', $v ) ) ;
-
-	eval { require Digest::MD5; $v = $Digest::MD5::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Digest::MD5', $v ) ) ;
-
-	eval { require Digest::HMAC_MD5; $v = $Digest::HMAC_MD5::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Digest::HMAC_MD5', $v ) ) ;
-
-	eval { require Digest::HMAC_SHA1; $v = $Digest::HMAC_SHA1::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Digest::HMAC_SHA1', $v ) ) ;
-
-	eval { require Term::ReadKey; $v = $Term::ReadKey::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Term::ReadKey', $v ) ) ;
-
-	eval { require Authen::NTLM; $v = $Authen::NTLM::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Authen::NTLM', $v ) ) ;
-
-	eval { require File::Spec; $v = $File::Spec::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'File::Spec', $v ) ) ;
-
-	eval { require Time::HiRes; $v = $Time::HiRes::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Time::HiRes', $v ) ) ;
-
-	eval { require URI::Escape; $v = $URI::Escape::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'URI::Escape', $v ) ) ;
-
-	eval { require Data::Uniqid; $v = $Data::Uniqid::VERSION } or $v = "?" ;
-	push ( @list_version, module_version_str( 'Data::Uniqid', $v ) ) ;
-
-	return( @list_version ) ;
-}
-
-
-# Construct a command line copy with passwords replaced by MASKED.
-sub command_line_nopassword {
-	my @argv = @_;
-	my @argv_nopassword;
-        
-        return("@argv") if $showpasswords ;
-	while (@argv) {
-		my $arg = shift(@argv); # option name or value
-		if ($arg =~ m/-password[12]/x) {
-			shift(@argv); # password value 
-			push(@argv_nopassword, $arg, "MASKED"); # option name and fake value
-		}else{
-			push(@argv_nopassword, $arg); # same option or value
-		}
-	}
-	return("@argv_nopassword");
-}
-
-sub tests_command_line_nopassword {
-
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 MASKED' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 MASKED --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-	$showpasswords = 1 ;
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 secret1' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 secret1 --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-        return(  ) ;
-}
-
-sub ask_for_password {
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-sub catch_exit {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-	stats(  ) ;
-	exit_clean( 6 ) ;
-        return(  ) ; # fake, for perlcritic
-}
-
-sub catch_continue {
-	my $signame = shift ;
-	print "\nGot a SIG$signame!\n" ;
-        return(  ) ;
-}
-
-
-
-sub connect_imap {
-	my( $host, $port, $mydebugimap, $ssl, $tls, $SSL_version ) = @_;
-	my $imap = Mail::IMAPClient->new();
-	if ( $ssl ) { set_ssl( $imap, $ssl, $SSL_version ) }
-	$imap->Tls($tls) if ($tls);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($mydebugimap);
-	$imap->connect()
-	  or die_clean("Can not open imap connection on [$host]: $@\n");
-	#myconnect($imap)
-	#  or die_clean("Can not open imap connection on [$host]: $@\n");
-        my $banner = $imap->Results()->[0] ;
-        $imap->Banner( $banner ) ;
-        $imap->starttls(  ) if ( $imap->Tls(  ) ) ;
-        return( $imap ) ;
-}
-
-sub justconnect {
-
-	$imap1 = connect_imap( $host1, $port1, $debugimap1, $ssl1, $tls1, $ssl1_SSL_version ) ;
-	print "Host1 software: ", server_banner( $imap1 ) ;
-	print "Host1 capability: ", join(" ", $imap1->capability(  ) ), "\n" ;
-	$imap2 = connect_imap( $host2, $port2, $debugimap2, $ssl2, $tls2, $ssl2_SSL_version ) ;
-	print "Host2 software: ", server_banner( $imap2 ) ;
-	print "Host2 capability: ", join(" ", $imap2->capability(  ) ), "\n" ;
-	$imap1->logout() ;
-	$imap2->logout() ;
-        return(  ) ;
-}
-
-sub relogin1 {
-	$imap1 = relogin_imap(
-		$imap1,
-		$host1, $port1, $user1, $domain1, $password1, 
-		$debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		$authmech1, $authuser1, $reconnectretry1,
-		$proxyauth1, $uid1, $split1) ;
-		
-	$relogin1-- if ( $relogin1 ) ;
-        return(  ) ;
-}
-
-sub relogin2 {
-	$imap2 = relogin_imap(
-		$imap2,
-		$host2, $port2, $user2, $domain2, $password2, 
-		$debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		$authmech2, $authuser2, $reconnectretry2,
-		$proxyauth2, $uid2, $split2) ;
-		
-	$relogin2-- if ( $relogin2 )  ;
-        return(  ) ;
-}
-
-sub relogin_imap {
-	my($imap,
-	   $host, $port, $user, $domain, $password, 
-	   $mydebugimap, $mytimeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split) = @_;
-
-	my $folder_current = $imap->Folder ;
-	$imap->logout(  ) ;
-	$imap = login_imap(
-		$host, $port, $user, $domain, $password, 
-		$mydebugimap, $mytimeout, $fastio, 
-		$ssl, $tls, $authmech, $authuser, $reconnectretry,
-		$proxyauth, $uid, $split
-	) ;
-	$imap->select( $folder_current ) if defined( $folder_current ) ;
-	return( $imap ) ;
-}
-
-
-sub login_imap {
-
-	my @allargs = @_ ;
-	my($host, $port, $user, $domain, $password, 
-	   $mydebugimap, $mytimeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split, $Side, $SSL_version ) = @allargs ;
-
-	my $side = lc( $Side ) ;
-	my $imap = init_imap( @allargs ) ;
-
-	$imap->connect()
-	  or die_clean("Failure: can not open imap connection on $side [$host] with user [$user]: $@\n");
-	
-        my $banner = $imap->Results()->[0] ;
-        $imap->Banner( $banner ) ;
-	print "$Side: ", server_banner($imap);
-
-        if ( $authmech eq 'PREAUTH' ) {
-        	if ( $imap->IsAuthenticated( ) ) {
-        		$imap->Socket ;
-			printf("%s: Assuming PREAUTH for %s\n", $Side, $imap->Server ) ;
-        	}else{
-                	die_clean( "Failure: error login on $side [$host] with user [$user] auth [PREAUTH]" ) ;
-                }
-        }
-
-	$imap->starttls(  ) if ( $imap->Tls(  ) ) ;
-	
-        authenticate_imap( $imap, @allargs ) ;
-	
-	print "$Side: success login on [$host] with user [$user] auth [$authmech]\n" ;
-	return( $imap ) ;
-}
-
-
-sub authenticate_imap {
-
-	my($imap,
-           $host, $port, $user, $domain, $password, 
-	   $mydebugimap, $mytimeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split, $Side ) = @_ ;
-
-	check_capability( $imap, $authmech, $Side ) ;
-
-        if ( $proxyauth ) {
-                $imap->Authmechanism("") ;
-                $imap->User($authuser) ;
-        } else {
-                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' ) ;
-                $imap->User($user) ;
-        }
-        
-	$imap->Authcallback(\&xoauth) if $authmech eq "XOAUTH" ;
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN" || ($authmech eq "EXTERNAL") ;
-
-if ($proxyauth) {
-                $imap->User($authuser);
-                $imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                if ($authmech eq "EXTERNAL") {$password = "NULL"};
-                $imap->Password($password);
-        } else {
-                $imap->User($user);
-                $imap->Domain($domain) if (defined($domain));
-                $imap->Authuser($authuser);
-                if ($authmech eq "EXTERNAL") {$password = "NULL"};
-                $imap->Password($password);
-        }
-
-	
-
-#        $imap->Domain($domain) if (defined($domain)) ;
-#        $imap->Authuser($authuser) ;
-#        $imap->Password($password) ;
-	
-	unless ( $authmech eq 'PREAUTH' or $imap->login( ) ) {
-		my $info  = "Failure: error login on [$host] with user [$user] auth" ;
-		my $einfo = $imap->LastError || @{$imap->History}[-1] ;
-		chomp( $einfo ) ;
-		my $error = "$info [$authmech]: $einfo\n" ;
-                if ( $authmech eq 'LOGIN' or $imap->IsUnconnected( ) or $authuser ) {
-                	die_clean( $error ) ;
-                }else{
-			print $error ;
-                }
-		print "Info: trying LOGIN Auth mechanism on [$host] with user [$user]\n" ;
-		$imap->Authmechanism("") ;
-		$imap->login() or
-		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n") ;
-	}
-
-#        if ( $proxyauth ) {
-#                if ( ! $imap->proxyauth( $user ) ) {
-#                        my $info  = "Failure: error doing proxyauth as user [$user] on [$host] using proxy-login as [$authuser]" ;
-#                        my $einfo = $imap->LastError || @{$imap->History}[-1] ;
-#                        chomp( $einfo ) ;
-#                        die_clean( "$info: $einfo\n" ) ;
-#                }
-#        }
-
-	return(  ) ;
-}
-
-sub check_capability {
-
-	my( $imap, $authmech, $Side ) = @_ ;
-        
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("%s: %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $Side, $imap->Server, $authmech);
-	} 
-	else {
-		printf("%s: %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $Side, $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "$Side: frequently PLAIN is only supported with SSL, ",
-			  "try --ssl or --tls options\n";
-		}
-	}
-	return(  ) ;
-}
-
-sub set_ssl {
-	my ( $imap, $ssl, $SSL_version ) = @_ ;
-        # SSL_version can be
-        #    SSLv3 SSLv2 SSLv23 SSLv23:!SSLv2 (last one is the default in IO-Socket-SSL-1.953)
-        #
-        $SSL_version = $SSL_version || '' ;
-        #print "[$SSL_version]\n" ;
-        IO::Socket::SSL::set_ctx_defaults( 
-		SSL_verify_mode => 'SSL_VERIFY_PEER',
-        	SSL_verifycn_scheme => 'imap',
-                SSL_version => $SSL_version,
-	) ;
-        $imap->Ssl( $ssl ) ;
-	return(  ) ;
-}
-
-sub init_imap {
-	my($host, $port, $user, $domain, $password, 
-	   $mydebugimap, $mytimeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-	   $proxyauth, $uid, $split, $Side, $SSL_version ) = @_ ;
-
-	my ( $imap ) ;
-	
-	$imap = Mail::IMAPClient->new() ;
-	
-	if ( $ssl ) { set_ssl( $imap, $ssl, $SSL_version ) }
-	$imap->Tls($tls) if ($tls);
-	$imap->Clear(1);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid($uid);
-	#$imap->Uid(0);
-	$imap->Peek(1);
-	$imap->Debug($mydebugimap);
-	defined( $mytimeout ) and $imap->Timeout($mytimeout);
-
-	$imap->Reconnectretry($reconnectretry) if ($reconnectretry);
-	$imap->Ignoresizeerrors( $allowsizemismatch ) ;
-	$split and $imap->Maxcommandlength( 10 * $split ) ;
-	
-
-	return( $imap ) ;
-
-}
-
-sub plainauth {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-# xoauth() thanks to Eduardo Bortoluzzi Junior
-sub xoauth {
-               require URI::Escape  ;
-               require Data::Uniqid ;
-
-        my $code = shift;
-        my $imap = shift;
-               
-        # The base information needed to construct the OAUTH authentication
-        my $method = "GET";
-        my $URL = sprintf("https://mail.google.com/mail/b/%s/imap/", $imap->User);
-        my $URLparm = sprintf("xoauth_requestor_id=%s", URI::Escape::uri_escape($imap->User));
-        
-        # For Google Apps, the consumer key is the primary domain
-        # TODO: create a command line argument to define the consumer key
-        my @user_parts = split(/@/x, $imap->User);
-        $debug and print "XOAUTH: consumer key: $user_parts[1]\n";
-        
-        # All the parameters needed to be signed on the XOAUTH
-        my %hash = ();
-        $hash { 'xoauth_requestor_id' } = URI::Escape::uri_escape($imap->User);
-        $hash { 'oauth_consumer_key' } = $user_parts[1];
-        $hash { 'oauth_nonce' } = md5_hex(Data::Uniqid::uniqid(rand(), 1==1));
-        $hash { 'oauth_signature_method' } = 'HMAC-SHA1';
-        $hash { 'oauth_timestamp' } = time();
-        $hash { 'oauth_version' } = '1.0';
-
-        # Base will hold the string to be signed
-        my $base = "$method&" . URI::Escape::uri_escape($URL) . "&";
-        
-        # The parameters must be in dictionary order before signing
-        my $baseparms = "";
-        foreach my $key (sort keys %hash) {
-                if(length($baseparms)>0) {
-                        $baseparms .= "&";
-                }
-                
-                $baseparms .= "$key=$hash{$key}";
-        }
-        
-        $base .= URI::Escape::uri_escape($baseparms);
-        $debug and print "XOAUTH: base request to sign: $base\n";
-        # Sign it with the consumer secret, informed on the command line (password)
-        my $digest = hmac_sha1($base, URI::Escape::uri_escape($imap->Password) . "&");
-        
-        # The parameters signed become a parameter and...
-        $hash { 'oauth_signature' } = URI::Escape::uri_escape(substr(encode_base64($digest),0,-1));
-        
-        # ... we don't need the requestor_id anymore.
-        delete $hash{'xoauth_requestor_id'};
-        
-        # Create the final authentication string
-        my $string = $method . " " . $URL . "?" . $URLparm ." ";
-
-        # All the parameters must be sorted
-        $baseparms = "";
-        foreach my $key (sort keys %hash) {
-                if(length($baseparms)>0) {
-                        $baseparms .= ",";
-                }
-                
-                $baseparms .= "$key=\"$hash{$key}\"";
-        }
-        
-        $string .= $baseparms;
-        
-        $debug and print "XOAUTH: authentication string: $string\n";
-       
-       # It must be base64 encoded     
-        return encode_base64("$string", "");
-}
-
-sub server_banner {
-	my $imap = shift;
-	my $banner = $imap->Banner() ||  "No banner\n";
-	return $banner;
- }
-
-
-sub banner_imapsync {
-
-	my @argv = @_ ;
-	my $banner_imapsync = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.564 $ ',
-		  '$Date: 2013/08/18 19:28:47 $ ',
-		  "\n",localhost_info(), "\n",
-		  "Command line used:\n",
-		  "$0 ", command_line_nopassword( @argv ), "\n",
-	) ;
-        return( $banner_imapsync ) ;
-}
-
-sub is_valid_directory {
-	my $dir = shift;
-	return(1) if (-d $dir and -r _ and -w _) ;
-	# Trying to create it
-	mkpath( $dir ) or croak "Error creating tmpdir $tmpdir : $!" ;
-	croak "Error with tmpdir $tmpdir : $!" if not (-d $dir and -r _ and -w _) ;
-	return( 1 ) ;
-}
-
-
-sub write_pidfile { 
-	my $pid_filename = shift ;
-	
-	print "PID file is $pid_filename\n" ;
-	if ( -e $pid_filename and $pidfilelocking ) {
-		print "$pid_filename already exists, another imapsync may be curently running. Aborting imapsync.\n" ;
-                exit( 8 ) ;
-	} 
-	if ( -e $pid_filename ) {
-		print "$pid_filename already exists, overwriting it\n" ;
-	}
-        my $FILE_HANDLE ;
-	open( $FILE_HANDLE, '>', $pid_filename ) or do {
-		print "Could not open $pid_filename for writing" ;
-		return ;
-	} ;
-	
-	print $FILE_HANDLE $PROCESS_ID ;
-	close $FILE_HANDLE ;
-        
-	return( $PROCESS_ID ) ;
-} 
-
-sub exit_clean {
-	my $status = shift ;
-	$status = defined( $status ) ? $status : 1 ;
-	unlink( $pidfile ) ;
-	exit( $status ) ;
-}
-
-sub die_clean {
-	my @messages = @_ ;
-	unlink( $pidfile ) ;
-	croak @messages ;
-} 
-
-sub missing_option {
-	my ($option) = @_;
-	die_clean("$option option must be used, run $0 --help for help\n");
-	return(  ) ;
-}
-
-
-sub fix_Inbox_INBOX_mapping {
-	my( $h1_all, $h2_all ) = @_ ;
-
-	my $regex = '' ;
-	SWITCH: {
-		if ( exists( $h1_all->{INBOX} ) and exists( $h2_all->{INBOX} ) ) { $regex = '' ; last SWITCH ; } ;
-		if ( exists( $h1_all->{Inbox} ) and exists( $h2_all->{Inbox} ) ) { $regex = '' ; last SWITCH ; } ;
-		if ( exists( $h1_all->{INBOX} ) and exists( $h2_all->{Inbox} ) ) { $regex = 's/^INBOX$/Inbox/x' ; last SWITCH ; } ;
-		if ( exists( $h1_all->{Inbox} ) and exists( $h2_all->{INBOX} ) ) { $regex = 's/^Inbox$/INBOX/x' ; last SWITCH ; } ;
-	} ;
-        return( $regex ) ;
-}
-
-sub tests_fix_Inbox_INBOX_mapping {
-
-	my( $h1_all, $h2_all ) ;
-        
-	$h1_all = { 'INBOX' => '' } ;
-	$h2_all = { 'INBOX' => '' } ;
-	ok( '' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX INBOX' ) ;
-        
-	$h1_all = { 'Inbox' => '' } ;
-	$h2_all = { 'Inbox' => '' } ;
-	ok( '' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: Inbox Inbox' ) ;
-        
-	$h1_all = { 'INBOX' => '' } ;
-	$h2_all = { 'Inbox' => '' } ;
-	ok( 's/^INBOX$/Inbox/x' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX Inbox' ) ;
-        
-	$h1_all = { 'Inbox' => '' } ;
-	$h2_all = { 'INBOX' => '' } ;
-	ok( 's/^Inbox$/INBOX/x' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: Inbox INBOX' ) ;
-        
-	$h1_all = { 'INBOX' => '' } ;
-	$h2_all = { 'rrrrr' => '' } ;
-	ok( '' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX rrrrrr' ) ;
-        
-	$h1_all = { 'rrrrr' => '' } ;
-	$h2_all = { 'Inbox' => '' } ;
-	ok( '' eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: rrrrr Inbox' ) ;
-
-	return(  ) ;
-}
-
-sub select_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->select( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not select: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok select succeeded
-		return( 1 ) ;
-	}
-}
-
-sub examine_folder {
-	my ( $imap, $folder, $hostside ) = @_ ;
-	if ( ! $imap->examine( $folder ) ) {
-		print 
-		"$hostside folder $folder: Could not examine: ",
-		$imap->LastError,  "\n" ;
-		$nb_errors++ ;
-		return( 0 ) ;
-	}else{
-		# ok examine succeeded
-		return( 1 ) ;
-	}
-}
-
-
-sub create_folder {
-	my( $imap, $h2_fold, $h1_fold ) = @_ ;
-	
-	print "Creating folder [$h2_fold] on host2\n";
-        if ( ( 'INBOX' eq uc( $h2_fold) )
-         and ( $imap->exists( $h2_fold ) ) ) {
-                print "Folder [$h2_fold] already exists\n" ;
-                return( 1 ) ;
-        }
-	if ( ! $dry ){
-		if ( ! $imap->create( $h2_fold ) ) {
-			print( "Couldn't create folder [$h2_fold] from [$h1_fold]: ",
-			$imap->LastError(  ), "\n" );
-			$nb_errors++;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $imap->exists( $h2_fold ) ;
-                        # failure since create failed
-			return( 0 );
-		}else{
-			#create succeeded
-			return( 1 );
-		}
-	}else{
-		# dry mode, no folder so many imap will fail, assuming failure
-		return( 0 );
-	}
-}
-
-
-
-sub tests_folder_routines {
-	ok( !is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 1'               );
-	ok(  add_to_requested_folders('folder_foo'), 'add_to_requested_folders folder_foo'       );
-	ok(  is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 2'               );
-	ok( !is_requested_folder('folder_NO_EXIST'), 'is_requested_folder folder_NO_EXIST'       );
-	ok( !remove_from_requested_folders('folder_foo'), 'removed folder_foo'                   );
-	ok( !is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 3'               );
-	my @f ;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f"        );
-	ok(  is_requested_folder('folder_bar'), 'is_requested_folder 4'                          );
-	ok(  is_requested_folder('folder_toto'), 'is_requested_folder 5'                         );
-	ok(  remove_from_requested_folders('folder_toto'), 'remove_from_requested_folders'       );
-	ok( !is_requested_folder('folder_toto'), 'is_requested_folder 6'                         );
-	return(  ) ;
-}
-
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	return( defined( $requested_folder{ $folder } ) ) ;
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_ ;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder } ;
-	}
-	return( keys( %requested_folder ) ) ;
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_ ;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder} ;
-	}
-	return( keys( %requested_folder ) ) ;
-}
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if ((not defined($list_1_ref)) and not defined($list_2_ref)); # end if no list
-	return(1)  if (not defined($list_2_ref)); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = -1;
-	#print "\$#$list_1_ref:", $#$list_1_ref, "\n";
-	#print "\$#$list_2_ref:", $#$list_2_ref, "\n";
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref) ;
-	
-	# same size, each element equal
-	return 0 ;
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-	ok(-1 == compare_lists(undef , [1])    , 'compare_lists, undef < [1]');
-	ok(-1 == compare_lists(undef , [0])    , 'compare_lists, undef < [0]');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-
-	ok(-1 == compare_lists([] , [1])        , 'compare_lists, [] < [1]');
-	ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
-
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 0 ,  1 )          , "compare_lists,  0  <  1 ") ;
-	ok(-1 == compare_lists(-1 ,  0 )          , "compare_lists, -1  <  0 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  <  2 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  2  >  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(+1 == compare_lists([2], [1,2])     , "compare_lists, [2] > [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-	ok( 0 == compare_lists([split(" ", "a b")], ["a", "b"]), 'compare_lists, split') ;
-	ok( 0 == compare_lists([sort split(" ", "b a")], ["a", "b"]), 'compare_lists, sort split') ;
-        return(  ) ;
-}
-
-
-
-sub get_prefix {
-	my( $imap, $prefix_in, $prefix_opt ) = @_ ;
-	my( $prefix_out ) ;
-	
-	$debug and print "Getting prefix namespace\n" ;
-	if ( defined( $prefix_in ) ) {
-		print "Using [$prefix_in] given by $prefix_opt\n" ;
-		$prefix_out = $prefix_in ;
-		return( $prefix_out ) ;
-	}
-	$debug and print "Calling namespace capability\n" ;
-	if ( $imap->has_capability( "namespace" ) ) {
-		my $r_namespace = $imap->namespace(  ) ;
-		$prefix_out = $r_namespace->[0][0][0] ;
-		return($prefix_out) ;
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(  ),"\n",
-		      help_to_guess_prefix( $imap, $prefix_opt ) ;
-		exit_clean( 1 ) ;
-	}
-        return(  ) ;
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ( defined( $sep_in ) ) {
-		print "Using [$sep_in] given by $sep_opt\n" ;
-		$sep_out = $sep_in ;
-		return( $sep_out ) ;
-	}
-	$debug and print "Calling namespace capability\n" ;
-	if ($imap->has_capability( "namespace" ) ) {
-		$sep_out = $imap->separator(  ) ;
-		return($sep_out) if defined $sep_out ;
-		print 
-		  "NAMESPACE request failed for ", 
-		  $imap->Server(), ": ", $imap->LastError, "\n",
-                  help_to_guess_sep( $imap, $sep_opt ) ;
-		exit_clean( 1 ) ;
-	}
-	else{
-		print
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      help_to_guess_sep( $imap, $sep_opt ) ;
-		exit_clean( 1 ) ;
-	}
-        return(  ) ;
-}
-
-sub help_to_guess_sep {
-	my( $imap, $sep_opt ) = @_ ;
-	
-	my $help_to_guess_sep = "Give the separator character with the $sep_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help($imap)
-	. "Most of the time it is character . or /\n"
-	. "so try $sep_opt . or $sep_opt /\n" ;
-	
-	return( $help_to_guess_sep ) ;
-}
-
-sub help_to_guess_prefix {
-	my( $imap, $prefix_opt ) = @_ ;
-		      
-	my $help_to_guess_prefix = "Give the prefix namespace with the $prefix_opt option,\n"
-	. "the folowing listing of folders may help you to find it:\n"
-	. folders_list_to_help( $imap )
-	. "Most of the time it is INBOX. or an empty string\n"
-	. "so try $prefix_opt INBOX. or $prefix_opt" . '""' . "\n" ;
-	
-	return( $help_to_guess_prefix ) ;
-}
-
-
-sub folders_list_to_help {
-	my($imap) = @_ ;
-
-	my @folders = $imap->folders ;
-	my $listing = join('', map { "[$_]\n" } @folders) ;
-	return( $listing ) ;
-}
-
-
-sub tests_separator_invert {
-	$fixslash2 = 0 ;
-	ok( not( defined( separator_invert(  ) ) ), 'separator_invert: no args' ) ;
-	ok( not( defined( separator_invert( '' ) ) ), 'separator_invert: not enough args' ) ;
-	ok( not( defined( separator_invert( '', '' ) ) ), 'separator_invert: not enough args' ) ;
-	
-	ok( '' eq separator_invert( '', '', '' ), 'separator_invert: 3 empty strings' ) ;
-	ok( 'lalala' eq separator_invert( 'lalala', '', '' ), 'separator_invert: empty separator' ) ;
-	ok( 'lalala' eq separator_invert( 'lalala', '/', '/' ), 'separator_invert: same separator /' ) ;
-	ok( 'lal/ala' eq separator_invert( 'lal/ala', '/', '/' ), 'separator_invert: same separator / 2' ) ;
-	ok( 'lal.ala' eq separator_invert( 'lal/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-	ok( 'lal/ala' eq separator_invert( 'lal.ala', '.', '/' ), 'separator_invert: separators ./' ) ;
-	ok( 'la.l/ala' eq separator_invert( 'la/l.ala', '.', '/' ), 'separator_invert: separators ./' ) ;
-
-	ok( 'l/al.ala' eq separator_invert( 'l.al/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-        $fixslash2 = 1 ;
-	ok( 'l_al.ala' eq separator_invert( 'l.al/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-
-	return(  ) ;
-}
-
-sub separator_invert {
-	my( $h1_fold, $h1_separator, $h2_separator ) = @_ ;
-
-	return( undef ) if ( not defined( $h1_fold ) or not defined( $h1_separator ) or not defined( $h2_separator ) ) ;
-	# The separator we hope we'll never encounter: 00000000 == 0x00
-	my $o_sep="\000" ;
-
-	my $h2_fold = $h1_fold ;
-	$h2_fold =~ s@\Q$h2_separator@$o_sep@xg ;
-	$h2_fold =~ s@\Q$h1_separator@$h2_separator@xg ;
-	$h2_fold =~ s@\Q$o_sep@$h1_separator@xg ;
-        $h2_fold =~ s,/,_,xg if( $fixslash2 and '/' ne $h2_separator and '/' eq $h1_separator ) ;
-	return( $h2_fold ) ;
-} 
-
-
-sub tests_imap2_folder_name {
-
-$h1_prefix = $h2_prefix = '';
-$h1_sep = '/';
-$h2_sep = '.';
-
-$debug and print <<"EOS"
-prefix1: [$h1_prefix]
-prefix2: [$h2_prefix]
-sep1:[$h1_sep]
-sep2:[$h2_sep]
-EOS
-;
-
-$fixslash2 = 0 ;
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam');
-ok('s pam.spam/sp  am' eq imap2_folder_name('s pam/spam.sp  am'), 'imap2_folder_name: s pam/spam.sp  am');
-@regextrans2 = ('s,/,X,g');
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string [s,/,X,g]');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,/,X,g]');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam [s,/,X,g]');
-ok('spamXspam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam [s,/,X,g]');
-ok('spam.spamXspam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam [s,/,X,g]');
-
-@regextrans2 = ('s, ,_,g');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s, ,_,g]');
-ok('bla_bla' eq imap2_folder_name('bla bla'), 'imap2_folder_name: blabla [s, ,_,g]');
-
-@regextrans2 = ('s,(.*),\U$1,');
-ok('BLABLA' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,\U(.*)\E,$1,]');
-
-$fixslash2 = 1 ;
-@regextrans2 = (  ) ;
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-ok('spam_spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam -> spam_spam');
-ok('spam.spam_spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam_spam');
-ok('s pam.spam_spa  m' eq imap2_folder_name('s pam/spam.spa  m'), 'imap2_folder_name: s pam/spam.spa m -> s pam.spam_spa  m');
-
-$h1_sep = '.';
-$h2_sep = '/';
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam -> spam/spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam/spam');
-
-$fixslash2 = 0 ;
-$h1_prefix = ' ';
-
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam/spam');
-ok('spam.spam/spam' eq imap2_folder_name(' spam/spam.spam'), 'imap2_folder_name:  spam/spam.spam -> spam.spam/spam');
-
-
-return(  ) ;
-
-}
-
-sub imap2_folder_name {
-	my ( $x_fold ) = @_ ;
-	my ( $h2_fold ) ;
-	# first we remove the prefix
-	$x_fold =~ s/^\Q$h1_prefix\E//x ;
-	$debug and print "removed host1 prefix: [$x_fold]\n";
-	$h2_fold = separator_invert($x_fold,$h1_sep, $h2_sep);
-	$debug and print "inverted  separators: [$h2_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$h2_fold = $h2_prefix . $h2_fold 
-	  unless(($h2_prefix eq "INBOX" . $h2_sep) and ($h2_fold =~ m/^INBOX$/xi));
-	$debug and print "added   host2 prefix: [$h2_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-	        my $h2_fold_before = $h2_fold;
-		my $ret = eval( "\$h2_fold =~ $regextrans2 ; 1 ") ;
-		$debug and print "[$h2_fold_before] -> [$h2_fold] using re [$regextrans2]\n" ;
-                if ( not ( defined( $ret ) ) or $@ ) {
-			die_clean("error: eval regextrans2 '$regextrans2': $@\n") ;
-                }
-	}
-	return($h2_fold);
-}
-
-sub tests_decompose_regex {
-	ok( 1, 'decompose_regex 1' ) ;
-	ok( 0 == compare_lists( [ '', '' ], [ decompose_regex( '' ) ] ), 'decompose_regex empty string' ) ;
-	ok( 0 == compare_lists( [ '.*', 'lala' ], [ decompose_regex( 's/.*/lala/' ) ] ), 'decompose_regex s/.*/lala/' ) ;
-	return(  ) ;
-}
-
-sub decompose_regex {
-	my $regex = shift ;
-	my( $left_part, $right_part ) ;
-
-	( $left_part, $right_part ) = $regex =~ m{^s/((?:[^/]|\\/)+)/((?:[^/]|\\/)+)/}x;
-        return( '', '' ) if not $left_part ;
-	return( $left_part, $right_part ) ;
-}
-
-
-sub foldersizes {
-
-	my ( $side, $imap, $search_cmd, @folders ) = @_ ;
-	my $total_size = 0 ;
-	my $total_nb = 0 ;
-	my $biggest_in_all = 0 ;
-	
-	print "++++ Calculating sizes on $side\n" ;
-	foreach my $folder ( @folders )     {
-		my $stot = 0 ;
-		my $nb_msgs = 0 ;
-		printf( "$side folder %-35s", "[$folder]" ) ;
-                if ( 'Host2' eq $side and not exists( $h2_folders_all{ $folder } ) ) {
-		        print(" does not exist yet\n") ;
-			next ;
-		}
-                if ( 'Host1' eq $side and not exists( $h1_folders_all{ $folder } ) ) {
-		        print( " does not exist\n" ) ;
-			next ;
-		}
-                
-		unless ( $imap->examine( $folder ) ) {
-			print 
-			  "$side Folder $folder: Could not examine: ",
-			    $imap->LastError,  "\n" ;
-			$nb_errors++ ;
-			next ;
-		}
-		
-		my $hash_ref = { } ;
-		my @msgs = select_msgs( $imap, undef, $search_cmd, $folder ) ;
-		$nb_msgs = scalar( @msgs ) ;
-		my $biggest_in_folder = 0 ;
-		@$hash_ref{ @msgs } = ( undef ) if @msgs ;
-		if ( $nb_msgs > 0 and @msgs ) {
-                	if ( $abletosearch ) {
-				$imap->fetch_hash( \@msgs, "RFC822.SIZE", $hash_ref) or die_clean("$@" ) ;
-                        }else{
-				my $uidnext = $imap->uidnext( $folder ) || $uidnext_default ;
-                        	$imap->fetch_hash( "1:$uidnext", "RFC822.SIZE", $hash_ref ) or die_clean( "$@" ) ;
-                        }
-			for ( keys %$hash_ref ) {
-                        	my $size =  $hash_ref->{ $_ }->{ "RFC822.SIZE" } ;
-                        	$stot    += $size ;
-                                $biggest_in_folder =  max( $biggest_in_folder, $size ) ;
-                        }
-		}
-		
-		printf( " Size: %9s", $stot ) ;
-		printf( " Messages: %5s", $nb_msgs ) ;
-		printf( " Biggest: %9s\n", $biggest_in_folder ) ;
-		$total_size += $stot ;
-		$total_nb += $nb_msgs ;
-                $biggest_in_all =  max( $biggest_in_all, $biggest_in_folder ) ;
-	}
-	printf ( "%s Nb messages:     %11s messages\n", $side, $total_nb ) ;
-	printf ( "%s Total size:      %11s bytes (%s)\n", $side, $total_size, bytes_display_string( $total_size ) ) ;
-	printf ( "%s Biggest message: %11s bytes (%s)\n", $side, $biggest_in_all, bytes_display_string( $biggest_in_all ) ) ;
-	printf ( "%s Time spent:      %11.1f seconds\n", $side, timenext(  ) ) ;
-        return( $total_nb, $total_size ) ;
-}
-
-sub timenext {
-	my ( $timenow, $timediff ) ;
-	# $timebefore is global, beurk !
-	$timenow    = time ;
-	$timediff   = $timenow - $timebefore ;
-	$timebefore = $timenow ;
-	return( $timediff ) ;
-}
-
-sub timesince {
-	my $timeinit = shift ;
-	my ( $timenow, $timediff ) ;
-	$timenow    = time ;
-	$timediff   = $timenow - $timeinit ;
-	return( $timediff ) ;
-}
-
-
-
-
-sub tests_flags_regex {
-	
-	
-	ok('' eq flags_regex(''), "flags_regex, null string ''");
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, nothing to do');
-
-	@regexflag = ('I am BAD' ) ;
-        ok( not ( defined( flags_regex( '' ) ) ), 'flags_regex, bad regex' ) ;
-        
-	@regexflag = ('s/NonJunk//g');
-	ok('\Seen  $Spam' eq flags_regex('\Seen NonJunk $Spam'), "flags_regex, remove NonJunk: 's/NonJunk//g'");
-	@regexflag = ('s/\$Spam//g');
-	ok('\Seen NonJunk ' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove $Spam: '."'s/\$Spam//g'");
-	
-	@regexflag = ('s/\\\\Seen//g');
-	
-	ok(' NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove \Seen: '. "'s/\\\\\\\\Seen//g'");
-	
-	@regexflag = ('s/(\s|^)[^\\\\]\w+//g');
-	ok('\Seen \Middle \End' eq flags_regex('\Seen NonJunk \Middle $Spam \End'), 'flags_regex, only \word [' . flags_regex('\Seen NonJunk \Middle $Spam \End'.']'));
-	ok(' \Seen \Middle \End1' eq flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'), 'flags_regex, only \word [' . flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'.']'));
-
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g');
-	ok('Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), "Keep only regex");
-	#ok('Keep1 Keep2' eq flags_regex('Keep1 Keep2 Remove1'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM REM Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM REM  Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM Keep1'), "Keep only regex");
-
-	@regexflag = ('s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 ReB'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 REM REM  REM'), "Keep only regex");
-	ok('Keep2 ' eq flags_regex('Keep2 REM REM  REM'), "Keep only regex");
-	#ok('' eq flags_regex('REM REM'), "Keep only regex");
-	
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g', 
-	's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	
-	@regexflag = ('s/(.*)/$1 jrdH8u/');
-	ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), "Keep only regex 's/(.*)/\$1 jrdH8u/'") ;
-	@regexflag = ('s/jrdH8u *//');
-	ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), "Keep only regex s/jrdH8u *//") ;
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(Keep1|Keep2|Keep3|jrdH8u)/$1 /g', 
-	's/(Keep1|Keep2|Keep3|jrdH8u) (?!(Keep1|Keep2|Keep3|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex 'REM Keep1 REM Keep2 REM'");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	ok('' eq flags_regex('REM  REM REM REM REM'), "Keep only regex");
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)/$1 /g', 
-	's/(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u) (?!(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla $Junk \\Deleted machin \\Answered truc'), "Keep only regex: Exchange case");
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string");
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), "Keep only regex: Exchange case, no accepted flags ");
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), "Keep only regex: Exchange case");
-	
-	
-	@regexflag = (
-	's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string (Phil)");
-	
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), 
-	"Keep only regex: Exchange case, no accepted flags (Phil)");
-	
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	return(  ) ;
-}
-
-sub flags_regex {
-	my ( $h1_flags ) = @_ ;
-	foreach my $regexflag ( @regexflag ) {
-		my $h1_flags_orig = $h1_flags ;
-		$debugflags and print "eval \$h1_flags =~ $regexflag\n" ;
-		my $ret = eval( "\$h1_flags =~ $regexflag ; 1 " ) ;
-		$debugflags and print "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n" ;
-                if( not ( defined $ret ) or $@ ) {
-			print "Error: eval regexflag '$regexflag': $@\n" ;
-                        return( undef ) ;
-                }
-	}
-	return( $h1_flags ) ;
-}
-
-sub acls_sync {
-	my($h1_fold, $h2_fold) = @_ ;
-	if ( $syncacls ) {
-		my $h1_hash = $imap1->getacl($h1_fold)
-		  or print "Could not getacl for $h1_fold: $@\n";
-		my $h2_hash = $imap2->getacl($h2_fold)
-		  or print "Could not getacl for $h2_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$h1_hash), keys(%$h2_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $h1_hash->{$user} || "none";
-			print "acl $user: [$acl]\n";
-			next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-				 $h1_hash->{$user} eq $h2_hash->{$user});
-			unless ($dry) {
-				print "setting acl $h2_fold $user $acl\n";
-				$imap2->setacl($h2_fold, $user, $acl)
-				  or print "Could not set acl: $@\n";
-			}
-		}
-	}
-        return(  ) ;
-}
-
-
-sub tests_permanentflags {
-	
-	my $string;
-	ok('' eq permanentflags(' * OK [PERMANENTFLAGS (\* \Draft \Answered)] Limited'), 
-	   'permanentflags \*');
-	ok('\Draft \Answered' eq permanentflags(' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited'), 
-	   'permanentflags \Draft \Answered');
-	ok('\Draft \Answered' 
-	   eq permanentflags('Blabla', 
-	                     ' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited',
-			     'Blabla'),
-	   'permanentflags \Draft \Answered'
-	);
-	ok('' eq permanentflags('Blabla'), 'permanentflags nothing');
-        return(  ) ;
-}
-
-sub permanentflags {
-	my @lines = @_ ;
-
-	foreach my $line (@lines) {
-		if ( $line =~ m{\[PERMANENTFLAGS\s\(([^)]+?)\)\]}x ) {
-			( $debugflags or $debug ) and print "permanentflags: $line" ;
-			my $permanentflags = $1 ;
-			if ( $permanentflags =~ m{\\\*}x ) {
-				$permanentflags = '' ;
-			}
-			return($permanentflags) ;
-		} ;
-	}
-        return( '' ) ;
-}
-
-sub tests_flags_filter {
-
-	ok( '\Seen' eq flags_filter('\Seen', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '' eq flags_filter('\Seen', '\Draft  \Answered'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', '\Seen'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', ' \Seen '), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', ' \Draft \Seen \Answered '), 'flags_filter ' );
-        return(  ) ;
-}
-
-sub flags_filter {
-	my( $flags, $allowed_flags ) = @_ ;
-	
-	my @flags = split( /\s+/x, $flags ) ;
-	my %allowed_flags = map { $_ => 1 } split(' ', $allowed_flags ) ;
-	my @flags_out     = map { exists $allowed_flags{$_} ? $_ : () } @flags ;
-
-	my $flags_out = join( ' ', @flags_out ) ;
-	#print "%%%$flags_out%%%\n" ;
-	return( $flags_out ) ;
-}
-
-sub flagsCase {
-	my $flags = shift ;
-	
-	my @flags = split( /\s+/x, $flags );
-	my %rfc_flags = map { $_ => 1 } split(' ', '\Answered \Flagged \Deleted \Seen \Draft' );
-	my @flags_out = map { exists $rfc_flags{ ucsecond( lc( $_ ) ) } ? ucsecond( lc( $_ ) ) : $_ } @flags ;
-
-	my $flags_out = join( ' ', @flags_out ) ;
-	#print "%%%$flags_out%%%\n" ;
-	return( $flags_out ) ;
-}
-
-sub tests_flagsCase {
-	ok( '\Seen' eq flagsCase( '\Seen' ), 'flagsCase: \Seen -> \Seen' ) ;
-	ok( '\Seen' eq flagsCase( '\SEEN' ), 'flagsCase: \SEEN -> \Seen' ) ;
-
-	ok( '\Seen \Draft' eq flagsCase( '\SEEN \DRAFT' ), 'flagsCase: \SEEN \DRAFT -> \Seen \Draft' ) ;
-	ok( '\Draft \Seen' eq flagsCase( '\DRAFT \SEEN' ), 'flagsCase: \DRAFT \SEEN -> \Draft \Seen' ) ;
-	
-	ok( '\Draft LALA \Seen' eq flagsCase( '\DRAFT  LALA \SEEN' ), 'flagsCase: \DRAFT  LALA \SEEN -> \Draft LALA \Seen' ) ;
-	ok( '\Draft lala \Seen' eq flagsCase( '\DRAFT  lala \SEEN' ), 'flagsCase: \DRAFT  lala \SEEN -> \Draft lala \Seen' ) ;
-        return(  ) ;
-}
-
-sub ucsecond {
-	my $string = shift ;
-	my $output ;
-	
-	return( $string )  if ( 1 >= length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) if ( 2 == length( $string ) ) ;
-	$output = substr( $string, 0, 1) . uc( substr( $string, 1, 1 ) ) . substr( $string, 2 );
-	#print "UUU $string -> $output\n" ;
-	return( $output ) ;
-}
-
-
-sub tests_ucsecond {
-	ok( 'aBcde' eq ucsecond( 'abcde' ), 'ucsecond: abcde -> aBcde' ) ;
-	ok( 'ABCDE' eq ucsecond( 'ABCDE' ), 'ucsecond: ABCDE -> ABCDE'  ) ;
-	ok( 'ABCDE' eq ucsecond( 'AbCDE' ), 'ucsecond: AbCDE -> ABCDE'  ) ;
-	ok( 'ABCde' eq ucsecond( 'AbCde' ), 'ucsecond: AbCde -> ABCde'  ) ;
-	ok( 'A'     eq ucsecond( 'A' ),     'ucsecond: A  -> A'  ) ;
-	ok( 'AB'    eq ucsecond( 'Ab' ),    'ucsecond: Ab -> AB' ) ;
-	ok( '\B'    eq ucsecond( '\b' ),    'ucsecond: \b -> \B' ) ;
-	ok( '\Bcde' eq ucsecond( '\bcde' ), 'ucsecond: \bcde -> \Bcde' ) ;
-        return(  ) ;
-}
-
-
-sub select_msgs {
-	my ( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) = @_ ;
-	my ( @msgs ) ;
-
-	if ( $abletosearch ) { 
-		@msgs = select_msgs_by_search( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) ;
-	}else{
-		@msgs = select_msgs_by_fetch( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) ;
-	}
-
-}
-
-sub select_msgs_by_search {
-	my ( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) = @_ ;
-	my ( @msgs, @msgs_all ) ;
-	
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-        # Need all messages list to avoid deleting useful cache part 
-        # in case of --search or --minage or --maxage
-
-	if ( ( defined( $msgs_all_hash_ref ) and $usecache )
-        or ( not defined( $maxage ) and not defined( $minage ) and not defined( $search_cmd ) )
-        ) {
-
-       		$debugdev and print "Calling messages()\n" ;
-		@msgs_all = $imap->messages() ;
-
-                return if ( $#msgs_all == 0 && !defined( $msgs_all[0] ) ) ;
-                
-                if ( defined( $msgs_all_hash_ref ) ) {
-                        @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-                }
-                # return all messages
-                if ( not defined( $maxage ) and not defined( $minage ) and not defined( $search_cmd ) ) {
-                        return( @msgs_all ) ;
-                }
-	}
-        
-        if ( defined( $search_cmd ) ) {
-        	@msgs = $imap->search( $search_cmd ) ;
-                return( @msgs ) ;
-        }
-
-	# we are here only if $maxage or $minage is defined
-        @msgs = select_msgs_by_age( $imap ) ;
-	return( @msgs );
-}
-
-
-sub select_msgs_by_fetch {
-	my ( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) = @_ ;
-	my ( @msgs, @msgs_all, %fetch ) ;
-	
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-        # Need all messages list to avoid deleting useful cache part 
-        # in case of --search or --minage or --maxage
-
-
-	$debugdev and print "Calling fetch_hash()\n" ;
-	my $uidnext = $imap->uidnext( $folder ) or return(  ) ;
-	%fetch = %{$imap->fetch_hash( "1:$uidnext", "INTERNALDATE") } ;
-        @msgs_all = sort { $a <=> $b } keys( %fetch ) ;
-        $debugdev and print "Done fetch_hash()\n" ;
-
-        return(  ) if ( $#msgs_all == 0 && !defined( $msgs_all[0] ) ) ;
-               
-        if ( defined( $msgs_all_hash_ref ) ) {
-                 @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-        }
-        # return all messages
-        if ( not defined( $maxage ) and not defined( $minage ) and not defined( $search_cmd ) ) {
-                return( @msgs_all ) ;
-        }
-	
-        if ( defined( $search_cmd ) ) {
-		print "Warning: strange to see --search with --noabletosearch, an error can happen\n" ;
-        	@msgs = $imap->search( $search_cmd ) ;
-                return( @msgs ) ;
-        }
-
-	# we are here only if $maxage or $minage is defined
-	my( @max, @min, $maxage_epoch, $minage_epoch ) ;
-	if ( defined( $maxage ) ) { $maxage_epoch = $timestart_int - 86400 * $maxage ; }
-	if ( defined( $minage ) ) { $minage_epoch = $timestart_int - 86400 * $minage ; }
-	foreach my $msg ( @msgs_all ) {
-		my $idate = $fetch{ $msg }->{'INTERNALDATE'} ;
-		#print "$idate\n" ;
-		if ( defined( $maxage ) and ( epoch( $idate ) >= $maxage_epoch ) ) {
-			push( @max, $msg ) ;
-		}
-		if ( defined( $minage ) and ( epoch( $idate ) <= $minage_epoch ) ) {
-			push( @min, $msg ) ;
-		}
-	}
-        @msgs = msgs_from_maxmin( \@max, \@min ) ;
-	return( @msgs ) ;
-}
-
-sub select_msgs_by_age {
-	my( $imap ) = @_ ;
-        
-	my( @max, @min, @msgs, @inter, @union ) ;
-        
-	if ( defined( $maxage ) ) {
-		@max = $imap->sentsince( $timestart_int - 86400 * $maxage ) ;
-	}
-	if ( defined( $minage ) ) {
-		@min = $imap->sentbefore( $timestart_int - 86400 * $minage ) ;
-	}
-
-	@msgs = msgs_from_maxmin( \@max, \@min ) ;
-	return( @msgs ) ;
-}
-
-sub msgs_from_maxmin {
-	my( $max_ref, $min_ref ) = @_ ;
-	my( @max, @min, @msgs, @inter, @union ) ;
-
-	@max = @$max_ref ;
-	@min = @$min_ref ;
-
-	SWITCH: {
-		unless( defined( $minage ) ) { @msgs = @max ; last SWITCH } ;
-		unless( defined( $maxage ) ) { @msgs = @min ; last SWITCH } ;
-		my ( %union, %inter ) ; 
-		foreach my $m ( @min, @max ) { $union{ $m }++ && $inter{ $m }++ }
-		@inter = sort { $a <=> $b } keys( %inter ) ;
-		@union = sort { $a <=> $b } keys( %union ) ;
-		# normal case
-		if ( $minage <= $maxage )  { @msgs = @inter ; last SWITCH } ;
-		# just exclude messages between
-		if ( $minage > $maxage )  { @msgs = @union ; last SWITCH } ;
-		
-	}
-	return( @msgs );
-}
-
-sub tests_msgs_from_maxmin {
-	my @msgs ;
-	$maxage = 200 ;
-	@msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-	ok( 0 == compare_lists( [ '1', '2' ], \@msgs ), 'msgs_from_maxmin: maxage++' ) ;
-	$minage = 100 ;
-	@msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-	ok( 0 == compare_lists( [ '2' ], \@msgs ), 'msgs_from_maxmin:  -maxage++minage-' ) ;
-	$minage = 300 ;
-	@msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-	ok( 0 == compare_lists( [ '1', '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++maxage-minage++' ) ;
-	$maxage = undef ;
-	@msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-	ok( 0 == compare_lists( [ '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++minage-' ) ;
-}
-
-
-sub lastuid {
-	my $imap   = shift ;
-	my $folder = shift ;
-	my $lastuid_guess  = shift ;
-	my $lastuid ;
-	
-	# rfc3501: The only reliable way to identify recent messages is to
-	#          look at message flags to see which have the \Recent flag
-	#          set, or to do a SEARCH RECENT.
-	# SEARCH RECENT doesn't work this way on courrier.
-
-	my @recent_messages ;
-	# SEARCH RECENT for each transfer can be expensive with a big folder
-	# Call commented for now
-	#@recent_messages = $imap->recent(  ) ;
-	#print "Recent: @recent_messages\n";
-	
-	my $max_recent ;
-	$max_recent = max( @recent_messages ) ;
-	 
-	if ( defined( $max_recent ) and ($lastuid_guess <= $max_recent ) ) {
-		$lastuid = $max_recent ;
-	}else{
-		$lastuid = $lastuid_guess
-	}
-	return( $lastuid ) ;
-}
-
-sub size_filtered {
-	my( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) = @_ ;
-	
-        $h1_size = 0 if ( ! $h1_size ) ; # null if empty or undef
-	if (defined $maxsize and $h1_size > $maxsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size exceeds maxsize limit $maxsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	if (defined $minsize and $h1_size <= $minsize) {
-		print "msg $h1_fold/$h1_msg skipped ($h1_size smaller than minsize $minsize bytes)\n";
-		$total_bytes_skipped += $h1_size;
-		$nb_msg_skipped += 1;
-		return( 1 ) ;
-	}
-	return( 0 ) ;
-}
-
-sub message_exists {
-
-	my( $imap, $msg ) = @_ ;
-	return( 1 ) if not $imap->Uid(  ) ;
-        
-	my $search_uid ;
-        ( $search_uid ) = $imap->search( "UID $msg" ) ;
-        #print "$search ? $msg\n" ;
-        return( 1 ) if ( $search_uid eq $msg ) ;
-        return( 0 ) ;
-
-}
-
-sub copy_message {
-	# copy
-	
-	my ( $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) = @_ ;
-	( $debug or $dry) and print "msg $h1_fold/$h1_msg copying to $h2_fold $dry_message\n";
-
-	my $h1_size  = $h1_fir_ref->{$h1_msg}->{"RFC822.SIZE"} || '' ;
-	my $h1_flags = $h1_fir_ref->{$h1_msg}->{"FLAGS"} || '' ;
-	my $h1_idate = $h1_fir_ref->{$h1_msg}->{"INTERNALDATE"} || '' ;
-	
-	
-        if ( size_filtered( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) ) {
-        	$h1_nb_msg_processed +=1 ;
-                return(  ) ;
-        }
-	
-	do { print "SLEEP 5\n" and sleep 5 ; } if ( $debugsleep ) ;
-	print "- msg $h1_fold/$h1_msg S[$h1_size] F[$h1_flags] I[$h1_idate] has RFC822.SIZE null!\n" if ( ! $h1_size ) ;
-
-	
-        if ( $checkmessageexists and not message_exists( $imap1, $h1_msg ) ) {
-        	$h1_nb_msg_processed +=1 ;
-                return(  ) ;
-        }
-
-	my ( $string, $string_len ) ;
-        ( $string, $string_len ) = message_for_host2( $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref ) ;
-        
-        # Lines two long => do no copy
-        if ( ( defined ( $maxlinelength ) ) 
-         and ( max_line_length( $string ) > $maxlinelength ) ) {
-         	my $subject = subject( $string ) ;
-                #print "[$subject]\n" ;
-         	print "- msg $h1_fold/$h1_msg skipped S[$h1_size] F[$h1_flags] I[$h1_idate] " 
-                      . "(Subject:[$subject]) (line length exceeds maxlinelength $maxlinelength bytes)\n" ;
-         	return(  ) ;
-        }
-
-	my $h1_date = date_for_host2( $h1_msg, $h1_idate ) ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags init msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n" ;
-
-	$h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
-
-	( $debug or $debugflags ) and 
-        print "Host1 flags filt msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n" ;
-
-	$h1_date = undef if ($h1_date eq "");
-	
-	my $new_id = append_message_on_host2( $string, $h1_fold, $h1_msg, $string_len, $h2_fold, $h1_size, $h1_flags, $h1_date, $cache_dir ) ;
-
-	if ( $new_id and $syncflagsaftercopy ) {
-        	sync_flags_after_copy( $h1_fold, $h1_msg, $h1_flags, $h2_fold, $new_id, $permanentflags2 ) ;
-        }
-
-        
-        return( $new_id ) ;
-}
-
-sub message_for_host2 {
-	my ( $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref ) = @_ ;
-        
-	my $string = $imap1->message_string( $h1_msg ) ;
-	
-	my $string_len = defined( $string ) ? length( $string ) : '' ; # length or empty string
-	#print "- msg $h1_fold/$h1_msg {$string_len}\n" ;
-	unless ( defined( $string ) and $string_len ) { # undef or 0 length
-		print
-		"- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate] could not be fetched: ",
-		$imap1->LastError || '', "\n" ;
-		$nb_errors++ ;
-		$total_bytes_error += $h1_size if ( $h1_size ) ;
-		#relogin1(  ) if ( $relogin1 ) ;
-                $h1_nb_msg_processed +=1 ;
-		return(  ) ;
-	}
-	
-	if ( @regexmess ) {
-		$string = regexmess( $string ) ;
-                # string undef means the eval regex was bad.
-                if ( not ( defined( $string ) ) ) {
-                	print
-			"- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate]" 
-                        . " could not be transformed by --regexmess option\n" ;
-                	return(  ) ;
-                }
-	}
-
-        if ( $addheader and defined $h1_fir_ref->{$h1_msg}->{"NO_HEADER"} ) {
-                my $header = add_header( $h1_msg ) ;
-                $debug and print "msg $h1_fold/$h1_msg adding custom header [$header]\n" ;
-                $string = $header . "\r\n" . $string ;
-        }
-
-
-	$debugcontent and print 
-		"=" x80, "\n", 
-		"F message content begin next line\n",
-		$string,
-		"F message content ended on previous line\n", "=" x 80, "\n";
-
-	return( $string, $string_len ) ;
-}
-
-sub date_for_host2 {
-	my( $h1_msg, $h1_idate ) = @_ ;
-
-	my $h1_date = "" ;
-
-	if ( $syncinternaldates ) {
-		$h1_date = $h1_idate ;
-		$debug and print "internal date from host1: [$h1_date]\n" ;
-		$h1_date = good_date( $h1_date ) ;
-		$debug and print "internal date from host1: [$h1_date] (fixed)\n" ;
-	}
-	
-	if ( $idatefromheader ) {
-		$h1_date = $imap1->get_header($h1_msg,"Date") ;
-		$debug and print "header date from host1: [$h1_date]\n" ;
-		$h1_date = good_date( $h1_date ) ;
-		$debug and print "header date from host1: [$h1_date] (fixed)\n" ;
-	}
-
-	return( $h1_date ) ;
-}
-
-sub flags_for_host2 {
-	my( $h1_flags, $permanentflags2 ) = @_ ;
-	# RFC 2060: This flag can not be altered by any client
-	$h1_flags =~ s@\\Recent\s?@@xgi ;
-        my $h1_flags_re ;
-        if ( @regexflag and defined( $h1_flags_re = flags_regex( $h1_flags ) ) ) {
-                $h1_flags = $h1_flags_re ;
-        }
-	$h1_flags = flagsCase( $h1_flags ) if $flagsCase ;
-        $h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-	
-	return( $h1_flags ) ;
-}
-
-sub subject {
-	my $string = shift ;
-	my $subject = '' ;
-        
-        my $header = extract_header( $string ) ;
-
-        if( $header =~ m/^Subject:\s*([^\n\r]*)\r?$/msx ) {  
-        	#print "MMM[$1]\n" ;
-        	$subject = $1 ;
-        }
-	return( $subject ) ;
-}
-
-sub tests_subject {
-	ok( '' eq subject( '' ), 'subject: null') ;
-	ok( 'toto le hero' eq subject( 'Subject: toto le hero' ), 'subject: toto le hero') ;
-	ok( 'toto le hero' eq subject( 'Subject:toto le hero' ), 'subject: toto le hero blank') ;
-	ok( 'toto le hero' eq subject( "Subject:toto le hero\r\n" ), 'subject: toto le hero\r\n') ;
-
-        my $MESS ;
-	$MESS = <<'EOF';
-From: lalala
-Subject: toto le hero
-Date: zzzzzz
-
-Boogie boogie
-EOF
-	ok( 'toto le hero' eq subject( $MESS ), 'subject: toto le hero 2') ;
-
-	$MESS = <<'EOF';
-Subject: toto le hero
-From: lalala
-Date: zzzzzz
-
-Boogie boogie
-EOF
-	ok( 'toto le hero' eq subject( $MESS ), 'subject: toto le hero 3') ;
-
-
-	$MESS = <<'EOF';
-From: lalala
-Subject: cuicui
-Date: zzzzzz
-
-Subject: toto le hero
-EOF
-	ok( 'cuicui' eq subject( $MESS ), 'subject: cuicui') ;
-
-	$MESS = <<'EOF';
-From: lalala
-Date: zzzzzz
-
-Subject: toto le hero
-EOF
-	ok( '' eq subject( $MESS ), 'subject: null but body could') ;
-
-
-}
-
-
-# GlobVar
-# $dry
-# $max_msg_size_in_bytes
-# $imap2
-# $imap1
-# $nb_errors
-# $total_bytes_error
-# $h1_nb_msg_processed
-# $h2_uidguess
-# $total_bytes_transferred
-# $nb_msg_transferred
-# $begin_transfer_time
-# $time_spent
-# ...
-#
-#
-sub append_message_on_host2 {
-	my( $string, $h1_fold, $h1_msg, $string_len, $h2_fold, $h1_size, $h1_flags, $h1_date, $cache_dir ) = @_ ;
-	
-	my $new_id ;
-	if ( ! $dry ) {
-		$max_msg_size_in_bytes = max( $h1_size, $max_msg_size_in_bytes ) ;
-		$new_id = $imap2->append_string( $h2_fold, $string, $h1_flags, $h1_date ) ;
-		if ( ! $new_id){
-                	my $subject = subject( $string ) ;
-                        my $error = $imap2->LastError || '' ;
-			print "- msg $h1_fold/$h1_msg {$string_len} couldn't append  (Subject:[$subject]) to folder $h2_fold: $error\n" ;
-			  
-			$nb_errors++;
-			$total_bytes_error += $h1_size;
-                        $h1_nb_msg_processed +=1 ;
-			return(  ) ;
-		}
-		else{
-			# good
-			# $new_id is an id if the IMAP server has the 
-			# UIDPLUS capability else just a ref
-			if ( $new_id !~ m{^\d+$}x ) {
-				$new_id = lastuid( $imap2, $h2_fold, $h2_uidguess ) ;
-			}
-			$h2_uidguess += 1 ;
-			$total_bytes_transferred += $h1_size ;
-			$nb_msg_transferred += 1 ;
-                        $h1_nb_msg_processed +=1 ;
-
-                        my $time_spent = timesince( $begin_transfer_time ) ;
-                        my $rate = bytes_display_string( $total_bytes_transferred / $time_spent ) ;
-                        my $eta = eta( $time_spent, $h1_nb_msg_processed, $h1_nb_msg_at_start, $nb_msg_transferred ) ;
-                        
-			printf( "msg %s/%-19s copied to %s/%-10s %.2f msgs/s  %s/s  %s\n", 
-                        $h1_fold, "$h1_msg {$string_len}", $h2_fold, $new_id, $nb_msg_transferred/$time_spent, $rate, $eta );
-                        
-                        if ( $usecache and $cacheaftercopy and $new_id =~ m{^\d+$}x ) {
-				$debugcache and print "touch $cache_dir/${h1_msg}_$new_id\n" ;
-				touch( "$cache_dir/${h1_msg}_$new_id" ) 
-                        	or croak( "Couldn't touch $cache_dir/${h1_msg}_$new_id" ) ;
-                        }
-			if ( $delete ) {
-				delete_message_on_host1( $h1_msg, $h1_fold ) ;
-			}
-			#print "PRESS ENTER" and my $a = <> ;
-                        return( $new_id ) ;
-		}
-	}
-	else{
-		$nb_msg_skipped_dry_mode += 1;
-                $h1_nb_msg_processed +=1 ;
-	}
-
-	return(  ) ;
-}
-
-
-
-# 6 GlobVar: $dry_message $dry $imap1 $h1_nb_msg_deleted $expunge $expunge1 
-sub delete_message_on_host1 {
-	my( $h1_msg, $h1_fold ) = @_ ;
-	print "msg $h1_fold/$h1_msg deleted on host1 $dry_message\n";
-        if ( ! $dry ) {
-        	$imap1->delete_message( $h1_msg ) ;
-        	$h1_nb_msg_deleted += 1 ;
-        	$imap1->expunge() if ( $expunge or $expunge1 ) ;
-        }
-        return(  ) ;
-}
-
-
-sub eta {
-	my( $my_time_spent, $h1_nb_processed, $h1_nb_msg_start, $nb_transferred ) = @_ ;
-	return( '' ) if not $foldersizes ;
-        	
-        my $time_remaining = time_remaining( $my_time_spent, $h1_nb_processed, $h1_nb_msg_start, $nb_transferred ) ;
-        my $nb_msg_remaining = $h1_nb_msg_start - $h1_nb_processed ;
-        my $eta_date = localtime( time + $time_remaining ) ;
-        return( sprintf( "ETA: %s  %1.0f s  %s msgs left", $eta_date, $time_remaining, $nb_msg_remaining ) ) ;
-}
-
-sub time_remaining {
-
-	my( $my_time_spent, $h1_nb_processed, $h1_nb_msg_start, $nb_transferred ) = @_ ;
-
-	my $time_remaining = ( $my_time_spent / $nb_transferred ) * ( $h1_nb_msg_start - $h1_nb_processed ) ;
-	return( $time_remaining ) ;
-}
-
-
-sub tests_time_remaining {
-
-	ok( 1 == time_remaining( 1, 1, 2, 1 ), "time_remaining: 1, 1, 2, 1 -> 1") ;
-	ok( 1 == time_remaining( 9, 9, 10, 9 ), "time_remaining: 9, 9, 10, 9 -> 1") ;
-	ok( 9 == time_remaining( 1, 1, 10, 1 ), "time_remaining: 1, 1, 10, 1 -> 1") ;
-	return(  ) ;
-}
-
-
-sub cache_map {
-	my ( $cache_files_ref, $h1_msgs_ref, $h2_msgs_ref ) = @_;
-	my ( %map1_2, %map2_1, %done2 ) ;
-	
-	my $h1_msgs_hash_ref = {  } ;
-	my $h2_msgs_hash_ref = {  } ;
-	
-	@$h1_msgs_hash_ref{ @$h1_msgs_ref } = (  ) ;
-	@$h2_msgs_hash_ref{ @$h2_msgs_ref } = (  ) ;
-	
-	foreach my $file ( sort @$cache_files_ref ) {
-		$debugcache and print "C12: $file\n" ;
-		( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-		
-		if (  exists( $h1_msgs_hash_ref->{ defined( $uid1 ) ? $uid1 : q{} } ) 
-		  and exists( $h2_msgs_hash_ref->{ defined( $uid2 ) ? $uid2 : q{} } ) ) {
-		  	# keep only the greatest uid2 
-			# 130_2301 and
-			# 130_231  => keep only 130 -> 2301
-			
-			# keep only the greatest uid1
-			# 1601_260 and
-			#  161_260 => keep only 1601 -> 260
-		  	my $max_uid2 = max( $uid2, $map1_2{ $uid1 } || -1 ) ;
-			if ( exists( $done2{ $max_uid2 } ) ) {
-				if ( $done2{ $max_uid2 } < $uid1 )  {
-					$map1_2{ $uid1 } = $max_uid2 ;
-					delete( $map1_2{ $done2{ $max_uid2 } } ) ;
-					$done2{ $max_uid2 } = $uid1 ;
-				}
-			}else{
-				$map1_2{ $uid1 } = $max_uid2 ;
-				$done2{ $max_uid2 } = $uid1 ;
-			}
-		};
-		
-	}
-	%map2_1 = reverse( %map1_2 ) ;
-	return( \%map1_2, \%map2_1) ;
-}
-
-sub tests_cache_map {
-	#$debugcache = 1 ;
-	my @cache_files = qw (
-	100_200
-	101_201
-	120_220
-	142_242
-	143_243
-	177_277
-	177_278
-	177_279
-	155_255
-	180_280
-	181_280
-	182_280
-	130_231
-	130_2301
-	161_260
-	1601_260
-	) ;
-	
-	my $msgs_1 = [120, 142, 143, 144, 161, 1601,           177,      182, 130 ];
-	my $msgs_2 = [     242, 243,       260,      299, 377, 279, 255, 280, 231, 2301 ];
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = cache_map( \@cache_files, $msgs_1, $msgs_2 ), 'cache_map: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 130, 142, 143,      177, 182, 1601      ], $a1 ), 'cache_map: 03' );
-	ok( 0 == compare_lists( [      242, 243, 260, 279, 280,      2301 ], $a2 ), 'cache_map: 04' );
-	ok( ! $c12->{161},        'cache_map: ! 161 ->  260' );
-	ok( 260  == $c12->{1601}, 'cache_map:  1601 ->  260' );
-	ok( 2301 == $c12->{130},  'cache_map:   130 -> 2301' );
-	#print $c12->{1601}, "\n";
-	return(  ) ;
-
-}
-
-sub cache_dir_fix {
-	my $cache_dir = shift ;
-        $cache_dir =~ s/([;<>\*\|`&\$!#\(\)\[\]\{\}:'"\\])/\\$1/xg ;
-        #print "cache_dir_fix: $cache_dir\n" ;
-	return( $cache_dir ) ;
-}
-
-sub tests_cache_dir_fix {
-	ok( 'lalala' eq  cache_dir_fix('lalala'),  'cache_dir_fix: lalala -> lalala' );
-	ok( 'ii\\\\ii' eq  cache_dir_fix('ii\ii'), 'cache_dir_fix: ii\ii -> ii\\\\ii' );
-	ok( 'ii@ii' eq  cache_dir_fix('ii@ii'),  'cache_dir_fix: ii@ii -> ii@ii' );
-	ok( 'ii@ii\\:ii' eq  cache_dir_fix('ii@ii:ii'), 'cache_dir_fix: ii@ii:ii -> ii@ii\\:ii' );
-	ok( 'i\\\\i\\\\ii' eq  cache_dir_fix('i\i\ii'), 'cache_dir_fix: i\i\ii -> i\\\\i\\\\ii' );
-	ok( 'i\\\\ii' eq  cache_dir_fix('i\\ii'), 'cache_dir_fix: i\\ii -> i\\\\\\\\ii' );
-	ok( '\\\\ ' eq  cache_dir_fix('\\ '), 'cache_dir_fix: \\  -> \\\\\ ' );
-	ok( '\\\\ ' eq  cache_dir_fix('\ '), 'cache_dir_fix: \  -> \\\\\ ' );
-	return(  ) ;
-
-}
-
-sub get_cache { 
-	my ( $cache_dir, $h1_msgs_ref, $h2_msgs_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) = @_;
-
-	$debugcache and print "Entering get_cache\n";
-
-	-d $cache_dir or return( undef ); # exit if cache directory doesn't exist
-	$debugcache and print "cache_dir    : $cache_dir\n";
-	
-	#$cache_dir =~ s{\\}{\\\\}g;
-        $cache_dir = cache_dir_fix( $cache_dir ) if ( 'MSWin32' ne $OSNAME ) ;
-
-	$debugcache and print "cache_dir_fix: $cache_dir\n" ;
-        
-	my @cache_files = bsd_glob( "$cache_dir/*" ) ;
-	#$debugcache and print "cache_files: [@cache_files]\n" ;
-        
-	$debugcache and print( "cache_files: ", scalar( @cache_files ), " files found\n" ) ;
-	
-	my( $cache_1_2_ref, $cache_2_1_ref ) 
-	  = cache_map( \@cache_files, $h1_msgs_ref, $h2_msgs_ref ) ;
-	
-	clean_cache( \@cache_files, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-	
-	#print "\n", map { "c12 $_ -> $cache_1_2_ref->{ $_ }\n" } keys %$cache_1_2_ref ;
-	#print "\n", map { "c21 $_ -> $cache_2_1_ref->{ $_ }\n" } keys %$cache_2_1_ref ;
-
-	$debugcache and print "Exiting get_cache\n";
-	return ( $cache_1_2_ref, $cache_2_1_ref ) ;
-}
-
-
-sub tests_get_cache {
-	
-	ok( not( get_cache('/cache_no_exist') ), 'get_cache: /cache_no_exist' );
-	ok( ( not -d 'W/tmp/cache/F1/F2' or rmtree( 'W/tmp/cache/F1/F2' )), 'get_cache: rmtree W/tmp/cache/F1/F2' ) ;
-	ok( mkpath( 'W/tmp/cache/F1/F2' ), 'get_cache: mkpath W/tmp/cache/F1/F2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/F1/F2/100_200
-	W/tmp/cache/F1/F2/101_201
-	W/tmp/cache/F1/F2/120_220
-	W/tmp/cache/F1/F2/142_242
-	W/tmp/cache/F1/F2/143_243
-	W/tmp/cache/F1/F2/177_277
-	W/tmp/cache/F1/F2/177_377
-	W/tmp/cache/F1/F2/177_777
-	W/tmp/cache/F1/F2/155_255
-	) ) ;
-	ok( touch( @test_files_cache ), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-	
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	my $msgs_1 = [120, 142, 143, 144,          177      ];
-	my $msgs_2 = [     242, 243,     299, 377, 777, 255 ];
-        
-        my $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        my $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-	
-	my( $c12, $c21 ) ;
-	ok( ( $c12, $c21 ) = get_cache( 'W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	my $a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	my $a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: 04' );
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file removed 100_200');
-	ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file removed 101_201');
-	
-	# test clean_cache executed
-	$maxage = 2 ;
-	ok( touch(@test_files_cache), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-	ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-	ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-	ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file NOT removed 100_200');
-	ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file NOT removed 101_201');
-	
-	
-	# strange files
-	#$debugcache = 1 ;
-	$maxage = undef ;
-	ok( ( not -d 'W/tmp/cache/rr\uee' or rmtree( 'W/tmp/cache/rr\uee' )), 'get_cache: rmtree W/tmp/cache/rr\uee' ) ;
-	ok( mkpath( 'W/tmp/cache/rr\uee' ), 'get_cache: mkpath W/tmp/cache/rr\uee' ) ;
-	
-	@test_files_cache = ( qw( 
-	W/tmp/cache/rr\uee/100_200
-	W/tmp/cache/rr\uee/101_201
-	W/tmp/cache/rr\uee/120_220
-	W/tmp/cache/rr\uee/142_242
-	W/tmp/cache/rr\uee/143_243
-	W/tmp/cache/rr\uee/177_277
-	W/tmp/cache/rr\uee/177_377
-	W/tmp/cache/rr\uee/177_777
-	W/tmp/cache/rr\uee/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'get_cache: touch strange W/tmp/cache/...' ) ;
-	
-	# on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-	# on live:
-	$msgs_1 = [120, 142, 143, 144,          177      ] ;
-	$msgs_2 = [     242, 243,     299, 377, 777, 255 ] ;
-	
-        $msgs_all_1 = { 120 => '', 142 => '', 143 => '', 144 => '', 177 => '' } ;
-        $msgs_all_2 = { 242 => '', 243 => '', 299 => '', 377 => '', 777 => '', 255 => '' } ;
-        
-	ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/rr\uee', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2), 'get_cache: strange path 02' );
-	$a1 = [ sort { $a <=> $b } keys %$c12 ] ;
-	$a2 = [ sort { $a <=> $b } keys %$c21 ] ;
-	ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: strange path 03' );
-	ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: strange path 04' );
-	ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 142_242');
-	ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 143_243');
-	ok( ! -f 'W/tmp/cache/rr\uee/100_200', 'get_cache: strange path file removed 100_200');
-	ok( ! -f 'W/tmp/cache/rr\uee/101_201', 'get_cache: strange path file removed 101_201');
-	return(  ) ;
-}
-
-sub match_a_cache_file {
-	my $file = shift ;
-	my ( $cache_uid1, $cache_uid2 ) ;
-	
-	return( ( undef, undef ) ) if ( ! $file ) ;
-	if ( $file =~ m{(?:^|/)(\d+)_(\d+)$}x ) {
-		$cache_uid1 = $1 ;
-		$cache_uid2 = $2 ;
-	}
-	return( $cache_uid1, $cache_uid2 ) ;
-}
-
-sub tests_match_a_cache_file {
-	my ( $tuid1, $tuid2 ) ;
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file(  ), 'match_a_cache_file: no arg' ) ;
-	ok( ! defined( $tuid1 ), 'match_a_cache_file: no arg 1' ) ;
-	ok( ! defined( $tuid2 ), 'match_a_cache_file: no arg 2' ) ;
-	
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '' ), 'match_a_cache_file: empty arg' ) ;
-	ok( ! defined( $tuid1 ), 'match_a_cache_file: empty arg 1' ) ;
-	ok( ! defined( $tuid2 ), 'match_a_cache_file: empty arg 2' ) ;
-	
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '000_000' ), 'match_a_cache_file: 000_000' ) ;
-	ok( '000' eq $tuid1, 'match_a_cache_file: 000_000 1' ) ;
-	ok( '000' eq $tuid2, 'match_a_cache_file: 000_000 2' ) ;
-	
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '123_456' ), 'match_a_cache_file: 123_456' ) ;
-	ok( '123' eq $tuid1, 'match_a_cache_file: 123_456 1' ) ;
-	ok( '456' eq $tuid2, 'match_a_cache_file: 123_456 2' ) ;
-
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '/tmp/truc/123_456' ), 'match_a_cache_file: /tmp/truc/123_456' ) ;
-	ok( '123' eq $tuid1, 'match_a_cache_file: /tmp/truc/123_456 1' ) ;
-	ok( '456' eq $tuid2, 'match_a_cache_file: /tmp/truc/123_456 2' ) ;
-
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '/lala123_456' ), 'match_a_cache_file: NO /lala123_456' ) ;
-	ok( ! $tuid1, 'match_a_cache_file: /lala123_456 1' ) ;
-	ok( ! $tuid2, 'match_a_cache_file: /lala123_456 2' ) ;
-
-	ok( ( $tuid1, $tuid2 ) = match_a_cache_file( 'la123_456' ), 'match_a_cache_file: NO la123_456' ) ;
-	ok( ! $tuid1, 'match_a_cache_file: la123_456 1' ) ;
-	ok( ! $tuid2, 'match_a_cache_file: la123_456 2' ) ;
-
-	return(  ) ;
-}
-
-sub clean_cache {
-	my ( $cache_files_ref, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref )  = @_ ;
-	
-	$debugcache and print "Entering clean_cache\n";
-	
-	$debugcache and print map { "$_ -> " . $cache_1_2_ref->{ $_ } . "\n" } keys %$cache_1_2_ref ;
-	foreach my $file ( @$cache_files_ref ) {
-		$debugcache and print "$file\n" ;
-		my ( $cache_uid1, $cache_uid2 ) = match_a_cache_file( $file ) ;
-		$debugcache and print( "u1: $cache_uid1 u2: $cache_uid2 c12: ", $cache_1_2_ref->{ $cache_uid1 } || '', "\n") ;
-#		  or ( ! exists( $cache_1_2_ref->{ $cache_uid1 } ) )
-#		  or ( ! ( $cache_uid2 == $cache_1_2_ref->{ $cache_uid1 } ) )
-		if ( ( not defined( $cache_uid1 ) )
-		  or ( not defined( $cache_uid2 ) )
-                  or ( not exists( $h1_msgs_all_hash_ref->{ $cache_uid1 } ) )
-                  or ( not exists( $h2_msgs_all_hash_ref->{ $cache_uid2 } ) )
-                ) {
-			$debugcache and print "remove $file\n" ;
-			unlink( $file ) or print "$!" ;
-		}
-	}
-	
-	$debugcache and print "Exiting clean_cache\n";
-	return( 1 ) ;
-}
-
-sub tests_clean_cache {
-
-	ok( ( not -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache: rmtree W/tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache: mkpath W/tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/G1/G2/100_200
-	W/tmp/cache/G1/G2/101_201
-	W/tmp/cache/G1/G2/120_220
-	W/tmp/cache/G1/G2/142_242
-	W/tmp/cache/G1/G2/143_243
-	W/tmp/cache/G1/G2/177_277
-	W/tmp/cache/G1/G2/177_377
-	W/tmp/cache/G1/G2/177_777
-	W/tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache: touch W/tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 before' );
-	ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 before' );
-	ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache: ' ) ;
-	
-	ok( ! -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 after' );
-	return(  ) ;
-}
-
-sub tests_clean_cache_2 {
-
-	ok( ( not -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache_2: rmtree W/tmp/cache/G1/G2' ) ;
-	ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache_2: mkpath W/tmp/cache/G1/G2' ) ;
-	
-	my @test_files_cache = ( qw( 
-	W/tmp/cache/G1/G2/100_200
-	W/tmp/cache/G1/G2/101_201
-	W/tmp/cache/G1/G2/120_220
-	W/tmp/cache/G1/G2/142_242
-	W/tmp/cache/G1/G2/143_243
-	W/tmp/cache/G1/G2/177_277
-	W/tmp/cache/G1/G2/177_377
-	W/tmp/cache/G1/G2/177_777
-	W/tmp/cache/G1/G2/155_255
-	) ) ;
-	ok( touch(@test_files_cache), 'clean_cache_2: touch W/tmp/cache/G1/G2/...' ) ;
-	
-	ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 before' );
-	ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 before' );
-	ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 before' );
-	ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 before' );
-	
-	my $cache = {
-		142 => 242,
-		177 => 777,
-	} ;
-        
-        my $all_1 = {
-                100 => '',
-                142 => '',
-                177 => '',
-        } ;
-        
-        my $all_2 = {
-                200 => '',
-                242 => '',
-                777 => '',
-        } ;
-        
-        
-        
-	ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache_2: ' ) ;
-	
-	ok(   -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 after' );
-	ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 after' );
-	ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 after' );
-	return(  ) ;
-}
-
-
-
-sub tests_mkpath {
-
-        my $long_path = "123456789/" x 30 ;
-	ok( (-d "W/tmp/tests/long/$long_path" or  mkpath( "W/tmp/tests/long/$long_path" )), 'tests_mkpath: mkpath > 300 char' ) ;
-	ok( (-d "W/tmp/tests/long/$long_path" and rmtree( "W/tmp/tests/long/" )),           'tests_mkpath: rmtree > 300 char' ) ;
-        ok( 1 == 1, 'tests_mkpath: 1 == 1' ) ;
-	return(  ) ;
-}
-
-sub tests_touch {
-
-	ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' )), 'tests_touch: mkpath W/tmp/tests/' ) ;
-	ok( 1 == touch( 'W/tmp/tests/lala'), 'tests_touch: W/tmp/tests/lala') ;
-	ok( 1 == touch( 'W/tmp/tests/\y'), 'tests_touch: W/tmp/tests/\y') ;
-	ok( 0 == touch( '/aaa'), 'tests_touch: not /aaa') ;
-	ok( 1 == touch( 'W/tmp/tests/lili', 'W/tmp/tests/lolo'), 'tests_touch: 2 files') ;
-	ok( 0 == touch( 'W/tmp/tests/\y', '/aaa'), 'tests_touch: 2 files, 1 fails' ) ;
-	return(  ) ;
-}
-
-
-sub touch {
-	my @files = @_ ;
-	my $failures = 0 ;
-	
-	foreach my $file ( @files ) {
-		my  $fh = IO::File->new ;
-		if ( $fh->open(">> $file" ) ) {
-			$fh->close ;
-		}else{
-                	print "Could not open file $file in write/append mode\n" ;
-                	$failures++ ;
-                }
-	}
-	return( ! $failures );
-}
-
-sub tests_cache_folder {
-
-	ok( '/path/fold1/fold2' eq cache_folder( '/path', 'fold1', 'fold2'), 'cache_folder: /path, fold1, fold2 -> /path/fold1/fold2' ) ;
-	ok( '/pa_th/fold1/fold2' eq cache_folder( '/pa*th', 'fold1', 'fold2'), 'cache_folder: /pa*th, fold1, fold2 -> /path/fold1/fold2' ) ;
-	ok( '/_p_a__th/fol_d1/fold2' eq cache_folder( '/>p<a|*th', 'fol*d1', 'fold2'), 'cache_folder: />p<a|*th, fol*d1, fold2 -> /path/fol_d1/fold2' ) ;
-	return(  ) ;
-}
-
-sub cache_folder {
-	my( $cache_dir, $h1_fold, $h2_fold ) = @_ ;
-	
-	my $sep_1 = $h1_sep || '/';
-	my $sep_2 = $h2_sep || '/';
-	
-	#print "$cache_dir h1_fold $h1_fold sep1 $sep_1 h2_fold $h2_fold sep2 $sep_2\n";
-	$h1_fold = convert_sep_to_slash( $h1_fold, $sep_1 ) ;
-	$h2_fold = convert_sep_to_slash( $h2_fold, $sep_2 ) ;
-        
-        my $cache_folder = "$cache_dir/$h1_fold/$h2_fold" ;
-        $cache_folder = filter_forbidden_characters( $cache_folder ) ;
-	#print "cache_folder [$cache_folder]\n" ;
-        return( $cache_folder ) ;
-}
-
-sub filter_forbidden_characters {
-	my $string = shift ;
-        
-        $string =~ s{[\Q*|?:"<>\E]}{_}xg ;
-	return ( $string ) ;
-}
-
-sub tests_filter_forbidden_characters {
-
-	ok( 'a_b' eq filter_forbidden_characters( 'a_b' ), 'filter_forbidden_characters: a_b -> a_b' ) ;
-	ok( 'a_b' eq filter_forbidden_characters( 'a*b' ), 'filter_forbidden_characters: a*b -> a_b' );
-	ok( 'a_b' eq filter_forbidden_characters( 'a|b' ), 'filter_forbidden_characters: a|b -> a_b' );
-	ok( 'a_b' eq filter_forbidden_characters( 'a?b' ), 'filter_forbidden_characters: a?*b -> a_b' );
-	ok( 'a_______b' eq filter_forbidden_characters( 'a*|?:"<>b' ), 'filter_forbidden_characters: a*|?:"<>b -> a_______b' );
-	return(  ) ;
-}
-
-sub convert_sep_to_slash {
-	my ( $folder, $sep ) = @_ ;
-	
-	$folder =~ s{\Q$sep\E}{/}xg ;
-	return( $folder ) ;
-}
-
-sub tests_convert_sep_to_slash {
-
-	ok('' eq convert_sep_to_slash('', '/'), 'convert_sep_to_slash: no folder');
-	ok('INBOX' eq convert_sep_to_slash('INBOX', '/'), 'convert_sep_to_slash: INBOX');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX/foo', '/'), 'convert_sep_to_slash: INBOX/foo');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX_foo', '_'), 'convert_sep_to_slash: INBOX_foo');
-	ok('INBOX/foo/zob' eq convert_sep_to_slash('INBOX_foo_zob', '_'), 'convert_sep_to_slash: INBOX_foo_zob');
-	ok('INBOX/foo' eq convert_sep_to_slash('INBOX.foo', '.'), 'convert_sep_to_slash: INBOX.foo');
-	ok('INBOX/foo/hi' eq convert_sep_to_slash('INBOX.foo.hi', '.'), 'convert_sep_to_slash: INBOX.foo.hi');
-	return(  ) ;
-}
-
-
-sub tests_regexmess {
-	
-	ok("blabla" eq regexmess("blabla"), "regexmess, no regexmess, nothing to do");
-
-	@regexmess = ('lalala') ;
-	ok( not( defined( regexmess("popopo") ) ), "regexmess, bad regex lalala") ;
-	
-	@regexmess = ('s/p/Z/g');
-	ok("ZoZoZo" eq regexmess("popopo"), "regexmess, s/p/Z/g");
-	
-	@regexmess = 's{c}{C}gxms';
-	ok("H1: abC\nH2: Cde\n\nBody abC" 
-		   eq regexmess("H1: abc\nH2: cde\n\nBody abc"), 
-	   "regexmess, c->C");
-	   
-	@regexmess = 's{\AFrom\ }{From:}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 add colon blank');
-	
-	ok(          'From:<tartanpion@machin.truc>' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 add colo');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 add colo');
-	
-	ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 add colo');
-	
-	@regexmess = 's{\AFrom\ [^\n]*(\n)?}{}gxms';
-	ok(          '' 
-	eq regexmess(''),
-	'From mbox 1 remove, blank');
-	
-	ok(          '' 
-	eq regexmess('From <tartanpion@machin.truc>'),
-	'From mbox 2 remove');
-	
-	ok(          "\n" . 'From <tartanpion@machin.truc>' 
-	eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 3 remove');
-	
-	#print "[", regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'), "]";
-	ok(          ""            . 'From <tartanpion@machin.truc>' 
-	eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-	'From mbox 4 remove');
-	
-
-	ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-	eq regexmess(
-<<'EOM'
-From  zzz
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-), 'From mbox 5 remove');
-
-
-@regexmess = 's{\A(.*?(?! ^$))(^Disposition-Notification-To:.*?\n)}{$1}gxms';
-
-	ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-	eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-	),
-	'regexmess: 1 Delete header Disposition-Notification-To:');
-
-	ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-	eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-
-Hello,
-Bye.
-EOM
-),
-	'regexmess: 2 Delete header Disposition-Notification-To:');
-
-	ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-	eq regexmess(
-<<'EOM'
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-),
-	'regexmess: 3 Delete header Disposition-Notification-To:');
-
-	ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-Bye.
-EOM
-	eq regexmess(
-<<'EOM'
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles.lamiral@laposte.net>
-Bye.
-EOM
-),
-	'regexmess: 4 Delete header Disposition-Notification-To:');
-
-
-
-return(  ) ;
-
-}
-
-sub regexmess {
-	my ($string) = @_ ;
-	foreach my $regexmess ( @regexmess ) {
-		$debug and print "eval \$string =~ $regexmess\n" ;
-		my $ret = eval( "\$string =~ $regexmess ; 1" ) ;
-                #print "eval [$ret]\n" ;
-                if ( ( not $ret ) or $@ ) {
-			print "Error: eval regexmess '$regexmess': $@" ;
-                        return( undef ) ;
-                }
-	}
-	return( $string ) ;
-}
-
-
-sub tests_bytes_display_string {
-
-	ok(    '0.000 KiB' eq bytes_display_string(       0 ), 'bytes_display_string:       0' ) ;
-	ok(    '0.001 KiB' eq bytes_display_string(       1 ), 'bytes_display_string:       1' ) ;
-	ok(    '0.010 KiB' eq bytes_display_string(      10 ), 'bytes_display_string:      10' ) ;
-	ok(    '1.000 MiB' eq bytes_display_string( 1048575 ), 'bytes_display_string: 1048575' ) ;
-	ok(    '1.000 MiB' eq bytes_display_string( 1048576 ), 'bytes_display_string: 1048576' ) ;
-
-	ok(    '1.000 GiB' eq bytes_display_string( 1073741823 ), 'bytes_display_string: 1073741823 ' ) ;
-	ok(    '1.000 GiB' eq bytes_display_string( 1073741824 ), 'bytes_display_string: 1073741824 ' ) ;
-
-	ok(    '1.000 TiB' eq bytes_display_string( 1099511627775 ), 'bytes_display_string: 1099511627775' ) ;
-	ok(    '1.000 TiB' eq bytes_display_string( 1099511627776 ), 'bytes_display_string: 1099511627776' ) ;
-
-	ok(    '1.000 PiB' eq bytes_display_string( 1125899906842623 ), 'bytes_display_string: 1125899906842623' ) ;
-	ok(    '1.000 PiB' eq bytes_display_string( 1125899906842624 ), 'bytes_display_string: 1125899906842624' ) ;
-
-	ok( '1024.000 PiB' eq bytes_display_string( 1152921504606846975 ), 'bytes_display_string: 1152921504606846975' ) ;
-	ok( '1024.000 PiB' eq bytes_display_string( 1152921504606846976 ), 'bytes_display_string: 1152921504606846976' ) ;
-
-	ok( '1048576.000 PiB' eq bytes_display_string( 1180591620717411303424 ), 'bytes_display_string: 1180591620717411303424' ) ;
-        
-        #print  bytes_display_string( 1180591620717411303424 ), "\n" ;
-	return(  ) ;
-}
-
-sub bytes_display_string { 
-	my ( $bytes ) = @_ ;
-
-	my $readable_value = '' ;
-       
-	SWITCH: {
-        	if ( abs( $bytes ) < ( 1000 * 1024 ) ) {
-        		$readable_value = sprintf( "%.3f KiB", $bytes / 1024) ; 
-                	last SWITCH ;
-        	}
-        	if ( abs( $bytes ) < ( 1000 * 1024 * 1024 ) ) {
-        		$readable_value = sprintf( "%.3f MiB", $bytes / (1024 * 1024) ) ;
-        	        last SWITCH ;
-        	}
-        	if ( abs( $bytes ) < ( 1000 * 1024 * 1024 * 1024) ) {
-			$readable_value = sprintf("%.3f GiB", $bytes / (1024 * 1024 * 1024) ) ;
-        	        last SWITCH ;
-        	}
-        	if ( abs( $bytes ) < ( 1000 * 1024 * 1024 * 1024 * 1024) ) {
-			$readable_value = sprintf( "%.3f TiB", $bytes / (1024 * 1024 * 1024 * 1024) ) ;
-        	        last SWITCH ;
-        	} else {
-			$readable_value = sprintf( "%.3f PiB", $bytes / (1024 * 1024 * 1024 * 1024 * 1024) ) ;
-        	}
-		# if you have exabytes (EiB) of email to transfer, you have too much email
-	}
-        #print "$bytes = $readable_value\n" ;
-        return( $readable_value ) ;
-}
-
-sub stats {
-	$timeend = time(  );
-	my $timediff = $timeend - $timestart ;
-
-	my $timeend_str   = localtime( $timeend ) ;
-        
-	my $memory_consumption = memory_consumption(  ) || 0 ;
-	my $memory_ratio = ($max_msg_size_in_bytes) ?  
-		sprintf('%.1f', $memory_consumption / $max_msg_size_in_bytes) : "NA" ;
-
-	my $host1_reconnect_count = $imap1->Reconnect_counter() || 0 ;
-	my $host2_reconnect_count = $imap2->Reconnect_counter() || 0 ;
-
-	print   "++++ Statistics\n" ;
-	print   "Transfer started on               : $timestart_str\n";
-	print   "Transfer ended on                 : $timeend_str\n";
-	printf( "Transfer time                     : %.1f sec\n", $timediff ) ;
-	print   "Messages transferred              : $nb_msg_transferred ";
-	print   "(could be $nb_msg_skipped_dry_mode without dry mode)" if ($dry);
-	print   "\n";
-	print   "Messages skipped                  : $nb_msg_skipped\n";
-	print   "Messages found duplicate on host1 : $h1_nb_msg_duplicate\n";
-	print   "Messages found duplicate on host2 : $h2_nb_msg_duplicate\n";
-	print   "Messages void (noheader) on host1 : $h1_nb_msg_noheader\n";
-	print   "Messages void (noheader) on host2 : $h2_nb_msg_noheader\n";
-	print   "Messages deleted on host1         : $h1_nb_msg_deleted\n";
-	print   "Messages deleted on host2         : $h2_nb_msg_deleted\n";
-        printf( "Total bytes transferred           : %d (%s)\n",
-                $total_bytes_transferred,
-                bytes_display_string($total_bytes_transferred));
-        printf( "Total bytes duplicate host1       : %d (%s)\n",
-                $h1_total_bytes_duplicate,
-                bytes_display_string($h1_total_bytes_duplicate));
-        printf( "Total bytes duplicate host2       : %d (%s)\n",
-                $h2_total_bytes_duplicate,
-                bytes_display_string($h2_total_bytes_duplicate));
-        printf( "Total bytes skipped               : %d (%s)\n",
-                $total_bytes_skipped,
-                bytes_display_string($total_bytes_skipped));
-        printf( "Total bytes error                 : %d (%s)\n",
-                $total_bytes_error,
-                bytes_display_string($total_bytes_error));
-	$timediff ||= 1; # No division per 0
-	printf ("Message rate                      : %.1f messages/s\n", $nb_msg_transferred / $timediff);
-	printf ("Average bandwidth rate            : %.1f KiB/s\n", $total_bytes_transferred / 1024 / $timediff);
-	print   "Reconnections to host1            : $host1_reconnect_count\n";
-	print   "Reconnections to host2            : $host2_reconnect_count\n";
-	printf ("Memory consumption                : %.1f MiB\n", $memory_consumption / 1024 / 1024);
-	print   "Biggest message                   : $max_msg_size_in_bytes bytes\n";
-#	print   "Memory/biggest message ratio      : $memory_ratio\n";
-        if ( $foldersizesatend and $foldersizes ) {
-	printf("Initial difference host2 - host1  : %s messages, %s bytes (%s)\n", $h2_nb_msg_start - $h1_nb_msg_at_start,
-                                                        $h2_bytes_start  - $h1_bytes_start,
-                                                        bytes_display_string( $h2_bytes_start  - $h1_bytes_start ) ) ;
-	printf("Final   difference host2 - host1  : %s messages, %s bytes (%s)\n", $h2_nb_msg_end   - $h1_nb_msg_end,
-                                                        $h2_bytes_end    - $h1_bytes_end,
-                                                        bytes_display_string( $h2_bytes_end    - $h1_bytes_end ) ) ;
-        }
-	print   "Detected $nb_errors errors\n\n" ;
-
-	print   $warn_release, "\n" ;
-	print   thank_author();
-	return(  ) ;
-}
-
-sub thank_author {
-	return("Homepage: http://imapsync.lamiral.info/\n");
-}
-
-
-sub load_modules {
-
-	if ( $ssl1 or $ssl2 or $tls1 or $tls2 ) {
-        	require IO::Socket::SSL ;
-                #$IO::Socket::SSL::DEBUG = 4 ;
-        }
-
-        require Term::ReadKey if (
-	       ((not($password1 or $passfile1)) 
-	    or (not($password2 or $passfile2)))
-	and (not $help));
-
-	#require Data::Dumper if ($debug);
-	return(  ) ;
-}
-
-
-
-sub parse_header_msg {
-	my ($imap, $m_uid, $s_heads, $s_fir, $side, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "$side uid $m_uid head nb pass one: ", $headnum, "\n";
-	
-	if ( ( ! $headnum ) and ( $wholeheaderifneeded ) ){
-		print "$side uid $m_uid no header by parse_headers so taking whole header with BODY.PEEK[HEADER]\n" ;
-		$imap->fetch($m_uid, "BODY.PEEK[HEADER]");
-		my $whole_header = $imap->_transaction_literals;
-		
-                #print $whole_header;
-                $head = decompose_header( $whole_header ) ;
-                
-                $headnum =  scalar( keys( %$head ) ) ;
-	        $debug and print "$side uid $m_uid head nb pass two: ", $headnum, "\n";
-	}
-
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $head, \%useheader ] ) ;
-
-	my $headstr ;
-        
-        $headstr = header_construct( $head, $side, $m_uid ) ;
-		
-	if ( ( ! $headstr) and ( $addheader ) and ( $side eq "Host1" )){
-        	my $header = add_header( $m_uid ) ;
-		print "Host1 uid $m_uid no header found so adding our own [$header]\n";
-		$headstr .= uc( $header ) ;
-		$s_fir->{$m_uid}->{"NO_HEADER"} = 1;
-	}
-
-	return(  ) if ( ! $headstr ) ;
-	
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length( $headstr ) unless ( $size ) ;
-	my $m_md5 = md5_base64( $headstr ) ;
-	$debug and print "$side uid $m_uid sig $m_md5 size $size idate $idate\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	# 0 return code is used to identify duplicate message hash
-	return 0 if exists $s_hash->{"$key"};
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-
-	return( 1 ) ;
-}
-
-sub header_construct {
-
-	my( $head, $side, $m_uid ) = @_ ;
-        
-        my $headstr ;
-	foreach my $h ( sort keys( %$head ) ) {
-                next if ( not exists( $useheader{ uc( $h ) } )
-                      and not exists( $useheader{ 'ALL' } )
-                ) ;
-		foreach my $val ( sort @{$head->{$h}} ) {
-                	
-                        my $H = header_line_normalize( $h, $val ) ;
-                                                
-			# show stuff in debug mode
-			$debug and print "$side uid $m_uid header [$H]", "\n" ;
-			
-			if ($skipheader and $H =~ m/$skipheader/xi) {
-				$debug and print "$side uid $m_uid skipping header [$H]\n" ;
-				next ;
-			}
-			$headstr .= "$H" ;
-		}
-	}
-	return( $headstr ) ;
-}
-
-
-sub header_line_normalize {
-	my( $header_key,  $header_val ) = @_ ;
-	
-        # no 8-bit data in headers !
-        $header_val =~ s/[\x80-\xff]/X/xog;
-
-        # change tabulations to space (Gmail bug on with "Received:" on multilines)
-        $header_val =~ s/\t/\ /xg ;
-
-        # remove the first blanks ( dbmail bug? )
-        $header_val =~ s/^\s*//xo;
-
-        # remove successive blanks ( Mailenable does it )
-        $header_val =~ s/\s+/ /gxo;
-
-        # remove Message-Id value domain part ( Mailenable changes it )
-        if ( ( $messageidnodomain ) and ( 'MESSAGE-ID' eq uc( $header_key ) ) ) { $header_val =~ s/^([^@]+).*$/$1/xo ; }
-
-        # and uppercase header line 
-        # (dbmail and dovecot)
-
-        my $header_line = uc("$header_key: $header_val") ;
-
-	return( $header_line ) ;
-
-}
-
-sub tests_header_line_normalize {
-
-	ok( ': ' eq header_line_normalize( '', '' ), 'header_line_normalize: empty args' ) ;
-	ok( 'HHH: VVV' eq header_line_normalize( 'hhh', 'vvv' ), 'header_line_normalize: hhh vvv ' ) ;
-	ok( 'HHH: VVV' eq header_line_normalize( 'hhh', '  vvv' ), 'header_line_normalize: remove first blancs' ) ;
-	ok( 'HHH: AA BB CCC ' eq header_line_normalize( 'hhh', 'aa  bb   ccc  ' ), 'header_line_normalize: remove succesive blancs' ) ;
-	ok( 'HHH: VVV XX YY' eq header_line_normalize( 'hhh', "vvv\t\txx\tyy" ), 'header_line_normalize: tabs' ) ;
-	ok( 'HHH: XABX' eq header_line_normalize( 'hhh', "\x80AB\xff" ), 'header_line_normalize: 8bit' ) ;
-
-	return(  ) ;
-}
-
-
-sub firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_ ;
-        my $line  = "" ;
-        
-        open( my $FILE, '<', $file ) or die_clean( "error [$file]: $! " ) ;
-        chomp( $line = <$FILE> ) ;
-        close $FILE ;
-        $line = ( $line ) ? $line: "error !EMPTY! [$file]" ;
-        return $line ;
-}
-
-
-sub file_to_string {
-	my( $file ) = @_ ;
-	my @string ;
-	open( my $FILE, '<', $file )  or die_clean( "error [$file]: $! " ) ;
-	@string = <$FILE> ;
-	close $FILE ;
-	return join('', @string) ;
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die_clean("$! $file");
-	print FILE $string;
-	close FILE;
-	return(  ) ;
-}
-
-sub tests_is_a_release_number {
-	ok(is_a_release_number(1.351), 'is_a_release_number 1.351');
-	ok(is_a_release_number(42.4242), 'is_a_release_number 42.4242');
-	ok(is_a_release_number(imapsync_version()), 'is_a_release_number imapsync_version()');
-	ok(! is_a_release_number('blabla' ), '! is_a_release_number blabla');
-	return(  ) ;
-}
-
-sub is_a_release_number {
-	my $number = shift;
-	
-	return( $number =~ m{\d\.\d+}xo ) ;
-}
-
-sub check_last_release {
-
-	my $public_release = not_long_imapsync_version_public(  ) ;
-	#print "check_last_release: [$public_release]\n" ;
-	return('unknown') if ($public_release eq 'unknown');
-	return('timeout') if ($public_release eq 'timeout');
-	return('unknown') if (! is_a_release_number($public_release));
-	
-	my $imapsync_here  = imapsync_version();
-	
-	if ($public_release > $imapsync_here) {
-		return("New imapsync release $public_release available");
-	}else{
-		return("This current imapsync is up to date");
-	}
-}
-
-sub imapsync_version  {
-	my $rcs_imapsync = '$Id: imapsync,v 1.564 2013/08/18 19:28:47 gilles Exp gilles $ ' ;
-        my $imapsync_version ;
-        
-	if ( $rcs_imapsync =~ m{,v\s+(\d+\.\d+)}xo ) {
-		$imapsync_version = $1
-        } else {
-        	$imapsync_version = "UNKNOWN" ;
-        }
-	return( $imapsync_version ) ;
-}
-
-sub tests_imapsync_basename {
-
-	ok('imapsync' eq imapsync_basename(), 'imapsync_basename: imapsync');
-	ok('blabla'   ne imapsync_basename(), '! imapsync_basename: blabla');
-	return(  ) ;
-}
-
-sub imapsync_basename {
-
-	return basename($0);
-
-}
-
-sub imapsync_version_public {
-	
-	my $local_version = imapsync_version();
-	my $imapsync_basename = imapsync_basename();
-	my $agent_info = "$OSNAME system, perl " 
-		. sprintf("%vd", $PERL_VERSION) 
-		. ", Mail::IMAPClient $Mail::IMAPClient::VERSION"
-		. " $imapsync_basename";
-	my $sock = IO::Socket::INET->new(
-		PeerAddr => 'imapsync.lamiral.info',
-		PeerPort => '80',
-		Proto => 'tcp' 
-                ) ;
-	return( 'unknown' ) if not $sock ;
-	print $sock
-		"GET /prj/imapsync/VERSION HTTP/1.0\n",
-		"User-Agent: imapsync/$local_version ($agent_info)\n",
-		"Host: ks.lamiral.info\n\n";
-	my @line = <$sock>;
-	close($sock);
-	my $last_release = $line[-1];
-	chomp($last_release);
-	return($last_release);
-}
-
-sub not_long_imapsync_version_public {
-	#print "Entering not_long_imapsync_version_public\n";
-
-	my $val;
-	
-	# Doesn't work with gethostbyname (see perlipc)
-	#local $SIG{ALRM} = sub { die "alarm\n" };
-	
-	if ('MSWin32' eq $OSNAME) {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-	}else{
-	
-        	POSIX::sigaction(SIGALRM,
-                         POSIX::SigAction->new(sub { croak "alarm" }))
-        		or print "Error setting SIGALRM handler: $!\n";
-	}
-	
-	my $ret = eval {
-		alarm(3) ;
-		{
-			$val = imapsync_version_public(  ) ;
-                        #sleep 4 ;
-			#print "End of imapsync_version_public\n" ;
-		}
-		alarm(0) ;
-                1 ;
-	} ;
-        #print "eval [$ret]\n" ;
-	if ( ( not $ret ) or $@ ) {
-		#print "$@";
-		if ($@ =~ /alarm/) {
-		# timed out
-			return('timeout');
-		}else{
-			alarm(0);
-			return('unknown'); # propagate unexpected errors
-		}
-	}else {
-	# Good!
-		return($val);
-	}
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	    "Here is a [$OSNAME] system (", 
-	    join(" ", 
-	         uname(),
-	         ),
-                 ")\n",
-	         "With perl ", 
-	         sprintf("%vd", $PERL_VERSION),
-	         " Mail::IMAPClient  $Mail::IMAPClient::VERSION",
-            ) ;
-	return($infos);
-}
-
-sub memory_consumption {
-	# memory consumed by imapsync until now in bytes
-	return( ( memory_consumption_of_pids(  ) )[0] );
-}
-
-sub memory_consumption_of_pids {
-
-	my @pid = @_;
-	@pid = (@pid) ? @pid : ($PROCESS_ID) ;
-	
-	#print "PIDs: @PID\n";
-	my @val;
-	if ('MSWin32' eq $OSNAME) {
-		@val = memory_consumption_of_pids_win32(@pid);
-	}else{
-		# Unix
-		#my @ps = qx{ ps -o vsz -p @pid };
-                my @ps = backtick( "ps -o vsz -p @pid" ) ;
-		shift @ps; # First line is column name "VSZ"
-		chomp @ps; 
-		# convert to 
-		@val = map { $_ * 1024 } @ps;
-	}
-	return( @val ) ;
-}
-
-sub memory_consumption_of_pids_win32 {
-	# Windows
-	my @PID = @_;
-	my %PID;
-	# hash of pids as key values
-	map { $PID{$_}++ } @PID;
-	
-	# Does not work but should reading the tasklist documentation
-	#@ps = qx{ tasklist /FI "PID eq @PID" };
-	
-	#my @ps = qx{ tasklist /NH /FO CSV } ;
-        my @ps = backtick( 'tasklist /NH /FO CSV' ) ;
-	#print "-" x 80, "\n", @ps, "-" x 80, "\n";
-	my @val;
-	foreach my $line (@ps) {
-		my($name, $pid, $mem) = (split(',', $line))[0,1,4];
-		next if (! $pid);
-		#print "[$name][$pid][$mem]";
-		if ($PID{remove_qq($pid)}) {
-			#print "MATCH !\n";
-			chomp($mem);
-			$mem = remove_qq($mem);
-			$mem = remove_Ko($mem);
-			$mem = remove_not_num($mem);
-			#print "[$mem]\n";
-			push(@val, $mem * 1024);
-		}
-	}
-	return(@val);
-}
-
-sub backtick {
-	my $command = shift ;
-	my ($writer, $reader, $err);
-        open3( $writer, $reader, $err, $command ) ;
-        my @output = <$reader>;  #Output here
-        #my @errors = <$err>;    #Errors here, instead of the console
-        $debugdev and print @output ;
-        return( @output ) ;
-}
-
-sub tests_backtick {
-        
-        my @output ;
-        @output = backtick( "echo Hello World!" ) ;
-        ok( "Hello World!\n" eq $output[0], 'backtick: echo Hello World!' ) ;
-        
-        @output = backtick( "echo Hello\necho World!" ) ;
-        ok( "Hello\n" eq $output[0], 'backtick: echo Hello; echo World!' ) ;
-        ok( "World!\n" eq $output[1], 'backtick: echo Hello; echo World!' ) ;
-        #print @output ;
-        if ('MSWin32' ne $OSNAME) {
-        	my @output_1 = backtick( 'ls /' ) ;
-                #my @output_2 = `ls /` ;
-                #ok( 0 == compare_lists( \@output_1, \@output_2 ), 'backtick: ls /' ) ;
-        }
-        return(  ) ;
-}
-
-sub remove_not_num {
-	
-	my $string = shift;
-	$string =~ tr/0-9//cd;
-	#print "tr [$string]\n";
-	return($string);
-}
-
-sub tests_remove_not_num {
-
-	ok('123' eq remove_not_num(123), 'remove_not_num( 123 )');
-	ok('123' eq remove_not_num('123'), "remove_not_num( '123' )");
-	ok('123' eq remove_not_num('12 3'), "remove_not_num( '12 3' )");
-	ok('123' eq remove_not_num('a 12 3 Ko'), "remove_not_num( 'a 12 3 Ko' )");
-	return(  ) ;
-}
-
-sub remove_Ko {
-	my $string = shift;
-	if ($string =~ /^(.*)\sKo$/xo) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub remove_qq {
-	my $string = shift;
-	if ($string =~ /^"(.*)"$/xo) {
-		return($1);
-	}else{
-		return($string);
-	}
-}
-
-sub memory_consumption_ratio {
-
-	my ($base) = @_;
-	$base ||= 1;
-	my $consu = memory_consumption();
-	return($consu / $base);
-}
-
-sub tests_memory_consumption {
-
-	ok(print join("\n", memory_consumption_of_pids()), " memory_consumption_of_pids\n");
-	ok(print join("\n", memory_consumption_of_pids('1')), " memory_consumption_of_pids 1\n");
-	ok(print join("\n", memory_consumption_of_pids('1', $PROCESS_ID)), " memory_consumption_of_pids 1 $PROCESS_ID\n");
-
-	ok(print memory_consumption_ratio(), " memory_consumption_ratio \n");
-	ok(print memory_consumption_ratio(1), " memory_consumption_ratio 1\n");
-	ok(print memory_consumption_ratio(10), " memory_consumption_ratio 10\n");
-	
-	ok(print memory_consumption(), " memory_consumption\n");
-	return(  ) ;
-}
-
-sub good_date {
-        # two incoming formats:
-        # header    Tue, 24 Aug 2010 16:00:00 +0200
-	# internal       24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: internal date format
-        #   24-Aug-2010 16:00:00 +0200
-	
-    my $d = shift ;
-    return ('') if not defined($d);
-
-	SWITCH: {
-    	if ( $d =~ m{(\d?)(\d-...-\d{4})(\s\d{2}:\d{2}:\d{2})(\s(?:\+|-)\d{4})?}xo ) {
-		#print "internal: [$1][$2][$3][$4]\n" ;
-		my ($day_1, $date_rest, $hour, $zone) = ($1,$2,$3,$4) ;
-		$day_1 = '0' if ($day_1 eq '') ;
-		$zone  = ' +0000'  if not defined($zone) ;
-		$d = $day_1 . $date_rest . $hour . $zone ;
-                last SWITCH ;
-        }
-        
-	if ($d =~ m{(?:\w{3,},\s)?(\d{1,2}),?\s+(\w{3,})\s+(\d{2,4})\s+(\d{1,2})(?::|\.)(\d{1,2})(?:(?::|\.)(\d{1,2}))?\s*((?:\+|-)\d{4})?}xo ) {
-        	# Handles any combination of following formats
-                # Tue, 24 Aug 2010 16:00:00 +0200 -- Standard
-                # 24 Aug 2010 16:00:00 +0200 -- Missing Day of Week
-                # Tue, 24 Aug 97 16:00:00 +0200 -- Two digit year
-                # Tue, 24 Aug 1997 16.00.00 +0200 -- Periods instead of colons 
-                # Tue, 24 Aug 1997  16:00:00 +0200 -- Extra whitespace between year and hour
-                # Tue, 24 Aug 1997 6:5:2 +0200 -- Single digit hour, min, or second
-                # Tue, 24, Aug 1997 16:00:00 +0200 -- Extra comma
-
-                #print "header: [$1][$2][$3][$4][$5][$6][$7][$8]\n";
-                my ($day, $month, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7,$8);
-                $year = '19' . $year if length($year) == 2 && $year =~ m/^[789]/xo;
-                $year = '20' . $year if length($year) == 2;
-                 
-                $month = substr $month, 0, 3 if length($month) > 4;
-                $day = sprintf("%02d", $day);
-                $hour = sprintf("%02d", $hour);
-                $min = sprintf("%02d", $min);
-                $sec  = '00' if not defined($sec);
-                $sec = sprintf("%02d", $sec);
-                $zone  = '+0000' if not defined($zone);
-                $d = "$day-$month-$year $hour:$min:$sec $zone";
-		last SWITCH ;
-	}
-    
-	if ($d =~ m{(?:.{3})\s(...)\s+(\d{1,2})\s(\d{1,2}):(\d{1,2}):(\d{1,2})\s(?:\w{3})?\s?(\d{4})}xo ) {
-        	# Handles any combination of following formats
-                # Sun Aug 20 11:55:09 2006
-                # Wed Jan 24 11:58:38 MST 2007
-                # Wed Jan  2 08:40:57 2008
-
-                #print "header: [$1][$2][$3][$4][$5][$6]\n";
-                my ($month, $day, $hour, $min, $sec, $year) = ($1,$2,$3,$4,$5,$6);
-                $day = sprintf("%02d", $day);
-                $hour = sprintf("%02d", $hour);
-                $min = sprintf("%02d", $min);
-                $sec = sprintf("%02d", $sec);
-                $d = "$day-$month-$year $hour:$min:$sec +0000";
-		last SWITCH ;
-	}
-
-        if ($d =~ m{(\d{2})/(\d{2})/(\d{2})\s(\d{2}):(\d{2}):(\d{2})}xo ) {
-                # Handles the following format
-                # 02/06/09 22:18:08 -- Generated by AVTECH TemPageR devices
-
-                #print "header: [$1][$2][$3][$4][$5][$6]\n";
-                my ($month, $day, $year, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6);
-                $year = '20' . $year;
-                my %num2mon = qw(01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec);
-                $month = $num2mon{$month};
-                $d = "$day-$month-$year $hour:$min:$sec +0000";
-		last SWITCH ;
-	}
-    
-	if ($d =~ m{\w{6,},\s(\w{3})\w+\s+(\d{1,2}),\s(\d{4})\s(\d{2}):(\d{2})\s(AM|PM)}xo ) {
-        	# Handles the following format
-                # Saturday, December 14, 2002 05:00 PM - KBtoys.com order confirmations
-
-                my ($month, $day, $year, $hour, $min, $apm) = ($1,$2,$3,$4,$5,$6);
-
-                $hour += 12 if $apm eq 'PM';
-                $day = sprintf("%02d", $day);
-                $d = "$day-$month-$year $hour:$min:00 +0000";
-                last SWITCH ;
-	}
-    
-	if ($d =~ m{(\w{3})\s(\d{1,2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})\s((?:\+|-)\d{4})}xo ) {
-        	# Handles the following format
-                # Saturday, December 14, 2002 05:00 PM - jr.com order confirmations
-
-                my ($month, $day, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7);
-
-                $day = sprintf("%02d", $day);
-                $d = "$day-$month-$year $hour:$min:$sec $zone";
-                last SWITCH ;
-	}
-    
-	if ($d =~ m{(\d{1,2})-(\w{3})-(\d{4})}xo ) {
-        	# Handles the following format
-                # 21-Jun-2001 - register.com domain transfer email circa 2001
-
-                my ($day, $month, $year) = ($1,$2,$3);
-                $day = sprintf("%02d", $day);
-                $d = "$day-$month-$year 11:11:11 +0000";
-		last SWITCH ;
-	}
-        
-    	# unknown or unmatch => return same string
-    	return($d);
-    }
-    
-    $d = qq("$d") ;
-    return( $d ) ;
-} 
-
-
-sub tests_good_date {
-
-	ok('' eq good_date(), 'good_date no arg');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24-Aug-2010 16:00:00 +0200'), 'good_date internal 2digit zone');
-	ok('"24-Aug-2010 16:00:00 +0000"' eq good_date('24-Aug-2010 16:00:00'), 'good_date internal 2digit no zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date( '1-Sep-2010 16:00:00 +0200'), 'good_date internal SP 1digit');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('Tue, 24 Aug 2010 16:00:00 +0200'), 'good_date header 2digit zone');
-	ok('"01-Sep-2010 16:00:00 +0000"' eq good_date('Wed, 1 Sep 2010 16:00:00'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200 (CEST)'), 'good_date header SP 1digit zone');
-        ok('"06-Feb-2009 22:18:08 +0000"' eq good_date('02/06/09 22:18:08'), 'good_date header TemPageR');
-        ok('"02-Jan-2008 08:40:57 +0000"' eq good_date('Wed Jan  2 08:40:57 2008'), 'good_date header dice.com support 1digit day');
-        ok('"20-Aug-2006 11:55:09 +0000"' eq good_date('Sun Aug 20 11:55:09 2006'), 'good_date header dice.com support 2digit day');
-        ok('"24-Jan-2007 11:58:38 +0000"' eq good_date('Wed Jan 24 11:58:38 MST 2007'), 'good_date header status-now.com');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24 Aug 2010 16:00:00 +0200'), 'good_date header missing date of week');
-        ok('"24-Aug-2067 16:00:00 +0200"' eq good_date('Tue, 24 Aug 67 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1977 16:00:00 +0200"' eq good_date('Tue, 24 Aug 77 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1987 16:00:00 +0200"' eq good_date('Tue, 24 Aug 87 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 97 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-2004 16:00:00 +0200"' eq good_date('Tue, 24 Aug 04 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997 16.00.00 +0200'), 'good_date header period time sep');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997  16:00:00 +0200'), 'good_date header extra white space type1');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24 Aug 1997 5:6:2 +0200'), 'good_date header 1digit time vals');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24, Aug 1997 05:06:02 +0200'), 'good_date header extra commas');
-        ok('"01-Oct-2003 12:45:24 +0000"' eq good_date('Wednesday, 01 October 2003 12:45:24 CDT'), 'good_date header no abbrev');
-        ok('"11-Jan-2005 17:58:27 -0500"' eq good_date('Tue,  11  Jan 2005 17:58:27 -0500'), 'good_date extra white space');
-        ok('"18-Dec-2002 15:07:00 +0000"' eq good_date('Wednesday, December 18, 2002 03:07 PM'), 'good_date kbtoys.com orders');
-        ok('"16-Dec-2004 02:01:49 -0500"' eq good_date('Dec 16 2004 02:01:49 -0500'), 'good_date jr.com orders');
-        ok('"21-Jun-2001 11:11:11 +0000"' eq good_date('21-Jun-2001'), 'good_date register.com domain transfer');
-
-	return(  ) ;
-}
-
-
-sub tests_list_keys_in_2_not_in_1 {
-
-	my @list;
-	ok( ! list_keys_in_2_not_in_1( {}, {}), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( [], [ list_keys_in_2_not_in_1( {}, {} ) ] ), 'list_keys_in_2_not_in_1: {} {}');
-	ok( 0 == compare_lists( ['a','b'], [ list_keys_in_2_not_in_1( {}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b} {a, b}');
-	ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-	
-	return(  ) ;
-}
-
-sub list_keys_in_2_not_in_1 {
-
-	my $folders1_ref = shift;
-	my $folders2_ref = shift;
-	my @list;
-	
-	foreach my $folder ( sort keys %$folders2_ref ) {
-		next if exists($folders1_ref->{$folder});
-		push(@list, $folder);
-	}
-	return(@list);
-}
-
-
-sub list_folders_in_2_not_in_1 {
-
-	my (@h2_folders_not_in_h1, %h2_folders_not_in_h1) ;
-	@h2_folders_not_in_h1 = list_keys_in_2_not_in_1( \%h1_folders_all, \%h2_folders_all) ;
-	map { $h2_folders_not_in_h1{$_} = 1} @h2_folders_not_in_h1 ;
-	@h2_folders_not_in_h1 = list_keys_in_2_not_in_1( \%h2_folders_from_1_all, \%h2_folders_not_in_h1) ;
-	
-	return( reverse @h2_folders_not_in_h1 );
-}
-
-sub delete_folders_in_2_not_in_1 { 
-
-	foreach my $folder (@h2_folders_not_in_1) {
-		if ( defined( $delete2foldersonly ) and eval( "\$folder !~ $delete2foldersonly" ) ) {
-			print "Not deleting $folder because of --delete2foldersonly $delete2foldersonly\n";
-			next;
-		}
-		if ( defined( $delete2foldersbutnot ) and eval( "\$folder =~ $delete2foldersbutnot" ) ) {
-			print "Not deleting $folder because of --delete2foldersbutnot $delete2foldersbutnot\n";
-			next;
-		}
-		my $res = $dry ; # always success in dry mode!
-		$imap2->unsubscribe( $folder ) if ( ! $dry ) ;
-		$res = $imap2->delete( $folder ) if ( ! $dry ) ;
-		if ( $res ) {
-			print "Delete $folder", "$dry_message", "\n" ;
-		}else{
-			print "Delete $folder failure", "\n" ;
-		}
-	}
-	return(  ) ;
-}
-
-
-sub extract_header {
-        my $string = shift ;
-        
-        my ( $header ) = split( /\n\n/x, $string ) ;
-        if ( ! $header ) { return( '' ) ; }
-        #print "[$header]\n" ;
-        return( $header ) ;
-}
-
-sub tests_extract_header {
-
-        
-my $h = <<'EOM';
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-EOM
-chomp( $h ) ;
-ok( $h eq extract_header(
-<<'EOM'
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-
-body
-lalala
-EOM
-), 'extract_header: 1') ;
-
-
-     
-	return(  ) ;
-}
-
-sub decompose_header{
-        my $string = shift ;
-        
-        # a hash, for a keyword header KEY value are list of strings [VAL1, VAL1_other, etc]
-        # Think of multiple "Received:" header lines.
-        my $header = {  } ;
-        
-        my ($key, $val ) ;
-        my @line = split( /\n|\r\n/x, $string ) ;
-        foreach my $line ( @line ) {
-                #print "DDD $line\n" ;
-                # End of header
-                last if ( $line =~ m{^$}xo ) ;
-                # Key: value
-                if ( $line =~ m/(^[^:]+):\s(.*)/xo ) {
-                        $key = $1 ;
-                        $val = $2 ;
-                        $debugdev and print "DDD KV [$key] [$val]\n" ;
-                        push( @{ $header->{ $key } }, $val ) ;
-                # blanc and value => value from previous line continues
-                }elsif( $line =~ m/^(\s+)(.*)/xo ) {
-                        $val = $2 ;
-                        $debugdev and print "DDD  V [$val]\n" ;
-                        @{ $header->{ $key } }[ -1 ] .= " $val" if $key ;
-                # dirty line?
-                }else{
-                        next ;
-                }
-        }
-        #require Data::Dumper ;
-        #print Data::Dumper->Dump( [ $header ] ) ;
-
-        return( $header ) ;
-}
-
-
-sub tests_decompose_header{
-
-        my $header_dec ;
-        
-        $header_dec = decompose_header(
-<<'EOH'
-KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-KEY_4: VAL_4
-	VAL_4_+
-KEY_5 BLANC:  VAL_5
-
-KEY_6_BAD_BODY: VAL_6
-EOH
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: VAL_3' ) ;
-
-        ok( 'VAL_1' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: VAL_1' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[1], 'decompose_header: VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-        ok( 'VAL_4 VAL_4_+' 
-        eq $header_dec->{ 'KEY_4' }[0], 'decompose_header: VAL_4 VAL_4_+' ) ;
-
-        ok( ' VAL_5' 
-        eq $header_dec->{ 'KEY_5 BLANC' }[0], 'decompose_header: KEY_5 BLANC' ) ;
-
-        ok( not( defined( $header_dec->{ 'KEY_6_BAD_BODY' }[0] ) ), 'decompose_header: KEY_6_BAD_BODY' ) ;
-
-        
-        $header_dec = decompose_header(
-<<'EOH'
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-EOH
-        ) ;
-
-        ok( '<20100428101817.A66CB162474E@plume.est.belle>' 
-        eq $header_dec->{ 'Message-Id' }[0], 'decompose_header: 1' ) ;
-
-        $header_dec = decompose_header(
-<<'EOH'
-Return-Path: <gilles@louloutte.dyndns.org>
-Received: by plume.est.belle (Postfix, from userid 1000)
-        id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)
-Subject: test:eekahceishukohpe
-EOH
-) ;
-        ok( 
-'by plume.est.belle (Postfix, from userid 1000) id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)' 
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 2' ) ;
-
-        $header_dec = decompose_header(
-<<'EOH'
-Received: from plume (localhost [127.0.0.1])
-        by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9
-        for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-Received: from plume [192.168.68.7]
-        by plume with POP3 (fetchmail-6.3.6)
-        for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-EOH
-        ) ;
-        ok(
-        'from plume (localhost [127.0.0.1]) by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9 for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 3' ) ;
-        ok(
-        'from plume [192.168.68.7] by plume with POP3 (fetchmail-6.3.6) for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[1], 'decompose_header: 3' ) ;
-
-# Bad header beginning with a blank character
-        $header_dec = decompose_header(
-<<'EOH'
- KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-EOH
-        ) ;
-        
-        ok( 'VAL_3' 
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: Bad header VAL_3' ) ;
-
-        ok( 'VAL_1_other' 
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: Bad header VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++' 
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: Bad header VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-	return(  ) ;
-}
-
-sub epoch {
-        # incoming format:
-	# internal date 24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: epoch
-
-
-        my $d = shift ;
-        return ('') if not defined($d);
-
-        my ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) ;
-        my $time ;
-        
-        if ( $d =~ m{(\d{1,2})-([A-Z][a-z]{2})-(\d{4})\s(\d{2}):(\d{2}):(\d{2})\s((?:\+|-))(\d{2})(\d{2})}xo ) {
-                #print "internal: [$1][$2][$3][$4][$5][$6][$7][$8][$9]\n" ;
-                ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) 
-                =  ( $1,   $2,     $3,    $4,    $5,  $6,    $7,     $8,     $9 ) ;
-                #print "( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m )\n" ;
-                
-                $sign = +1 if ( '+' eq $sign ) ;
-                $sign = -1 if ( '-' eq $sign ) ;
-                
-                $time = timegm( $sec, $min, $hour, $mday, $month_abrev{$month}, $year ) 
-                        - $sign * ( 3600 * $zone_h + 60 * $zone_m ) ;
-                
-                #print( "$time ", scalar(localtime($time)), "\n");
-        }
-        return( $time ) ;
-}
-
-sub tests_epoch {
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:00:00 +0200' ), 'epoch 24-Aug-2010 16:00:00 +0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:00:00 +0000' ), 'epoch 24-Aug-2010 14:00:00 +0000 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 12:00:00 -0200' ), 'epoch 24-Aug-2010 12:00:00 -0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:01:00 +0201' ), 'epoch 24-Aug-2010 16:01:00 +0201 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:01:00 +0001' ), 'epoch 24-Aug-2010 14:01:00 +0001 -> 1282658400' ) ;
-
-        ok( '1280671200' eq epoch( '1-Aug-2010 16:00:00 +0200' ), 'epoch 1-Aug-2010 16:00:00 +0200 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 14:00:00 +0000' ), 'epoch 1-Aug-2010 14:00:00 +0000 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 12:00:00 -0200' ), 'epoch 1-Aug-2010 12:00:00 -0200 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 16:01:00 +0201' ), 'epoch 1-Aug-2010 16:01:00 +0201 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 14:01:00 +0001' ), 'epoch 1-Aug-2010 14:01:00 +0001 -> 1280671200' ) ;
-	return(  ) ;
-}
-
-sub add_header {
-	my $header_uid = shift || 'mistake' ;
-	my $header_Message_Id = 'Message-Id: <' . $header_uid . '@imapsync>' ;
-        return( $header_Message_Id ) ;
-}
-
-sub tests_add_header {
-	ok( 'Message-Id: <mistake@imapsync>' eq add_header(), 'add_header no arg' ) ;
-	ok( 'Message-Id: <123456789@imapsync>' eq add_header(123456789), 'add_header 123456789' ) ;
-
-	return(  ) ;
-}
-
-sub tests_Banner{
-
-	my $imap = Mail::IMAPClient->new(  ) ;
-        ok( 'lalala' eq $imap->Banner('lalala'), "Banner set lalala" ) ;
-        ok( 'lalala' eq $imap->Banner(), "Banner get lalala" ) ;
-	return(  ) ;
-}
-
-
-
-
-sub max_line_length {
-	my $string = shift ;
-        my $max = 0 ;
-        my $i ;
-        while ( $string =~ m/([^\n]*\n?)/msxg ) {
-        	$max = max( $max, length( $1 ) ) ;
-                #++$i ;
-        	#print "max $max $i\n" ;
-        }
-        #print "MAX $max $i\n\n" ;
-	return( $max ) ;
-}
-
-sub tests_max_line_length {
-	ok( 0 == max_line_length( '' ), 'max_line_length: 0 == null string' ) ;
-	ok( 1 == max_line_length( "\n" ), 'max_line_length: 1 == \n' ) ;
-	ok( 1 == max_line_length( "\n\n" ), 'max_line_length: 1 == \n\n' ) ;
-	ok( 1 == max_line_length( "\n" x 500 ), 'max_line_length: 1 == 500 \n' ) ;
-	ok( 1 == max_line_length( "a" ), 'max_line_length: 1 == a' ) ;
-	ok( 2 == max_line_length( "a\na" ), 'max_line_length: 2 == a\na' ) ;
-	ok( 2 == max_line_length( "a\na\n" ), 'max_line_length: 2 == a\na\n' ) ;
-	ok( 3 == max_line_length( "a\nab\n" ), 'max_line_length: 3 == a\nab\n' ) ;
-	ok( 3 == max_line_length( "a\nab\n" x 10000 ), 'max_line_length: 3 == 10000 a\nab\n' ) ;
-	ok( 3 == max_line_length( "a\nab\nabc" ), 'max_line_length: 3 == a\nab\nabc' ) ;
-
-	ok( 4 == max_line_length( "a\nab\nabc\n" ), 'max_line_length: 4 == a\nab\nabc\n' ) ;
-	ok( 5 == max_line_length( "a\nabcd\nabc\n" ), 'max_line_length: 5 == a\nabcd\nabc\n' ) ;
-	ok( 5 == max_line_length( "a\nabcd\nabc\n\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd" ), 'max_line_length: 5 == a\nabcd\nabc\n\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd' ) ;
-	return(  ) ;
-}
-
-sub usage {
-	my $localhost_info = localhost_info();
-	my $thank = thank_author();
-	my $imapsync_release = '';
-	$imapsync_release = check_last_release() if (not defined($releasecheck));
-        my $escape_char = ( 'MSWin32' eq $OSNAME ) ? '^' : '\\';
-        print <<"EOF";
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---dry                  : Makes imapsync doing nothing, just print what would 
-                         be done without --dry.
-
---host1       <string> : Source or "from" imap server. Mandatory.
---port1       <int>    : Port to connect on host1. Default is 143.
---user1       <string> : User to login on host1. Mandatory.
---showpasswords        : Shows passwords on output instead of "MASKED".
-                         Useful to restart a complete run by just reading a log.
---password1   <string> : Password for the user1.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : Port to connect on host2. Default is 143.
---user2       <string> : User to login on host2. Mandatory.
---password2   <string> : Password for the user2.
-
---passfile1   <string> : Password file for the user1. It must contain the 
-                         password on the first line. This option avoids to show 
-                         the password on the command line like --password1 does.
---passfile2   <string> : Password file for the user2. Contains the password.
---domain1     <string> : Domain on host1 (NTLM authentication).
---domain2     <string> : Domain on host2 (NTLM authentication).
---authuser1   <string> : User to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---authuser2   <string> : User to auth with on host2 (admin user).
---proxyauth1           : Use proxyauth on host1. Requires --authuser1.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user.
---proxyauth2           : Use proxyauth on host2. Requires --authuser2.
-                         Required by Sun/iPlanet/Netscape IMAP servers to
-                         be able to use an administrative user
-
---authmd51             : Use MD5 authentification for host1.
---authmd52             : Use MD5 authentification for host2.
---authmech1   <string> : Auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : Auth mechanism to use with host2. See --authmech1
---ssl1                 : Use an SSL connection on host1.
---ssl2                 : Use an SSL connection on host2.
---tls1                 : Use an TLS connection on host1.
---tls2                 : Use an TLS connection on host2.
---timeout    <int>     : Connections timeout in seconds. Default is 120.
-                         0 means no timeout.
-
---folder      <string> : Sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : Sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : Sync folders matching this regular expression
-                         Blancs like in "foo bar" have to be written "foo\\ bar"
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : Skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders.
-                         Have in mind that --regextrans2 is applied after prefix 
-                         and separator inversion.
-
---tmpdir      <string> : Where to store temporary files and subdirectories.
-                         Will be created if it doesn't exist.
-			 Default is system specific, Unix is /tmp but
-                         it's often small and deleted at reboot.
-                         --tmpdir /var/tmp should be better.
---pidfile     <string> : The file where imapsync pid is written.
---pidfilelocking       : Abort if pidfile already exists. Usefull to avoid 
-                         concurrent transfers on the same mailbox.
-
---prefix1     <string> : Remove prefix to all destination folders 
-                         (usually INBOX. or INBOX/ or an empty string "")
-                         you have to use --prefix1 if host1 imap server
-                         does not have NAMESPACE capability, all other
-                         cases are bad.
---prefix2     <string> : Add prefix to all host2 folders. See --prefix1
---sep1        <string> : Host1 separator in case NAMESPACE is not supported.
---sep2        <string> : Host2 separator in case NAMESPACE is not supported.
-
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example: 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example: 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
-
---delete               : Deletes messages on host1 server after a successful 
-                         transfer. Option --delete has the following behavior: 
-                         it marks messages as deleted with the IMAP flag 
-                         \\Deleted, then messages are really deleted with an 
-                         EXPUNGE IMAP command.
---delete2              : Delete messages in host2 that are not in
-                         host1 server. Useful for backup or pre-sync.
---delete2duplicates    : Delete messages in host2 that are duplicates.
-                         Works only without --useuid since duplicates are 
-                         detected with header part of each message.
---delete2folders       : Delete folders in host2 that are not in host1 server. 
-                         For safety, first try it like this (it is safe):
-			 --delete2folders --dry --justfolders --nofoldersizes
---delete2foldersonly   <regex>: Deleted only folders matching regex.
---delete2foldersbutnot <regex>: Do not delete folders matching regex.
-                         Example: --delete2foldersbutnot "/Tasks|Contacts|Foo/"
---noexpunge            : Do not expunge messages on host1.
-                         Expunge really deletes messages marked deleted.
-                         Expunge is made at the beginning, on host1 only. 
-                         Newly transferred messages are also expunged if 
-			 option --delete is given.
-                         No expunge is done on host2 account (unless --expunge2)
---expunge1             : Expunge messages on host1 after messages transfer.
---expunge2             : Expunge messages on host2 after messages transfer.
---uidexpunge2          : uidexpunge messages on the host2 account
-                         that are not on the host1 account, requires --delete2
-
---syncinternaldates    : Sets the internal dates on host2 same as host1.
-                         Turned on by default. Internal date is the date
-			 a message arrived on a host (mtime).
---idatefromheader      : Sets the internal dates on host2 same as the 
-                         "Date:" headers.
-
---maxsize     <int>    : Skip messages larger  (or equal) than <int> bytes
---minsize     <int>    : Skip messages smaller (or equal) than <int> bytes
---maxage      <int>    : Skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : Skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
-
---search      <string> : Selects only messages returned by this IMAP SEARCH 
-                         command. Applied on both sides.
---search1     <string> : Same as --search for selecting host1 messages only.
---search2     <string> : Same as --search for selecting host2 messages only.
-                         --search CRIT equals --search1 CRIT --search2 CRIT
-
---exitwhenover   <int> : Stop syncing when total bytes transferred reached.
-                         Gmail per day allows 2500000000 down 500000000 upload.
-
---maxlinelength <int>  : skip messages with line length longer than <int> bytes.
-                         RFC 2822 says it must be no more than 1000 bytes.
-
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
-
---subscribed           : Transfers subscribed folders.
---subscribe            : Subscribe to the folders transferred on the 
-                         host2 that are subscribed on host1. On by default.
---subscribe_all        : Subscribe to the folders transferred on the 
-                         host2 even if they are not subscribed on host1.
-
---nofoldersizes        : Do not calculate the size of each folder in bytes
-                         and message counts. Default is to calculate them.
---nofoldersizesatend   : Do not calculate the size of each folder in bytes
-                         and message counts at the end. Default is on.
---justfoldersizes      : Exit after having printed the folder sizes.
-
---syncacls             : Synchronises acls (Access Control Lists).
---nosyncacls           : Does not synchronize acls. This is the default.
-                         Acls in IMAP are not standardized, be careful.
-
---usecache             : Use cache to speedup.
---nousecache           : Do not use cache. Caveat: --useuid --nousecache creates
-                         duplicates on multiple runs.
---useuid               : Use uid instead of header as a criterium to recognize 
-                         messages. Option --usecache is then implied unless 
-                         --nousecache is used.  
-
---debug                : Debug mode.
---debugcontent         : Debug content of the messages transfered.
---debugflags           : Debug flags.
---debugimap1           : IMAP debug mode for host1. imap debug is very verbose.
---debugimap2           : IMAP debug mode for host2.
---debugimap            : IMAP debug mode for host1 and host2.
-
---version              : Print software version.
---noreleasecheck       : Do not check for new imapsync release (a http request).
---justconnect          : Just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justlogin            : Just login to both host1 and host2 with users 
-                         credentials, then exit.
---justfolders          : Do only things about folders (ignore messages).
-
---help                 : print this help.
-
-Example: to synchronize imap account "foo" on "imap.truc.org"
-                    to  imap account "bar" on "imap.trac.org"
-                    with foo password "secret1"
-                    and  bar password "secret2"
-
-$0 $escape_char
-   --host1 imap.truc.org --user1 foo --password1 secret1 $escape_char
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-$localhost_info
-$rcs
-$imapsync_release
-
-$thank
-EOF
-	return( 1 ) ;
-}
-
-sub usage_complete {
-	print <<'EOF' ;
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
-        
---skipsize             : Don't take message size into account to compare 
-                         messages on both sides. On by default.
-			 Use --no-skipsize for using size comparaison.
---allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-                         consider also --skipsize to avoid duplicate messages
-                         when running syncs more than one time per mailbox
-
---reconnectretry1 <int>: reconnect to host1 if connection is lost up to 
-                         <int> times per imap command (default is 3)
---reconnectretry2 <int>: same as --reconnectretry1 but for host2
---split1     <int>     : split the requests in several parts on host1.
-                         <int> is the number of messages handled per request.
-                         default is like --split1 500.
---split2     <int>     : same thing on host2.
-EOF
-	return(  ) ;
-}
-
-
-
-sub get_options {
-	my $numopt = scalar(@ARGV);
-	my $argv   = join("¤", @ARGV);
-	
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-
-	if($argv =~ m/-delete¤2/x) {
-		print "May be you mean --delete2 instead of --delete 2\n";
-		exit 1;
-	}
-        my $opt_ret = GetOptions(
-                                   "debug!"        => \$debug,
-                                   "debugLIST!"    => \$debugLIST,
-                                   "debugcontent!" => \$debugcontent,
-				   "debugsleep!"   => \$debugsleep,
-                                   "debugflags!"   => \$debugflags,
-                                   "debugimap!"    => \$debugimap,
-                                   "debugimap1!"   => \$debugimap1,
-                                   "debugimap2!"   => \$debugimap2,
-                                   "debugdev!"   => \$debugdev,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "domain1=s"   => \$domain1,
-                                   "domain2=s"   => \$domain2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-				   "authmd51!"   => \$authmd51,
-				   "authmd52!"   => \$authmd52,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "fixslash2!"  => \$fixslash2,
-                                   "fixInboxINBOX!" => \$fixInboxINBOX,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-				   "filterflags!" => \$filterflags,
-				   "flagsCase!"  => \$flagsCase,
-                                   "syncflagsaftercopy!" => \$syncflagsaftercopy,
-                                   "delete|delete1!" => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "delete2duplicates!" => \$delete2duplicates,
-				   "delete2folders!"    => \$delete2folders,
-				   "delete2foldersonly=s" => \$delete2foldersonly,
-				   "delete2foldersbutnot=s" => \$delete2foldersbutnot,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "idatefromheader!"   => \$idatefromheader,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "minsize=i"   => \$minsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-                                   "search=s"    => \$search,
-                                   "search1=s"   => \$search1,
-                                   "search2=s"   => \$search2,
-				   "foldersizes!" => \$foldersizes,
-				   "foldersizesatend!" => \$foldersizesatend,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "uidexpunge2!" => \$uidexpunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "subscribe_all!"  => \$subscribe_all,
-				   "justbanner!" => \$justbanner,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "wholeheaderifneeded!"   => \$wholeheaderifneeded,
-                                   "messageidnodomain!" => \$messageidnodomain,
-				   "skipsize!"   => \$skipsize,
-				   "allowsizemismatch!" => \$allowsizemismatch,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "ssl1_SSL_version=s" => \$ssl1_SSL_version,
-				   "ssl2_SSL_version=s" => \$ssl2_SSL_version,
-				   "tls1!"        => \$tls1,
-				   "tls2!"        => \$tls2,
-				   "uid1!"        => \$uid1,
-				   "uid2!"        => \$uid2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "proxyauth1"        => \$proxyauth1,
-				   "proxyauth2"        => \$proxyauth2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-				   "buffersize=i" => \$buffersize,
-				   "reconnectretry1=i" => \$reconnectretry1,
-				   "reconnectretry2=i" => \$reconnectretry2,
-				   "relogin1=i"  => \$relogin1,
-				   "relogin2=i"  => \$relogin2,
-                                   "tests"       => \$tests,
-                                   "tests_debug" => \$tests_debug,
-                                   "allow3xx!"   => \$allow3xx,
-                                   "justlogin!"  => \$justlogin,
-				   "tmpdir=s"    => \$tmpdir,
-				   "pidfile=s"    => \$pidfile,
-				   "pidfilelocking!"    => \$pidfilelocking,                                 
-				   "releasecheck!" => \$releasecheck,
-				   "modules_version!" => \$modules_version,
-				   "usecache!"    => \$usecache,
-                                   "cacheaftercopy!" => \$cacheaftercopy,
-				   "debugcache!" => \$debugcache,
-				   "useuid!"      => \$useuid,
-                                   "addheader!"   => \$addheader,
-                                   "exitwhenover=i" => \$exitwhenover,
-                                   "checkselectable!" => \$checkselectable,
-                                   "checkmessageexists!" => \$checkmessageexists,
-                                   "expungeaftereach!" => \$expungeaftereach,
-                                   "abletosearch!" => \$abletosearch,
-                                   "showpasswords!" => \$showpasswords,
-                                   "maxlinelength=i" => \$maxlinelength, 
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print imapsync_version(), "\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-	if ($tests_debug) {
-		$test_builder->no_ending(0);
-		tests_debug();
-		exit;
-	}
-	
-	$help = 1 if ! $numopt;
-	load_modules();
-
-	# exit with --help option or no option at all
-        usage(  ) and exit(  ) if ( $help or not $numopt ) ;
-
-	# don't go on if options are not all known.
-        exit( EX_USAGE(  ) ) unless ( $opt_ret ) ;
-	return(  ) ;
-}
-
-
-sub tests_debug {
-	
-      SKIP: {
-		skip "No test in normal run" if ( not $tests_debug );
-                tests_msgs_from_maxmin(  ) ;
-	}
-        return(  ) ;
-}
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-		tests_regexmess();
-		tests_flags_regex();
-		tests_permanentflags();
-		tests_flags_filter(  ) ;
-                tests_separator_invert(  ) ;
-		tests_imap2_folder_name();
-		tests_command_line_nopassword();
-		tests_good_date();
-		tests_max();
-		tests_remove_not_num();
-		tests_memory_consumption();
-		tests_is_a_release_number();
-		tests_imapsync_basename();
-		tests_list_keys_in_2_not_in_1();
-		tests_convert_sep_to_slash(  ) ;
-		tests_match_a_cache_file(  ) ;
-		tests_cache_map(  ) ;
-		tests_get_cache(  ) ;
-		tests_clean_cache(  ) ;
-		tests_clean_cache_2(  ) ;
-		tests_touch(  ) ;
-		tests_ucsecond(  ) ;
-		tests_flagsCase(  ) ;
-                tests_mkpath(  ) ;
-                tests_extract_header(  ) ;
-                tests_decompose_header(  ) ;
-                tests_epoch(  ) ;
-                tests_add_header(  ) ;
-                tests_cache_dir_fix(  ) ;
-                tests_filter_forbidden_characters(  ) ;
-                tests_cache_folder(  ) ;
-                tests_time_remaining(  ) ;
-                tests_decompose_regex(  ) ;
-                tests_Banner(  ) ;
-                tests_backtick(  ) ;
-                tests_bytes_display_string(  ) ;
-                tests_header_line_normalize(  ) ;
-                tests_fix_Inbox_INBOX_mapping(  ) ;
-                tests_max_line_length(  ) ;
-                tests_subject(  ) ;
-		tests_msgs_from_maxmin(  ) ;
-	}
-        return(  ) ;
-}
-
-
-
-# IMAPClient 3.xx ads
-
-package Mail::IMAPClient;
-
-sub Tls {
-	my $self  = shift ;
-	my $value = shift ;
-	if ( defined( $value ) ) { $self->{TLS} = $value }
-	return $self->{TLS};
-}
-
-sub Reconnect_counter {
-	my $self  = shift ;
-        my $value = shift ;
-	$self->{Reconnect_counter} = 0 if ( not defined( $self->{Reconnect_counter} ) ) ;
-	if ( defined( $value ) ) { $self->{Reconnect_counter} = $value }
-	return( $self->{Reconnect_counter} ) ;
-}
-
-
-sub Banner {
-	my $self  = shift ;
-	my $value = shift ;
-	if ( defined( $value ) ) { $self->{ BANNER } = $value }
-	return $self->{ BANNER };
-}
-
-sub capability_update {
-	my $self = shift ;
-	
-	delete $self->{CAPABILITY} ;
-	return( $self->capability ) ;
-}
-
diff --git a/W/patches/imapsync_minsize b/W/patches/imapsync_minsize
deleted file mode 100644
index 2bf76ba..0000000
--- a/W/patches/imapsync_minsize
+++ /dev/null
@@ -1,4079 +0,0 @@
-#!/usr/bin/perl
-
-# structure
-# pod documentation
-# pragmas
-# main program
-# global variables initialisation
-# default values
-# folder loop
-# subroutines
-# IMAPClient 2.2.9 overrides
-# IMAPClient 2.2.9 3.xx ads
-
-=pod
-
-=head1 NAME 
-
-imapsync - IMAP synchronisation, sync, copy or migration
-tool. Synchronise mailboxes between two imap servers. Good
-at IMAP migration. More than 36 different IMAP server softwares
-supported with success.
-
-$Revision: 1.350 $
-
-=head1 SYNOPSIS
-
-To synchronise imap account "foo" on "imap.truc.org"
-           to  imap account "bar" on "imap.trac.org"
-           with foo password "secret1"
-           and  bar password "secret2":
-
-  imapsync \
-   --host1 imap.truc.org --user1 foo --password1 secret1 \
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-=head1 INSTALL
-
- imapsync works fine under any Unix OS with perl.
- imapsync works fine under Windows (2000, XP) with ActiveState's 5.8 Perl
- or as a standalone binary software.
-
-imapsync is already available directly on the following distributions 
-(at least):
-FreeBSD, Debian, Ubuntu, Gentoo, NetBSD, Darwin, Mandriva and OpenBSD (yeah!).
-
- Get imapsync at
- http://www.linux-france.org/prj/imapsync/
-
- You'll find a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
- tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- The INSTALL file is also at 
- http://www.linux-france.org/prj/imapsync/INSTALL
-
- The freshmeat record is at http://freshmeat.net/projects/imapsync/
-
-=head1 USAGE
-
- imapsync [options]
-
-To get a description of each option just run imapsync like this:
-
-  imapsync --help
-  imapsync
-
-The option list:
-
-  imapsync [--host1 server1]  [--port1 <num>]
-           [--user1 <string>] [--passfile1 <string>]
-           [--host2 server2]  [--port2 <num>]
-           [--user2 <string>] [--passfile2 <string>]
-           [--ssl1] [--ssl2]
-	   [--tls1] [--tls2]
-           [--authmech1 <string>] [--authmech2 <string>] 
-           [--noauthmd5]
-           [--folder <string> --folder <string> ...]
-           [--folderrec <string> --folderrec <string> ...]
-           [--include <regex>] [--exclude <regex>]
-           [--prefix2 <string>] [--prefix1 <string>] 
-           [--regextrans2 <regex> --regextrans2 <regex> ...]
-           [--sep1 <char>]
-           [--sep2 <char>]
-           [--justfolders] [--justfoldersizes] [--justconnect] [--justbanner]
-           [--syncinternaldates]
-           [--idatefromheader]
-           [--buffersize  <int>]
-           [--syncacls]
-           [--regexmess <regex>] [--regexmess <regex>]
-           [--maxsize <int>]
-           [--minsize <int>]
-           [--maxage <int>]
-           [--minage <int>]
-           [--skipheader <regex>]
-           [--useheader <string>] [--useheader <string>]
-           [--skipsize] [--allowsizemismatch]
-           [--delete] [--delete2]
-           [--expunge] [--expunge1] [--expunge2] [--uidexpunge2]
-           [--subscribed] [--subscribe] [--subscribe_all] 
-           [--nofoldersizes]
-           [--dry]
-           [--debug] [--debugimap][--debugimap1][--debugimap2]
-           [--timeout <int>] [--fast]
-           [--split1] [--split2] 
-           [--reconnectretry1 <int>] [--reconnectretry2 <int>]
-	   [--pidfile <filepath>]
-	   [--tmpdir  <dirpath>]
-           [--version] [--help]
-  
-=cut
-# comment
-
-=pod
-
-=head1 DESCRIPTION
-
-The command imapsync is a tool allowing incremental and
-recursive imap transfer from one mailbox to another. 
-
-By default all folders are transferred, recursively.
-
-We sometimes need to transfer mailboxes from one imap server to
-another. This is called migration.
-
-imapsync is a good tool because it reduces the amount
-of data transferred by not transferring a given message if it
-is already on both sides. Same headers
-and the transfer is done only once. All flags are
-preserved, unread will stay unread, read will stay read,
-deleted will stay deleted. You can stop the transfer at any
-time and restart it later, imapsync works well with bad 
-connections. imapsync is CPU hungry so nice and renice 
-commands can be a good help. imapsync can be memory hungry too,
-especially with large messages.
-
-You can decide to delete the messages from the source mailbox
-after a successful transfer (it is a good feature when migrating).
-In that case, use the --delete --expunge1 options.
-
-You can also just synchronize a mailbox A from another mailbox B
-in case you just want to keep a "live" copy of B in A (--delete2
-may help)
-
-=head1 OPTIONS
-
-To get a description of each option just invoke: 
-
-imapsync --help
-
-=head1 HISTORY
-
-I wrote imapsync because an enterprise (basystemes) paid me to install
-a new imap server without losing huge old mailboxes located on a far
-away remote imap server accessible by a low bandwidth link. The tool
-imapcp (written in python) could not help me because I had to verify
-every mailbox was well transferred and delete it after a good
-transfer. imapsync started life as a copy_folder.pl patch.
-The tool copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (in the examples/ directory of the tarball).
-
-=head1 EXAMPLE
-
-While working on imapsync parameters please run imapsync in
-dry mode (no modification induced) with the --dry
-option. Nothing bad can be done this way.
-
-To synchronize the imap account "buddy" (with password "secret1") 
-on host "imap.src.fr" to the imap account "max" (with password "secret2") 
-on host "imap.dest.fr":
-
- imapsync --host1 imap.src.fr  --user1 buddy --password1 secret1 \
-          --host2 imap.dest.fr --user2 max   --password2 secret2
-
-Then you will have max's mailbox updated from buddy's
-mailbox.
-
-=head1 SECURITY
-
-You can use --passfile1  instead of --password1 to give the
-password since it is safer. With --password1 option any user 
-on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like $PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-imasync is not totally protected against sniffers on the
-network since passwords may be transferred in plain text
-if CRAM-MD5 is not supported by your imap servers.  Use
---ssl1 (or --tls1) and --ssl2 (or --tls2) to enable 
-encryption on host1 and host2.
-
-You may authenticate as one user (typically an admin user),
-but be authorized as someone else, which means you don't
-need to know every user's personal password.  Specify
---authuser1 "adminuser" to enable this on host1.  In this
-case, --authmech1 PLAIN will be used by default since it
-is the only way to go for now. So don't use --authmech1 SOMETHING
-with --authuser1 "adminuser", it will not work.
-Same behavior with the --authuser2 option.
-
-
-=head1 EXIT STATUS
-
-imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-
-So if you have an unreliable internet connection, you can use this loop 
-in a Bourne shell:
-
-        while ! imapsync ...; do 
-              echo imapsync not complete
-        done
-
-=head1 LICENSE
-
-imapsync is free, gratis and open source software cover by
-the Do What The Fuck You Want To Public License (WTFPL).
-See COPYING file included in the distribution or the web site
-http://sam.zoy.org/wtfpl/COPYING
-
-=head1 MAILING-LIST
-
-The public mailing-list may be the best way to get support.
-
-To write on the mailing-list, the address is:
-<imapsync@linux-france.org>
-
-To subscribe, send a message to:
-<imapsync-subscribe@listes.linux-france.org>
-
-To unsubscribe, send a message to:
-<imapsync-unsubscribe@listes.linux-france.org>
-
-To contact the person in charge for the list:
-<imapsync-request@listes.linux-france.org>
-
-The list archives may be available at:
-http://www.linux-france.org/prj/imapsync_list/
-So consider that the list is public, anyone
-can see your post. Use a pseudonym or do not
-post to this list if you want to stay private.
-
-Thank you for your participation.
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <lamiral@linux-france.org>
-
-Feedback good or bad is always welcome.
-
-The newsgroup comp.mail.imap may be a good place to talk about
-imapsync. I read it when imapsync is concerned.
-A better place is the public imapsync mailing-list
-(see below).
-
-Gilles LAMIRAL earns his living writing, installing,
-configuring and teaching free, open and gratis
-softwares. Do not hesitate to pay him for that services.
-
-=head1 BUG REPORT GUIDELINES
-
-Help us to help you: follow the following guidelines.
-
-Report any bugs or feature requests to the public mailing-list 
-or to the author.
-
-Before reporting bugs, read the FAQ, the README and the
-TODO files. http://www.linux-france.org/prj/imapsync/
-
-Upgrade to last imapsync release, maybe the bug
-is already fixed.
-
-Upgrade to last Mail-IMAPClient Perl module.
-http://search.cpan.org/dist/Mail-IMAPClient/
-maybe the bug is already fixed.
-
-Make a good title with word "imapsync" in it (my spam filter won't filter it), 
-Don't write an email title with just "imapsync" or "problem",
-a good title is made of keywords summary, not too long (one visible line).
-
-Don't write imapsync in uppercase in the email title, we'll
-know you run windows(tm) and you haven't read the README yet.
-
-Help us to help you: in your report, please include:
-
- - imapsync version.
-
- - output given with --debug --debugimap near the failure point.
-   Isolate a message or two in a folder 'BUG' and use 
-
-     imapsync ... --folder 'BUG' --debug --debugimap 
-
- - imap server software on both side and their version number.
-
- - imapsync with all the options you use,  the full command line
-   you use (except the passwords of course). 
-
- - IMAPClient.pm version.
-
- - operating system running imapsync.
-
- - operating systems on both sides and the third side in case
-   you run imapsync on a foreign host from the both.
-
- - virtual software context (vmware, xen etc.)
-
-Most of those values can be found as a copy/paste at the begining of the output.
-
-One time in your life, read the paper 
-"How To Ask Questions The Smart Way"
-http://www.catb.org/~esr/faqs/smart-questions.html
-and then forget it.
-
-=head1 IMAP SERVERS 
-
-Failure stories reported with the following 4 imap servers:
-
- - MailEnable 1.54 (Proprietary) http://www.mailenable.com/
- - DBMail 0.9, 2.0.7 (GPL). But DBMail 1.2.1 works.
-   Patient and confident testers are welcome.
- - dkimap4 2.39
- - Imail 7.04 (maybe).
-
-Success stories reported with the following 36 imap servers 
-(software names are in alphabetic order): 
-
- - 1und1 H mimap1 84498 [host1]
- - Archiveopteryx 2.03, 2.04, 2.09, 2.10 [host2], 3.0.0 [host2]
-   (OSL 3.0) http://www.archiveopteryx.org/
- - BincImap 1.2.3 (GPL) (http://www.bincimap.org/)
- - CommuniGatePro server (Redhat 8.0) (Solaris), CommuniGate Pro 5.2.17[host2] (CentOS 5.4)
- - Courier IMAP 1.5.1, 2.2.0, 2.1.1, 2.2.1, 3.0.8, 3.0.3, 4.1.1 (GPL) 
-   (http://www.courier-mta.org/)
- - Critical Path (7.0.020)
- - Cyrus IMAP 1.5, 1.6, 2.1, 2.1.15, 2.1.16, 2.1.18 
-   2.2.1, 2.2.2-BETA, 2.2.10, 2.2.12, 
-   v2.2.3-Invoca-RPM-2.2.3-8,
-   2.3-alpha (OSI Approved),
-   v2.2.12-Invoca-RPM-2.2.12-3.RHEL4.1,
-   2.2.13,
-   v2.3.1-Invoca-RPM-2.3.1-2.7.fc5,
-   v2.3.7,
-   (http://asg.web.cmu.edu/cyrus/)
- - David Tobit V8 (proprietary Message system).
- - DBMail 1.2.1, 2.0.4, 2.0.9, 2.2rc1 (GPL) (http://www.dbmail.org/).
-   2.0.7 seems buggy.
- - Deerfield VisNetic MailServer 5.8.6 [host1]
- - Domino (Notes) 4.61[host1], 6.5, 5.0.6, 5.0.7, 7.0.2, 6.0.2CF1, 7.0.1[host1], 8.0.1[host1]
- - Dovecot 0.99.10.4, 0.99.14, 0.99.14-8.fc4, 1.0-0.beta2.7, 
-   1.0.0 [dest/source] (LGPL) (http://www.dovecot.org/)
- - Eudora WorldMail v2
- - GMX IMAP4 StreamProxy.
- - Groupwise IMAP (Novell) 6.x and 7.0. Buggy so see the FAQ.
- - iPlanet Messaging server 4.15, 5.1, 5.2
- - IMail 7.15 (Ipswitch/Win2003), 8.12
- - MDaemon 7.0.1, 8.0.2, 8.1, 9.5.4 (Windows server 2003 R2 platform)
- - Mercury 4.1 (Windows server 2000 platform)
- - Microsoft Exchange Server 5.5, 6.0.6249.0[host1], 6.0.6487.0[host1], 
-   6.5.7638.1 [host2], Exchange 2007 SP1 (with Update Rollup 2), 
-   Exchange2007-EP-SP2, 
-   Exchange 2010 RTM (Release to Manufacturing) [host2]
- - Netscape Mail Server 3.6 (Wintel !)
- - Netscape Messaging Server 4.15 Patch 7
- - OpenMail IMAP server B.07.00.k0 (Samsung Contact ?)
- - OpenWave
- - Qualcomm Worldmail (NT)
- - Rockliffe Mailsite 5.3.11, 4.5.6
- - Samsung Contact IMAP server 8.5.0
- - Scalix v10.1, 10.0.1.3, 11.0.0.431
- - SmarterMail, Smarter Mail 5.0 Enterprise.
- - SunONE Messaging server 5.2, 6.0 (SUN JES - Java Enterprise System)
- - Sun Java(tm) System Messaging Server 6.2-2.05,  6.2-7.05
- - Sun Messaging Server 6.3
- - Surgemail 3.6f5-5
- - UW-imap servers (imap-2000b) rijkkramer IMAP4rev1 2000.287
-   (RedHat uses UW like 2003.338rh), v12.264 Solaris 5.7 (OSI Approved) 
-   (http://www.washington.edu/imap/)
- - UW - QMail v2.1
- - Imap part of TCP/IP suite of VMS 7.3.2
- - Zimbra-IMAP 3.0.1 GA 160, 3.1.0 Build 279, 4.0.5, 4.5.2, 4.5.6, 5.5, 6.x
-
-Please report to the author any success or bad story with
-imapsync and do not forget to mention the IMAP server
-software names and version on both sides. This will help
-future users. To help the author maintaining this section
-report the two lines at the begining of the output if they
-are useful to know the softwares. Example:
-
- Host1 software:* OK louloutte Cyrus IMAP4 v1.5.19 server ready
- Host2 software:* OK Courier-IMAP ready
-
-You can use option --justconnect to get those lines.
-Example:
-
-  imapsync --host1 imap.troc.org --host2 imap.trac.org --justconnect
-
-Please rate imapsync at http://freshmeat.net/projects/imapsync/
-or better give the author a book, he likes books:
-http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
-(or its paypal account gilles.lamiral@laposte.net)
-
-=head1 HUGE MIGRATION
-
-Pay special attention to options 
---subscribed
---subscribe
---delete
---delete2
---expunge
---expunge1
---expunge2
---uidexpunge2
---maxage
---minage
---maxsize
---useheader
---fast
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.csv (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.csv file contains:
-
-user0001;password0001;user0002;password0002
-user0011;password0011;user0012;password0012
-...
-
-And the shell program is just:
-
- { while IFS=';' read  u1 p1 u2 p2; do 
-	imapsync --user1 "$u1" --password1 "$p1" --user2 "$u2" --password2 "$p2" ...
- done ; } < file.csv
-
-Welcome in shell programming !
-
-=head1 Hacking
-
-Feel free to hack imapsync as the WTFPL Licence permits it.
-
-=head1 Links
-
-Entries for imapsync:
-  http://www.imap.org/products/showall.php
-
-
-=head1 SIMILAR SOFTWARES
-
-  imap_tools    : http://www.athensfbc.com/imap_tools
-  offlineimap   : http://software.complete.org/offlineimap
-  mailsync      : http://mailsync.sourceforge.net/
-  imapxfer      : http://www.washington.edu/imap/
-                   part of the imap-utils from UW.
-  mailutil      : replace imapxfer in 
-                   part of the imap-utils from UW.
-                  http://www.gsp.com/cgi-bin/man.cgi?topic=mailutil
-  imaprepl      : http://www.bl0rg.net/software/
-                  http://freshmeat.net/projects/imap-repl/
-  imap_migrate  : http://freshmeat.net/projects/imapmigration/
-  imapcopy      : http://home.arcor.de/armin.diehl/imapcopy/imapcopy.html
-  migrationtool : http://sourceforge.net/projects/migrationtool/
-  imapmigrate   : http://sourceforge.net/projects/cyrus-utils/
-  wonko_imapsync: http://wonko.com/article/554
-                  see also tools/wonko_ruby_imapsync
-  pop2imap      : http://www.linux-france.org/prj/pop2imap/
-
-
-Feedback (good or bad) will often be welcome.
-
-$Id: imapsync,v 1.350 2010/09/06 01:05:09 gilles Exp gilles $
-
-=cut
-
-
-# pragmas
-
-use warnings;
-++$|;
-use strict;
-use Carp;
-use Getopt::Long;
-use Mail::IMAPClient;
-use Digest::MD5  qw(md5_base64);
-#use Term::ReadKey;
-#use IO::Socket::SSL;
-use MIME::Base64;
-use English;
-use POSIX qw(uname);
-use Fcntl;
-use File::Spec;
-use File::Path qw(mkpath rmtree);
-use IO::Socket qw(:crlf SOL_SOCKET SO_KEEPALIVE);
-use Errno qw(EAGAIN EPIPE ECONNRESET);
-
-use Test::More 'no_plan';
-
-eval { require 'usr/include/sysexits.ph' };
-
-# global variables
-
-my(
-        $rcs, $pidfile,
-	$debug, $debugimap, $debugimap1, $debugimap2, $nb_errors,
-	$host1, $host2, $port1, $port2,
-	$user1, $user2, $password1, $password2, $passfile1, $passfile2,
-        @folder, @include, @exclude, @folderrec,
-        $prefix1, $prefix2, 
-        @regextrans2, @regexmess, @regexflag, 
-        $sep1, $sep2,
-	$syncinternaldates,
-        $idatefromheader,
-	$usedatemanip,
-        $syncacls,
-        $fastio1, $fastio2, 
-	$maxsize, $minsize, $maxage, $minage, 
-        $skipheader, @useheader,
-        $skipsize, $allowsizemismatch, $foldersizes, $buffersize,
-	$delete, $delete2,
-        $expunge, $expunge1, $expunge2, $uidexpunge2, $dry,
-        $justfoldersizes,
-        $authmd5,
-        $subscribed, $subscribe, $subscribe_all,
-	$version, $help, 
-        $justconnect, $justfolders, $justbanner,
-        $fast,
-        $total_bytes_transferred,
-        $total_bytes_skipped,
-        $total_bytes_error,
-        $nb_msg_transferred, 
-	$nb_msg_skipped, 
-	$nb_msg_skipped_dry_mode,
-	$h1_nb_msg_duplicate,
-	$h2_nb_msg_duplicate,
-	$h1_nb_msg_noheader,
-	$h2_nb_msg_noheader,
-	$h1_total_bytes_duplicate,
-	$h2_total_bytes_duplicate,
-	$h1_nb_msg_deleted,
-	$h2_nb_msg_deleted,
-        $timeout,
-	$timestart, $timeend, $timediff,
-        $timesize, $timebefore,
-        $ssl1, $ssl2,
-	$tls1, $tls2,
-        $authuser1, $authuser2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-	$tests, $test_builder, $tests_debug,
-	$allow3xx, $justlogin,
-	$tmpdir,
-	$releasecheck,
-);
-
-# main program
-
-# global variables initialisation
-
-$rcs = '$Id: imapsync,v 1.350 2010/09/06 01:05:09 gilles Exp gilles $ ';
-
-$total_bytes_transferred   = 0;
-$total_bytes_skipped = 0;
-$total_bytes_error   = 0;
-$nb_msg_transferred = 0;
-$nb_msg_skipped = $nb_msg_skipped_dry_mode = 0;
-$h1_nb_msg_deleted = $h2_nb_msg_deleted = 0;
-$h1_nb_msg_duplicate = $h2_nb_msg_duplicate = 0;
-$h1_nb_msg_noheader = $h2_nb_msg_noheader = 0;
-$h1_total_bytes_duplicate = $h2_total_bytes_duplicate = 0;
-
-$nb_errors = 0;
-
-unless(defined(&_SYSEXITS_H)) {
-	# 64 on my linux box.
-	eval 'sub EX_USAGE () {64;}' unless defined(&EX_USAGE);
-}
-
-# @ARGV will be eat by get_options()
-my @argv_copy = @ARGV;
-
-get_options();
-
-$releasecheck = defined($releasecheck) ? $releasecheck : 1;
-my $warn_release = ($releasecheck) ? check_last_release() : '';
-
-# default values
-
-$tmpdir ||= File::Spec->tmpdir();
-$pidfile ||= $tmpdir . '/imapsync.pid';
-
-# allow Mail::IMAPClient 3.0.xx by default
-$allow3xx = defined($allow3xx) ? $allow3xx : 1;
-
-print banner_imapsync(@argv_copy);
-
-print "Temp directory is $tmpdir\n";
-
-is_valid_directory($tmpdir);
-write_pidfile($pidfile) if ($pidfile);
-
-print "Modules version list:\n", modules_VERSION(), "\n";
-check_lib_version() or 
-  die "imapsync needs perl lib Mail::IMAPClient release 2.2.9, or 3.0.25 or superior \n";
-
-exit_clean(0) if ($justbanner);
-
-# By default, 1000 at a time, not more.
-$split1 ||= 1000;
-$split2 ||= 1000;
-
-$host1 || missing_option("--host1") ;
-$port1 ||= (defined $ssl1 and !defined $tls1) ? 993 : 143;
-
-$host2 || missing_option("--host2") ;
-$port2 ||= (defined $ssl2 && !defined $tls2) ? 993 : 143;
-
-$debugimap1 = $debugimap2 = 1 if ($debugimap);
-
-# By default, don't take size to compare 
-$skipsize = (defined $skipsize) ? $skipsize : 1;
-
-sub connect_imap {
-	my($host, $port, $debugimap, $ssl, $tls) = @_;
-	my $imap = Mail::IMAPClient->new();
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Debug($debugimap);
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Can not open imap connection on [$host]: $@\n");	
-}
-
-
-if ($justconnect) {
-	justconnect();
-	exit_clean(0);
-}
-
-$user1 || missing_option("--user1");
-$user2 || missing_option("--user2");
-
-$syncinternaldates = defined($syncinternaldates) ? $syncinternaldates : 1;
-
-if($idatefromheader) {
-	print "Turned ON idatefromheader, ",
-	      "will set the internal dates on host2 from the 'Date:' header line.\n";
-	$syncinternaldates = 0;
-
-}
-if ($syncinternaldates) {
-	print "Turned ON syncinternaldates, ",
-	      "will set the internal dates (arrival dates) on host2 same as host1.\n";
-}else{
-	print "Turned OFF syncinternaldates\n";
-}
-
-
-if(defined($authmd5) and not($authmd5)) {
-	$authmech1 ||= 'LOGIN';
-	$authmech2 ||= 'LOGIN';
-}
-else{
-	$authmech1 ||= $authuser1 ? 'PLAIN' : 'CRAM-MD5';
-	$authmech2 ||= $authuser2 ? 'PLAIN' : 'CRAM-MD5';
-}
-
-$authmech1 = uc($authmech1);
-$authmech2 = uc($authmech2);
-
-$authuser1 ||= $user1;
-$authuser2 ||= $user2;
-
-print "Will try to use $authmech1 authentication on host1\n";
-print "Will try to use $authmech2 authentication on host2\n";
-
-$syncacls = (defined($syncacls)) ? $syncacls : 0;
-$foldersizes = (defined($foldersizes)) ? $foldersizes : 1;
-
-$fastio1 = (defined($fastio1)) ? $fastio1 : 0;
-$fastio2 = (defined($fastio2)) ? $fastio2 : 0;
-
-$reconnectretry1 = (defined($reconnectretry1)) ? $reconnectretry1 : 3;
-$reconnectretry2 = (defined($reconnectretry2)) ? $reconnectretry2 : 3;
-
-@useheader = ("ALL") unless (@useheader);
-
-print "Host1: imap server [$host1] port [$port1] user [$user1]\n";
-print "Host2: imap server [$host2] port [$port2] user [$user2]\n";
-
-
-sub ask_for_password {
-	my ($user, $host) = @_;
-	print "What's the password for $user\@$host? ";
-	Term::ReadKey::ReadMode(2);
-	my $password = <>;
-	chomp $password;
-	printf "\n";
-	Term::ReadKey::ReadMode(0);
-	return $password;
-}
-
-
-$password1 || $passfile1 || do {
-	$password1 = ask_for_password($authuser1 || $user1, $host1);
-};
-
-$password1 = (defined($passfile1)) ? firstline ($passfile1) : $password1;
-
-$password2 || $passfile2 || do {
-	$password2 = ask_for_password($authuser2 || $user2, $host2);
-};
-
-$password2 = (defined($passfile2)) ? firstline ($passfile2) : $password2;
-
-my $imap1 = ();
-my $imap2 = ();
-
-$timestart = time();
-$timebefore = $timestart;
-
-$debugimap1 and print "Host1 connection\n";
-$imap1 = login_imap($host1, $port1, $user1, $password1, 
-		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
-		   $authmech1, $authuser1, $reconnectretry1);
-
-$debugimap2 and print "Host2 connection\n";
-$imap2 = login_imap($host2, $port2, $user2, $password2, 
-		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
-		 $authmech2, $authuser2, $reconnectretry2);
-
-#  history
-
-$debug and print "Host1 Buffer I/O: ", $imap1->Buffer(), "\n";
-$debug and print "Host2 Buffer I/O: ", $imap2->Buffer(), "\n";
-
-
-sub login_imap {
-	my($host, $port, $user, $password, 
-	   $debugimap, $timeout, $fastio, 
-	   $ssl, $tls, $authmech, $authuser, $reconnectretry) = @_;
-	my ($imap);
-	
-	$imap = Mail::IMAPClient->new();
-	
-	$imap->Ssl($ssl) if ($ssl);
-	$imap->Tls($tls) if ($tls);
-	$imap->Clear(5);
-	$imap->Server($host);
-	$imap->Port($port);
-	$imap->Fast_io($fastio);
-	$imap->Buffer($buffersize || 4096);
-	$imap->Uid(1);
-	$imap->Peek(1);
-	$imap->Debug($debugimap);
-	$timeout and $imap->Timeout($timeout);
-
-	$imap->Reconnectretry($reconnectretry) if ($reconnectretry);
-
-	#$imap->connect()
-	myconnect($imap)
-	  or die_clean("Can not open imap connection on [$host] with user [$user]: $@\n");
-	
-	print "Banner: ", server_banner($imap);
-	
-	if ($imap->has_capability("AUTH=$authmech")
-	    or $imap->has_capability($authmech)
-	   ) {
-		printf("Host %s says it has CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-	} 
-	else {
-		printf("Host %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-		       $imap->Server, $authmech);
-		if ($authmech eq 'PLAIN') {
-			print "Frequently PLAIN is only supported with SSL, ",
-			  "try --ssl1 or --ssl2 option\n";
-		}
-	}
-	
-	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
-	
-
-	$imap->User($user);
-	$imap->Authuser($authuser);
-	$imap->Password($password);
-	unless ($imap->login()) {
-		my $info  = "Error login: [$host] with user [$user] auth";
-		my $einfo = $imap->LastError || @{$imap->History}[-1];
-		chomp($einfo);
-		my $error = "$info [$authmech]: $einfo\n";
-		print $error; # note: duplicating error on stdout/stderr
-		die_clean($error) if ($authmech eq 'LOGIN' or $imap->IsUnconnected() or $authuser);
-		print "Trying LOGIN Auth mechanism on [$host] with user [$user]\n";
-		$imap->Authmechanism("");
-		$imap->login() or
-		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n");
-	}
-	print "Success login on [$host] with user [$user] auth [$authmech]\n";
-	return($imap);
-}
-
-sub plainauth() {
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = sprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", "");
-}
-
-
-sub server_banner {
-	my $imap = shift;
-	my $banner = $imap->Banner() ||  "No banner\n";
-	return $banner;
- }
-
-die_clean() unless $imap1->IsAuthenticated();
-print "Host1: state Authenticated\n";
-die_clean() unless   $imap2->IsAuthenticated();
-print "Host2: state Authenticated\n";
-
-print "Host1 capability: ", join(" ", $imap1->capability_update()), "\n";
-print "Host2 capability: ", join(" ", $imap2->capability_update()), "\n";
-
-
-exit_clean(0) if ($justlogin);
-
-$split1 and $imap1->Split($split1);
-$split2 and $imap2->Split($split2);
-
-# 
-# Folder stuff
-#
-
-my (@h1_folders, %requested_folder, 
-@h2_folders, @h2_folders_list, %h2_folders_list, %subscribed_folder, %h2_folders);
-
-sub tests_folder_routines {
-	ok( !give_requested_folders()                ,"no requested folders"  );
-	ok( !is_requested_folder('folder_foo')                                );
-	ok(  add_to_requested_folders('folder_foo')                           );
-	ok(  is_requested_folder('folder_foo')                                );
-	ok( !is_requested_folder('folder_NO_EXIST')                           );
-	ok( !remove_from_requested_folders('folder_foo'), "removed folder_foo");
-	ok( !is_requested_folder('folder_foo')                                );
-	my @f;
-	ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f");
-	ok(  is_requested_folder('folder_bar')                                );
-	ok(  is_requested_folder('folder_toto')                               );
-	ok(  remove_from_requested_folders('folder_toto')                     );
-	ok( !is_requested_folder('folder_toto')                               );
-	ok( init_requested_folders()                 , 'empty requested folders');
-	ok( !give_requested_folders()                , 'no requested folders'  );
-}
-
-sub give_requested_folders {
-	return(keys(%requested_folder));
-}
-
-sub init_requested_folders {
-	
-	%requested_folder = ();
-	return(1);
-	
-}
-
-sub is_requested_folder {
-	my ( $folder ) = @_;
-	
-	defined( $requested_folder{ $folder } );
-}
-
-
-sub add_to_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder ( @wanted_folders ) {
-	 	++$requested_folder{ $folder };
-	}
-	return( keys( %requested_folder ) );
-}
-
-sub remove_from_requested_folders {
-	my @wanted_folders = @_;
-	
-	foreach my $folder (@wanted_folders) {
-	 	delete $requested_folder{$folder};
-	}
-	return( keys(%requested_folder) );
-}
-
-
-# Make a hash of subscribed folders in source server.
-map { $subscribed_folder{$_} = 1 } $imap1->subscribed();
-
-
-
-
-if (scalar(@folder) or $subscribed or scalar(@folderrec)) {
-	# folders given by option --folder
-	if (scalar(@folder)) {
-		add_to_requested_folders(@folder);
-	}
-	
-	# option --subscribed
-	if ($subscribed) {
-		add_to_requested_folders(keys (%subscribed_folder));
-	}
-	
-	# option --folderrec
-	if (scalar(@folderrec)) {
-		foreach my $folderrec (@folderrec) {
-			add_to_requested_folders($imap1->folders($folderrec));
-		}
-	}
-}
-else {
-	
-	# no include, no folder/subscribed/folderrec options => all folders
-	if (not scalar(@include)) {
-		my @all_source_folders = sort $imap1->folders();
-		add_to_requested_folders(@all_source_folders);
-	}
-}
-
-
-# consider (optional) includes and excludes
-if (scalar(@include)) {
-	my @all_source_folders = sort $imap1->folders();
-	foreach my $include (@include) {
-		my @included_folders = grep /$include/, @all_source_folders;
-		add_to_requested_folders(@included_folders);
-		print "Including folders matching pattern '$include': @included_folders\n";
-	}
-}
-
-if (scalar(@exclude)) {
-	foreach my $exclude (@exclude) {
-		my @requested_folder = sort(keys(%requested_folder));
-		my @excluded_folders = grep /$exclude/, @requested_folder;
-		remove_from_requested_folders(@excluded_folders);
-		print "Excluding folders matching pattern '$exclude': @excluded_folders\n";
-	}
-}
-
-# Remove no selectable folders
-
-foreach my $folder (keys(%requested_folder)) {
-        if ( not $imap1->selectable($folder)) {
-		print "Warning: ignoring folder $folder because it is not selectable\n";
-                remove_from_requested_folders($folder);
-        }
-}
-
-
-my @requested_folder = sort(keys(%requested_folder));
-
-@h1_folders = @requested_folder;
-
-sub compare_lists {
-	my ($list_1_ref, $list_2_ref) = @_;
-	
-	return(-1) if ((not defined($list_1_ref)) and defined($list_2_ref));
-	return(0)  if ((not defined($list_1_ref)) and not defined($list_2_ref)); # end if no list
-	return(1)  if (not defined($list_2_ref)); # end if only one list
-	
-	if (not ref($list_1_ref)) {$list_1_ref = [$list_1_ref]};
-	if (not ref($list_2_ref)) {$list_2_ref = [$list_2_ref]};
-
-
-	my $last_used_indice = -1;
-	#print "\$#$list_1_ref:", $#$list_1_ref, "\n";
-	#print "\$#$list_2_ref:", $#$list_2_ref, "\n";
-	ELEMENT:
-	foreach my $indice ( 0 .. $#$list_1_ref ) {
-		$last_used_indice = $indice;
-		
-		# End of list_2
-		return 1 if ($indice > $#$list_2_ref);
-		
-		my $element_list_1 = $list_1_ref->[$indice];
-		my $element_list_2 = $list_2_ref->[$indice];
-		my $balance = $element_list_1 cmp $element_list_2 ;
-		next ELEMENT if ($balance == 0) ;
-		return $balance;
-	}
-	# each element equal until last indice of list_1
-	return -1 if ($last_used_indice < $#$list_2_ref);
-	
-	# same size, each element equal
-	return 0
-}
-
-sub tests_compare_lists {
-
-	
-	my $empty_list_ref = [];
-	
-	ok( 0 == compare_lists()               , 'compare_lists, no args');
-	ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-	ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-	ok(-1 == compare_lists(undef , [])     , 'compare_lists, undef < []');
-	ok(-1 == compare_lists(undef , [1])    , 'compare_lists, undef < [1]');
-	ok(-1 == compare_lists(undef , [0])    , 'compare_lists, undef < [0]');
-      	ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-	ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-
-	ok(-1 == compare_lists([] , [1])        , 'compare_lists, [] < [1]');
-	ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
-
-	
-	ok( 0 == compare_lists([1],  1 )          , "compare_lists, [1] =  1 ") ;
-	ok( 0 == compare_lists( 1 , [1])          , "compare_lists,  1  = [1]") ;
-	ok( 0 == compare_lists( 1 ,  1 )          , "compare_lists,  1  =  1 ") ;
-	ok(-1 == compare_lists( 0 ,  1 )          , "compare_lists,  0  <  1 ") ;
-	ok(-1 == compare_lists(-1 ,  0 )          , "compare_lists, -1  <  0 ") ;
-	ok(-1 == compare_lists( 1 ,  2 )          , "compare_lists,  1  <  2 ") ;
-	ok(+1 == compare_lists( 2 ,  1 )          , "compare_lists,  2  >  1 ") ;
-
-
-	ok( 0 == compare_lists([1,2], [1,2])   , "compare_lists, [1,2] = [1,2]") ;
-	ok(-1 == compare_lists([1], [1,2])     , "compare_lists, [1] < [1,2]") ;
-	ok(-1 == compare_lists([1], [1,1])     , "compare_lists, [1] < [1,1]") ;
-	ok(+1 == compare_lists([1, 1], [1])    , "compare_lists, [1, 1] > [1]") ;
-	ok( 0 == compare_lists([1 .. 20_000] , [1 .. 20_000])
-                                               , "compare_lists, [1..20_000] = [1..20_000]") ;
-	ok(-1 == compare_lists([1], [3])       , 'compare_lists, [1] < [3]') ;
-	ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-	ok(+1 == compare_lists([3], [1])       , 'compare_lists, [3] > [1]') ;
-	
-	ok(-1 == compare_lists(["a"], ["b"])   , 'compare_lists, ["a"] < ["b"]') ;
-	ok( 0 == compare_lists(["a"], ["a"])   , 'compare_lists, ["a"] = ["a"]') ;
-	ok( 0 == compare_lists(["ab"], ["ab"]) , 'compare_lists, ["ab"] = ["ab"]') ;
-	ok(+1 == compare_lists(["b"], ["a"])   , 'compare_lists, ["b"] > ["a"]') ;
-	ok(-1 == compare_lists(["a"], ["aa"])  , 'compare_lists, ["a"] < ["aa"]') ;
-	ok(-1 == compare_lists(["a"], ["a", "a"]), 'compare_lists, ["a"] < ["a", "a"]') ;
-	ok( 0 == compare_lists([split(" ", "a b")], ["a", "b"]), 'compare_lists, split') ;
-	ok( 0 == compare_lists([sort split(" ", "b a")], ["a", "b"]), 'compare_lists, sort split') ;
-}
-
-
-my($h1_sep,$h2_sep); 
-# what are the private folders separators for each server ?
-
-$debug and print "Getting separators\n";
-$h1_sep = get_separator($imap1, $sep1, "--sep1");
-$h2_sep = get_separator($imap2, $sep2, "--sep2");
-
-#my $h1_namespace = $imap1->namespace();
-#my $h2_namespace = $imap2->namespace();
-#$debug and print "Host1 namespace:\n", Data::Dumper->Dump([$h1_namespace]);
-#$debug and print "Host2 namespace:\n", Data::Dumper->Dump([$h2_namespace]);
-
-my($h1_prefix,$h2_prefix); 
-$h1_prefix = get_prefix($imap1, $prefix1, "--prefix1");
-$h2_prefix = get_prefix($imap2, $prefix2, "--prefix2");
-
-sub get_prefix {
-	my($imap, $prefix_in, $prefix_opt) = @_;
-	my($prefix_out);
-	
-	$debug and print "Getting prefix namespace\n";
-	if (defined($prefix_in)) {
-		print "Using [$prefix_in] given by $prefix_opt\n";
-		$prefix_out = $prefix_in;
-		return($prefix_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		my $r_namespace = $imap->namespace();
-		$prefix_out = $r_namespace->[0][0][0];
-		return($prefix_out);
-	}
-	else{
-		print 
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the prefix namespace with the $prefix_opt option\n";
-		exit_clean(1);
-	}
-}
-
-
-sub get_separator {
-	my($imap, $sep_in, $sep_opt) = @_;
-	my($sep_out);
-	
-	
-	if ($sep_in) {
-		print "Using [$sep_in] given by $sep_opt\n";
-		$sep_out = $sep_in;
-		return($sep_out);
-	}
-	$debug and print "Calling namespace capability\n";
-	if ($imap->has_capability("namespace")) {
-		$sep_out = $imap->separator();
-		return($sep_out) if defined $sep_out;
-		warn 
-		  "NAMESPACE request failed for ", 
-		  $imap->Server(), ": ", $imap->LastError, "\n";
-		exit_clean(1);
-	}
-	else{
-		warn
-		  "No NAMESPACE capability in imap server ", 
-		    $imap->Server(),"\n",
-		      "Give the separator character with the $sep_opt option\n";
-		exit_clean(1);
-	}
-}
-
-
-print "Host1 separator and prefix: [$h1_sep][$h1_prefix]\n";
-print "Host2 separator and prefix: [$h2_sep][$h2_prefix]\n";
-
-
-sub foldersizes {
-
-	my ($side, $imap, $folders_r) = @_;
-	my $tot = 0;
-	my $tmess = 0;
-	my @folders = @{$folders_r};
-	print "++++ Calculating sizes\n";
-	foreach my $folder (@folders)     {
-		my $stot = 0;
-		my $smess = 0;
-		printf("$side folder %-35s", "[$folder]");
-		unless($imap->exists($folder)) {
-			print("does not exist yet\n");
-			next;
-		}
-		unless ($imap->examine($folder)) {
-			warn 
-			  "$side Folder $folder: Could not examine: ",
-			    $imap->LastError,  "\n";
-			$nb_errors++;
-			next;
-		}
-		
-		my $hash_ref = {};
-		my @msgs = select_msgs($imap);
-		$smess = scalar(@msgs);
-		@$hash_ref{@msgs} = (undef);
-		unless ($smess == 0) {
-			$imap->fetch_hash_2("RFC822.SIZE",$hash_ref) or die_clean("$@");
-			#print map {$hash_ref->{$_}->{"RFC822.SIZE"}, " "} keys %$hash_ref;
-			map {$stot += $hash_ref->{$_}->{"RFC822.SIZE"}} keys %$hash_ref;
-		}
-		
-		printf(" Size: %9s", $stot);
-		printf(" Messages: %5s\n", $smess);
-		$tot += $stot;
-		$tmess += $smess;
-	}
-	print "Total size: $tot\n";
-	print "Total messages: $tmess\n";
-	print "Time: ", timenext(), " s\n";
-}
-
-
-foreach my $h1_fold (@h1_folders) {
-	my $h2_fold;
-	$h2_fold = imap2_folder_name($h1_fold);
-	$h2_folders{$h2_fold}++;
-}
-
-@h2_folders = sort keys(%h2_folders);
-
-if ($foldersizes) {
-	foldersizes("Host1", $imap1, \@h1_folders);
-	foldersizes("Host2", $imap2, \@h2_folders);
-}
-
-
-sub timenext {
-	my ($timenow, $timerel);
-	# $timebefore is global, beurk !
-	$timenow    = time;
-	$timerel    = $timenow - $timebefore;
-	$timebefore = $timenow;
-	return($timerel);
-}
-
-exit_clean(0) if ($justfoldersizes);
-
-# needed for setting flags
-my $imap2hasuidplus = $imap2->has_capability("UIDPLUS");
-
-
-@h2_folders_list = sort @{$imap2->folders()};
-foreach my $folder (@h2_folders_list) {
-	$h2_folders_list{$folder}++;
-}
-
-print 
-  "++++ Listing folders\n",
-  "Host1 folders list:\n", map("[$_]\n",@h1_folders),"\n",
-  "Host2 folders list:\n", map("[$_]\n",@h2_folders_list),"\n";
-
-print 
-  "Host1 subscribed folders list: ", 
-  map("[$_] ", sort keys(%subscribed_folder)), "\n" 
-  if ($subscribed);
-
-sub separator_invert {
-	# The separator we hope we'll never encounter: 00000000
-	my $o_sep="\000";
-
-	my($h1_fold, $h1_sep, $h2_sep) = @_;
-
-	my $h2_fold = $h1_fold;
-	$h2_fold =~ s@\Q$h2_sep@$o_sep@g;
-	$h2_fold =~ s@\Q$h1_sep@$h2_sep@g;
-	$h2_fold =~ s@\Q$o_sep@$h1_sep@g;
-	return($h2_fold);
-}
-
-
-sub tests_imap2_folder_name {
-
-$h1_prefix = $h2_prefix = '';
-$h1_sep = '/';
-$h2_sep = '.';
-
-$debug and print 
-"prefix1: [$h1_prefix]
-prefix2: [$h2_prefix]
-sep1:[$h1_sep]
-sep2:[$h2_sep]
-";
-
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam');
-ok('spam/spam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam');
-ok('spam.spam/spam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam');
-@regextrans2 = ('s,/,X,g');
-ok('' eq imap2_folder_name(''), 'imap2_folder_name: empty string [s,/,X,g]');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,/,X,g]');
-ok('spam.spam' eq imap2_folder_name('spam/spam'), 'imap2_folder_name: spam/spam [s,/,X,g]');
-ok('spamXspam' eq imap2_folder_name('spam.spam'), 'imap2_folder_name: spam.spam [s,/,X,g]');
-ok('spam.spamXspam' eq imap2_folder_name('spam/spam.spam'), 'imap2_folder_name: spam/spam.spam [s,/,X,g]');
-
-@regextrans2 = ('s, ,_,g');
-ok('blabla' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s, ,_,g]');
-ok('bla_bla' eq imap2_folder_name('bla bla'), 'imap2_folder_name: blabla [s, ,_,g]');
-
-@regextrans2 = ('s,(.*),\U$1,');
-ok('BLABLA' eq imap2_folder_name('blabla'), 'imap2_folder_name: blabla [s,\U(.*)\E,$1,]');
-
-
-}
-
-sub imap2_folder_name {
-	my ($h2_fold);
-	my ($x_fold) = @_;
-	# first we remove the prefix
-	$x_fold =~ s/^\Q$h1_prefix\E//;
-	$debug and print "removed host1 prefix: [$x_fold]\n";
-	$h2_fold = separator_invert($x_fold,$h1_sep, $h2_sep);
-	$debug and print "inverted  separators: [$h2_fold]\n";
-	# Adding the prefix supplied by namespace or the --prefix2 option
-	$h2_fold = $h2_prefix . $h2_fold 
-	  unless(($h2_prefix eq "INBOX" . $h2_sep) and ($h2_fold =~ m/^INBOX$/i));
-	$debug and print "added   host2 prefix: [$h2_fold]\n";
-
-	# Transforming the folder name by the --regextrans2 option(s)
-	foreach my $regextrans2 (@regextrans2) {
-	        my $h2_fold_before = $h2_fold;
-		eval("\$h2_fold =~ $regextrans2");
-		$debug and print "[$h2_fold_before] -> [$h2_fold] using re [$regextrans2]\n";
-		die_clean("error: eval regextrans2 '$regextrans2': $@\n") if $@;
-	}
-	return($h2_fold);
-}
-
-sub tests_flags_regex {
-	
-	my $string;
-	ok('' eq flags_regex(''), "flags_regex, null string ''");
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, nothing to do');
-	ok('\Seen NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex,');
-	@regexflag = ('s/NonJunk//g');
-	ok('\Seen  $Spam' eq flags_regex('\Seen NonJunk $Spam'), "flags_regex, remove NonJunk: 's/NonJunk//g'");
-	@regexflag = ('s/\$Spam//g');
-	ok('\Seen NonJunk ' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove $Spam: '."'s/\$Spam//g'");
-	
-	@regexflag = ('s/\\\\Seen//g');
-	
-	ok(' NonJunk $Spam' eq flags_regex('\Seen NonJunk $Spam'), 'flags_regex, remove \Seen: '. "'s/\\\\\\\\Seen//g'");
-	
-	@regexflag = ('s/(\s|^)[^\\\\]\w+//g');
-	ok('\Seen \Middle \End' eq flags_regex('\Seen NonJunk \Middle $Spam \End'), 'flags_regex, only \word [' . flags_regex('\Seen NonJunk \Middle $Spam \End'.']'));
-	ok(' \Seen \Middle \End1' eq flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'), 'flags_regex, only \word [' . flags_regex('Begin \Seen NonJunk \Middle $Spam \End1 End'.']'));
-
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g');
-	ok('Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), "Keep only regex");
-	#ok('Keep1 Keep2' eq flags_regex('Keep1 Keep2 Remove1'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM REM Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM REM  Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM Keep1'), "Keep only regex");
-
-	@regexflag = ('s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 ReB'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 Keep2 REM REM  REM'), "Keep only regex");
-	ok('Keep2 ' eq flags_regex('Keep2 REM REM  REM'), "Keep only regex");
-	#ok('' eq flags_regex('REM REM'), "Keep only regex");
-	
-	@regexflag = ('s/.*?(Keep1|Keep2|Keep3)/$1 /g', 
-	's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g');
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	
-	@regexflag = ('s/(.*)/$1 jrdH8u/');
-	ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), "Keep only regex 's/(.*)/\$1 jrdH8u/'");	
-	@regexflag = ('s/jrdH8u *//');
-	ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), "Keep only regex s/jrdH8u *//");	
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(Keep1|Keep2|Keep3|jrdH8u)/$1 /g', 
-	's/(Keep1|Keep2|Keep3|jrdH8u) (?!(Keep1|Keep2|Keep3|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), "Keep only regex 'REM Keep1 REM Keep2 REM'");
-	ok('Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), "Keep only regex");
-	ok('Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), "Keep only regex");
-	ok('Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), "Keep only regex");
-	ok('Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), "Keep only regex");
-	ok('Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), "Keep only regex");
-	ok('' eq flags_regex('REM  REM REM REM REM'), "Keep only regex");
-	
-	@regexflag = (
-	's/(.*)/$1 jrdH8u/',
-	's/.*?(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)/$1 /g', 
-	's/(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u) (?!(\\\\Seen|\\\\Answered|\\\\Flagged|\\\\Deleted|\\\\Draft|jrdH8u)).*/$1 /g',
-	's/jrdH8u *//'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla $Junk \\Deleted machin \\Answered truc'), "Keep only regex: Exchange case");
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string");
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), "Keep only regex: Exchange case, no accepted flags ");
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), "Keep only regex: Exchange case");
-	
-	
-	@regexflag = (
-	's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
-	);
-	
-	ok('\\Deleted \\Answered ' 
-	eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	ok('' eq flags_regex(''), "Keep only regex: Exchange case, null string (Phil)");
-	
-	ok('' 
-	eq flags_regex('Blabla $Junk  machin  truc'), 
-	"Keep only regex: Exchange case, no accepted flags (Phil)");
-	
-	ok('\\Deleted \\Answered \\Draft \\Flagged ' 
-	eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '), 
-	"Keep only regex: Exchange case (Phil)");
-	
-	
-}
-
-sub flags_regex {
-	my ($h1_flags) = @_;
-	foreach my $regexflag (@regexflag) {
-		my $h1_flags_orig = $h1_flags;
-		$debug and print "eval \$h1_flags =~ $regexflag\n";
-		eval("\$h1_flags =~ $regexflag");
-		die_clean("error: eval regexflag '$regexflag': $@\n") if $@;
-		$debug and print "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n";
-	}
-	return($h1_flags);
-}
-
-sub acls_sync {
-	my($h1_fold, $h2_fold) = @_;
-	if ($syncacls) {
-		my $h1_hash = $imap1->getacl($h1_fold)
-		  or warn "Could not getacl for $h1_fold: $@\n";
-		my $h2_hash = $imap2->getacl($h2_fold)
-		  or warn "Could not getacl for $h2_fold: $@\n";
-		my %users = map({ ($_, 1) } (keys(%$h1_hash), keys(%$h2_hash)));
-		foreach my $user (sort(keys(%users))) {
-			my $acl = $h1_hash->{$user} || "none";
-			print "acl $user: [$acl]\n";
-			next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-				 $h1_hash->{$user} eq $h2_hash->{$user});
-			unless ($dry) {
-				print "setting acl $h2_fold $user $acl\n";
-				$imap2->setacl($h2_fold, $user, $acl)
-				  or warn "Could not set acl: $@\n";
-			}
-		}
-	}
-}
-
-
-sub tests_permanentflags {
-	
-	my $string;
-	ok('' eq permanentflags(' * OK [PERMANENTFLAGS (\* \Draft \Answered)] Limited'), 
-	   'permanentflags \*');
-	ok('\Draft \Answered' eq permanentflags(' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited'), 
-	   'permanentflags \Draft \Answered');
-	ok('\Draft \Answered' 
-	   eq permanentflags('Blabla', 
-	                     ' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited',
-			     'Blabla'),
-	   'permanentflags \Draft \Answered'
-	);
-	ok('' eq permanentflags('Blabla'), 'permanentflags nothing');
-}
-
-sub permanentflags {
-	my @lines = @_;
-
-	foreach my $line (@lines) {
-		if ($line =~ m{\[PERMANENTFLAGS \(([^)]+?)\)\]}) {
-			#print "%%%$1%%%\n";
-			my $permanentflags = $1;
-			if ($permanentflags =~ m{\\\*}) {
-				$permanentflags = '';
-			}
-			return($permanentflags);
-		};
-	}
-}
-
-sub tests_flags_filter {
-
-	ok( '\Seen' eq flags_filter('\Seen', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '' eq flags_filter('\Seen', '\Draft  \Answered'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', '\Seen'), 'flags_filter ' );
-	ok( '\Seen' eq flags_filter('\Seen', ' \Seen '), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', '\Draft \Seen \Answered'), 'flags_filter ' );
-	ok( '\Seen \Draft' 
-	   eq flags_filter('\Seen \Draft', ' \Draft \Seen \Answered '), 'flags_filter ' );
-
-}
-
-sub flags_filter {
-	my($flags, $allowed_flags) = @_;
-	
-	my @flags = split(/\s+/, $flags);
-	my %allowed_flags = map { $_ => 1 } split(' ', $allowed_flags );
-	my @flags_out     = map { exists $allowed_flags{$_} ? $_ : () } @flags;
-
-	my $flags_out = join(' ', @flags_out);
-	#print "%%%$flags_out%%%\n";
-	return($flags_out);
-}
-
-
-# folder loop
-print "++++ Looping on each folder\n";
-
-FOLDER: foreach my $h1_fold (@h1_folders) {
-
-	last FOLDER if $imap1->IsUnconnected();
-	last FOLDER if $imap2->IsUnconnected();
-
-	my $h2_fold = imap2_folder_name($h1_fold);
-
-	printf("%-35s -> %-35s\n", "[$h1_fold]", "[$h2_fold]");
-	unless ($imap1->select($h1_fold)) {
-		warn 
-		"Host1 folder $h1_fold: Could not select: ",
-		$imap1->LastError,  "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-	
-	if ( ! exists($h2_folders_list{$h2_fold})) {
-		print "Host2 folder $h2_fold does not exist\n";
-		print "Creating folder [$h2_fold]\n";
-		unless ($dry){
-			unless ($imap2->create($h2_fold)){
-				warn "Couldn't create [$h2_fold]: ",
-				$imap2->LastError,"\n";
-				$nb_errors++;
-				next FOLDER;
-			}
-		}
-		else{
-			next FOLDER;
-		}
-	}
-	
-	acls_sync($h1_fold, $h2_fold);
-
-	unless ($imap2->select($h2_fold)) { 
-		warn 
-		"Host2 folder $h2_fold: Could not select: ",
-		$imap2->LastError, "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-	my @select_results = $imap2->Results();
-	
-	#print "%%% @select_results\n";
-	my $permanentflags2 = permanentflags(@select_results);
-	
-	if ($expunge){
-		print "Expunging host1 $h1_fold\n";
-		unless($dry) { $imap1->expunge() };
-		#print "Expunging host2 $h2_fold\n";
-		#unless($dry) { $imap2->expunge() };
-	}
-	
-	if (($subscribe and exists $subscribed_folder{$h1_fold}) or $subscribe_all) {
-		print "Subscribing to folder $h2_fold on destination server\n";
-		unless($dry) { $imap2->subscribe($h2_fold) };
-	}
-	
-	next FOLDER if ($justfolders);
-
-	last FOLDER if $imap1->IsUnconnected();
-	last FOLDER if $imap2->IsUnconnected();
-
-	my @h1_msgs = select_msgs($imap1);
-
-	$debug and print "LIST Host1: ", scalar(@h1_msgs), " messages [@h1_msgs]\n";
-	# internal dates on host2 are after the ones on host1
-	# normally...
-	my @h2_msgs = select_msgs($imap2);
-	
-	$debug and print "LIST Host2: ", scalar(@h2_msgs), " messages [@h2_msgs]\n";
-
-	my %h1_hash = ();
-	my %h2_hash = ();
-	
-	$debug and print "Host1 folder [$h1_fold] parsing headers\n";
-	last FOLDER if $imap1->IsUnconnected();
-	last FOLDER if $imap2->IsUnconnected();
-
-	my ($h1_heads_ref, $h1_fir_ref) = ({}, {});
-	$h1_heads_ref = $imap1->parse_headers([@h1_msgs], @useheader) if (@h1_msgs);
-	$debug and print "Time headers: ", timenext(), " s\n";
-	last FOLDER if $imap1->IsUnconnected();
-
-	@$h1_fir_ref{@h1_msgs} = (undef);
-	$h1_fir_ref = $imap1->fetch_hash_2("FLAGS", "INTERNALDATE", "RFC822.SIZE", $h1_fir_ref)
-	  if (@h1_msgs);
-	$debug and print "Time fir: ", timenext(), " s\n";
-	unless ($h1_fir_ref) {
-		warn
-		"Host1 folder $h1_fold: Could not fetch_hash_2 ",
-		scalar(@h1_msgs), " msgs: ", $imap1->LastError, "\n";
-		$nb_errors++;
-		next FOLDER;
-	}
-	last FOLDER if $imap1->IsUnconnected();
-
-
-	my @h1_msgs_duplicate;
-	foreach my $m (@h1_msgs) {
-		my $rc = parse_header_msg($imap1, $m, $h1_heads_ref, $h1_fir_ref, "F", \%h1_hash);
-		if (! defined($rc)) {
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			print "+ Skipping msg #$m:$h1_size on host1 folder $h1_fold (no header so we ignore this message)\n";
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			$h1_nb_msg_noheader +=1;
-		} elsif(0 == $rc) {
-			# duplicate
-			push(@h1_msgs_duplicate, $m);
-			# duplicate, same id same size?
-			my $h1_size = $h1_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			$nb_msg_skipped += 1;
-			$h1_total_bytes_duplicate += $h1_size;
-			$h1_nb_msg_duplicate += 1;
-		}
-	}
-	$debug and print "Time parsing headers on host1: ", timenext(), " s\n";
-	
-	$debug and print "Host2 folder [$h2_fold] parsing headers\n";
-
-	my ($h2_heads_ref, $h2_fir_ref) = ({}, {});
-	$h2_heads_ref =   $imap2->parse_headers([@h2_msgs], @useheader) if (@h2_msgs);
-	$debug and print "Time headers: ", timenext(), " s\n";
-	last FOLDER if   $imap2->IsUnconnected();
-
-	@$h2_fir_ref{@h2_msgs} = (undef); # fetch_hash_2 can select by uid with last arg as ref
-	$h2_fir_ref   =   $imap2->fetch_hash_2("FLAGS", "INTERNALDATE", "RFC822.SIZE", $h2_fir_ref)
-	  if (@h2_msgs);
-	$debug and print "Time fir: ", timenext(), " s\n";
-	last FOLDER if   $imap2->IsUnconnected();
-	
-	my @h2_msgs_duplicate;
-	foreach my $m (@h2_msgs) {
-		my $rc = parse_header_msg($imap2, $m, $h2_heads_ref, $h2_fir_ref, "T", \%h2_hash);
-		if (! defined($rc)) {
-			my $h2_size = $h2_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			print "+ Skipping msg #$m:$h2_size in host2 folder $h2_fold (no header so we ignore this message)\n";
-			$h2_nb_msg_noheader += 1 ;
-		} elsif(0 == $rc) {
-			# duplicate
-			my $h2_size = $h2_fir_ref->{$m}->{"RFC822.SIZE"} || 0;
-			$h2_nb_msg_duplicate += 1;
-			$h2_total_bytes_duplicate += $h2_size;
-			push(@h2_msgs_duplicate, $m);
-		}
-	}
-	$debug and print "Time parsing headers on host2: ", timenext(), " s\n";
-
-	$debug and print "++++ Verifying [$h1_fold] -> [$h2_fold]\n";
-	# messages in host1 that are not in host2
-	
-	my @h1_hash_keys_sorted_by_uid 
-	  = sort {$h1_hash{$a}{'m'} <=> $h1_hash{$b}{'m'}} keys(%h1_hash);
-	
-	#print map { $h1_hash{$_}{'m'} . " "} @h1_hash_keys_sorted_by_uid;
-	
-	my @h2_hash_keys_sorted_by_uid 
-	  = sort {$h2_hash{$a}{'m'} <=> $h2_hash{$b}{'m'}} keys(%h2_hash);
-
-	
-	if($delete2) {
-		my @h2_expunge;
-		foreach my $m_id (@h2_hash_keys_sorted_by_uid) {
-			#print "$m_id ";
-			unless (exists($h1_hash{$m_id})) {
-				my $h2_msg  = $h2_hash{$m_id}{'m'};
-				my $h2_flags  = $h2_hash{$m_id}{'F'} || "";
-				my $isdel  = $h2_flags =~ /\B\\Deleted\b/ ? 1 : 0;
-				print "msg $h2_fold/$h2_msg deleted on host2 [$m_id]\n"
-				  if ! $isdel;
-				push(@h2_expunge, $h2_msg) if $uidexpunge2;
-				unless ($dry or $isdel) {
-					$imap2->delete_message($h2_msg);
-					$h2_nb_msg_deleted += 1;
-				}
-			}
-		}
-		foreach my $h2_msg (@h2_msgs_duplicate) {
-			print "msg $h2_fold/$h2_msg deleted [duplicate] on host2\n";
-			push(@h2_expunge, $h2_msg) if $uidexpunge2;
-			unless ($dry) {
-				$imap2->delete_message($h2_msg);
-				$h2_nb_msg_deleted += 1;
-			}
-		}
-
-		my $cnt = scalar @h2_expunge;
-		if(@h2_expunge and !$imap2->can("uidexpunge")) {
-			warn "uidexpunge not supported (< IMAPClient 3.17)\n";
-		}
-		elsif(@h2_expunge) {
-			print "uidexpunge $cnt message(s)\n";
-			$imap2->uidexpunge(\@h2_expunge) if !$dry;
-		}
-	}
-
-	MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
-		my $h1_size  = $h1_hash{$m_id}{'s'};
-		my $h1_msg   = $h1_hash{$m_id}{'m'};
-		my $h1_idate = $h1_hash{$m_id}{'D'};
-		
-		if (defined $maxsize and $h1_size > $maxsize) {
-			print "msg $h1_fold/$h1_msg skipping ($h1_size exceeds maxsize limit $maxsize bytes)\n";
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			next MESS;
-		}
-		if (defined $minsize and $h1_size < $minsize) {
-			print "msg $h1_fold/$h1_msg skipping ($h1_size smaller than minsize $minsize bytes)\n";
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-			next MESS;
-		}
-		unless (exists($h2_hash{$m_id})) {
-			# copy
-			$debug and print "msg $h1_fold/$h1_msg copying to $h2_fold\n";
-			last FOLDER if $imap1->IsUnconnected();
-			last FOLDER if $imap2->IsUnconnected();
-			my $string;
-			$string = $imap1->message_string($h1_msg);
-			unless (defined($string)) {
-				warn
-				"- msg $h1_fold/$h1_msg could not fetch [$m_id $h1_size]: ",
-				$imap1->LastError, "\n";
-				$nb_errors++;
-				$total_bytes_error += $h1_size;
-				next MESS;
-			}
-			
-			#my $message_file = "tmp_imapsync_$$";
-			#$imap1->select($h1_fold);
-			#unlink($message_file);
-			#$imap1->message_to_file($message_file, $h1_msg) or do {
-			#	warn "Could not put message #$h1_msg to file $message_file",
-			#	$imap1->LastError;
-			#	$nb_errors++;
-			#	$total_bytes_error += $h1_size;
-			#	next MESS;
-			#};
-			#$string = file_to_string($message_file);
-			#print "AAA1[$string]ZZZ\n";
-			#unlink($message_file);
-			if (@regexmess) {
-				$string = regexmess($string);
-				
-				#string_to_file($string, $message_file);
-			}
-
-			
-			
-			sub tests_regexmess {
-				
-				ok("blabla" eq regexmess("blabla"), "regexmess, no regexmess, nothing to do");
-				
-				@regexmess = ('s/p/Z/g');
-				ok("ZoZoZo" eq regexmess("popopo"), "regexmess, s/p/Z/g");
-				
-				@regexmess = 's{c}{C}gxms';
-				ok("H1: abC\nH2: Cde\n\nBody abC" 
-					   eq regexmess("H1: abc\nH2: cde\n\nBody abc"), 
-				   "regexmess, c->C");
-				   
-				@regexmess = 's{\AFrom\ }{From:}gxms';
-				ok(          '' 
-				eq regexmess(''),
-				'From mbox 1 add colon blank');
-				
-				ok(          'From:<tartanpion@machin.truc>' 
-				eq regexmess('From <tartanpion@machin.truc>'),
-				'From mbox 2 add colo');
-				
-				ok(          "\n" . 'From <tartanpion@machin.truc>' 
-				eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-				'From mbox 3 add colo');
-				
-				ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>' 
-				eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-				'From mbox 4 add colo');
-				
-				@regexmess = 's{\AFrom\ [^\n]*(\n)?}{}gxms';
-				ok(          '' 
-				eq regexmess(''),
-				'From mbox 1 remove, blank');
-				
-				ok(          '' 
-				eq regexmess('From <tartanpion@machin.truc>'),
-				'From mbox 2 remove');
-				
-				ok(          "\n" . 'From <tartanpion@machin.truc>' 
-				eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-				'From mbox 3 remove');
-				
-				#print "[", regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'), "]";
-				ok(          ""            . 'From <tartanpion@machin.truc>' 
-				eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-				'From mbox 4 remove');
-				
-
-				ok(
-'Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-				eq regexmess(
-'From  zzz
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.'
-				),
-				'From mbox 5 remove');
-				
-				
-			}
-
-			sub regexmess {
-				my ($string) = @_;
-				foreach my $regexmess (@regexmess) {
-					$debug and print "eval \$string =~ $regexmess\n";
-					eval("\$string =~ $regexmess");
-					die_clean("error: eval regexmess '$regexmess': $@\n") if $@;
-				}
-				return($string);
-			}
-
-			$debug and print 
-				"=" x80, "\n", 
-				"F message content begin next line\n",
-				$string,
-				"F message content ended on previous line\n", "=" x 80, "\n";
-			my $h1_date = "";
-			if ($syncinternaldates) {
-				$h1_date = $h1_idate;
-				$debug and print "internal date from host1: [$h1_date]\n";
-				$h1_date = good_date($h1_date);
-				$debug and print "internal date from host1: [$h1_date] (fixed)\n";
-			}
-			
-			if ($idatefromheader) {
-				
-				$h1_date = $imap1->get_header($h1_msg,"Date");
-				$debug and print "header date from host1: [$h1_date]\n";
-				$h1_date = good_date($h1_date);
-				$debug and print "header date from host1: [$h1_date] (fixed)\n";
-			}
-
-			my $h1_flags = $h1_hash{$m_id}{'F'} || "";
-			# RFC 2060: This flag can not be altered by any client
-			$h1_flags =~ s@\\Recent\s?@@gi;
-			$h1_flags = flags_regex($h1_flags) if @regexflag;
-			
-			$h1_flags = flags_filter($h1_flags, $permanentflags2) if ($permanentflags2);
-			
-			my $new_id;
-			$debug and print "msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n";
-			last FOLDER if $imap1->IsUnconnected();
-			last FOLDER if $imap2->IsUnconnected();
-			$h1_date = undef if ($h1_date eq "");
-			unless ($dry) {
-				
-				if ($OSNAME eq "MSWin32") {
-					$new_id = $imap2->append_string($h2_fold, $string, $h1_flags, $h1_date);
-				}
-				else {
-					# just back to append_string since append_file 3.05 does not work. 
-					#$new_id = $imap2->append_file($h2_fold, $message_file, "", $h1_flags, $d);
-					# append_string 3.05 does not work too some times with $d unset.
-					$new_id = $imap2->append_string($h2_fold, $string, $h1_flags, $h1_date);
-				}
-				unless($new_id){
-					no warnings 'uninitialized';
-					warn "- msg $h1_fold/$h1_msg couldn't append  (Subject:[".
-					  $imap1->subject($h1_msg)."]) to folder $h2_fold: ",
-					  $imap2->LastError, "\n";
-					$nb_errors++;
-					$total_bytes_error += $h1_size;
-					next MESS;
-				}
-				else{
-					# good
-					# $new_id is an id if the IMAP server has the 
-					# UIDPLUS capability else just a ref
-					print "msg $h1_fold/$h1_msg copied to $h2_fold/$new_id\n";
-					$total_bytes_transferred += $h1_size;
-					$nb_msg_transferred += 1;
-					if($delete) {
-						print "msg $h1_fold/$h1_msg deleted on host1\n";
-						unless($dry) {
-							$imap1->delete_message($h1_msg);
-							$h1_nb_msg_deleted += 1;
-							last FOLDER if $imap1->IsUnconnected();
-							$imap1->expunge() if ($expunge);
-							last FOLDER if $imap1->IsUnconnected();
-						}
-					}
-				}
-			}
-			else{
-				$nb_msg_skipped_dry_mode += 1;
-			}
-			#unlink($message_file);
-			next MESS;
-		}
-		else{
-			#my $h2_size  = $h2_hash{$m_id}{'s'};
-			my $h2_msg   = $h2_hash{$m_id}{'m'};
-			#my $h2_idate = $h2_hash{$m_id}{'D'};
-			$debug and print "msg $h1_fold/$h1_msg equals $h2_fold/$h2_msg\n";
-			$total_bytes_skipped += $h1_size;
-			$nb_msg_skipped += 1;
-		}
-		
-		$fast and next MESS;
-		#$debug and print "MESSAGE $m_id\n";
-		my $h2_size = $h2_hash{$m_id}{'s'};
-		my $h2_msg  = $h2_hash{$m_id}{'m'};
-
-		# used cached flag values for efficiency
-		my $h1_flags = $h1_hash{$m_id}{'F'} || "";
-		my $h2_flags = $h2_hash{$m_id}{'F'} || "";
-
-		# RFC 2060: This flag can not be altered by any client
-		$h1_flags =~ s@\\Recent\s?@@gi;
-		$h1_flags = flags_regex($h1_flags) if @regexflag;
-		$h1_flags = flags_filter($h1_flags, $permanentflags2) if ($permanentflags2);
-		
-		
-		# compare flags - set flags if there a difference
-		my @h1_flags = sort split(' ', $h1_flags );
-		my @h2_flags = sort split(' ', $h2_flags );
-		my $diff = compare_lists(\@h1_flags, \@h2_flags);
-
-		$diff and $debug and print "msg $h2_fold/$h2_msg replacing h2 flags($h2_flags) with h1 flags($h1_flags)\n";
-
-		# This sets flags so flags can be removed with this
-		# When you remove a \Seen flag on host1 you want to it
-		# to be removed on host2. Just add flags is not what 
-		# we need most of the time.
-		
-		if (!$dry and $diff and !$imap2->store($h2_msg, "FLAGS.SILENT (@h1_flags)") ) {
-			warn "- msg $h2_fold/$h2_msg could not add flags @h1_flags",
-			  $imap2->LastError, "\n";
-			#$nb_errors++;
-		}
-		last FOLDER if   $imap2->IsUnconnected();
-
-		$debug and do {
-			my @h2_flags = @{ $imap2->flags($h2_msg) || [] };
-			last FOLDER if   $imap2->IsUnconnected();
-
-			print "host1 flags: $h1_flags\n",
-			      "host2 flags: @h2_flags\n";
-
-			print "Looking dates\n"; 
-			#my $h1_idate = $imap1->internaldate($h1_msg);
-			#my $h2_idate = $imap2->internaldate($h2_msg);
-			my $h1_idate = $h1_hash{$m_id}{'D'};
-			my $h2_idate = $h2_hash{$m_id}{'D'};
-			print 
-			  "host1 internal date: $h1_idate\n",
-			  "host2 internal date: $h2_idate\n";
-			
-			#unless ($h1_idate eq $h2_idate) {
-			#	print "!!! Dates differs !!!\n";
-			#}
-		};
-		unless ($skipsize or ($h1_size == $h2_size)) {
-			# Bad size
-			print 
-			"- msg $h1_fold/$h1_msg size diff $h1_size != $h2_size $h2_fold/$h2_msg\n";
-			$nb_errors++;
-		}
-		else {
-	    		# Good 
-			$debug and print
-			"msg $h1_fold/$h1_msg sizes ok $h1_size <=> $h2_size $h2_fold/$h2_msg\n";
-			if($delete) {
-				print "msg $h1_fold/$h1_msg deleted on host1\n";
-				unless($dry) {
-					$imap1->delete_message($h1_msg);
-					$h1_nb_msg_deleted += 1;
-					$imap1->expunge() if ($expunge);
-				}
-			}
-		}
-	}
-	if ($expunge1){
-		print "Expunging host1 folder $h1_fold\n";
-		unless($dry) { $imap1->expunge() };
-	}
-	if ($expunge2){
-		print "Expunging host2 folder $h2_fold\n";
-		unless($dry) { $imap2->expunge() };
-	}
-
-$debug and print "Time: ", timenext(), " s\n";
-}
-
-print "++++ End looping on each folder\n";
-
-
-# FOLDER loop is exited any time a connection is lost be sure to log it!
-# Example: 
-# lost_connection($imap1,"host1 [$host1]");
-# 
-# can be tested with a "killall /usr/bin/imapd" (or equivalent) in command line.
-#
-sub _filter {
-	my $str = shift or return "";
-	my $sz  = 64;
-        my $len = length($str);
-	if ( ! $debug and $len > $sz*2 ) {
-		my $beg = substr($str, 0, $sz);
-		my $end = substr($str, -$sz, $sz);
-		$str = $beg . "..." . $end;
-	}
-	$str =~ s/\012?\015$//;
-	return "(len=$len) " . $str;
-}
-
-sub lost_connection {
-	my($imap, $error_message) = @_;
-	if ( $imap->IsUnconnected() ) {
-		$nb_errors++;
-		my $lcomm = $imap->LastIMAPCommand || "";
-		my $einfo = $imap->LastError || @{$imap->History}[-1] || "";
-
-		# if string is long try reduce to a more reasonable size
-		$lcomm = _filter($lcomm);
-		$einfo = _filter($einfo);
-		warn("error: last command: $lcomm\n") if ($debug && $lcomm);
-		warn("error: lost connection $error_message", $einfo, "\n");
-		return(1);
-	}else{
-		return(0);
-	}
-}
-
-$imap1->logout();
-$imap2->logout();
-
-my $host1_reconnect_count = $imap1->Reconnect_counter() || 0;
-my $host2_reconnect_count = $imap2->Reconnect_counter() || 0;
-
-$timeend = time();
-
-$timediff = $timeend - $timestart;
-
-stats();
-
-exit_clean(1) if($nb_errors);
-
-exit_clean(0);
-
-# END of main program
-
-# subroutines
-
-sub check_lib_version {
-	$debug and print "IMAPClient $Mail::IMAPClient::VERSION\n";
-	if ($Mail::IMAPClient::VERSION eq '2.2.9') {
-		override_imapclient();
-		return(1);
-	}
-	else{
-		# 3.x.x is no longer buggy with imapsync.
-		if ($allow3xx) {
-			return(1);
-		}else{
-			return(0);
-		}
-	}
-}
-
-sub modules_VERSION {
-
-	my @list_version;
-
-	foreach my $module (qw(
-Mail::IMAPClient
-IO::Socket      
-IO::Socket::SSL 
-Digest::MD5     
-Digest::HMAC_MD5
-Term::ReadKey))
-	{
-		my $v = "?";
-	
-		if (eval "require $module") {
-			# module is here
-			$v = eval "\$${module}::VERSION";
-		}else{
-			# no module
-			$v = "?";
-		}
-		#print ("$module ", $v, "\n");
-		push (@list_version, sprintf("%-20s %s\n", $module, $v));
-	}
-	return(@list_version);
-}
-
-# Construct a command line copy with passwords replaced by MASKED.
-sub command_line_nopassword {
-	my @argv_copy = @_;
-	my @argv_nopassword;
-	while (@argv_copy) {
-		my $arg = shift(@argv_copy); # option name or value
-		if ($arg =~ m/-password[12]/) {
-			shift(@argv_copy); # password value 
-			push(@argv_nopassword, $arg, "MASKED"); # option name and fake value
-		}else{
-			push(@argv_nopassword, $arg); # same option or value
-		}
-	}
-	return("@argv_nopassword");
-}
-
-sub tests_command_line_nopassword {
-
-	ok('' eq command_line_nopassword(), 'command_line_nopassword void');
-	ok('--blabla' eq command_line_nopassword('--blabla'), 'command_line_nopassword --blabla');
-	#print command_line_nopassword((qw{ --password1 secret1 })), "\n";
-	ok('--password1 MASKED' eq command_line_nopassword(qw{ --password1 secret1}), 'command_line_nopassword --password1');
-	ok('--blabla --password1 MASKED --blibli' 
-	eq command_line_nopassword(qw{ --blabla --password1 secret1 --blibli }), 'command_line_nopassword --password1 --blibli');
-
-
-}
-
-sub banner_imapsync {
-
-	my @argv_copy = @_;
-	my $banner_imapsync = join("", 
-		  '$RCSfile: imapsync,v $ ',
-		  '$Revision: 1.350 $ ',
-		  '$Date: 2010/09/06 01:05:09 $ ',
-		  "\n",localhost_info(), "\n",
-		  "Command line used:\n",
-		  "$0 ", command_line_nopassword(@argv_copy), "\n",
-	);
-}
-
-sub is_valid_directory {
-	my $dir = shift;
-	return(1) if (-d $dir and -r _ and -w _);
-	# Trying to create it
-	mkpath($dir) or die "Error creating tmpdir $tmpdir : $!";
-	die "Error with tmpdir $tmpdir : $!" if not (-d $dir and -r _ and -w _);
-	return(1);
-}
-
-
-
-
-sub write_pidfile {
-	my $pidfile = shift;
-	
-	print "PID file is $pidfile\n";
-	if (-e $pidfile) {
-		warn "$pidfile already exists, overwriting it\n";
-	}
-	open(PIDFILE, ">$pidfile") or do {
-		warn "Could not open $pidfile for writing";
-		return undef;
-	};
-	
-	print PIDFILE $PROCESS_ID;
-	close PIDFILE;
-	return($PROCESS_ID);
-}
-
-sub justconnect {
-	my $imap1 = ();
-	my $imap2 = ();
-	
-	$imap1 = connect_imap($host1, $port1, $debugimap1, $ssl1, $tls1);
-	print "Host1 software: ", server_banner($imap1);
-	print "Host1 capability: ", join(" ", $imap1->capability()), "\n";
-	$imap2   = connect_imap($host2, $port2, $debugimap2, $ssl2, $tls2);
-	print "Host2 software: ", server_banner($imap2);
-	print "Host2 capability: ", join(" ", $imap2->capability()), "\n";
-	$imap1->logout();
-	$imap2->logout();
-
-}
-
-
-sub exit_clean {
-	my $status = shift;
-	
-	unlink($pidfile);
-	exit($status);
-}
-
-sub die_clean {
-
-	unlink($pidfile);
-	die @_;
-}
-
-sub missing_option {
-	my ($option) = @_;
-	die_clean("$option option must be used, run $0 --help for help\n");
-}
-
-
-
-sub select_msgs {
-	my ($imap) = @_;
-	my (@msgs,@max,@min,@union,@inter);
-	
-	unless (defined($maxage) or defined($minage)) {
-		@msgs = $imap->search("ALL");
-		return(@msgs);
-	}
-	if (defined($maxage)) {
-		@max = $imap->sentsince(time - 86400 * $maxage);
-	}
-	if (defined($minage)) {
-		@min = $imap->sentbefore(time - 86400 * $minage);
-	}
-      SWITCH: {
-		unless(defined($minage)) {@msgs = @max; last SWITCH};
-		unless(defined($maxage)) {@msgs = @min; last SWITCH};
-		my (%union, %inter); 
-		foreach my $m (@min, @max) {$union{$m}++ && $inter{$m}++}
-		@inter = keys(%inter);
-		@union = keys(%union);
-		# normal case
-		if ($minage <= $maxage)  {@msgs = @inter; last SWITCH};
-		# just exclude messages between
-		if ($minage > $maxage)  {@msgs = @union; last SWITCH};
-		
-	}
-	return(@msgs);
-}
-
-sub stats {
-	print   "++++ Statistics\n";
-	print   "Transfer time                     : $timediff sec\n";
-	print   "Messages transferred              : $nb_msg_transferred ";
-	print   "(could be $nb_msg_skipped_dry_mode without dry mode)" if ($dry);
-	print   "\n";
-	print   "Messages skipped                  : $nb_msg_skipped\n";
-	print   "Messages found duplicate on host1 : $h1_nb_msg_duplicate\n";
-	print   "Messages found duplicate on host2 : $h2_nb_msg_duplicate\n";
-	print   "Messages void (noheader) on host1 : $h1_nb_msg_noheader\n";
-	print   "Messages void (noheader) on host2 : $h2_nb_msg_noheader\n";
-	print   "Messages deleted on host1         : $h1_nb_msg_deleted\n";
-	print   "Messages deleted on host2         : $h2_nb_msg_deleted\n";
-	print   "Total bytes transferred           : $total_bytes_transferred\n";
-	print   "Total bytes duplicate host1       : $h1_total_bytes_duplicate\n";
-	print   "Total bytes duplicate host2       : $h2_total_bytes_duplicate\n";
-	print   "Total bytes skipped               : $total_bytes_skipped\n";
-	print   "Total bytes error                 : $total_bytes_error\n";
-	$timediff ||= 1; # No division per 0
-	printf ("Message rate                      : %.1f messages/s\n", $nb_msg_transferred / $timediff);
-	printf ("Average bandwidth rate            : %.1f KiB/s\n", $total_bytes_transferred / 1024 / $timediff);
-	print   "Reconnections to host1            : $host1_reconnect_count\n";
-	print   "Reconnections to host2            : $host2_reconnect_count\n";
-	print   "Detected $nb_errors errors\n\n";
-
-	print   $warn_release, "\n";
-	print   thank_author();
-}
-
-sub thank_author {
-
-	return(join("", "Happy with this free, open and gratis DWTFPL software?\n",
-	  "Encourage the author (Gilles LAMIRAL) by giving him a book\n",
-          "or just money via paypal:\n",
-	  "http://www.linux-france.org/prj/imapsync/\n"));
-}
-
-sub get_options {
-	my $numopt = scalar(@ARGV);
-	my $argv   = join("¤", @ARGV);
-	
-	$test_builder = Test::More->builder;
-	$test_builder->no_ending(1);
-
-	if($argv =~ m/-delete¤2/) {
-		print "May be you mean --delete2 instead of --delete 2\n";
-		exit 1;
-	}
-        my $opt_ret = GetOptions(
-                                   "debug!"       => \$debug,
-                                   "debugimap!"   => \$debugimap,
-                                   "debugimap1!"  => \$debugimap1,
-                                   "debugimap2!"  => \$debugimap2,
-                                   "host1=s"     => \$host1,
-                                   "host2=s"     => \$host2,
-                                   "port1=i"     => \$port1,
-                                   "port2=i"     => \$port2,
-                                   "user1=s"     => \$user1,
-                                   "user2=s"     => \$user2,
-                                   "password1=s" => \$password1,
-                                   "password2=s" => \$password2,
-                                   "passfile1=s" => \$passfile1,
-                                   "passfile2=s" => \$passfile2,
-				   "authmd5!"    => \$authmd5,
-                                   "sep1=s"      => \$sep1,
-                                   "sep2=s"      => \$sep2,
-				   "folder=s"    => \@folder,
-				   "folderrec=s" => \@folderrec,
-				   "include=s"   => \@include,
-				   "exclude=s"   => \@exclude,
-				   "prefix1=s"   => \$prefix1,
-				   "prefix2=s"   => \$prefix2,
-				   "regextrans2=s" => \@regextrans2,
-				   "regexmess=s" => \@regexmess,
-				   "regexflag=s" => \@regexflag,
-                                   "delete!"     => \$delete,
-                                   "delete2!"    => \$delete2,
-                                   "syncinternaldates!" => \$syncinternaldates,
-                                   "idatefromheader!" => \$idatefromheader,
-                                   "syncacls!"   => \$syncacls,
-				   "maxsize=i"   => \$maxsize,
-				   "minsize=i"   => \$minsize,
-				   "maxage=i"    => \$maxage,
-				   "minage=i"    => \$minage,
-				   "buffersize=i" => \$buffersize,
-				   "foldersizes!" => \$foldersizes,
-                                   "dry!"        => \$dry,
-                                   "expunge!"    => \$expunge,
-                                   "expunge1!"    => \$expunge1,
-                                   "expunge2!"    => \$expunge2,
-                                   "uidexpunge2!" => \$uidexpunge2,
-                                   "subscribed!" => \$subscribed,
-                                   "subscribe!"  => \$subscribe,
-                                   "subscribe_all!"  => \$subscribe_all,
-				   "justbanner!" => \$justbanner,
-                                   "justconnect!"=> \$justconnect,
-                                   "justfolders!"=> \$justfolders,
-				   "justfoldersizes!" => \$justfoldersizes,
-				   "fast!"       => \$fast,
-                                   "version"     => \$version,
-                                   "help"        => \$help,
-                                   "timeout=i"   => \$timeout,
-				   "skipheader=s" => \$skipheader,
-				   "useheader=s" => \@useheader,
-				   "skipsize!"   => \$skipsize,
-				   "allowsizemismatch!" => \$allowsizemismatch,
-				   "fastio1!"     => \$fastio1,
-				   "fastio2!"     => \$fastio2,
-				   "ssl1!"        => \$ssl1,
-				   "ssl2!"        => \$ssl2,
-				   "tls1!"        => \$tls1,
-				   "tls2!"        => \$tls2,
-				   "authmech1=s" => \$authmech1,
-				   "authmech2=s" => \$authmech2,
-				   "authuser1=s" => \$authuser1,
-				   "authuser2=s" => \$authuser2,
-				   "split1=i"    => \$split1,
-				   "split2=i"    => \$split2,
-				   "reconnectretry1=i" => \$reconnectretry1,
-				   "reconnectretry2=i" => \$reconnectretry2,
-                                   "tests"       => \$tests,
-                                   "tests_debug" => \$tests_debug,
-                                   "allow3xx!"   => \$allow3xx,
-                                   "justlogin!"  => \$justlogin,
-				   "tmpdir=s"    => \$tmpdir,
-				   "pidfile=s"    => \$pidfile,
-				   "releasecheck!" => \$releasecheck,
-                                  );
-	
-        $debug and print "get options: [$opt_ret]\n";
-
-	# just the version
-        print imapsync_version(), "\n" and exit if ($version) ;
-	
-	if ($tests) {
-		$test_builder->no_ending(0);
-		tests();
-		exit;
-	}
-	if ($tests_debug) {
-		$test_builder->no_ending(0);
-		tests_debug();
-		exit;
-	}
-
-	$help = 1 if ! $numopt;
-	load_modules();
-
-	# exit with --help option or no option at all
-        usage() and exit if ($help or ! $numopt) ;
-
-	# don't go on if options are not all known.
-        exit(EX_USAGE()) unless ($opt_ret) ;
-
-}
-
-
-sub load_modules {
-
-	require IO::Socket::SSL if ($ssl1 or $ssl2 or $tls1 or $tls2);
-
-        require Term::ReadKey if (
-	       ((not($password1 or $passfile1)) 
-	    or (not($password2 or $passfile2)))
-	and (not $help));
-
-	#require Data::Dumper if ($debug);
-}
-
-
-
-sub parse_header_msg {
-	my ($imap, $m_uid, $s_heads, $s_fir, $s, $s_hash) = @_;
-	
-	my $head = $s_heads->{$m_uid};
-	my $headnum =  scalar(keys(%$head));
-	$debug and print "Head NUM:", $headnum, "\n";
-	unless($headnum) { print "Warning: no header used or found for message $m_uid\n"; }
-	my $headstr;
-	
-	foreach my $h (sort keys(%$head)){
-		foreach my $val (sort @{$head->{$h}}) {
-			# no 8-bit data in headers !
-			$val =~ s/[\x80-\xff]/X/g;
-			
-			# remove the first blanks (dbmail bug ?)
-			# and uppercase  header keywords 
-			# (dbmail and dovecot)
-			$val =~ s/^\s*(.+)$/$1/;
-			
-			#my $H = uc($h);
-			my $H = "$h: $val";
-			# show stuff in debug mode
-			$debug and print "${s}H $H:", $val, "\n";
-			
-			if ($skipheader and $H =~ m/$skipheader/i) {
-				$debug and print "Skipping header $H\n";
-				next;
-			}
-			#$headstr .= "$H:". $val;
-			$headstr .= "$H";
-		}
-	}
-	#return unless ($headstr);
-	unless ($headstr){
-		# taking everything is too heavy,
-		# should take only 1 Ko
-		#print "no header so taking everything\n";
-		#$headstr = $imap->message_string($m_uid);
-		
-		print "no header so we ignore this message\n";
-		return undef;
-	}
-	my $size  = $s_fir->{$m_uid}->{"RFC822.SIZE"};
-	my $flags = $s_fir->{$m_uid}->{"FLAGS"};
-	my $idate = $s_fir->{$m_uid}->{"INTERNALDATE"};
-	$size = length($headstr) unless ($size);
-	my $m_md5 = md5_base64($headstr);	
-	$debug and print "$s msg $m_uid:$m_md5:$size\n";
-	my $key;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-	else {
-                $key = "$m_md5:$size";
-        }
-	# 0 return code is used to identify duplicate message hash
-	return 0 if exists $s_hash->{"$key"};
-	$s_hash->{"$key"}{'5'} = $m_md5;
-	$s_hash->{"$key"}{'s'} = $size;
-	$s_hash->{"$key"}{'D'} = $idate;
-	$s_hash->{"$key"}{'F'} = $flags;
-	$s_hash->{"$key"}{'m'} = $m_uid;
-}
-
-
-sub  firstline {
-        # extract the first line of a file (without \n)
-
-        my($file) = @_;
-        my $line  = "";
-        
-        open FILE, $file or die_clean("error [$file]: $! ");
-        chomp($line = <FILE>);
-        close FILE;
-        $line = ($line) ? $line: "error !EMPTY! [$file]";
-        return $line;
-}
-
-
-sub file_to_string {
-	my($file) = @_;
-	my @string;
-	open FILE, $file or die_clean("error [$file]: $! ");
-	@string = <FILE>;
-	close FILE;
-	return join("", @string);
-}
-
-
-sub string_to_file {
-	my($string, $file) = @_;
-	sysopen(FILE, $file,O_WRONLY|O_TRUNC|O_CREAT, 0600) or die_clean("$! $file");
-	print FILE $string;
-	close FILE;
-}
-
-
-sub check_last_release {
-
-	my $public_release = not_long('imapsync_version_lfo');
-	return('') if ($public_release eq 'unknown');
-	
-	my $imapsync_here  = imapsync_version();
-	
-	if ($public_release > $imapsync_here) {
-		return("New imapsync release $public_release available");
-	}else{
-		return("This current imapsync is up to date");
-	}
-}
-
-sub imapsync_version {
-	my $rcs = '$Id: imapsync,v 1.350 2010/09/06 01:05:09 gilles Exp gilles $ ';
-	$rcs =~ m/,v (\d+\.\d+)/;
-	my $VERSION = ($1) ? $1: "UNKNOWN";
-	return($VERSION);
-}
-
-
-sub imapsync_version_lfo {
-	
-	my $local_version = imapsync_version();
-	my $agent_info = "$OSNAME system, perl $PERL_VERSION, Mail::IMAPClient $Mail::IMAPClient::VERSION";
-	my $sock = new IO::Socket::INET (
-		PeerAddr => 'linux-france.org',
-		PeerPort => '80',
-		Proto => 'tcp');
-	return('unknown') if not $sock;
-	print $sock
-		"GET /prj/imapsync/VERSION HTTP/1.0\n",
-		"User-Agent: imapsync/$local_version ($agent_info)\n",
-		"Host: www.linux-france.org\n\n";
-	my @line = <$sock>;
-	close($sock);
-	my $last_release = $line[-1];
-	chomp($last_release);
-	return($last_release);
-}
-
-sub not_long {
-
-	my ($func) = @_;
-	my $val;
-	eval {
-		local $SIG{ALRM} = sub { die "alarm\n" };
-		alarm 3;
-		#print $func, "\n";
-		{
-			no strict "refs";
-			$val = &$func();
-		}
-		alarm 0;
-	};
-	if ($@) {
-		# timed out
-		return('unknown') unless $@ eq "alarm\n"; # propagate unexpected errors
-	
-	}else {
-	# didn't
-		return($val);
-	}
-}
-
-sub localhost_info {
-	
-	my($infos) = join("", 
-	    "Here is a [$OSNAME] system (", 
-	    join(" ", 
-	         uname(),
-	         ),
-                 ")\n",
-	         "With perl ", 
-	         sprintf("%vd", $PERL_VERSION),
-	         " Mail::IMAPClient  $Mail::IMAPClient::VERSION",
-            );	  
-	return($infos);
-
-}
-
-sub usage {
-	my $localhost_info = localhost_info();
-	my $thank = thank_author();
-	my $warn_release = check_last_release();
-        print <<EOF;
-
-usage: $0 [options]
-
-Several options are mandatory. 
-
---host1       <string> : "from" imap server. Mandatory.
---port1       <int>    : port to connect on host1. Default is 143.
---user1       <string> : user to login on host1. Mandatory.
---authuser1   <string> : user to auth with on host1 (admin user). 
-                         Avoid using --authmech1 SOMETHING with --authuser1.
---password1   <string> : password for the user1. Dangerous, use --passfile1
---passfile1   <string> : password file for the user1. Contains the password.
---host2       <string> : "destination" imap server. Mandatory.
---port2       <int>    : port to connect on host2. Default is 143.
---user2       <string> : user to login on host2. Mandatory.
---authuser2   <string> : user to auth with on host2 (admin user).
---password2   <string> : password for the user2. Dangerous, use --passfile2
---passfile2   <string> : password file for the user2. Contains the password.
---noauthmd5            : don't use MD5 authentification.
---authmech1   <string> : auth mechanism to use with host1:
-                         PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
---authmech2   <string> : auth mechanism to use with host2. See --authmech1
---ssl1                 : use an SSL connection on host1.
---ssl2                 : use an SSL connection on host2.
---tls1                 : use an TLS connection on host1.
---tls2                 : use an TLS connection on host2.
---folder      <string> : sync this folder.
---folder      <string> : and this one, etc.
---folderrec   <string> : sync this folder recursively.
---folderrec   <string> : and this one, etc.
---include     <regex>  : sync folders matching this regular expression
---include     <regex>  : or this one, etc.
-                         in case both --include --exclude options are
-                         use, include is done before.
---exclude     <regex>  : skips folders matching this regular expression
-                         Several folders to avoid:
-			  --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
---exclude     <regex>  : or this one, etc.
---tmpdir      <string> : where to store temporary files and subdirectories.
-                         Will be created if it doesn't exist.
-			 Default is system specific and should be ok.
---pidfile     <string> : the file where imapsync pid is written.
---prefix1     <string> : remove prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         you can use --prefix1 if your source imap server 
-                         does not have NAMESPACE capability.
---prefix2     <string> : add prefix to all destination folders 
-                         (usually INBOX. for cyrus imap servers)
-                         use --prefix2 if your target imap server does not
-                         have NAMESPACE capability.
---regextrans2 <regex>  : Apply the whole regex to each destination folders.
---regextrans2 <regex>  : and this one. etc.
-                         When you play with the --regextrans2 option, first
-                         add also the safe options --dry --justfolders
-                         Then, when happy, remove --dry, remove --justfolders
---regexmess   <regex>  : Apply the whole regex to each message before transfer.
-                         Example: 's/\\000/ /g' # to replace null by space.
---regexmess   <regex>  : and this one.
---regexmess   <regex>  : and this one, etc.
---regexflag   <regex>  : Apply the whole regex to each flags list.
-                         Example: 's/\"Junk"//g' # to remove "Junk" flag.
---regexflag   <regex>  : and this one, etc.
---sep1        <string> : separator in case namespace is not supported.
---sep2        <string> : idem.
---delete               : delete messages on host1 server after
-                         a successful transfer. Useful in case you
-                         want to migrate from one server to another one.
-			 With imap, "delete" tags messages as deleted, they
-			 are not really deleted. See expunge.
---delete2              : delete messages on host2 that are not on 
-                         host1 server.
---expunge              : expunge messages on host1.
-                         expunge really deletes messages marked deleted.
-                         expunge is made at the beginning, on host1 only. 
-                         Newly transferred messages are expunged if 
-			 option --expunge is given.
-                         No expunge is done on destination account 
-                         (see --expunge2) but it may change in future releases.
---expunge1             : expunge messages on host1.
---expunge2             : expunge messages on host2.
---uidexpunge2          : uidexpunge messages on the destination imap server
-                         that are not on the source server, requires --delete2
---syncinternaldates    : sets the internal dates on host2 same as host1.
-                         Turned on by default. Internal date is the date
-			 a message arrived on a host (mtime).
---idatefromheader      : sets the internal dates on host2 same as the 
-                         "Date:" headers. 
---buffersize  <int>    : sets the size of a block of I/O.
---maxsize     <int>    : skip messages larger than <int> bytes
---minsize     <int>    : skip messages smaller than <int> bytes
---maxage      <int>    : skip messages older than <int> days.
-                         final stats (skipped) don't count older messages
-			 see also --minage
---minage      <int>    : skip messages newer than <int> days.
-                         final stats (skipped) don't count newer messages
-                         You can do (+ are the messages selected):
-                         past|----maxage+++++++++++++++>now
-                         past|+++++++++++++++minage---->now
-                         past|----maxage+++++minage---->now (intersection)
-                         past|++++minage-----maxage++++>now (union)
---skipheader  <regex>  : Don't take into account header keyword 
-                         matching <string> ex: --skipheader 'X.*'
---useheader   <string> : Use this header to compare messages on both sides.
-                         Ex: Message-ID or Subject or Date.
---useheader   <string>   and this one, etc.
---skipsize             : Don't take message size into account to compare 
-                         messages on both sides. On by default.
-			 Use --no-skipsize for using size comparaison.
---allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-                         consider also --skipsize to avoid duplicate messages
-                         when running syncs more than one time per mailbox
---dry                  : do nothing, just print what would be done.
---subscribed           : transfers subscribed folders.
---subscribe            : subscribe to the folders transferred on the 
-                         host2 that are subscribed on host1.
---subscribe_all        : subscribe to the folders transferred on the 
-                         host2 even if they are not subscribed on host1.
---nofoldersizes        : Do not calculate the size of each folder in bytes
-                         and message counts. Default is to calculate them.
---justfoldersizes      : exit after printed the folder sizes.
---syncacls             : Synchronises acls (Access Control Lists).
---nosyncacls           : Does not synchronise acls. This is the default.
---debug                : debug mode.
---debugimap1           : imap debug mode for host1. imap debug is very verbose.
---debugimap2           : imap debug mode for host2.
---debugimap            : imap debug mode for host1 and host2.
---version              : print software version.
---noreleasecheck       : do not check for new imapsync release (a http request).
---justconnect          : just connect to both servers and print useful
-                         information. Need only --host1 and --host2 options.
---justlogin            : just login to both host1 and host2 with users 
-                         credentials, then exit.
---justfolders          : just do things about folders (ignore messages).
---fast                 : be faster (just does not sync flags of messages
-                         already transfered).
---reconnectretry1 <int>: reconnect to host1 if connection is lost up to 
-                         <int> times per imap command (default is 3)
---reconnectretry2 <int>: same as --reconnectretry1 but for host2
---split1     <int>     : split the requests in several parts on host1.
-                         <int> is the number of messages handled per request.
-                         default is like --split1 1000.
---split2     <int>     : same thing on host2.
---fastio1              : use fastio with host1.
---fastio2              : use fastio with host2.
---timeout     <int>    : imap connect timeout.
---help                 : print this help.
-
-Example: to synchronise imap account "foo" on "imap.truc.org"
-                    to  imap account "bar" on "imap.trac.org"
-                    with foo password "secret1"
-                    and  bar password "secret2"
-
-$0 \\
-   --host1 imap.truc.org --user1 foo --password1 secret1 \\
-   --host2 imap.trac.org --user2 bar --password2 secret2
-
-$localhost_info
-$rcs
-$warn_release
-
-$thank
-EOF
-}
-
-
-sub good_date {
-        # two incoming formats:
-        # header    Tue, 24 Aug 2010 16:00:00 +0200
-	# internal       24-Aug-2010 16:00:00 +0200
-	
-        # outgoing format: internal date format
-        #   24-Aug-2010 16:00:00 +0200
-	
-    my ($d) = @_;
-    return ('') if not defined($d);
-    
-    if ( $d =~ m{(\d?)(\d-...-\d{4})( \d{2}:\d{2}:\d{2})( (?:\+|-)\d{4})?}o ) {
-    	#print "internal: [$1][$2][$3][$4]\n";
-	my ($day_1, $date_rest, $hour, $zone) = ($1,$2,$3,$4);
-	$day_1 = '0' if ($day_1 eq '');
-	$zone  = ''  if not defined($zone);
-	$d = $day_1 . $date_rest . $hour . $zone;
-	
-	
-    }elsif ($d =~ m{(?:.{3}, )(\d?)(\d) (...) (\d{4})( \d{2}:\d{2}:\d{2})( (?:\+|-)\d{4})?}o  ) {
-    	#print "header: [$1][$2][$3][$4][$5][$6]\n";
-	my ($day_1, $day_rest, $month, $year, $hour, $zone) = ($1,$2,$3,$4,$5,$6);
-	$day_1 = '0' if ($day_1 eq '');
-	$zone  = ''  if not defined($zone);
-	$d = $day_1 . "$day_rest-$month-$year" . $hour . $zone;
-	
-    }else{
-    	# unknown/unmatch => return same string
-    	return($d);
-    }
-    
-    $d = qq("$d");
-    return($d);
-} 
-
-sub tests_good_date {
-
-	ok('' eq good_date(), 'good_date no arg');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24-Aug-2010 16:00:00 +0200'), 'good_date internal 2digit zone');
-	ok('"24-Aug-2010 16:00:00"'       eq good_date('24-Aug-2010 16:00:00'), 'good_date internal 2digit no zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date( '1-Sep-2010 16:00:00 +0200'), 'good_date internal SP 1digit');
-	ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('Tue, 24 Aug 2010 16:00:00 +0200'), 'good_date header 2digit zone');
-	ok('"01-Sep-2010 16:00:00"'       eq good_date('Wed, 1 Sep 2010 16:00:00'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200'), 'good_date header SP 1digit zone');
-	ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200 (CEST)'), 'good_date header SP 1digit zone');
-
-}
-
-sub tests_debug {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests_debug);
-		tests_good_date();
-	}
-}
-
-sub tests {
-	
-      SKIP: {
-		skip "No test in normal run" if (not $tests);
-		tests_folder_routines();
-		tests_compare_lists();
-		tests_regexmess();
-		tests_flags_regex();
-		tests_permanentflags();
-		tests_flags_filter();
-		tests_imap2_folder_name();
-		tests_command_line_nopassword();
-		tests_good_date();
-	}
-}
-
-# IMAPClient 2.2.9 overrides
-
-sub override_imapclient {
-no warnings 'redefine';
-no strict 'subs';
-
-use constant Unconnected => 0;
-use constant Connected         => 1;            # connected; not logged in
-use constant Authenticated => 2;                # logged in; no mailbox selected
-use constant Selected => 3;                     # mailbox selected
-use constant INDEX => 0;                        # Array index for output line number
-use constant TYPE => 1;                         # Array index for line type 
-                                                #    (either OUTPUT, INPUT, or LITERAL)
-use constant DATA => 2;                         # Array index for output line data
-use constant NonFolderArg => 1;                 # Value to pass to Massage to 
-                                                # indicate non-folder argument
-
-
-*Mail::IMAPClient::append_file = sub  {
-
-        my $self        = shift;
-        my $folder      = $self->Massage(shift);
-        my $file        = shift; 
-        my $control     = shift || undef;
-        my $count       = $self->Count($self->Count+1);
-	my $flags       = shift || undef;
-	my $date        = shift || undef;
-	
-	if (defined($flags)) {
-                $flags =~ s/^\s+//g;
-                $flags =~ s/\s+$//g;
-        }
-	
-        if (defined($date)) {
-                $date =~ s/^\s+//g;
-                $date =~ s/\s+$//g;
-        }
-	
-        $flags = "($flags)"  if $flags and $flags !~ /^\(.*\)$/ ;
-        $date  = qq/"$date"/ if $date  and $date  !~ /^"/       ;
-	
-
-        unless ( -f $file ) {
-                $self->LastError("File $file not found.\n");
-                return undef;
-        }
-
-        my $fh = IO::File->new($file) ;
-
-        unless ($fh) {
-                $self->LastError("Unable to open $file: $!\n");
-                $@ = "Unable to open $file: $!" ;
-                carp "unable to open $file: $!";
-                return undef;
-        }
-
-        my $bare_nl_count = scalar grep { /^\x0a$|[^\x0d]\x0a$/} <$fh>;
-
-        seek($fh,0,0);
-
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $length = ( -s $file ) + $bare_nl_count;
-
-	my $string = "$count APPEND $folder " .
-	             ( $flags ? "$flags " : ""       ) .
-	             ( $date ? "$date " : ""         ) .
-	             "{" . $length  . "}\x0d\x0a" ;
-	
-        $self->_record($count,[ $self->_next_index($count), "INPUT", "$string" ] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                $fh->close;
-                return undef;
-        }
-
-        my ($code, $output) = ("","");
-
-        until ( $code ) {
-                $output = $self->_read_line or $fh->close, return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      ($code) = $o->[DATA] =~ /(^\+|^\d+\sNO|^\d+\sBAD)/i; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA];
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA];
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-
-        {       # Narrow scope
-                # Slurp up headers: later we'll make this more efficient I guess
-                local $/ = "\x0d\x0a\x0d\x0a"; 
-                my $text = <$fh>;
-                $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                $self->_record($count,[ $self->_next_index($count), "INPUT", "{From file $file}" ] ) ;
-                $feedback = $self->_send_line($text);
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-                _debug($self, "control points to $$control\n") if ref($control) and $self->Debug;
-                $/ =    ref($control) ?  "\x0a" : $control ? $control :         "\x0a";
-                while (defined($text = <$fh>)) {
-                        $text =~ s/\x0d?\x0a/\x0d\x0a/g;
-                        $self->_record( $count,
-                                        [ $self->_next_index($count), "INPUT", "{from $file}\x0d\x0a" ] 
-                        );
-                        $feedback = $self->_send_line($text,1);
-
-                        unless ($feedback) {
-                                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                $fh->close;
-                                return undef;
-                        }
-                }
-                $feedback = $self->_send_line("\x0d\x0a");
-
-                unless ($feedback) {
-                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                        $fh->close;
-                        return undef;
-                }
-        } 
-
-        # Now for the crucial test: Did the append work or not?
-        ($code, $output) = ("","");
-
-        my $uid = undef;
-        until ( $code ) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);              # $o is already an array ref
-                      $self->_debug("append_file: Deciding if " . $o->[DATA] . " has the code.\n") 
-                                if $self->Debug;
-                      ($code) = $o->[DATA]  =~ /^\d+\s(NO|BAD|OK)/i; 
-                        # try to grab new msg's uid from o/p
-                      $o->[DATA]  =~ m#UID\s+\d+\s+(\d+)\]# and $uid = $1; 
-                      if ($o->[DATA] =~ /^\*\s+BYE/) {
-                              carp $o->[DATA];
-                                $self->State(Unconnected);
-                                $fh->close;
-                                return undef ;
-                      } elsif ( $o->[DATA]=~ /^\d+\s+(NO|BAD)/i ) {
-                              carp $o->[DATA];
-                                $fh->close;
-                                return undef;
-                        }
-                }
-        }
-        $fh->close;
-
-        if ($code !~ /^OK/i) {
-                return undef;
-        }
-
-
-        return defined($uid) ? $uid : $self;
-};
-
-
-
-
-*Mail::IMAPClient::fetch_hash = sub {
-	# taken from original lib, 
-	# just added split code.
-        my $self = shift;
-        my $hash = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-        my $msgs_ref_all = scalar($self->messages);
-	my $split = $self->Split() || scalar(@$msgs_ref_all);
-	while(my @msgs = splice(@$msgs_ref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgs_ref = \@msgs;
-	my $output = scalar($self->fetch($msgs_ref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( exists $hash->{$uid} ) {
-                                $entry = $hash->{$uid} ;
-                        }
-			else {
-                                $hash->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( exists $hash->{$mid} ) {
-                                $entry = $hash->{$mid} ;
-                        }
-			else {
-                                $hash->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]*)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash : $hash;
-};
-
-
-
-*Mail::IMAPClient::login = sub {
-        my $self = shift;
-        return $self->authenticate($self->Authmechanism,$self->Authcallback) 
-                if $self->{Authmechanism};
-
-        my $id   = $self->User;
-        my $has_quotes = $id =~ /^".*"$/ ? 1 : 0;
-        my $string =    "Login " . ( $has_quotes ? $id : qq("$id") ) . 
-	                " " . $self->Password . "\r\n";
-        $self->_imap_command($string) 
-                and $self->State(Authenticated);
-        # $self->folders and $self->separator unless $self->NoAutoList;
-        unless ( $self->IsAuthenticated) {
-                my($carp)       =  $self->LastError;
-                $carp           =~ s/^[\S]+ ([^\x0d\x0a]*)\x0d?\x0a/$1/;
-                carp $carp unless defined wantarray;
-                return undef;
-        };
-        return $self;
-};
-
-
-*Mail::IMAPClient::get_header = sub {
-        my($self , $msg, $header ) = @_;
-        my $val;
-        
-	#eval { $val = $self->parse_headers([$msg],$header)->{$header}[0] };
-	my $h = $self->parse_headers([$msg],$header);
-	#require Data::Dumper;
-	#print Data::Dumper->Dump([$h]);
-        #$val = $self->parse_headers([$msg],$header)->{$header}[0];
-	
-	$val = $h->{$msg}{$header}[0];
-        return defined($val)? $val : undef;
-};
-
-
-*Mail::IMAPClient::parse_headers = sub {
-        my($self,$msgspec_all,@fields) = @_;
-        my(%fieldmap) = map { ( lc($_),$_ )  } @fields;
-        my $msg; my $string; my $field;
-	#print ref($msgspec_all), "\n";
-	#if(ref($msgspec_all) eq 'HASH') {
-    #    print ref($msgspec_all), "\n";
-		#$msgspec_all = [$msgspec_all];
-	#}
-
-	unless(ref($msgspec_all) eq 'ARRAY') {
-		print "parse_headers want an ARRAY ref\n";
-		#exit 1;
-		return undef;
-	}
-	
-	my $headers = {};       # hash from message ids to header hash
-	my $split = $self->Split() || scalar(@$msgspec_all);
-	while(my @msgs = splice(@$msgspec_all, 0, $split)) {
-		$debug and print "SPLIT: @msgs\n";
-		my $msgspec = \@msgs;
-
-        # Make $msg a comma separated list, of messages we want
-        $msg = $self->Range($msgspec);
-		
-        if ($fields[0]  =~      /^[Aa][Ll]{2}$/         ) { 
-
-                $string =       "$msg body" . 
-                # use ".peek" if Peek parameter is a) defined and true, 
-                #       or b) undefined, but not if it's defined and untrue:
-
-                (       defined($self->Peek)            ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header]"                         ; 
-
-        }else {
-                $string =       "$msg body" .
-                # use ".peek" if Peek parameter is a) defined and true, or 
-                # b) undefined, but not if it's defined and untrue:
-
-                ( defined($self->Peek)                  ? 
-                        ( $self->Peek ? ".peek" : "" )  : 
-                        ".peek" 
-                ) .  "[header.fields (" . join(" ",@fields)     . ')]' ;
-        }
-
-        my @raw=$self->fetch(   $string ) or return undef;
-
-        
-        my $h = 0;              # reference to hash of current msgid, or 0 between msgs
-        
-        for my $header (map { split(/(?:\x0d\x0a)/,$_) } @raw) {
-                
-		no warnings;
-                if ( $header =~ /^\*\s+\d+\s+FETCH\s+\(.*BODY\[HEADER(?:\]|\.FIELDS)/i) {
-                        if ($self->Uid) {
-                                if ( my($msgid) = $header =~ /UID\s+(\d+)/ ) {
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                } 
-				else {
-                                        $h = {};
-                                }
-                        } 
-			else {
-                                if ( my($msgid) = $header =~ /^\*\s+(\d+)/ ) {
-                                        #start of new message header:
-                                        $h = {};
-                                        $headers->{$msgid} = $h;
-                                }
-                        }
-                }
-                next if $header =~ /^\s+$/;
-
-                # ( for vi
-                if ($header =~ /^\)/) {           # end of this message
-                        $h = 0;                   # set to be between messages
-                        next;
-                }
-                # check for '<optional_white_space>UID<white_space><UID_number><optional_white_space>)'
-                # when parsing headers by UID.
-                if ($self->Uid and my($msgid) = $header =~ /^\s*UID\s+(\d+)\s*\)/) {
-                        $headers->{$msgid} = $h;        # store in results against this message
-                        $h = 0;                         # set to be between messages
-                        next;
-                }
-
-                if ($h != 0) {                    # do we expect this to be a header?
-                        my $hdr = $header;
-                        chomp $hdr;
-                        $hdr =~ s/\r$//;
-			#print "W[$hdr]", ref($hdr), "!\n";
-			#next if ( ! defined($hdr));
-			#print "X[$hdr]\n";
-
-                        if (defined($hdr) and ($hdr =~ s/^(\S+):\s*//)) {
-			# if ($hdr =~ s/^(\S+):\s*//) {
-				#print "X1\n";
-				$field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ($hdr =~ s/^.*FETCH\s\(.*BODY\[HEADER\.FIELDS.*\)\]\s(\S+):\s*//) { 
-				#print "X2\n";
-                                $field = exists $fieldmap{lc($1)} ? $fieldmap{lc($1)} : $1 ;
-                                push @{$h->{$field}} , $hdr ;
-                        } elsif ( ref($h->{$field}) eq 'ARRAY') {
-				#print "X3\n";
-                                
-                                        $hdr =~ s/^\s+/ /;
-                                        $h->{$field}[-1] .= $hdr ;
-                        }
-                }
-        }
-	use warnings;
-#       my $candump = 0;
-#       if ($self->Debug) {
-#                eval {
-#                        require Data::Dumper;
-#                        Data::Dumper->import;
-#                };
-#                $candump++ unless $@;
-#        }
-
-	}
-        # if we asked for one message, just return its hash,
-        # otherwise, return hash of numbers => header hash
-        # if (ref($msgspec) eq 'ARRAY') {
-        
-	return $headers;
-        
-};
-
-
-*Mail::IMAPClient::authenticate = sub {
-
-        my $self        = shift;
-        my $scheme      = shift;
-        my $response    = shift;
-
-        $scheme   ||= $self->Authmechanism;
-        $response ||= $self->Authcallback;
-        my $clear = $self->Clear;
-
-        $self->Clear($clear)
-                if $self->Count >= $clear and $clear > 0;
-
-        my $count       = $self->Count($self->Count+1);
-
-
-        my $string = "$count AUTHENTICATE $scheme";
-
-        $self->_record($count,[ $self->_next_index($self->Transaction), 
-                                "INPUT", "$string\x0d\x0a"] );
-
-        my $feedback = $self->_send_line("$string");
-
-        unless ($feedback) {
-                $self->LastError("Error sending '$string' to IMAP: $!\n");
-                return undef;
-        }
-
-        my ($code, $output);
-
-        until ($code) {
-                $output = $self->_read_line or return undef;
-		
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        ($code) = $o->[DATA] =~ /^\+(.*)$/ ;
-                        if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                $self->State(Unconnected);
-                                return undef ;
-                        }
-                        if ($o->[DATA]=~ /^\d+\s+(NO|BAD)/i) {
-                                return undef ;
-			}
-                }
-        }
-
-        if ('CRAM-MD5' eq $scheme && ! $response) {
-          if ($Mail::IMAPClient::_CRAM_MD5_ERR) {
-            $self->LastError($Mail::IMAPClient::_CRAM_MD5_ERR);
-            carp $Mail::IMAPClient::_CRAM_MD5_ERR;
-          } 
-	  else {
-            $response = \&Mail::IMAPClient::_cram_md5;
-          }
-        }
-
-        $feedback = $self->_send_line($response->($code, $self));
-
-        unless ($feedback) {
-                $self->LastError("Error sending append msg text to IMAP: $!\n");
-                return undef;
-        }
-
-        $code = "";     # clear code
-        until ($code) {
-                $output = $self->_read_line or return undef;
-                foreach my $o (@$output) {
-                        $self->_record($count,$o);      # $o is a ref
-                        if ( ($code) = $o->[DATA] =~ /^\+ (.*)$/ ) {
-                                $feedback = $self->_send_line($response->($code,$self));
-                                unless ($feedback) {
-                                        $self->LastError("Error sending append msg text to IMAP: $!\n");
-                                        return undef;
-                                }
-                                $code = "" ;            # Clear code; we're still not finished
-                        } else {
-                                $o->[DATA] =~ /^$count (OK|NO|BAD)/ and $code = $1;
-                                if ($o->[DATA] =~ /^\*\s+BYE/) {
-                                        $self->State(Unconnected);
-                                        return undef ;
-                                }
-                        }
-                }
-        }
-
-        $code =~ /^OK/ and $self->State(Authenticated) ;
-        return $code =~ /^OK/ ? $self : undef ;
-
-};
-
-
-
-*Mail::IMAPClient::_cram_md5 = sub  {
-  my ($code, $client) = @_;
-  my $hmac = Digest::HMAC_MD5::hmac_md5_hex(MIME::Base64::decode($code),
-                                            $client->Password());
-  return MIME::Base64::encode($client->User() . " $hmac", "");
-};
-
-*Mail::IMAPClient::message_string = sub {
-        my $self = shift;
-        my $msg  = shift;
-        my $expected_size = $self->size($msg);
-        return undef unless(defined $expected_size);    # unable to get size
-        my $cmd  =      $self->has_capability('IMAP4REV1')                              ?
-                                "BODY" . ( $self->Peek ? '.PEEK[]' : '[]' )             :
-                                "RFC822" .  ( $self->Peek ? '.PEEK' : ''  )             ;
-
-        $self->fetch($msg,$cmd) or return undef;
-
-        my $string = "";
-
-        foreach my $result  (@{$self->{"History"}{$self->Transaction}}) {
-              $string .= $result->[DATA]
-                if defined($result) and $self->_is_literal($result) ;
-        }
-
-        # BUG? should probably return undef if length != expected
-	# No bug, somme servers are buggy.
-
-	if (! $self->Ignoresizeerrors ) {
-        	if ( length($string) != $expected_size ) {
-                	warn "message_string: " .
-                        	"expected $expected_size bytes but received " .
-                        	length($string) . "\n";
-			$self->LastError("message_string: expected ".
-                        	"$expected_size bytes but received " .
-                        	length($string)."\n");
-        	}
-	}
-        return $string;
-};
-
-
-
-{
-no warnings 'once';
-
-*Mail::IMAPClient::Ssl = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{SSL} = shift }
-	return $self->{SSL};
-};
-
-*Mail::IMAPClient::exists = sub  {
-    my ( $self, $folder ) = @_;
-    $self->status($folder) ? $self : undef;
-};
-
-
-
-*Mail::IMAPClient::Authuser = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{AUTHUSER} = shift }
-	return $self->{AUTHUSER};
-};
-
-
-*Mail::IMAPClient::Ignoresizeerrors = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{IGNORESIZEERRORS} = shift }
-	return $self->{IGNORESIZEERRORS};
-};
-
-*Mail::IMAPClient::Reconnectretry = sub {
-	my $self = shift;
-	
-	if (@_) { $self->{RECONNECTRETRY} = shift }
-	return $self->{RECONNECTRETRY};
-};
-
-
-*Mail::IMAPClient::reconnect  = sub {
-    my $self = shift;
-
-    if ( $self->IsAuthenticated ) {
-        $self->_debug("reconnect called but already authenticated");
-        return $self;
-    }
-
-    my $einfo = $self->LastError || "";
-    $self->_debug( "reconnecting to ", $self->Server, ", last error: $einfo" );
-
-    # reconnect and select appropriate folder
-    $self->connect or return undef;
-
-    return ( defined $self->Folder ) ? $self->select( $self->Folder ) : $self;
-};
-
-
-# wrapper for _imap_command_do to enable retrying on lost connections
-*Mail::IMAPClient::_imap_command  = sub {
-    my $self = shift;
-
-    my $tries = 0;
-    my $retry = $self->Reconnectretry || 0;
-    my ( $rc, @err );
-
-    # LastError (if set) will be overwritten masking any earlier errors
-    while ( $tries++ <= $retry ) {
-        # do command on the first try or if Connected (reconnect ongoing)
-        if ( $tries == 1 or $self->IsConnected ) {
-	    #print "call @_\n";
-            $rc = $self->_imap_command_do(@_);
-            push( @err, $self->LastError ) if $self->LastError;
-	    #print "call @_ done [", $rc || '', "] [$tries/$retry][" . $self->IsUnconnected . "]\n";
-        }
-	
-        if ( !defined($rc) and $retry and $self->IsUnconnected
-	     and $self->LastIMAPCommand !~ /LOGOUT/) {
-	   print "\nWarning: disconnected. ";
-           if ( $self->reconnect ) {
-                print "Reconnect successful on try #$tries\n";
-		$self->Reconnect_counter($self->Reconnect_counter() + 1);
-            }
-            else {
-                print "Reconnect failed on try #$tries\n";
-                push( @err, $self->LastError ) if $self->LastError;
-            }
-        }
-        else {
-            last;
-        }
-    }
-
-    unless ($rc) {
-        my ( %seen, @keep, @info );
-
-        foreach my $str (@err) {
-            my ( $sz, $len ) = ( 96, length($str) );
-            $str =~ s/$CR?$LF$/\\n/omg;
-            if ( !$self->Debug and $len > $sz * 2 ) {
-                my $beg = substr( $str, 0,    $sz );
-                my $end = substr( $str, -$sz, $sz );
-                $str = $beg . "..." . $end;
-            }
-            next if $seen{$str}++;
-            push( @keep, $str );
-        }
-        foreach my $msg (@keep) {
-            push( @info, $msg . ( $seen{$msg} > 1 ? " ($seen{$msg}x)" : "" ) );
-        }
-        $self->LastError( join( "; ", @info ) );
-    }
-
-    return $rc;
-};
-
-
-*Mail::IMAPClient::_imap_command_do = sub {
-	
-	my $self 	= shift;
-	my $string 	= shift 	or return undef;
-	my $good 	= shift 	|| 'GOOD';
-
-	my $qgood = quotemeta($good);
-
-	my $clear = "";
-	$clear = $self->Clear;
-
-	$self->Clear($clear) 
-		if $self->Count >= $clear and $clear > 0;
-
-	my $count 	= $self->Count($self->Count+1);
-
-	$string 	= "$count $string" ;
-
-	$self->_record($count,[ 0, "INPUT", "$string\x0d\x0a"] );
-
-	my $feedback = $self->_send_line("$string");
-
-	unless ($feedback) {
-		$self->LastError( "Error sending '$string' to IMAP: $!\n");
-		$@ = "Error sending '$string' to IMAP: $!";
-		carp "Error sending '$string' to IMAP: $!";
-		return undef;
-	}
-
-	my ($code, $output);	
-	$output = "";
-
-	READ: until ( $code)  {
-	    	# escape infinite loop if read_line never returns any data:
-              	$output = $self->_read_line or return undef; 
-
-		for my $o (@$output) { 
-			$self->_record($count,$o);	# $o is a ref
-                      # $self->_debug("Received from readline: ${\($o->[DATA])}<<END OF RESULT>>\n");
-			next unless $self->_is_output($o);
-			if ( $good eq '+' ) {
-                      		$o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)|^($qgood)/mi ;
-				$code = $1||$2 ;
-			} else {
-                      		($code) = $o->[DATA] =~ /^$count (OK|BAD|NO|$qgood)/mi ;
-			}
-                      if ($o->[DATA] =~ /^\*\s+BYE/im) {
-				$self->State(Unconnected);
-				return undef ;
-			}
-		}
-	}	
-	
-	# $self->_debug("Command $string: returned $code\n");
-	return $code =~ /^OK|$qgood/im ? $self : undef ;
-
-};
-
-# capability 2.2.9 is stupid: it caches and return first imap CAPABILITY call
-# but call imap CAPABILITY each time.
-# Copy/paste from 3.25
-*Mail::IMAPClient::capability = sub {
-    my $self = shift;
-
-    if ( $self->{CAPABILITY} ) {
-        my @caps = keys %{ $self->{CAPABILITY} };
-        return wantarray ? @caps : \@caps;
-    }
-
-    $self->_imap_command('CAPABILITY')
-      or return undef;
-
-    my @caps = map { split } grep s/^\*\s+CAPABILITY\s+//, $self->History;
-    foreach (@caps) {
-        $self->{CAPABILITY}{ uc $_ }++;
-        $self->{ uc $1 } = uc $2 if /(.*?)\=(.*)/;
-    }
-
-    return wantarray ? @caps : \@caps;
-};
-
-*Mail::IMAPClient::_read_line = sub {
-	my $self 	= shift;	
-	my $sh		= $self->Socket;
-	my $literal_callback    = shift;
-	my $output_callback = shift;
-	
-	unless ($self->IsConnected and $self->Socket) {
-		$self->LastError("NO Not connected.\n");
-		carp "Not connected" if $^W;
-		return undef;
-	}
-
-	my $iBuffer	= ""; 
-	my $oBuffer	= [];
-	my $count	= 0;
-	my $index	= $self->_next_index($self->Transaction);
-	my $rvec 	= my $ready = my $errors = 0; 
-	my $timeout	= $self->Timeout;
-
-	my $readlen 	= 1;
-	my $fast_io	= $self->Fast_io;	# Remember setting to reduce future method calls
-
-	if ( $fast_io ) {
-		
-		# set fcntl if necessary:
-		exists $self->{_fcntl} or $self->Fast_io($fast_io);
-		$readlen = $self->{Buffer}||4096;
-	}
-	until (	
-		# there's stuff in output buffer:
-		scalar(@$oBuffer)	and 			
-
-		# the last thing there has cr-lf:
-                $oBuffer->[-1][DATA] =~ /\x0d\x0a$/  and     
-
-		# that thing is an output line:
-                $oBuffer->[-1][TYPE]    eq "OUTPUT"  and     
-
-		# and the input buffer has been MT'ed:
-		$iBuffer		eq "" 		
-
-	) {
-              my $transno = $self->Transaction;  # used below in several places
-		if ($timeout) {
-			vec($rvec, fileno($self->Socket), 1) = 1;
-			my @ready = $self->{_select}->can_read($timeout) ;
-			unless ( @ready ) {
-				$self->LastError("Tag $transno: " .
-					"Timeout after $timeout seconds " .
-					"waiting for data from server\n");	
-				$self->_record($transno,
-					[	$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Timeout after ".
-						"$timeout seconds " .
-						"during read from " .
-						"server\x0d\x0a"
-					]
-				);
-				$self->LastError(
-					"Timeout after $timeout seconds " .
-					"during read from server\x0d\x0a"
-				);
-				return undef;
-			}
-		}
-		
-		#local($^W) = undef;	# Now quiet down warnings
-
-		# read "$readlen" bytes (or less):
-              # need to check return code from $self->_sysread 
-  	      #	in case other end has shut down!!!
-              my $ret = $self->_sysread( $sh, \$iBuffer, $readlen, length($iBuffer)) ;
-	      # $self->_debug("Read so far: $iBuffer<<END>>\n");
-	      redo if(! defined($ret)) ;
-              if(($timeout and ! defined($ret))) { # Blocking read error...
-                  my $msg = "Error while reading data from server: $!\x0d\x0a";
-		  $self->LastError('Error while reading data from server');
-		  $self->State(Unconnected);
-		  print $msg;
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-		  
-                  return undef;
-              }
-              elsif(defined($ret) and $ret == 0) {    # Caught EOF...
-                  my $msg="Socket closed while reading data from server [$!]\x0d\x0a";
-		  print "$msg";
-		  $self->LastError('Socket closed while reading data from server');
-		  $self->State(Unconnected);
-                  $self->_record($transno,
-                                 [ $self->_next_index($transno),
-                                   "ERROR", "$transno * NO $msg "
-                                   ]);
-                  $@ = "$msg";
-                  return undef;
-              }
-	      
-              # successfully wrote to other end, keep going...
-              $count += $ret;
-		LINES: while ( $iBuffer =~ s/^(.*?\x0d?\x0a)// ) {
-		   my $current_line = $1;
-
-		   # $self->_debug("BUFFER: pulled from buffer: <BEGIN>${current_line}<END>\n" .
-		   # 	"and left with buffer contents of: <BEGIN>${iBuffer}<END>\n");
-
-		   LITERAL: if ($current_line =~ s/\{(\d+)\}\x0d\x0a$//) {
-			# This part handles IMAP "Literals", 
-			# which according to rfc2060 look something like this:
-			# [tag]|* BLAH BLAH {nnn}\r\n
-			# [nnn bytes of literally transmitted stuff]
-			# [part of line that follows literal data]\r\n
-
-			# Set $len to be length of impending literal:
-			my $len = $1 ;
-			
-			$self->_debug("LITERAL: received literal in line ".
-				"$current_line of length $len; ".
-				"attempting to ".
-				"retrieve from the " . length($iBuffer) . 
-				" bytes in: $iBuffer<END_OF_iBuffer>\n");
-
-			# Xfer up to $len bytes from front of $iBuffer to $litstring: 
-			my $litstring = substr($iBuffer, 0, $len);
-			$iBuffer = substr($iBuffer, length($litstring), 
-					length($iBuffer) - length($litstring) ) ;
-
-			# Figure out what's left to read (i.e. what part of 
-			# literal wasn't in buffer):
-			my $remainder_count = $len - length($litstring);
-			my $callback_value = "";
-
-			if ( defined($literal_callback) ) 	{	
-				if 	( $literal_callback =~ /GLOB/) 	{	
-					print $literal_callback $litstring ;
-					$litstring = "";
-				} elsif ($literal_callback =~ /CODE/ ) {
-					# Don't do a thing
-
-				} else 	{
-					$self->LastError(
-						ref($literal_callback) . 
-						" is an invalid callback type; " .
-						"must be a filehandle or coderef\n"
-					); 
-				}
-
-		
-			}
-			if ($remainder_count > 0 and $timeout) {
-				# If we're doing timeouts then here we set up select 
-				# and wait for data from the the IMAP socket.
-				vec($rvec, fileno($self->Socket), 1) = 1;
-				unless ( CORE::select( $ready = $rvec, 
-							undef, 
-							$errors = $rvec, 
-							$timeout) 
-				) {	
-					# Select failed; that means bad news. 
-					# Better tell someone.
-					$self->LastError("Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n");	
-					carp "Tag " . $transno . 
-						": Timeout waiting for literal data " .
-						"from server\n"
-						if $self->Debug or $^W;	
-					return undef;
-				}	
-			} 
-			
-			fcntl($sh, F_SETFL, $self->{_fcntl}) 
-				if $fast_io and defined($self->{_fcntl});
-			while ( $remainder_count > 0 ) {	   # As long as not done,
-				$self->_debug("Still need $remainder_count to " .
-					"complete literal string\n");
-				my $ret	= $self->_sysread(   	   # bytes read
-						$sh, 		   # IMAP handle 
-						\$litstring,	   # place to read into
-						$remainder_count,  # bytes left to read
-						length($litstring) # offset to read into
-				) ;
-				$self->_debug("Received ret=$ret and buffer = " .
-				"\n$litstring<END>\nwhile processing LITERAL\n");
-				if ( $timeout and !defined($ret)) { # possible timeout
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * NO Error reading data " .
-						"from server: $!\n"
-						]
-					);
-					return undef;
-				} elsif ( $ret == 0 and eof($sh) ) {
-					$self->_record($transno, [ 
-						$self->_next_index($transno),
-						"ERROR",
-						"$transno * ".
-						"BYE Server unexpectedly " .
-						"closed connection: $!\n"	
-						]
-					);
-					$self->State(Unconnected);
-					return undef;
-				}
-				# decrement remaining bytes by amt read:
-				$remainder_count -= $ret;	   
-
-				if ( length($litstring) > $len ) {
-                                    # copy the extra struff into the iBuffer:
-                                    $iBuffer = substr(
-                                        $litstring,   
-                                        $len, 
-                                        length($litstring) - $len 
-                                    );
-                                    $litstring = substr($litstring, 0, $len) ;
-                                }
-
-				if ( defined($literal_callback) ) {
-					if ( $literal_callback =~ /GLOB/ ) {
-						print $literal_callback $litstring;
-						$litstring = "";
-					} 
-				}
-
-			}
-			$literal_callback->($litstring) 
-				if defined($litstring) and 
-				defined($literal_callback) and $literal_callback =~ /CODE/;
-
-			$self->Fast_io($fast_io) if $fast_io;
-
-		# Now let's make sure there are no IMAP server output lines 
-		# (i.e. [tag|*] BAD|NO|OK Text) embedded in the literal string
-		# (There shouldn't be but I've seen it done!), but only if
-		# EnableServerResponseInLiteral is set to true
-
-			my $embedded_output = 0;
-			my $lastline = ( split(/\x0d?\x0a/,$litstring))[-1] 
-				if $litstring;
-
-			if ( 	$self->EnableServerResponseInLiteral and
-				$lastline and 
-				$lastline =~ /^(?:\*|(\d+))\s(BAD|NO|OK)/i 
-			) {
-			  $litstring =~ s/\Q$lastline\E\x0d?\x0a//;
-			  $embedded_output++;
-
-			  $self->_debug("Got server output mixed in " .
-					"with literal: $lastline\n"
-			  ) 	if $self->Debug;
-
-			}
-		  	# Finally, we need to stuff the literal onto the 
-			# end of the oBuffer:
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line],
-					[ $index++, "LITERAL", $litstring   ];
-			push @$oBuffer,	[ $index++, "OUTPUT",  $lastline    ] 
-					if $embedded_output;
-
-		  } else { 
-			push @$oBuffer, [ $index++, "OUTPUT" , $current_line ]; 
-		  }
-		
-		}
-		#$self->_debug("iBuffer is now: $iBuffer<<END OF BUFFER>>\n");
-	}
-	#	_debug $self, "Buffer is now $buffer\n";
-      _debug $self, "Read: " . join("",map {$_->[DATA]} @$oBuffer) ."\n" 
-		if $self->Debug;
-	return scalar(@$oBuffer) ? $oBuffer : undef ;
-};
-
-
-
-}
-
-# End of sub override_imapclient (yes, very bad indentation)
-}
-
-sub myconnect {
-	my $self = shift;
-	
-	$debug and print "Entering myconnect\n";
-	%$self = (%$self, @_);
-
-        my $sock = (($self->Ssl) ? IO::Socket::SSL->new : IO::Socket::INET->new);
-        my $dp = ($self->Ssl ? 'imaps(993)' : 'imap(143)');
-
-	$debug and print "Calling configure\n";
-	my $ret = $sock->configure({
-		PeerAddr => $self->Server		,
-                PeerPort => $self->Port||$dp	       	,
-                Proto    => 'tcp' 			,
-                Timeout  => $self->Timeout||0		,
-		Debug	=> $self->Debug 		,
-	});
-	unless ( defined($ret) ) {
-		$self->LastError( "$@\n");	  
-		$@ 		= "$@";   
-		carp 		  "$@" 
-				unless defined wantarray;	
-		return undef;
-	}
-	$sock->autoflush(1);
-	
-	my $banner = $sock->getline();
-	$debug and print "Read: $banner";
-	
-	$self->Banner($banner);
-	$self->RawSocket2($sock);
-	$self->State(Connected);
-	
-	if ($self->Tls) {
-	    $debug and print "Calling starttls\n";
-	    
-	    my $banner = starttls($self);
-	    $debug and print "End starttls: $banner\n";
-	}
-	
-	$self->Ignoresizeerrors($allowsizemismatch);
-	
-	if ($self->User and $self->Password) {
-		$debug and print "Calling login\n";
-		return $self->login ;
-	} 
-	else {
-		return $self;
-	}
-}
-
-
-sub starttls {
-  my $self   = shift;
-  my $socket   = $self->RawSocket2();
-  
-  $debug and print "Entering starttls\n";
-  my $banner = $self->Banner();
-  $debug and print $banner;
-  unless ($banner =~ /^\* OK \[CAPABILITY.*STARTTLS.*\]/) {
-    die_clean( "No STARTTLS capability: $banner" );
-  }
-  print $socket, "\n";
-  print $socket "z00 STARTTLS\015\012";
-  my $txt = $socket->getline();
-  $debug and print "Read: $txt";
-  unless($txt =~ /^z00 OK/){
-    die_clean( "Invalid response for STARTTLS: $txt\n" );
-  }
-  $debug and print "Calling start_SSL\n";
-  unless(IO::Socket::SSL->start_SSL($socket,
-      {
-      SSL_version    =>  "TLSV1",
-      SSL_startHandshake => 1,
-      SSL_verify_depth => 1,
-      }))
-  {
-    die_clean( "Couldn't start TLS: ".IO::Socket::SSL::errstr()."\n");
-  }
-  if (ref($socket) ne "IO::Socket::SSL") {
-    die_clean( "Socket has NOT been converted to SSL");
-  }else{
-     $debug and print "Socket successfuly converted to SSL\n";
-  }
-  $banner;
-}
-
-# IMAPClient 2.2.9 3.xx ads
-
-package Mail::IMAPClient;
-
-sub Split {
-	my $self = shift;
-	
-	if (@_) { 
-		$self->{SPLIT} = shift;
-		$self->{Maxcommandlength} = 10 * $self->{SPLIT};
-	}
-	return $self->{SPLIT};
-}
-
-sub Tls {
-	my $self = shift;
-	
-	if (@_) { $self->{TLS} = shift }
-	return $self->{TLS};
-}
-
-sub Reconnect_counter {
-	my $self = shift;
-	if (@_) { $self->{Reconnect_counter} = shift }
-	return $self->{Reconnect_counter};
-
-}
-
-
-sub Banner {
-	my $self = shift;
-	
-	if (@_) { $self->{BANNER} = shift }
-	return $self->{BANNER};
-}
-
-
-sub RawSocket2  {
-    my ( $self, $sock ) = @_;
-    defined $sock
-      or return $self->{Socket};
-
-    $self->{Socket}  = $sock;
-    $self->{_select} = IO::Select->new($sock);
-    delete $self->{_fcntl};
-    #$self->Fast_io( $self->Fast_io );
-    $sock;
-}
-
-sub capability_update {
-	my $self = shift;
-	
-	delete $self->{CAPABILITY};
-	$self->capability;
-}
-
-sub fetch_hash_2 {
-	# taken from above *Mail::IMAPClient::fetch_hash
-	# if last arg is a ref then the fetch is done only 
-	# on the messages listed as the keys of this hash.
-	# Init an "empty" $hash_ref by value can be done this way:
-	# @$hash_ref{2, 3, 4, 55} = (undef);
-	
-        my $self = shift;
-        my $hash_ref = ref($_[-1]) ? pop @_ : {};
-        my @words = @_;
-        for (@words) { 
-                s/([\( ])FAST([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE$2/i  ;
-                s/([\( ])FULL([\) ])/${1}FLAGS INTERNALDATE RFC822\.SIZE ENVELOPE BODY$2/i  ;
-        }
-	
-	my $msgs_ref_all;
-	if (scalar %$hash_ref) {
-		$msgs_ref_all = [ sort { $a <=> $b } keys (%$hash_ref) ];
-		#print "ZZZZ 1 [@$msgs_ref_all]\n";
-	}else{
-	        $msgs_ref_all = scalar($self->messages);
-		#print "ZZZZ 2 [@$msgs_ref_all]\n";
-	}
-	
-	my $split = $self->Split() || scalar(@$msgs_ref_all);
-	while(my @msgs = splice(@$msgs_ref_all, 0, $split)) {
-	#print "SPLIT: @msgs\n";
-	my $msgs_ref = \@msgs;
-	my $output = scalar($self->fetch($msgs_ref,"(" . join(" ",@_) . ")")) 
-        ; #     unless grep(/\b(?:FAST|FULL)\b/i,@words);
-        my $x;
-        for ($x = 0;  $x <= $#$output ; $x++) {
-                my $entry = {};
-                my $l = $output->[$x];
-                if ($self->Uid) {       
-                        my($uid) = $l =~ /\((?:.* )?UID (\d+).*\)/i;
-                        next unless $uid;
-                        if ( defined $hash_ref->{$uid} ) {
-                                $entry = $hash_ref->{$uid} ;
-                        }
-			else {
-                                $hash_ref->{$uid} ||= $entry;
-                        }
-                }
-		else {
-                        my($mid) = $l =~ /^\* (\d+) FETCH/i;
-                        next unless $mid;
-                        if ( defined $hash_ref->{$mid} ) {
-                                $entry = $hash_ref->{$mid} ;
-                        }
-			else {
-                                $hash_ref->{$mid} ||= $entry;
-                        }
-                }
-                        
-                foreach my $w (@words) {
-                   if ( $l =~ /\Q$w\E\s*$/i ) {
-                        $entry->{$w} = $output->[$x+1];
-                        $entry->{$w} =~ s/(?:\x0a?\x0d)+$//g;
-                        chomp $entry->{$w};
-                   }
-		   else {
-                        $l =~ /\(           # open paren followed by ... 
-                                (?:.*\s)?   # ...optional stuff and a space
-                                \Q$w\E\s    # escaped fetch field<sp>
-                                (?:"        # then: a dbl-quote
-                                  (\\.|   # then bslashed anychar(s) or ...
-                                   [^"]+)   # ... nonquote char(s)
-                                "|          # then closing quote; or ...
-                                \(          # ...an open paren
-                                  (\\.|     # then bslashed anychar or ...
-                                   [^\)]*)  # ... non-close-paren char
-                                \)|         # then closing paren; or ...
-                                (\S+))      # unquoted string
-                                (?:\s.*)?   # possibly followed by space-stuff
-                                \)          # close paren
-                        /xi;
-                        $entry->{$w}=defined($1)?$1:defined($2)?$2:$3;
-                   }
-                }
-        }
-}
-        return wantarray ? %$hash_ref : $hash_ref;
-}
diff --git a/W/patches/proxyauth-v2_1.366.patch b/W/patches/proxyauth-v2_1.366.patch
deleted file mode 100644
index b388076..0000000
--- a/W/patches/proxyauth-v2_1.366.patch
+++ /dev/null
@@ -1,168 +0,0 @@
-diff -urN imapsync-1.366.orig/FAQ imapsync-1.366/FAQ
---- imapsync-1.366.orig/FAQ	2010-10-30 12:24:10.951674625 +0200
-+++ imapsync-1.366/FAQ	2010-10-31 14:12:40.447361182 +0100
-@@ -514,6 +514,34 @@
- 	--exclude '^user\.'
- 
- ======================================================================
-+Q: How to migrate from Sun Java Enterprise System / Sun One / iPlanet /
-+Netscape servers with an admin account?
-+
-+R: Those imap servers don't allow the typical use of --authuser1 to use an
-+administrative account. They expect the use of an IMAP command called
-+proxyauth that is issued after login in as an administrative account.
-+
-+For example, consider the administrative account 'administrator' and your
-+real user 'real_user'. The IMAP sequence would be:
-+
-+  OK [CAPABILITY IMAP4 IMAP4rev1 ACL QUOTA LITERAL+ NAMESPACE UIDPLUS
-+  CHILDREN BINARY UNSELECT LANGUAGE STARTTLS XSENDER X-NETSCAPE XSERVERINFO
-+  AUTH=PLAIN] imap.server IMAP4 service (Sun Java(tm) System Messaging
-+  Server ...))
-+  1 LOGIN administrator password
-+  1 OK User logged in
-+  2 PROXYAUTH real_user
-+  2 OK Completed
-+
-+In imapsync, you can achieve this by using the following options:
-+
-+  --host1 source.imap.server \
-+  --user1 real_user \
-+  --authuser1 administrator \
-+  --proxyauth1 \
-+  --passfile admin.txt
-+
-+======================================================================
- Q. Is there anyway of making imapsync purge the destination folder
-    when the source folder is deleted?
- 
-diff -urN imapsync-1.366.orig/imapsync imapsync-1.366/imapsync
---- imapsync-1.366.orig/imapsync	2010-10-30 12:24:10.965674761 +0200
-+++ imapsync-1.366/imapsync	2010-10-31 13:09:59.922679699 +0100
-@@ -204,6 +204,9 @@
- with --authuser1 "adminuser", it will not work.
- Same behavior with the --authuser2 option.
- 
-+When working on Sun/iPlanet/Netscape IMAP servers you must use 
-+--proxyauth1 to enable administrative user to masquerade as another user. 
-+Can also be used on destination server with --proxyauth2 
- 
- =head1 EXIT STATUS
- 
-@@ -560,6 +563,7 @@
-         $ssl1, $ssl2,
- 	$tls1, $tls2,
-         $authuser1, $authuser2,
-+        $proxyauth1, $proxyauth2,
-         $authmech1, $authmech2,
-         $split1, $split2,
-         $reconnectretry1, $reconnectretry2,
-@@ -680,6 +684,14 @@
- $authmech1 = uc($authmech1);
- $authmech2 = uc($authmech2);
- 
-+if (defined $proxyauth1 && !$authuser1) {
-+        missing_option("With --proxyauth1, --authuser1");
-+}
-+
-+if (defined $proxyauth2 && !$authuser2) {
-+        missing_option("With --proxyauth2, --authuser2");
-+}
-+
- $authuser1 ||= $user1;
- $authuser2 ||= $user2;
- 
-@@ -721,12 +733,14 @@
- $debugimap1 and print "Host1 connection\n";
- $imap1 = login_imap($host1, $port1, $user1, $password1, 
- 		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
--		   $authmech1, $authuser1, $reconnectretry1);
-+		   $authmech1, $authuser1, $reconnectretry1,
-+		   $proxyauth1);
- 
- $debugimap2 and print "Host2 connection\n";
- $imap2 = login_imap($host2, $port2, $user2, $password2, 
- 		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
--		 $authmech2, $authuser2, $reconnectretry2);
-+		 $authmech2, $authuser2, $reconnectretry2,
-+		 $proxyauth2);
- 
- #  history
- 
-@@ -1551,7 +1565,8 @@
- sub login_imap {
- 	my($host, $port, $user, $password, 
- 	   $debugimap, $timeout, $fastio, 
--	   $ssl, $tls, $authmech, $authuser, $reconnectretry) = @_;
-+	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-+	   $proxyauth) = @_;
- 	my ($imap);
- 	
- 	$imap = Mail::IMAPClient->new();
-@@ -1591,13 +1606,25 @@
- 		}
- 	}
- 	
--	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-+        if ($proxyauth) {
-+                $imap->Authmechanism("");
-+        } else {
-+                $imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-+        }
-+
- 	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
- 	
- 
--	$imap->User($user);
--	$imap->Authuser($authuser);
--	$imap->Password($password);
-+        if ($proxyauth) {
-+                $imap->User($authuser);
-+                $imap->Authuser($authuser);
-+                $imap->Password($password);
-+        } else {
-+                $imap->User($user);
-+                $imap->Authuser($authuser);
-+                $imap->Password($password);
-+        }
-+
- 	unless ($imap->login()) {
- 		my $info  = "Error login: [$host] with user [$user] auth";
- 		my $einfo = $imap->LastError || @{$imap->History}[-1];
-@@ -1610,6 +1637,8 @@
- 		$imap->login() or
- 		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n");
- 	}
-+	$proxyauth && $imap->proxyauth($user);
-+
- 	print "Success login on [$host] with user [$user] auth [$authmech]\n";
- 	return($imap);
- }
-@@ -2423,6 +2452,8 @@
- 				   "authmech2=s" => \$authmech2,
- 				   "authuser1=s" => \$authuser1,
- 				   "authuser2=s" => \$authuser2,
-+				   "proxyauth1"        => \$proxyauth1,
-+				   "proxyauth2"        => \$proxyauth1,
- 				   "split1=i"    => \$split1,
- 				   "split2=i"    => \$split2,
- 				   "reconnectretry1=i" => \$reconnectretry1,
-@@ -2722,12 +2753,18 @@
- --user1       <string> : user to login on host1. Mandatory.
- --authuser1   <string> : user to auth with on host1 (admin user). 
-                          Avoid using --authmech1 SOMETHING with --authuser1.
-+--proxyauth1           : Use proxyauth on host1. Requires --authuser1.
-+                         Required by Sun/iPlanet/Netscape IMAP servers to
-+                         be able to use an administrative user
- --password1   <string> : password for the user1. Dangerous, use --passfile1
- --passfile1   <string> : password file for the user1. Contains the password.
- --host2       <string> : "destination" imap server. Mandatory.
- --port2       <int>    : port to connect on host2. Default is 143.
- --user2       <string> : user to login on host2. Mandatory.
- --authuser2   <string> : user to auth with on host2 (admin user).
-+--proxyauth2           : Use proxyauth on host2. Requires --authuser2.
-+                         Required by Sun/iPlanet/Netscape IMAP servers to
-+                         be able to use an administrative user
- --password2   <string> : password for the user2. Dangerous, use --passfile2
- --passfile2   <string> : password file for the user2. Contains the password.
- --noauthmd5            : don't use MD5 authentification.
diff --git a/W/patches/proxyauth_1.366.patch b/W/patches/proxyauth_1.366.patch
deleted file mode 100644
index d9baf01..0000000
--- a/W/patches/proxyauth_1.366.patch
+++ /dev/null
@@ -1,111 +0,0 @@
-diff -urN imapsync-1.366.orig/imapsync imapsync-1.366/imapsync
---- imapsync-1.366.orig/imapsync	2010-10-30 12:24:10.965674761 +0200
-+++ imapsync-1.366/imapsync	2010-10-30 14:13:31.456674582 +0200
-@@ -204,6 +204,9 @@
- with --authuser1 "adminuser", it will not work.
- Same behavior with the --authuser2 option.
- 
-+When working on Sun/iPlanet/Netscape IMAP servers you must use 
-+--proxyauth1 to enable administrative user to masquerade as another user. 
-+Can also be used on destination server with --proxyauth2 
- 
- =head1 EXIT STATUS
- 
-@@ -560,6 +563,7 @@
-         $ssl1, $ssl2,
- 	$tls1, $tls2,
-         $authuser1, $authuser2,
-+        $proxyauth1, $proxyauth2,
-         $authmech1, $authmech2,
-         $split1, $split2,
-         $reconnectretry1, $reconnectretry2,
-@@ -680,6 +684,14 @@
- $authmech1 = uc($authmech1);
- $authmech2 = uc($authmech2);
- 
-+if (defined $proxyauth1 && !$authuser1) {
-+        missing_option("With --proxyauth1, --authuser1");
-+}
-+
-+if (defined $proxyauth2 && !$authuser2) {
-+        missing_option("With --proxyauth2, --authuser2");
-+}
-+
- $authuser1 ||= $user1;
- $authuser2 ||= $user2;
- 
-@@ -721,12 +733,14 @@
- $debugimap1 and print "Host1 connection\n";
- $imap1 = login_imap($host1, $port1, $user1, $password1, 
- 		   $debugimap1, $timeout, $fastio1, $ssl1, $tls1,
--		   $authmech1, $authuser1, $reconnectretry1);
-+		   $authmech1, $authuser1, $reconnectretry1,
-+		   $proxyauth1);
- 
- $debugimap2 and print "Host2 connection\n";
- $imap2 = login_imap($host2, $port2, $user2, $password2, 
- 		 $debugimap2, $timeout, $fastio2, $ssl2, $tls2,
--		 $authmech2, $authuser2, $reconnectretry2);
-+		 $authmech2, $authuser2, $reconnectretry2,
-+		 $proxyauth2);
- 
- #  history
- 
-@@ -1551,7 +1565,8 @@
- sub login_imap {
- 	my($host, $port, $user, $password, 
- 	   $debugimap, $timeout, $fastio, 
--	   $ssl, $tls, $authmech, $authuser, $reconnectretry) = @_;
-+	   $ssl, $tls, $authmech, $authuser, $reconnectretry,
-+	   $proxyauth) = @_;
- 	my ($imap);
- 	
- 	$imap = Mail::IMAPClient->new();
-@@ -1591,13 +1606,25 @@
- 		}
- 	}
- 	
--	$imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-+        if ($proxyauth) {
-+                $imap->Authmechanism("");
-+        } else {
-+                $imap->Authmechanism($authmech) unless ($authmech eq 'LOGIN');
-+        }
-+
- 	$imap->Authcallback(\&plainauth) if $authmech eq "PLAIN";
- 	
- 
--	$imap->User($user);
--	$imap->Authuser($authuser);
--	$imap->Password($password);
-+        if ($proxyauth) {
-+                $imap->User($authuser);
-+                $imap->Authuser($authuser);
-+                $imap->Password($password);
-+        } else {
-+                $imap->User($user);
-+                $imap->Authuser($authuser);
-+                $imap->Password($password);
-+        }
-+
- 	unless ($imap->login()) {
- 		my $info  = "Error login: [$host] with user [$user] auth";
- 		my $einfo = $imap->LastError || @{$imap->History}[-1];
-@@ -1610,6 +1637,8 @@
- 		$imap->login() or
- 		  die_clean("$info [LOGIN]: ", $imap->LastError, "\n");
- 	}
-+	$proxyauth && $imap->proxyauth($user);
-+
- 	print "Success login on [$host] with user [$user] auth [$authmech]\n";
- 	return($imap);
- }
-@@ -2423,6 +2452,8 @@
- 				   "authmech2=s" => \$authmech2,
- 				   "authuser1=s" => \$authuser1,
- 				   "authuser2=s" => \$authuser2,
-+				   "proxyauth1"        => \$proxyauth1,
-+				   "proxyauth2"        => \$proxyauth1,
- 				   "split1=i"    => \$split1,
- 				   "split2=i"    => \$split2,
- 				   "reconnectretry1=i" => \$reconnectretry1,
diff --git a/W/pdq/pdq_i005 b/W/pdq/pdq_i005
deleted file mode 100755
index 6a24323..0000000
--- a/W/pdq/pdq_i005
+++ /dev/null
@@ -1,72 +0,0 @@
-#!/usr/bin/perl
-###############################################################################
-#  Copyright (C) 1994 - 2009, Performance Dynamics Company                    #
-#                                                                             #
-#  This software is licensed as described in the file COPYING, which          #
-#  you should have received as part of this distribution. The terms           #
-#  are also available at http://www.perfdynamics.com/Tools/copyright.html.    #
-#                                                                             #
-#  You may opt to use, copy, modify, merge, publish, distribute and/or sell   #
-#  copies of the Software, and permit persons to whom the Software is         #
-#  furnished to do so, under the terms of the COPYING file.                   #
-#                                                                             #
-#  This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY  #
-#  KIND, either express or implied.                                           #
-###############################################################################
-
-#
-#  $Id: test.pl,v 4.5 2012/11/08 23:16:44 earl-lang Exp $
-#
-
-use pdq;
-
-$arrivRate    = 9.9;
-$service_time = 0.1;
-
-#$arrivRate    = .00261165577342047930;
-#$service_time = 1774.1;
-
-
-#---- Initialize --------------------------------------------------------------
-
-pdq::Init("OpenCenter");
-pdq::SetComment("A simple M/M/1 queue");
-
-
-#---- Define the queueing center ----------------------------------------------
-
-$noNodes = pdq::CreateNode("server", $pdq::CEN, $pdq::FCFS);
-
-
-#---- Define the workload and circuit type ------------------------------------
-
-$noStreams = pdq::CreateOpen("work", $arrivRate);
-   
-pdq::SetWUnit("Customers");
-pdq::SetTUnit("Seconds");
-
-
-#---- Define service demand due to workload on the queueing center ------------
-
-pdq::SetDemand("server", "work", $service_time);
-
-
-#---- Solve the model ---------------------------------------------------------
-#  Must use the CANONical method for an open circuit
-
-pdq::Solve($pdq::CANON);
-
-
-#---- Generate a report -------------------------------------------------------
-
-pdq::Report();
-
-
-#printf "[print_nodes] Before 2\n";
-#pdq::PrintNodes();
-#printf "[print_nodes] After 2\n";
-
-#printf "pdq::nodes = %d\n", $pdq::nodes;
-#$node = pdq::GetNode(0);
-#printf "Node->{devname}\n", $node->{devname};
-
diff --git a/W/perlcritic_1.txt b/W/perlcritic_1.txt
deleted file mode 100644
index 98dc373..0000000
--- a/W/perlcritic_1.txt
+++ /dev/null
@@ -1,1074 +0,0 @@
-Code is not tidy at line 1, column 1.  See page 33 of PBP.  (Severity: 1)
-Check the spelling in your POD: NAME imapsync Email IMAP tool syncing copying migrating archiving email mailboxes between two imap servers one way without duplicates This refers to Imapsync We sometimes need transfer from server another command is allowing incremental recursive transfers mailbox you don't understand the previous it pedantic oriented All folders transferred recursively meaning whole folder hierarchy taken all them flags synced too reduces amount of by not transferring given already resides side that stay they see delete sync How knows both sides Same specific headers done only By default Received lines this choice can be changed with useheader preserved unread will read ones deleted You abort at any time restart later works well bad hit Ctr twice within order program Hit just makes reconnect classical scenario synchronizing where want keep copy has used deletes host also destroy then See foldersonly foldersbutnot up INBOX never mandatory different after successful good feature when since The account yet ie arrived failed copied implies expunge so marked really protocol deleting does flag undelete Expunging removes definitively decide remove empty their been Add emptyfolders obtain behavior adequate maintaining accounts synchronization plays independently offlineimap written Goerzen mbsync Michael Elkins ways forming credentials Three each needed log into These username password times following pass passwords environment sizes logfile name example Gmail present accelerate GM avoid syncs selection SECURITY passfile instead give safer With your using ps auxwwww Using like dangerous because auxwwwwe So saving protected rw best activates ssl tls encryption What detailed under known imaps closed clear connection TLS CAPABILITY list supported goes automatic detections fail protect against sniffing activities network especially directory STATUS status return everything went Otherwise exits zero That Here integer names reflect LICENSE free always cover NOLIMIT License now called NLPL included IS text enough repeat AUTHOR Good feedback welcome Bad very often earns his writing installing configuring teaching sold its author maintain over decades BUGS SERVERS HUGE many migrate think little shell Write file.txt containing users separator contains Windows batch replaced nothing Welcome programming find INSTALL There specified line parameters HACKING Feel hack license permits SIMILAR Last updated verified Dec HISTORY initially wrote July enterprise BaSystemes paid install new losing huge old located away remote broken low bandwidth ISDN link had verify every was wasting creating upon resyncs made beautiful rsync mind started life patch comes perl tarball precisely IMAPClient happened wonder remains at line 1, column 1.  See page 148 of PBP.  (Severity: 1)
-POD before __END__ at line 18, column 1.  See pages 139,140 of PBP.  (Severity: 1)
-Missing "REQUIRED ARGUMENTS" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "DIAGNOSTICS" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "DEPENDENCIES" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "INCOMPATIBILITIES" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Constant "$STR_use_releasecheck" is not all upper case at line 1019, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-File lexical variable "$fixInboxINBOX" is not all lower case or all upper case at line 1035, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Subroutine "single_sync" with high complexity score (414) at line 1119, column 1.  Consider refactoring.  (Severity: 3)
-String *may* require interpolation at line 1130, column 16.  See page 51 of PBP.  (Severity: 1)
-Postfix control "if" used at line 1243, column 25.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1244, column 26.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 1259, column 17.  See page 51 of PBP.  (Severity: 1)
-Double-sigil dereference at line 1270, column 34.  See page 228 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1285, column 119.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 1286, column 10.  See page 51 of PBP.  (Severity: 1)
-Postfix control "if" used at line 1300, column 15.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1301, column 21.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1312, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1322, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1386, column 29.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1420, column 31.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1421, column 22.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 1477, column 38.  See page 51 of PBP.  (Severity: 1)
-Useless use of $_ at line 1609, column 34.  $_ should be omitted when calling "uc".  (Severity: 2)
-Postfix control "if" used at line 1626, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1627, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-String *may* require interpolation at line 1630, column 26.  See page 51 of PBP.  (Severity: 1)
-Literal line breaks in a string at line 1651, column 18.  See pages 60,61 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 1846, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 1846, column 47.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 1846, column 47.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 1857, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 1857, column 47.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 1857, column 47.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2014, column 71.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2015, column 67.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2044, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 2071, column 38.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2094, column 47.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 2209, column 71.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2219, column 92.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2232, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2239, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 2245, column 29.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 2286, column 94.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 2296, column 41.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 2302, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2355, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2364, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2368, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 2380, column 59.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 2380, column 59.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2382, column 35.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2383, column 59.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2392, column 51.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2402, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2406, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 2417, column 59.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 2417, column 59.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2447, column 69.  See pages 93,94 of PBP.  (Severity: 2)
-Code structure is deeply nested at line 2448, column 41.  Consider refactoring.  (Severity: 3)
-Postfix control "if" used at line 2459, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2463, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2645, column 66.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2646, column 41.  See pages 93,94 of PBP.  (Severity: 2)
-Return value of flagged function ignored - print at line 2669, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-String *may* require interpolation at line 2707, column 51.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 2708, column 63.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 2724, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 2725, column 57.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2738, column 25.  See page 13 of PBP.  (Severity: 1)
-String *may* require interpolation at line 2754, column 50.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2767, column 24.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 2787, column 83.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 2787, column 83.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 2787, column 83.  See page 237 of PBP.  (Severity: 2)
-8 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2809, column 89.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Useless interpolation of literal string at line 2817, column 43.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 2822, column 43.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2828, column 21.  See page 13 of PBP.  (Severity: 1)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2836, column 23.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Builtin function called with parentheses at line 2841, column 18.  See page 13 of PBP.  (Severity: 1)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2847, column 21.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Builtin function called with parentheses at line 2859, column 9.  See page 13 of PBP.  (Severity: 1)
-7 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2876, column 97.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Builtin function called with parentheses at line 2885, column 16.  See page 13 of PBP.  (Severity: 1)
--1 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2894, column 21.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2902, column 23.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Builtin function called with parentheses at line 2927, column 21.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2946, column 18.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2989, column 14.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 2993, column 17.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3002, column 7.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3006, column 17.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3012, column 7.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 3170, column 54.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 3183, column 44.  See page 51 of PBP.  (Severity: 1)
-6 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3255, column 69.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Builtin function called with parentheses at line 3278, column 9.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3282, column 10.  See page 13 of PBP.  (Severity: 1)
-Octal literals (0000) are not allowed. Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3292, column 29.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Octal literals (0000) are not allowed. Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3294, column 10.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-777 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3294, column 27.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Regular expression without "/s" flag at line 3344, column 83.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 3344, column 83.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 3344, column 83.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 3351, column 45.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 3451, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 3491, column 1.  See page 182 of PBP.  (Severity: 3)
-Builtin function called with parentheses at line 3556, column 32.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3569, column 32.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 3580, column 19.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 3586, column 19.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 3593, column 17.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 3593, column 17.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 3594, column 17.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 3594, column 17.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3748, column 28.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 3749, column 28.  See page 13 of PBP.  (Severity: 1)
-Useless use of $_ at line 3797, column 50.  $_ should be omitted when calling "uc".  (Severity: 2)
-Useless use of $_ at line 3818, column 50.  $_ should be omitted when calling "uc".  (Severity: 2)
-Useless interpolation of literal string at line 4026, column 29.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 4109, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 4109, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 4109, column 23.  See page 237 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 4196, column 13.  See page 59 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 4456, column 17.  See page 13 of PBP.  (Severity: 1)
-File handle for "print" or "printf" is not braced at line 4504, column 9.  See page 217 of PBP.  (Severity: 1)
-Return value of flagged function ignored - print at line 4504, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Return value of "close" ignored at line 4505, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 4505, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 4529, column 16.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 4529, column 21.  See page 51 of PBP.  (Severity: 1)
-Postfix control "for" used at line 4531, column 33.  See page 96 of PBP.  (Severity: 2)
-Local lexical variable "$Side" is not all lower case or all upper case at line 4551, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-String *may* require interpolation at line 4591, column 49.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 4600, column 49.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 4648, column 44.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 4648, column 55.  See page 53 of PBP.  (Severity: 2)
-Local lexical variable "$Side" is not all lower case or all upper case at line 4674, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 4729, column 29.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 4729, column 29.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4729, column 29.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 4759, column 31.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 4759, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4759, column 31.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 4944, column 21.  See page 51 of PBP.  (Severity: 1)
-Local lexical variable "$imapT" is not all lower case or all upper case at line 4945, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-String *may* require interpolation at line 4949, column 70.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 4954, column 63.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 4975, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4975, column 47.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 4983, column 72.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 4989, column 25.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 5040, column 51.  See page 13 of PBP.  (Severity: 1)
-Too many arguments at line 5096, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5115, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5136, column 1.  See page 182 of PBP.  (Severity: 3)
-Builtin function called with parentheses at line 5152, column 29.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 5153, column 29.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 5186, column 17.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 5186, column 17.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 5203, column 61.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 5309, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 5309, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 5309, column 23.  See page 237 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 5440, column 30.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 5503, column 30.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 5503, column 30.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 5537, column 26.  See page 53 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 5684, column 17.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 5684, column 17.  See pages 208,278 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 5750, column 17.  See page 13 of PBP.  (Severity: 1)
-List of quoted literal words at line 5846, column 111.  Use 'qw()' instead.  (Severity: 2)
-List of quoted literal words at line 5852, column 126.  Use 'qw()' instead.  (Severity: 2)
-Regular expression without "/s" flag at line 6030, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6030, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6030, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6031, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6031, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6031, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6040, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6040, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6040, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6041, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6041, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6041, column 33.  See page 237 of PBP.  (Severity: 2)
-Found "\N{SPACE}" at the end of the line at line 6046, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6065, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6067, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Regular expression without "/s" flag at line 6071, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6071, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6071, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6073, column 41.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6073, column 41.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6073, column 41.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6108, column 50.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6108, column 50.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6108, column 50.  See page 237 of PBP.  (Severity: 2)
-Magic punctuation variable $! used at line 6109, column 85.  See page 79 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 6204, column 15.  See page 51 of PBP.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6222, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 6225, column 56.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6225, column 56.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6225, column 56.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6225, column 56.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 6227, column 56.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6227, column 56.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6227, column 56.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6227, column 56.  See page 237 of PBP.  (Severity: 2)
-Too many arguments at line 6258, column 1.  See page 182 of PBP.  (Severity: 3)
-Local lexical variable "$Side" is not all lower case or all upper case at line 6260, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6262, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Local lexical variable "$Side" is not all lower case or all upper case at line 6308, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Subroutine "authenticate_imap" with high complexity score (23) at line 6371, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 6371, column 1.  See page 182 of PBP.  (Severity: 3)
-Local lexical variable "$Side" is not all lower case or all upper case at line 6373, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 6381, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 6395, column 51.  See pages 96,97 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6398, column 40.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6399, column 40.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6400, column 42.  See pages 93,94 of PBP.  (Severity: 2)
-"unless" block used at line 6403, column 9.  See page 97 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 6409, column 39.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 6409, column 39.  See page 51 of PBP.  (Severity: 1)
-Local lexical variable "$Side" is not all lower case or all upper case at line 6450, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 6501, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6527, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 6539, column 1.  See page 182 of PBP.  (Severity: 3)
-Found "\N{SPACE}" at the end of the line at line 6539, column 14.  Don't use whitespace at the end of lines.  (Severity: 1)
-Local lexical variable "$Side" is not all lower case or all upper case at line 6541, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6550, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6551, column 32.  Don't use whitespace at the end of lines.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 6557, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Postfix control "if" used at line 6575, column 50.  See pages 93,94 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 6590, column 32.  See pages 54,55 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 6638, column 32.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6638, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6638, column 32.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 6644, column 24.  See page 13 of PBP.  (Severity: 1)
-Use "local $/ = undef" or Path::Tiny instead of joined readline at line 6651, column 47.  See page 213 of PBP.  (Severity: 3)
-Return value of "close" ignored at line 6652, column 17.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 6652, column 17.  See pages 208,278 of PBP.  (Severity: 1)
-Use named character classes ([A-Za-z] vs. [[:alpha:]]) at line 6662, column 69.  See page 248 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 6662, column 69.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6662, column 69.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6662, column 69.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6665, column 37.  See pages 93,94 of PBP.  (Severity: 2)
-Backtick operator used at line 6670, column 20.  Use IPC::Open3 instead.  (Severity: 3)
-"unless" block used at line 6695, column 9.  See page 97 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 6708, column 69.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 6708, column 112.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6733, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6733, column 32.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 6803, column 56.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 6803, column 56.  See page 53 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 6815, column 26.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 6815, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6815, column 26.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6815, column 26.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 6830, column 25.  See page 51 of PBP.  (Severity: 1)
-Constant "$NB_UNIX_tests_do_valid_directory" is not all upper case at line 6846, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 6848, column 82.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 6849, column 46.  See page 53 of PBP.  (Severity: 2)
-Constant "$NB_UNIX_tests_do_valid_directory_non_root" is not all upper case at line 6852, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 6854, column 91.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 6856, column 46.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 6872, column 17.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 6873, column 17.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 6874, column 17.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 6897, column 84.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 6903, column 42.  See pages 93,94 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6924, column 36.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6925, column 36.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6927, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6928, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6930, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6931, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6947, column 14.  See page 59 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 6947, column 22.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 6948, column 19.  See page 13 of PBP.  (Severity: 1)
-Magic punctuation variable $! used in interpolated string at line 6994, column 34.  See page 79 of PBP.  (Severity: 2)
-String *may* require interpolation at line 7028, column 13.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 7098, column 17.  See page 13 of PBP.  (Severity: 1)
-Double-sigil dereference at line 7114, column 17.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 7117, column 17.  See page 228 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 7153, column 56.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7163, column 64.  See page 51 of PBP.  (Severity: 1)
-File handle for "print" or "printf" is not braced at line 7216, column 17.  See page 217 of PBP.  (Severity: 1)
-Return value of flagged function ignored - print at line 7216, column 17.  See pages 208,278 of PBP.  (Severity: 1)
-Return value of "close" ignored at line 7217, column 17.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 7217, column 17.  See pages 208,278 of PBP.  (Severity: 1)
-Subroutine "fix_Inbox_INBOX_mapping" is not all lower case or all upper case at line 7228, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-String *may* require interpolation at line 7236, column 91.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 7237, column 91.  See page 51 of PBP.  (Severity: 1)
-Subroutine "tests_fix_Inbox_INBOX_mapping" is not all lower case or all upper case at line 7242, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-String *may* require interpolation at line 7259, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 7263, column 13.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7347, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7347, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7348, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7348, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7349, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7349, column 15.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 7364, column 25.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7369, column 28.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7380, column 44.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7383, column 100.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7411, column 42.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 7418, column 42.  See page 51 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 7429, column 15.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7429, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7429, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7430, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7430, column 15.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 7431, column 15.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7431, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7431, column 15.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 7475, column 31.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7475, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7475, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7551, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7551, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7554, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7554, column 20.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 7827, column 38.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7827, column 38.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7827, column 38.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7828, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7828, column 33.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 7832, column 33.  See page 247 of PBP.  (Severity: 1)
-Use [\.\/] instead of \.|\/ at line 7832, column 33.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7832, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7832, column 33.  See page 237 of PBP.  (Severity: 2)
-Local lexical variable "$Side" is not all lower case or all upper case at line 7862, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 7907, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7907, column 34.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7907, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7907, column 53.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7908, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7908, column 34.  See page 96 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 7908, column 53.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 7908, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7908, column 53.  See page 237 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7909, column 36.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7909, column 55.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7909, column 55.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7910, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7910, column 34.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7910, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7910, column 53.  See page 237 of PBP.  (Severity: 2)
-Forbid $b before $a in sort blocks at line 7912, column 27.  See page 152 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 7922, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7923, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7924, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7925, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7927, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7928, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7929, column 13.  See page 53 of PBP.  (Severity: 2)
-Local lexical variable "$Side" is not all lower case or all upper case at line 7937, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 8089, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 8090, column 40.  See page 53 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 8109, column 23.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8109, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 8109, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 8109, column 23.  See page 237 of PBP.  (Severity: 2)
-String *may* require interpolation at line 8191, column 17.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8192, column 17.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8193, column 17.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 8210, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8211, column 31.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 8246, column 43.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8247, column 63.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 8258, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8259, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8274, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8275, column 31.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 8278, column 43.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8281, column 43.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 8288, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8289, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8307, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8308, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8319, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8320, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8335, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8336, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8370, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8371, column 31.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 8414, column 34.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 8414, column 34.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8418, column 29.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 8418, column 29.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 8418, column 29.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8492, column 30.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8493, column 30.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 8496, column 74.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8497, column 74.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8498, column 74.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8499, column 74.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8500, column 74.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8501, column 74.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 8540, column 51.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8541, column 51.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8544, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8544, column 21.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 8551, column 26.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8551, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8551, column 26.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8572, column 62.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8572, column 67.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8573, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8573, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8574, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8574, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8575, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8575, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8576, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8576, column 71.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8578, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8578, column 71.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8580, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8580, column 71.  See page 53 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 8594, column 21.  See pages 54,55 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 8597, column 21.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8597, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8597, column 21.  See page 237 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 8598, column 21.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8598, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8598, column 21.  See page 237 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 8599, column 21.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8599, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8599, column 21.  See page 237 of PBP.  (Severity: 2)
-Use only '//' or '{}' to delimit regexps at line 8600, column 21.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8600, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8600, column 21.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 8600, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8600, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8600, column 86.  See page 53 of PBP.  (Severity: 2)
-Expression form of "eval" at line 8611, column 27.  See page 161 of PBP.  (Severity: 5)
-Quotes used with a noisy string at line 8630, column 35.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8641, column 49.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8641, column 49.  See page 237 of PBP.  (Severity: 2)
-String *may* require interpolation at line 8715, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8715, column 52.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8721, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8721, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8722, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8723, column 47.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8723, column 73.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8727, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8727, column 47.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8730, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8730, column 53.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8730, column 92.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8731, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8731, column 53.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8732, column 22.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8734, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8743, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8749, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8750, column 12.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8759, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8760, column 84.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8765, column 9.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8769, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8775, column 24.  See page 51 of PBP.  (Severity: 1)
-Expression form of "eval" at line 8813, column 27.  See page 161 of PBP.  (Severity: 5)
-"unless" block used at line 8837, column 25.  See page 97 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 8874, column 31.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8874, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8874, column 31.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 8877, column 49.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 8877, column 49.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8877, column 49.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8907, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8907, column 28.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8920, column 27.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8920, column 27.  See page 237 of PBP.  (Severity: 2)
-Useless use of $_ at line 8922, column 60.  $_ should be omitted when calling "lc".  (Severity: 2)
-Useless use of $_ at line 8922, column 82.  $_ should be omitted when calling "lc".  (Severity: 2)
-Builtin function called with parentheses at line 8955, column 21.  See page 13 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8971, column 34.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8971, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8972, column 34.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 8972, column 45.  See page 51 of PBP.  (Severity: 1)
-"unless" block used at line 9111, column 17.  See page 97 of PBP.  (Severity: 2)
-"unless" block used at line 9112, column 17.  See page 97 of PBP.  (Severity: 2)
-Postfix control "if" used at line 9200, column 22.  See pages 93,94 of PBP.  (Severity: 2)
-Subroutine "copy_message" with high complexity score (22) at line 9244, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9244, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "if" used at line 9263, column 107.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 9269, column 40.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 9274, column 40.  See page 51 of PBP.  (Severity: 1)
-Postfix control "if" used at line 9302, column 26.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 9312, column 40.  See page 51 of PBP.  (Severity: 1)
-Too many arguments at line 9319, column 1.  See page 182 of PBP.  (Severity: 3)
-Subroutine "message_for_host2" with high complexity score (25) at line 9353, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9353, column 1.  See page 182 of PBP.  (Severity: 3)
-Useless interpolation of literal string at line 9385, column 40.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 9390, column 40.  See page 51 of PBP.  (Severity: 1)
-"unless" block used at line 9395, column 9.  See page 97 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 9463, column 40.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9477, column 54.  See page 51 of PBP.  (Severity: 1)
-Long number not separated with underscores at line 9478, column 62.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 9478, column 70.  See page 59 of PBP.  (Severity: 2)
-String *may* require interpolation at line 9478, column 80.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 9505, column 21.  See page 51 of PBP.  (Severity: 1)
-Local lexical variable "$imapT" is not all lower case or all upper case at line 9506, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Constant "$NB_WIN_tests_message_for_host2" is not all upper case at line 9532, column 17.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 9533, column 75.  See pages 93,94 of PBP.  (Severity: 2)
-Constant "$NB_UNX_tests_message_for_host2" is not all upper case at line 9541, column 17.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 9542, column 72.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9622, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9622, column 32.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 9630, column 34.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 9631, column 35.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9631, column 35.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9631, column 35.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9636, column 43.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9636, column 43.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9636, column 43.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9640, column 43.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9640, column 43.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 9651, column 33.  See page 13 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 9651, column 39.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9685, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9685, column 32.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9685, column 32.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 9695, column 37.  See page 13 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 9695, column 43.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 9724, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9725, column 17.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 9771, column 45.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9771, column 45.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9780, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9780, column 32.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9780, column 32.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 9785, column 34.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 9792, column 34.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 9793, column 40.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9793, column 40.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 9804, column 33.  See page 13 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 9804, column 39.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 9815, column 21.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9832, column 53.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 9862, column 21.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9891, column 43.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9893, column 49.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9894, column 53.  See page 51 of PBP.  (Severity: 1)
-Reused variable name in lexical scope: $uid1 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-String *may* require interpolation at line 9958, column 17.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 9962, column 21.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 9973, column 17.  See page 51 of PBP.  (Severity: 1)
-Reused variable name in lexical scope: $uid1 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Builtin function called with parentheses at line 10043, column 9.  See page 13 of PBP.  (Severity: 1)
-Use only '//' or '{}' to delimit regexps at line 10101, column 22.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 10101, column 22.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10101, column 22.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 10106, column 44.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 10107, column 64.  See pages 93,94 of PBP.  (Severity: 2)
-String *may* require interpolation at line 10133, column 70.  See page 51 of PBP.  (Severity: 1)
-Too many arguments at line 10183, column 1.  See page 182 of PBP.  (Severity: 3)
-Useless interpolation of literal string at line 10186, column 40.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 10192, column 48.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 10205, column 41.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10205, column 41.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 10223, column 75.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10223, column 75.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 10308, column 26.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 10399, column 13.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 10399, column 13.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 10401, column 13.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 10401, column 13.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 10413, column 13.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 10413, column 13.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 10414, column 13.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 10414, column 13.  See page 51 of PBP.  (Severity: 1)
-Too many arguments at line 10422, column 1.  See page 182 of PBP.  (Severity: 3)
-Local lexical variable "$hostX_folder" is not all lower case or all upper case at line 10424, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 10428, column 43.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 10450, column 45.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 10480, column 21.  See page 51 of PBP.  (Severity: 1)
-List of quoted literal words at line 10487, column 21.  Use 'qw()' instead.  (Severity: 2)
-Useless interpolation of literal string at line 10550, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 10550, column 43.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 10556, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 10556, column 43.  See page 51 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 10717, column 23.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 10717, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10717, column 23.  See page 237 of PBP.  (Severity: 2)
-Use [\[\]] instead of \[|\] at line 10743, column 23.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 10743, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10743, column 23.  See page 237 of PBP.  (Severity: 2)
-String *may* require interpolation at line 10849, column 22.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10849, column 54.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10849, column 79.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10850, column 21.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10850, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10873, column 40.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10878, column 16.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10879, column 16.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10880, column 18.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 10881, column 18.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 10893, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10893, column 23.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11087, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11104, column 55.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 11105, column 43.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 11108, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11109, column 59.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 11181, column 40.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11181, column 53.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 11258, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11269, column 42.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11270, column 42.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11292, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11297, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-String *may* require interpolation at line 11302, column 61.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 11303, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11303, column 61.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 11304, column 13.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11304, column 61.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 11305, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 11305, column 51.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11305, column 61.  See page 51 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 11319, column 28.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 11319, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11319, column 28.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 11321, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11321, column 20.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11331, column 45.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11332, column 53.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11333, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11336, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11337, column 67.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 11347, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11347, column 20.  See page 237 of PBP.  (Severity: 2)
-String *may* require interpolation at line 11386, column 24.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11425, column 16.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11695, column 16.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11696, column 16.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11836, column 16.  See page 51 of PBP.  (Severity: 1)
-Expression form of "eval" at line 11892, column 27.  See page 161 of PBP.  (Severity: 5)
-String *may* require interpolation at line 11922, column 22.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 11930, column 22.  See page 51 of PBP.  (Severity: 1)
-Numeric escapes in interpolated string at line 11932, column 28.  See pages 54,55 of PBP.  (Severity: 2)
-String *may* require interpolation at line 11932, column 38.  See page 51 of PBP.  (Severity: 1)
-Numeric escapes in interpolated string at line 11937, column 28.  See pages 54,55 of PBP.  (Severity: 2)
-String *may* require interpolation at line 11944, column 23.  See page 51 of PBP.  (Severity: 1)
-Expression form of "eval" at line 12133, column 27.  See page 161 of PBP.  (Severity: 5)
-Builtin function called with parentheses at line 12189, column 16.  See page 13 of PBP.  (Severity: 1)
-Postfix control "if" used at line 12285, column 76.  See pages 93,94 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 12313, column 18.  See page 51 of PBP.  (Severity: 1)
-Subroutine "diff_or_NA" is not all lower case or all upper case at line 12346, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Use named character classes ([0-9] vs. \d) at line 12369, column 21.  See page 248 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 12369, column 21.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 12369, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12369, column 21.  See page 237 of PBP.  (Severity: 2)
-Subroutine "tests_diff_or_NA" is not all lower case or all upper case at line 12397, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Too many arguments at line 12444, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "unless" used at line 12482, column 34.  See pages 96,97 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12520, column 51.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12520, column 51.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12536, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12536, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12539, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12539, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12542, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12542, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12545, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12545, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12548, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12548, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12551, column 97.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12551, column 97.  See page 237 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 12572, column 58.  See pages 54,55 of PBP.  (Severity: 2)
-String *may* require interpolation at line 12596, column 98.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 12626, column 102.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 12659, column 99.  See page 51 of PBP.  (Severity: 1)
-Return value of "close" ignored at line 12705, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 12705, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 12716, column 29.  See page 53 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 12741, column 3.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 12741, column 3.  See pages 208,278 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 12756, column 39.  See page 53 of PBP.  (Severity: 2)
-Constant "$NB_UNX_tests_string_to_file" is not all upper case at line 12762, column 17.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 12763, column 78.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 12782, column 16.  See page 13 of PBP.  (Severity: 1)
-File handle for "print" or "printf" is not braced at line 12786, column 9.  See page 217 of PBP.  (Severity: 1)
-Return value of flagged function ignored - print at line 12786, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Return value of "close" ignored at line 12787, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 12787, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Backtick operator used at line 12817, column 17.  Use IPC::Open3 instead.  (Severity: 3)
-Builtin function called with parentheses at line 12820, column 17.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 12822, column 34.  See page 13 of PBP.  (Severity: 1)
-Constant "$NB_WIN_tests_pipemess" is not all upper case at line 12858, column 17.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 12859, column 66.  See pages 93,94 of PBP.  (Severity: 2)
-Local lexical variable "$stringT" is not all lower case or all upper case at line 12871, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Local lexical variable "$errorT" is not all lower case or all upper case at line 12871, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Constant "$NB_UNX_tests_pipemess" is not all upper case at line 12874, column 17.  See pages 45,46 of PBP.  (Severity: 1)
-Postfix control "if" used at line 12875, column 63.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12906, column 32.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12906, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12910, column 32.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12910, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12920, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12925, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12929, column 33.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12929, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12933, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12934, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12940, column 24.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12940, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 12967, column 28.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 12967, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12967, column 28.  See page 237 of PBP.  (Severity: 2)
-File handle for "print" or "printf" is not braced at line 12989, column 9.  See page 217 of PBP.  (Severity: 1)
-Return value of flagged function ignored - print at line 12989, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Return value of "close" ignored at line 12994, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 12994, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13034, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13034, column 36.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 13096, column 35.  See page 247 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 13099, column 39.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13113, column 37.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 13113, column 37.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 13113, column 37.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 13177, column 22.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13189, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13189, column 36.  See page 237 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 13207, column 24.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13208, column 17.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13209, column 17.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13224, column 49.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13225, column 27.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13226, column 33.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13227, column 42.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13228, column 40.  See page 51 of PBP.  (Severity: 1)
-Cascading if-elsif chain at line 13242, column 2.  See pages 117,118 of PBP.  (Severity: 3)
-Useless interpolation of literal string at line 13242, column 12.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13244, column 22.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13247, column 27.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 13248, column 3.  See page 13 of PBP.  (Severity: 1)
-String *may* require interpolation at line 13296, column 44.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 13299, column 53.  See page 51 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13312, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13312, column 28.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13324, column 33.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13332, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13342, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Return value of eval not tested at line 13396, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13397, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13406, column 16.  See page 261 of PBP.  (Severity: 3)
-Use character classes for literal metachars instead of escapes at line 13406, column 16.  See page 247 of PBP.  (Severity: 1)
-Return value of eval not tested at line 13419, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13420, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13429, column 16.  See page 261 of PBP.  (Severity: 3)
-Use character classes for literal metachars instead of escapes at line 13429, column 16.  See page 247 of PBP.  (Severity: 1)
-Return value of eval not tested at line 13443, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Capture variable used outside conditional at line 13454, column 12.  See page 253 of PBP.  (Severity: 3)
-Builtin function called with parentheses at line 13545, column 3.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13545, column 12.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13546, column 35.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13547, column 35.  See page 51 of PBP.  (Severity: 1)
-Local lexical variable "$total_ram_in_MB" is not all lower case or all upper case at line 13567, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13567, column 49.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 13571, column 55.  See page 51 of PBP.  (Severity: 1)
-Long number not separated with underscores at line 13571, column 61.  See page 59 of PBP.  (Severity: 2)
-Backtick operator used at line 13622, column 26.  Use IPC::Open3 instead.  (Severity: 3)
-Backtick operator used at line 13651, column 18.  Use IPC::Open3 instead.  (Severity: 3)
-String delimiter used with "split" at line 13656, column 42.  Express it as a regex instead.  (Severity: 2)
-Quotes used with a noisy string at line 13656, column 48.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13681, column 47.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13698, column 44.  See pages 93,94 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 13744, column 2.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 13755, column 11.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13781, column 39.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13781, column 39.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 13785, column 42.  See page 247 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13785, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 13785, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 13785, column 42.  See page 237 of PBP.  (Severity: 2)
-Subroutine "search_dyn_lib_locale_MSWin32" is not all lower case or all upper case at line 13834, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Backtick operator used at line 13839, column 16.  Use IPC::Open3 instead.  (Severity: 3)
-Subroutine "remove_Ko" is not all lower case or all upper case at line 13866, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13869, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13869, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13879, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13879, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13901, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13901, column 19.  See page 237 of PBP.  (Severity: 2)
-Use character classes for literal metachars instead of escapes at line 13938, column 20.  See page 247 of PBP.  (Severity: 1)
-Use [\+-] instead of \+|- at line 13938, column 20.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13938, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13938, column 20.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13941, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13942, column 36.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 13947, column 19.  See page 261 of PBP.  (Severity: 3)
-Use character classes for literal metachars instead of escapes at line 13947, column 19.  See page 247 of PBP.  (Severity: 1)
-Use [:\.] instead of :|\ at line 13947, column 19.  See page 265 of PBP.  (Severity: 1)
-Use [:\.] instead of :|\ at line 13947, column 19.  See page 265 of PBP.  (Severity: 1)
-Use [\+-] instead of \+|- at line 13947, column 19.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 13947, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13947, column 19.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13959, column 38.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13959, column 72.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13959, column 72.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13960, column 38.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13962, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13966, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13968, column 33.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 13973, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 13973, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13973, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13990, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13990, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14002, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14002, column 19.  See page 237 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14014, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 14014, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14014, column 19.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14020, column 29.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14026, column 19.  See page 261 of PBP.  (Severity: 3)
-Use character classes for literal metachars instead of escapes at line 14026, column 19.  See page 247 of PBP.  (Severity: 1)
-Use [\+-] instead of \+|- at line 14026, column 19.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 14026, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14026, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14037, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14037, column 19.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 14224, column 26.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14230, column 26.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14238, column 26.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14240, column 17.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14272, column 26.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14278, column 26.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14280, column 25.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14281, column 25.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 14305, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14306, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14315, column 33.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14338, column 22.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 14338, column 22.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 14338, column 22.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14371, column 29.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14372, column 29.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14377, column 29.  See page 53 of PBP.  (Severity: 2)
-Expression form of "eval" at line 14409, column 56.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 14413, column 58.  See page 161 of PBP.  (Severity: 5)
-Postfix control "if" used at line 14418, column 56.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14419, column 58.  See pages 93,94 of PBP.  (Severity: 2)
-Local lexical variable "$Side" is not all lower case or all upper case at line 14431, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Local lexical variable "$Side" is not all lower case or all upper case at line 14522, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Local lexical variable "$syncT" is not all lower case or all upper case at line 14539, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Local lexical variable "$imapT" is not all lower case or all upper case at line 14541, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 14545, column 21.  See page 51 of PBP.  (Severity: 1)
-Local lexical variable "$syncT" is not all lower case or all upper case at line 14644, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 14666, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14666, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14707, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14707, column 26.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 14711, column 36.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14711, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14711, column 36.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14713, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14713, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14719, column 34.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14719, column 34.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14722, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14880, column 20.  See page 261 of PBP.  (Severity: 3)
-Use named character classes ([A-Z] vs. [[:upper:]]) at line 14880, column 20.  See page 248 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 14880, column 20.  See page 247 of PBP.  (Severity: 1)
-Use [\+-] instead of \+|- at line 14880, column 20.  See page 265 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 14880, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14880, column 20.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14886, column 28.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14886, column 33.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14887, column 36.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14887, column 41.  See page 53 of PBP.  (Severity: 2)
-Local lexical variable "$header_Message_Id" is not all lower case or all upper case at line 14915, column 9.  See pages 45,46 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14915, column 65.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14927, column 43.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14928, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14929, column 49.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14931, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14932, column 47.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14933, column 48.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14934, column 56.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14935, column 51.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14937, column 53.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14938, column 55.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 14939, column 103.  See page 51 of PBP.  (Severity: 1)
-Postfix control "if" used at line 14968, column 65.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 15082, column 81.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 15085, column 32.  See pages 96,97 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 15095, column 74.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 15098, column 81.  See page 59 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 15104, column 30.  See pages 96,97 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 15121, column 34.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 15126, column 23.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 15126, column 41.  See page 13 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 15138, column 32.  See page 53 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 15208, column 16.  See page 13 of PBP.  (Severity: 1)
-File handle for "print" or "printf" is not braced at line 15232, column 16.  See page 217 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15233, column 75.  See page 51 of PBP.  (Severity: 1)
-File handle for "print" or "printf" is not braced at line 15234, column 16.  See page 217 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15235, column 80.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 15245, column 16.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15263, column 34.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15287, column 13.  See page 51 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 15318, column 28.  See page 13 of PBP.  (Severity: 1)
-Use only '//' or '{}' to delimit regexps at line 15382, column 20.  See page 246 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 15382, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 15382, column 20.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 15382, column 20.  See page 237 of PBP.  (Severity: 2)
-String *may* require interpolation at line 15536, column 45.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15551, column 26.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15579, column 34.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15613, column 34.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 15637, column 38.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 15697, column 62.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 15697, column 62.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a string containing no non-whitespace characters at line 15767, column 50.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 15767, column 50.  See page 51 of PBP.  (Severity: 1)
-Reused variable name in lexical scope: $err at line 15775, column 3.  Invent unique variable names.  (Severity: 3)
-Builtin function called with parentheses at line 15834, column 12.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 15850, column 19.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15850, column 28.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15994, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15994, column 40.  See page 51 of PBP.  (Severity: 1)
-Quotes used with a noisy string at line 15996, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 15996, column 35.  See page 53 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 15998, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15998, column 42.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15999, column 13.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 15999, column 44.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16001, column 59.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16002, column 78.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16003, column 82.  See page 51 of PBP.  (Severity: 1)
-Useless use of $_ at line 16034, column 22.  $_ should be omitted when calling "split" with two arguments.  (Severity: 2)
-Builtin function called with parentheses at line 16055, column 9.  See page 13 of PBP.  (Severity: 1)
-Double-sigil dereference at line 16107, column 22.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 16114, column 17.  See page 228 of PBP.  (Severity: 2)
-Builtin function called with parentheses at line 16141, column 25.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 16170, column 9.  See page 13 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 16202, column 15.  See page 13 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 16206, column 17.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 16238, column 32.  See page 51 of PBP.  (Severity: 1)
-"warn" used instead of "carp" at line 16239, column 25.  See page 283 of PBP.  (Severity: 3)
-Return value of "close" ignored at line 16241, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Return value of flagged function ignored - close at line 16241, column 9.  See pages 208,278 of PBP.  (Severity: 1)
-Builtin function called with parentheses at line 16246, column 18.  See page 13 of PBP.  (Severity: 1)
-Regular expression without "/s" flag at line 16256, column 40.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16256, column 40.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16256, column 40.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16258, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16258, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16258, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16259, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16259, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16259, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16260, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 16260, column 23.  See page 237 of PBP.  (Severity: 2)
-Literal line breaks in a string at line 16285, column 19.  See pages 60,61 of PBP.  (Severity: 3)
-Subroutine "myGetOptions" is not all lower case or all upper case at line 16321, column 1.  See pages 45,46 of PBP.  (Severity: 1)
-Subroutine "myGetOptions" with high complexity score (31) at line 16321, column 1.  Consider refactoring.  (Severity: 3)
-Builtin function called with parentheses at line 16342, column 16.  See page 13 of PBP.  (Severity: 1)
-Use character classes for literal metachars instead of escapes at line 16348, column 30.  See page 247 of PBP.  (Severity: 1)
-String delimiter used with "split" at line 16353, column 30.  Express it as a regex instead.  (Severity: 2)
-Quotes used with a noisy string at line 16353, column 36.  See page 53 of PBP.  (Severity: 2)
-Capture variable used outside conditional at line 16353, column 41.  See page 253 of PBP.  (Severity: 3)
-Quotes used with a noisy string at line 16355, column 39.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 16363, column 47.  See page 53 of PBP.  (Severity: 2)
-Useless use of $_ at line 16364, column 52.  $_ should be omitted when calling "split" with two arguments.  (Severity: 2)
-Quotes used with a noisy string at line 16390, column 55.  See page 53 of PBP.  (Severity: 2)
-String *may* require interpolation at line 16467, column 44.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16474, column 37.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16480, column 41.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16483, column 48.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16488, column 49.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16491, column 55.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16503, column 33.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16507, column 43.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16512, column 38.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16516, column 38.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16520, column 34.  See page 51 of PBP.  (Severity: 1)
-String *may* require interpolation at line 16521, column 45.  See page 51 of PBP.  (Severity: 1)
-Numeric escapes in interpolated string at line 16612, column 27.  See pages 54,55 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16614, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 16614, column 23.  See page 237 of PBP.  (Severity: 2)
-Useless interpolation of literal string at line 16828, column 25.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 16870, column 35.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 16872, column 35.  See page 51 of PBP.  (Severity: 1)
-Useless interpolation of literal string at line 16873, column 35.  See page 51 of PBP.  (Severity: 1)
-Double-sigil dereference at line 17026, column 17.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 17030, column 18.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 17035, column 3.  See page 228 of PBP.  (Severity: 2)
-Postfix control "if" used at line 17074, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-Found "\N{SPACE}" at the end of the line at line 17236, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-Found "\N{SPACE}" at the end of the line at line 17242, column 1.  Don't use whitespace at the end of lines.  (Severity: 1)
-
-     1 files.
-   505 subroutines/methods.
-17,023 statements.
-
-17,259 lines, consisting of:
-     3,228 blank lines.
-     1,071 comment lines.
-         0 data lines.
-    12,138 lines of Perl code.
-       822 lines of POD.
-
-Average McCabe score of subroutines was 4.91.
-
-1,004 violations.
-Violations per file was 1004.000.
-Violations per statement was 0.059.
-Violations per line of code was 0.058.
-
-  6 severity 5 violations.
- 81 severity 3 violations.
-498 severity 2 violations.
-419 severity 1 violations.
-
-  1 violations of BuiltinFunctions::ProhibitReverseSortBlock.
-  6 violations of BuiltinFunctions::ProhibitStringyEval.
-  2 violations of BuiltinFunctions::ProhibitStringySplit.
-  7 violations of BuiltinFunctions::ProhibitUselessTopic.
- 63 violations of CodeLayout::ProhibitParensWithBuiltins.
-  3 violations of CodeLayout::ProhibitQuotedWordLists.
- 11 violations of CodeLayout::ProhibitTrailingWhitespace.
-  1 violations of CodeLayout::RequireTidyCode.
-  1 violations of ControlStructures::ProhibitCascadingIfElse.
-  1 violations of ControlStructures::ProhibitDeepNests.
- 95 violations of ControlStructures::ProhibitPostfixControls.
-  6 violations of ControlStructures::ProhibitUnlessBlocks.
-  1 violations of Documentation::PodSpelling.
-  1 violations of Documentation::RequirePodAtEnd.
-  4 violations of Documentation::RequirePodSections.
-  1 violations of ErrorHandling::RequireCarping.
-  3 violations of ErrorHandling::RequireCheckingReturnValueOfEval.
-  7 violations of InputOutput::ProhibitBacktickOperators.
-  1 violations of InputOutput::ProhibitJoinedReadline.
-  6 violations of InputOutput::RequireBracedFileHandleWithPrint.
-  9 violations of InputOutput::RequireCheckedClose.
- 14 violations of InputOutput::RequireCheckedSyscalls.
- 37 violations of NamingConventions::Capitalization.
-  8 violations of References::ProhibitDoubleSigils.
-  2 violations of RegularExpressions::ProhibitCaptureWithoutTest.
- 11 violations of RegularExpressions::ProhibitComplexRegexes.
-  3 violations of RegularExpressions::ProhibitEnumeratedClasses.
- 29 violations of RegularExpressions::ProhibitEscapedMetacharacters.
-  3 violations of RegularExpressions::ProhibitFixedStringMatches.
-  8 violations of RegularExpressions::ProhibitSingleCharAlternation.
-  8 violations of RegularExpressions::ProhibitUnusualDelimiters.
-120 violations of RegularExpressions::RequireDotMatchAnything.
- 29 violations of RegularExpressions::RequireExtendedFormatting.
-112 violations of RegularExpressions::RequireLineBoundaryMatching.
-  5 violations of Subroutines::ProhibitExcessComplexity.
- 13 violations of Subroutines::ProhibitManyArgs.
- 14 violations of ValuesAndExpressions::ProhibitEmptyQuotes.
-  6 violations of ValuesAndExpressions::ProhibitEscapedCharacters.
-  2 violations of ValuesAndExpressions::ProhibitImplicitNewlines.
-101 violations of ValuesAndExpressions::ProhibitInterpolationOfLiterals.
- 10 violations of ValuesAndExpressions::ProhibitMagicNumbers.
- 84 violations of ValuesAndExpressions::ProhibitNoisyQuotes.
-135 violations of ValuesAndExpressions::RequireInterpolationOfMetachars.
- 13 violations of ValuesAndExpressions::RequireNumberSeparators.
-  2 violations of Variables::ProhibitPunctuationVars.
-  5 violations of Variables::ProhibitReusedNames.
diff --git a/W/perlcritic_2.txt b/W/perlcritic_2.txt
deleted file mode 100644
index 0072136..0000000
--- a/W/perlcritic_2.txt
+++ /dev/null
@@ -1,639 +0,0 @@
-Missing "REQUIRED ARGUMENTS" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "DIAGNOSTICS" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "DEPENDENCIES" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Missing "INCOMPATIBILITIES" section in POD at line 18, column 1.  See pages 133,138 of PBP.  (Severity: 2)
-Subroutine "single_sync" with high complexity score (414) at line 1119, column 1.  Consider refactoring.  (Severity: 3)
-Postfix control "if" used at line 1243, column 25.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1244, column 26.  See pages 93,94 of PBP.  (Severity: 2)
-Double-sigil dereference at line 1270, column 34.  See page 228 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1285, column 119.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1300, column 15.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1301, column 21.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1312, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1322, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1386, column 29.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1420, column 31.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1421, column 22.  See pages 93,94 of PBP.  (Severity: 2)
-Useless use of $_ at line 1609, column 34.  $_ should be omitted when calling "uc".  (Severity: 2)
-Postfix control "if" used at line 1626, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 1627, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-Literal line breaks in a string at line 1651, column 18.  See pages 60,61 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 1846, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 1846, column 47.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 1846, column 47.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 1857, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 1857, column 47.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 1857, column 47.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2014, column 71.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2015, column 67.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2044, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2209, column 71.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2219, column 92.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2232, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2239, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2286, column 94.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2302, column 17.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2355, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2364, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2368, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 2380, column 59.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 2380, column 59.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2382, column 35.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2383, column 59.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2392, column 51.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2402, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2406, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 2417, column 59.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 2417, column 59.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2447, column 69.  See pages 93,94 of PBP.  (Severity: 2)
-Code structure is deeply nested at line 2448, column 41.  Consider refactoring.  (Severity: 3)
-Postfix control "if" used at line 2459, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2463, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2645, column 66.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 2646, column 41.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 2787, column 83.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 2787, column 83.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 2787, column 83.  See page 237 of PBP.  (Severity: 2)
-8 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2809, column 89.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2836, column 23.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2847, column 21.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-7 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2876, column 97.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
--1 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2894, column 21.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-3 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 2902, column 23.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-6 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3255, column 69.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Octal literals (0000) are not allowed. Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3292, column 29.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Octal literals (0000) are not allowed. Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3294, column 10.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-777 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 3294, column 27.  Unnamed numeric literals make code less maintainable.  (Severity: 2)
-Regular expression without "/s" flag at line 3344, column 83.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 3344, column 83.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 3344, column 83.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 3351, column 45.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 3451, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 3491, column 1.  See page 182 of PBP.  (Severity: 3)
-Quotes used with a string containing no non-whitespace characters at line 3593, column 17.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 3594, column 17.  See page 53 of PBP.  (Severity: 2)
-Useless use of $_ at line 3797, column 50.  $_ should be omitted when calling "uc".  (Severity: 2)
-Useless use of $_ at line 3818, column 50.  $_ should be omitted when calling "uc".  (Severity: 2)
-Regular expression without "/s" flag at line 4109, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 4109, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 4109, column 23.  See page 237 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 4196, column 13.  See page 59 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 4505, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Postfix control "for" used at line 4531, column 33.  See page 96 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 4648, column 44.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 4648, column 55.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 4729, column 29.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4729, column 29.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 4759, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4759, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 4975, column 47.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 4975, column 47.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 4989, column 25.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 5096, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5115, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5136, column 1.  See page 182 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 5186, column 17.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 5186, column 17.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 5203, column 61.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 5309, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 5309, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 5309, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 5503, column 30.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 5503, column 30.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 5537, column 26.  See page 53 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 5684, column 17.  Check the return value of "close" for success.  (Severity: 2)
-List of quoted literal words at line 5846, column 111.  Use 'qw()' instead.  (Severity: 2)
-List of quoted literal words at line 5852, column 126.  Use 'qw()' instead.  (Severity: 2)
-Regular expression without "/s" flag at line 6030, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6030, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6030, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6031, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6031, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6031, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6040, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6040, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6040, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6041, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6041, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6041, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6071, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6071, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6071, column 42.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6073, column 41.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6073, column 41.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6073, column 41.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6108, column 50.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6108, column 50.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6108, column 50.  See page 237 of PBP.  (Severity: 2)
-Magic punctuation variable $! used at line 6109, column 85.  See page 79 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6225, column 56.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6225, column 56.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6225, column 56.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6227, column 56.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6227, column 56.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6227, column 56.  See page 237 of PBP.  (Severity: 2)
-Too many arguments at line 6258, column 1.  See page 182 of PBP.  (Severity: 3)
-Subroutine "authenticate_imap" with high complexity score (23) at line 6371, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 6371, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "if" used at line 6381, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 6395, column 51.  See pages 96,97 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6398, column 40.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6399, column 40.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6400, column 42.  See pages 93,94 of PBP.  (Severity: 2)
-"unless" block used at line 6403, column 9.  See page 97 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 6409, column 39.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6501, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6527, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 6539, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "if" used at line 6575, column 50.  See pages 93,94 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 6590, column 32.  See pages 54,55 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6638, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6638, column 32.  See page 237 of PBP.  (Severity: 2)
-Use "local $/ = undef" or Path::Tiny instead of joined readline at line 6651, column 47.  See page 213 of PBP.  (Severity: 3)
-Return value of "close" ignored at line 6652, column 17.  Check the return value of "close" for success.  (Severity: 2)
-Regular expression without "/s" flag at line 6662, column 69.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6662, column 69.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6665, column 37.  See pages 93,94 of PBP.  (Severity: 2)
-Backtick operator used at line 6670, column 20.  Use IPC::Open3 instead.  (Severity: 3)
-"unless" block used at line 6695, column 9.  See page 97 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6733, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 6733, column 32.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 6803, column 56.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 6815, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 6815, column 26.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 6815, column 26.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6848, column 82.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 6849, column 46.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6854, column 91.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 6856, column 46.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 6903, column 42.  See pages 93,94 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6924, column 36.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6925, column 36.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6927, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6928, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6930, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6931, column 40.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 6947, column 14.  See page 59 of PBP.  (Severity: 2)
-Magic punctuation variable $! used in interpolated string at line 6994, column 34.  See page 79 of PBP.  (Severity: 2)
-Double-sigil dereference at line 7114, column 17.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 7117, column 17.  See page 228 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 7217, column 17.  Check the return value of "close" for success.  (Severity: 2)
-Regular expression without "/s" flag at line 7347, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7347, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7348, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7348, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7349, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7349, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7429, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7429, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7430, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7430, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7431, column 15.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7431, column 15.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7475, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7475, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7551, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7551, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7554, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7554, column 20.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 7827, column 38.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7827, column 38.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7827, column 38.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7828, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7828, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7832, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7832, column 33.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7907, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7907, column 34.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7907, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7907, column 53.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7908, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7908, column 34.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7908, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7908, column 53.  See page 237 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7909, column 36.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7909, column 55.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7909, column 55.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7910, column 26.  See page 53 of PBP.  (Severity: 2)
-Postfix control "while" used at line 7910, column 34.  See page 96 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 7910, column 53.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 7910, column 53.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7922, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7923, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7924, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7925, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7927, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7928, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 7929, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 8089, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 8090, column 40.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8109, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 8109, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 8109, column 23.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8210, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8211, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8258, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8259, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8274, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8275, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8288, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8289, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8307, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8308, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8319, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8320, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8335, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8336, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8370, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8371, column 31.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8414, column 34.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8418, column 29.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 8418, column 29.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 8418, column 29.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8492, column 30.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8493, column 30.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8540, column 51.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8541, column 51.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8544, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8544, column 21.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 8551, column 26.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8551, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8551, column 26.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8572, column 62.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8572, column 67.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8573, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8573, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8574, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8574, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8575, column 64.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8575, column 69.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8576, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8576, column 71.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8578, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8578, column 71.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8580, column 66.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8580, column 71.  See page 53 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 8594, column 21.  See pages 54,55 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8597, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8597, column 21.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8598, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8598, column 21.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8599, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8599, column 21.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8600, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8600, column 21.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 8600, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8600, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 8600, column 86.  See page 53 of PBP.  (Severity: 2)
-Expression form of "eval" at line 8611, column 27.  See page 161 of PBP.  (Severity: 5)
-Quotes used with a noisy string at line 8630, column 35.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8641, column 49.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8641, column 49.  See page 237 of PBP.  (Severity: 2)
-Expression form of "eval" at line 8813, column 27.  See page 161 of PBP.  (Severity: 5)
-"unless" block used at line 8837, column 25.  See page 97 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8874, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8874, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8877, column 49.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8877, column 49.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8907, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8907, column 28.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 8920, column 27.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 8920, column 27.  See page 237 of PBP.  (Severity: 2)
-Useless use of $_ at line 8922, column 60.  $_ should be omitted when calling "lc".  (Severity: 2)
-Useless use of $_ at line 8922, column 82.  $_ should be omitted when calling "lc".  (Severity: 2)
-"unless" block used at line 9111, column 17.  See page 97 of PBP.  (Severity: 2)
-"unless" block used at line 9112, column 17.  See page 97 of PBP.  (Severity: 2)
-Postfix control "if" used at line 9200, column 22.  See pages 93,94 of PBP.  (Severity: 2)
-Subroutine "copy_message" with high complexity score (22) at line 9244, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9244, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "if" used at line 9263, column 107.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 9302, column 26.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 9319, column 1.  See page 182 of PBP.  (Severity: 3)
-Subroutine "message_for_host2" with high complexity score (25) at line 9353, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9353, column 1.  See page 182 of PBP.  (Severity: 3)
-"unless" block used at line 9395, column 9.  See page 97 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 9478, column 62.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 9478, column 70.  See page 59 of PBP.  (Severity: 2)
-Postfix control "if" used at line 9533, column 75.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 9542, column 72.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9622, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9622, column 32.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9631, column 35.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9631, column 35.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9631, column 35.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9636, column 43.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9636, column 43.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9636, column 43.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9640, column 43.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9640, column 43.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 9651, column 39.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9685, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9685, column 32.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9685, column 32.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 9695, column 43.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9771, column 45.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9771, column 45.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9780, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 9780, column 32.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 9780, column 32.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 9793, column 40.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 9793, column 40.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 9804, column 39.  See page 53 of PBP.  (Severity: 2)
-Reused variable name in lexical scope: $uid1 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid1 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Regular expression without "/s" flag at line 10101, column 22.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10101, column 22.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 10106, column 44.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 10107, column 64.  See pages 93,94 of PBP.  (Severity: 2)
-Too many arguments at line 10183, column 1.  See page 182 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 10205, column 41.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10205, column 41.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 10223, column 75.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10223, column 75.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 10399, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 10401, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 10413, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 10414, column 13.  See page 53 of PBP.  (Severity: 2)
-Too many arguments at line 10422, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "if" used at line 10428, column 43.  See pages 93,94 of PBP.  (Severity: 2)
-List of quoted literal words at line 10487, column 21.  Use 'qw()' instead.  (Severity: 2)
-Regular expression without "/s" flag at line 10717, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10717, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 10743, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10743, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 10893, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 10893, column 23.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11087, column 53.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11104, column 55.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11108, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11109, column 59.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11258, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11269, column 42.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11270, column 42.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11292, column 45.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 11297, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 11319, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11319, column 28.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 11321, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11321, column 20.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11331, column 45.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11332, column 53.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11333, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11336, column 61.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 11337, column 67.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 11347, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 11347, column 20.  See page 237 of PBP.  (Severity: 2)
-Expression form of "eval" at line 11892, column 27.  See page 161 of PBP.  (Severity: 5)
-Numeric escapes in interpolated string at line 11932, column 28.  See pages 54,55 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 11937, column 28.  See pages 54,55 of PBP.  (Severity: 2)
-Expression form of "eval" at line 12133, column 27.  See page 161 of PBP.  (Severity: 5)
-Postfix control "if" used at line 12285, column 76.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12369, column 21.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12369, column 21.  See page 237 of PBP.  (Severity: 2)
-Too many arguments at line 12444, column 1.  See page 182 of PBP.  (Severity: 3)
-Postfix control "unless" used at line 12482, column 34.  See pages 96,97 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12520, column 51.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12520, column 51.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12536, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12536, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12539, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12539, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12542, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12542, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12545, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12545, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12548, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12548, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12551, column 97.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12551, column 97.  See page 237 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 12572, column 58.  See pages 54,55 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 12705, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Quotes used with a noisy string at line 12716, column 29.  See page 53 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 12741, column 3.  Check the return value of "close" for success.  (Severity: 2)
-Quotes used with a noisy string at line 12756, column 39.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 12763, column 78.  See pages 93,94 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 12787, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Backtick operator used at line 12817, column 17.  Use IPC::Open3 instead.  (Severity: 3)
-Postfix control "if" used at line 12859, column 66.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 12875, column 63.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12906, column 32.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12906, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12910, column 32.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12910, column 32.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12920, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12925, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12929, column 33.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12929, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12933, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12934, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 12940, column 24.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 12940, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 12967, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 12967, column 28.  See page 237 of PBP.  (Severity: 2)
-Return value of "close" ignored at line 12994, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Regular expression without "/s" flag at line 13034, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13034, column 36.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13113, column 37.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 13113, column 37.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 13113, column 37.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13189, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13189, column 36.  See page 237 of PBP.  (Severity: 2)
-Cascading if-elsif chain at line 13242, column 2.  See pages 117,118 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 13312, column 28.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13312, column 28.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13324, column 33.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13332, column 32.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13342, column 34.  See pages 93,94 of PBP.  (Severity: 2)
-Return value of eval not tested at line 13396, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13397, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13406, column 16.  See page 261 of PBP.  (Severity: 3)
-Return value of eval not tested at line 13419, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13420, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13429, column 16.  See page 261 of PBP.  (Severity: 3)
-Return value of eval not tested at line 13443, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Capture variable used outside conditional at line 13454, column 12.  See page 253 of PBP.  (Severity: 3)
-Long number not separated with underscores at line 13571, column 61.  See page 59 of PBP.  (Severity: 2)
-Backtick operator used at line 13622, column 26.  Use IPC::Open3 instead.  (Severity: 3)
-Backtick operator used at line 13651, column 18.  Use IPC::Open3 instead.  (Severity: 3)
-String delimiter used with "split" at line 13656, column 42.  Express it as a regex instead.  (Severity: 2)
-Quotes used with a noisy string at line 13656, column 48.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13681, column 47.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13698, column 44.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13781, column 39.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13781, column 39.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13785, column 42.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 13785, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 13785, column 42.  See page 237 of PBP.  (Severity: 2)
-Backtick operator used at line 13839, column 16.  Use IPC::Open3 instead.  (Severity: 3)
-Regular expression without "/s" flag at line 13869, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13869, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13879, column 24.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13879, column 24.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13901, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13901, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13938, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13938, column 20.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13941, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13942, column 36.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 13947, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 13947, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13947, column 19.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13959, column 38.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13959, column 72.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13959, column 72.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13960, column 38.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13962, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13966, column 30.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 13968, column 33.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 13973, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 13973, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13973, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 13990, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 13990, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14002, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14002, column 19.  See page 237 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14014, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 14014, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14014, column 19.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14020, column 29.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14026, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 14026, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14026, column 19.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14037, column 19.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14037, column 19.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14305, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14306, column 40.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14315, column 33.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14338, column 22.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 14338, column 22.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 14338, column 22.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14371, column 29.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14372, column 29.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14377, column 29.  See page 53 of PBP.  (Severity: 2)
-Expression form of "eval" at line 14409, column 56.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 14413, column 58.  See page 161 of PBP.  (Severity: 5)
-Postfix control "if" used at line 14418, column 56.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14419, column 58.  See pages 93,94 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14666, column 33.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14666, column 33.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14707, column 26.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14707, column 26.  See page 237 of PBP.  (Severity: 2)
-Use 'eq' or hash instead of fixed-pattern regexps at line 14711, column 36.  See pages 271,272 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14711, column 36.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14711, column 36.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14713, column 31.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14713, column 31.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 14719, column 34.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14719, column 34.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14722, column 68.  See pages 93,94 of PBP.  (Severity: 2)
-Split long regexps into smaller qr// chunks at line 14880, column 20.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/s" flag at line 14880, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 14880, column 20.  See page 237 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14886, column 28.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14886, column 33.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14887, column 36.  See pages 93,94 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 14887, column 41.  See page 53 of PBP.  (Severity: 2)
-Postfix control "if" used at line 14968, column 65.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "if" used at line 15082, column 81.  See pages 93,94 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 15085, column 32.  See pages 96,97 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 15095, column 74.  See page 59 of PBP.  (Severity: 2)
-Long number not separated with underscores at line 15098, column 81.  See page 59 of PBP.  (Severity: 2)
-Postfix control "unless" used at line 15104, column 30.  See pages 96,97 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 15121, column 34.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 15138, column 32.  See page 53 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 15382, column 20.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 15382, column 20.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 15382, column 20.  See page 237 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 15697, column 62.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a string containing no non-whitespace characters at line 15767, column 50.  See page 53 of PBP.  (Severity: 2)
-Reused variable name in lexical scope: $err at line 15775, column 3.  Invent unique variable names.  (Severity: 3)
-Quotes used with a noisy string at line 15996, column 13.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 15996, column 35.  See page 53 of PBP.  (Severity: 2)
-Useless use of $_ at line 16034, column 22.  $_ should be omitted when calling "split" with two arguments.  (Severity: 2)
-Double-sigil dereference at line 16107, column 22.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 16114, column 17.  See page 228 of PBP.  (Severity: 2)
-"warn" used instead of "carp" at line 16239, column 25.  See page 283 of PBP.  (Severity: 3)
-Return value of "close" ignored at line 16241, column 9.  Check the return value of "close" for success.  (Severity: 2)
-Regular expression without "/s" flag at line 16256, column 40.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16256, column 40.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16256, column 40.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16258, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16258, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16258, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16259, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/x" flag at line 16259, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/m" flag at line 16259, column 23.  See page 237 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16260, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 16260, column 23.  See page 237 of PBP.  (Severity: 2)
-Literal line breaks in a string at line 16285, column 19.  See pages 60,61 of PBP.  (Severity: 3)
-Subroutine "myGetOptions" with high complexity score (31) at line 16321, column 1.  Consider refactoring.  (Severity: 3)
-String delimiter used with "split" at line 16353, column 30.  Express it as a regex instead.  (Severity: 2)
-Quotes used with a noisy string at line 16353, column 36.  See page 53 of PBP.  (Severity: 2)
-Capture variable used outside conditional at line 16353, column 41.  See page 253 of PBP.  (Severity: 3)
-Quotes used with a noisy string at line 16355, column 39.  See page 53 of PBP.  (Severity: 2)
-Quotes used with a noisy string at line 16363, column 47.  See page 53 of PBP.  (Severity: 2)
-Useless use of $_ at line 16364, column 52.  $_ should be omitted when calling "split" with two arguments.  (Severity: 2)
-Quotes used with a noisy string at line 16390, column 55.  See page 53 of PBP.  (Severity: 2)
-Numeric escapes in interpolated string at line 16612, column 27.  See pages 54,55 of PBP.  (Severity: 2)
-Regular expression without "/s" flag at line 16614, column 23.  See pages 240,241 of PBP.  (Severity: 2)
-Regular expression without "/m" flag at line 16614, column 23.  See page 237 of PBP.  (Severity: 2)
-Double-sigil dereference at line 17026, column 17.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 17030, column 18.  See page 228 of PBP.  (Severity: 2)
-Double-sigil dereference at line 17035, column 3.  See page 228 of PBP.  (Severity: 2)
-Postfix control "if" used at line 17074, column 46.  See pages 93,94 of PBP.  (Severity: 2)
-
-     1 files.
-   505 subroutines/methods.
-17,023 statements.
-
-17,259 lines, consisting of:
-     3,228 blank lines.
-     1,071 comment lines.
-         0 data lines.
-    12,138 lines of Perl code.
-       822 lines of POD.
-
-Average McCabe score of subroutines was 4.91.
-
-585 violations.
-Violations per file was 585.000.
-Violations per statement was 0.034.
-Violations per line of code was 0.034.
-
-  6 severity 5 violations.
- 81 severity 3 violations.
-498 severity 2 violations.
-
-  6 violations of BuiltinFunctions::ProhibitStringyEval.
-  2 violations of BuiltinFunctions::ProhibitStringySplit.
-  7 violations of BuiltinFunctions::ProhibitUselessTopic.
-  3 violations of CodeLayout::ProhibitQuotedWordLists.
-  1 violations of ControlStructures::ProhibitCascadingIfElse.
-  1 violations of ControlStructures::ProhibitDeepNests.
- 95 violations of ControlStructures::ProhibitPostfixControls.
-  6 violations of ControlStructures::ProhibitUnlessBlocks.
-  4 violations of Documentation::RequirePodSections.
-  1 violations of ErrorHandling::RequireCarping.
-  3 violations of ErrorHandling::RequireCheckingReturnValueOfEval.
-  7 violations of InputOutput::ProhibitBacktickOperators.
-  1 violations of InputOutput::ProhibitJoinedReadline.
-  9 violations of InputOutput::RequireCheckedClose.
-  8 violations of References::ProhibitDoubleSigils.
-  2 violations of RegularExpressions::ProhibitCaptureWithoutTest.
- 11 violations of RegularExpressions::ProhibitComplexRegexes.
-  3 violations of RegularExpressions::ProhibitFixedStringMatches.
-120 violations of RegularExpressions::RequireDotMatchAnything.
- 29 violations of RegularExpressions::RequireExtendedFormatting.
-112 violations of RegularExpressions::RequireLineBoundaryMatching.
-  5 violations of Subroutines::ProhibitExcessComplexity.
- 13 violations of Subroutines::ProhibitManyArgs.
- 14 violations of ValuesAndExpressions::ProhibitEmptyQuotes.
-  6 violations of ValuesAndExpressions::ProhibitEscapedCharacters.
-  2 violations of ValuesAndExpressions::ProhibitImplicitNewlines.
- 10 violations of ValuesAndExpressions::ProhibitMagicNumbers.
- 84 violations of ValuesAndExpressions::ProhibitNoisyQuotes.
- 13 violations of ValuesAndExpressions::RequireNumberSeparators.
-  2 violations of Variables::ProhibitPunctuationVars.
-  5 violations of Variables::ProhibitReusedNames.
diff --git a/W/perlcritic_3.txt b/W/perlcritic_3.txt
deleted file mode 100644
index 828bafb..0000000
--- a/W/perlcritic_3.txt
+++ /dev/null
@@ -1,123 +0,0 @@
-Subroutine "single_sync" with high complexity score (414) at line 1119, column 1.  Consider refactoring.  (Severity: 3)
-Literal line breaks in a string at line 1651, column 18.  See pages 60,61 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 1846, column 47.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 1857, column 47.  See page 236 of PBP.  (Severity: 3)
-Code structure is deeply nested at line 2448, column 41.  Consider refactoring.  (Severity: 3)
-Regular expression without "/x" flag at line 2787, column 83.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 3344, column 83.  See page 236 of PBP.  (Severity: 3)
-Too many arguments at line 3491, column 1.  See page 182 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 4109, column 23.  See page 236 of PBP.  (Severity: 3)
-Too many arguments at line 5096, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5115, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 5136, column 1.  See page 182 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 5309, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6030, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6031, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6040, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6041, column 33.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6071, column 42.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6073, column 41.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6108, column 50.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6225, column 56.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 6227, column 56.  See page 236 of PBP.  (Severity: 3)
-Too many arguments at line 6258, column 1.  See page 182 of PBP.  (Severity: 3)
-Subroutine "authenticate_imap" with high complexity score (23) at line 6371, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 6371, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 6539, column 1.  See page 182 of PBP.  (Severity: 3)
-Use "local $/ = undef" or Path::Tiny instead of joined readline at line 6651, column 47.  See page 213 of PBP.  (Severity: 3)
-Backtick operator used at line 6670, column 20.  Use IPC::Open3 instead.  (Severity: 3)
-Regular expression without "/x" flag at line 6815, column 26.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 8109, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 8418, column 29.  See page 236 of PBP.  (Severity: 3)
-Expression form of "eval" at line 8611, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 8813, column 27.  See page 161 of PBP.  (Severity: 5)
-Subroutine "copy_message" with high complexity score (22) at line 9244, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9244, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 9319, column 1.  See page 182 of PBP.  (Severity: 3)
-Subroutine "message_for_host2" with high complexity score (25) at line 9353, column 1.  Consider refactoring.  (Severity: 3)
-Too many arguments at line 9353, column 1.  See page 182 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 9631, column 35.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 9636, column 43.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 9685, column 32.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 9780, column 32.  See page 236 of PBP.  (Severity: 3)
-Reused variable name in lexical scope: $uid1 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9903, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid1 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Reused variable name in lexical scope: $uid2 at line 9983, column 9.  Invent unique variable names.  (Severity: 3)
-Too many arguments at line 10183, column 1.  See page 182 of PBP.  (Severity: 3)
-Too many arguments at line 10422, column 1.  See page 182 of PBP.  (Severity: 3)
-Expression form of "eval" at line 11892, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 12133, column 27.  See page 161 of PBP.  (Severity: 5)
-Too many arguments at line 12444, column 1.  See page 182 of PBP.  (Severity: 3)
-Backtick operator used at line 12817, column 17.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 12906, column 32.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 12910, column 32.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 12929, column 33.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 12940, column 24.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 13113, column 37.  See page 236 of PBP.  (Severity: 3)
-Cascading if-elsif chain at line 13242, column 2.  See pages 117,118 of PBP.  (Severity: 3)
-Return value of eval not tested at line 13396, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13397, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13406, column 16.  See page 261 of PBP.  (Severity: 3)
-Return value of eval not tested at line 13419, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Backtick operator used at line 13420, column 15.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13429, column 16.  See page 261 of PBP.  (Severity: 3)
-Return value of eval not tested at line 13443, column 3.  You can't depend upon the value of $@/$EVAL_ERROR to tell whether an eval failed.  (Severity: 3)
-Capture variable used outside conditional at line 13454, column 12.  See page 253 of PBP.  (Severity: 3)
-Backtick operator used at line 13622, column 26.  Use IPC::Open3 instead.  (Severity: 3)
-Backtick operator used at line 13651, column 18.  Use IPC::Open3 instead.  (Severity: 3)
-Regular expression without "/x" flag at line 13785, column 42.  See page 236 of PBP.  (Severity: 3)
-Backtick operator used at line 13839, column 16.  Use IPC::Open3 instead.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13947, column 19.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 13973, column 19.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 14014, column 19.  See page 261 of PBP.  (Severity: 3)
-Split long regexps into smaller qr// chunks at line 14026, column 19.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 14338, column 22.  See page 236 of PBP.  (Severity: 3)
-Expression form of "eval" at line 14409, column 56.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 14413, column 58.  See page 161 of PBP.  (Severity: 5)
-Split long regexps into smaller qr// chunks at line 14880, column 20.  See page 261 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 15382, column 20.  See page 236 of PBP.  (Severity: 3)
-Reused variable name in lexical scope: $err at line 15775, column 3.  Invent unique variable names.  (Severity: 3)
-"warn" used instead of "carp" at line 16239, column 25.  See page 283 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 16256, column 40.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 16258, column 23.  See page 236 of PBP.  (Severity: 3)
-Regular expression without "/x" flag at line 16259, column 23.  See page 236 of PBP.  (Severity: 3)
-Literal line breaks in a string at line 16285, column 19.  See pages 60,61 of PBP.  (Severity: 3)
-Subroutine "myGetOptions" with high complexity score (31) at line 16321, column 1.  Consider refactoring.  (Severity: 3)
-Capture variable used outside conditional at line 16353, column 41.  See page 253 of PBP.  (Severity: 3)
-
-     1 files.
-   505 subroutines/methods.
-17,023 statements.
-
-17,259 lines, consisting of:
-     3,228 blank lines.
-     1,071 comment lines.
-         0 data lines.
-    12,138 lines of Perl code.
-       822 lines of POD.
-
-Average McCabe score of subroutines was 4.91.
-
-87 violations.
-Violations per file was 87.000.
-Violations per statement was 0.005.
-Violations per line of code was 0.005.
-
- 6 severity 5 violations.
-81 severity 3 violations.
-
- 6 violations of BuiltinFunctions::ProhibitStringyEval.
- 1 violations of ControlStructures::ProhibitCascadingIfElse.
- 1 violations of ControlStructures::ProhibitDeepNests.
- 1 violations of ErrorHandling::RequireCarping.
- 3 violations of ErrorHandling::RequireCheckingReturnValueOfEval.
- 7 violations of InputOutput::ProhibitBacktickOperators.
- 1 violations of InputOutput::ProhibitJoinedReadline.
- 2 violations of RegularExpressions::ProhibitCaptureWithoutTest.
-11 violations of RegularExpressions::ProhibitComplexRegexes.
-29 violations of RegularExpressions::RequireExtendedFormatting.
- 5 violations of Subroutines::ProhibitExcessComplexity.
-13 violations of Subroutines::ProhibitManyArgs.
- 2 violations of ValuesAndExpressions::ProhibitImplicitNewlines.
- 5 violations of Variables::ProhibitReusedNames.
diff --git a/W/perlcritic_4.txt b/W/perlcritic_4.txt
deleted file mode 100644
index ecd03ea..0000000
--- a/W/perlcritic_4.txt
+++ /dev/null
@@ -1,28 +0,0 @@
-Expression form of "eval" at line 8611, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 8813, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 11892, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 12133, column 27.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 14409, column 56.  See page 161 of PBP.  (Severity: 5)
-Expression form of "eval" at line 14413, column 58.  See page 161 of PBP.  (Severity: 5)
-
-     1 files.
-   505 subroutines/methods.
-17,023 statements.
-
-17,259 lines, consisting of:
-     3,228 blank lines.
-     1,071 comment lines.
-         0 data lines.
-    12,138 lines of Perl code.
-       822 lines of POD.
-
-Average McCabe score of subroutines was 4.91.
-
-6 violations.
-Violations per file was 6.000.
-Violations per statement was 0.000.
-Violations per line of code was 0.000.
-
-6 severity 5 violations.
-
-6 violations of BuiltinFunctions::ProhibitStringyEval.
diff --git a/W/prereq.Ubuntu_16.04_xenial.txt b/W/prereq.Ubuntu_16.04_xenial.txt
deleted file mode 100644
index b58219b..0000000
--- a/W/prereq.Ubuntu_16.04_xenial.txt
+++ /dev/null
@@ -1,66 +0,0 @@
-$SHELL says  /bin/bash
-$0 gives  ./INSTALL.d/prerequisites_imapsync
-ps -ef gives gilles    1184  1183  0 23:44 pts/21   00:00:00 /bin/sh ./INSTALL.d/prerequisites_imapsync
-Distributor ID:	Ubuntu
-Description:	Ubuntu 16.04.6 LTS
-Release:	16.04
-Codename:	xenial
-Linux petite 4.4.0-166-generic #195-Ubuntu SMP Tue Oct 1 09:36:25 UTC 2019 i686 i686 i686 GNU/Linux
-Ok: Found Perl 5.22.1
-make[1] : on entre dans le répertoire « /home/gilles/public_html/imapsync »
-make[1]: rien à faire pour « foo ».
-make[1] : on quitte le répertoire « /home/gilles/public_html/imapsync »
-Ok: Found make GNU Make 4.1
-Ok: Found Perl module App::cpanminus
-Ok: Found Perl module Authen::NTLM
-Ok: Found Perl module CGI
-Ok: Found Perl module Compress::Zlib
-Ok: Found Perl module Crypt::OpenSSL::RSA
-Ok: Found Perl module Data::Dumper
-Ok: Found Perl module Data::Uniqid
-Ok: Found Perl module Digest::HMAC
-Ok: Found Perl module Digest::HMAC_MD5
-Ok: Found Perl module Digest::MD5
-Ok: Found Perl module Dist::CheckConflicts
-Ok: Found Perl module Encode
-Ok: Found Perl module Encode::Byte
-Ok: Found Perl module Encode::IMAPUTF7
-Ok: Found Perl module File::Copy::Recursive
-Ok: Found Perl module File::Tail
-Ok: Found Perl module IO::Socket::INET
-Ok: Found Perl module IO::Socket::INET6
-Ok: Found Perl module IO::Socket::SSL
-Ok: Found Perl module IO::Tee
-Ok: Found Perl module JSON
-Ok: Found Perl module JSON::WebToken
-Ok: Found Perl module JSON::WebToken::Crypt::RSA
-Ok: Found Perl module HTML::Entities
-Ok: Found Perl module LWP::UserAgent
-Ok: Found Perl module Mail::IMAPClient
-Ok: Found Perl module MIME::Base64
-Ok: Found Perl module Module::Implementation
-Ok: Found Perl module Module::Runtime
-Ok: Found Perl module Module::ScanDeps
-Ok: Found Perl module Net::SSLeay
-Ok: Found Perl module Package::Stash
-Ok: Found Perl module Package::Stash::XS
-Ok: Found Perl module PAR::Packer
-Ok: Found Perl module Parse::RecDescent
-Ok: Found Perl module Pod::Usage
-Ok: Found Perl module Readonly
-Ok: Found Perl module Regexp::Common
-Ok: Found Perl module Sys::MemInfo
-Ok: Found Perl module Term::ReadKey
-Ok: Found Perl module Test::Fatal
-Ok: Found Perl module Test::Mock::Guard
-Ok: Found Perl module Test::MockObject
-Ok: Found Perl module Test::More
-Ok: Found Perl module Test::Pod
-Ok: Found Perl module Test::Requires
-Ok: Found Perl module Test::Deep
-Ok: Found Perl module Text::ParseWords
-Ok: Found Perl module Try::Tiny
-Ok: Found Perl module Unicode::String
-Ok: Found Perl module URI::Escape
-All needed modules are already installed
-Ok: Found cpanm cpanm (App::cpanminus) version 1.7040 (/usr/bin/cpanm)
diff --git a/W/prereq.scandeps.Ubuntu_16.04_xenial.txt b/W/prereq.scandeps.Ubuntu_16.04_xenial.txt
deleted file mode 100644
index e1cb9f3..0000000
--- a/W/prereq.scandeps.Ubuntu_16.04_xenial.txt
+++ /dev/null
@@ -1,776 +0,0 @@
-Name:
-
- imapsync - Email IMAP tool for syncing, copying, migrating and archiving
- email mailboxes between two imap servers, one way, and without duplicates.
-
-Version:
-
- This documentation refers to Imapsync $Revision: 1.7 $
-
-Usage:
-
-  To synchronize the source imap account
-    "test1" on server "test1.lamiral.info" with password "secret1"
-  to the destination imap account
-    "test2" on server "test2.lamiral.info" with password "secret2"
-  do:
-
-   imapsync \
-    --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-    --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-Options:
-
-  usage: imapsync [options]
-
- The standard options are the six values forming the credentials. Three
- values on each side are needed in order to log in into the IMAP servers.
- These six values are a host, a username, and a password, two times.
-
- Conventions used in the following descriptions of the options:
-
-  str means string
-  int means integer
-  reg means regular expression
-  cmd means command
-
-  --dry               : Makes imapsync doing nothing for real, just print what
-                        would be done without --dry.
-
-Options/credentials:
-
-  --host1        str  : Source or "from" imap server.
-  --port1        int  : Port to connect on host1.
-                        Optional since default ports are the
-                        well known ports imap/143 or imaps/993.
-  --user1        str  : User to login on host1.
-  --password1    str  : Password for the user1.
-
-  --host2        str  : "destination" imap server.
-  --port2        int  : Port to connect on host2. Optional
-  --user2        str  : User to login on host2.
-  --password2    str  : Password for the user2.
-
-  --showpasswords     : Shows passwords on output instead of "MASKED".
-                        Useful to restart a complete run by just reading
-                        the command line used in the log,
-                        or to debug passwords.
-                        It's not a secure practice at all.
-
-  --passfile1    str  : Password file for the user1. It must contain the
-                        password on the first line. This option avoids showing
-                        the password on the command line like --password1 does.
-  --passfile2    str  : Password file for the user2.
-
- You can also pass the passwords in the environment variables
- IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
-
-Options/encryption:
-
-  --nossl1            : Do not use a SSL connection on host1.
-  --ssl1              : Use a SSL connection on host1. On by default if possible.
-
-  --nossl2            : Do not use a SSL connection on host2.
-  --ssl2              : Use a SSL connection on host2. On by default if possible.
-
-  --notls1            : Do not use a TLS connection on host1.
-  --tls1              : Use a TLS connection on host1. On by default if possible.
-
-  --notls2            : Do not use a TLS connection on host2.
-  --tls2              : Use a TLS connection on host2. On by default if possible.
-
-  --debugssl     int  : SSL debug mode from 0 to 4.
-
-  --sslargs1     str  : Pass any ssl parameter for host1 ssl or tls connection. Example:
-                        --sslargs1 SSL_verify_mode=1 --sslargs1 SSL_version=SSLv3
-                        See all possibilities in the new() method of IO::Socket::SSL
-                        http://search.cpan.org/perldoc?IO::Socket::SSL#Description_Of_Methods
-  --sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
-                        See --sslargs1
-
-  --timeout1     int  : Connection timeout in seconds for host1.
-                        Default is 120 and 0 means no timeout at all.
-  --timeout2     int  : Connection timeout in seconds for host2.
-                        Default is 120 and 0 means no timeout at all.
-
-Options/authentication:
-
-  --authmech1    str  : Auth mechanism to use with host1:
-                        PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
-  --authmech2    str  : Auth mechanism to use with host2. See --authmech1
-
-  --authuser1    str  : User to auth with on host1 (admin user).
-                        Avoid using --authmech1 SOMETHING with --authuser1.
-  --authuser2    str  : User to auth with on host2 (admin user).
-  --proxyauth1        : Use proxyauth on host1. Requires --authuser1.
-                        Required by Sun/iPlanet/Netscape IMAP servers to
-                        be able to use an administrative user.
-  --proxyauth2        : Use proxyauth on host2. Requires --authuser2.
-
-  --authmd51          : Use MD5 authentication for host1.
-  --authmd52          : Use MD5 authentication for host2.
-  --domain1      str  : Domain on host1 (NTLM authentication).
-  --domain2      str  : Domain on host2 (NTLM authentication).
-
-Options/folders:
-
-  --folder       str  : Sync this folder.
-  --folder       str  : and this one, etc.
-  --folderrec    str  : Sync this folder recursively.
-  --folderrec    str  : and this one, etc.
-
-  --folderfirst  str  : Sync this folder first. Ex. --folderfirst "INBOX"
-  --folderfirst  str  : then this one, etc.
-  --folderlast   str  : Sync this folder last. --folderlast "[Gmail]/All Mail"
-  --folderlast   str  : then this one, etc.
-
-  --nomixfolders      : Do not merge folders when host1 is case-sensitive
-                        while host2 is not (like Exchange). Only the first
-                        similar folder is synced (example: with folders
-                        "Sent", "SENT" and "sent"
-                        on host1 only "Sent" will be synced to host2).
-
-  --skipemptyfolders  : Empty host1 folders are not created on host2.
-
-  --include      reg  : Sync folders matching this regular expression
-  --include      reg  : or this one, etc.
-                        If both --include --exclude options are used, then
-                        include is done before.
-  --exclude      reg  : Skips folders matching this regular expression
-                        Several folders to avoid:
-                         --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
-  --exclude      reg  : or this one, etc.
-
-  --automap           : guesses folders mapping, for folders well known as
-                        "Sent", "Junk", "Drafts", "All", "Archive", "Flagged".
-
-  --f1f2    str1=str2 : Force folder str1 to be synced to str2,
-                        --f1f2 overrides --automap and --regextrans2.
-
-  --subfolder2   str  : Syncs the whole host1 folders hierarchy under the
-                        host2 folder named str.
-                        It does it internally by adding three
-                        --regextrans2 options before all others.
-                        Add --debug to see what's really going on.
-
-  --subfolder1   str  : Syncs the host1 folders hierarchy which is under folder
-                        str to the root hierarchy of host2.
-                        It's the couterpart of a sync done by --subfolder2
-                        when doing it in the reverse order.
-                        Backup/Restore scenario:
-                        Use --subfolder2 str for a backup to the folder str
-                        on host2. Then use --subfolder1 str for restoring
-                        from the folder str, after inverting
-                        host1/host2 user1/user2 values.
-
-
-  --subscribed        : Transfers subscribed folders.
-  --subscribe         : Subscribe to the folders transferred on the
-                        host2 that are subscribed on host1. On by default.
-  --subscribeall      : Subscribe to the folders transferred on the
-                        host2 even if they are not subscribed on host1.
-
-  --prefix1      str  : Remove prefix str to all destination folders,
-                        usually "INBOX." or "INBOX/" or an empty string "".
-                        imapsync guesses the prefix if host1 imap server
-                        does not have NAMESPACE capability. So this option
-                        should not be used most of the time.
-  --prefix2      str  : Add prefix to all host2 folders. See --prefix1
-
-  --sep1         str  : Host1 separator. This option should not be used
-                        most of the time.
-                        Imapsync gets the separator from the server itself,
-                        by using NAMESPACE, or it tries to guess it
-                        from the folders listing (it counts
-                        characters / . \\ \ in folder names and choose the
-                        more frequent, or finally / if nothing is found.
-  --sep2         str  : Host2 separator. See --sep1
-
-  --regextrans2  reg  : Apply the whole regex to each destination folders.
-  --regextrans2  reg  : and this one. etc.
-                        When you play with the --regextrans2 option, first
-                        add also the safe options --dry --justfolders
-                        Then, when happy, remove --dry for a run, then 
-                        remove --justfolders for the next ones.
-                        Have in mind that --regextrans2 is applied after
-                        the automatic prefix and separator inversion.
-                        For examples see:
-                        https://imapsync.lamiral.info/FAQ.d/FAQ.Folders_Mapping.txt
-
-Options/folders sizes:
-
-  --nofoldersizes     : Do not calculate the size of each folder at the
-                        beginning of the sync. Default is to calculate them.
-  --nofoldersizesatend: Do not calculate the size of each folder at the
-                        end of the sync. Default is to calculate them.
-  --justfoldersizes   : Exit after having printed the initial folder sizes.
-
-Options/tmp:
-
-  --tmpdir       str  : Where to store temporary files and subdirectories.
-                        Will be created if it doesn't exist.
-                        Default is system specific, Unix is /tmp but
-                        /tmp is often too small and deleted at reboot.
-                        --tmpdir /var/tmp should be better.
-  --pidfile      str  : The file where imapsync pid is written,
-                        it can be dirname/filename.
-                        Default name is imapsync.pid in tmpdir.
-  --pidfilelocking    : Abort if pidfile already exists. Useful to avoid
-                        concurrent transfers on the same mailbox.
-
-Options/log:
-
-  --nolog             : Turn off logging on file
-  --logfile      str  : Change the default log filename (can be dirname/filename).
-  --logdir       str  : Change the default log directory. Default is LOG_imapsync/
-
- The default logfile name is for example
-
-  LOG_imapsync/2019_12_22_23_57_59_532_user1_user2.txt
-
- where:
-
-  2019_12_22_23_57_59_532 is nearly the date of the start
-  YYYY_MM_DD_HH_MM_SS_mmm 
-  year_month_day_hour_minute_seconde_millisecond
-
- and user1 user2 are the --user1 --user2 values.
-
-Options/messages:
-
-  --skipmess     reg  : Skips messages matching the regex.
-                        Example: 'm/[\x80-ff]/' # to avoid 8bits messages.
-                        --skipmess is applied before --regexmess
-  --skipmess     reg  : or this one, etc.
-
-  --skipcrossduplicates : Avoid copying messages that are already copied
-                          in another folder,  good from Gmail to X when
-                          X is not also Gmail.
-                          Activated with --gmail1 unless --noskipcrossduplicates
-
-  --debugcrossduplicates : Prints which messages (UIDs) are skipped with
-                           --skipcrossduplicates (and in what other folders
-                           they are).
-
-  --pipemess     cmd  : Apply this cmd command to each message content
-                        before the copy.
-  --pipemess     cmd  : and this one, etc.
-                        With several --pipemess, the output of each cmd
-                        command (STDOUT) is given to the input (STDIN)
-                        of the next command.
-                        For example,
-                        --pipemess cmd1 --pipemess cmd2 --pipemess cmd3
-                        is like a Unix pipe:
-                        "cat message | cmd1 | cmd2 | cmd3"
-
-  --disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
-
-  --regexmess    reg  : Apply the whole regex to each message before transfer.
-                        Example: 's/\000/ /g' # to replace null by space.
-  --regexmess    reg  : and this one, etc.
-
-Options/labels:
-
- Gmail present labels as folders in imap. Imapsync can accelerate the sync
- by syncing X-GM-LABELS, it will avoid to transfer messages when they are
- already on host2.
-
-  --synclabels        : Syncs also Gmail labels when a message is copied to host2.
-                        Activated by default with --gmail1 --gmail2 unless
-                        --nosynclabels is added.
-                       
-  --resynclabels      : Resyncs Gmail labels when a message is already on host2.
-                        Activated by default with --gmail1 --gmail2 unless
-                        --noresynclabels is added.
-
- For Gmail syncs, see also:
- https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
-
-Options/flags:
-
-  If you encounter flag problems see also:
-  https://imapsync.lamiral.info/FAQ.d/FAQ.Flags.txt
-
-  --regexflag    reg  : Apply the whole regex to each flags list.
-                        Example: 's/"Junk"//g' # to remove "Junk" flag.
-  --regexflag    reg  : then this one, etc.
-
-  --resyncflags       : Resync flags for already transferred messages.
-                        On by default.
-  --noresyncflags     : Do not resync flags for already transferred messages.
-                        May be useful when a user has already started to play
-                        with its host2 account.
-
-Options/deletions:
-
-  --delete1           : Deletes messages on host1 server after a successful
-                        transfer. Option --delete1 has the following behavior:
-                        it marks messages as deleted with the IMAP flag
-                        \Deleted, then messages are really deleted with an
-                        EXPUNGE IMAP command. If expunging after each message
-                        slows down too much the sync then use
-                        --noexpungeaftereach to speed up, expunging will then be
-                        done only twice per folder, one at the beginning and
-                        one at the end of a folder sync.
-
-  --expunge1          : Expunge messages on host1 just before syncing a folder.
-                        Expunge is done per folder.
-                        Expunge aims is to really delete messages marked deleted.
-                        An expunge is also done after each message copied
-                        if option --delete1 is set (unless --noexpungeaftereach).
-
-  --noexpunge1        : Do not expunge messages on host1.
-
-  --delete1emptyfolders : Deletes empty folders on host1, INBOX excepted.
-                          Useful with --delete1 since what remains on host1
-                          is only what failed to be synced.
-
-  --delete2           : Delete messages in host2 that are not in
-                        host1 server. Useful for backup or pre-sync.
-                        --delete2 implies --uidexpunge2
-
-  --delete2duplicates : Delete messages in host2 that are duplicates.
-                        Works only without --useuid since duplicates are
-                        detected with an header part of each message.
-
-  --delete2folders    : Delete folders in host2 that are not in host1 server.
-                        For safety, first try it like this (it is safe):
-                        --delete2folders --dry --justfolders --nofoldersizes
-                        and see what folders will be deleted.
-
-  --delete2foldersonly   reg : Delete only folders matching the regex reg.
-                               Example: --delete2foldersonly "/^Junk$|^INBOX.Junk$/"
-                               This option activates --delete2folders
-
-  --delete2foldersbutnot reg : Do not delete folders matching the regex rex.
-                               Example: --delete2foldersbutnot "/Tasks$|Contacts$|Foo$/"
-                               This option activates --delete2folders
-
-  --noexpunge2        : Do not expunge messages on host2.
-  --nouidexpunge2     : Do not uidexpunge messages on the host2 account
-                        that are not on the host1 account.
-
-Options/dates:
-
-  If you encounter problems with dates, see also:
-  https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
-
-  --syncinternaldates : Sets the internal dates on host2 same as host1.
-                        Turned on by default. Internal date is the date
-                        a message arrived on a host (Unix mtime).
-  --idatefromheader   : Sets the internal dates on host2 same as the
-                        ones in "Date:" headers.
-
-Options/message selection:
-
-  --maxsize      int  : Skip messages larger  (or equal) than  int  bytes
-  --minsize      int  : Skip messages smaller (or equal) than  int  bytes
-  --maxage       int  : Skip messages older than  int days.
-                        final stats (skipped) don't count older messages
-                        see also --minage
-  --minage       int  : Skip messages newer than  int  days.
-                        final stats (skipped) don't count newer messages
-                        You can do (+ zone are the messages selected):
-                        past|----maxage+++++++++++++++>now
-                        past|+++++++++++++++minage---->now
-                        past|----maxage+++++minage---->now (intersection)
-                        past|++++minage-----maxage++++>now (union)
-
-  --search       str  : Selects only messages returned by this IMAP SEARCH
-                        command. Applied on both sides.
-                        For a complete set of what can be search see
-                        https://imapsync.lamiral.info/FAQ.d/FAQ.Messages_Selection.txt
-
-  --search1      str  : Same as --search but for selecting host1 messages only.
-  --search2      str  : Same as --search but for selecting host2 messages only.
-                        So --search CRIT equals --search1 CRIT --search2 CRIT
-
-  --maxlinelength int : skip messages with a line length longer than  int  bytes.
-                        RFC 2822 says it must be no more than 1000 bytes but
-                        real life servers and email clients do more.
-
-
-  --useheader    str  : Use this header to compare messages on both sides.
-                        Ex: Message-ID or Subject or Date.
-  --useheader    str    and this one, etc.
-
-  --usecache          : Use cache to speed up next syncs. Not set by default.
-  --nousecache        : Do not use cache. Caveat: --useuid --nousecache creates
-                        duplicates on multiple runs.
-  --useuid            : Use UIDs instead of headers as a criterion to recognize
-                        messages. Option --usecache is then implied unless
-                        --nousecache is used.
-
-Options/miscellaneous:
-
-  --syncacls          : Synchronizes acls (Access Control Lists).
-                        Acls in IMAP are not standardized, be careful
-                        since one acl code on one side may signify something
-                        else on the other one.
-  --nosyncacls        : Does not synchronize acls. This is the default.
-
-  --addheader         : When a message has no headers to be identified,
-                        --addheader adds a "Message-Id" header,
-                        like "Message-Id: 12345@imapsync", where 12345
-                        is the imap UID of the message on the host1 folder.
-
-Options/debugging:
-
-  --debug             : Debug mode.
-  --debugfolders      : Debug mode for the folders part only.
-  --debugcontent      : Debug content of the messages transferred. Huge output.
-  --debugflags        : Debug mode for flags.
-  --debugimap1        : IMAP debug mode for host1. Very verbose.
-  --debugimap2        : IMAP debug mode for host2. Very verbose.
-  --debugimap         : IMAP debug mode for host1 and host2. Twice very verbose.
-  --debugmemory       : Debug mode showing memory consumption after each copy.
-
-  --errorsmax     int : Exit when int number of errors is reached. Default is 50.
-
-  --tests             : Run local non-regression tests. Exit code 0 means all ok.
-  --testslive         : Run a live test with test1.lamiral.info imap server.
-                        Useful to check the basics. Needs internet connection.
-  --testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
-                        Useful to check the ipv6 connectivity. Needs internet.
-
-Options/specific:
-
-   --gmail1           : sets --host1 to Gmail and other options. See FAQ.Gmail.txt
-   --gmail2           : sets --host2 to Gmail and other options. See FAQ.Gmail.txt
-
-   --office1          : sets --host1 to Office365 and other options. See FAQ.Exchange.txt
-   --office2          : sets --host2 to Office365 and other options. See FAQ.Exchange.txt
-
-   --exchange1        : sets options for Exchange. See FAQ.Exchange.txt
-   --exchange2        : sets options for Exchange. See FAQ.Exchange.txt
-
-   --domino1          : sets options for Domino. See FAQ.Domino.txt
-   --domino2          : sets options for Domino. See FAQ.Domino.txt
-
-Options/behavior:
-
-  --maxmessagespersecond int : limits the number of messages transferred per second.
-
-  --maxbytespersecond int : limits the average transfer rate per second.
-  --maxbytesafter     int : starts --maxbytespersecond limitation only after
-                            --maxbytesafter amount of data transferred.
-
-  --maxsleep      int : do not sleep more than int seconds.
-                        On by default, 2 seconds max, like --maxsleep 2
-
-  --abort             : terminates a previous call still running.
-                        It uses the pidfile to know what process to abort.
-
-  --exitwhenover int  : Stop syncing and exits when int total bytes
-                        transferred is reached.
-
-  --version           : Print only software version.
-  --noreleasecheck    : Do not check for any new imapsync release.
-  --releasecheck      : Check for new imapsync release.
-                        it's an http request to
-                        http://imapsync.lamiral.info/prj/imapsync/VERSION
-
-  --noid              : Do not send/receive ID command to imap servers.
-
-  --justconnect       : Just connect to both servers and print useful
-                        information. Need only --host1 and --host2 options.
-                        Obsolete since "imapsync --host1 imaphost" alone
-                        implies --justconnect
-
-  --justlogin         : Just login to both host1 and host2 with users
-                        credentials, then exit.
-
-  --justfolders       : Do only things about folders (ignore messages).
-
-  --help              : print this help.
-
-  Example: to synchronize imap account "test1" on "test1.lamiral.info"
-                      to  imap account "test2" on "test2.lamiral.info"
-                      with test1 password "secret1"
-                      and  test2 password "secret2"
-
-  imapsync \
-     --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-     --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-Here is imapsync 1.977 on host petite, a linux system with 0.2/2.0 free GiB of RAM
-with Perl 5.22.1 and Mail::IMAPClient 3.38
-$Id: prereq.scandeps.Ubuntu_16.04_xenial.txt,v 1.7 2020/01/03 22:44:51 gilles Exp gilles $
-This imapsync is up to date. ( local 1.977 >= official 1.945 )( Use --noreleasecheck to avoid this release check. )
-Homepage: https://imapsync.lamiral.info/
-'Encode::Unicode'                                         => '2.09',
-'Tie::Hash::NamedCapture'                                 => '0.09',
-'APR'                                                     => '0.009000',
-'APR::XSLoader'                                           => 'undef',
-'Apache2::XSLoader'                                       => 'undef',
-'Authen::NTLM::DES'                                       => '1.02',
-'Authen::NTLM::MD4'                                       => '1.02',
-'GSSAPI'                                                  => '0.28',
-'Crypt::Random::Seed'                                     => '0.03',
-'Math::Random::ISAAC'                                     => '1.003',
-'CGI::Cookie'                                             => '4.26',
-'CGI::File::Temp'                                         => '4.26',
-'APR::Pool'                                               => '0.009000',
-'Apache2::RequestIO'                                      => '2.000009',
-'Apache2::RequestRec'                                     => '2.000009',
-'Apache2::Response'                                       => '2.000009',
-'Apache2::RequestUtil'                                    => '2.000009',
-'CGI::Util'                                               => '4.26',
-'ModPerl::Util'                                           => '2.000009',
-'APR::Table'                                              => '0.009000',
-'Fh'                                                      => '4.26',
-'Convert::ASN1::IO'                                       => '0.27',
-'Convert::ASN1::_decode'                                  => '0.27',
-'Convert::ASN1::_encode'                                  => '0.27',
-'Convert::ASN1::parser'                                   => '0.27',
-'Bytes::Random::Secure'                                   => '0.28',
-'Crypt::SSLeay::X509'                                     => 'undef',
-'Crypt::SSLeay::CTX'                                      => 'undef',
-'Digest::HMAC'                                            => '1.03',
-'Digest::Perl::MD5'                                       => '1.9',
-'Encode::HanExtra'                                        => '0.23',
-'HTML::Parser'                                            => '3.72',
-'HTTP::Cookies::Netscape'                                 => '6.00',
-'IO::Compress::Bzip2'                                     => '2.069',
-'IO::Compress::Deflate'                                   => '2.069',
-'IO::Compress::Gzip'                                      => '2.069',
-'IO::HTML'                                                => '1.001',
-'IO::Uncompress::Bunzip2'                                 => '2.069',
-'IO::Uncompress::Inflate'                                 => '2.069',
-'IO::Uncompress::RawInflate'                              => '2.069',
-'IO::Uncompress::Gunzip'                                  => '2.069',
-'HTTP::Headers'                                           => '6.11',
-'HTTP::Message'                                           => '6.11',
-'Compress::Raw::Bzip2'                                    => '2.069',
-'File::GlobMapper'                                        => '1.000',
-'IO::Compress::Adapter::Bzip2'                            => '2.069',
-'IO::Compress::Base'                                      => '2.069',
-'IO::Compress::RawDeflate'                                => '2.069',
-'IO::Compress::Adapter::Deflate'                          => '2.069',
-'IO::Compress::Zlib::Constants'                           => '2.069',
-'Socket6'                                                 => '0.25',
-'IO::Socket::SSL::PublicSuffix'                           => 'undef',
-'Net::SSLeay'                                             => '1.72',
-'IO::Uncompress::Adapter::Bunzip2'                        => '2.069',
-'IO::Compress::Zlib::Extra'                               => '2.069',
-'IO::Compress::Gzip::Constants'                           => '2.069',
-'IO::Compress::Base::Common'                              => '2.069',
-'IO::Uncompress::Adapter::Inflate'                        => '2.069',
-'IO::Uncompress::Base'                                    => '2.069',
-'JSON::WebToken::Constants'                               => 'undef',
-'JSON::WebToken::Exception'                               => 'undef',
-'Module::Runtime'                                         => '0.014',
-'JSON::WebToken::Crypt'                                   => 'undef',
-'Types::Serialiser'                                       => '1.0',
-'common::sense'                                           => '3.74',
-'Authen::NTLM'                                            => '1.09',
-'HTTP::Request::Common'                                   => '6.11',
-'URI::data'                                               => '1.71',
-'URI::_idna'                                              => '1.71',
-'URI::_foreign'                                           => '1.71',
-'URI::mailto'                                             => '1.71',
-'URI::_query'                                             => '1.71',
-'URI'                                                     => '1.71',
-'URI::QueryParam'                                         => '1.71',
-'URI::Split'                                              => '1.71',
-'URI::_segment'                                           => '1.71',
-'URI::file::FAT'                                          => '1.71',
-'URI::file::Mac'                                          => '1.71',
-'URI::file::OS2'                                          => '1.71',
-'URI::file::QNX'                                          => '1.71',
-'URI::ftp'                                                => '1.71',
-'URI::gopher'                                             => '1.71',
-'URI::https'                                              => '1.71',
-'URI::ldapi'                                              => '1.71',
-'URI::ldaps'                                              => '1.71',
-'URI::mms'                                                => '1.71',
-'URI::nntp'                                               => '1.71',
-'URI::pop'                                                => '1.71',
-'URI::rlogin'                                             => '1.71',
-'URI::rsync'                                              => '1.71',
-'URI::rtspu'                                              => '1.71',
-'URI::sftp'                                               => '1.71',
-'URI::sips'                                               => '1.71',
-'URI::snews'                                              => '1.71',
-'URI::telnet'                                             => '1.71',
-'URI::tn3270'                                             => '1.71',
-'URI::file::Win32'                                        => '1.71',
-'URI::file::Unix'                                         => '1.71',
-'URI::file::Base'                                         => '1.71',
-'URI::_punycode'                                          => '1.71',
-'URI::IRI'                                                => '1.71',
-'URI::ldap'                                               => '1.71',
-'URI::news'                                               => '1.71',
-'URI::ssh'                                                => '1.71',
-'URI::rtsp'                                               => '1.71',
-'URI::sip'                                                => '1.71',
-'URI::_userpass'                                          => '1.71',
-'URI::_login'                                             => '1.71',
-'URI::Heuristic'                                          => '4.20',
-'URI::_ldap'                                              => '1.71',
-'URI::_generic'                                           => '1.71',
-'URI::_server'                                            => '1.71',
-'HTTP::Status'                                            => '6.11',
-'LWP::Protocol'                                           => '6.15',
-'HTTP::Response'                                          => '6.11',
-'CPAN::Config'                                            => 'undef',
-'HTTP::Date'                                              => '6.02',
-'LWP'                                                     => '6.15',
-'LWP::MediaTypes'                                         => '6.02',
-'HTTP::Request'                                           => '6.11',
-'File::Listing'                                           => '6.04',
-'HTTP::Negotiate'                                         => '6.00',
-'Net::HTTP'                                               => '6.09',
-'Net::HTTPS'                                              => '6.09',
-'Net::SSL'                                                => '2.88',
-'Net::LDAP::DSML'                                         => '0.16',
-'Net::LDAP'                                               => '0.65',
-'Net::LDAP::LDIF'                                         => '0.26',
-'Mail::Internet'                                          => '2.13',
-'HTML::HeadParser'                                        => '3.71',
-'HTTP::Config'                                            => '6.11',
-'LWP::ConnCache'                                          => '6.15',
-'HTTP::Cookies'                                           => '6.01',
-'Encode::Locale'                                          => '1.05',
-'HTTP::Headers::Util'                                     => '6.11',
-'LWP::MemberMixin'                                        => 'undef',
-'Mail::IMAPClient::MessageSet'                            => 'undef',
-'Digest::HMAC_MD5'                                        => '1.01',
-'Authen::SASL'                                            => '2.16',
-'Authen::SASL::CRAM_MD5'                                  => '2.14',
-'Authen::SASL::EXTERNAL'                                  => '2.14',
-'Authen::SASL::Perl'                                      => '2.14',
-'Authen::SASL::Perl::ANONYMOUS'                           => '2.14',
-'Authen::SASL::Perl::CRAM_MD5'                            => '2.14',
-'Authen::SASL::Perl::DIGEST_MD5'                          => '2.14',
-'Authen::SASL::Perl::EXTERNAL'                            => '2.14',
-'Authen::SASL::Perl::GSSAPI'                              => '0.05',
-'Authen::SASL::Perl::LOGIN'                               => '2.14',
-'Authen::SASL::Perl::PLAIN'                               => '2.14',
-'Mail::Address'                                           => '2.13',
-'Mail::Header'                                            => '2.13',
-'Mail::Mailer'                                            => '2.13',
-'Mail::Util'                                              => '2.13',
-'Math::Random::ISAAC::PP'                                 => '1.003',
-'Math::Random::ISAAC::XS'                                 => '1.004',
-'Compress::Raw::Zlib'                                     => '2.069',
-'Net::HTTP::Methods'                                      => '6.09',
-'Net::LDAP::Bind'                                         => '1.05',
-'Net::LDAP::Extension'                                    => '1.04',
-'Net::LDAP::RootDSE'                                      => '0.02',
-'Net::LDAP::Search'                                       => '0.14',
-'Convert::ASN1::Debug'                                    => '0.27',
-'Convert::ASN1'                                           => '0.27',
-'Net::LDAP::Schema'                                       => '0.9908',
-'Net::LDAP::ASN'                                          => '0.12',
-'Net::LDAP::Entry'                                        => '0.27',
-'Net::LDAP::Filter'                                       => '0.20',
-'Net::LDAP::Message'                                      => '1.12',
-'Net::LDAP::Constant'                                     => '0.23',
-'XML::SAX::Base'                                          => '1.07',
-'Net::LDAP::Control'                                      => '0.18',
-'Net::LDAP::Util'                                         => '0.19',
-'Net::LDAP::Intermediate'                                 => '0.04',
-'Crypt::SSLeay::MainContext'                              => 'undef',
-'Crypt::SSLeay'                                           => '0.73_04',
-'Email::Address'                                          => '1.908',
-'Test::Builder::IO::Scalar'                               => '2.113',
-'UNIVERSAL::can'                                          => '1.20140328',
-'UNIVERSAL::isa'                                          => '1.20150614',
-'Test::Builder'                                           => '1.001014',
-'Test::Builder::Module'                                   => '1.001014',
-'URI::file'                                               => '4.21',
-'URI::WithBase'                                           => '2.20',
-'Unicode::CharName'                                       => '1.07',
-'XML::SAX::Exception'                                     => '1.07',
-'CGI::Carp'                                               => '4.26',
-'Data::Uniqid'                                            => '0.12',
-'Digest::HMAC_SHA1'                                       => '1.03',
-'Encode::IMAPUTF7'                                        => '1.05',
-'File::Copy::Recursive'                                   => '0.38',
-'File::Tail'                                              => '1.3',
-'IO::Tee'                                                 => '0.64',
-'JSON::WebToken'                                          => '0.10',
-'JSON::WebToken::Crypt::RSA'                              => 'undef',
-'Mail::IMAPClient'                                        => '3.38',
-'Readonly'                                                => '2.00',
-'Sys::MemInfo'                                            => '0.98',
-'Term::ReadKey'                                           => '2.33',
-'Test::MockObject'                                        => '1.20150527',
-'Test::More'                                              => '1.001014',
-'Unicode::String'                                         => '2.09',
-'HTML::Entities'                                          => '3.69',
-'CGI'                                                     => '4.26',
-'Crypt::OpenSSL::RSA'                                     => '0.28',
-'LWP::Authen::OAuth2'                                     => '0.16',
-'LWP::Authen::Basic'                                      => 'undef',
-'LWP::Authen::Digest'                                     => 'undef',
-'LWP::Authen::Ntlm'                                       => '6.15',
-'LWP::Authen::OAuth2::ServiceProvider::Dwolla'            => 'undef',
-'LWP::Authen::OAuth2::ServiceProvider::Google'            => '0.02',
-'LWP::Authen::OAuth2::ServiceProvider::Line'              => 'undef',
-'LWP::Authen::OAuth2::ServiceProvider::Line::AccessToken' => 'undef',
-'LWP::Authen::OAuth2::ServiceProvider::Strava'            => '0.02',
-'LWP::Authen::OAuth2::ServiceProvider::Yahoo'             => '0.01',
-'LWP::Protocol::GHTTP'                                    => 'undef',
-'LWP::Protocol::cpan'                                     => 'undef',
-'LWP::Protocol::data'                                     => 'undef',
-'LWP::Protocol::file'                                     => 'undef',
-'LWP::Protocol::ftp'                                      => 'undef',
-'LWP::Protocol::gopher'                                   => 'undef',
-'LWP::Protocol::https'                                    => '6.06',
-'LWP::Protocol::ldapi'                                    => 'undef',
-'LWP::Protocol::ldaps'                                    => 'undef',
-'LWP::Protocol::loopback'                                 => 'undef',
-'LWP::Protocol::mailto'                                   => 'undef',
-'LWP::Protocol::nntp'                                     => 'undef',
-'LWP::UserAgent'                                          => '6.15',
-'LWP::Protocol::nogo'                                     => 'undef',
-'LWP::Authen::OAuth2::AccessToken'                        => '0.02',
-'LWP::Authen::OAuth2::Args'                               => 'undef',
-'JSON::XS'                                                => '3.01',
-'JSON'                                                    => '2.90',
-'JSON::XS::Boolean'                                       => 'undef',
-'URI::URL'                                                => '5.04',
-'URI::http'                                               => '1.71',
-'LWP::Authen::OAuth2::ServiceProvider'                    => '0.02',
-'LWP::Authen::OAuth2::AccessToken::Bearer'                => '0.02',
-'LWP::Protocol::http'                                     => 'undef',
-'IO::Socket::SSL'                                         => '2.047',
-'LWP::Protocol::ldap'                                     => '1.25',
-'IO::Socket::INET6'                                       => '2.72',
-'Regexp::Common::URI::pop'                                => '2016020301',
-'Regexp::Common::URI::tel'                                => '2016020301',
-'Regexp::Common::URI::ftp'                                => '2016020301',
-'Regexp::Common::URI::fax'                                => '2016020301',
-'Regexp::Common::URI::wais'                               => '2016020301',
-'Regexp::Common::URI::RFC2396'                            => '2016020301',
-'Regexp::Common::URI::prospero'                           => '2016020301',
-'Regexp::Common::URI::tv'                                 => '2016020301',
-'Regexp::Common::URI::telnet'                             => '2016020301',
-'Regexp::Common::profanity'                               => '2016020301',
-'Regexp::Common::comment'                                 => '2016020301',
-'Regexp::Common::lingua'                                  => '2016020301',
-'Regexp::Common::zip'                                     => '2016020301',
-'Regexp::Common::net'                                     => '2016020301',
-'Regexp::Common::list'                                    => '2016020301',
-'Regexp::Common::URI::news'                               => '2016020301',
-'Regexp::Common::URI::http'                               => '2016020301',
-'Regexp::Common'                                          => '2016020301',
-'Regexp::Common::URI::RFC1808'                            => '2016020301',
-'Regexp::Common::URI::RFC2806'                            => '2016020301',
-'Regexp::Common::_support'                                => '2016020301',
-'Regexp::Common::delimited'                               => '2016020301',
-'Regexp::Common::SEN'                                     => '2016020301',
-'Regexp::Common::whitespace'                              => '2016020301',
-'Regexp::Common::number'                                  => '2016020301',
-'Regexp::Common::balanced'                                => '2016020301',
-'Regexp::Common::CC'                                      => '2016020301',
-'Regexp::Common::URI'                                     => '2016020301',
-'Regexp::Common::Email::Address'                          => '1.01',
-'Regexp::Common::URI::gopher'                             => '2016020301',
-'Regexp::Common::URI::RFC2384'                            => '2016020301',
-'Regexp::Common::URI::RFC1738'                            => '2016020301',
-'Regexp::Common::URI::RFC1035'                            => '2016020301',
-'Regexp::Common::URI::file'                               => '2016020301',
-'URI::Escape'                                             => '3.31',
diff --git a/W/rsync_exclude_dist.txt b/W/rsync_exclude_dist.txt
deleted file mode 100755
index cfd19cd..0000000
--- a/W/rsync_exclude_dist.txt
+++ /dev/null
@@ -1,16 +0,0 @@
-
-# $Id: rsync_exclude_dist.txt,v 1.3 2019/02/17 15:29:44 gilles Exp gilles $
-
-imapsync.exe
-imapsync_64bit.exe
-W/gts/csv
-W/imapsync.tdy
-W/paypal_reply
-
-LOG_imapsync
-nytprof.out
-nytprof/
-vnstat
-VERSION_EXE
-cover_db
-
diff --git a/W/t/01_connect b/W/t/01_connect
deleted file mode 100755
index 25bda46..0000000
--- a/W/t/01_connect
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-
-$imap = Mail::IMAPClient->new(Debug => 1);
-$imap->Debug(1);
-$imap->Server('louloutte.dyndns.org');
-$imap->connect() or croak "Error connecting @!";
-$imap->User('MarkOv@est.belle');
-$imap->Password('emhj91ly');
-$imap->login();
-$imap->logout();
-
-
diff --git a/W/t/01_connect.229.dump b/W/t/01_connect.229.dump
deleted file mode 100644
index 503bc92..0000000
--- a/W/t/01_connect.229.dump
+++ /dev/null
@@ -1,16 +0,0 @@
-Using Mail::IMAPClient version 2.2.9 and perl version 5.8.8 (5.008008)
-Read: * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc.  See COPYING for distribution information.
-
-Connect: Received this from readline: 0/OUTPUT/* OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc.  See COPYING for distribution information.
-
-Sending: 1 Login "XXXXXXXX" XXXXXXXX
-
-Sent 37 bytes
-Read: 1 OK LOGIN Ok.
-
-Sending: 2 LOGOUT
-
-Sent 10 bytes
-Read: * BYE Courier-IMAP server shutting down
-2 OK LOGOUT completed
-
diff --git a/W/t/02_append_string b/W/t/02_append_string
deleted file mode 100755
index d470fe9..0000000
--- a/W/t/02_append_string
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-
-$imap = Mail::IMAPClient->new();
-$imap->Debug(0);
-$imap->Server('louloutte.dyndns.org');
-$imap->connect() or croak "Error connecting $@ !";
-$imap->User('MarkOv@est.belle');
-$imap->Password('emhj91ly');
-$imap->login() or croak "Error login $@ !";
-
-$imap->Uid(1) or croak "Error Uid $@ !";
-
-print "[", $imap->folders, "]\n";
-
-$imap->select('Inbox') or croak "Could not select: $@ !";
-my @messages = $imap->messages or croak "Could not get message list: $@ !";
-print "[@messages]\n";
-$message = $messages[1];
-print "[$message]\n";
-my $string = $imap->message_string($message);
-print $string;
-
-#my $uid = $imap->append_string('INBOX.Trash', $string, '\Seen', "30-Oct-2006 01:34:14 +0100")
-#          or croak "Could not append_string: $@\n";
-my $uid = $imap->append_string('INBOX.Trash', "$string", '\Seen', "")
-          or croak "Could not append_string: $@\n";
-
-print "$uid\n";
-
-$imap->logout();
-
-
diff --git a/W/t/03_message_to_file b/W/t/03_message_to_file
deleted file mode 100755
index 7be09bf..0000000
--- a/W/t/03_message_to_file
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-use strict;
-
-my $imap1 = Mail::IMAPClient->new();
-$imap1->Debug(0);
-$imap1->Server('louloutte.dyndns.org');
-$imap1->connect() or croak "Error connecting $@ !";
-$imap1->User('MarkOv@est.belle');
-$imap1->Password('emhj91ly');
-$imap1->login() or croak "Error login $@ !";
-$imap1->Uid(1) or croak "Error Uid $@ !";
-
-my $imap2 = Mail::IMAPClient->new();
-$imap2->Debug(0);
-$imap2->Server('louloutte.dyndns.org');
-$imap2->connect() or croak "Error connecting $@ !";
-$imap2->User('MarkOv@est.belle');
-$imap2->User('titi@est.belle');
-$imap2->Password('HUwtEd');
-$imap2->login() or croak "Error login $@ !";
-$imap2->Uid(1) or croak "Error Uid $@ !";
-
-
-
-print "[", $imap1->folders, "]\n";
-
-$imap1->select('Inbox') or croak "Could not select: $@ !";
-$imap2->select('Inbox') or croak "Could not select: $@ !";
-
-my @msg_id_2 = $imap2->messages;
-my $msg_id_2 = $msg_id_2[1];
-my $msg_id_1 = ($imap1->messages)[0];
-print "msg_id_1: $msg_id_1\n";
-
-my $string_2 = $imap2->message_string($msg_id_2);
-print $string_2;
-
-my $message_file_1 = "tmp_message_to_file_${$}_1";
-my $message_file_2 = "tmp_message_to_file_${$}_2";
-unlink($message_file_1);
-unlink($message_file_2);
-
-$imap2->message_to_file($message_file_2, $msg_id_2) or croak "Could not message_to_file";
-$imap1->message_to_file($message_file_1, $msg_id_1) or croak "Could not message_to_file";
-
-
-$imap1->logout();
-$imap2->logout();
-
-
diff --git a/W/t/04_parse_headers b/W/t/04_parse_headers
deleted file mode 100755
index 0280a65..0000000
--- a/W/t/04_parse_headers
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-
-$imap = Mail::IMAPClient->new(Debug => 1);
-$imap->Debug(1);
-$imap->Server('louloutte.dyndns.org');
-$imap->connect() or croak "Error connecting @!";
-$imap->User('MarkOv@est.belle');
-$imap->Password('emhj91ly');
-$imap->login();
-
-$imap->select('Inbox');
-my @messages = $imap->messages();
-
-my $headers = $imap->parse_headers([@messages]);
-
-$imap->logout();
-
-
diff --git a/W/t/05_parse_headers_ssl b/W/t/05_parse_headers_ssl
deleted file mode 100755
index bf761ed..0000000
--- a/W/t/05_parse_headers_ssl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-use IO::Socket::SSL;
-
-my $ssl = new IO::Socket::SSL("louloutte.dyndns.org:993");
-
-my $imap = Mail::IMAPClient->new();
-$imap->Socket($ssl);
-
-$imap->Debug(1);
-$imap->Server('louloutte.dyndns.org');
-$imap->connect() or croak "Error connecting @!";
-$imap->User('MarkOv@est.belle');
-$imap->Password('emhj91ly');
-$imap->login();
-
-$imap->select('Inbox');
-my @messages = $imap->messages();
-
-my $headers = $imap->parse_headers([@messages]);
-
-$imap->logout();
-
-
diff --git a/W/t/06_parse_headers_ssl_titi b/W/t/06_parse_headers_ssl_titi
deleted file mode 100755
index 4ec32de..0000000
--- a/W/t/06_parse_headers_ssl_titi
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/perl -w
-
-use Carp;
-use Mail::IMAPClient;
-use IO::Socket::SSL;
-
-my $ssl = new IO::Socket::SSL("louloutte.dyndns.org:993");
-
-my $imap = Mail::IMAPClient->new();
-$imap->Socket($ssl);
-
-$imap->Debug(1);
-$imap->Server('louloutte.dyndns.org');
-$imap->connect() or croak "Error connecting @!";
-$imap->User('titi@est.belle');
-$imap->Password('HUwtEd');
-$imap->login();
-
-$imap->select('Inbox');
-my @messages = $imap->messages();
-
-my $headers = $imap->parse_headers([@messages]);
-
-$imap->logout();
-
-
diff --git a/W/t/07_ll_regexmess_add_header.txt b/W/t/07_ll_regexmess_add_header.txt
deleted file mode 100644
index 79bb626..0000000
--- a/W/t/07_ll_regexmess_add_header.txt
+++ /dev/null
@@ -1,38 +0,0 @@
-X-migrated-from-foo: 20100617
-Delivered-To: gilles.lamiral@gmail.com
-Received: by 10.216.17.5 with SMTP id i5cs170544wei;
-        Fri, 4 Sep 2009 21:56:09 -0700 (PDT)
-Received: by 10.220.79.140 with SMTP id p12mr1652453vck.57.1252126565558;
-        Fri, 04 Sep 2009 21:56:05 -0700 (PDT)
-Return-Path: <nicomonkey118@frontiernet.net>
-Received: from mx09.roch.ny.frontiernet.net (mx09.roch.ny.frontiernet.net [66.133.183.226])
-        by mx.google.com with ESMTP id 7si2214072vws.26.2009.09.04.21.55.33;
-        Fri, 04 Sep 2009 21:56:05 -0700 (PDT)
-Received-SPF: pass (google.com: domain of nicomonkey118@frontiernet.net designates 66.133.183.226 as permitted sender) client-ip=66.133.183.226;
-Authentication-Results: mx.google.com; spf=pass (google.com: domain of nicomonkey118@frontiernet.net designates 66.133.183.226 as permitted sender) smtp.mail=nicomonkey118@frontiernet.net
-X-IronPort-Anti-Spam-Filtered: true
-X-IronPort-Anti-Spam-Result: AhOoAIyLoUpChbqH/2dsb2JhbACBNIpzBIQMiSaCWoYGqDWEEIpdhBYFgVeJEQI
-X-Header: [4]
-Received: from relay03.roch.ny.frontiernet.net ([66.133.182.166])
-  by mx09.roch.ny.frontiernet.net with ESMTP; 05 Sep 2009 04:55:13 +0000
-Received: from cl05-zms04.roch.ny.frontiernet.net (cl05-host04.roch.ny.frontiernet.net [66.133.186.135])
-	by relay03.roch.ny.frontiernet.net (Postfix) with ESMTP id AC7CC10056;
-	Sat,  5 Sep 2009 04:55:11 +0000 (UTC)
-Date: Sat, 5 Sep 2009 04:55:11 +0000 (UTC)
-From: Toyota Awards <nicomonkey118@frontiernet.net>
-Reply-To: Toyota Awards <toyota3@9.cn>
-Message-ID: <165391284.448761252126511648.JavaMail.root@cl05-host04.roch.ny.frontiernet.net>
-Subject: add_some_header_please
-MIME-Version: 1.0
-Content-Type: text/plain; charset=utf-8
-Content-Transfer-Encoding: 7bit
-X-Originating-IP: [65.120.56.2]
-X-Mailer: Zimbra 5.0.13_GA_2791.UBUNTU8_64 (zclient/5.0.13_GA_2791.UBUNTU8_64)
-X-Authenticated-User: nicomonkey118@frontiernet.net
-To: undisclosed-recipients:;
-X-Virus-Scanned: ClamAV 0.94.2/9777/Fri Sep  4 22:17:01 2009 on relay03.roch.ny.frontiernet.net
-X-Virus-Status: Clean
-
-
-
-You were given 750,000.00 Pounds by the toyota global company, send Name,Address,Occupation
diff --git a/W/t/08_ll_regexmess_add_header_path.txt b/W/t/08_ll_regexmess_add_header_path.txt
deleted file mode 100644
index 85d5eee..0000000
--- a/W/t/08_ll_regexmess_add_header_path.txt
+++ /dev/null
@@ -1,38 +0,0 @@
-X-ImapSync-OriginalPath-tata: INBOX.yop.blanc  blanc
-Delivered-To: gilles.lamiral@gmail.com
-Received: by 10.216.17.5 with SMTP id i5cs170544wei;
-        Fri, 4 Sep 2009 21:56:09 -0700 (PDT)
-Received: by 10.220.79.140 with SMTP id p12mr1652453vck.57.1252126565558;
-        Fri, 04 Sep 2009 21:56:05 -0700 (PDT)
-Return-Path: <nicomonkey118@frontiernet.net>
-Received: from mx09.roch.ny.frontiernet.net (mx09.roch.ny.frontiernet.net [66.133.183.226])
-        by mx.google.com with ESMTP id 7si2214072vws.26.2009.09.04.21.55.33;
-        Fri, 04 Sep 2009 21:56:05 -0700 (PDT)
-Received-SPF: pass (google.com: domain of nicomonkey118@frontiernet.net designates 66.133.183.226 as permitted sender) client-ip=66.133.183.226;
-Authentication-Results: mx.google.com; spf=pass (google.com: domain of nicomonkey118@frontiernet.net designates 66.133.183.226 as permitted sender) smtp.mail=nicomonkey118@frontiernet.net
-X-IronPort-Anti-Spam-Filtered: true
-X-IronPort-Anti-Spam-Result: AhOoAIyLoUpChbqH/2dsb2JhbACBNIpzBIQMiSaCWoYGqDWEEIpdhBYFgVeJEQI
-X-Header: [4]
-Received: from relay03.roch.ny.frontiernet.net ([66.133.182.166])
-  by mx09.roch.ny.frontiernet.net with ESMTP; 05 Sep 2009 04:55:13 +0000
-Received: from cl05-zms04.roch.ny.frontiernet.net (cl05-host04.roch.ny.frontiernet.net [66.133.186.135])
-	by relay03.roch.ny.frontiernet.net (Postfix) with ESMTP id AC7CC10056;
-	Sat,  5 Sep 2009 04:55:11 +0000 (UTC)
-Date: Sat, 5 Sep 2009 04:55:11 +0000 (UTC)
-From: Toyota Awards <nicomonkey118@frontiernet.net>
-Reply-To: Toyota Awards <toyota3@9.cn>
-Message-ID: <165391284.448761252126511648.JavaMail.root@cl05-host04.roch.ny.frontiernet.net>
-Subject: add_some_header_please
-MIME-Version: 1.0
-Content-Type: text/plain; charset=utf-8
-Content-Transfer-Encoding: 7bit
-X-Originating-IP: [65.120.56.2]
-X-Mailer: Zimbra 5.0.13_GA_2791.UBUNTU8_64 (zclient/5.0.13_GA_2791.UBUNTU8_64)
-X-Authenticated-User: nicomonkey118@frontiernet.net
-To: undisclosed-recipients:;
-X-Virus-Scanned: ClamAV 0.94.2/9777/Fri Sep  4 22:17:01 2009 on relay03.roch.ny.frontiernet.net
-X-Virus-Status: Clean
-
-
-
-You were given 750,000.00 Pounds by the toyota global company, send Name,Address,Occupation
diff --git a/W/t/loadavg.out b/W/t/loadavg.out
deleted file mode 100644
index c387b24..0000000
--- a/W/t/loadavg.out
+++ /dev/null
@@ -1 +0,0 @@
-0.39 0.30 0.37 1/602 6073
diff --git a/W/test.bat b/W/test.bat
deleted file mode 100755
index 5cc7ce1..0000000
--- a/W/test.bat
+++ /dev/null
@@ -1,47 +0,0 @@
-
-REM $Id: test.bat,v 1.12 2015/03/15 04:04:11 gilles Exp gilles $
-
-cd /D %~dp0
-
-@ECHO ==== Just load modules
-perl -mMail::IMAPClient -mDigest::MD5 -mTerm::ReadKey -mIO::Socket::SSL ^
-       -mDigest::HMAC_MD5 -mAuthen::NTLM -e -mTime::HiRes ^
-       -mData::Uniqid -mURI::Escape  -mIO::Tee ""
-
-perl ./imapsync 
-@REM perl ./imapsync --tests 
-
-@ECHO ==== All 8 combinaisons between ssl1/tls1 ssl2/tls2 justconnect/justlogin
-
-@ECHO ==== 1 --SSL1 --SSL2 --JUSTCONNECT
-perl ./imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justconnect
-
-@ECHO ==== 2 --SSL1 --SSL2 --JUSTLOGIN
-perl ./imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justlogin
-
-@ECHO ==== 3 --TLS1 --TLS2 --JUSTCONNECT
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --justconnect
-
-@ECHO ==== 4 --TLS1 --TLS2 --JUSTLOGIN
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --justlogin  
-
-@ECHO ==== 5 --SSL1 --TLS2 --JUSTCONNECT
-perl ./imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --justconnect
-
-@ECHO ==== 6 --SSL1 --TLS2 --JUSTLOGIN
-perl ./imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --justlogin
-
-@ECHO ==== 7 --TLS1 --SSL2 --JUSTCONNECT
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justconnect
-
-@ECHO ==== 8 --TLS1 --SSL2 --JUSTLOGIN
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justlogin
-
-
-@ECHO ==== All folders in ssl
-perl ./imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --delete2 --expunge2 
-@ECHO ==== INBOX only
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --delete2 --expunge2 --folder INBOX --nofoldersizes
-@ECHO ==== INBOX only and --usecache
-perl ./imapsync --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --delete2 --expunge2 --folder INBOX --nofoldersizes --usecache
-
diff --git a/W/test2.bat b/W/test2.bat
deleted file mode 100755
index d7fa0df..0000000
--- a/W/test2.bat
+++ /dev/null
@@ -1,23 +0,0 @@
-
-@REM $Id: test2.bat,v 1.23 2019/03/22 18:10:31 gilles Exp gilles $
-@REM
-
-cd /D %~dp0
-
-@REM @ECHO off
-
-@REM perl .\imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justfoldersizes | findstr /C:"Host2 Total size:"
-
-@REM findstr /l /C:"Error login" LOG_imapsync\*.txt
-
-@REM perl .\imapsync --host1 p --ssl1 --user1 tata --passfile1 secret.tata  --host2 p --ssl2 --user2 titi --passfile2 secret.titi --justlogin 
-
-@REM perl -e "print join(' ', keys(%%SIG))"
-
-@ECHO ==== \Seen set in case unset
-perl ./imapsync --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 tata --passfile2 secret.tata ^
- --nofoldersizes --no-modulesversion  --folder INBOX.flagsetSeen --debugflags --dry --regexflag "s,\\Seen,," --regexflag "s,,\\Seen ,"
- 
-@REM --regexflag "s,^((?!\\Seen).*)$,$1 \\Seen,"
-
-
diff --git a/W/test3.bat b/W/test3.bat
deleted file mode 100755
index 26caa85..0000000
--- a/W/test3.bat
+++ /dev/null
@@ -1,15 +0,0 @@
-
-@REM $Id: test3.bat,v 1.29 2018/02/06 13:12:26 gilles Exp gilles $
-cd /D %~dp0
-
-@REM \$1 must be $1 on Windows
-
-.\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi ^
-               --folder "INBOX.blanc middle" --automap --f1f2 "INBOX.blanc middle=INBOX.blanc middle" --dry
-
-               
-@EXIT
-
-
-
-
diff --git a/W/test3_boxon.bat b/W/test3_boxon.bat
deleted file mode 100755
index ebfc565..0000000
--- a/W/test3_boxon.bat
+++ /dev/null
@@ -1,96 +0,0 @@
-
-
-cd /D %~dp0
-
-REM perl imapsync --host1 p  --user1 toto --passfile1 secret.toto  --host2 p --user2 titi --passfile2 secret.titi --ssl1 --ssl2  --folder INBOX 
-REM .\imapsync.exe --host1 p  --user1 toto --passfile1 secret.toto  --host2 p --user2 titi --passfile2 secret.titi --ssl1 --ssl2 --justconnect 
-REM PAUSE
-
-REM .\imapsync.exe --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi --ssl1 --ssl2 --delete2 --folder INBOX 
-REM .\imapsync.exe --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi --ssl1 --ssl2 --delete2 --folder INBOX --usecache
-
-@REM perl .\imapsync --tests_debug
-
-@REM @EXIT
-
-@REM perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-@REM  --nofoldersizes --regextrans2 "s,INBOX\\yop\\(.*),OLDBOX\\$1," --prefix1 "" --sep1 "." --sep2 "\\" --prefix2 "" --justfolders --dry --debug
-
-@REM  .\imapsync.exe  --host1 p --user1 tata  --passfile1 secret.tata  --host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com ^
-@REM         --passfile2 secret.outlook.com  --folder INBOX  --usecache --regextrans2 "s/INBOX/tata/" 
-
-@REM  Change all " to _
-@REM --justfolders --nofoldersizes --dry --regextrans2 s,\^",_,g
-
-
-@REM perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-@REM     --justfolders --nofoldersizes --dry  --regextrans2 "s,(/|^) +,$1,g" --regextrans2 "s, +(/|$),$1,g"
-
-@ECHO ====  --subfolder2 SUB2
-perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-     --justfolders  --subfolder2 SUB2 --dry 
-
-
-@ECHO ==== 4 --TLS1 --TLS2 --JUSTLOGIN
-perl ./imapsync --debug --host1 p --tls1 --user1 tata --passfile1 secret.tata  --host2 p --tls2 --user2 titi --passfile2 secret.titi --justconnect
-
-
-@ECHO ==== Remove [Gmail] on host2
-perl .\imapsync --host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com --passfile1 secret.gilles_gmail ^
-                --host2 p --user2 tata --passfile2 secret.tata ^
-                --regextrans2 "s,\[Gmail\].,," --dry --justfolders
-
-@ECHO ====  --subfolder2 SUB2 domino
-perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-     --sep2 "\\" --prefix2 "" --justfolders  --subfolder2 SUB2 --dry --debug --folder INBOX.yop.yap.yip
-
-@ECHO ====  --subfolder2 remove INBOX domino
-perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-     --prefix1 "" ^
-     --sep2 "\\" --prefix2 ""  --regextrans2 "s,^Inbox\\(.*),$1,i"  --justfolders --dry --debug --folder INBOX.yop.yap.yip
-
-@ECHO ==== split long lines 
-perl ./imapsync ^
-                --host1 p  --user1 tata ^
-                --passfile1 secret.tata ^
-                --host2 p  --user2 titi ^
-                --passfile2 secret.titi ^
-                --nofoldersizes  --folder "INBOX.longline" --regexmess "s,(.{9900}),$1\r\n,g" --dry --debugcontent
-
-@ECHO ==== password within double-quotes via --passfile1
-perl ./imapsync --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi ^
-                --debugimap2 --debugcontent --folder INBOX --maxage 1
-
-@ECHO ==== \Seen set in case unset
-perl ./imapsync --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 tata --passfile2 secret.tata ^
- --nofoldersizes --no-modulesversion  --folder INBOX.flagsetSeen --debugflags --dry --regexflag "s,\\Seen,," --regexflag "s,,\\Seen ,"
-		
-@ECHO ==== password double-quotes within via --password1
-@REM perl ./imapsync --host1 p  --user1 tata --password1 \"ami\\\"seen\"  --host2 p --user2 titi --passfile2 secret.titi --debugimap1 --showpasswords --justlogin
-perl ./imapsync --host1 p  --user1 tata --password1 ami\\\"seen  --host2 p --user2 titi --passfile2 secret.titi --debugimap1 --showpasswords --justlogin
-
-	
-@ECHO ====  --justloadavg --justbanner
-
-@REM perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --justbanner
-
-
-@REM perl -V
-@REM perl -e "print 'zzz'"
-@REM perl -c .\imapsync
-@REM perl    .\imapsync --version
-@REM --testsdebug --debugdev
-
-@REM perl .\imapsync  --host1 imap.gmail.com   --host2 ks2ipv6.lamiral.info  --ssl1 --ssl2 --justconnect --debugimap
-@REM perl .\imapsync  --host1 test.lamiral.info   --host2 ks2ipv6.lamiral.info  --nossl1 --justconnect --debugimap
-
-@REM .\imapsync.exe  --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --folder """INBOX.A B""" --justfolders
-@REM perl .\imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --folder "INBOX.A B" --justfolders
-
-@REM Big emails
-.\imapsync.exe --host1 p  --user1 big1 --passfile1 secret.big1 --host2 p --user2 big2 --passfile2 secret.big2 ^
-               --folder INBOX.bigmail  --debugmemory --nofoldersizes 
-
-
-@REM
-
diff --git a/W/test3_gmail.bat b/W/test3_gmail.bat
deleted file mode 100755
index 8a5f7ee..0000000
--- a/W/test3_gmail.bat
+++ /dev/null
@@ -1,22 +0,0 @@
-
-@REM $Id: test3_gmail.bat,v 1.6 2017/10/22 14:21:30 gilles Exp gilles $
-
-cd /D %~dp0
-
-@REM ./imapsync.exe --justbanner
-
-@REM perl .\imapsync --host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com --passfile1 secret.gilles_gmail ^
-@REM                 --host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com --passfile2 secret.gilles_gmail ^
-@REM                 --folder INBOX --dry
-
-@REM PAUSE
-
-.\imapsync.exe --host1 imap.gmail.com --ssl1 --user1 "gilles.lamiral@gmail.com" --passfile1 secret.gilles_gmail ^
-                --host2 p --user2 tata --passfile2 secret.tata ^
-                --dry --folder INBOX --search """X-GM-RAW to:gilles.lamiral@gmail.com""" --debugimap1
-
-@REM GOOD imapsync.exe  ... 
-@REM GOOD imapsync.exe  ... --search """X-GM-RAW to:gilles.lamiral@gmail.com"""                
-@REM GOOD imapsync.exe  ... --search """X-GM-RAW "to:gilles.lamiral@gmail.com""""
-
-@REM GOOD perl imapsync ... --search   "X-GM-RAW ""to:gilles.lamiral@gmail.com"""
diff --git a/W/test3_longdir.bat b/W/test3_longdir.bat
deleted file mode 100755
index 203e367..0000000
--- a/W/test3_longdir.bat
+++ /dev/null
@@ -1,20 +0,0 @@
-
-
-cd /D %~dp0
-
-REM E:
-REM cd .\temp
-REM cd \
-REM imapsync.exe --host1 p  --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi --usecache --tmpdir  "E:\TEMP" --include "blanc"
-REM PAUSE
-REM perl imapsync --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi --usecache --tmpdir "E:\TEMP"
-REM perl imapsync --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi --usecache
-
-mkdir "\\?\E:\TEMP\lala"
-REM mkdir "\\?\E:\TEMP\01_______\01_______\02_______\03_______\04_______\05_______\06_______\07_______\08_______\09_______\10_______\11_______\12_______\13_______\14_______\15_______\16_______\17_______\18_______\19_______\20_______\21_______\22_______\22_______\24_______\25_______\26_______\27_______\28_______\29_______\30_______\"
-
-
-perl imapsync --tests_debug --tmpdir "\\?\E:\TEMP\long"
-perl imapsync --tests --tmpdir "\\?\E:\TEMP\long"
-
-
diff --git a/W/test4.bat b/W/test4.bat
deleted file mode 100755
index ffd591d..0000000
--- a/W/test4.bat
+++ /dev/null
@@ -1,31 +0,0 @@
-
-@REM $Id: test4.bat,v 1.4 2019/05/28 13:20:08 gilles Exp gilles $
-
-SET
-ECHO ~dp0 = %~dp0
-ECHO 0 = %0
-ECHO ~0 = %~0
-ECHO ~dpnx0 = %~dpnx0
-ECHO cmdcmdline = %cmdcmdline%
-CD /D %~dp0
-
-
-@IF [%PROCESSOR_ARCHITECTURE%] == [x86] (
-        @REM 32 bits
-        @REM Do not add command after this one since it will anihilate the %ERRORLEVEL% of pp
-        ECHO ECHO Building 32 bits binary PROCESSOR_ARCHITECTURE = %PROCESSOR_ARCHITECTURE%
-) ELSE (
-        @REM 64 bits
-        @REM Do not add command after this one since it will anihilate the %ERRORLEVEL% of pp
-        ECHO ECHO Building 64 bits binary PROCESSOR_ARCHITECTURE = %PROCESSOR_ARCHITECTURE%
-)
-
-
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-
-EXIT /B
-
-
-
-
diff --git a/W/test5.bat b/W/test5.bat
deleted file mode 100755
index 9df561f..0000000
--- a/W/test5.bat
+++ /dev/null
@@ -1,6 +0,0 @@
-
-
-SET
-CD /D %~dp0
-CALL .\test4.bat
-
diff --git a/W/test6.bat b/W/test6.bat
deleted file mode 100755
index f83e1b5..0000000
--- a/W/test6.bat
+++ /dev/null
@@ -1,9 +0,0 @@
-
-
-SET
-CD /D %~dp0
-REM perl imapsync --testsunit tests_kill_zero
-REM perl imapsync --testsunit tests_killpid
-
-perl imapsync --tests
-
diff --git a/W/test_abort.bat b/W/test_abort.bat
deleted file mode 100755
index e12d081..0000000
--- a/W/test_abort.bat
+++ /dev/null
@@ -1,18 +0,0 @@
-
-
-SET
-CD /D %~dp0
-REM perl imapsync --testsunit tests_kill_zero
-REM perl imapsync --testsunit tests_killpid
-
-START perl imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --simulong 9
-ping -n 5 127.0.0.1 >nul
-perl imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --abort
-
-
-
-
-
-
-
-
diff --git a/W/test_cook_exe.bat b/W/test_cook_exe.bat
deleted file mode 100755
index 3a62e76..0000000
--- a/W/test_cook_exe.bat
+++ /dev/null
@@ -1,16 +0,0 @@
-REM $Id: test_cook_exe.bat,v 1.4 2017/09/07 00:59:35 gilles Exp gilles $
-
-cd /D %~dp0
-
-.\imapsync.exe
-@PAUSE 
-.\imapsync.exe --tests 
-@PAUSE 
-.\imapsync.exe --testslive  --nossl2
-@PAUSE 
-.\imapsync.exe --testslive6 --nossl2
-@ECHO The previous test fails with "Invalid argument" usually (August 2017)
-@ECHO Tests ended, bye.
-@PAUSE
-
-@REM EXIT
diff --git a/W/test_cook_src.bat b/W/test_cook_src.bat
deleted file mode 100755
index 1770cd0..0000000
--- a/W/test_cook_src.bat
+++ /dev/null
@@ -1,15 +0,0 @@
-REM $Id: test_cook_src.bat,v 1.3 2017/09/07 00:59:26 gilles Exp gilles $
-
-cd /D %~dp0
-
-
-
-perl .\imapsync
-@PAUSE 
-perl .\imapsync --tests 
-@PAUSE 
-perl .\imapsync --testslive
-@PAUSE 
-perl .\imapsync --testslive6
-@ECHO Tests for imapsync script are finished, bye!
-@PAUSE
\ No newline at end of file
diff --git a/W/test_exe.bat b/W/test_exe.bat
deleted file mode 100755
index fd0f5f8..0000000
--- a/W/test_exe.bat
+++ /dev/null
@@ -1,87 +0,0 @@
-REM $Id: test_exe.bat,v 1.24 2019/12/11 18:56:40 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-ECHO Currently running through %0 %*
-
-cd /D %~dp0
-
-@REM Remove the error file because its existence means an error occurred during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-CALL :handle_bad_success  .\imapsync.exe --thisoptionnoexists 
-
-CALL :handle_error  .\imapsync.exe --tests
-CALL :handle_error  .\imapsync.exe --testslive  --nossl2
-CALL :handle_bad_success  CALL :launch_imapsync --folder """INBOX.blanc middle""" --f1f2 """INBOX.blanc middle=INBOX.blanc middle""" --dry
-CALL :handle_error  CALL :launch_imapsync --folder "INBOX.blanc middle"     --f1f2 "INBOX.blanc middle=INBOX.blanc middle"     --dry
-
-@REM CALL :handle_error  .\imapsync.exe --testslive6 --nossl2
-
-@REM EXIT /B
-
-@ECHO ==== All 8 combinaisons between ssl1/tls1 ssl2/tls2 justconnect/justlogin
-CALL :handle_error CALL :launch_imapsync --justconnect --ssl1 --ssl2 
-CALL :handle_error CALL :launch_imapsync --justconnect --tls1 --tls2 
-CALL :handle_error CALL :launch_imapsync --justconnect --ssl1 --tls2 
-CALL :handle_error CALL :launch_imapsync --justconnect --tls1 --ssl2 
-CALL :handle_error CALL :launch_imapsync --justlogin   --ssl1 --ssl2 
-CALL :handle_error CALL :launch_imapsync --justlogin   --tls1 --tls2 
-CALL :handle_error CALL :launch_imapsync --justlogin   --ssl1 --tls2 
-CALL :handle_error CALL :launch_imapsync --justlogin   --tls1 --ssl2 
-@ECHO ==== various calls
-CALL :handle_error CALL :launch_imapsync --ssl1 --ssl1_SSL_version SSLv23 --justconnect 
-CALL :handle_error CALL :launch_imapsync --ssl1 --sslargs1 SSL_version=SSLv23 --sslargs1 SSL_verify_mode=0 --justlogin
-CALL :handle_error CALL :launch_imapsync --ssl1 --ssl1_SSL_version SSLv23 --justconnect 
-CALL :handle_error CALL :launch_imapsync --ssl1 --sslargs1 SSL_version=SSLv23 --sslargs1 SSL_verify_mode=0 --justlogin 
-
-CALL :handle_error CALL :launch_imapsync --ssl1 --ssl2 --delete2  
-CALL :handle_error CALL :launch_imapsync --ssl1 --ssl2 --delete2 --folder INBOX 
-CALL :handle_error CALL :launch_imapsync --ssl1 --ssl2 --delete2 --folder INBOX --usecache
-
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@ENDLOCAL
-EXIT /B
-
-
-:handle_error
-@SETLOCAL
-ECHO IN %0 %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-ECHO CMD_RETURN=%CMD_RETURN%
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure calling %* >> LOG_bat\%~nx0.txt
-)
-@ENDLOCAL
-EXIT /B
-
-:handle_bad_success
-@SETLOCAL
-ECHO IN %0 %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-ECHO CMD_RETURN=%CMD_RETURN%
-IF %CMD_RETURN% NEQ 0 (
-        ECHO GOOD BAD END
-) ELSE (
-        ECHO BAD GOOD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO No failure calling %* >> LOG_bat\%~nx0.txt
-)
-@ENDLOCAL
-EXIT /B
-
-
-:launch_imapsync
-@SETLOCAL
-ECHO IN %0 %*
-.\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi %*
-@ENDLOCAL
-@EXIT /B
-
diff --git a/W/test_exe_2.bat b/W/test_exe_2.bat
deleted file mode 100755
index c3e02e2..0000000
--- a/W/test_exe_2.bat
+++ /dev/null
@@ -1,41 +0,0 @@
-@REM
-
-@REM $Id: test_exe_2.bat,v 1.13 2018/04/24 00:13:55 gilles Exp gilles $
-
-@REM cd C:\msys\1.0\home\Admin\imapsync
-cd /D %~dp0
-
-@REM   imapsync.exe --host1 p --user1 toto --passfile1 secret.toto --host2 p --user2 titi --passfile2 secret.titi
-@REM .\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi
-
-@REM .\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-@REM   --foldersizes --usecache --folder "INBOX.[bracket]" --debugcache
-
-@REM .\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-@REM    --dry --nofoldersizes --regextrans2 "s,(.*),\L$1," --justfolders
-
-@REM .\imapsync.exe --testslive
-@REM perl .\imapsync --tests
-
-@REM .\imapsync.exe --testslive --authmech2 XOAUTH2 
-
-@REM .\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata --host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com --passfile2 secret.gilles_gmail --authmech2 XOAUTH2 
-
-@REM should fail 
-@REM .\imapsync.exe  --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi ^
-@REM                 --folder """INBOX.blanc middle""" --f1f2 """INBOX.blanc middle=INBOX.blanc middle""" --dry
-@REM PAUSE
-@REM should work
-@REM .\imapsync.exe --host1 p --user1 tete@est.belle --passfile1 secret.tete  --host2 p --user2 titi --passfile2 secret.titi ^
-@REM                --folder "INBOX.blanc middle" --f1f2 "INBOX.blanc middle=INBOX.blanc middle" --dry
-
-.\imapsync.exe --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi ^
-                --folder "INBOX.Junk.2010" --dry
-
-
-                      
-.\imapsync.exe --simulong 300  --testslive                  
-                      
-                      
-PAUSE
-
diff --git a/W/test_exe_tests.bat b/W/test_exe_tests.bat
deleted file mode 100755
index 0141c8a..0000000
--- a/W/test_exe_tests.bat
+++ /dev/null
@@ -1,38 +0,0 @@
-@REM $Id: test_exe_tests.bat,v 1.4 2019/11/25 12:41:39 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-
-ECHO Currently running through %0 %*
-
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occured during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-REM CALL :handle_error .\imapsync.exe --testsunit tests_always_fail
-CALL :handle_error .\imapsync.exe --tests
-
-@REM @PAUSE
-@ENDLOCAL
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@EXIT /B
-
-
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure running %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-
diff --git a/W/test_exe_testsdebug.bat b/W/test_exe_testsdebug.bat
deleted file mode 100755
index 78dbd84..0000000
--- a/W/test_exe_testsdebug.bat
+++ /dev/null
@@ -1,38 +0,0 @@
-@REM $Id: test_exe_testsdebug.bat,v 1.2 2019/05/28 13:20:08 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-
-ECHO Currently running through %0 %*
-
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occured during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-REM CALL :handle_error .\imapsync.exe --testsunit tests_always_fail
-CALL :handle_error .\imapsync.exe --testsdebug --debug
-
-@REM @PAUSE
-@ENDLOCAL
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@EXIT /B
-
-
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure running %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-
diff --git a/W/test_ipv6.bat b/W/test_ipv6.bat
deleted file mode 100755
index c480dd0..0000000
--- a/W/test_ipv6.bat
+++ /dev/null
@@ -1,12 +0,0 @@
-
-
-
-
-@REM the following command change current directory to the dirname of the current batch pathname
-CD /D %~dp0
-
-perl .\imapsync  --host1 imap.gmail.com      --host2 ks2ipv6.lamiral.info  --justconnect 
-
-PAUSE
-
-.\imapsync.exe   --host1 imap.gmail.com   --host2 ks2ipv6.lamiral.info  --justconnect 
diff --git a/W/test_reg.bat b/W/test_reg.bat
deleted file mode 100755
index 75c6d39..0000000
--- a/W/test_reg.bat
+++ /dev/null
@@ -1,22 +0,0 @@
-
-REM $Id: test_reg.bat,v 1.4 2016/09/28 03:41:38 gilles Exp gilles $
-
-cd /D %~dp0
-
- perl ./imapsync --host1 p --user1 tata --passfile1 secret.tata  --host2 p --user2 titi --passfile2 secret.titi ^
-                --justfolders --folder INBOX --dry ^
-        --regextrans2 "s,(/|^) +,$1,g" ^
-	--regextrans2 "s, +(/|$),$1,g" ^
-	--regextrans2 "s/[\^]/_/g" ^
-	--regextrans2 "s/['\\]/_/g" ^
-	--regextrans2 "s,^&AC8-,-,g"  ^
-	--regextrans2 "s,^&APg-,oe,g"
-
-		
-		
-@REM		--regextrans2 "s/\./_/g"
-
-@REM 		--regextrans2 "s,${h2_prefix}(.*),${h2_prefix}old_mail${h2_sep}$1," ^
-@REM 		--regextrans2 "s,^INBOX$,${h2_prefix}old_mail${h2_sep}INBOX,"
-   
-@REM 		--regextrans2 "s,(.*),old_mail/$1,"
diff --git a/W/test_tail.bat b/W/test_tail.bat
deleted file mode 100755
index 7a9e743..0000000
--- a/W/test_tail.bat
+++ /dev/null
@@ -1,18 +0,0 @@
-
-
-SET
-CD /D %~dp0
-REM perl imapsync --testsunit tests_kill_zero
-REM perl imapsync --testsunit tests_killpid
-
-START perl imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --pidfilelocking --simulong 22 --justlogin
-ping -n 5 127.0.0.1 >nul
-perl imapsync --host1 p --user1 tata --passfile1 secret.tata --host2 p --user2 titi --passfile2 secret.titi --pidfilelocking --tail --justlogin
-
-
-
-
-
-
-
-
diff --git a/W/test_tests.bat b/W/test_tests.bat
deleted file mode 100755
index 388aa85..0000000
--- a/W/test_tests.bat
+++ /dev/null
@@ -1,39 +0,0 @@
-@REM $Id: test_tests.bat,v 1.7 2019/11/25 12:44:43 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-
-ECHO Currently running through %0 %*
-
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occured during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-CALL :handle_error perl .\imapsync --justbanner
-CALL :handle_error perl .\imapsync --testsdebug
-CALL :handle_error perl .\imapsync --tests
-
-@REM @PAUSE
-@ENDLOCAL
-@REM Do a PAUSE if run by double-click, aka, explorer (then ). No PAUSE in a DOS window or via ssh.
-IF %0 EQU "%~dpnx0" IF "%SSH_CLIENT%"=="" PAUSE
-@EXIT /B
-
-
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure running %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-
diff --git a/W/test_testsdebug.bat b/W/test_testsdebug.bat
deleted file mode 100755
index 0a47431..0000000
--- a/W/test_testsdebug.bat
+++ /dev/null
@@ -1,37 +0,0 @@
-@REM $Id: test_testsdebug.bat,v 1.4 2019/11/25 12:44:59 gilles Exp gilles $
-
-@SETLOCAL
-@ECHO OFF
-
-ECHO Currently running through %0 %*
-
-CD /D %~dp0
-
-REM Remove the error file because its existence means an error occured during this script execution
-IF EXIST LOG_bat\%~nx0.txt DEL LOG_bat\%~nx0.txt
-
-@REM CALL :handle_error perl .\imapsync --justbanner
-CALL :handle_error perl .\imapsync --testsdebug --debug
-@REM CALL :handle_error perl .\imapsync --tests
-
-@REM @PAUSE
-@ENDLOCAL
-@EXIT /B
-
-
-:handle_error
-SETLOCAL
-ECHO IN %0 with parameters %*
-%*
-SET CMD_RETURN=%ERRORLEVEL%
-
-IF %CMD_RETURN% EQU 0 (
-        ECHO GOOD END
-) ELSE (
-        ECHO BAD END
-        IF NOT EXIST LOG_bat MKDIR LOG_bat
-        ECHO Failure running %* >> LOG_bat\%~nx0.txt
-)
-ENDLOCAL
-EXIT /B
-
diff --git a/W/test_xoauth2.bat b/W/test_xoauth2.bat
deleted file mode 100755
index 66088cc..0000000
--- a/W/test_xoauth2.bat
+++ /dev/null
@@ -1,22 +0,0 @@
-
-@REM $Id: test_xoauth2.bat,v 1.2 2016/08/19 14:07:40 gilles Exp gilles $
-@REM
-
-cd /D %~dp0
-
-@REM @ECHO off
-@REM .\imapsync.exe --justbanner
-@REM @PAUSE
-@REM .\imapsync.exe --tests
-@REM @PAUSE
-@REM .\imapsync.exe --testslive
-@REM @PAUSE
-
-@REM SET PERL_LWP_ENV_PROXY=1
-SET https_proxy=connect://localhost:3128/
-ECHO %https_proxy%
-
-@REM EXIT
-
-perl .\imapsync --host1 imap.gmail.com --ssl1 --user1 gilles.lamiral@gmail.com --passfile1 secret.xoauth2  --host2 imap.gmail.com --ssl2 --user2 gilles.lamiral@gmail.com  --passfile2 secret.xoauth2 --justfoldersizes --nofoldersizes --authmech1 XOAUTH2 --authmech2 XOAUTH2 --debug 
-
diff --git a/W/tools/IMAPSyncInputs.bat b/W/tools/IMAPSyncInputs.bat
deleted file mode 100755
index 914a093..0000000
--- a/W/tools/IMAPSyncInputs.bat
+++ /dev/null
@@ -1,183 +0,0 @@
-@echo off
-
-@REM Written by Liam Patrick <liam.patrick@flonix.co.uk>
-@REM imapsync example batch for Windows users
-@REM lines beginning with @REM are just comments 
-
-@REM Double quotes are necessary if a value contain one or more blanks.
-
-@REM value for --host1 is the IMAP source server hostname or IP address
-@REM value for --user1 is the IMAP source user login
-@REM value for --password1 is the IMAP source user password
-
-@REM value for --host2 is the IMAP destination server hostname or IP address
-@REM value for --user2 is the IMAP destination user login
-@REM value for --password2 is the IMAP destination user password
-
-@REM Character ^ at the end of the first line is essential and means
-@REM "this command continues on the next line". You can add other lines
-@REM but don't forget ^ character lasting each line, except the last one.
-
-
-@REM ------------------------------------------------------------------------------------
-
-:start
-echo.
-echo  This will run IMAPSync letting you Migrate mail to another account on
-echo  another server.
-echo.
-echo  The information to be entered is as follows.
-echo.
-echo  -Host1 -User1 -Password1 -require ssl for 1?
-echo  -Host2 -User2 -Password2 -require ssl for 2?
-echo.
-pause
-
-:vari1
-cls
-echo ---------------------------------------------
-echo.
-SET /P ANSWER=  enter host1? 
-echo.
-
-SET HOST1=%ANSWER%
-
-SET /P ANSWER=  enter user1? 
-echo.
-
-SET USER1=%ANSWER%
-
-SET /P ANSWER=  enter password1? 
-echo.
-
-SET PASS1=%ANSWER%
-
-
-:ssl1
-SET /P ANSWER=  enable ssl1? (y/n)
-echo.
-if /i {%ANSWER%}=={y} (goto :ssl11)
-if /i {%ANSWER%}=={n} (goto :ssl12)
-(goto :ssl1)
-
-
-:ssl11
-SET SSL1=-ssl1
-echo ssl Enabled
-echo.
-(goto :ask1)
-
-
-:ssl12
-SET SSL1=
-echo ssl Disabled
-echo.
-(goto :ask1)
-
-
-:ask1
-cls
-SET /P ANSWER= Check " %HOST1% %USER1% %PASS1% %SSL1% " Correct details? (y/n)
-
-if /i {%ANSWER%}=={y} (goto :vari2)
-if /i {%ANSWER%}=={n} (goto :vari1)
-(goto :ask1)
-
-@REM --------------------------------------------------------------------------------------
-
-:vari2
-cls
-echo ---------------------------------------------
-echo.
-SET /P ANSWER=  enter host2? 
-echo.
-
-SET HOST2=%ANSWER%
-
-SET /P ANSWER=  enter user2? 
-echo.
-
-SET USER2=%ANSWER%
-
-SET /P ANSWER=  enter password2? 
-echo.
-
-SET PASS2=%ANSWER%
-
-
-:ssl2
-SET /P ANSWER=  enable ssl2? (y/n)
-echo.
-if /i {%ANSWER%}=={y} (goto :ssl21)
-if /i {%ANSWER%}=={n} (goto :ssl22)
-(goto :ssl2)
-
-
-:ssl21
-SET SSL2=-ssl2
-echo ssl Enabled
-echo.
-(goto :ask2)
-
-
-:ssl22
-SET SSL2=
-echo ssl Disabled
-echo.
-(goto :ask2)
-
-
-:ask2
-cls
-SET /P ANSWER= Check " -%HOST2% -%USER2% -%PASS2% %SSL2% " Correct details? (y/n)
-
-if /i {%ANSWER%}=={y} (goto :run)
-if /i {%ANSWER%}=={n} (goto :vari2)
-(goto :ask2)
-
-@REM ------------------------------------------------------------------------------------
-
-:run
-cls
-echo ---------------------------------------------------------------------------
-echo.
-echo  Now that all the data has been entered we will run IMAPSync
-echo.
-echo  This is the final step. Please read the information carefully
-echo  to avoid issues with migration.
-echo.
-echo  If any of the details are incorrect please exit and re-enter your
-echo  details to run correctly
-echo.
-echo  the following is what will be saved to a file which can later be run or edited
-echo.
-echo  .\imapsync.exe --host1 %HOST1% --user1 %USER1% --password1 "%PASS1%" 
-echo                 --host2 %HOST2% --user2 %USER2% --password2 "%PASS2%" %SSL1% %SSL2%
-echo.
-echo  To exit without running, please enter n. to Save settings to a file, please enter s
-echo.
-SET /P ANSWER= (n/s)
-
-if /i {%ANSWER%}=={n} (goto :end)
-if /i {%ANSWER%}=={s} (goto :savefinal)
-(goto :run)
-
-:runfinal
-.\imapsync.exe --host1 %HOST1% --user1 %USER1% --password1 "%PASS1%" ^
-               --host2 %HOST2% --user2 %USER2% --password2 "%PASS2%" %SSL1% %SSL2% --regextrans2 "s/\\/./g" --maxsize 250000000 --maxlinelength 9900 
-(goto :end)
-
-:savefinal
-
-@echo .\imapsync.exe --host1 %HOST1% --user1 %USER1% --password1 "%PASS1%" ^
---host2 %HOST2% --user2 %USER2% --password2 "%PASS2%" %SSL1% %SSL2% --regextrans2 "s/\\/./g" --maxsize 250000000 --maxlinelength 9900 > ".\%USER1%.bat"
-echo.
-echo  File Saved in .\%USER1%.bat
-echo.
-(goto :end)
-
-:end
-
-echo.
-@PAUSE
-
diff --git a/W/tools/addFromIfMissing b/W/tools/addFromIfMissing
deleted file mode 100755
index 65d65a8..0000000
--- a/W/tools/addFromIfMissing
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/ruby
-
-# $Id: addFromIfMissing,v 1.6 2018/08/31 11:21:54 gilles Exp gilles $
-
-# Credits: Emiliano Heyns
-
-# https://github.com/imapsync/imapsync/issues/54
-# https://github.com/mikel/mail
-
-# Test example in command line:
-# { echo  "Date: Fri, 31 Aug 2018 12:58:59 +0000"  ; echo ;  echo "Hello World!" ; } | ./addFromIfMissing
-
-# Add mail gem with the command:
-#   gem install mail
-
-require 'mail'
-
-data = STDIN.read
-
-exit(0) if data.strip == ''
-
-message = Mail.read_from_string(data)
-if message.from && message.from.length > 0
-  puts data
-else
-  message.from = 'emiliano.heyns@han.nl'
-  puts message.to_s
-end
-
diff --git a/W/tools/addFromIfMissing2 b/W/tools/addFromIfMissing2
deleted file mode 100755
index c2097c5..0000000
--- a/W/tools/addFromIfMissing2
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/usr/bin/env python
-import email
-import sys
-
-msg = email.message_from_string(sys.stdin.read())
-if msg['From'] is None:
-  msg['From'] = sys.argv[1]
-print(msg)
-
diff --git a/W/tools/analyse-ssl.txt b/W/tools/analyse-ssl.txt
deleted file mode 100755
index 1974192..0000000
--- a/W/tools/analyse-ssl.txt
+++ /dev/null
@@ -1,874 +0,0 @@
-#!/usr/bin/perl
-#
-# Copyright 2013..2015 Steffen Ullrich <sullr@cpan.org>
-#   This program is free software; you can redistribute it and/or
-#   modify it under the same terms as Perl itself.
-
-use strict;
-use warnings;
-use Socket;
-use IO::Socket::SSL 1.984;
-use IO::Socket::SSL::Utils;
-use Getopt::Long qw(:config posix_default bundling);
-use Socket qw(AF_INET unpack_sockaddr_in inet_ntoa);
-use Data::Dumper;
-
-my ($can_ipv6,$ioclass);
-BEGIN {
-    $can_ipv6 = IO::Socket::SSL->can_ipv6;
-    if ($can_ipv6) {
-	if (defined(&Socket::getaddrinfo)
-	    && defined(&Socket::inet_ntop)
-	    && defined(&Socket::unpack_sockaddr_in6)
-	    && defined(&Socket::AF_INET6)) {
-	    Socket->import(qw(AF_INET6 inet_ntop unpack_sockaddr_in6));
-	} elsif ( eval { require Socket6 }) {
-	    Socket6->import(qw(AF_INET6 inet_ntop unpack_sockaddr_in6));
-	} else {
-	    $can_ipv6 = undef;
-	}
-    }
-    $ioclass = $can_ipv6 || 'IO::Socket::INET';
-}
-
-my $can_ocsp = IO::Socket::SSL->can_ocsp;
-my $ocsp_cache = $can_ocsp && IO::Socket::SSL::OCSP_Cache->new;
-
-my %starttls = (
-    ''             => [ 443,undef, 'http' ],
-    'smtp'         => [ 25, \&smtp_starttls, 'smtp' ],
-    'http_proxy'   => [ 443, \&http_connect,'http' ],
-    'http_upgrade' => [ 80, \&http_upgrade,'http' ],
-    'imap'         => [ 143, \&imap_starttls,'imap' ],
-    'pop'          => [ 110, \&pop_stls,'pop3' ],
-    'ftp'          => [ 21, \&ftp_auth,'ftp' ],
-    'postgresql'   => [ 5432, \&postgresql_init,'default' ],
-);
-
-my $verbose = 0;
-my $timeout = 10;
-my ($stls,$stls_arg);
-my $capath;
-my $all_ciphers;
-my $all_ip = 1;
-my $show_chain = 1;
-my $dump_chain;
-my %conf;
-my $max_cipher = 'HIGH:ALL';
-my $default_cipher = '';
-GetOptions(
-    'h|help' => sub { usage() },
-    'v|verbose:1' => \$verbose,
-    'd|debug:1' => \$IO::Socket::SSL::DEBUG,
-    'T|timeout=i' => \$timeout,
-    'CApath=s' => \$capath,
-    'show-chain!' => \$show_chain,
-    'dump-chain' => \$dump_chain,
-    'all-ciphers' => \$all_ciphers,
-    'all-ip!' => \$all_ip,
-    'starttls=s' => sub {
-	($stls,$stls_arg) = $_[1] =~m{^(\w+)(?::(.*))?$};
-	usage("invalid starttls $stls") if ! $starttls{$stls||'whatever'};
-    },
-    'cert=s' => \$conf{SSL_cert_file},
-    'key=s'  => \$conf{SSL_key_file},
-    'name=s' => \$conf{SSL_hostname},
-    'cipher=s' => \$default_cipher,
-    'max-cipher=s' => \$max_cipher,
-) or usage("bad usage");
-@ARGV or usage("no hosts given");
-my %default_ca =
-    ! $capath ? () :
-    -d $capath ? ( SSL_ca_path => $capath, SSL_ca_file => '' ) :
-    -f $capath ? ( SSL_ca_file => $capath, SSL_ca_path => '' ) :
-    die "no such file or dir: $capath";
-my $peer_certificates = IO::Socket::SSL->can('peer_certificates')
-    || sub {};
-
-$conf{SSL_verifycn_name} ||= $conf{SSL_hostname} if $conf{SSL_hostname};
-if ($conf{SSL_cert_file}) {
-    $conf{SSL_key_file} ||= $conf{SSL_cert_file};
-    $conf{SSL_use_cert} = 1;
-}
-
-
-sub usage {
-    print STDERR "ERROR: @_\n" if @_;
-    print STDERR <<USAGE;
-
-Analyze SSL connectivity for problems.
-Usage: $0 [options] (host|host:port)+
-Options:
-  -h|--help              - this screen
-  -d|--debug level       - IO::Socket::SSL/Net::SSLeay debugging
-
-  # how to connect
-  --starttls proto[:arg] - start plain and upgrade to SSL with starttls protocol
-			   (imap,smtp,http_upgrade,http_proxy,pop,ftp,postgresql)
-  -T|--timeout T         - use timeout (default 10)
-
-  # SSL specific settings
-  --CApath file|dir      - use given dir|file instead of system default CA store
-  --cert cert            - use given certificate for client authentication
-  --key  key             - use given key for client authentication (default: cert)
-  --name name            - use given name as server name in verification and SNI
-			   instead of host (useful if target is given as IP)
-  --cipher set           - default cipher set to try, default OpenSSL default
-  --max-cipher set       - maximum cipher set to try, default HIGH:ALL.
-			   Some servers or middleboxes have problems with this set
-			   so it can be reduced.
-
-  # what to test and show
-  -v|--verbose level     - verbose output
-  --all-ciphers          - find out all supported ciphers
-  --all-ip               - check if all IP for host get same certificates, cipher...
-                           This is the default. Use --no-all-ip to disable.
-  --show-chain           - show certificate chain. This is the default. To disable
-                           use --no-show-chain.
-  --dump_chain           - dump certificate chain, e.g. all certificates as PEM
-
-Examples:
-
-  $0 --show-chain --all-ciphers -v3 www.live.com:443
-  $0 --starttls http_proxy:proxy_host:proxy_port www.live.com:443
-  $0 --starttls imap mail.gmx.de
-
-USAGE
-    exit(2);
-}
-
-
-
-my @tests;
-for my $host (@ARGV) {
-    my ($ip,$port);
-    $host =~m{^(?:\[(\w\.\-\:+)\]|([\w\.\-]+)):(\w+)$|^([\w\.\-:]+)$}
-	or die "invalid dst: $host";
-    $host = $1||$2||$4;
-    my $st = $starttls{$stls ||''};
-    $port = $3 || $st->[0] || 443;
-    if ( $host =~m{:|^[\d\.]+$} ) {
-	$ip = $host;
-	$host = undef;
-    }
-    push @tests, [ $host||$ip,$port,$conf{SSL_hostname}||$host,$st->[1],$st->[2] || 'default' ];
-}
-
-
-for my $test (@tests) {
-    my ($host,$port,$name,$stls_sub,$scheme) = @$test;
-
-    my @ip;
-    if (defined &Socket::getaddrinfo) {
-	my ($err,@res) = Socket::getaddrinfo($host,$port);
-	for(@res) {
-	    push @ip,_addr2ip($_->{addr},$_->{family});
-	}
-    } elsif (defined &Socket6::getaddrinfo) {
-	my @res = Socket6::getaddrinfo($host,$port);
-	while (@res>=5) {
-	    my ($family,$addr) = (splice(@res,0,5))[0,3];
-	    push @ip,_addr2ip($addr,$family);
-	}
-    } else {
-	my $ip = Socket::inet_aton($host);
-	push @ip, $ip if $ip;
-    }
-    if (!@ip) {
-	warn "Found no IP address for $host\n";
-	next;
-    }
-
-    if (@ip>1) {
-	my (%have,@ip4,@ip6);
-	for(@ip) {
-	    if ($have{$_}++) {
-		next;
-	    } elsif (m{:}) {
-		push @ip6,$_
-	    } else {
-		push @ip4,$_
-	    }
-	}
-	# Prefer IPv4 even if host preference is different
-	@ip = (@ip4,@ip6);
-    }
-    VERBOSE(1,"checking host=$host(@ip) port=$port".
-	($stls ? " starttls=$stls":""));
-
-    my @problems;
-
-    my $tcp_connect = sub {
-	my $use_ip = shift;
-	my $tries = 1;
-
-	TRY_IP:
-	my ($cl,$error);
-	my %ioargs = (
-	    PeerAddr => $use_ip || $ip[0],
-	    PeerPort => $port,
-	    Timeout => $timeout,
-	);
-	for(1..$tries) {
-	    if ($stls_sub) {
-		last if $cl = eval { $stls_sub->(\%ioargs,$stls_arg) };
-		$error = $@ || 'starttls error';
-		$cl = undef;
-	    } elsif ( $cl = $ioclass->new(%ioargs)) {
-		last;
-	    } else {
-		$error = "tcp connect: $!";
-	    }
-	}
-	return $cl if $cl;
-	$error ||= "unknown error";
-	die $error if $use_ip; # no retry
-
-	# retry with next IP
-	my $failed = shift(@ip);
-	chomp($error);
-	push @problems, "failed tcp connect to $failed: $error";
-	if (@ip) {
-	    VERBOSE(1,"$failed failed permanently '$error', trying next");
-	    goto TRY_IP;
-	}
-	VERBOSE(1,"$failed failed permanently '$error', no more IP to try");
-	die $error."\n";
-    };
-
-    my @handshakes;
-
-    # basic connects without verification or any TLS extensions (OCSP)
-    # find out usable version and ciphers. Because some hosts (like cloudflare)
-    # behave differently if SNI is used we try to use it and only fall back if
-    # it fails.
-    my ($version,$cipher,$good_conf);
-    my $sni = $name;
-    my $try_sslversion = sub {
-	my $v = shift;
-	my (@protocols,@err);
-	for my $ciphers ( $default_cipher,$max_cipher ) {
-	    my $cl = &$tcp_connect;
-	    if ( IO::Socket::SSL->start_SSL($cl,
-		%conf,
-		SSL_version => $v,
-		SSL_verify_mode => 0,
-		SSL_hostname => $sni,
-		SSL_cipher_list => $ciphers,
-	    )) {
-		$version = $cl->get_sslversion();
-		$cipher = $cl->get_cipher();
-		if (!@protocols) {
-		    push @protocols, ($version, $cipher);
-		} elsif ($protocols[-1] ne $cipher) {
-		    push @protocols, $cipher;
-		}
-		$good_conf ||= { 
-		    %conf, 
-		    SSL_version => $v, 
-		    SSL_hostname => $sni, 
-		    SSL_cipher_list => $ciphers 
-		};
-		VERBOSE(2,"version $v no verification, ciphers=$ciphers -> $version,$cipher");
-	    } else {
-		VERBOSE(2,"version $v, no verification, ciphers=$ciphers -> FAIL! $SSL_ERROR");
-		push @err, $SSL_ERROR if ! @err || $err[-1] ne $SSL_ERROR;
-	    }
-	}
-	return (\@protocols,\@err);
-    };
-
-    my $use_version;
-    my $best_version;
-    TRY_PROTOCOLS:
-    for(
-	# most compatible handshake - should better be supported by all
-	'SSLv23',
-	# version specific handshakes - some hosts fail instead of downgrading
-	defined &Net::SSLeay::CTX_tlsv1_2_new ? ('TLSv1_2'):(),
-	defined &Net::SSLeay::CTX_tlsv1_1_new ? ('TLSv1_1'):(),
-	defined &Net::SSLeay::CTX_tlsv1_new   ? ('TLSv1')  :(),
-	defined &Net::SSLeay::CTX_v3_new      ? ('SSLv3')  :(),
-    ) {
-	my ($protocols,$err) = $try_sslversion->($_);
-	if (@$protocols) {
-	    $use_version ||= $_;
-	    $best_version ||= $protocols->[0];
-	    push @handshakes, [ $_, @$protocols ];
-	} else {
-	    push @handshakes, [ $_,\"@$err" ];
-	}
-    }
-
-    if ($best_version) {
-	VERBOSE(1,"successful connect with $best_version, cipher=$cipher, sni=$sni and no other TLS extensions");
-    } elsif ($sni) {
-	$sni = '';
-	# retry without SNI
-	goto TRY_PROTOCOLS;
-    } else {
-	die "$host failed basic SSL connect: $SSL_ERROR\n";
-    }
-
-    my $sni_status;
-    my $need_sni;
-    if (!$sni) {
-	if ($version =~m{^TLS}) {
-	    VERBOSE(1,"SNI FAIL!");
-	    push @problems, "using SNI (default)";
-	    $sni_status = 'FAIL';
-	}
-    } else {
-	VERBOSE(1,"SNI success");
-	$sni_status = 'ok';
-
-	# check if it works without SNI
-	my $cl = &$tcp_connect;
-	my $fail;
-	if (!IO::Socket::SSL->start_SSL($cl,
-	    %$good_conf, 
-	    SSL_hostname => '', 
-	    SSL_verifycn_name => $conf{SSL_hostname}||$host, 
-	    SSL_verify_callback => sub {
-		my ($ok) = @_;
-		$fail++ if ! $ok;
-		return 1;
-	    }
-	)) {
-	    VERBOSE(1,"failed without SNI: $SSL_ERROR");
-	    $sni_status = "SSL upgrade fails without SNI";
-	    $need_sni = 1;
-	}
-	if ($fail) {
-	    VERBOSE(1,"certificate verify failed without SNI");
-	    $sni_status = "certificate verify fails without SNI";
-	}
-    }
-
-
-    my $ssl_upgrade_get_chain = sub {
-	my ($cl,%conf) = @_;
-	my (%verify_chain,@chain,@problems,$fail);
-	my $chain_failed;
-	if ( IO::Socket::SSL->start_SSL($cl, %conf,
-	    SSL_verifycn_scheme => 'none',
-	    SSL_verify_callback => sub {
-		my ($valid,$store,$str,$err,$cert,$depth) = @_;
-		$chain_failed = 1 if ! $valid;
-
-		# Since this only a temporary reference we should convert it
-		# directly to PEM.
-
-		my ($subject,$bits);
-		$subject = Net::SSLeay::X509_NAME_oneline(
-		    Net::SSLeay::X509_get_subject_name($cert));
-		if (!$depth) {
-		    my @san = $cl->peer_certificate('subjectAltNames');
-		    for( my $i=0;$i<@san;$i++) {
-			$san[$i] = 'DNS' if $san[$i] == 2;
-			$san[$i] .= ":".splice(@san,$i+1,1);
-		    }
-		    $subject .= " SAN=".join(",",@san) if @san;
-		}
-		if (my $pkey = Net::SSLeay::X509_get_pubkey($cert)) {
-		    $bits = eval { Net::SSLeay::EVP_PKEY_bits($pkey) };
-		    Net::SSLeay::EVP_PKEY_free($pkey);
-		}
-		my $pem = PEM_cert2string($cert);
-		$verify_chain{$pem} = [
-		    $bits||'???',
-		    $subject,
-		    join('|', grep { $_ } @{ CERT_asHash($cert)->{ocsp_uri} || []}),
-		    $pem,
-		    $depth,
-		    '-'
-		];
-		return 1;
-	    },
-	)) {
-	    for my $cert ( $peer_certificates->($cl) ) {
-		my ($subject,$bits);
-		$subject = Net::SSLeay::X509_NAME_oneline(
-		    Net::SSLeay::X509_get_subject_name($cert));
-		if ( !@chain) {
-		    my @san = $cl->peer_certificate('subjectAltNames');
-		    for( my $i=0;$i<@san;$i++) {
-			$san[$i] = 'DNS' if $san[$i] == 2;
-			$san[$i] .= ":".splice(@san,$i+1,1);
-		    }
-		    $subject .= " SAN=".join(",",@san) if @san;
-		}
-		if (my $pkey = Net::SSLeay::X509_get_pubkey($cert)) {
-		    $bits = eval { Net::SSLeay::EVP_PKEY_bits($pkey) };
-		    Net::SSLeay::EVP_PKEY_free($pkey);
-		}
-		my $pem = PEM_cert2string($cert);
-		my $vc = delete $verify_chain{$pem};
-		if (!$vc) {
-		    push @problems, "server sent unused chain certificate ".
-			"'$subject'";
-		}
-		push @chain,[
-		    $bits||'???',
-		    $subject,
-		    join('|', grep { $_ } @{ CERT_asHash($cert)->{ocsp_uri} || []}),
-		    $pem,
-		    $vc ? $vc->[4] : '-', # depth
-		    $#chain+1,
-		],
-	    }
-	    for (sort { $a->[4] <=> $b->[4] } values %verify_chain) {
-		push @chain,$_;
-	    }
-	    if ($chain_failed) {
-		$fail = "validation of certificate chain failed";
-	    } elsif (!$cl->verify_hostname($name,$scheme)) {
-		$fail = "validation of hostname failed";
-	    }
-	} else {
-	    $fail = $SSL_ERROR || 'unknown handshake error';
-	}
-	return (@chain ? \@chain : undef,\@problems,$fail);
-    };
-
-
-    # get chain info
-    my (@cert_chain,@cert_chain_nosni);
-    if ($show_chain || $dump_chain) {
-	for(
-	    [ $good_conf, \@cert_chain ],
-	    ( $need_sni || ! $good_conf->{SSL_hostname}) ? ()
-		# cloudflare has different cipher list without SNI, so don't
-		# enforce the existing one
-		: ([ { %$good_conf, SSL_cipher_list => $default_cipher || undef, SSL_hostname => '' }, \@cert_chain_nosni ])
-	) {
-	    my ($conf,$chain) = @$_;
-	    my $cl = &$tcp_connect;
-	    my ($ch,$p) = $cl ? $ssl_upgrade_get_chain->($cl,%$conf) : ();
-	    push @problems,@$p;
-	    if ($ch) {
-		@$chain = @$ch;
-	    } else {
-		die "failed to connect with previously successful config: $SSL_ERROR";
-	    }
-	}
-	# if same chain ignore nosni
-	if (@cert_chain_nosni and 
-	    @cert_chain_nosni == @cert_chain and
-	    ! grep { $cert_chain_nosni[$_][3] ne $cert_chain[$_][3] } (0..$#cert_chain_nosni)) {
-	    VERBOSE(2,"same certificate chain in without SNI");
-	    @cert_chain_nosni = ();
-	}
-    }
-
-    # check verification against given/builtin CA w/o OCSP
-    my $verify_status;
-    my $cl = &$tcp_connect;
-    if ( IO::Socket::SSL->start_SSL($cl, %$good_conf,
-	SSL_verify_mode => SSL_VERIFY_PEER,
-	SSL_ocsp_mode => SSL_OCSP_NO_STAPLE,
-	SSL_verifycn_scheme => 'none',
-	%default_ca
-    )) {
-	%conf = ( %$good_conf, SSL_verify_mode => SSL_VERIFY_PEER, %default_ca );
-	if (!$cl->peer_certificate) {
-	    VERBOSE(1,"no peer certificate (anonymous authentication)");
-	    %conf = %$good_conf;
-	    $verify_status = 'anon';
-	} elsif ( $cl->verify_hostname( $name,$scheme )) {
-	    VERBOSE(1,"certificate verify success");
-	    $verify_status = 'ok';
-	    $verify_status .= " (needs SNI)" if $sni_status =~ /fails without/;
-	    %conf = %$good_conf = ( %conf,
-		SSL_verifycn_scheme => $scheme,
-		SSL_verifycn_name => $name,
-	    );
-	} else {
-	    my @san = $cl->peer_certificate('subjectAltNames');
-	    for( my $i=0;$i<@san;$i++) {
-		$san[$i] = 'DNS' if $san[$i] == 2;
-		$san[$i] .= ":".splice(@san,$i+1,1);
-	    }
-	    VERBOSE(1,"certificate verify - name does not match:".
-		" subject=".$cl->peer_certificate('subject').
-		" SAN=".join(",",@san)
-	    );
-	    $verify_status = 'name-mismatch';
-	    %conf = %$good_conf = ( %conf, SSL_verifycn_scheme => 'none');
-	}
-
-    } else {
-	VERBOSE(1,"certificate verify FAIL!");
-	$verify_status = "FAIL: $SSL_ERROR";
-	push @problems, "using certificate verification (default) -> $SSL_ERROR";
-    }
-
-    # check with OCSP stapling
-    my $ocsp_staple;
-    if ( $can_ocsp && $verify_status eq 'ok' ) {
-	my $cl = &$tcp_connect;
-	$conf{SSL_ocsp_cache} = $ocsp_cache;
-	if ( IO::Socket::SSL->start_SSL($cl, %conf)) {
-	    if ( ${*$cl}{_SSL_ocsp_verify} ) {
-		$ocsp_staple = 'got stapled response',
-	    } else {
-		$ocsp_staple = 'no stapled response',
-	    }
-	    VERBOSE(1,"OCSP stapling: $ocsp_staple");
-	} else {
-	    $ocsp_staple = "FAIL: $SSL_ERROR";
-	    $conf{SSL_ocsp_mode} = SSL_OCSP_NO_STAPLE;
-	    VERBOSE(1,"access with OCSP stapling FAIL!");
-	    push @problems, "using OCSP stapling (default) -> $SSL_ERROR";
-	}
-    }
-
-    my $ocsp_status;
-    if ( $can_ocsp && $verify_status eq 'ok' ) {
-	my $cl = &$tcp_connect;
-	$conf{SSL_ocsp_mode} |= SSL_OCSP_FULL_CHAIN;
-	if ( ! IO::Socket::SSL->start_SSL($cl, %conf)) {
-	    die sprintf("failed with SSL_ocsp_mode=%b, even though it succeeded with default mode",
-		$conf{SSL_ocsp_mode});
-	}
-	my $ocsp_resolver = $cl->ocsp_resolver;
-	my %todo = $ocsp_resolver->requests;
-	while (my ($uri,$req) = each %todo) {
-	    VERBOSE(3,"need to send %d bytes OCSP request to %s",length($req),$uri);
-	}
-	my $errors = $ocsp_resolver->resolve_blocking();
-	die "resolver not finished " if ! defined $errors;
-	if ( ! $errors ) {
-	    VERBOSE(1,"all certificates verified");
-	    $ocsp_status = "good";
-	} else {
-	    VERBOSE(1,"failed to verify certicates: $errors");
-	    $ocsp_status = "FAIL: $errors";
-	}
-	if (my $soft_error = $ocsp_resolver->soft_error) {
-	    $ocsp_status .= " (soft error: $soft_error)"
-	}
-    }
-
-    # Check if all IP return the same cipher, version and certificates
-    my %all_ip_diff;
-    my %cert_chain_alternatives;
-    if ($all_ip and @ip>1) {
-	my ($cipher,$protocol,@chain,$result);
-	for my $ip (@ip) {
-	    my $cl = eval { $tcp_connect->($ip) };
-	    if (!$cl) {
-		VERBOSE(1,"failed tcp connect to IP $ip: $@");
-		push @problems, "failed tcp connect to IP $ip: $@";
-		next;
-	    }
-	    my ($ch,$p,$res) = $ssl_upgrade_get_chain->($cl,%conf);
-	    $res ||= 'success';
-	    if (!$ch) {
-		VERBOSE(1,"failed SSL upgrade on IP $ip");
-		push @problems, "failed SSL upgrade on IP $ip";
-		next;
-	    }
-	    if (!@chain) {
-		# baseline
-		$result = $res;
-		@chain = @$ch;
-		$cipher = $cl->get_cipher;
-		$protocol = $cl->get_sslversion;
-		next;
-	    }
-	    my @diff;
-	    push @diff, "result: $res vs. $result" if $res ne $result;
-	    push @diff, "cipher:   ".($cl->get_cipher)." vs. $cipher"
-		if $cipher ne $cl->get_cipher;
-	    push @diff, "protocol: ".($cl->get_sslversion)." vs. $protocol"
-		if $protocol ne $cl->get_sslversion;
-	    if (Dumper(\@chain) ne Dumper($ch)) {
-		my $alt = $cert_chain_alternatives{ Dumper($ch) } ||= [ $ch ];
-		push @$alt,$ip;
-		my @ch0 = @chain;
-		my @ch1 = @$ch;
-		for(my $i=0;1;$i++) {
-		    my $ch0 = shift(@ch0);
-		    my $ch1 = shift(@ch1);
-		    last if ! $ch0 && !$ch1;
-		    if (!$ch0) {
-			push @diff, "certificate #$i is additional - $ch1->[1]";
-		    } elsif (!$ch1) {
-			push @diff, "certificate #$i is missing - $ch0->[1]";
-		    } elsif ($ch0->[3] ne $ch1->[3]) {
-			push @diff, "certificate #$i differs";
-		    }
-		}
-	    }
-	    if (@diff) {
-		VERBOSE(1,"different results for SSL upgrade on $ip than on $ip[0]");
-		my $alt = $all_ip_diff{ Dumper(\@diff) } ||= [ \@diff ];
-		push @$alt,$ip;
-	    } else {
-		VERBOSE(1,"same results for SSL upgrade on $ip compared to $ip[0]");
-	    }
-	}
-    }
-
-    # check out all supported ciphers
-    my @ciphers;
-    {
-	my $c = "$max_cipher:eNULL";
-	while ($all_ciphers || @ciphers<2 ) {
-	    my $cl = &$tcp_connect;
-	    if ( IO::Socket::SSL->start_SSL($cl,
-		%conf,
-		SSL_verify_mode => 0,
-		SSL_version => $conf{SSL_version},
-		SSL_cipher_list => $c,
-	    )) {
-		push @ciphers, [ $cl->get_sslversion, $cl->get_cipher ];
-		$c .= ":!".$ciphers[-1][1];
-		VERBOSE(2,"connect with version %s cipher %s",
-		    @{$ciphers[-1]});
-	    } else {
-		VERBOSE(3,"handshake failed with $c: $SSL_ERROR");
-		last;
-	    }
-	}
-    }
-
-    # try to detect if the server accepts our cipher order by trying two
-    # ciphers in different order
-    my $server_cipher_order;
-    if (@ciphers>=2) {
-	my %used_cipher;
-	for( "$ciphers[0][1]:$ciphers[1][1]:$max_cipher","$ciphers[1][1]:$ciphers[0][1]:$max_cipher" ) {
-	    my $cl = &$tcp_connect;
-	    if ( IO::Socket::SSL->start_SSL($cl,
-		%conf,
-		SSL_version => $use_version,
-		SSL_verify_mode => 0,
-		SSL_cipher_list => $_,
-	    )) {
-		VERBOSE(3,"tried with cipher list '$_' -> ".$cl->get_cipher);
-		$used_cipher{$cl->get_cipher}++;
-	    } else {
-		warn "failed to SSL handshake with SSL_cipher_list=$_: $SSL_ERROR";
-	    }
-	}
-	if (keys(%used_cipher) == 2) {
-	    VERBOSE(2,"client decides cipher order");
-	    $server_cipher_order = 0;
-	} elsif ( (values(%used_cipher))[0] == 2 ) {
-	    VERBOSE(2,"server decides cipher order");
-	    $server_cipher_order = 1;
-	}
-    }
-
-
-    # summary
-    print "-- $host port $port".($stls? " starttls $stls":"")."\n";
-    print " ! $_\n" for(@problems);
-    print " * maximum SSL version  : $best_version ($use_version)\n";
-    print " * supported SSL versions with handshake used and preferred cipher(s):\n";
-    printf "   * %-9s %-9s %s\n",qw(handshake protocols ciphers);
-    for(@handshakes) {
-	printf("   * %-9s %-9s %s\n",
-	    $_->[0],
-	    ref($_->[1])
-		? ("FAILED: ${$_->[1]}","")
-		: ($_->[1], join(" ",@{$_}[2..$#$_]))
-	);
-    }
-    print " * cipher order by      : ".(
-	! defined $server_cipher_order ? "unknown\n" :
-	$server_cipher_order ? "server\n" : "client\n"
-    );
-    print " * SNI supported        : $sni_status\n" if $sni_status;
-    print " * certificate verified : $verify_status\n";
-    for(sort values %all_ip_diff) {
-	my ($diff,@ip) = @$_;
-	print " * different results on @ip\n";
-	print "   * $_\n" for(@$diff);
-    }
-    if ($show_chain) {
-	print " * chain on $ip[0]\n";
-	for(my $i=0;$i<@cert_chain;$i++) {
-	    my $c = $cert_chain[$i];
-	    print "   * [$c->[5]/$c->[4]] bits=$c->[0], ocsp_uri=$c->[2], $c->[1]\n"
-	}
-	if (@cert_chain_nosni) {
-	    print " * chain on $ip[0] without SNI\n";
-	    for(my $i=0;$i<@cert_chain_nosni;$i++) {
-		my $c = $cert_chain_nosni[$i];
-		print "   * [$c->[5]/$c->[4]] bits=$c->[0], ocsp_uri=$c->[2], $c->[1]\n"
-	    }
-	}
-	for (sort values %cert_chain_alternatives) {
-	    my ($chain,@ip) = @$_;
-	    print " * chain on @ip\n";
-	    for(my $i=0;$i<@$chain;$i++) {
-		my $c = $chain->[$i];
-		print "   * [$c->[5]/$c->[4]] bits=$c->[0], ocsp_uri=$c->[2], $c->[1]\n"
-	    }
-	}
-    }
-    print " * OCSP stapling        : $ocsp_staple\n" if $ocsp_staple;
-    print " * OCSP status          : $ocsp_status\n" if $ocsp_status;
-    if ($all_ciphers) {
-	print " * supported ciphers with $use_version handshake\n";
-	for(@ciphers) {
-	    printf "   * %6s %s\n",@$_;
-	}
-    }
-    if ($dump_chain) {
-	print "---------------------------------------------------------------\n";
-	for(my $i=0;$i<@cert_chain;$i++) {
-	    my $c = $cert_chain[$i];
-	    print "# $c->[1]\n$c->[3]\n";
-	}
-    }
-}
-
-
-
-sub smtp_starttls {
-    my $cl = $ioclass->new(%{shift()}) or die "tcp connect: $!";
-    my $last_status_line = qr/((\d)\d\d(?:\s.*)?)/;
-    my ($line,$code) = _readlines($cl,$last_status_line);
-    $code == 2 or die "server denies access: $line\n";
-    print $cl "EHLO example.com\r\n";
-    ($line,$code) = _readlines($cl,$last_status_line);
-    $code == 2 or die "server did not accept EHLO: $line\n";
-    print $cl "STARTTLS\r\n";
-    ($line,$code) = _readlines($cl,$last_status_line);
-    $code == 2 or die "server did not accept STARTTLS: $line\n";
-    VERBOSE(3,"...reply to starttls: $line");
-    return $cl;
-}
-
-sub imap_starttls {
-    my $cl = $ioclass->new(%{shift()}) or die "tcp connect: $!";
-    <$cl>; # welcome
-    print $cl "abc STARTTLS\r\n";
-    while (<$cl>) {
-	m{^abc (OK)?} or next;
-	$1 or die "STARTTLS failed: $_";
-	s{\r?\n$}{};
-	VERBOSE(3,"...starttls: $_");
-	return $cl;
-    }
-    die "starttls failed";
-}
-
-sub pop_stls {
-    my $cl = $ioclass->new(%{shift()}) or die "tcp connect: $!";
-    <$cl>; # welcome
-    print $cl "STLS\r\n";
-    my $reply = <$cl>;
-    die "STLS failed: $reply" if $reply !~m{^\+OK};
-    $reply =~s{\r?\n}{};
-    VERBOSE(3,"...stls $reply");
-    return $cl;
-}
-
-sub http_connect {
-    my ($ioargs,$proxy) = @_;
-    $proxy or die "no proxy host:port given";
-    $proxy =~m{^(?:\[(.+)\]|([^:]+)):(\w+)$} or die "invalid dst: $proxy";
-    my $cl = $ioclass->new( %$ioargs,
-	PeerAddr => $1||$2,
-	PeerPort => $3,
-    ) or die "tcp connect: $!";
-    print $cl "CONNECT $ioargs->{PeerAddr}:$ioargs->{PeerPort} HTTP/1.0\r\n\r\n";
-    my $hdr = _readlines($cl,qr/\r?\n/);
-    $hdr =~m{\A(HTTP/1\.[01]\s+(\d\d\d)[^\r\n]*)};
-    die "CONNECT failed: $1" if $2 != 200;
-    VERBOSE(3,"...connect request: $1");
-    return $cl;
-}
-
-sub http_upgrade {
-    my ($ioargs,$arg) = @_;
-    my $hostname = $ioargs->{PeerAddr};
-    my $cl = $ioclass->new(%$ioargs) or die "tcp connect: $!";
-    my $rq;
-    if ( $arg && $arg =~m{^get(?:=(\S+))?}i ) {
-	my $path = $1 || '/';
-	$rq = "GET $path HTTP/1.1\r\n".
-	    "Host: $hostname\r\n".
-	    "Upgrade: TLS/1.0\r\n".
-	    "Connection: Upgrade\r\n".
-	    "\r\n";
-    } else {
-	my $path = $arg && $arg =~m{^options=(\S+)}i
-	    ? $1:'*';
-	$rq = "OPTIONS $path HTTP/1.1\r\n".
-	    "Host: $hostname\r\n".
-	    "Upgrade: TLS/1.0\r\n".
-	    "Connection: Upgrade\r\n".
-	    "\r\n";
-    }
-    print $cl $rq;
-    my $hdr = _readlines($cl,qr/\r?\n/);
-    $hdr =~m{\A(HTTP/1\.[01]\s+(\d\d\d)[^\r\n]*)};
-    die "upgrade not accepted, code=$2 (expect 101): $1" if $2 != 101;
-    VERBOSE(3,"...tls upgrade request: $1");
-    return $cl;
-}
-
-sub ftp_auth {
-    my $cl = $ioclass->new(%{shift()}) or die "tcp connect: $!";
-    my $last_status_line = qr/((\d)\d\d(?:\s.*)?)/;
-    my ($line,$code) = _readlines($cl,$last_status_line);
-    die "server denies access: $line\n" if $code != 2;
-    print $cl "AUTH TLS\r\n";
-    ($line,$code) = _readlines($cl,$last_status_line);
-    die "AUTH TLS denied: $line\n" if $code != 2;
-    VERBOSE(3,"...ftp auth: $line");
-    return $cl;
-}
-
-sub postgresql_init {
-    my $cl = $ioclass->new(%{shift()}) or die "tcp connect: $!";
-    # magic header to initiate SSL:
-    # http://www.postgresql.org/docs/devel/static/protocol-message-formats.html
-    print $cl pack("NN",8,80877103);
-    read($cl, my $buf,1 ) or die "did not get response from postgresql";
-    $buf eq 'S' or die "postgresql does not support SSL (response=$buf)";
-    VERBOSE(3,"...postgresql supports SSL: $buf");
-    return $cl;
-}
-
-sub _readlines {
-    my ($cl,$stoprx) = @_;
-    my $buf = '';
-    while (<$cl>) {
-	$buf .= $_;
-	return $buf if ! $stoprx;
-	next if ! m{\A$stoprx\Z};
-	return ( m{\A$stoprx\Z},$buf );
-    }
-    die "eof" if $buf eq '';
-    die "unexpected response: $buf";
-}
-
-sub _addr2ip {
-    my ($addr,$family) = @_;
-    if ($family == AF_INET) {
-	(undef,$addr) = unpack_sockaddr_in($addr);
-	return inet_ntoa($addr);
-    } elsif (!$can_ipv6) {
-	return ();
-    } else {
-	(undef,$addr) = unpack_sockaddr_in6($addr);
-	return inet_ntop(AF_INET6(),$addr);
-    }
-}
-
-
-sub VERBOSE {
-    my $level = shift;
-    $verbose>=$level || return;
-    my $msg = shift;
-    $msg = sprintf($msg,@_) if @_;
-    my $prefix = $level == 1 ? '+ ' : $level == 2 ? '* ' : "<$level> ";
-    print STDERR "$prefix$msg\n";
-}
diff --git a/W/tools/backup_old_dist b/W/tools/backup_old_dist
deleted file mode 100755
index 0f7f94c..0000000
--- a/W/tools/backup_old_dist
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/bin/sh
-
-# $Id: backup_old_dist,v 1.4 2017/10/22 14:28:37 gilles Exp gilles $
-
-# Bye on any error not handled
-set -e
-
-DIST_PATH=${1:-dist}
-
-echo $DIST_PATH
-
-! test -f $DIST_PATH/imapsync && return
-
-version_previous=`$DIST_PATH/imapsync --version || echo ERROR`
-echo "previous: [$version_previous]"
-
-test "ERROR" != "$version_previous" || return 1
-
-version_current=`cat VERSION || echo ERROR`
-
-test "ERROR" != "$version_current" || return 1
-
-echo "current:  [$version_current]"
-
-# nothing to backup
-test "$version_previous" = "$version_current" && { echo "Nothing to backup, same release: $version_previous == $version_current" ; return 0 ; }
-
-test -d $DIST_PATH/old_releases/$version_previous || mkdir $DIST_PATH/old_releases/$version_previous && ( cd $DIST_PATH/old_releases/$version_previous )
-
-pwd
-# all or nothing
-ls -ld $DIST_PATH/imapsync  $DIST_PATH/imapsync-$version_previous.tgz  $DIST_PATH/imapsync_$version_previous.zip || return 1
-# let's do it
-mv -vf $DIST_PATH/imapsync $DIST_PATH/imapsync_bin_Darwin $DIST_PATH/imapsync-$version_previous.tgz  $DIST_PATH/imapsync_$version_previous.zip $DIST_PATH/old_releases/$version_previous
-
-
diff --git a/W/tools/cgi_memo b/W/tools/cgi_memo
deleted file mode 120000
index 2dca751..0000000
--- a/W/tools/cgi_memo
+++ /dev/null
@@ -1 +0,0 @@
-../../X/cgi_memo
\ No newline at end of file
diff --git a/W/tools/fix_email_for_exchange.py b/W/tools/fix_email_for_exchange.py
deleted file mode 100755
index eeeb8e8..0000000
--- a/W/tools/fix_email_for_exchange.py
+++ /dev/null
@@ -1,275 +0,0 @@
-#!/usr/bin/python
-#
-# $Cambridge: hermes/src/2exchange/scripts/fix_email_for_exchange.py,v 1.20 2017/01/25 18:33:48 dpc22 Exp $
-#
-# Convert message into form that Exchange Online will accept.
-#
-# This is a combination of lossless conversions (for example recoding text
-# attachments with long lines) and more aggresive conversions which remove
-# headers and attachments which Exchange Online cannot accept because of
-# hard limits listed on:
-#
-#   https://technet.microsoft.com/en-GB/library/exchange-online-limits.aspx
-
-MAX_MSG_SIZE    = 35*1024*1024
-MAX_LINE_LENGTH = 996
-MAX_ATTACHMENTS = 250    # Across the entire message
-MAX_SUBPARTS    = 250    # In single multipart.
-MAX_FILENAME    = 255    # for attachments
-MAX_DEPTH       = 30     # Nested multipart
-NUKE_8BIT = True
-NUKE_HDRS = [
-    # (hdr, max_lines, max_items, max_bytes). (-1 => unlimited).
-    ("References", 485, 485, 40000),
-    ("Subject", -1, -1, 255),
-]
-FORCE_REWRITE = False
-
-import sys
-import binascii
-from email.parser import Parser
-from email.generator import Generator
-from email import utils
-from cStringIO import StringIO
-
-# NB: utils._qencode() replaces ALL ' ' with '=20', as required by QP
-# header strings. We only need to encode trailing whitespace in message
-# body. quopri.encodestring (used by utils._qencode()) does this already.
-from quopri import encodestring as qp_encode
-
-fp            = open(sys.argv[1], "rb") if len(sys.argv) > 1 else sys.stdin
-msg_text_crnl = fp.read(); fp.close()
-msg_text_nl   = msg_text_crnl.replace("\r\n", "\n")
-
-# We want to preserve CRLF and any leading "From" from source message
-CRLF          = "\r\n" if (len(msg_text_nl) < len(msg_text_crnl)) else "\n"
-UNIXFROM      = msg_text_nl.startswith("From ")
-
-def max_line_len(str):
-    return(max([len(i) for i in str.split('\n')]))
-
-def count_attachments(part):
-    if part.is_multipart():
-        count = 0 # multipart wrapper doesn't count as attachment itself?
-        for subpart in part.get_payload():
-            count += count_attachments(subpart)
-    else:
-        count = 1
-            
-    return count
-
-def find_depth(part):
-    max_depth = 0
-    if part.is_multipart():
-        for subpart in part.get_payload():
-            depth = find_depth(subpart)
-            if depth > max_depth:
-                 max_depth = depth
-            
-    return max_depth + 1
-
-# Replace complex bodypart with simple text/plain explanation
-def nuke_part(part, print_stderr, text):
-    for hdr in ['Content-Transfer-Encoding', 'Content-Disposition']:
-        if part.has_key(hdr):
-            del part[hdr]
-
-    if part.has_key('Content-Type'):
-        part.replace_header('Content-Type', 'text/plain')
-
-    part.add_header('X-Mime-Autoconverted', text)
-    part.set_payload(text)
-    if print_stderr:
-        sys.stderr.write("FIXUP NEXT: " + text + "\n")
-
-def rewrite(part, drop_all_multipart_err):
-    need_rewrite = False
-
-    if (part.preamble and max_line_len(part.preamble) > MAX_LINE_LENGTH):
-        part.preamble = "\n"
-        sys.stderr.write("FIXUP NEXT: Removed over-long MIME preamble\n")
-        need_rewrite = True
-            
-    if (part.epilogue and max_line_len(part.epilogue) > MAX_LINE_LENGTH):
-        part.epilogue = "\n"
-        sys.stderr.write("FIXUP NEXT: Removed over-long MIME epilogue\n")
-        need_rewrite = True
-            
-    for hdr in part.values():
-        if max_line_len(hdr) > MAX_LINE_LENGTH:
-            need_rewrite = True # Force MIME rewrite if we have long headers
-            sys.stderr.write("FIXUP NEXT: Rewrite forced by long header line\n")
-
-    for hdr, max_lines, max_items, max_bytes in NUKE_HDRS:
-        (hdr, val) = (hdr.lower(), part.get(hdr))
-        if (val and ((max_lines >= 0 and len(val.split('\n')) > max_lines) or
-                     (max_items >= 0 and len(val.split()) > max_items) or
-                     (max_bytes >= 0 and len(val) > max_bytes))):
-            del part[hdr]
-            sys.stderr.write("FIXUP NEXT: Removed long header line: "+hdr+"\n")
-            need_rewrite = True
-
-    # Exchange Online can't cope with very long component in address list    
-    for hdr in ['To', 'Cc', 'Bcc']:
-        val = part.get(hdr, "")
-        for addr in val.split(','): # Need better parsing here!
-            if len(addr) > 1950:
-                part['X-Broken-' + hdr] = val
-                del part[hdr]
-                sys.stderr.write("FIXUP NEXT: Renamed broken " + hdr +
-                                 " to X-Broken-" + hdr + "\n")
-                need_rewrite = True
-
-    ct = part.get_content_type()
-    max_name_len = 0
-    params = part.get_params()
-    if params:
-        for (key,value) in part.get_params():
-            if key in ['name', 'filename']:
-                if len(value) > max_name_len:
-                    max_name_len = len(value)
-                
-    if max_name_len > MAX_FILENAME:
-        need_rewrite = True
-        part_count=len(part.get_payload())
-        part_str = ('Removed ' + ct +
-                    ' with long filename (' + str(max_name_len) +
-                    ' characters) which chokes Exchange Online')
-        nuke_part(part, 1, part_str)
-        return need_rewrite
-        
-    if part.is_multipart():
-        if (drop_all_multipart_err):
-            need_rewrite = True
-            part_count=len(part.get_payload())
-            part_str = drop_all_multipart_err
-            nuke_part(part, 0, part_str)
-        elif (len(part.get_payload()) > MAX_SUBPARTS):
-            need_rewrite = True
-            part_count=len(part.get_payload())
-            part_str = ('Removed ' + ct +
-                        ' with ' + str(part_count) +
-                        ' subparts/attachments which chokes Exchange Online')
-            nuke_part(part, 1, part_str)
-        elif ct in ['multipart/appledouble']:
-            need_rewrite = True
-            part_str = ('Removed ' + ct +
-                        ' which chokes Exchange Online')
-            nuke_part(part, 1, part_str)
-        else:
-            for subpart in part.get_payload():
-                if rewrite(subpart, drop_all_multipart_err):
-                    need_rewrite = True
-        return need_rewrite
-
-    payload = part.get_payload()
-    max_line_length = max_line_len(payload)
-
-    cte     = part.get('content-transfer-encoding', '').lower().strip()
-    if cte in ['8bit', '7bit', 'binary', '']:
-        # Encode unencoded forms which contain 8bit characters or long lines
-        update_cte = part.replace_header if (cte != '') else part.add_header
-        nonascii_count = [(ord(c) >= 128) for c in payload].count(True)
-        if ((NUKE_8BIT and nonascii_count > 0) or
-            max_line_length > MAX_LINE_LENGTH):
-            if nonascii_count < 100: 
-                part.set_payload(qp_encode(payload))
-                update_cte('Content-Transfer-Encoding', "quoted-printable")
-            else:
-                part.set_payload(utils._bencode(payload))
-                update_cte('Content-Transfer-Encoding', "base64")
-            need_rewrite = True
-    elif (cte in ['quoted-printable', 'base64']):
-        decode_error = False
-        try:
-            if cte == 'quoted-printable':
-                raw=utils._qdecode(payload)
-            else:
-                raw=utils._bdecode(payload)
-
-            if (len(payload) > 100) and (len(raw) < len(payload)/10):
-                raise binascii.Error
-        except binascii.Error:
-            decode_error = True
-
-        if decode_error:
-            # Discard broken attachment which would no decode
-            need_rewrite = True
-            part_str = ('Removed ' + ct +
-                        ' with broken attachment which failed to decode')
-            nuke_part(part, 1, part_str)
-        elif max_line_length > MAX_LINE_LENGTH:
-            sys.stderr.write("FIXUP NEXT: Recoded " +
-                             (cte or "none") + " attachment [Long lines]\n")
-
-            # Recode quoted-printable or base64 with long lines
-            need_rewrite = True
-            if cte == 'quoted-printable':
-                part.set_payload(qp_encode(raw))
-            else:
-                part.set_payload(utils._bencode(raw))
-                
-    newcte =  part.get('content-transfer-encoding', '').lower().strip()
-    if (newcte and (newcte != cte)):
-        part.add_header('X-Mime-Autoconverted',
-                        "from " + (cte or "none") + " to " + newcte)
-        if max_line_length > MAX_LINE_LENGTH:
-            sys.stderr.write("FIXUP NEXT: Attachment converted " +
-                             "from " + (cte or "none") + " to " + newcte +
-                             " [Long lines]\n")
-        else:
-            sys.stderr.write("FIXUP NEXT: Attachment converted " +
-                             "from " + (cte or "none") + " to " + newcte +
-                             " [Raw Binary data]\n")
-            
-    return need_rewrite
-
-msg=Parser().parsestr(msg_text_nl)
-
-msg_size  = len(msg_text_nl)
-msg_depth = find_depth(msg)
-attachments_count = count_attachments(msg)
-
-if msg_size > MAX_MSG_SIZE:
-    err= ("message is too large for" +
-          " Exchange Online (" + str(msg_size / (1024*1024)) + " Mbytes)")
-
-    need_rewrite=rewrite(msg, err)
-    if need_rewrite:
-        sys.stderr.write("FIXUP NEXT: " + err + "\n")
-elif msg_depth > MAX_DEPTH:        
-    err=("Removed multipart message with " + str(msg_depth) +
-         " nested messages which chokes Exchange Online")
-
-    need_rewrite=rewrite(msg, err)
-    if need_rewrite:
-        sys.stderr.write("FIXUP NEXT: " + err + "\n")
-elif attachments_count > MAX_SUBPARTS:
-    err=("Removed multipart message with " + str(attachments_count) +
-         " attachments which chokes Exchange Online")
-
-    need_rewrite=rewrite(msg, err)
-    if need_rewrite:
-        sys.stderr.write("FIXUP NEXT: " + err + "\n")
-else:
-    need_rewrite=rewrite(msg, '')
-
-if not need_rewrite and not FORCE_REWRITE:
-    sys.stdout.write(msg_text_crnl)
-    sys.exit(0)
-
-if need_rewrite:
-    # Log message headers if structure has changed
-    for hdr in ['Message-Id', 'From', 'Subject', 'Date']:
-        if msg.get(hdr):
-            sys.stderr.write("  " + hdr + ": " + msg.get(hdr) + "\n")
-
-buffer = StringIO()
-gen=Generator(buffer, mangle_from_=False, maxheaderlen=MAX_LINE_LENGTH)
-gen.flatten(msg, unixfrom=UNIXFROM)
-
-buffer.seek(0)
-for line in buffer.readlines():
-    sys.stdout.write(line.rstrip('\n')); sys.stdout.write(CRLF)
-buffer.close()
-sys.exit(0)
diff --git a/W/tools/gen_README_dist b/W/tools/gen_README_dist
deleted file mode 100755
index 32e10f0..0000000
--- a/W/tools/gen_README_dist
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/sh
-
-# $Id: gen_README_dist,v 1.4 2020/01/04 09:16:08 gilles Exp gilles $
-
-
-VERSION=`cat VERSION`
-#echo $VERSION
-
-cat <<EOF 
-
-The file "imapsync-$VERSION.zip" is for Windows users.
-
-The file "imapsync-$VERSION.tgz"  is for Unix and OS X users, it contains the source
-code and also the standalone OS X binary named "imapsync_bin_Darwin".
-
-The binary "imapsync_bin_Darwin" is for OS X users, as a shortcut for a fast upgrade.
-
-The file "imapsync" is the source code perl script, it is there just for a fast 
-upgrade on Unix, just download and replace the old one with this one.
-Sometimes new Perl modules need to be installed, see
-https://imapsync.lamiral.info/S/news.shtml
-
-EOF
-
-
-
-
diff --git a/W/tools/html5check.py b/W/tools/html5check.py
deleted file mode 100755
index b407f4d..0000000
--- a/W/tools/html5check.py
+++ /dev/null
@@ -1,187 +0,0 @@
-#!/usr/bin/python
-
-# Copyright (c) 2007-2008 Mozilla Foundation
-#
-# Permission is hereby granted, free of charge, to any person obtaining a 
-# copy of this software and associated documentation files (the "Software"), 
-# to deal in the Software without restriction, including without limitation 
-# the rights to use, copy, modify, merge, publish, distribute, sublicense, 
-# and/or sell copies of the Software, and to permit persons to whom the 
-# Software is furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in 
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
-# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 
-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
-# DEALINGS IN THE SOFTWARE.
-
-import httplib
-import os
-import sys
-import re
-import urlparse
-import string
-import gzip
-import StringIO
-
-extPat = re.compile(r'^.*\.([A-Za-z]+)$')
-extDict = {
-  "html" : "text/html",
-  "htm" : "text/html",
-  "xhtml" : "application/xhtml+xml",
-  "xht" : "application/xhtml+xml",
-  "xml" : "application/xml",
-}
-
-argv = sys.argv[1:]
-
-forceXml = 0
-forceHtml = 0
-gnu = 0
-errorsOnly = 0
-encoding = None
-fileName = None
-contentType = None
-inputHandle = None
-service = 'http://html5.validator.nu/'
-
-for arg in argv:
-  if '--help' == arg:
-    print '-h : force text/html'
-    print '-x : force application/xhtml+xml'
-    print '-g : GNU output'
-    print '-e : errors only (no info or warnings)'
-    print '--encoding=foo : declare encoding foo'
-    print '--service=url  : the address of the HTML5 validator'
-    print 'One file argument allowed. Leave out to read from stdin.' 
-    sys.exit(0)
-  elif arg.startswith("--encoding="):
-    encoding = arg[11:]
-  elif arg.startswith("--service="):
-    service = arg[10:]
-  elif arg.startswith("--"):
-      sys.stderr.write('Unknown argument %s.\n' % arg)
-      sys.exit(2)
-  elif arg.startswith("-"):
-    for c in arg[1:]:
-      if 'x' == c:
-        forceXml = 1
-      elif 'h' == c:
-        forceHtml = 1
-      elif 'g' == c:
-        gnu = 1  		
-      elif 'e' == c:
-        errorsOnly = 1
-      else:
-        sys.stderr.write('Unknown argument %s.\n' % arg)
-        sys.exit(3)        		
-  else:
-    if fileName:
-      sys.stderr.write('Cannot have more than one input file.\n')
-      sys.exit(1)
-    fileName = arg
-    
-if forceXml and forceHtml:
-  sys.stderr.write('Cannot force HTML and XHTML at the same time.\n')
-  sys.exit(2)
-  
-if forceXml:
-  contentType = 'application/xhtml+xml'
-elif forceHtml:
-  contentType = 'text/html'
-elif fileName:
-  m = extPat.match(fileName)
-  if m:
-    ext = m.group(1)
-    ext = ext.translate(string.maketrans(string.ascii_uppercase, string.ascii_lowercase))    
-    if extDict.has_key(ext):
-      contentType = extDict[ext]
-    else:
-      sys.stderr.write('Unable to guess Content-Type from file name. Please force the type.\n')
-      sys.exit(3)
-  else:
-    sys.stderr.write('Could not extract a filename extension. Please force the type.\n')
-    sys.exit(6)    
-else:
-  sys.stderr.write('Need to force HTML or XHTML when reading from stdin.\n')
-  sys.exit(4)
-
-if encoding:
-  contentType = '%s; charset=%s' % (contentType, encoding)
-
-if fileName:
-  inputHandle = open(fileName, "rb")
-else:
-  inputHandle = sys.stdin
-
-data = inputHandle.read()
-
-buf = StringIO.StringIO()
-gzipper = gzip.GzipFile(fileobj=buf, mode='wb')
-gzipper.write(data)
-gzipper.close()
-gzippeddata = buf.getvalue()
-buf.close()
-
-connection = None
-response = None
-status = 302
-redirectCount = 0
-
-url = service
-if gnu:
-  url = url + '?out=gnu'
-else:
-  url = url + '?out=text'
-  
-if errorsOnly:
-  url = url + '&level=error'
-
-while (status == 302 or status == 301 or status == 307) and redirectCount < 10:
-  if redirectCount > 0:
-    url = response.getheader('Location')
-  parsed = urlparse.urlsplit(url)
-  if parsed[0] != 'http':
-    sys.stderr.write('URI scheme %s not supported.\n' % parsed[0])
-    sys.exit(7)    
-  if redirectCount > 0:
-    connection.close() # previous connection
-    print 'Redirecting to %s' % url
-    print 'Please press enter to continue or type "stop" followed by enter to stop.'
-    if raw_input() != "":
-      sys.exit(0)
-  connection = httplib.HTTPConnection(parsed[1])
-  connection.connect()
-  connection.putrequest("POST", "%s?%s" % (parsed[2], parsed[3]), skip_accept_encoding=1)
-  connection.putheader("User-Agent", 'html5check.py/2008-02-12')
-  connection.putheader("Accept-Encoding", 'gzip')
-  connection.putheader("Content-Type", contentType)
-  connection.putheader("Content-Encoding", 'gzip')
-  connection.putheader("Content-Length", len(gzippeddata))
-  connection.endheaders()
-  connection.send(gzippeddata)
-  response = connection.getresponse()
-  status = response.status
-  redirectCount += 1
-
-if status != 200:
-  sys.stderr.write('%s %s\n' % (status, response.reason))
-  sys.exit(5)
-
-if response.getheader('Content-Encoding', 'identity').lower() == 'gzip':
-  response = gzip.GzipFile(fileobj=StringIO.StringIO(response.read()))
-  
-if fileName and gnu:
-  quotedName = '"%s"' % fileName.replace('"', '\\042')
-  for line in response:
-    sys.stdout.write(quotedName)
-    sys.stdout.write(line)
-else:
-  sys.stdout.write(response.read())
-
-connection.close()
diff --git a/W/tools/minage_maxage b/W/tools/minage_maxage
deleted file mode 100755
index 8304a5b..0000000
--- a/W/tools/minage_maxage
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/bin/sh
-
-# $Id: minage_maxage,v 1.1 2017/12/14 02:50:27 gilles Exp gilles $
-
-main() {
-        tests || return 1
-
-        main_minage=${1:-0}
-        test -n "$1" && shift
-        main_maxage=${1:-740}
-        test -n "$1" && shift
-        main_parall=${1:-1}
-        test -n "$1" && shift
-        main_cmd=${1:-"myscript"}
-        test -n "$1" && shift
-        
-        loop $main_minage $main_maxage $main_parall echo_begin_end_cmd $main_cmd "$@"
-}
-
-
-echo_begin_end_cmd() {
-        minage=$1
-        maxage=$2
-        shift 2
-        echo "$@" --minage $minage --maxage $maxage --pidfile ${1}_${minage}_${maxage}.pid "&"
-        
-        
-}
-
-tests_loop() {
-        test "0 10 -n" = "`loop 0 10 1 echo -n`" || return 1
-        test "0 10" = "`loop 0 10 1 echo`" || return 1
-        # default to echo command
-        test "0 10" = "`loop 0 10 1`" || return 1
-        
-        
-        # Yes, it is ugly, but good enough
-        test "0 5
-6 10" = "`loop 0 10 2 echo`" || return 1
-}
-
-
-loop() {
-        loop_begin=$1
-        loop_end=$2
-        loop_nb=$3
-        shift 3
-        loop_cmd=${1:-echo}
-        test -n "$1" && shift
-        #echo "$@"
-        loop_interval=`interval $loop_begin $loop_end $loop_nb` 
-        loop_begin_tmp=$loop_begin
-        while test $loop_begin_tmp -lt $loop_end; do
-                loop_end_tmp=`expr $loop_begin_tmp + $loop_interval`
-                loop_end_tmp=`min $loop_end_tmp $loop_end`
-                $loop_cmd $loop_begin_tmp $loop_end_tmp "${@}" 
-                loop_begin_tmp=`expr $loop_begin_tmp + $loop_interval + 1`
-        done
-        wait
-}
-
-tests() {
-        tests_loop     || return 1
-        tests_interval || return 1
-        tests_min      || return 1
-        tests_max      || return 1
-}
-
-tests_interval() {
-        test  2  -eq `interval 0 10 5` || return 1
-        test 10  -eq `interval 0 10`    || return 1
-        test 3 -eq `interval 3`       || return 1
-        test 0 -eq `interval`         || return 1
-        
-
-}
-interval() {
-        #    $1|--------------|$2
-        #      |--|--|--|--|--|
-        # out: |--|
-        begin=${1:-0}
-        end=${2:-`expr $begin \* 2` }
-        nb=${3:-1}
-        expr \( $end - $begin \) / $nb || return 1
-}
-
-
-tests_max() {
-        ! test 55 -eq `max 55 66` || return 1
-        test 66 -eq `max 55 66`   || return 1
-        test 42 -eq `max 42 42`   || return 1
-}
-max() {
-        test $1 -ge $2 && echo $1 && return 
-        echo $2
-}
-
-
-tests_min() {
-        test 55 -eq `min 55 66` || return 1
-        ! test 66 -eq `min 55 66`   || return 1
-        test 42 -eq `min 42 42`   || return 1
-}
-min() {
-        test $1 -le $2 && echo $1 && return 
-        echo $2
-}
-
-
-
-main "$@" || return 1
-
-return 0
\ No newline at end of file
diff --git a/W/tools/postman_imapsync.py b/W/tools/postman_imapsync.py
deleted file mode 100755
index c49af92..0000000
--- a/W/tools/postman_imapsync.py
+++ /dev/null
@@ -1,66 +0,0 @@
-#!/usr/bin/python
-
-# Postman_imapsync.py 
-#
-# Author: Jacek Falatowicz 2016
-
-# This script allowes you to run multiple threads of imapsync ( http://imapsync.lamiral.info/ )
-# It needs postman_batch.csv (in same directory) file that contains a list of users and passwords.
-# It assumes that username on both servers are same. 
-# First two lines of that file are reserved for mail servers.
-
-# Example line of first lines of postman_batch.csv:
-# serv1: mail.server1.com
-# serv2: mail.server2.com
-# john.doe@example.domain,Password1,Password2
-# jane.doe@example.domain,Password1,Password2
-
-# It has to be run from the same directory where your imapsync is.
-# 
-
-import subprocess
-from multiprocessing.dummy import Pool as ThreadPool
-
-# preparation() reads from the postman_batch.csv 
-def preparation():
-	command="grep -e \"^serv1:\" -e \"^serv2:\" postman_batch.csv| awk '{print $2}'"
-	serv = subprocess.Popen(['/bin/bash', '-c',  command], stdout=subprocess.PIPE).communicate()
-	serv = serv[0].strip().split("\n")
-	print serv
-	command="grep -v -e \"^serv1:\" -e \"^serv2:\" postman_batch.csv| awk -F\",\" '{print $1\" \"$2\" \"$1\" \"$3\" \"$1\" %s %s\"}'|awk '{gsub(\"@.+\",\"\",$5); print}'" % (serv[0],serv[1])
-	print command
-	reading = subprocess.Popen(['/bin/bash', '-c',  command], stdout=subprocess.PIPE).communicate()
-	reading = reading[0].strip().split("\n")
-	users=[]
-	for i in range(0,len(reading)):
-		users.append(reading[i].split(" "))
-	return users
-
-# postman_imapsync() runs imapsync 
-def postman_imapsync(user):
-	command="./imapsync --host1 "+ user[5] +" \
---user1 "+ user[0] +" \
---password1 "+ user[1] +" \
---ssl1 --host2 "+ user[6] +" \
---user2 "+ user[2] +" \
---password2 "+ user[3] +" \
---ssl2 --nofoldersizes --skipsize --fast \
---pidfile \"./"+ user[4] +".pid\" \
---pidfilelocking --logdir \".\" --logfile \"./log/sync."+ user[4] +".log\" --tmpdir \"./tmp\""
-	print command		# this will print command that was executed on your STDOUT
-	subprocess.Popen(['/bin/bash', '-c',  command], stdout=subprocess.PIPE).communicate()
-
-
-# Magic:
-
-users = preparation()
-for i in range(0,len(users)):
-	print users[i]
-
-# Here you can specify how many threads of imapsync you want to run (default 4)
-pool=ThreadPool(4)
-results = pool.map(postman_imapsync, users)
-pool.close()
-pool.join()
-
-
diff --git a/W/tools/validate b/W/tools/validate
deleted file mode 100755
index c45d0dd..0000000
--- a/W/tools/validate
+++ /dev/null
@@ -1,746 +0,0 @@
-#!/usr/bin/perl -T
-
-# See http://www.htmlhelp.com/tools/validator/offline/
-
-#####################################################################
-#
-# Offline HTMLHelp.com Validator
-# by Liam Quinn <liam@htmlhelp.com>
-#
-# This is a simplified version of the online WDG HTML Validator
-# found at <http://www.htmlhelp.com/tools/validator/>.
-#
-# Copyright (c) 1998-2010 by Liam Quinn
-# This program is free software; you can redistribute it
-# and/or modify it under the same terms as Perl itself.
-#
-# Contributors:
-# * Ville Skytta
-# * John Goebel
-#
-#####################################################################
-
-#####################################################################
-# Required libraries #
-######################
-
-# These are all standard Perl modules; we'll check for URI and LWP
-# later on demand.
-
-use strict;
-use Getopt::Long qw(GetOptions);
-use Text::Wrap qw(wrap);
-use POSIX qw(:fcntl_h);
-
-# If File::Spec::Functions isn't available, let's fall back quietly
-# to a replacement function.
-eval {
-    require File::Spec::Functions;
-    File::Spec::Functions->import('catfile');
-};
-*catfile = sub { join('/', @_) } if $@;
-
-#####################################################################
-
-#####################################################################
-# Variables to define #
-#######################
-
-# Version and identifier of this program
-my $VERSION = '1.2.3';
-my $progname = "Offline HTMLHelp.com Validator, Version $VERSION
-by Liam Quinn <liam\@htmlhelp.com>";
-my $usage = "Usage: validate [OPTION] [FILE...]";
-
-# SGML directory (catalog, DTDs, SGML declarations)
-my $sgmlDir = '/usr/local/share/wdg/sgml-lib';
-
-# Location of lq-nsgmls executable
-my $nsgmlsLocation = '/usr/bin/nsgmls';
-
-# lq-nsgmls command line
-# The SGML declaration and HTML document's filename will be appended
-# to this string
-my $nsgmls = "$nsgmlsLocation -E0 -s";
-
-# Warnings to pass on command-line to lq-nsgmls, if desired
-my $nsgmlsWarnings = '-wnon-sgml-char-ref -wmin-tag';
-my $nsgmlsXMLWarnings = '-wxml';
-
-# lq-nsgmls "errors" that are not reported unless warnings are requested.
-# These are true errors in XML validation, but they should only be
-# reported as warnings otherwise.
-my %errorAsWarning = (
-  ' net-enabling start-tag not supported in {{XML}}' => 1,
-  ' unclosed start-tag' => 1,
-  ' unclosed end-tag' => 1
-);
-
-# Catalog files for HTML/SGML and XHTML/XML
-my $htmlCatalog  = catfile($sgmlDir, 'catalog');
-my $xhtmlCatalog = catfile($sgmlDir, 'xhtml.soc');
-
-# Where to direct errors (typically *STDOUT or *STDERR)
-my $errout = *STDOUT;
-
-# Versions of HTML associated with a given FPI
-my %HTMLversion = (
-  'PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.2//EN"' => 'XHTML-MP 1.2',
-  'PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.1//EN"' => 'XHTML-MP 1.1',
-  'PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN"' => 'XHTML-MP 1.0',
-  'PUBLIC "-//W3C//DTD XHTML+RDFa 1.0//EN"' => 'XHTML+RDFa 1.0',
-  'PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN"' => 'XHTML 1.1 plus MathML 2.0 plus SVG 1.1',
-  'PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN"' => 'XHTML 1.1 plus MathML 2.0',
-  'PUBLIC "-//W3C//DTD MathML 2.0//EN"' => 'MathML 2.0',
-  'PUBLIC "-//W3C//DTD XHTML 1.1//EN"' => 'XHTML 1.1',
-  'PUBLIC "-//WAPFORUM//DTD WML 1.3//EN"' => 'WML 1.3',
-  'PUBLIC "-//WAPFORUM//DTD WML 1.2//EN"' => 'WML 1.2',
-  'PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"' => 'WML 1.1',
-  'PUBLIC "-//WAPFORUM//DTD WML 1.0//EN"' => 'WML 1.0',
-  'PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"' => 'XHTML Basic',
-  'PUBLIC "ISO/IEC 15445:2000//DTD HyperText Markup Language//EN"' => 'ISO/IEC 15445:2000',
-  'PUBLIC "ISO/IEC 15445:2000//DTD HTML//EN"' => 'ISO/IEC 15445:2000',
-  'PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"' => 'XHTML 1.0 Strict',
-  'PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' => 'XHTML 1.0 Transitional',
-  'PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"' => 'XHTML 1.0 Frameset',
-  'PUBLIC "-//W3C//DTD HTML 4.01//EN"' => 'HTML 4.01 Strict',
-  'PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"' => 'HTML 4.01 Transitional',
-  'PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"' => 'HTML 4.01 Frameset',
-  'PUBLIC "-//W3C//DTD HTML 4.0//EN"' => 'HTML 4.0 Strict',
-  'PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"' => 'HTML 4.0 Transitional',
-  'PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN"' => 'HTML 4.0 Frameset',
-  'PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"' => 'HTML 3.2',
-  'PUBLIC "-//W3C//DTD HTML 3.2 Draft//EN"' => 'HTML 3.2',
-  'PUBLIC "-//W3C//DTD HTML 3.2//EN"' => 'HTML 3.2',
-  'PUBLIC "-//W3C//DTD HTML Experimental 970421//EN"' => 'HTML 3.2 + Style',
-  'PUBLIC "-//W3O//DTD W3 HTML 3.0//EN"' => 'HTML 3.0 Draft',
-  'PUBLIC "-//IETF//DTD HTML 3.0//EN//"' => 'HTML 3.0 Draft',
-  'PUBLIC "-//IETF//DTD HTML 3.0//EN"' => 'HTML 3.0 Draft',
-  'PUBLIC "-//IETF//DTD HTML i18n//EN"' => 'HTML 2.0 + i18n',
-  'PUBLIC "-//IETF//DTD HTML//EN"' => 'HTML 2.0',
-  'PUBLIC "-//IETF//DTD HTML 2.0//EN"' => 'HTML 2.0',
-  'PUBLIC "-//IETF//DTD HTML Level 2//EN"' => 'HTML 2.0',
-  'PUBLIC "-//IETF//DTD HTML 2.0 Level 2//EN"' => 'HTML 2.0',
-  'PUBLIC "-//IETF//DTD HTML Level 1//EN"' => 'HTML 2.0 Level 1',
-  'PUBLIC "-//IETF//DTD HTML 2.0 Level 1//EN"' => 'HTML 2.0 Level 1',
-  'PUBLIC "-//IETF//DTD HTML Strict//EN"' => 'HTML 2.0 Strict',
-  'PUBLIC "-//IETF//DTD HTML 2.0 Strict//EN"' => 'HTML 2.0 Strict',
-  'PUBLIC "-//IETF//DTD HTML Strict Level 2//EN"' => 'HTML 2.0 Strict',
-  'PUBLIC "-//IETF//DTD HTML 2.0 Strict Level 2//EN"' => 'HTML 2.0 Strict',
-  'PUBLIC "-//IETF//DTD HTML Strict Level 1//EN"' => 'HTML 2.0 Strict Level 1',
-  'PUBLIC "-//IETF//DTD HTML 2.0 Strict Level 1//EN"' => 'HTML 2.0 Strict Level 1'
-);
-
-# SGML declarations for a given level of HTML
-my %sgmlDecl = (
-  'XHTML-MP 1.2'              => catfile($sgmlDir, 'xhtml-basic10','xml1.dcl'),
-  'XHTML-MP 1.1'              => catfile($sgmlDir, 'xhtml-basic10','xml1.dcl'),
-  'XHTML-MP 1.0'              => catfile($sgmlDir, 'xhtml-basic10','xml1.dcl'),
-  'XHTML+RDFa 1.0'            => catfile($sgmlDir, 'xhtml11', 'xml1n.dcl'),
-  'XHTML 1.1 plus MathML 2.0 plus SVG 1.1' => catfile($sgmlDir, 'xhtml11', 'xml1n.dcl'),
-  'XHTML 1.1 plus MathML 2.0' => catfile($sgmlDir, 'xhtml11', 'xml1n.dcl'),
-  'MathML 2.0'                => catfile($sgmlDir, 'xhtml11', 'xml1n.dcl'),
-  'XHTML 1.1'                 => catfile($sgmlDir, 'xhtml11', 'xml1n.dcl'),
-  'WML 1.3'                   => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'WML 1.2'                   => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'WML 1.1'                   => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'WML 1.0'                   => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'XHTML Basic'               => catfile($sgmlDir, 'xhtml-basic10','xml1.dcl'),
-  'ISO/IEC 15445:2000'        => catfile($sgmlDir, '15445.dcl'),
-  'XHTML 1.0 Strict'          => catfile($sgmlDir ,'xhtml1', 'xhtml1.dcl'),
-  'XHTML 1.0 Transitional'    => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'XHTML 1.0 Frameset'        => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-  'HTML 4.01 Strict'          => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 4.01 Transitional'    => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 4.01 Frameset'        => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 4.0 Strict'           => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 4.0 Transitional'     => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 4.0 Frameset'         => catfile($sgmlDir, 'HTML4.dcl'),
-  'HTML 3.2'                  => catfile($sgmlDir, 'HTML32.dcl'),
-  'HTML 3.2 + Style'          => catfile($sgmlDir, 'html-970421.decl'),
-  'HTML 3.0 Draft'            => catfile($sgmlDir, 'HTML3.dcl'),
-  'HTML 2.0 + i18n'           => catfile($sgmlDir, 'i18n.dcl'),
-  'HTML 2.0'                  => catfile($sgmlDir, 'html.dcl'),
-  'HTML 2.0 Strict'           => catfile($sgmlDir, 'html.dcl'),
-  'HTML 2.0 Level 1'          => catfile($sgmlDir, 'html.dcl'),
-  'HTML 2.0 Strict Level 1'   => catfile($sgmlDir, 'html.dcl'),
-  'Unknown'                   => catfile($sgmlDir, 'custom.dcl'),
-
-  # For generic XML validation (using the --xml option)
-  'XML'                       => catfile($sgmlDir, 'xhtml1', 'xhtml1.dcl'),
-);
-
-# XHTML DTDs
-my %xhtml = (
-  'XHTML-MP 1.2'              => 1,
-  'XHTML-MP 1.1'              => 1,
-  'XHTML-MP 1.0'              => 1,
-  'XHTML+RDFa 1.0'            => 1,
-  'XHTML 1.1 plus MathML 2.0 plus SVG 1.1' => 1,
-  'XHTML 1.1 plus MathML 2.0' => 1,
-  'MathML 2.0'                => 1,
-  'XHTML 1.1'                 => 1,
-  'WML 1.3'                   => 1,
-  'WML 1.2'                   => 1,
-  'WML 1.1'                   => 1,
-  'WML 1.0'                   => 1,
-  'XHTML Basic'               => 1,
-  'XHTML 1.0 Strict'          => 1,
-  'XHTML 1.0 Transitional'    => 1,
-  'XHTML 1.0 Frameset'        => 1,
-  'XML'                       => 1,
-);
-
-# Default DOCTYPE if the document is missing a DOCTYPE
-my $defaultDoctype = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
-   "http://www.w3.org/TR/html4/loose.dtd">';
-
-# Default DOCTYPE if the document contains frames
-my $defaultFramesetDoctype = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
-   "http://www.w3.org/TR/html4/frameset.dtd">';
-
-# Error for missing DOCTYPE
-my $noDoctype = "missing document type declaration; assuming HTML 4.01 Transitional";
-
-# Error for missing DOCTYPE in a Frameset document
-my $noFramesetDoctype = "missing document type declaration; assuming HTML 4.01 Frameset";
-
-#####################################################################
-
-#####################################################################
-#
-# The rest of the script...
-#
-#####################################################################
-
-# Get rid of unsafe environment variables, see perlsec
-delete(@ENV{qw(PATH IFS CDPATH ENV BASH_ENV)});
-
-# Flush output buffer
-$| = 1;
-
-### Get user input ###
-
-# Character encoding to use (optional)
-my $charsetOverride;
-
-# Verbose output (optional)
-my $verbose;
-
-# Emacs-friendly output
-my $emacs = ($ENV{EMACS} && $ENV{EMACS} eq 't');
-
-# XML mode
-my $xml;
-
-# Whether warnings are desired
-my $warnings;
-
-# HTTP headers to send
-my @headers;
-
-# Help and version info
-my $help;
-my $versionInfo;
-
-GetOptions("xml" => \$xml, "charset=s" => \$charsetOverride,
-    "verbose" => \$verbose, "help|h" => \$help,
-    "version|v" => \$versionInfo, "emacs!" => \$emacs,
-    "warn|w|W" => \$warnings, "header=s" => \@headers);
-
-# Files to validate
-my @files = @ARGV;
-
-######################
-
-my $errors = 0;
-
-if ($versionInfo || $help) {
-    if ($versionInfo) {
-        print "$progname\n";
-    }
-    if ($help) {
-        &helpText;
-    }
-    exit $errors;
-}
-
-if ($#files == -1) {
-    push(@files, '-');
-}
-
-# Check that nsgmls is available before we get too far
-unless (-e $nsgmlsLocation) {
-    &error("$nsgmlsLocation is not installed");
-    exit $errors;
-}
-unless (-x _) {
-    &error("$nsgmlsLocation is not executable");
-    exit $errors;
-}
-
-# Check if we can use URIs.
-eval {
-    require URI;
-    require LWP::UserAgent;
-};
-my $uri_ok = !$@;
-
-my $ua;
-my $file;
-foreach $file (@files) {
-
-    my $tempname = undef;
-    my $tempfh = undef;
-    my $charset = $charsetOverride;
-
-    # Read in document
-    my $document = "";
-    my $fileIsURL = 0;
-    if ($file ne '-') {
-        if ($uri_ok && $file =~ m|^\w+://.+|i) {
-            $fileIsURL = 1;
-            unless ($ua) {
-                $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1);
-                foreach (@headers) {
-                    if (/^([^\s:]+)\s*:\s*(.*)/) {
-                        if (lc($1) eq 'user-agent') {
-                            $ua->agent($2);
-                        } else {
-                            $ua->default_header($1 => $2);
-                        }
-                    }
-                }
-            }
-
-            my $uri = URI->new($file);
-            unless ($ua->is_protocol_supported($uri)) {
-                &error('Unsupported protocol: ' . $uri->scheme());
-                next;
-            }
-            my $res = $ua->get($uri->canonical());
-            if ($res->is_success()) {
-                $document = $res->content();
-                
-                unless ($charset) {
-                    my $contentType = $res->header('Content-Type');
-                    if ($contentType && $contentType =~ /[\s;]charset\s*=\s*"?([^,"\s]+)/io) {
-                        $charset = $1;
-                    }
-                }
-            } else {
-                &error($res->status_line());
-                next;
-            }
-
-        } else {
-            unless (-e $file) {
-                &error("File $file does not exist.");
-                next;
-            }
-            unless (-r _) {
-                &error("File $file is not readable.");
-                next;
-            }
-
-            open(IN, $file) || die "Unexpected error reading $file: $!\n";
-            while (<IN>) {
-                $document .= $_;
-            }
-            close(IN);
-        }
-    } else {
-        while (<>) {
-            $document .= $_;
-        }
-    }
-
-    unless ($charset) {
-        # Check for a META element specifying the character encoding
-        if ($document =~ m#<META(\s[^>]*http\-equiv\s*=\s*["']?Content\-Type["']?[^>]*)>#iso) {
-            my $metaAttributes = $1;
-            if ($metaAttributes =~ m#\scontent\s*=\s*["']?.*[\s;]charset\s*=\s*['"]?([^"']+)#iso) {
-                $charset = $1;
-            }
-        }
-    }
-
-    my @errors; # queue of errors
-    my @externalErrors; # queue of errors in an external DTD
-    my $lineAdjust = 0; # account for line number changes if we add a DOCTYPE
-
-    # Determine the level of HTML
-    my $htmlLevel;
-    my $fileToValidate = $file;
-    if ($xml) {
-        $htmlLevel = 'XML';
-    } else {
-        $htmlLevel = 'Unknown';
-    }
-    if ($document =~ /<!DOCTYPE([^>]*)>/iso) {
-
-        my $doctypeMeat = $1;
-        if ($doctypeMeat =~ /PUBLIC\s+["']([^"']*)["']/iso) {
-            $htmlLevel = $HTMLversion{"PUBLIC \"$1\""} || $htmlLevel;
-        }
-
-        if ($fileIsURL || $file eq '-') {
-            ($tempname, $tempfh) = getTempFile();
-            print $tempfh "$document";
-            close($tempfh);
-
-            $fileToValidate = $tempname;
-        }
-
-    } else { # Missing DOCTYPE
-
-        # Add a default DOCTYPE
-        my ($insertedDoctype, $doctypeError);
-        if ($document =~ /<FRAMESET/io) {
-            $insertedDoctype = $defaultFramesetDoctype;
-            $doctypeError = $noFramesetDoctype;
-        } else {
-            $insertedDoctype = $defaultDoctype;
-            $doctypeError = $noDoctype;
-        }
-
-        ($tempname, $tempfh) = getTempFile();
-        print $tempfh "$insertedDoctype\n$document";
-        close($tempfh);
-
-        $fileToValidate = $tempname;
-        $lineAdjust = 2;
-        push(@errors, "::" . (1 + $lineAdjust) . ":0:E: $doctypeError");
-
-    }
-
-    # Determine whether we're dealing with HTML or XHTML and set the SP
-    # environment accordingly.
-    if ($xhtml{$htmlLevel}) {
-        $ENV{'SGML_CATALOG_FILES'} = $xhtmlCatalog;
-        $ENV{'SP_ENCODING'} = 'xml';
-        $xml = 1;
-    } else {
-        $ENV{'SGML_CATALOG_FILES'} = $htmlCatalog;
-        if (defined $charset) {
-            $ENV{'SP_ENCODING'} = $charset;
-        } else {
-            $ENV{'SP_ENCODING'} = "ISO-8859-1";
-        }
-    }
-    $ENV{'SP_CHARSET_FIXED'} = 1;
-
-    if ($verbose) {
-        if ($file eq '-') {
-            print wrap("", "\t",
-                "Checking with $htmlLevel document type...\n");
-        } else {
-            print wrap("", "\t",
-                "Checking $file with $htmlLevel document type...\n");
-        }
-    }
-
-    my $warningsCmd = '';
-    if ($warnings) {
-        if ($xml) {
-            $warningsCmd = "$nsgmlsXMLWarnings";
-        } else {
-            $warningsCmd = "$nsgmlsWarnings";
-        }
-    }
-
-    # Run the validator
-    open(NSGMLS, "$nsgmls $warningsCmd $sgmlDecl{$htmlLevel} "
-        . &quoteFilename($fileToValidate) . " 2>&1 |")
-        || die("Unable to execute $nsgmls: $!\n");
-
-    # Create a queue of errors
-    while (<NSGMLS>) {
-        chomp;
-
-        my @error = split(/:/, $_, 6);
-
-        if ($#error < 4) {
-
-            next;
-
-        } elsif ($error[4] eq 'E' || $error[4] eq 'X') {
-
-            # With warnings enabled in non-XML validation, some "errors"
-            # reported by lq-nsgmls are probably better reported as "warnings"
-            # since they are only reported with warnings enabled.
-            if ($warnings && !$xml) {
-                if ($errorAsWarning{$error[5]}) {
-                    $error[4] = 'W';
-
-                    # lq-nsgmls uses an XML-specific message for one of
-                    # these warnings.  Let's try something more helpful
-                    # for HTML.
-                    if ($error[5] eq ' net-enabling start-tag not supported in {{XML}}') {
-                        $error[5] = ' net-enabling start-tag; possibly missing required quotes around an attribute value or using XHTML syntax in HTML';
-                    }
-
-                    $_ = join(':', @error);
-                }
-            }
-
-            push(@errors, $_);
-
-            # If the DOCTYPE is bad, bail out
-            last if ($error[5] eq ' unrecognized {{DOCTYPE}}; unable to check document');
-
-        } elsif ($error[4] eq 'W') {
-
-            unless ($error[5] eq ' characters in the document character set with numbers exceeding 65535 not supported')
-            {
-                push(@errors, $_);
-            }
-
-        } elsif ($error[1] =~ /^<URL>/o) { # error from external DTD
-
-            push(@externalErrors, $_);
-
-        } elsif (length($error[4]) > 1 # Allow secondary messages about preceding error
-            && $error[3] ne 'W') # Prevent error about SGML declaration not implied with -wxml
-        {
-            push(@errors, $_);
-        }
-
-    }
-    close(NSGMLS);
-
-    # If we created a tempfile, unlink it
-    if (defined $tempname) {
-        unlink($tempname);
-    }
-
-    # Report errors
-    if ($#errors > -1 || $#externalErrors > -1) {
-
-        &startErrors($file);
-
-        foreach (@externalErrors) {
-            my @error = split(/:/, $_, 7);
-
-            # Determine URL containing the error
-            my $errorURL;
-            if ($error[1] =~ /<URL>(.+)/o) {
-                $errorURL = "$1:$error[2]";
-            }
-
-            my $lineNumber = $error[3];
-            my $character = $error[4] + 1;
-
-            my $errorMsg;
-            if ($emacs) {
-                $errorMsg = "$errorURL:$lineNumber:$character:";
-            } else {
-                $errorMsg = "$errorURL, line $lineNumber, character $character: ";
-            }
-
-            if ($error[6]) {
-                $errorMsg .= superChomp($error[6]);
-            } else {
-                $errorMsg .= superChomp($error[5]);
-            }
-
-            &htmlError(stripLqNsgmlsGunk($errorMsg));
-        }
-
-        foreach (@errors) {
-            my @error = split(/:/, $_, 6);
-
-            # I don't think this should happen, but I'm not sure
-            next if $#error < 4;
-
-            # Determine line number and character of error
-            my $lineNumber = $error[2] - $lineAdjust;
-            next unless $lineNumber > 0;
-            my $character = $error[3] + 1;
-
-            my $msgType;
-            if ($error[4] eq 'E' || $error[4] eq 'X') { # Error message
-                $msgType = $emacs ? 'E' : 'Error at';
-            } elsif ($error[4] eq 'W') {
-                $msgType = $emacs ? 'W' : 'Warning at';
-            }
-
-
-            # Prepare error message
-            my $errorMsg;
-            if ($emacs) {
-                $errorMsg = "$file:$lineNumber:$character:";
-                if (defined $msgType) {
-                    $errorMsg .= "$msgType:";
-                }
-            } else {
-                my $line;
-                if (defined $msgType) {
-                    $line = ' line';
-                } else {
-                    $line = 'Line';
-                    $msgType = "\t";
-                }
-                $errorMsg = "$msgType$line $lineNumber, character $character: ";
-            }
-
-            if ($error[5]) {
-                $errorMsg .= superChomp($error[5]);
-            } else {
-                $errorMsg .= superChomp($error[4]);
-            }
-
-            &htmlError(stripLqNsgmlsGunk($errorMsg));
-        }
-
-    } else {
-
-        if ($verbose) {
-            print "No errors!\n";
-        }
-    }
-
-}
-
-exit $errors;
-
-# Return an error message
-# The error message must be given as the first argument
-sub error {
-    my $error_message = shift;
-    print $errout wrap("", "\t", "ERROR: \t$error_message\n");
-    ++$errors;
-}
-
-# Heading to start HTML errors
-# The file being validated should be given as the first argument
-sub startErrors {
-    my $file = shift;
-    if (length $file) {
-        my $andWarnings = $warnings ? ' and warnings' : '';
-
-        if ($file eq '-') {
-            print $errout "*** Errors$andWarnings: ***\n";
-        } else {
-            if ($emacs) {
-                print $errout "*** Errors" . $andWarnings . " validating $file: ***\n";
-            } else {
-                print $errout wrap("", "\t",
-                    "*** Errors" . $andWarnings . " validating $file: ***\n");
-            }
-        }
-    }
-}
-
-sub quoteFilename {
-    my $filename = shift;
-
-    $filename =~ s/\\/\\\\/go;
-    $filename =~ s/"/\\"/go;
- 
-    # Untaint
-    if ($filename =~ /^(.*)$/) {
-        $filename = $1;
-    }
-
-    return "\"$filename\"";
-}
-
-# Clean the "{{foo}}" used in lq-nsgmls error messages
-# The error message must be given as the first argument
-sub stripLqNsgmlsGunk {
-    my $errorMsg = shift;
-    while ($errorMsg =~ m#\{\{"?(.+?)"?\}\}#gos) {
-        my $linkText = $1;
-        $errorMsg =~ s#\{\{(")?$linkText(")?\}\}#$1$linkText$2#;
-    }
-    return $errorMsg;
-}
-
-# Report an HTML error
-# The error message must be given as the first argument
-sub htmlError {
-    my $error_message = shift;
-
-    if ($emacs) {
-        print $errout "$error_message\n";
-    } else {
-        print $errout wrap("", "\t", "$error_message\n");
-    }
-
-    ++$errors;
-}
-
-
-# Remove any newline characters (\r or \n) at the end of a string
-# First argument is the string
-# Returns the new string
-sub superChomp {
-
-    my $str = shift || return;
-    $str =~ s/[\r\n]+$//o;
-    return $str;
-
-}
-
-
-# Create temporary file securely
-# Returns the name and file handle of the created file
-sub getTempFile {
-    my $filename;
-    do {
-        $filename = POSIX::tmpnam();
-    } until sysopen(FH, $filename, O_RDWR|O_CREAT|O_EXCL, 0666);
-
-    return ($filename, \*FH);
-}
-
-
-sub helpText {
-
-    print<<"EndOfHelp";
-"validate", the Offline HTMLHelp.com Validator, checks the syntax of HTML
-documents using an SGML parser and reports any errors.  XHTML documents
-may also be validated using an XML parser.
-
-$usage
-        
-The program's options are as follows:
-  -w, --warn                  include warnings
-  --xml                       indicate that the documents to be validated are
-                              XML documents.  Known document types, such as
-                              HTML 4.01 and XHTML 1.0, are automatically
-                              handled by "validate".  For unknown document
-                              types, "validate" will assume XHTML/XML if this
-                              option is specified and HTML/SGML otherwise.
-  --header='Name: value'      set an HTTP header for HTTP requests (may be
-                              used multiple times for separate headers)
-  --charset=ENCODING          force ENCODING to be used as the character
-                              encoding when validating HTML/SGML documents.
-                              This option is ignored when validating XHTML/XML
-                              documents, which are assumed to use XML rules for
-                              specifying the character encoding.  The following
-                              encodings (case-insensitive) are supported:
-                              "utf-8", "iso-10646-ucs-2", "euc-jp", "euc-kr",
-                              "gb2312", "shift_jis", "big5", and "iso-8859-n"
-                              where n is between 1 and 9 inclusive.
-  --verbose                   turn on verbose output messages
-  --[no]emacs                 (don't) use an output format intended for parsing
-                              by (X)Emacs, autodetected
-  -h, --help                  display this help and exit
-  -v, --version               output version information and exit
-
-Any number of files may be specified after the options.  With no FILE,
-standard input is read.
-
-Files can also be URIs if you have the URI and libwww-perl packages
-installed.  Support for different URI schemes is also determined by these
-packages.  Proxy settings are loaded from environment variables for
-each scheme--e.g., http_proxy=http://localhost:3128.
-
-"validate" is written by Liam Quinn <liam\@htmlhelp.com> and is based on the
-WDG HTML Validator, an online validation service available at
-<http://www.htmlhelp.com/tools/validator/>.
-EndOfHelp
-
-}
diff --git a/W/tools/validate_files_in_dir.pl b/W/tools/validate_files_in_dir.pl
deleted file mode 100755
index 475db5d..0000000
--- a/W/tools/validate_files_in_dir.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use WebService::Validator::HTML::W3C;
-
-=head1 DESCRIPTION
-
-This script takes a directory as an argument and then submits every file
-in that directory to the W3C validator. It will print out a line for each
-file stating if it is valid or otherwise. For the invalid files it will
-also print out the errors returned by the validator.
-
-=cut
-
-my $v = WebService::Validator::HTML::W3C->new(
-    # you should probably install a local validator if you 
-    # are indenting to run this against a lot of files and
-    # then uncomment this line and change the uri
-    # validator_uri =>  'http://localhost/w3c-validator/check',
-    detailed        =>  1
-) or die "failed to init validator object";
-
-my $dir = shift;
-
-for my $file ( glob( "$dir/*.html" ) ) {
-    if ( $v->validate_file( $file ) ) {
-        if ( $v->is_valid ) {
-            print "$file: valid\n";
-        } else {
-            print "$file: invalid\n";
-            for my $err ( @{ $v->errors } ) {
-                printf("  line: %s, col: %s\n  error: %s\n\n", 
-                    $err->line, $err->col, $err->msg);
-            }
-        }
-    } else {
-        die "failed to validate $file: " . $v->validator_error . "\n";
-    }
-    print "\n" . '-' x 60 . "\n";
-    # sleep between files so as not to hammer the validator
-    sleep 1;
-}
diff --git a/W/tools/validate_html4 b/W/tools/validate_html4
deleted file mode 100755
index 58dcb99..0000000
--- a/W/tools/validate_html4
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use WebService::Validator::HTML::W3C;
-
-=head1 DESCRIPTION
-
-This script takes files as arguments and then submits those file
-to the W3C validator. It will print out a line for each
-file stating if it is valid or otherwise. For the invalid files it will
-also print out the errors returned by the validator.
-
-=cut
-
-my $v = WebService::Validator::HTML::W3C->new(
-    # you should probably install a local validator if you 
-    # are indenting to run this against a lot of files and
-    # then uncomment this line and change the uri
-    # validator_uri =>  'http://localhost/w3c-validator/check',
-    detailed        =>  1
-) or die "failed to init validator object";
-
-my $invalid_found = 0 ;
-
-for my $file ( @ARGV  ) {
-    if ( $v->validate_file( $file ) ) {
-        if ( $v->is_valid ) {
-            print "$file: valid\n";
-        } else {
-            $invalid_found = 1 ;
-            print "$file: invalid\n";
-            for my $err ( @{ $v->errors } ) {
-                printf("  line: %s, col: %s\n  error: %s\n\n", 
-                    $err->line, $err->col, $err->msg);
-            }
-        }
-    } else {
-        die "failed to validate $file: " . $v->validator_error . "\n";
-    }
-    print "\n" . '-' x 60 . "\n";
-    # sleep between files so as not to hammer the validator
-    sleep 1;
-}
-
-exit( $invalid_found ) ;
-
diff --git a/W/tools/validate_xml_html5 b/W/tools/validate_xml_html5
deleted file mode 100755
index 7d0e29d..0000000
--- a/W/tools/validate_xml_html5
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-
-# $Id: validate_xml_html5,v 1.6 2019/11/25 12:51:40 gilles Exp gilles $
-
-#set -x
-
-validate_xml_html5_one() {
-        type=`file -b -i "$1"`
-        echo $1 : $type
-        if expr match "$type" '.*text/html.*' > /dev/null; then
-                echo html5check.py -h "$1"
-                html5check.py -h "$1" 
-                html5check.py -h "$1" | grep 'The document is valid HTML5' > /dev/null
-                return $?
-        fi
-        if expr match "$type" '.*application/xml.*' > /dev/null; then
-                #echo validate --verbose "$1"
-                #validate --verbose "$1"
-                echo xmllint --noout "$1"
-                xmllint --noout "$1"
-                return $?
-        fi
-        if expr match "$type" '.*inode/symlink.*' > /dev/null; then
-                echo ignore $1 since it is a symlink
-                return 0
-        fi
-        echo Unknown type
-        return 1
-}
-
-nb_failures=0
-for f in "$@"; do
-        validate_xml_html5_one "$f"
-        cmd_status=$?
-        echo cmd_status = $cmd_status
-        test 0 != $cmd_status && { 
-                nb_failures=`expr 1 + $nb_failures`
-                files_failed="$files_failed $f"
-        }
-done
-echo Found $nb_failures failures $files_failed
-return $nb_failures
-
-: # if here then good return
-
-
diff --git a/W/tools/watchdog.pl b/W/tools/watchdog.pl
deleted file mode 100755
index 730d259..0000000
--- a/W/tools/watchdog.pl
+++ /dev/null
@@ -1,74 +0,0 @@
-#!/usr/bin/perl
-#
-# $Cambridge: hermes/src/2exchange/scripts/watchdog.pl,v 1.5 2017/02/10 09:57:11 dpc22 Exp $
-#
-# Watchdog wrapper which runs shell script as subprocess collecting output
-# in file. Kills child process if it doesn't generate output after $TIMEOUT
-
-my $TIMEOUT = (30*60); # 30 minutes
-
-use strict;
-use warnings;
-
-(@ARGV == 2) or die "watchdog.pl args: cmdfile outfile\n";
-
-my $cmdfile=$ARGV[0];
-my $outfile=$ARGV[1];
-
-# Touch outfile to make sure timestamp up to date. Don't blat existing content.
-open(my $fh, ">>", $outfile) or die "Failed to open $outfile: $!\n";
-close($fh);
-
-open($fh, "<", $cmdfile) or die "Failed to open $cmdfile: $!\n";
-my $cmd = <$fh>;
-close($fh);
-chomp($cmd);
-
-my $cmd_pid = fork();
-die "watchdog.pl Could not fork(): $_\n" if not defined $cmd_pid;
-
-if (not $cmd_pid) {
-    open (STDOUT, '>>',  $outfile);
-    open (STDERR, '>&', STDOUT);
-    exec($cmd);
-    exit 1;
-}
-
-my $watchdog_pid = fork();
-die "Could not fork(): $_\n" if not defined $watchdog_pid;
-if (not $watchdog_pid) {
-    while (1) {
-        my $now   = time;
-        my @stat  = stat $outfile;
-        my $mtime = (@stat) ? $stat[9] : $now;
-
-        last if (($now - $mtime) > ${TIMEOUT});
-        sleep(1);
-    }
-    exit 1;
-}
-
-######################################################################
-# Wait for either subprocess to finish. Then kill the other one and wait
-# for that to finish as well. Return the exit code from the first process.
-my $pid    = wait;
-my $status = $?;
-my $rc     = $status >> 8;  # Normally 128+N when grandchild catches signal N
-my $signal = $status & 127; # Only nonzero if $cmd_pid shell itself killed
-if ($rc == 0 and $signal != 0) {
-    $rc = 128 + $signal;    # Paranoia in case $pid shell is killed directly
-}
-
-die("watchdog.pl: No child process\n") if ($pid < 0);
-
-if ($pid == $cmd_pid) {
-    kill 'TERM', $watchdog_pid;
-} elsif ($pid == $watchdog_pid) {
-    kill 'TERM', $cmd_pid;
-} else {
-    die "watchdog.pl: Unexpected child process pid: ${pid}\n";
-}
-
-$pid=wait;
-exit($rc);
-
diff --git a/W/tools/wonko_ruby_imapsync b/W/tools/wonko_ruby_imapsync
deleted file mode 100644
index 014f26e..0000000
--- a/W/tools/wonko_ruby_imapsync
+++ /dev/null
@@ -1,116 +0,0 @@
-#!/usr/bin/env ruby
-require 'net/imap'
-#
-# http://wonko.com/article/554
-#
-# Gilles LAMIRAL: Your Ruby code is nice. Is it GPL? Can I make a reference 
-# to it in the imapsync distribution?
-#
-# Wonko : Please consider this code public domain (and unsupported).
-# You're more than welcome to refer to it if you'd like.
-#
-#
-# Source server connection info.
-SOURCE_HOST = 'mail.example.com'
-SOURCE_PORT = 143
-SOURCE_SSL  = false
-SOURCE_USER = 'username'
-SOURCE_PASS = 'password'
-
-# Destination server connection info.
-DEST_HOST = 'imap.gmail.com'
-DEST_PORT = 993
-DEST_SSL  = true
-DEST_USER = 'username@gmail.com'
-DEST_PASS = 'password'
-
-# Mapping of source folders to destination folders. The key is the name of the
-# folder on the source server, the value is the name on the destination server.
-# Any folder not specified here will be ignored. If a destination folder does
-# not exist, it will be created.
-FOLDERS = {
-  'INBOX' => 'INBOX',
-  'sourcefolder' => 'gmailfolder'
-}
-
-# Utility methods.
-def dd(message)
-   puts "[#{DEST_HOST}] #{message}"
-end
-
-def ds(message)
-   puts "[#{SOURCE_HOST}] #{message}"
-end
-
-# Connect and log into both servers.
-ds 'connecting...'
-source = Net::IMAP.new(SOURCE_HOST, SOURCE_PORT, SOURCE_SSL)
-
-ds 'logging in...'
-source.login(SOURCE_USER, SOURCE_PASS)
-
-dd 'connecting...'
-dest = Net::IMAP.new(DEST_HOST, DEST_PORT, DEST_SSL)
-
-dd 'logging in...'
-dest.login(DEST_USER, DEST_PASS)
-
-# Loop through folders and copy messages.
-FOLDERS.each do |source_folder, dest_folder|
-  # Open source folder in read-only mode.
-  begin
-    ds "selecting folder '#{source_folder}'..."
-    source.examine(source_folder)
-  rescue => e
-    ds "error: select failed: #{e}"
-    next
-  end
-  
-  # Open (or create) destination folder in read-write mode.
-  begin
-    dd "selecting folder '#{dest_folder}'..."
-    dest.select(dest_folder)
-  rescue => e
-    begin
-      dd "folder not found; creating..."
-      dest.create(dest_folder)
-      dest.select(dest_folder)
-    rescue => ee
-      dd "error: could not create folder: #{e}"
-      next
-    end
-  end
-  
-  # Build a lookup hash of all message ids present in the destination folder.
-  dest_info = {}
-  
-  dd 'analyzing existing messages...'
-  dest.uid_fetch(dest.uid_search(['ALL']), ['ENVELOPE']).each do |data|
-    dest_info[data.attr['ENVELOPE'].message_id] = true
-  end
-  
-  # Loop through all messages in the source folder.
-  source.uid_fetch(source.uid_search(['ALL']), ['ENVELOPE']).each do |data|
-    mid = data.attr['ENVELOPE'].message_id
-
-    # If this message is already in the destination folder, skip it.
-    next if dest_info[mid]
-    
-    # Download the full message body from the source folder.
-    ds "downloading message #{mid}..."
-    msg = source.uid_fetch(data.attr['UID'], ['RFC822', 'FLAGS',
-        'INTERNALDATE']).first
-    
-    # Append the message to the destination folder, preserving flags and
-    # internal timestamp.
-    dd "storing message #{mid}..."
-    dest.append(dest_folder, msg.attr['RFC822'], msg.attr['FLAGS'],
-        msg.attr['INTERNALDATE'])
-  end
-  
-  source.close
-  dest.close
-end
-
-puts 'done'
-
diff --git a/W/uninstall_module_one.bat b/W/uninstall_module_one.bat
deleted file mode 100755
index 071da62..0000000
--- a/W/uninstall_module_one.bat
+++ /dev/null
@@ -1,27 +0,0 @@
-
-@REM $Id: uninstall_module_one.bat,v 1.1 2017/07/08 00:10:46 gilles Exp gilles $
-
-@ECHO OFF 
-SET SHELL=
-SET
-REM EXIT
-
-REM CD /D %~dp0
-
-perl -v
-IF ERRORLEVEL 1 ECHO Perl needed. Install Strawberry Perl. Get it at http://strawberryperl.com/ ^
-  && EXIT /B
-
-@ECHO perl is here
-
-FOR %%M in ( 
-              Net::Ping ^         
-             ) DO perl -m%%M -e "print qq{Uninstalling %%M $%%M::VERSION \n}" ^
-   & cpanm --uninstall %%M
-
-REM IO::Socket::SSL Net::SSLeay PAR::Packer
-
-@ECHO Perl modules for imapsync installed
-PAUSE
-
-
diff --git a/X/cgi_memo b/X/cgi_memo
index c7d7c17..6aafc08 100644
--- a/X/cgi_memo
+++ b/X/cgi_memo
@@ -1,6 +1,6 @@
 #!/bin/sh
 
-# $Id: cgi_memo,v 1.54 2020/01/04 00:13:49 gilles Exp gilles $
+# $Id: cgi_memo,v 1.73 2021/06/30 20:10:12 gilles Exp gilles $
 
 if test -n "$1"; then 
         echoq() { echo "$@" ; } # not quiet mode
@@ -8,55 +8,150 @@ else
         echoq() { : ; } # quiet mode: nop
 fi
 
+
+run_test() {
+        tests_count=`expr 1 + $tests_count`
+        # do not run anything between the two following instructions
+        "$@"; run_test_status=$?
+        # now you can run something since $? is saved
+        if test x"$run_test_status" = x"0"; then
+                echo "ok $tests_count $@"
+        else
+                echo "not ok $tests_count $@"
+                tests_failed_count=`expr 1 + $tests_failed_count`
+                tests_failed_list="$tests_failed_list $tests_count"
+        fi
+        return $run_test_status
+}
+
+
+run_tests() {
+        tests_count=0
+        tests_failed_count=0
+        tests_failed_list=
+        for t in "$@"; do
+                echo "### running $t"
+                "$t"
+        done
+        echo 
+        echo "#### ALL tests done"
+        if test 0 -eq $tests_failed_count; then
+                echo "ALL $tests_count TESTS SUCCESSFUL"
+                return 0
+        else
+                # At least one failed
+                echo "FAILED $tests_failed_count/$tests_count TESTS: $tests_failed_list"
+                return 1
+        fi
+}
+
+
+tests()
+{
+        :
+        # All tests
+        run_tests \
+                tests_pattern_filename 
+}
+
+
+tests_all_verbose_if_failure()
+{
+        # Run tests silent but if failure then rerun them verbose.
+        # return 0 if all tests passed
+        # return 1 if some tests failed
+        
+        if ! tests > /dev/null 3>&1 ; then
+                tests
+                return 1
+        fi
+        return 0
+}
+
+#### Variable definitions
+
+tests_count=0
+tests_failed_count=0
+
+
+here_is_freebsd()
+{
+        test FreeBSD = `uname -s`
+}
+
+here_is_linux()
+{
+        test Linux = `uname -s`
+}
+
+
+
 echoq list_all_logs
-list_all_logs() {
+list_all_logs()
+{
     cat list_all_logs.txt
 }
 
 echoq list_all_logs_generate
-list_all_logs_generate() {
+list_all_logs_generate()
+{
     echo Result in list_all_logs.txt
-    sortmtimef . | grep -v 385d7a4d8d428d7aa2b57c8982629e2bd67698ed/ | grep /LOG_imapsync/ > list_all_logs.txt.tmp
+    sortmtimef . | grep -v perl.core.txt | grep -v 385d7a4d8d428d7aa2b57c8982629e2bd67698ed/ | grep \./......................................../ | grep \.txt > list_all_logs.txt.tmp
     mv list_all_logs.txt.tmp list_all_logs.txt
 }
 
+list_log_matching()
+{
+        pattern="$1"
+        # Ignore no args runs going to 385d7a4d8d428d7aa2b57c8982629e2bd67698ed
+        cat list_all_logs_auto.txt | grep -v 385d7a4d8d428d7aa2b57c8982629e2bd67698ed | egrep -- "$pattern"
+}
+
+
 
 echoq biggest_transfer
-biggest_transfer() {
+biggest_transfer()
+{
     bytestohuman `datamash_file_op_index G_Total_bytes_transferred.txt max 5`
 }
 
 echoq total_bytes_transferred
-total_bytes_transferred() {
+total_bytes_transferred()
+{
     datamash_file_op_index G_Total_bytes_transferred.txt sum  5
 }
-	
+
 # Total volume transferred
 echoq total_volume_transferred
-total_volume_transferred() {
+total_volume_transferred()
+{
     #echo -n 'numfmt --to=iec-i '
     bytestohuman `total_bytes_transferred`
 }
 
 
 echoq total_messages_transferred
-total_messages_transferred() {
+total_messages_transferred()
+{
     datamash_file_op_index G_Messages_transferred.txt sum  4 %16.0f | tr -d ' '
 }
 
 
-longest_transfer() {
-    printf "%.0f\n" `datamash_file_op_index G_Transfer_time.txt max 4`
+longest_transfer()
+{
+    LC_ALL=C printf "%.0f\n" `datamash_file_op_index G_Transfer_time.txt max 4`
 }
 
 echoq number_and_pids_of_imapsync_running
-number_and_pids_of_imapsync_running() {
+number_and_pids_of_imapsync_running()
+{
     echo "`number_of_imapsync_running` : `pids_of_imapsync_running`"
     : # always return true
 }
 
 echoq number_of_imapsync_running
-number_of_imapsync_running() {
+number_of_imapsync_running()
+{
     pids_of_imapsync_running | wc -w
     : # always return true
 }
@@ -127,14 +222,67 @@ EOF
 echoq 'grep_stats_from_list_all_logs # long'
 grep_stats_from_list_all_logs() {
     echo results in grep_stats.txt
+    # remove empty lines because it would grep all lines of all logs
+    sed -i".bak" '/^[[:space:]]*$/d' stat_patterns.txt
     list_all_logs | tr '\n' '\000'| xargs -0 egrep -i -f stat_patterns.txt > grep_stats.txt.tmp 
     mv grep_stats.txt.tmp grep_stats.txt
 }
 
+
+tests_pattern_filename()
+{
+        run_test test ""     = "`pattern_filename`" 
+        run_test test "abcd" = "`pattern_filename abcd`" 
+
+        run_test test "ab_0123__4567_cd" = "`pattern_filename ab[0123][4567]cd`" 
+
+
+        run_test test "ab_cd" = "`pattern_filename ab cd`" 
+        run_test test "ab_cd" = "`pattern_filename   ab   cd  `" 
+
+        run_test test "abcd"      = "`pattern_filename ab\&cd`" 
+
+        run_test test "abcd"      = "`pattern_filename ab""cd`" 
+        run_test test "abcd"      = "`pattern_filename ab""cd`"
+        run_test test "ab_cd"     = "`pattern_filename ab" "cd`"
+        run_test test "ab__cd"     = "`pattern_filename ab"  "cd`"
+        run_test test "ab__cd"    = "`pattern_filename ab "" cd`"
+        run_test test "ab___cd"   = "`pattern_filename ab " " cd`"
+        run_test test "ab____cd"  = "`pattern_filename ab "  " cd`"
+        run_test test "ab____cd"  = "`pattern_filename ab  "  "  cd`"
+        run_test test "ab_____cd" = "`pattern_filename ab  "   "  cd`"
+
+        run_test test "a_b_c_d" = "`pattern_filename a b c d`" 
+
+}
+
+pattern_filename()
+{
+        echo "$@" | tr ' .[]' '____' | tr -cd '0-9a-zA-Z_.'
+}
+
+
+
+echoq 'grep_stats_from_list_log_matching lognamepattern'
+grep_stats_from_list_log_matching() {
+    pattern="$1"
+    pattern_filename=`pattern_filename "$pattern"`
+    results_filename=grep_stats_"$pattern_filename".txt
+    echo results in "$results_filename"
+    # remove empty lines because it would grep all lines of all logs
+    sed -i".bak" '/^[[:space:]]*$/d' stat_patterns.txt
+    list_log_matching "$pattern" | tr '\n' '\000'| xargs -0 egrep -i -f stat_patterns.txt > "$results_filename".tmp 
+    mv "$results_filename".tmp  "$results_filename"
+}
+
+
+
+
 grep_any() {
-    file=G_`echo "$1" | tr ' .' '__' | tr -cd '0-9a-zA-Z_.\n'`.txt
+    pattern_filtered=`pattern_filename "$1" "$2"`
+    file="G_${pattern_filtered}.txt"
     echo $file
-    egrep -i "$1" grep_stats.txt > $file.tmp
+    egrep -i "$1" grep_stats_"$2".txt > $file.tmp
     mv $file.tmp $file
 }
 
@@ -143,31 +291,49 @@ grep_load() {
     egrep -o 'Load is ..?\... ..?\... ..?\... .*' grep_stats.txt > G_Load.txt
 }
 
-grep_all2() {
-   for k in "$@" ; do 
-       grep_any "$k"
-   done
-}
 
-echoq 'grep_all_stat_from_patterns_list # long'
+echoq 'grep_all_stat_from_patterns_list lognamepattern # long'
 grep_all_stat_from_patterns_list() {
-    grep_load
-    stat_patterns_list | while read k; do grep_all2 "$k" ; done
+    #grep_load
+    stat_patterns_list | while read k; do grep_any "$k" "$1"; done
 }
 
 stat_patterns_list() {
-   cat stat_patterns.txt | tr -d '^'
+   cat stat_patterns.txt | sed '/^[[:space:]]*$/d' | tr -d '^'
 }
 
 
+
+sum_first_column_G_HTTP_USER_AGENT_sorted()
+{
+        awk '{sum += $1} END {print sum}' G_HTTP_USER_AGENT_sorted.txt
+}
+
 stat_useragent_X()
 {
          grep -o 'HTTP_USER_AGENT.*' G_HTTP_USER_AGENT.txt \
          | tail -10000000 | sort | egrep -o -w 'Mozilla/5.0 \([^;]+' \
          | sort | egrep -o '\([a-zA-Z]+' | sort  | uniq -c | sort -g \
-         | grep -v KHTML | tr -d '('
+         | grep -v KHTML | tr -d '(' > G_HTTP_USER_AGENT_sorted.txt
+         
+         
 }
 
+echoq 'percent_stat_useragent_X'
+percent_stat_useragent_X()
+{
+        stat_useragent_X
+        sum_first_column_G_HTTP_USER_AGENT=`sum_first_column_G_HTTP_USER_AGENT_sorted`
+        { while read num_useragent useragent ; do
+                #echo KK $num_useragent $useragent
+                PerCent=`echo "scale=2; 100*$num_useragent/$sum_first_column_G_HTTP_USER_AGENT" | bc -l`
+                echo "$useragent $PerCent %    ( $num_useragent / $sum_first_column_G_HTTP_USER_AGENT )"
+        done 
+        } < G_HTTP_USER_AGENT_sorted.txt
+
+}
+
+
 stat_load()
 {
     echo -n 'Load        1 min      5 min   15 min ' ; grep -o 'on.*cores' G_Load.txt|uniq
@@ -198,27 +364,34 @@ stat_exit_value_by_value()
 
 
 
-datamash_file_op_index() {
+datamash_file_op_index() { 
     file="$1"
     op="${2:-mean}"
     index="${3:-4}" # the four field by default
     format="${4:-%16.1f}" # --format=%16.1f by default
-    datamash --format="$format" -W "$op" "$index" < "$file"
-}
+    func="${5:-}"
+    val_datamash_file_op_index=`LC_ALL=C datamash --format="$format" -W "$op" "$index" < "$file"`
+    func_return=
+    test -n "$func" && func_return=`eval $func $val_datamash_file_op_index`
+    echo "$val_datamash_file_op_index" $func_return
+} 
 
 stat_any() {
     file="$1"
     index=${2:-4} # the four field by default
+    func="${3:-}"
     for op in \
-        "min   " \
-        "q1    " \
-        "median" \
-        "mean  " \
-        "q3    " \
-        "max   " \
+        "min     " \
+        "perc:10 " \
+        "q1      " \
+        "median  " \
+        "mean    " \
+        "q3      " \
+        "perc:90 " \
+        "max     " \
         
     do
-        echo -n "$file $index $op " ; datamash_file_op_index $file $op $index
+        echo -n "$file $index $op " ; datamash_file_op_index $file $op $index %16.1f $func
     done
     echo
 }
@@ -229,7 +402,7 @@ echoq stat_all
 stat_all()
 {
     stat_load ; echo
-    stat_useragent_X ; echo
+    
     # stat_any  G_REMOTE_ADDR.txt
     # stat_any  G_REMOTE_HOST.txt
     # stat_any  G_HTTP_COOKIE.txt
@@ -257,6 +430,8 @@ stat_all()
 
     #
     stat_any  G_Transfer_time.txt
+    stat_any  G_Host1_Total_size.txt
+    stat_any  G_Host2_Total_size.txt
     stat_any  G_Total_bytes_transferred.txt 5
     stat_any  G_Message_rate.txt
     stat_any  G_Average_bandwidth_rate.txt 5
@@ -265,6 +440,7 @@ stat_all()
     stat_any  G_Exiting_with_return_value.txt 5 # GROUP
     stat_any  G_Memory_consumption_at_the_end.txt 7
     #stat_any  G_failure_Error_login.txt
+    percent_stat_useragent_X ; echo
     stat_exit_value
     
     echo "Data made at" `date -r grep_stats.txt`
@@ -287,7 +463,7 @@ stat_queue_mean()
         stat_throuput_since_day_one_in_days=`stat_throuput_since_day_one_in_days`
         stat_transfer_time_mean=`stat_transfer_time_mean`
         stat_queue_mean_raw=`c "$stat_throuput_since_day_one_in_days * $stat_transfer_time_mean / 3600 / 24"`
-        printf "%2.2f\n" $stat_queue_mean_raw
+        LC_ALL=C printf "%2.2f\n" $stat_queue_mean_raw
 }
 
 echoq dirs_of_syncs_finished_recently
@@ -310,9 +486,8 @@ logfiles_finished_recently()
     find .  -maxdepth 1 -mtime "${1:--1}" | grep -v "385d7a4d8d428d7aa2b57c8982629e2bd67698ed" |  egrep [a-f0-9]{40} | while read d; do
         test -f "$d" && continue
         test -f  $d/imapsync.pid  && continue
-        test -d $d/LOG_imapsync || continue
-        # { ls -trb $f/LOG_imapsync/* ;  }
-        ls -trb `find $d/LOG_imapsync/ -type f -mtime "${1:--1}"`
+        test -d $d/ || continue
+        ls -trb `find $d/ -type f -mtime "${1:--1}" | grep \.txt`
     done
     } 
 }
@@ -324,7 +499,7 @@ last_dirs_written()
 
 last_file_written_in_dir()
 {
-        ls -trd $1/LOG_imapsync/* |tail -1
+        ls -trd $1/*.txt |tail -1
 }
 
 is_dir_running_imapsync()
@@ -460,7 +635,7 @@ pidfiles_running_and_not_running() {
         { ps -p $PID -o comm= | tr  '\n' ' '  && { test -f /proc/$PID/oom_score &&  
             { echo -12 > /proc/$PID/oom_adj ; } && echo -n "oom_score " && cat /proc/$PID/oom_score | tr  '\n' ' ' ; : ; }  
         } &&
-        { ls -tr $f/LOG_imapsync/* |tail -1 ;  } 
+        { ls -tr $f/*.txt |tail -1 ;  } 
      done
 }
 
@@ -487,7 +662,7 @@ pidfiles_not_running() {
         if  pidfile_dandling "$f" ; then
             pidfiles_not_running_PID=`head -1 $f/imapsync.pid`
             echo -n "rm $f/imapsync.pid # "
-            { ls -tr $f/LOG_imapsync/* 2>/dev/null |tail -1 ;  } | tr  '\n' ' ' 
+            { ls -tr $f/*.txt 2>/dev/null |tail -1 ;  } | tr  '\n' ' ' 
             echo "# PID $pidfiles_not_running_PID"
             #head -2 $f/imapsync.pid
 	fi
@@ -550,16 +725,16 @@ echoq summary_run
 summary_run() {
     for summary_run_DIR in "$@"; do
         echo Analysing $summary_run_DIR
-        echo -n "Nb logs: "; ls $summary_run_DIR/LOG_imapsync/*.txt | wc -l 
-        summary_run_LOGS_LIST=`ls $summary_run_DIR/LOG_imapsync/*.txt`
+        echo -n "Nb logs: "; ls $summary_run_DIR/*.txt | wc -l 
+        summary_run_LOGS_LIST=`ls $summary_run_DIR/*.txt`
         echo -n "List logs: "; echo $summary_run_LOGS_LIST
         #echo connect failure
-        summary_run_CONNECT_FAIL=`grep -i 'failure: can not open imap connection on' $summary_run_DIR/LOG_imapsync/*.txt|wc -l`
+        summary_run_CONNECT_FAIL=`grep -i 'failure: can not open imap connection on' $summary_run_DIR/*.txt|wc -l`
 	echo CONN $summary_run_CONNECT_FAIL
         #echo login failure
-        grep -i 'failure: Error login on' $summary_run_DIR/LOG_imapsync/*.txt
+        grep -i 'failure: Error login on' $summary_run_DIR/*.txt
         #echo Differences 
-        grep -i "difference host2 - host1" $summary_run_DIR/LOG_imapsync/*.txt
+        grep -i "difference host2 - host1" $summary_run_DIR/*.txt
     done
 }
 
@@ -567,14 +742,14 @@ summary_run() {
 
 logs_nb() {
     logs_nb_DIR="$1"
-    logs_nb_LOGS_LIST="$logs_nb_DIR"/LOG_imapsync/*.txt
+    logs_nb_LOGS_LIST="$logs_nb_DIR"/*.txt
 }
 
 
 
 vnstat_init() {
-        test FreeBSD = `uname -s` && VNSTATI_DIR=/usr/local/www/apache24/data/vnstat/
-        test Linux = `uname -s` && VNSTATI_DIR=/var/www/vnstat/
+        test FreeBSD = `uname -s` && VNSTATI_DIR=/usr/local/www/apache24/data/vnstat
+        test Linux = `uname -s` && VNSTATI_DIR=/var/www/vnstat
         test -d $VNSTATI_DIR || mkdir -p $VNSTATI_DIR
 }
 
@@ -587,6 +762,20 @@ vnstat_gen() {
         done
 }
 
+
+echoq vnstat_index_hs
+vnstat_index_hs()
+{
+        (
+        vnstat_init || return 
+        cd $VNSTATI_DIR/ || return 
+        for f in `ls -r ./*/vnstat_hs.png`
+        do 
+                echo '<img src="'$f'" border="0" alt="hourly"><br>'
+        done > index_hs.html
+        )
+}
+
 echoq vnstat_archive
 vnstat_archive() {
         (
@@ -596,7 +785,8 @@ vnstat_archive() {
         mkdir $VNSTATI_DIR/$now_ymdhms/ || return 
         cd $VNSTATI_DIR/$now_ymdhms/ || return 
         test "$1" && pwd
-        ln ../*.png ../*.html .
+        cp -a ../*.png ../*.html .
+        
         )
         test "$1" && pwd
 }
@@ -634,37 +824,55 @@ nb_syncs_badly_finished()
         | awk -v nb_logfiles_finished_recently=$nb_logfiles_finished_recently \
         '{ printf "%.2g%%  %s\n",  100*$1/nb_logfiles_finished_recently,  $0 }'
 cat <<EOF
-logfiles_finished_recently $1 | xargs grep -i 'Exiting with return value' | grep -v 'return value 0'
+logfiles_finished_recently $1 | xargs grep -i 'Exiting with return value' | grep -v 'return value 0 ' | cut -d: -f1 | xargs  tail -11
 EOF
 }
 
-echoq 'referrer_of_x /var/log/apache2/imapsync_access.log /var/log/apache/httpd-access.log  | sort | uniq -c | sort -n'
+echoq 'referrer_of_x  /var/log/apache/access.log_2021*.gz  | sort | uniq -c | sort -n'
 referrer_of_x() {
-        zegrep -h -s -o 'GET /X/? .*http[^"]+'  "${@:-/var/log/apache2/imapsync_access.log}" | grep -o 'http.*'
+        zegrep -h -s -o 'GET /X/? .*http[^"]+'  "${@:-/var/log/apache/access.log}" | grep -o 'http.*'
 }
 
 biggest_message_seen() {
-    datamash -W max 4 < G_Biggest_message.txt | xargs bytestohuman
+    
+    cat G_Biggest_message.txt | grep -v Memory| datamash -W max 4  | xargs bytestohuman
 }
 
 biggest_message_transferred() {
+# With this, the "Biggest message" could not be transferred by imapsync itself.
     grep 'Host2 Biggest message' < G_Biggest_message.txt | datamash -W max 4  | xargs bytestohuman
 }
 
 
-
 biggest_bandwidth_rate() {
     datamash_file_op_index G_Average_bandwidth_rate.txt max 5 | tr -d ' ' | tr '\n' ' '
     echo KiB/s
 }
 
+average_bandwidth_rate() {
+    datamash_file_op_index G_Average_bandwidth_rate.txt mean 5 | tr -d ' ' | tr '\n' ' '
+    echo KiB/s
+}
+
+
+
+max_number_of_messages_transferred() {
+        datamash_file_op_index G_Messages_transferred.txt max 4 "%.0f"
+}
+
+max_number_of_messages_skipped() {
+        datamash_file_op_index G_Messages_skipped.txt max 4 "%.0f"
+}
+
+
+
 echoq number_of_X_users
 number_of_X_users() {
     datamash_file_op_index G_REMOTE_ADDR.txt unique 3 | tr , '\n'  | wc -l
 }
 
-echoq summary_compute2
-summary_compute2() {
+echoq summary_compute
+summary_compute() {
         list_all_logs_generate \
         && grep_stats_from_list_all_logs \
         && grep_all_stat_from_patterns_list \
@@ -712,7 +920,7 @@ count_imap_server_all()
 
 }
 
-echoq server_survey_percent
+#echoq server_survey_percent
 server_survey_percent()
 {
         
@@ -738,7 +946,7 @@ server_survey_percent()
 
 }
 
-echoq server_survey
+#echoq server_survey
 server_survey()
 {
         banners_files=${1:-G_Host1_banner.txt}
@@ -794,8 +1002,6 @@ server_survey_host2()
 }
 
 
-
-
 echoq summary_display
 summary_display() {
     vnstat_gen > /dev/null
@@ -808,7 +1014,10 @@ summary_display() {
     echo -n "Biggest transfer:              " ; biggest_transfer
     echo -n "Biggest message seen:          " ; biggest_message_seen
     echo -n "Biggest message transferred:   " ; biggest_message_transferred
-    echo -n "Biggest bandwidth rate:        " ; biggest_bandwidth_rate  
+    echo -n "Biggest bandwidth rate:        " ; biggest_bandwidth_rate
+    echo -n "Average bandwidth rate:        " ; average_bandwidth_rate
+    echo -n "Max messages transferred:      " ; max_number_of_messages_transferred
+    echo -n "Max messages skipped:          " ; max_number_of_messages_skipped
     echo -n "Longest transfer:              " ; seconds_to_days_hours `longest_transfer`
     echo -n "Queue length mean is:          " ; stat_queue_mean
     echo "Data made at" `date -r grep_stats.txt`
@@ -825,7 +1034,7 @@ sync_ks2_i005()
   && date \
   && cd /home/imapsync_cgi_ks2/ \
   && rsync -a root@ks2:/var/tmp/imapsync_cgi/ /home/imapsync_cgi_ks2/ \
-  && summary_compute2 \
+  && summary_compute \
   && echo sending txt back to ks2 \
   && rsync -av /home/imapsync_cgi_ks2/*txt root@ks2:/var/tmp/imapsync_cgi/ \
   && summary_display \
@@ -864,6 +1073,61 @@ watch_number_of_imapsync_running()
                 sleep 6
                 date_if_new_hour
         done
+}
+
+
+
+#echoq number_of_bytes_sent_received_per_second_during
+number_of_bytes_sent_received_per_second_during()
+{
+        # $1 : number of seconds to watch
+        here_is_freebsd && netstat -I em0 -w ${1:-1} -q 1 | tail -1 | awk -v sec="${1:-1}" '{ printf "%.0f", ($4+$7)/sec }'
+        here_is_linux && number_of_bytes_sent_received_per_second_during_linux ${1:-1}
+}
+
+number_of_bytes_sent_received_per_second_during_linux()
+{
+        tx_1=`cat /sys/class/net/eth0/statistics/tx_bytes`
+        rx_1=`cat /sys/class/net/eth0/statistics/rx_bytes`
+        sleep ${1:-1}
+        tx_2=`cat /sys/class/net/eth0/statistics/tx_bytes`
+        rx_2=`cat /sys/class/net/eth0/statistics/rx_bytes`
+        c $tx_2 - $tx_1 + $rx_2 - $rx_1
+}
+
+div_1_by_2_or_zero()
+{
+        if test X"$2" = X"0"; then
+                echo "0"
+        else
+                echo "$1 $2" | awk '{ printf "%.0f\n", $1/$2 }'
+        fi
+}
+
+echoq number_of_imapsync_running_bandwidth
+number_of_imapsync_running_bandwidth()
+{
+        nir=`number_of_imapsync_running`
+        nbsr=`number_of_bytes_sent_received_per_second_during ${1:-1}`
+        ratio=`div_1_by_2_or_zero $nbsr $nir`
+        date=`date_ymdhms`
+        date_u=`LANG= date -u`
+        nbsr_human=`bytestohuman $nbsr`
+        ratio_human=`bytestohuman $ratio`
+        echo "$date $nir $nbsr $ratio $nbsr_human$ratio_human"
+        echo "Current number of syncs: $nir;  Current total bandwidth: $nbsr_human/s;  Current bandwidth per sync: $ratio_human/s; Current date/time: $date_u; ">/var/tmp/imapsync_current.txt
+}
+
+echoq loop_number_of_imapsync_running_bandwidth
+loop_number_of_imapsync_running_bandwidth()
+{
+        while :
+        do 
+                :
+                nirbd=`number_of_imapsync_running_bandwidth ${1:-1}`
+                echo $nirbd
+                echo $nirbd >> /var/tmp/number_of_imapsync_running_every_${1:-1}s.txt
+        done
 
 }
 
@@ -883,6 +1147,32 @@ datamash -s -W -g 4 count 4 < G_Host1_IMAP_server.txt | awk '{ print $2 " " $1 }
 datamash -s -W -g 4 count 4 < G_Host2_IMAP_server.txt | awk '{ print $2 " " $1 }' | sort -g | tail -22
 egrep -o '* ID .*' G_Read___ID.txt | sort |  awk '{ print $1 " " $2 " "  $3 " NIL" }' | datamash -s -W -g 3 count 3 | awk '{ print $2 " " $1 }' | sort -g
 locate perl.core | xargs -n 1 gdb -q -x /tmp/gdb_quit.txt -c
+zcat /var/log/apache/httpd-access.log.*.gz|egrep -o -w 'Mozilla/5.0 \([^;]+' | sort | egrep -o '\([a-zA-Z]+' | sort  | uniq -c | sort -g | grep -v KHTML
+zcat /var/log/apache/httpd-access.log.*.gz|grep 'POST /cgi-bin/imapsync' | egrep -o -w 'Mozilla/5.0 \([^;]+' | sort | egrep -o '\([a-zA-Z]+' | sort  | uniq -c | sort -g | grep -v KHTML
+
+egrep -o '\[.+@[^]]+]' G_success_login.txt |head -222222 | sort | uniq -c | sort -g
+
+list_all_logs |tail -9999 | xargs grep -i 'Exiting with return value 112' | tee  Error_112_last_9999_syncs.txt
+cut -d: -f1 Error_112_last_30_days.txt | xargs grep -oih 'Invalid system flag.*'  | sort | uniq -c
+
+list_all_logs | xargs grep -i 'Exiting with return value 112' | tee  Error_112_all_syncs.txt
+cut -d: -f1 Error_112_all_syncs.txt  | tail -100  | xargs egrep -oih 'Invalid system flag [^(]+'  | sort | uniq -c
+cat  G_success_login_on.txt | ./domains_servers_map | sort | uniq -c | sort -g
+logfiles_finished_recently -300| xargs grep -i 'Exiting with return value 10 ' | grep -v 'return value 0 ' | cut -d: -f1 | xargs  tail -11 | grep 'failure: can not open imap connection on' | uniq -c | sort -g | grep http | tee ../http_host_failures.txt
+
+# Searching big messages copied over 500 MB
+list_all_logs|tail -50000 | xargs egrep '{.?[56789]........}    copied'
+
+# online processes stats
+cat  /var/tmp/number_of_imapsync_running.txt | datamash -W min  2 max 2 mean 2 median 2 q1 2 q3 2
+for v in 2 3 4; do cat  /var/tmp/number_of_imapsync_running_every_6s.txt | datamash --format=%10.0f -W min  $v max $v mean $v median $v q1 $v q3 $v ; done
+netstat -I em0 -b -n -w 6 -q 1
+while :; do ssh root@ks5 'cd /var/tmp/imapsync_cgi/ ; . cgi_memo ; loop_number_of_imapsync_running_bandwidth 6' ; echo $?; done
+
+# Search memory eater
+cat G_Memory_consumption_at_the_end.txt | sort -g -k7 | grep 202[01] |tail -100  | cut -f1 -d: | while read f; do echo $f ; grep 'Memory consumption at the end' $f; grep 'Host. Nb messages' $f ; grep 'Biggest message' $f ; grep 'Memory/biggest message ratio' $f ; done
+cat G_Host2_Nb_messages.txt  | sort -g -k4 | grep 202[01] |tail -100 | cut -f1 -d: | while read f; do echo $f ; grep 'Memory consumption at the end' $f; grep 'Host. Nb messages' $f ; grep 'Biggest message' $f ; grep 'Memory/biggest message ratio' $f ; done
+cat G_Host1_Nb_messages.txt  | sort -g -k4 | grep 202[01] |tail -100 | cut -f1 -d: | while read f; do echo $f ; grep 'Memory consumption at the end' $f; grep 'Host. Nb messages' $f ; grep 'Biggest message' $f ; grep 'Memory/biggest message ratio' $f ; done
 EOF
 }
 
@@ -901,3 +1191,6 @@ perf_help() {
                 echo "iftop -i eth0 -f 'port imap or port imaps' -B #  t p >"
         }
 }
+
+tests_all_verbose_if_failure
+
diff --git a/X/crypto-js/core.js b/X/crypto-js/core.js
new file mode 100644
index 0000000..8ba28ed
--- /dev/null
+++ b/X/crypto-js/core.js
@@ -0,0 +1,777 @@
+/*globals window, global, require*/
+
+/**
+ * CryptoJS core components.
+ */
+var CryptoJS = CryptoJS || (function (Math, undefined) {
+
+    var crypto;
+
+    // Native crypto from window (Browser)
+    if (typeof window !== 'undefined' && window.crypto) {
+        crypto = window.crypto;
+    }
+
+    // Native (experimental IE 11) crypto from window (Browser)
+    if (!crypto && typeof window !== 'undefined' && window.msCrypto) {
+        crypto = window.msCrypto;
+    }
+
+    // Native crypto from global (NodeJS)
+    if (!crypto && typeof global !== 'undefined' && global.crypto) {
+        crypto = global.crypto;
+    }
+
+    // Native crypto import via require (NodeJS)
+    if (!crypto && typeof require === 'function') {
+        try {
+            crypto = require('crypto');
+        } catch (err) {}
+    }
+
+    /*
+     * Cryptographically secure pseudorandom number generator
+     *
+     * As Math.random() is cryptographically not safe to use
+     */
+    var cryptoSecureRandomInt = function () {
+        if (crypto) {
+            // Use getRandomValues method (Browser)
+            if (typeof crypto.getRandomValues === 'function') {
+                try {
+                    return crypto.getRandomValues(new Uint32Array(1))[0];
+                } catch (err) {}
+            }
+
+            // Use randomBytes method (NodeJS)
+            if (typeof crypto.randomBytes === 'function') {
+                try {
+                    return crypto.randomBytes(4).readInt32LE();
+                } catch (err) {}
+            }
+        }
+
+        throw new Error('Native crypto module could not be used to get secure random number.');
+    };
+
+    /*
+     * Local polyfill of Object.create
+
+     */
+    var create = Object.create || (function () {
+        function F() {}
+
+        return function (obj) {
+            var subtype;
+
+            F.prototype = obj;
+
+            subtype = new F();
+
+            F.prototype = null;
+
+            return subtype;
+        };
+    }())
+
+    /**
+     * CryptoJS namespace.
+     */
+    var C = {};
+
+    /**
+     * Library namespace.
+     */
+    var C_lib = C.lib = {};
+
+    /**
+     * Base object for prototypal inheritance.
+     */
+    var Base = C_lib.Base = (function () {
+
+
+        return {
+            /**
+             * Creates a new object that inherits from this object.
+             *
+             * @param {Object} overrides Properties to copy into the new object.
+             *
+             * @return {Object} The new object.
+             *
+             * @static
+             *
+             * @example
+             *
+             *     var MyType = CryptoJS.lib.Base.extend({
+             *         field: 'value',
+             *
+             *         method: function () {
+             *         }
+             *     });
+             */
+            extend: function (overrides) {
+                // Spawn
+                var subtype = create(this);
+
+                // Augment
+                if (overrides) {
+                    subtype.mixIn(overrides);
+                }
+
+                // Create default initializer
+                if (!subtype.hasOwnProperty('init') || this.init === subtype.init) {
+                    subtype.init = function () {
+                        subtype.$super.init.apply(this, arguments);
+                    };
+                }
+
+                // Initializer's prototype is the subtype object
+                subtype.init.prototype = subtype;
+
+                // Reference supertype
+                subtype.$super = this;
+
+                return subtype;
+            },
+
+            /**
+             * Extends this object and runs the init method.
+             * Arguments to create() will be passed to init().
+             *
+             * @return {Object} The new object.
+             *
+             * @static
+             *
+             * @example
+             *
+             *     var instance = MyType.create();
+             */
+            create: function () {
+                var instance = this.extend();
+                instance.init.apply(instance, arguments);
+
+                return instance;
+            },
+
+            /**
+             * Initializes a newly created object.
+             * Override this method to add some logic when your objects are created.
+             *
+             * @example
+             *
+             *     var MyType = CryptoJS.lib.Base.extend({
+             *         init: function () {
+             *             // ...
+             *         }
+             *     });
+             */
+            init: function () {
+            },
+
+            /**
+             * Copies properties into this object.
+             *
+             * @param {Object} properties The properties to mix in.
+             *
+             * @example
+             *
+             *     MyType.mixIn({
+             *         field: 'value'
+             *     });
+             */
+            mixIn: function (properties) {
+                for (var propertyName in properties) {
+                    if (properties.hasOwnProperty(propertyName)) {
+                        this[propertyName] = properties[propertyName];
+                    }
+                }
+
+                // IE won't copy toString using the loop above
+                if (properties.hasOwnProperty('toString')) {
+                    this.toString = properties.toString;
+                }
+            },
+
+            /**
+             * Creates a copy of this object.
+             *
+             * @return {Object} The clone.
+             *
+             * @example
+             *
+             *     var clone = instance.clone();
+             */
+            clone: function () {
+                return this.init.prototype.extend(this);
+            }
+        };
+    }());
+
+    /**
+     * An array of 32-bit words.
+     *
+     * @property {Array} words The array of 32-bit words.
+     * @property {number} sigBytes The number of significant bytes in this word array.
+     */
+    var WordArray = C_lib.WordArray = Base.extend({
+        /**
+         * Initializes a newly created word array.
+         *
+         * @param {Array} words (Optional) An array of 32-bit words.
+         * @param {number} sigBytes (Optional) The number of significant bytes in the words.
+         *
+         * @example
+         *
+         *     var wordArray = CryptoJS.lib.WordArray.create();
+         *     var wordArray = CryptoJS.lib.WordArray.create([0x00010203, 0x04050607]);
+         *     var wordArray = CryptoJS.lib.WordArray.create([0x00010203, 0x04050607], 6);
+         */
+        init: function (words, sigBytes) {
+            words = this.words = words || [];
+
+            if (sigBytes != undefined) {
+                this.sigBytes = sigBytes;
+            } else {
+                this.sigBytes = words.length * 4;
+            }
+        },
+
+        /**
+         * Converts this word array to a string.
+         *
+         * @param {Encoder} encoder (Optional) The encoding strategy to use. Default: CryptoJS.enc.Hex
+         *
+         * @return {string} The stringified word array.
+         *
+         * @example
+         *
+         *     var string = wordArray + '';
+         *     var string = wordArray.toString();
+         *     var string = wordArray.toString(CryptoJS.enc.Utf8);
+         */
+        toString: function (encoder) {
+            return (encoder || Hex).stringify(this);
+        },
+
+        /**
+         * Concatenates a word array to this word array.
+         *
+         * @param {WordArray} wordArray The word array to append.
+         *
+         * @return {WordArray} This word array.
+         *
+         * @example
+         *
+         *     wordArray1.concat(wordArray2);
+         */
+        concat: function (wordArray) {
+            // Shortcuts
+            var thisWords = this.words;
+            var thatWords = wordArray.words;
+            var thisSigBytes = this.sigBytes;
+            var thatSigBytes = wordArray.sigBytes;
+
+            // Clamp excess bits
+            this.clamp();
+
+            // Concat
+            if (thisSigBytes % 4) {
+                // Copy one byte at a time
+                for (var i = 0; i < thatSigBytes; i++) {
+                    var thatByte = (thatWords[i >>> 2] >>> (24 - (i % 4) * 8)) & 0xff;
+                    thisWords[(thisSigBytes + i) >>> 2] |= thatByte << (24 - ((thisSigBytes + i) % 4) * 8);
+                }
+            } else {
+                // Copy one word at a time
+                for (var i = 0; i < thatSigBytes; i += 4) {
+                    thisWords[(thisSigBytes + i) >>> 2] = thatWords[i >>> 2];
+                }
+            }
+            this.sigBytes += thatSigBytes;
+
+            // Chainable
+            return this;
+        },
+
+        /**
+         * Removes insignificant bits.
+         *
+         * @example
+         *
+         *     wordArray.clamp();
+         */
+        clamp: function () {
+            // Shortcuts
+            var words = this.words;
+            var sigBytes = this.sigBytes;
+
+            // Clamp
+            words[sigBytes >>> 2] &= 0xffffffff << (32 - (sigBytes % 4) * 8);
+            words.length = Math.ceil(sigBytes / 4);
+        },
+
+        /**
+         * Creates a copy of this word array.
+         *
+         * @return {WordArray} The clone.
+         *
+         * @example
+         *
+         *     var clone = wordArray.clone();
+         */
+        clone: function () {
+            var clone = Base.clone.call(this);
+            clone.words = this.words.slice(0);
+
+            return clone;
+        },
+
+        /**
+         * Creates a word array filled with random bytes.
+         *
+         * @param {number} nBytes The number of random bytes to generate.
+         *
+         * @return {WordArray} The random word array.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var wordArray = CryptoJS.lib.WordArray.random(16);
+         */
+        random: function (nBytes) {
+            var words = [];
+
+            for (var i = 0; i < nBytes; i += 4) {
+                words.push(cryptoSecureRandomInt());
+            }
+
+            return new WordArray.init(words, nBytes);
+        }
+    });
+
+    /**
+     * Encoder namespace.
+     */
+    var C_enc = C.enc = {};
+
+    /**
+     * Hex encoding strategy.
+     */
+    var Hex = C_enc.Hex = {
+        /**
+         * Converts a word array to a hex string.
+         *
+         * @param {WordArray} wordArray The word array.
+         *
+         * @return {string} The hex string.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var hexString = CryptoJS.enc.Hex.stringify(wordArray);
+         */
+        stringify: function (wordArray) {
+            // Shortcuts
+            var words = wordArray.words;
+            var sigBytes = wordArray.sigBytes;
+
+            // Convert
+            var hexChars = [];
+            for (var i = 0; i < sigBytes; i++) {
+                var bite = (words[i >>> 2] >>> (24 - (i % 4) * 8)) & 0xff;
+                hexChars.push((bite >>> 4).toString(16));
+                hexChars.push((bite & 0x0f).toString(16));
+            }
+
+            return hexChars.join('');
+        },
+
+        /**
+         * Converts a hex string to a word array.
+         *
+         * @param {string} hexStr The hex string.
+         *
+         * @return {WordArray} The word array.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var wordArray = CryptoJS.enc.Hex.parse(hexString);
+         */
+        parse: function (hexStr) {
+            // Shortcut
+            var hexStrLength = hexStr.length;
+
+            // Convert
+            var words = [];
+            for (var i = 0; i < hexStrLength; i += 2) {
+                words[i >>> 3] |= parseInt(hexStr.substr(i, 2), 16) << (24 - (i % 8) * 4);
+            }
+
+            return new WordArray.init(words, hexStrLength / 2);
+        }
+    };
+
+    /**
+     * Latin1 encoding strategy.
+     */
+    var Latin1 = C_enc.Latin1 = {
+        /**
+         * Converts a word array to a Latin1 string.
+         *
+         * @param {WordArray} wordArray The word array.
+         *
+         * @return {string} The Latin1 string.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var latin1String = CryptoJS.enc.Latin1.stringify(wordArray);
+         */
+        stringify: function (wordArray) {
+            // Shortcuts
+            var words = wordArray.words;
+            var sigBytes = wordArray.sigBytes;
+
+            // Convert
+            var latin1Chars = [];
+            for (var i = 0; i < sigBytes; i++) {
+                var bite = (words[i >>> 2] >>> (24 - (i % 4) * 8)) & 0xff;
+                latin1Chars.push(String.fromCharCode(bite));
+            }
+
+            return latin1Chars.join('');
+        },
+
+        /**
+         * Converts a Latin1 string to a word array.
+         *
+         * @param {string} latin1Str The Latin1 string.
+         *
+         * @return {WordArray} The word array.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var wordArray = CryptoJS.enc.Latin1.parse(latin1String);
+         */
+        parse: function (latin1Str) {
+            // Shortcut
+            var latin1StrLength = latin1Str.length;
+
+            // Convert
+            var words = [];
+            for (var i = 0; i < latin1StrLength; i++) {
+                words[i >>> 2] |= (latin1Str.charCodeAt(i) & 0xff) << (24 - (i % 4) * 8);
+            }
+
+            return new WordArray.init(words, latin1StrLength);
+        }
+    };
+
+    /**
+     * UTF-8 encoding strategy.
+     */
+    var Utf8 = C_enc.Utf8 = {
+        /**
+         * Converts a word array to a UTF-8 string.
+         *
+         * @param {WordArray} wordArray The word array.
+         *
+         * @return {string} The UTF-8 string.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var utf8String = CryptoJS.enc.Utf8.stringify(wordArray);
+         */
+        stringify: function (wordArray) {
+            try {
+                return decodeURIComponent(escape(Latin1.stringify(wordArray)));
+            } catch (e) {
+                throw new Error('Malformed UTF-8 data');
+            }
+        },
+
+        /**
+         * Converts a UTF-8 string to a word array.
+         *
+         * @param {string} utf8Str The UTF-8 string.
+         *
+         * @return {WordArray} The word array.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var wordArray = CryptoJS.enc.Utf8.parse(utf8String);
+         */
+        parse: function (utf8Str) {
+            return Latin1.parse(unescape(encodeURIComponent(utf8Str)));
+        }
+    };
+
+    /**
+     * Abstract buffered block algorithm template.
+     *
+     * The property blockSize must be implemented in a concrete subtype.
+     *
+     * @property {number} _minBufferSize The number of blocks that should be kept unprocessed in the buffer. Default: 0
+     */
+    var BufferedBlockAlgorithm = C_lib.BufferedBlockAlgorithm = Base.extend({
+        /**
+         * Resets this block algorithm's data buffer to its initial state.
+         *
+         * @example
+         *
+         *     bufferedBlockAlgorithm.reset();
+         */
+        reset: function () {
+            // Initial values
+            this._data = new WordArray.init();
+            this._nDataBytes = 0;
+        },
+
+        /**
+         * Adds new data to this block algorithm's buffer.
+         *
+         * @param {WordArray|string} data The data to append. Strings are converted to a WordArray using UTF-8.
+         *
+         * @example
+         *
+         *     bufferedBlockAlgorithm._append('data');
+         *     bufferedBlockAlgorithm._append(wordArray);
+         */
+        _append: function (data) {
+            // Convert string to WordArray, else assume WordArray already
+            if (typeof data == 'string') {
+                data = Utf8.parse(data);
+            }
+
+            // Append
+            this._data.concat(data);
+            this._nDataBytes += data.sigBytes;
+        },
+
+        /**
+         * Processes available data blocks.
+         *
+         * This method invokes _doProcessBlock(offset), which must be implemented by a concrete subtype.
+         *
+         * @param {boolean} doFlush Whether all blocks and partial blocks should be processed.
+         *
+         * @return {WordArray} The processed data.
+         *
+         * @example
+         *
+         *     var processedData = bufferedBlockAlgorithm._process();
+         *     var processedData = bufferedBlockAlgorithm._process(!!'flush');
+         */
+        _process: function (doFlush) {
+            var processedWords;
+
+            // Shortcuts
+            var data = this._data;
+            var dataWords = data.words;
+            var dataSigBytes = data.sigBytes;
+            var blockSize = this.blockSize;
+            var blockSizeBytes = blockSize * 4;
+
+            // Count blocks ready
+            var nBlocksReady = dataSigBytes / blockSizeBytes;
+            if (doFlush) {
+                // Round up to include partial blocks
+                nBlocksReady = Math.ceil(nBlocksReady);
+            } else {
+                // Round down to include only full blocks,
+                // less the number of blocks that must remain in the buffer
+                nBlocksReady = Math.max((nBlocksReady | 0) - this._minBufferSize, 0);
+            }
+
+            // Count words ready
+            var nWordsReady = nBlocksReady * blockSize;
+
+            // Count bytes ready
+            var nBytesReady = Math.min(nWordsReady * 4, dataSigBytes);
+
+            // Process blocks
+            if (nWordsReady) {
+                for (var offset = 0; offset < nWordsReady; offset += blockSize) {
+                    // Perform concrete-algorithm logic
+                    this._doProcessBlock(dataWords, offset);
+                }
+
+                // Remove processed words
+                processedWords = dataWords.splice(0, nWordsReady);
+                data.sigBytes -= nBytesReady;
+            }
+
+            // Return processed words
+            return new WordArray.init(processedWords, nBytesReady);
+        },
+
+        /**
+         * Creates a copy of this object.
+         *
+         * @return {Object} The clone.
+         *
+         * @example
+         *
+         *     var clone = bufferedBlockAlgorithm.clone();
+         */
+        clone: function () {
+            var clone = Base.clone.call(this);
+            clone._data = this._data.clone();
+
+            return clone;
+        },
+
+        _minBufferSize: 0
+    });
+
+    /**
+     * Abstract hasher template.
+     *
+     * @property {number} blockSize The number of 32-bit words this hasher operates on. Default: 16 (512 bits)
+     */
+    var Hasher = C_lib.Hasher = BufferedBlockAlgorithm.extend({
+        /**
+         * Configuration options.
+         */
+        cfg: Base.extend(),
+
+        /**
+         * Initializes a newly created hasher.
+         *
+         * @param {Object} cfg (Optional) The configuration options to use for this hash computation.
+         *
+         * @example
+         *
+         *     var hasher = CryptoJS.algo.SHA256.create();
+         */
+        init: function (cfg) {
+            // Apply config defaults
+            this.cfg = this.cfg.extend(cfg);
+
+            // Set initial values
+            this.reset();
+        },
+
+        /**
+         * Resets this hasher to its initial state.
+         *
+         * @example
+         *
+         *     hasher.reset();
+         */
+        reset: function () {
+            // Reset data buffer
+            BufferedBlockAlgorithm.reset.call(this);
+
+            // Perform concrete-hasher logic
+            this._doReset();
+        },
+
+        /**
+         * Updates this hasher with a message.
+         *
+         * @param {WordArray|string} messageUpdate The message to append.
+         *
+         * @return {Hasher} This hasher.
+         *
+         * @example
+         *
+         *     hasher.update('message');
+         *     hasher.update(wordArray);
+         */
+        update: function (messageUpdate) {
+            // Append
+            this._append(messageUpdate);
+
+            // Update the hash
+            this._process();
+
+            // Chainable
+            return this;
+        },
+
+        /**
+         * Finalizes the hash computation.
+         * Note that the finalize operation is effectively a destructive, read-once operation.
+         *
+         * @param {WordArray|string} messageUpdate (Optional) A final message update.
+         *
+         * @return {WordArray} The hash.
+         *
+         * @example
+         *
+         *     var hash = hasher.finalize();
+         *     var hash = hasher.finalize('message');
+         *     var hash = hasher.finalize(wordArray);
+         */
+        finalize: function (messageUpdate) {
+            // Final message update
+            if (messageUpdate) {
+                this._append(messageUpdate);
+            }
+
+            // Perform concrete-hasher logic
+            var hash = this._doFinalize();
+
+            return hash;
+        },
+
+        blockSize: 512/32,
+
+        /**
+         * Creates a shortcut function to a hasher's object interface.
+         *
+         * @param {Hasher} hasher The hasher to create a helper for.
+         *
+         * @return {Function} The shortcut function.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var SHA256 = CryptoJS.lib.Hasher._createHelper(CryptoJS.algo.SHA256);
+         */
+        _createHelper: function (hasher) {
+            return function (message, cfg) {
+                return new hasher.init(cfg).finalize(message);
+            };
+        },
+
+        /**
+         * Creates a shortcut function to the HMAC's object interface.
+         *
+         * @param {Hasher} hasher The hasher to use in this HMAC helper.
+         *
+         * @return {Function} The shortcut function.
+         *
+         * @static
+         *
+         * @example
+         *
+         *     var HmacSHA256 = CryptoJS.lib.Hasher._createHmacHelper(CryptoJS.algo.SHA256);
+         */
+        _createHmacHelper: function (hasher) {
+            return function (message, key) {
+                return new C_algo.HMAC.init(hasher, key).finalize(message);
+            };
+        }
+    });
+
+    /**
+     * Algorithm namespace.
+     */
+    var C_algo = C.algo = {};
+
+    return C;
+}(Math));
diff --git a/X/crypto-js/sha256.js b/X/crypto-js/sha256.js
new file mode 100644
index 0000000..ce5525d
--- /dev/null
+++ b/X/crypto-js/sha256.js
@@ -0,0 +1,179 @@
+(function (Math) {
+    // Shortcuts
+    var C = CryptoJS;
+    var C_lib = C.lib;
+    var WordArray = C_lib.WordArray;
+    var Hasher = C_lib.Hasher;
+    var C_algo = C.algo;
+
+    // Initialization and round constants tables
+    var H = [];
+    var K = [];
+
+    // Compute constants
+    (function () {
+        function isPrime(n) {
+            var sqrtN = Math.sqrt(n);
+            for (var factor = 2; factor <= sqrtN; factor++) {
+                if (!(n % factor)) {
+                    return false;
+                }
+            }
+
+            return true;
+        }
+
+        function getFractionalBits(n) {
+            return ((n - (n | 0)) * 0x100000000) | 0;
+        }
+
+        var n = 2;
+        var nPrime = 0;
+        while (nPrime < 64) {
+            if (isPrime(n)) {
+                if (nPrime < 8) {
+                    H[nPrime] = getFractionalBits(Math.pow(n, 1 / 2));
+                }
+                K[nPrime] = getFractionalBits(Math.pow(n, 1 / 3));
+
+                nPrime++;
+            }
+
+            n++;
+        }
+    }());
+
+    // Reusable object
+    var W = [];
+
+    /**
+     * SHA-256 hash algorithm.
+     */
+    var SHA256 = C_algo.SHA256 = Hasher.extend({
+        _doReset: function () {
+            this._hash = new WordArray.init(H.slice(0));
+        },
+
+        _doProcessBlock: function (M, offset) {
+            // Shortcut
+            var H = this._hash.words;
+
+            // Working variables
+            var a = H[0];
+            var b = H[1];
+            var c = H[2];
+            var d = H[3];
+            var e = H[4];
+            var f = H[5];
+            var g = H[6];
+            var h = H[7];
+
+            // Computation
+            for (var i = 0; i < 64; i++) {
+                if (i < 16) {
+                    W[i] = M[offset + i] | 0;
+                } else {
+                    var gamma0x = W[i - 15];
+                    var gamma0  = ((gamma0x << 25) | (gamma0x >>> 7))  ^
+                                  ((gamma0x << 14) | (gamma0x >>> 18)) ^
+                                   (gamma0x >>> 3);
+
+                    var gamma1x = W[i - 2];
+                    var gamma1  = ((gamma1x << 15) | (gamma1x >>> 17)) ^
+                                  ((gamma1x << 13) | (gamma1x >>> 19)) ^
+                                   (gamma1x >>> 10);
+
+                    W[i] = gamma0 + W[i - 7] + gamma1 + W[i - 16];
+                }
+
+                var ch  = (e & f) ^ (~e & g);
+                var maj = (a & b) ^ (a & c) ^ (b & c);
+
+                var sigma0 = ((a << 30) | (a >>> 2)) ^ ((a << 19) | (a >>> 13)) ^ ((a << 10) | (a >>> 22));
+                var sigma1 = ((e << 26) | (e >>> 6)) ^ ((e << 21) | (e >>> 11)) ^ ((e << 7)  | (e >>> 25));
+
+                var t1 = h + sigma1 + ch + K[i] + W[i];
+                var t2 = sigma0 + maj;
+
+                h = g;
+                g = f;
+                f = e;
+                e = (d + t1) | 0;
+                d = c;
+                c = b;
+                b = a;
+                a = (t1 + t2) | 0;
+            }
+
+            // Intermediate hash value
+            H[0] = (H[0] + a) | 0;
+            H[1] = (H[1] + b) | 0;
+            H[2] = (H[2] + c) | 0;
+            H[3] = (H[3] + d) | 0;
+            H[4] = (H[4] + e) | 0;
+            H[5] = (H[5] + f) | 0;
+            H[6] = (H[6] + g) | 0;
+            H[7] = (H[7] + h) | 0;
+        },
+
+        _doFinalize: function () {
+            // Shortcuts
+            var data = this._data;
+            var dataWords = data.words;
+
+            var nBitsTotal = this._nDataBytes * 8;
+            var nBitsLeft = data.sigBytes * 8;
+
+            // Add padding
+            dataWords[nBitsLeft >>> 5] |= 0x80 << (24 - nBitsLeft % 32);
+            dataWords[(((nBitsLeft + 64) >>> 9) << 4) + 14] = Math.floor(nBitsTotal / 0x100000000);
+            dataWords[(((nBitsLeft + 64) >>> 9) << 4) + 15] = nBitsTotal;
+            data.sigBytes = dataWords.length * 4;
+
+            // Hash final blocks
+            this._process();
+
+            // Return final computed hash
+            return this._hash;
+        },
+
+        clone: function () {
+            var clone = Hasher.clone.call(this);
+            clone._hash = this._hash.clone();
+
+            return clone;
+        }
+    });
+
+    /**
+     * Shortcut function to the hasher's object interface.
+     *
+     * @param {WordArray|string} message The message to hash.
+     *
+     * @return {WordArray} The hash.
+     *
+     * @static
+     *
+     * @example
+     *
+     *     var hash = CryptoJS.SHA256('message');
+     *     var hash = CryptoJS.SHA256(wordArray);
+     */
+    C.SHA256 = Hasher._createHelper(SHA256);
+
+    /**
+     * Shortcut function to the HMAC's object interface.
+     *
+     * @param {WordArray|string} message The message to hash.
+     * @param {WordArray|string} key The secret key.
+     *
+     * @return {WordArray} The HMAC.
+     *
+     * @static
+     *
+     * @example
+     *
+     *     var hmac = CryptoJS.HmacSHA256(message, key);
+     */
+    C.HmacSHA256 = Hasher._createHmacHelper(SHA256);
+}(Math));
diff --git a/X/domains_servers_map b/X/domains_servers_map
new file mode 100755
index 0000000..0e7f3ac
--- /dev/null
+++ b/X/domains_servers_map
@@ -0,0 +1,15 @@
+#!/usr/bin/perl 
+
+use strict ;
+use warnings ;
+
+# Is there a map between account xxx@domain and the imap host server 
+# cat G_success_login_on.txt | ./domains_servers_map | sort | uniq -c | sort -g
+
+while ( my $line = <> ) 
+{
+        if ( $line =~ /success login on \[(.*)\] with user \[.*\@(.*)\] auth / )
+        {
+                print "$2 $1\n" ;
+        }
+}
\ No newline at end of file
diff --git a/X/imapsync_csv_wrapper b/X/imapsync_csv_wrapper
new file mode 100755
index 0000000..edfd47c
--- /dev/null
+++ b/X/imapsync_csv_wrapper
@@ -0,0 +1,699 @@
+#!/bin/sh
+
+# $Id: imapsync_csv_wrapper,v 1.5 2020/05/01 21:26:30 gilles Exp gilles $
+
+exec 3>&1
+
+debug=/bin/true
+debug=/bin/false
+
+echo3() {
+        echo "$@" >&3
+}
+
+echodebug()
+{
+        $debug && echo3 "$@"
+}
+
+
+run_test() {
+        tests_count=`expr 1 + $tests_count`
+        # do not run anything between the two following instructions
+        "$@"; run_test_status=$?
+        # now you can run something since $? is saved
+        if test x"$run_test_status" = x"0"; then
+                echo "ok $tests_count $@"
+        else
+                echo "not ok $tests_count $@"
+                tests_failed_count=`expr 1 + $tests_failed_count`
+                tests_failed_list="$tests_failed_list $tests_count"
+        fi
+        return $run_test_status
+}
+
+
+run_tests() {
+        tests_count=0
+        tests_failed_count=0
+        tests_failed_list=
+        for t in "$@"; do
+                echo "### running $t"
+                "$t"
+        done
+        echo 
+        echo "#### ALL tests done"
+        if test 0 -eq $tests_failed_count; then
+                echo "ALL $tests_count TESTS SUCCESSFUL"
+                return 0
+        else
+                # At least one failed
+                echo "FAILED $tests_failed_count/$tests_count TESTS: $tests_failed_list"
+                return 1
+        fi
+}
+
+
+uri_unescape()
+{
+        #echo "$@" | perl -MURI::Escape -e 'print uri_unescape(<>)'
+        echo "$1" | perl -pe 's/\%(\w\w)/chr hex $1/ge' 
+}
+
+tests_uri_unescape()
+{
+        run_test test '' = ''
+        run_test test "" = ""
+        run_test test '1' = '1'
+        run_test test 'A B' = 'A B'
+        run_test test "'A B' = 'A B'"
+        run_test test '' = "`uri_unescape`"
+        run_test test "" = "`uri_unescape`"
+        run_test test 'A' = `uri_unescape A`
+        run_test test 'The cat' = "`uri_unescape The%20cat`"
+        run_test test "\r" = "\r"
+        run_test test '"\r" = "`uri_unescape %0D`"'
+        run_test test "\n" = "\n"
+        nl=`uri_unescape %0A`
+        nl="\n"
+        run_test test "_\n_" = "_${nl}_"
+        run_test test '!"#$%&'\''()' = "`uri_unescape %21%22%23%24%25%26%27%28%29`"
+        run_test test '*+,/:;=?@[]' = "`uri_unescape %2A%2B%2C%2F%3A%3B%3D%3F%40%5B%5D`"
+
+        run_test test '"_a\n\n\nz_" = "_`uri_unescape a%0A%0A%0Az`_"'
+        run_test test '"_`uri_unescape a%0A%0A%0Az`_" = "_`uri_unescape a%0A%0A%0Az`_"'
+        run_test test 'A B' = 'A B'
+        uri_unescape 'a%0A%0A%0Az'    > /tmp/$$_zzz1.txt
+        /bin/echo -e "a\n\n\nz"       > /tmp/$$_zzz2.txt
+        run_test diff /tmp/$$_zzz1.txt /tmp/$$_zzz2.txt
+        rm /tmp/$$_zzz1.txt /tmp/$$_zzz2.txt
+        z3=`uri_unescape a%0A%0A%0Az`
+        z4="a\n\n\nz"
+        run_test test '"$z3" = "$z4"'
+        run_test test '"\n" = "`uri_unescape %0A`"'
+        #run_test test '\n' = "`uri_unescape %0A`"
+        run_test test '"a\r\nz" = "a\r\nz"'
+        run_test test '"_a\r\nz_" = "`uri_unescape _a%0D%0Az_`"'
+        run_test test 'A' = `uri_unescape A`
+}
+
+
+value_of_key()
+{
+        key="$1"
+        test 1 -le "$#" && shift 
+        keyval="$1"
+        #echo "key:$key"
+        #echo "keyval:$keyval"
+        #set -x
+        echo "$keyval" | perl -ne "s/^.*$key"'=([^&]+).*$/$1/ and print'
+        #set +x
+}
+
+tests_value_of_key()
+{
+        run_test test "" = "`value_of_key`"
+        run_test test "" = "`value_of_key badkey`"
+        run_test test "" = "`value_of_key badkey mykey=myvalue`"
+        run_test test "myvalue" = "`value_of_key mykey mykey=myvalue`"
+        run_test test "myvalue" = `value_of_key mykey "mykey=myvalue"`
+        run_test test "myvalue" = `value_of_key mykey "mykey=myvalue&other=rrr"`
+        run_test test "myvalue" = `value_of_key mykey "otra=zzz&mykey=myvalue"`
+        run_test test "myvalue" = `value_of_key mykey "otra=zzz&mykey=myvalue&other=rrr"`
+        
+}
+
+
+remove_blanks_and_comments()
+{
+        /bin/echo -n ''
+        echo "$1" | perl -ne '!/^ *#.*$|^[\r ]*$/ && print'
+}
+
+tests_remove_blanks_and_comments()
+{
+        #set -x
+        run_test test "" = "`remove_blanks_and_comments`"
+        run_test test "a" = "`remove_blanks_and_comments a`"
+
+        myval="
+"
+        run_test test "" = "`remove_blanks_and_comments $myval`"
+        
+        myval="a
+"
+        run_test test "a" = "`remove_blanks_and_comments $myval`"
+        
+        myval="
+a
+"
+        run_test test "a" = "`remove_blanks_and_comments $myval`"
+        
+        myval="
+a
+"
+        run_test test "a" = "`remove_blanks_and_comments $myval`"
+        
+        myval="a
+b"
+        run_test test '"$myval" = `remove_blanks_and_comments $myval`'
+        
+        myval="# caca
+a
+"
+        run_test test '"a" = "`remove_blanks_and_comments $myval`"'
+
+        myval="# caca
+a
+
+b
+  # ooo
+  
+c
+"
+
+myval_filtered="a
+b
+c
+"
+        run_test test '"$myval_filtered" = "`remove_blanks_and_comments $myval`"'
+
+
+        run_test remove_blanks_and_comments
+        run_test remove_blanks_and_comments ' '
+        run_test remove_blanks_and_comments ' # blabla  '
+
+        run_test test "" = "`remove_blanks_and_comments ' ' `"
+        run_test test "" = "`remove_blanks_and_comments '  # blabla ' `"
+
+}
+
+is_blank_or_comment()
+{
+        test "" = "`remove_blanks_and_comments $1 `"
+}
+
+tests_is_blank_or_comment()
+{
+        run_test is_blank_or_comment
+        run_test is_blank_or_comment ''
+        run_test is_blank_or_comment '  '
+        run_test is_blank_or_comment '# blabla 1 '
+        run_test is_blank_or_comment '  # blabla 2 '
+        is_blank_or_comment 'blabla 1 ' ; run_test test 1 = $?
+        is_blank_or_comment '  blabla 2 ' ; run_test test 1 = $?
+        is_blank_or_comment '  blabla 3 # blibli ' ; run_test test 1 = $?
+}
+
+
+logfailures()
+{
+        :
+}
+
+tests_logfailures()
+{
+        :
+}
+
+
+
+run_on_each_line()
+{
+        echodebug '### Entering run_on_each_line ###'
+        test -f abort_$$.txt && { echo abort demanded so not doing normal stuff ; return ; }
+        /bin/echo -n ''
+        
+        test -z "$1" && { echo3 'First parameter is empty. Leaving run_on_each_line().' ;  return ; }
+        csv_data_multilines="$1"
+        echodebug "csv_data_multilines=[$csv_data_multilines]"
+        
+        test 1 -le "$#" && shift
+        failures_file=${1:-""}
+        echodebug failures_file="$failures_file"
+        
+        test -x "$failures_file" && { echo3 "failure file $failures_file is an executable. Leaving run_on_each_line()." ;  return ; }
+        
+        test 1 -le "$#" && shift
+        command=${1:-echo}
+        echodebug command="$command" "$@"
+
+        test 1 -le "$#" && shift
+        
+        
+        line_number=0
+        csv_number=0
+        failures_number=0
+        echo "$csv_data_multilines" | while IFS=';' read h1 u1 p1 h2 u2 p2 fake; do
+                test -f abort_$$.txt && { echo abort demanded so not doing normal stuff ; return ; }
+                line_number=`expr 1 + $line_number`
+                if is_blank_or_comment "$h1$u1$p1$h2$u2$p2$fake" ; then
+                        echo3 "Ignoring   line " $line_number "$h1$u1$p1$h2$u2$p2$fake"
+                else 
+                        csv_number=`expr 1 + $csv_number`
+                        echo3 "Processing line " $line_number run $csv_number "[$h1] [$u1] [xxx] [$h2] [$u2] [xxx] [$fake] $$"
+                        $command "$@" --host1 "$h1" --user1 "$u1" --password1 "$p1" --host2 "$h2" --user2 "$u2" --password2 "$p2"
+                        command_status=$?
+                        test "0" != "$command_status" && failures_number=`expr 1 + $failures_number`
+                        logfailures "$failures_file" "$command_status" "$line_number" "$csv_number" 
+                fi
+        done
+        echodebug Leaving run_on_each_line
+        test "0" != "$failures_number" && return 1
+        return 0
+}
+
+tests_run_on_each_line()
+{
+        # 1-4
+        run_test test '' = "`run_on_each_line`"
+        run_test test '' = "`run_on_each_line ''`"
+        run_test test '' = "`run_on_each_line '' 'log.txt'`"
+        run_test test '' = "`run_on_each_line '' 'log.txt' echo imapsync`"
+
+
+        # 5-7 blank data
+        run_test test '' = "`run_on_each_line '   '`"
+        run_test test '' = "`run_on_each_line '   ' 'log.txt'`"
+        run_test test '' = "`run_on_each_line '   ' 'log.txt' echo imapsync`"
+
+        # 8-10 comment data
+        run_test test '' = "`run_on_each_line '#   '`"
+        run_test test '' = "`run_on_each_line '#   ' 'log.txt'`"
+        run_test test '' = "`run_on_each_line '#   ' 'log.txt' echo imapsync`"
+
+        # 11-13 empty line
+        myval='
+'
+
+        myret=`run_on_each_line "$myval"`
+        run_test test "" = "$myret"
+        
+        myret=`run_on_each_line "$myval" 'log.txt'`
+        run_test test "" = "$myret"
+        
+        myret=`run_on_each_line "$myval" 'log.txt' echo imapsync`
+        run_test test "" = "$myret"
+
+
+        # 14-16 blanks or comments
+        myval='
+   
+
+# blabla 1
+    # blabla 2
+
+'
+
+        myret=`run_on_each_line "$myval"`
+        run_test test "" = "$myret"
+        
+        myret=`run_on_each_line "$myval" 'log.txt'`
+        run_test test "" = "$myret"
+        
+        myret=`run_on_each_line "$myval" 'log.txt' echo imapsync`
+        run_test test "" = "$myret"
+
+
+        # 17-21
+        # csv data no blank no comment
+        lines='a1;b1;c1;d1;e1;f1
+a2;b2;c2;d2;e2;f2
+a3;b3;c3;d3;e3;f3'
+
+        # No failure file (so /dev/null), no command (so echo)
+        lines_out='--host1 a1 --user1 b1 --password1 c1 --host2 d1 --user2 e1 --password2 f1
+--host1 a2 --user1 b2 --password1 c2 --host2 d2 --user2 e2 --password2 f2
+--host1 a3 --user1 b3 --password1 c3 --host2 d3 --user2 e3 --password2 f3'
+        run_test test "$lines_out" = "`run_on_each_line "$lines"`"
+
+        # failure file is a command => BAD => do nothing
+        cp /bin/echo "/tmp/myecho$$"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$`"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$ echo`"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$ echo imapsync blabla bla`"
+        rm "/tmp/myecho$$"
+
+        # No failure file (so /dev/null), command = echo imapsync
+        lines_out='imapsync --host1 a1 --user1 b1 --password1 c1 --host2 d1 --user2 e1 --password2 f1
+imapsync --host1 a2 --user1 b2 --password1 c2 --host2 d2 --user2 e2 --password2 f2
+imapsync --host1 a3 --user1 b3 --password1 c3 --host2 d3 --user2 e3 --password2 f3'
+        run_test test "$lines_out" = "`run_on_each_line "$lines" '' echo imapsync`"
+
+        # 22-27
+        # csv data + blanks + comments
+        lines='a1;b1;c1;d1;e1;f1
+# blabla 2
+a2;b2;c2;d2;e2;f2
+  # bloblo 3
+a3;b3;c3;d3;e3;f3
+ # end'
+
+        # No failure file (so /dev/null), no command (so echo)
+        lines_out='--host1 a1 --user1 b1 --password1 c1 --host2 d1 --user2 e1 --password2 f1
+--host1 a2 --user1 b2 --password1 c2 --host2 d2 --user2 e2 --password2 f2
+--host1 a3 --user1 b3 --password1 c3 --host2 d3 --user2 e3 --password2 f3'
+        run_test test "$lines_out" = "`run_on_each_line "$lines"`"
+
+        # failure file is a command => BAD => do nothing
+        cp /bin/echo "/tmp/myecho$$"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$`"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$ echo`"
+        run_test test "" = "`run_on_each_line "$lines" /tmp/myecho$$ echo imapsync blabla bla`"
+        rm "/tmp/myecho$$"
+
+        # No failure file (so /dev/null), command = echo imapsync
+        lines_out='imapsync --host1 a1 --user1 b1 --password1 c1 --host2 d1 --user2 e1 --password2 f1
+imapsync --host1 a2 --user1 b2 --password1 c2 --host2 d2 --user2 e2 --password2 f2
+imapsync --host1 a3 --user1 b3 --password1 c3 --host2 d3 --user2 e3 --password2 f3'
+        run_test test "$lines_out" = "`run_on_each_line "$lines" '' echo imapsync`"
+
+        
+
+}
+
+hashsync()
+{
+        #set -x
+        mystring=${1:-''}
+        mykey=${2:-''}
+        # impressive! is not it? quoting shit!
+        perl -MDigest::HMAC_SHA1 -e 'print Digest::HMAC_SHA1::hmac_sha1_hex( "'"$mystring"'", "'"$mykey"'" )'
+        #set +x
+}
+
+
+tests_hashsync()
+{
+        run_test test 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' = `hashsync`
+        run_test test 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' = `hashsync ''`
+        run_test test 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' = `hashsync '' ''`
+        run_test test 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe' = `hashsync 'zzz' ''`
+        run_test test '6a7b451ac99eab1531ad8e6cd544b32420c552ac' = `hashsync 'zzz' 'A'`
+}
+
+tests_caca()
+{
+        run_test test 'z' = ''
+        run_test test '1' = '1'
+}
+
+change_working_directory_if_under_cgi()
+{
+        test -n "$SERVER_SOFTWARE" && 
+        {
+                pwd
+                #env
+                ! test -d "$1" && {
+                        echo creating directory "$1"
+                        mkdir -p "$1"
+                }
+                echo changing current directory to "$1"
+                cd "$1"
+                pwd
+        }
+}
+
+write_my_pid()
+{
+        echo Writing my pid $$ in imapsync_csv_wrapper.pid
+        echo $$ > imapsync_csv_wrapper.pid
+}
+
+
+kill_pid_in_files()
+{
+        echo Will kill -TERM pid found in "$@"
+        for pidfile in "$@"; do
+                # FIXME add test -f $pidfile at least
+                if test -f $pidfile; then
+                        pidlist="$pidlist `head -1 $pidfile`"
+                        test -f "$pidfile" && echo Doing kill -TERM `head -1 "$pidfile"` "$pidfile"
+                        test -f "$pidfile" &&  kill -TERM `head -1 "$pidfile"`
+                else
+                        echo "No $pidfile here"
+                fi
+        done
+}
+
+abort_other_process()
+{
+        echodebug 'Entering abort_other_process()'
+        $debug && ls -ltr
+
+        # No active imapsync_csv_wrapper => nothing to abort
+        if ! test -f imapsync_csv_wrapper.pid ; then
+                echo No imapsync_csv_wrapper.pid here. Nothing to abort.
+                echodebug 'Leaving abort_other_process()'
+                return 0
+        else
+                # a message to the active imapsync_csv_wrapper
+                main_pid_to_abort=`head -1 imapsync_csv_wrapper.pid`
+                touch abort_${main_pid_to_abort}.txt
+                echodebug 'sleep 3' && sleep 3
+                kill_pid_in_files imapsync.pid 
+                echodebug 'sleep 3 again then nother try to kill' && sleep 3
+                kill_pid_in_files imapsync.pid 
+                ls -ltr
+                echodebug 'Leaving abort_other_process()'
+                return 0
+        fi
+}
+
+quit()
+{
+        echo "Leaving. I am $0 pid $$"
+        for pidfile in "$@"; do
+                test -f "$pidfile"  && echo rm "$pidfile" && rm "$pidfile"
+        done
+}
+
+tests()
+{
+        :
+
+        # All tests
+        run_tests \
+                tests_uri_unescape \
+                tests_value_of_key \
+                tests_remove_blanks_and_comments \
+                tests_run_on_each_line \
+                tests_hashsync \
+                tests_is_blank_or_comment \
+                tests_logfailures
+}
+
+
+header()
+{
+        # HTTP header, may be empty
+        echo 
+}
+
+
+getcsvdata()
+{
+        read imapsync_csv_wrapper_from_ui
+        
+        echodebug '######################################################################'
+        echodebug Here are the UI parameters, raw:
+        echodebug "var:"
+        echodebug "$imapsync_csv_wrapper_from_ui"
+        echodebug;echodebug
+
+        csv_data=`value_of_key csv_data "$imapsync_csv_wrapper_from_ui"`
+
+        echodebug '######################################################################'
+        echodebug Here csv_data:
+        echodebug "$csv_data"
+
+        csv_data_unescaped=`uri_unescape "$csv_data"`
+
+        echodebug '######################################################################'
+        echodebug Here csv_data, unescaped:
+        echodebug "$csv_data_unescaped"
+
+
+        csv_data_pure=`remove_blanks_and_comments "$csv_data_unescaped"`
+        
+        
+        echodebug '######################################################################'
+        echodebug Here csv_data no blanks nor comments:
+        echodebug "$csv_data_pure"
+}
+
+
+tests_all_verbose_if_failure()
+{
+        # Run tests silent but if failure then rerun them verbose.
+        # return 0 if all tests passed
+        # return 1 if some tests failed
+        
+        if ! tests > /dev/null 3>&1 ; then
+                tests
+                return 1
+        fi
+        return 0
+}
+
+
+abort_other_if_asked_to()
+{
+        echodebug Looking for abort
+        abort=`value_of_key abort "$imapsync_csv_wrapper_from_ui"`
+        echodebug abort=$abort
+        if test 'on' = "$abort" ; then
+                abort_other_process
+                echo "Abort done. Leaving"
+                return 0
+        else
+                echodebug 'Not asked to abort other process'
+                echodebug 'Leaving abort_other_if_asked_to()'
+                return 1
+        fi
+}
+
+is_another_running()
+{
+        # I should check that the pid is actually a running one 
+        # but that's ok for now 
+        if test -f imapsync_csv_wrapper.pid; then
+                echo Looks like another imapsync_csv_wrapper is running. Leaving
+                return 0
+        else
+                echodebug Looks like I am alone. Good. Let us go on.
+                return 1
+        fi
+}
+
+
+
+
+signal_handling()
+{
+        #  2=INT 3=QUIT 15=TERM
+        trap "quit imapsync_csv_wrapper.pid abort_$$.txt" 15 2 3 0
+        $debug && trap 
+
+        return 0
+}
+
+
+banner_round()
+{
+        banner_line='
+################################################################################'
+        banner_title=${1:-$banner_line}
+        echo3 "$banner_line$banner_title$banner_line"
+
+}
+
+justlogin()
+{
+        banner_round '
+######################## just login check round ################################'
+        date
+        test -f abort_$$.txt && { echo Abort demanded so not doing normal stuff ; return ; }
+        echo Now run imapsync --justlogin to check all credentials are ok
+        if run_on_each_line "$csv_data_unescaped" "" \
+                imapsync --no-modulesversion --justlogin --tmpdir . 
+        then
+                echo success of the just login check round
+                return 0
+        else
+                echo failure of the just login check round
+                return 1
+        fi
+}
+
+justfoldersizes()
+{
+        banner_round '
+######################## just folders sizes counting round #####################'
+        date
+        test -f abort_$$.txt && { echo Abort demanded so not doing normal stuff ; return ; }
+        echo Now run imapsync --justlogin to check all credentials are ok
+        run_on_each_line "$csv_data_unescaped" "" \
+                imapsync --no-modulesversion --justfoldersizes --tmpdir . \
+                || return 1
+}
+
+
+sync_all()
+{
+        banner_round '
+######################## now sync them all round ###############################'
+        date
+        test -f abort_$$.txt && { echo Abort demanded so not doing normal stuff ; return ; }
+        echo Now run imapsync --justlogin to check all credentials are ok
+        run_on_each_line "$csv_data_unescaped" "" \
+                imapsync --no-modulesversion --tmpdir . \
+                || return 1
+}
+
+
+
+tests_initialisation()
+{
+        #### Variables initialisation
+        tests_count=0
+        tests_failed_count=0
+        tests_failed_list=
+}
+
+main()
+{
+        header
+        # All stderr to stdin, yeah I am like that
+        exec 2>&1
+        
+        # Some tests
+        #run_tests tests_is_blank_or_comment
+        #run_tests tests_run_on_each_line
+        #run_tests tests_remove_blanks_and_comments
+        #tests_hashsync
+        #return
+
+        tests_all_verbose_if_failure || return 1
+        
+        echodebug my pid is $$
+        
+        #return
+        
+        getcsvdata
+        
+        hashsync=`hashsync $csv_data_pure`
+
+        change_working_directory_if_under_cgi /var/tmp/imapsync_cgi/$hashsync/
+
+        abort_other_if_asked_to && return 0
+
+        is_another_running && return 0
+        
+        write_my_pid
+
+        signal_handling
+        
+        SERVER_SOFTWARE_BAK="$SERVER_SOFTWARE"
+        unset SERVER_SOFTWARE
+        
+        # Now the real stuff
+        justlogin || return 1
+        
+        justfoldersizes 
+        
+        sync_all || return 1
+
+        $debug && ls -ltr
+
+        quit imapsync_csv_wrapper.pid abort_$$.txt
+        echo $0 ended at the end
+}
+
+
+tests_initialisation
+main
+return 0
+
+
+
diff --git a/X/imapsync_current.txt b/X/imapsync_current.txt
new file mode 120000
index 0000000..1710a6b
--- /dev/null
+++ b/X/imapsync_current.txt
@@ -0,0 +1 @@
+/var/tmp/imapsync_current.txt
\ No newline at end of file
diff --git a/X/imapsync_form.css b/X/imapsync_form.css
index 8cdd214..55ad0a3 100644
--- a/X/imapsync_form.css
+++ b/X/imapsync_form.css
@@ -1,6 +1,11 @@
 
 
-/* $Id: imapsync_form.css,v 1.8 2019/11/25 13:49:18 gilles Exp gilles $ */
+/* $Id: imapsync_form.css,v 1.9 2020/06/15 11:55:50 gilles Exp gilles $ */
+
+body {
+  color: black;
+  background-color: #eeffff;
+}
 
 #account1 {
         background-color: DodgerBlue ;
diff --git a/X/imapsync_form.js b/X/imapsync_form.js
index 34da540..2dd6f9e 100644
--- a/X/imapsync_form.js
+++ b/X/imapsync_form.js
@@ -1,5 +1,5 @@
 
-// $Id: imapsync_form.js,v 1.11 2019/07/29 22:42:50 gilles Exp gilles $
+// $Id: imapsync_form.js,v 1.20 2021/05/29 10:25:53 gilles Exp gilles $
 
 /*jslint browser: true*/ /*global  $*/
 
@@ -19,7 +19,7 @@ $(document).ready(
     "4": "Finished and response is ready"
         } ;
 
-        var refresh_interval_ms = 5000 ;
+        var refresh_interval_ms = 6000 ;
         var refresh_interval_s = refresh_interval_ms  / 1000 ;
         var test = {
             counter_all : 0 ,
@@ -51,8 +51,13 @@ $(document).ready(
         }
         $("#tests").append( message ) ;
     } ;
+    
+    var note = function note( message )
+    {
+        $("#tests").append( message ) ;
+    }
 
-    function last_eta( string )
+    var last_eta = function last_eta( string )
     {
         // return the last occurrence of the substring "ETA: ...\n"
         // or "ETA: unknown" or ""
@@ -78,7 +83,7 @@ $(document).ready(
         }
     }
 
-    function tests_last_eta()
+    var tests_last_eta = function tests_last_eta()
     {
         is( "", last_eta(  ),  "last_eta: no args => empty string" ) ;
 
@@ -278,11 +283,13 @@ $(document).ready(
         return ;
     } ;
 
-    function refreshLog( xhr )
+    var refreshLog = function refreshLog( xhr )
     {
         var eta_obj ;
         var eta_str ;
 
+        $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
+        
         eta_obj = extract_eta( xhr ) ;
 
         progress_bar_update( eta_obj ) ;
@@ -308,7 +315,7 @@ $(document).ready(
 
 
 
-    function handleRun(xhr, timerRefreshLog)
+    var handleRun = function handleRun(xhr, timerRefreshLog)
     {
 
         $("#console").text(
@@ -324,10 +331,13 @@ $(document).ready(
         refreshLog( xhr ) ; // a last time
         // back to enable state for next run
         $("#bt-sync").prop("disabled", false) ;
+        
+        $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
+
         }
     }
 
-    function imapsync()
+    var imapsync = function imapsync()
     {
         var querystring = $("#form").serialize() ;
         $("#abort").text("\n\n") ; // clean abort console
@@ -351,6 +361,8 @@ $(document).ready(
         {
             querystring = querystring + "&office2=on" ;
         }
+        
+        // querystring = querystring + "&tmphash=" + tmphash(  ) ;
 
 
         var xhr ;
@@ -373,7 +385,7 @@ $(document).ready(
     }
 
 
-    function handleAbort( xhr )
+    var handleAbort = function handleAbort( xhr )
     {
 
         $( "#abort" ).text(
@@ -388,7 +400,7 @@ $(document).ready(
         }
     }
 
-    function abort()
+    var abort = function abort()
     {
         var querystring = $("#form").serialize() + "&abort=on";
         var xhr;
@@ -402,7 +414,7 @@ $(document).ready(
         xhr.send(querystring);
     }
 
-    function store( id )
+    var store = function store( id )
     {
         var stored ;
         //$( "#tests" ).append( "Eco: " + id + " type is " + $( id ).attr( "type" ) + "\n" ) ;
@@ -420,7 +432,7 @@ $(document).ready(
         return stored ;
     }
 
-    function retrieve( id )
+    var retrieve = function retrieve( id )
     {
         var retrieved ;
         //$( "#tests" ).append( "Eco: " + id + " type is " + $( id ).attr( "type" ) + " length is " + $( id ).length + "\n" ) ;
@@ -438,7 +450,7 @@ $(document).ready(
         return retrieved ;
     }
 
-    function tests_store_retrieve()
+    var tests_store_retrieve = function tests_store_retrieve()
     {
         if ( $("#tests").length !== 0 )
         {
@@ -479,7 +491,7 @@ $(document).ready(
     }
 
 
-    function store_form()
+    var store_form = function store_form()
     {
         if ( Storage !== "undefined")
         {
@@ -506,7 +518,7 @@ $(document).ready(
         }
     }
 
-    function show_extra_if_needed()
+    var show_extra_if_needed = function show_extra_if_needed()
     {
         if ( $("#subfolder1").length && $("#subfolder1").val().length > 0 )
         {
@@ -518,7 +530,7 @@ $(document).ready(
         }
     }
 
-    function retrieve_form()
+    var retrieve_form = function retrieve_form()
     {
         if ( Storage !== "undefined" )
         {
@@ -555,14 +567,14 @@ $(document).ready(
                     localStorage.account2_background_color ) ;
             }
 
-            // Show the extra parameters if they are not empty because it would be dangerous
-            // to retrieve them without knowing
+            // Show the extra parameters if they are not empty because it would
+            //  be dangerous to retrieve them without showing them
             show_extra_if_needed() ;
         }
     }
 
 
-    function showpassword( id, button )
+    var showpassword = function showpassword( id, button )
     {
         var x = document.getElementById( id );
         if ( button.checked )
@@ -573,7 +585,67 @@ $(document).ready(
         }
     }
 
-    function init()
+
+
+    var tests_cryptojs = function tests_cryptojs()
+    {
+        if ( $("#tests").length !== 0 )
+        {
+            if (typeof CryptoJS === 'undefined')
+            {
+                is( true, typeof CryptoJS !== 'undefined', "CryptoJS is available" ) ;
+                note( "CryptoJS is not available on this site. Ask the admin to fix this.\n" ) ;
+            }
+            else if (typeof CryptoJS.SHA256 !== "function")
+            { 
+                is( "function", typeof CryptoJS.SHA256, "CryptoJS.SHA256 is a function" ) ;
+                note( "CryptoJS.SHA256 function is not available on this site. Ask the admin to fix this.\n" ) ;
+            }
+            else
+            {
+                // safe to use the function
+                is( "function", typeof CryptoJS.SHA256, "CryptoJS.SHA256 is a function" ) ;
+                is( "2f77668a9dfbf8d5848b9eeb4a7145ca94c6ed9236e4a773f6dcafa5132b2f91", sha256("Message"), "sha256 Message" ) ;
+                is( "26429a356b1d25b7d57c0f9a6d5fed8a290cb42374185887dcd2874548df0779", sha256("caca"), "sha256 caca" ) ;
+                is( "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855", sha256(""), "sha256 ''" ) ;
+                is( tmphash(), tmphash(), "tmphash" ) ;
+                
+                $("#user1").val("test1") ;
+                $("#password1").val("secret1") ;
+                $("#host1").val("test1.lamiral.info") ;
+                $("#user2").val("test2") ;
+                $("#password2").val("secret2") ;
+                $("#host2").val("test2.lamiral.info") ;
+                is( "20d2b4917cf69114876b4c8779af543e89c5871c6ada68107619722e55af1101", tmphash(), "tmphash like testslive" ) ;
+                $("#user1").val("") ;
+                $("#password1").val("") ;
+                $("#host1").val("") ;
+                $("#user2").val("") ;
+                $("#password2").val("") ;
+                $("#host2").val("") ;
+
+            }
+        }
+    }
+    
+    var sha256 = function sha256( string )
+    {
+            var hash = CryptoJS.SHA256( string ) ;
+            var hash_hex = hash.toString( CryptoJS.enc.Hex ) ;
+            return( hash_hex ) ;
+    }
+
+    var tmphash = function tmphash()
+    {
+            var string = "" ;
+            string = string.concat( 
+                $("#user1").val(), $("#password1").val(), $("#host1").val(), 
+                $("#user2").val(), $("#password2").val(), $("#host2").val(), 
+                )
+        return( sha256( string ) ) ;
+    }
+
+    var init = function init()
     {
     // in case of a manual refresh, start with
         $("#bt-sync").prop("disabled", false);
@@ -581,8 +653,6 @@ $(document).ready(
         $("#link_to_bottom").hide();
         $("#progress-bar-left").css( "width", 100 + "%" ).attr( "aria-valuenow", 100 ) ;
 
-        retrieve_form();
-
         $("#showpassword1").click(
             function ( event )
             {
@@ -605,6 +675,7 @@ $(document).ready(
         $("#bt-sync").click(
             function ()
             {
+                $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
                 $("#bt-sync").prop("disabled", true) ;
                 $("#bt-abort").prop("disabled", false) ;
                 $("#link_to_bottom").hide() ;
@@ -617,9 +688,11 @@ $(document).ready(
         $("#bt-abort").click(
             function ()
             {
+                $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
                 $("#bt-sync").prop("disabled", true);
                 $("#bt-abort").prop("disabled", true);
                 abort();
+                $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
             }
         );
 
@@ -653,12 +726,29 @@ $(document).ready(
                 showpassword( "password2", $("#showpassword2")[0] ) ;
             }
         ) ;
+        
+        if ( "imapsync.lamiral.info" === location.hostname )
+        {
+                $( "#local_bandwidth" ).collapse( "show" ) ;
+                $( "#local_status_dbmon" ).collapse( "show" ) ;
+                $( "#local_status_hetrix" ).collapse( "show" ) ;
+                $( "#imapsync_advice_hours" ).collapse( "show" ) ;
+                $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
+        }
+        else if ( "lamiral.info" === location.hostname )
+        {
+                $( "#local_bandwidth" ).collapse( "show" ) ;
+                $( "#local_status_dbmon" ).collapse( "show" ) ;
+                $( "#local_status_hetrix" ).collapse( "show" ) ;
+                $( "#imapsync_advice_hours" ).collapse( "show" ) ;
+                $( "#imapsync_current" ).load( "imapsync_current.txt" ) ;
+        }
     }
 
-        var tests_bilan = function tests_bilan()
+        var tests_bilan = function tests_bilan( nb_attended_test )
         {
-            // attended number of tests
-            var nb_attended_test = 29 ;
+            // attended number of tests: nb_attended_test
+            
             $("#tests").append( "1.." + test.counter_all + "\n" ) ;
             if ( test.counter_nok > 0 )
             {
@@ -681,22 +771,30 @@ $(document).ready(
             }
         } ;
 
-        function tests()
+        var tests = function tests( nb_attended_test )
         {
             if ( $("#tests").length !== 0 )
             {
                 tests_store_retrieve(  ) ;
                 tests_last_eta(  ) ;
                 tests_decompose_eta_line(  ) ;
+                // tests_cryptojs(  ) ;
+                
+                // The following test can be used to check that if a test fails
+                // then all the tests are shown to the user.
                 //is( 0, 1, "this test always fails" ) ;
-                tests_bilan(  ) ;
-                //$("#tests").collapse("show") ;
+                
+                tests_bilan( nb_attended_test ) ;
+                // If you want to always see the tests, uncomment the following 
+                // line
+                // $("#tests").collapse("show") ;
 
             }
         }
 
         init(  ) ;
-        tests(  ) ;
+        tests( 29 ) ;
+        retrieve_form(  ) ;
 
     }
 
diff --git a/X/imapsync_form_1.3.js b/X/imapsync_form_1.3.js
deleted file mode 100644
index 838897f..0000000
--- a/X/imapsync_form_1.3.js
+++ /dev/null
@@ -1,159 +0,0 @@
-
-// $Id: imapsync_form.js,v 1.3 2019/03/18 19:21:16 gilles Exp gilles $
-
-/*jslint browser: true*/ /*global  $*/
-$(document).ready(function () {
-    "use strict";
-    // Bootstrap popover and tooltip
-    $("[data-toggle='tooltip']").tooltip();
-
-    var readyStateStr = {
-        "0": "Request not initialized",
-        "1": "Server connection established",
-        "2": "Response headers received",
-        "3": "Processing request",
-        "4": "Finished and response is ready"
-    };
-
-    function refreshLog(xhr) {
-        $("#output").html(xhr.responseText);
-    }
-
-    function handleRun(xhr, timerRefreshLog) {
-
-        $("#console").text("Status: " + xhr.status + " " + xhr.statusText + "\n" + "State: " + readyStateStr[xhr.readyState] + "\n");
-
-        if (xhr.readyState === 4) {
-            // var headers = xhr.getAllResponseHeaders();
-            // $("#console").append(headers);
-            // $("#console").append("See the completed log\n");
-            $("#link_to_bottom").show();
-            clearInterval(timerRefreshLog);
-            refreshLog(xhr); // a last time
-            $("#bt-sync").prop("disabled", false); // back to enable state for next run
-        }
-    }
-
-    function imapsync() {
-        var querystring = $("#form").serialize();
-        $("#abort").text("\n\n"); // clean abort console
-        $("#output").text("Here comes the log!\n\n");
-        if ("imap.gmail.com" === $("#host1").val()) {
-            querystring = querystring + "&gmail1=on";
-        }
-        if ("imap.gmail.com" === $("#host2").val()) {
-            querystring = querystring + "&gmail2=on";
-        }
-        var xhr;
-        xhr = new XMLHttpRequest();
-        var timerRefreshLog = setInterval(function () {
-            refreshLog(xhr);
-        }, 5000);
-        xhr.onreadystatechange = function () {
-            handleRun(xhr, timerRefreshLog);
-        };
-        xhr.open("POST", "/cgi-bin/imapsync", true);
-        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
-        xhr.send(querystring);
-    }
-
-
-    function handleAbort(xhr) {
-
-        $("#abort").text("Status: " + xhr.status + " " + xhr.statusText + "\n" + "State: " + readyStateStr[xhr.readyState] + "\n\n");
-
-        if (xhr.readyState === 4) {
-            $("#abort").append(xhr.responseText);
-            $("#bt-sync").prop("disabled", false);
-            $("#bt-abort").prop("disabled", false); // back for next abort
-        }
-    }
-
-    function abort() {
-        var querystring = $("#form").serialize() + "&abort=on";
-        var xhr;
-        xhr = new XMLHttpRequest();
-        xhr.onreadystatechange = function () {
-            handleAbort(xhr);
-        };
-        xhr.open("POST", "/cgi-bin/imapsync", true);
-        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
-        xhr.send(querystring);
-    }
-    
-    function store_form() {
-        if (typeof(Storage) !== "undefined") {
-        // Code for localStorage.
-            localStorage.user1 = $("#user1").val();
-            localStorage.password1 = $("#password1").val();
-            localStorage.host1 = $("#host1").val();
-            
-            localStorage.user2 = $("#user2").val();
-            localStorage.password2 = $("#password2").val();
-            localStorage.host2 = $("#host2").val();
-        } else {
-        // Sorry! No Web Storage support...
-        }
-    }
-
-    function retrieve_form() {
-        if (typeof(Storage) !== "undefined") {
-        // Code for localStorage.
-            $("#user1").val(localStorage.user1);
-            $("#password1").val(localStorage.password1);
-            $("#host1").val(localStorage.host1);
-            $("#user2").val(localStorage.user2);
-            $("#password2").val(localStorage.password2);
-            $("#host2").val(localStorage.host2);
-        } else {
-        // Sorry! No Web Storage support...
-        }
-    }
-
-    function showpassword() {
-    }
-    
-    // in case of a manual refresh, start with
-    $("#bt-sync").prop("disabled", false);
-    $("#bt-abort").prop("disabled", false);
-    $("#link_to_bottom").hide();
-    retrieve_form();
-    
-    // Well I should write function showpassword() body and use it
-    // I'm just dumb in js and jQuery
-    $("#showpassword1").click(function () {
-        var x = document.getElementById("password1");
-        if (x.type === "password") {
-            x.type = "text";
-        } else {
-            x.type = "password";
-        }
-    });
-
-    $("#showpassword2").click(function () {
-        var x = document.getElementById("password2");
-        if (x.type === "password") {
-            x.type = "text";
-        } else {
-            x.type = "password";
-        }
-    });
-
-    
-    
-    $("#bt-sync").click(function () {
-        $("#bt-sync").prop("disabled", true);
-        $("#bt-abort").prop("disabled", false);
-        $("#link_to_bottom").hide();
-        store_form();
-        imapsync();
-    });
-
-    $("#bt-abort").click(function () {
-        $("#bt-sync").prop("disabled", true);
-        $("#bt-abort").prop("disabled", true);
-        abort();
-    });
-
-});
-
diff --git a/X/imapsync_form_1.4.js b/X/imapsync_form_1.4.js
deleted file mode 100644
index ac47793..0000000
--- a/X/imapsync_form_1.4.js
+++ /dev/null
@@ -1,228 +0,0 @@
-
-// $Id: imapsync_form.js,v 1.4 2019/04/28 03:02:37 gilles Exp $
-
-/*jslint browser: true*/ /*global  $*/
-$(document).ready(function () {
-    "use strict";
-    // Bootstrap popover and tooltip
-    $("[data-toggle='tooltip']").tooltip();
-
-    var readyStateStr = {
-        "0": "Request not initialized",
-        "1": "Server connection established",
-        "2": "Response headers received",
-        "3": "Processing request",
-        "4": "Finished and response is ready"
-    };
-
-    function refreshLog(xhr) {
-        $("#output").html(xhr.responseText);
-    }
-
-    function handleRun(xhr, timerRefreshLog) {
-
-        $("#console").text("Status: " + xhr.status + " " + xhr.statusText + "\n" + "State: " + readyStateStr[xhr.readyState] + "\n");
-
-        if (xhr.readyState === 4) {
-            // var headers = xhr.getAllResponseHeaders();
-            // $("#console").append(headers);
-            // $("#console").append("See the completed log\n");
-            $("#link_to_bottom").show();
-            clearInterval(timerRefreshLog);
-            refreshLog(xhr); // a last time
-            $("#bt-sync").prop("disabled", false); // back to enable state for next run
-        }
-    }
-
-    function imapsync() {
-        var querystring = $("#form").serialize();
-        $("#abort").text("\n\n"); // clean abort console
-        $("#output").text("Here comes the log!\n\n");
-        if ("imap.gmail.com" === $("#host1").val()) {
-            querystring = querystring + "&gmail1=on";
-        }
-        if ("imap.gmail.com" === $("#host2").val()) {
-            querystring = querystring + "&gmail2=on";
-        }
-        var xhr;
-        xhr = new XMLHttpRequest();
-        var timerRefreshLog = setInterval(function () {
-            refreshLog(xhr);
-        }, 5000);
-        xhr.onreadystatechange = function () {
-            handleRun(xhr, timerRefreshLog);
-        };
-        xhr.open("POST", "/cgi-bin/imapsync", true);
-        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
-        xhr.send(querystring);
-    }
-
-
-    function handleAbort(xhr) {
-
-        $("#abort").text("Status: " + xhr.status + " " + xhr.statusText + "\n" + "State: " + readyStateStr[xhr.readyState] + "\n\n");
-
-        if (xhr.readyState === 4) {
-            $("#abort").append(xhr.responseText);
-            $("#bt-sync").prop("disabled", false);
-            $("#bt-abort").prop("disabled", false); // back for next abort
-        }
-    }
-
-    function abort() {
-        var querystring = $("#form").serialize() + "&abort=on";
-        var xhr;
-        xhr = new XMLHttpRequest();
-        xhr.onreadystatechange = function () {
-            handleAbort(xhr);
-        };
-        xhr.open("POST", "/cgi-bin/imapsync", true);
-        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
-        xhr.send(querystring);
-    }
-    
-    function store_form() {
-        if (typeof(Storage) !== "undefined") {
-        // Code for localStorage.
-            localStorage.user1 = $("#user1").val();
-            localStorage.password1 = $("#password1").val();
-            localStorage.host1 = $("#host1").val();
-            localStorage.subfolder1 = $("#subfolder1").val();
-            localStorage.showpassword1 = $("#showpassword1")[0].checked ;
-            
-            // 
-            localStorage.account1_background_color = $("#account1").css("background-color") ;
-            
-            localStorage.user2 = $("#user2").val();
-            localStorage.password2 = $("#password2").val();
-            localStorage.host2 = $("#host2").val();
-            localStorage.subfolder2 = $("#subfolder2").val();
-            localStorage.showpassword2 = $("#showpassword2")[0].checked ;
-            
-            // alert( $("#dry")[0].checked ) ;
-            localStorage.dry = $("#dry")[0].checked ;
-            localStorage.justlogin = $("#justlogin")[0].checked ;
-            localStorage.justfolders = $("#justfolders")[0].checked ;
-            localStorage.justfoldersizes = $("#justfoldersizes")[0].checked ;
-            
-            localStorage.account2_background_color = $("#account2").css("background-color") ;
-
-        } else {
-        // Sorry! No Web Storage support...
-        }
-    }
-
-        function retrieve_form() {
-                if (typeof(Storage) !== "undefined")
-                {
-                // Code for localStorage.
-                        $("#user1").val(localStorage.user1);
-                        $("#password1").val(localStorage.password1);
-                        // $("#showpassword1")[0].checked = JSON.parse(localStorage.showpassword1);
-                        $("#host1").val(localStorage.host1);
-                        $("#subfolder1").val(localStorage.subfolder1);
-            
-                        $("#user2").val(localStorage.user2);
-                        $("#password2").val(localStorage.password2);
-                        // $("#showpassword2")[0].checked = JSON.parse(localStorage.showpassword2);
-                        $("#host2").val(localStorage.host2);
-                        $("#subfolder2").val(localStorage.subfolder2);
-            
-
-                        $("#dry")[0].checked = JSON.parse(localStorage.dry || false );
-                        $("#justlogin")[0].checked = JSON.parse(localStorage.justlogin || false );
-                        $("#justfolders")[0].checked = JSON.parse(localStorage.justfolders || false );
-                        $("#justfoldersizes")[0].checked = JSON.parse(localStorage.justfoldersizes || false );
-
-                        // In case
-                        // localStorage.removeItem( "account1_background_color" ) ;
-                        // localStorage.removeItem( "account2_background_color" ) ;
-                        
-                        if ( localStorage.account1_background_color )
-                        {
-                                $("#account1").css("background-color", localStorage.account1_background_color ) ;
-                        }
-                        if ( localStorage.account2_background_color )
-                        {
-                                $("#account2").css("background-color", localStorage.account2_background_color ) ;
-                        }
-                        
-                        
-                } 
-                else
-                {
-                // Sorry! No Web Storage support...
-                }
-        }
-
-    function showpassword() {
-    }
-    
-    // in case of a manual refresh, start with
-    $("#bt-sync").prop("disabled", false);
-    $("#bt-abort").prop("disabled", false);
-    $("#link_to_bottom").hide();
-    retrieve_form();
-    
-    // Well I should write function showpassword() body and use it
-    // I'm just dumb in js and jQuery
-    $("#showpassword1").click(function () {
-        var x = document.getElementById("password1");
-        if (x.type === "password" && this.checked ) {
-            x.type = "text";
-        } else {
-            x.type = "password";
-        }
-    });
-
-    $("#showpassword2").click(function () {
-        var x = document.getElementById("password2");
-        if (x.type === "password" && this.checked ) {
-            x.type = "text";
-        } else {
-            x.type = "password";
-        }
-    });
-
-    
-    
-    $("#bt-sync").click(function () {
-        $("#bt-sync").prop("disabled", true);
-        $("#bt-abort").prop("disabled", false);
-        $("#link_to_bottom").hide();
-        store_form();
-        imapsync();
-    });
-
-    $("#bt-abort").click(function () {
-        $("#bt-sync").prop("disabled", true);
-        $("#bt-abort").prop("disabled", true);
-        abort();
-    });
-
-
-        jQuery.fn.swapWith = function(to) {
-                var temp = $(to).val();
-                $(to).val($(this).val());
-                $(this).val(temp);
-        };
-
-
-
-        $("#swap").click(function(){
-                $("#user1").swapWith("#user2");
-                $("#password1").swapWith("#password2");
-                $("#host1").swapWith("#host2");
-                $("#subfolder1").swapWith("#subfolder2");
-                
-                var temp = $("#account1").css("background-color") ;
-                $("#account1").css("background-color", $("#account2").css("background-color") ) ;
-                $("#account2").css("background-color", temp ) ;
-  
-        });
-
-// End of
-    
-    
-});
-
diff --git a/X/imapsync_form_extra.html b/X/imapsync_form_extra.html
old mode 100755
new mode 100644
index 5df7997..5e144ad
--- a/X/imapsync_form_extra.html
+++ b/X/imapsync_form_extra.html
@@ -1,32 +1,37 @@
 <!DOCTYPE html>
 
-<!-- $Id: imapsync_form_extra.html,v 1.4 2019/11/07 11:16:25 gilles Exp gilles $ -->
+<!-- $Id: imapsync_form_extra.html,v 1.18 2021/05/30 05:45:15 gilles Exp gilles $ -->
 
 <html lang="en" id="top">
 
 
 <head>
+<!--
+        <script 
+        data-ad-client="ca-pub-3325993554161060" 
+        async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js">
+        </script>
+-->
 
+        <title>Imapsync Online Unlimited</title>
+        <meta charset="utf-8">
+        <meta name="viewport" content="width=device-width, initial-scale=1">
 
-    <title>Imapsync online</title>
-    <meta charset="utf-8">
-    <meta name="viewport" content="width=device-width, initial-scale=1">
-
-	<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" 
+        <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" 
 	integrity="sha384-BVYiiSIFeK1dGmJRAkycuHAHRg32OmUcww7on3RYdg4Va+PmSTsz/K68vbdEjh4u" crossorigin="anonymous">
 	
 	<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap-theme.min.css" 
 	integrity="sha384-rHyoN1iRsVXV4nD0JutlnGaslCJuC7uwjduW9SVrLvRYooPp2bWYgmgJQIXwl/Sp" crossorigin="anonymous">
         
         <link rel="stylesheet" href="imapsync_form.css">
+        <link rel="stylesheet" href="../S/style.css" type="text/css"   />
 
-    <link rel="license" href="https://imapsync.lamiral.info/NOLIMIT">
+        <link rel="license" href="https://imapsync.lamiral.info/NOLIMIT">
 
-
-	<noscript>
+        <noscript>
         <link rel="stylesheet" href="noscript.css">
-	</noscript>
-	
+        </noscript>
+
 </head>
 
 <body>
@@ -52,70 +57,22 @@
             <img alt="Imapsync home" title="Imapsync home page" src="https://imapsync.lamiral.info/X/logo_imapsync_Xn.png" height="38" width="60">
             </a>
             <a href="#top" title="Top of the page" class="btn btn-info " role="button">Top</a>
-            <!-- <a href="#payment"  class="btn btn-success" data-toggle="collapse">Pricing</a> -->
-            <!-- <a href="#buttons"  class="btn btn-info scripton"  role="button">Consoles</a> -->
             <a href="#bottom" title="Bottom of the page" class="btn btn-info active" role="button">Bottom</a>
         </div>
     </div>
 
-    <h1 class="text-center">Imapsync online</h1>
+    <h1 class="text-center">Imapsync Online Unlimited</h1>
 
-    <p class="text-center"> <strong>Copy</strong>/synchronize a <strong>complete</strong> mailbox to another, without <strong>duplicates!</strong></p>
+    <p class="text-center larger"> <strong>Copy</strong>/synchronize a <strong>complete</strong> Mailbox to another, without <strong>duplicates!</strong></p>
     
-<!-- Paypal part start 
-new: NDGMR6TLFZ926
-old: H2YTURNFT4XT4
--->
-
-        <!-- A button above the pricing form, not very beautiful... 
-        I should give it a try anyway because nearly no one buy this service...
-	<div class="text-center">
-	<a href="#payment" class="btn btn-warning btn-lg" data-toggle="collapse">Pricing</a>
-	</div>
-        -->
-        
-<!-- the "in" makes the form not collapsed by default 
-     Remove the in in order to mask the pricing section 
-     <div id="payment" class="well text-center collapse in" > -->
-     <div id="payment" class="well text-center collapse out" >
-        <p class="lead">Pay by usage type</p>
-        <form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
-            <input type="hidden" name="cmd" value="_s-xclick" />
-            <input type="hidden" name="hosted_button_id" value="H2YTURNFT4XT4" />
-            <input type="hidden" name="on0" value="imapsync choice" />
-            <fieldset>
-            <!--
-            <label data-toggle="tooltip" data-placement="top" title="Fair enough"
-            class="radio-inline"><input type="radio" name="os0" value="Tiny"          > €1,00     </label>
-            -->
-            <label data-toggle="tooltip" data-placement="top" title="A big mailbox"
-            class="radio-inline"><input type="radio" name="os0" value="Small" > €6,00    </label>
-            <label data-toggle="tooltip" data-placement="top" title="Several mailboxes to migrate"
-            class="radio-inline"><input type="radio" name="os0" value="Normal" checked > €59,00  </label>
-            <!--
-            <label data-toggle="tooltip" data-placement="top" title="Tons of gigabytes to copy"
-            class="radio-inline"><input type="radio" name="os0" value="High"          > €125,00   </label>
-            -->
-            <br>
-            <input type="hidden" name="currency_code" value="EUR" />
-            <input type="image" src="https://www.paypalobjects.com/en_US/i/btn/btn_buynowCC_LG.gif" name="submit" alt="PayPal - A safe, easy way to pay online!" />
-            </fieldset>
-        <p>
-                <strong>30-day money back guarantee!</strong> <br>
-                <em>No question nor condition to get a refund, really, just request it and you'll sure get a refund!</em>
-        </p>
-        </form>
-    </div>
-<!-- Paypal part end -->
-
 
     <form id="form" action="/cgi-bin/imapsync" method="post" autocomplete="on">
         <div id="form_row" class="row">
             <div id="account1" class="col-md-5" >
                 <fieldset>
-                <legend class="text-center h2">IMAP source mailbox</legend>
+                <legend class="text-center h2">IMAP source Mailbox</legend>
 
-                <label for="user1">Login</label>
+                <label for="user1">Login</label> (usually an email address)
                 <div class="input-group form-group">
                     <span class="input-group-addon"><i class="glyphicon glyphicon-user"> </i></span>
                     <input
@@ -136,13 +93,13 @@ old: H2YTURNFT4XT4
                      placeholder="Enter password">
                 </div>
 
-                <label for="host1">Server</label>
+                <label for="host1">IMAP Server hostname</label> (or its IP address)
                 <div class="input-group form-group">
                     <span class="input-group-addon"><i class="glyphicon glyphicon-cloud"></i></span>
                     <input
                      data-toggle="tooltip" data-placement="bottom" title="IMAP transfers are done with encryption if the servers support it."
                      list="servers1" type="text" class="form-control input-lg" id="host1" name="host1" tabindex="3"
-                     placeholder="Enter imap source server name or IP address">
+                     placeholder="Enter IMAP source server name or IP address">
                         <datalist id="servers1">
                         <option value="imap.gmail.com">
                         <option value="outlook.office365.com">
@@ -184,7 +141,7 @@ old: H2YTURNFT4XT4
                     <label class="checkbox-inline">
                     <input 
                     data-toggle="tooltip" data-placement="bottom" title="Shows what would be done without really doing it."
-                    type="checkbox" id="dry" name="dry" >Dry run.
+                    type="checkbox" id="dry" name="dry" >Just verbose, no real sync.
                      </label>
                 </div>
                 
@@ -192,7 +149,7 @@ old: H2YTURNFT4XT4
                     <label class="checkbox-inline">
                     <input 
                     data-toggle="tooltip" data-placement="bottom" title="Checks credentials without syncing anything."
-                    type="checkbox" id="justlogin" name="justlogin" >Login only.
+                    type="checkbox" id="justlogin" name="justlogin" >Just checks credentials.
                     </label>
                 </div>
         
@@ -200,7 +157,7 @@ old: H2YTURNFT4XT4
                     <label class="checkbox-inline">
                     <input 
                     data-toggle="tooltip" data-placement="bottom" title="Shows folders sizes and exits."
-                    type="checkbox" id="justfoldersizes" name="justfoldersizes" >Just folders sizes.
+                    type="checkbox" id="justfoldersizes" name="justfoldersizes" >Just presents folders sizes.
                     </label>
                 </div>
         
@@ -208,7 +165,7 @@ old: H2YTURNFT4XT4
                     <label class="checkbox-inline">
                     <input 
                     data-toggle="tooltip" data-placement="bottom" title="Just create the folder hierarchy, messages are not synced."
-                    type="checkbox" id="justfolders" name="justfolders" >Folders only.
+                    type="checkbox" id="justfolders" name="justfolders" >Just create folders.
                     </label>
                 </div>
         
@@ -242,9 +199,9 @@ old: H2YTURNFT4XT4
             
             <div id="account2" class="col-md-5" >
                 <fieldset>
-                <legend class="text-center h2">IMAP destination mailbox</legend>
+                <legend class="text-center h2">IMAP destination Mailbox</legend>
 
-                <label for="user2">Login</label>
+                <label for="user2">Login</label> (usually an email address)
                 <div class="input-group form-group">
                     <span class="input-group-addon"><i class="glyphicon glyphicon-user"></i></span>
                     <input
@@ -264,13 +221,13 @@ old: H2YTURNFT4XT4
                      placeholder="Enter password">
                 </div>
 
-                <label for="host2">Server</label>
+                <label for="host2">IMAP Server hostname</label> (or its IP address)
                 <div class="input-group form-group">
                     <span class="input-group-addon"><i class="glyphicon glyphicon-cloud"></i></span>
                     <input
                     data-toggle="tooltip" data-placement="bottom" title="IMAP transfers are done with encryption if the servers support it."
                     list="servers2" type="text" class="form-control input-lg" id="host2" name="host2" tabindex="8"
-                     placeholder="Enter imap destination server name or IP address">
+                     placeholder="Enter IMAP destination server name or IP address">
                      <datalist id="servers2">
                         <option value="imap.gmail.com">
                         <option value="outlook.office365.com">
@@ -304,22 +261,18 @@ old: H2YTURNFT4XT4
                 </div>
                 </fieldset>
            </div>
-           
 
-        
         </div>
-          
-          
+
         <input type="hidden" name="automap"   value="on">
         <input type="hidden" name="addheader" value="on">
         <!-- -#->
         <input type="hidden" name="simulong" value="360">
         <!-#- -->
-        
-        
+
         <a id="buttons"></a>
         <hr> 
-        
+
         <!-- Classical button to go to the log only -->
         <noscript>
                 <div class="row">
@@ -356,10 +309,15 @@ old: H2YTURNFT4XT4
             </div>
         </div>
     </form>
-        
-        
+
     <div class="row scripton" id="consoles" >
 
+        <span id="imapsync_current" class="center-block text-center"></span>
+
+        <span id="imapsync_advice_hours" class="text-center collapse">
+        Best <a href="#local_bandwidth"><b>bandwidth available hours</b></a> are from <b>11h PM to 11h AM UTC</b> on Mondays to Fridays, <b>all hours</b> on Saturdays and <b>Sundays</b>.
+        </span>
+
         <pre id="progress-txt">ETA: Estimation Time of Arrival</pre>
 
         <div class="progress">
@@ -390,7 +348,7 @@ old: H2YTURNFT4XT4
             </pre>
         </div>
     </div>
-	
+
 </div>
 
 <h2 class="text-center scripton">Log of imapsync run</h2>
@@ -416,14 +374,68 @@ old: H2YTURNFT4XT4
 
 </pre>
 
-<a id="bottom"></a>
+<div id="local_bandwidth" class="collapse">
+        <hr>
+        <p class="text-center">
+                <b>Local bandwidth statistics</b><br>
+
+                <a href="/vnstat/vnstati.html">
+                        <img alt="Local bandwidth statistics" src="/vnstat/vnstat_vs.png" >
+                </a>
+        </p>
+</div>
+
+
+<div id="local_status_dbmon" class="collapse">
+        <hr>
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last 24h</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_24h_1200x70">
+        </p>
+        
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last week</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_7d">
+        </p>
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last two months</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_2months_1200x70"><br>
+        </p>
+
+
+<!--
+Uncomment the following when the data are available
+-->
+<!--
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last year</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_1year_1200x70"><br>
+        </p>
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last 10 years</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_10years_1200x70-2"><br>
+        </p>
+-->
+
+</div>
+
+
+<div id="local_status_hetrix" class="collapse in">
 <hr>
 <p class="text-center">
-        Local bandwidth statistics <br>
-            <a href="/vnstat/vnstati.html">
-                <img alt="Local bandwidth statistics" src="/vnstat/vnstat_vs.png" >
-            </a>
+
+The service is down? For how long? How often? Take also a look at the
+<a href="https://hetrixtools.com/report/uptime/7908dea8f3ff86eabdef6146307afd5f/414322.html">Imapsync Online Status</a>
+monitor page powered by the <a href="https://hetrixtools.com/uptime-monitor/414322.html">HetrixTools</a> company.
+
 </p>
+</div>
+
+<a id="bottom"></a>
+<hr>
 
     <p class="text-center">Feel free to contact 
     <strong><a  href="https://imapsync.lamiral.info/#AUTHOR" target="_blank">Gilles LAMIRAL</a></strong>
@@ -440,13 +452,12 @@ old: H2YTURNFT4XT4
             <!-- <a href="#buttons"  class="btn btn-info scripton" role="button">Consoles</a> -->
             <a href="#bottom" title="Bottom of the page" class="btn btn-info active" role="button">Bottom</a>
             <br>
-        <small> ($Id: imapsync_form_extra.html,v 1.4 2019/11/07 11:16:25 gilles Exp gilles $) </small><br>
+        <small> ($Id: imapsync_form_extra.html,v 1.18 2021/05/30 05:45:15 gilles Exp gilles $) </small><br>
         Terms and conditions for anything: <a href="https://imapsync.lamiral.info/LICENSE">No limits to do anything with this work and this license!</a><br>
         </div>
     </div>
 </div>
 
-
 <script 
 src="https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js"
 integrity="sha384-xBuQ/xzmlsLoJpyjoggmTEz8OWUFM0/RC5BsqQBDX2v5cMvDHcMakNTNrHIW2I5f"
@@ -461,11 +472,17 @@ crossorigin="anonymous"
 >
 </script>
 
+<!--
+<script src="crypto-js/core.js"></script>
+<script src="crypto-js/sha256.js"></script>
+-->
 
 <script
-src="imapsync_form_new.js"
+src="imapsync_form.js"
 >
 </script>
 
+<img src="https://static.scarf.sh/a.png?x-pxid=28b508c3-c51f-4109-9b88-29f3f6e4cf2f" alt="Scarf Tracker"/>
+
 </body>
 </html>
diff --git a/X/imapsync_form_extra_free.html b/X/imapsync_form_extra_free.html
new file mode 100644
index 0000000..17d1b10
--- /dev/null
+++ b/X/imapsync_form_extra_free.html
@@ -0,0 +1,547 @@
+<!DOCTYPE html>
+
+<!-- $Id: imapsync_form_extra_free.html,v 1.18 2021/05/30 05:45:00 gilles Exp gilles $ -->
+
+<html lang="en" id="top">
+
+
+<head>
+<!--
+        <script 
+        data-ad-client="ca-pub-3325993554161060" 
+        async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js">
+        </script>
+-->
+
+        <title>Mailbox Imapsync Online</title>
+        <meta charset="utf-8">
+        <meta name="viewport" content="width=device-width, initial-scale=1">
+
+        <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" 
+	integrity="sha384-BVYiiSIFeK1dGmJRAkycuHAHRg32OmUcww7on3RYdg4Va+PmSTsz/K68vbdEjh4u" crossorigin="anonymous">
+	
+	<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap-theme.min.css" 
+	integrity="sha384-rHyoN1iRsVXV4nD0JutlnGaslCJuC7uwjduW9SVrLvRYooPp2bWYgmgJQIXwl/Sp" crossorigin="anonymous">
+        
+        <link rel="stylesheet" href="imapsync_form.css">
+        <link rel="stylesheet" href="../S/style.css" type="text/css"   />
+
+        <link rel="license" href="https://imapsync.lamiral.info/NOLIMIT">
+
+        <noscript>
+        <link rel="stylesheet" href="noscript.css">
+        </noscript>
+
+</head>
+
+<body>
+
+
+<div class="scripton">
+        <!-- will appear if some tests fail -->
+        <pre id="tests" class="collapse"></pre>
+        <!-- hidden stuff that must exit for the tests -->
+        <div class="hidden">
+                <input type="checkbox" id="test_checkbox">
+                <input type="text" id="test_text">
+                <input type="radio" id="test_radio1" name="test_radio" value="first" >
+                <input type="radio" id="test_radio2" name="test_radio" value="second" >
+        </div>
+</div>
+
+<div class="container-fluid" >
+
+    <div class="row">
+        <div class="text-center">
+            <a href="https://imapsync.lamiral.info/">
+            <img alt="Imapsync home" title="Imapsync home page" src="https://imapsync.lamiral.info/X/logo_imapsync_Xn.png" height="38" width="60">
+            </a>
+            <a href="#top" title="Top of the page" class="btn btn-info " role="button">Top</a>
+            <a href="#payment"  class="btn btn-success" data-toggle="collapse">Pricing</a>
+            <!-- <a href="#buttons"  class="btn btn-info scripton"  role="button">Consoles</a> -->
+            <a href="#bottom" title="Bottom of the page" class="btn btn-info active" role="button">Bottom</a>
+        </div>
+    </div>
+
+    <h1 class="text-center">Mailbox Imapsync Online</h1>
+
+    <p class="text-center larger"><strong>Copy/synchronize</strong> a <strong>Mailbox</strong> (below 3 GB) to another, 
+    without <strong>duplicates!</strong><br>
+    <strong>Buying</strong> gives <strong>unlimited</strong> syncs of <strong>any size</strong>.</p>
+    
+<!-- Paypal part start 
+new: NDGMR6TLFZ926
+old: H2YTURNFT4XT4
+-->
+
+        <!-- A button above the pricing form, not very beautiful... 
+        I should give it a try anyway because nearly no one buy this service...
+        <div class="text-center">
+        <a href="#payment" class="btn btn-warning btn-lg" data-toggle="collapse">Pricing</a>
+        </div>
+        -->
+
+<!-- the "in" makes the form not collapsed by default 
+     Remove the "in" in order to mask the pricing section 
+     <div id="payment" class="well text-center collapse in" > 
+     <div id="payment" class="well text-center collapse out" > -->
+     <div id="payment" class="well text-center collapse out" >
+        <p class="lead">Pay by usage type</p>
+        <form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
+            <input type="hidden" name="cmd" value="_s-xclick" />
+            <input type="hidden" name="hosted_button_id" value="H2YTURNFT4XT4" />
+            <input type="hidden" name="on0" value="imapsync choice" />
+            <fieldset>
+            <!--
+            <label data-toggle="tooltip" data-placement="top" title="Fair enough"
+            class="radio-inline"><input type="radio" name="os0" value="Tiny"          > €1,00     </label>
+            <label data-toggle="tooltip" data-placement="top" title="A big mailbox"
+            class="radio-inline"><input type="radio" name="os0" value="Small" checked > €6,00  </label>
+            -->            
+            <label data-toggle="tooltip" data-placement="top" title="Many mailboxes to migrate"
+            class="radio-inline"><input type="radio" name="os0" value="High" checked > €120,00   </label>
+            <label data-toggle="tooltip" data-placement="top" title="Some big mailboxes to migrate"
+            class="radio-inline"><input type="radio" name="os0" value="Normal"       >  €30,00  </label>
+            <br>
+            <input type="hidden" name="currency_code" value="EUR" />
+            <input type="image" src="https://www.paypalobjects.com/en_US/i/btn/btn_buynowCC_LG.gif" name="submit" alt="PayPal - A safe, easy way to pay online!" />
+            </fieldset>
+        <p>
+                <strong>30-day money back guarantee!</strong> <br>
+                <em><b>No question</b> nor condition to get a <b>refund</b>, really, <b>just request</b> it and you'll <b>sure</b> get a refund!</em>
+        </p>
+
+<p>
+<input  type="hidden"  value="VAT if professional in Europe"  name="on1" />
+If you're a <b>European professional</b> buyer, please enter your <b>VAT number</b>:
+<input  type="text"  maxlength="17"  size="17"  name="os1" />
+
+It's for the <b>invoice</b> and customs declaration.<br />
+It's <b>ok</b> if you <b>don't</b> have a VAT number.<br />
+</p>
+        </form>
+    </div>
+<!-- Paypal part end -->
+
+
+    <form id="form" action="/cgi-bin/imapsync" method="post" autocomplete="on">
+        <div id="form_row" class="row">
+            <div id="account1" class="col-md-5" >
+                <fieldset>
+                <legend class="text-center h2">IMAP source Mailbox</legend>
+
+                <label for="user1">Login</label> (usually an email address)
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-user"> </i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="It is usually an email address or its left part before @"
+                    type="text" class="form-control input-lg" id="user1" name="user1" tabindex="1"
+                    placeholder="Enter login name">
+                </div>
+
+                <label for="password1">Password</label>
+                <label class="checkbox-inline out">
+                    <input type="checkbox" id="showpassword1"> show password
+                </label>
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-lock"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="Passwords are not stored on the server"
+                    type="password" class="form-control input-lg" id="password1" name="password1" tabindex="2"
+                     placeholder="Enter password">
+                </div>
+
+                <label for="host1">IMAP Server hostname</label> (or its IP address)
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-cloud"></i></span>
+                    <input
+                     data-toggle="tooltip" data-placement="bottom" title="IMAP transfers are done with encryption if the servers support it."
+                     list="servers1" type="text" class="form-control input-lg" id="host1" name="host1" tabindex="3"
+                     placeholder="Enter IMAP source server name or IP address">
+                        <datalist id="servers1">
+                        <option value="imap.gmail.com">
+                        <option value="outlook.office365.com">
+                        <option value="imap.mail.yahoo.com">
+                    </datalist>
+                </div>
+                
+                <div class="form-group collapse extra_param">
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Be careful with this option"
+                    type="checkbox" id="delete1" name="delete1">Move sync. Deletes messages on source mailbox after a successful transfer.
+                    </label>
+                </div>
+
+                <div class="form-group collapse extra_param" > 
+                <label for="subfolder1">Sub-folder</label>
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-folder-open"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="A subfolder where all the source mailbox comes from."
+                    type="text" class="form-control input-lg" id="subfolder1" name="subfolder1"
+                    placeholder="Enter sub-folder name">
+                </div>
+                </div>
+                
+                <div>
+                    <br>
+                </div>
+                </fieldset>
+            </div>
+
+            <div id="parameters" class="col-md-2" >
+                <div>
+                        <br>
+                </div>
+                
+                <div>
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Shows what would be done without really doing it."
+                    type="checkbox" id="dry" name="dry" >Just verbose, no real sync.
+                     </label>
+                </div>
+                
+                <div>
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Checks credentials without syncing anything."
+                    type="checkbox" id="justlogin" name="justlogin" >Just checks credentials.
+                    </label>
+                </div>
+        
+                <div>
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Shows folders sizes and exits."
+                    type="checkbox" id="justfoldersizes" name="justfoldersizes" >Just presents folders sizes.
+                    </label>
+                </div>
+        
+                <div>
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Just create the folder hierarchy, messages are not synced."
+                    type="checkbox" id="justfolders" name="justfolders" >Just create folders.
+                    </label>
+                </div>
+        
+        
+                <div>
+                        <br>
+                </div>
+
+                <div id="button_extra_param" class="text-center scripton">
+                        <button type="button" class="btn btn-default btn-block" data-toggle="collapse" 
+                        data-target=".extra_param">Show / Hide extra parameters</button>
+                </div>
+
+                <div>
+                        <br>
+                </div>
+
+                <div id="button_swap" class="text-center scripton">
+                        <button type="button" class="btn btn-default btn-block" id="swap">
+                        Swap Source <span class="glyphicon glyphicon-transfer"></span> Destination
+                        </button>
+                        
+                </div>
+        
+                <div>
+                        <br>
+                </div>
+
+        </div>
+            
+            
+            <div id="account2" class="col-md-5" >
+                <fieldset>
+                <legend class="text-center h2">IMAP destination Mailbox</legend>
+
+                <label for="user2">Login</label> (usually an email address)
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-user"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="It is usually an email address or its left part before @"
+                    type="text" class="form-control input-lg" id="user2" name="user2" tabindex="6"
+                    placeholder="Enter login name">
+                </div>
+                <label for="password2">Password</label>
+                <label class="checkbox-inline out">
+                    <input type="checkbox" id="showpassword2"> show password
+                </label>
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-lock"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="Passwords are not stored on the server"
+                    type="password" class="form-control input-lg" id="password2" name="password2" tabindex="7"
+                     placeholder="Enter password">
+                </div>
+
+                <label for="host2">IMAP Server hostname</label> (or its IP address)
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-cloud"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="IMAP transfers are done with encryption if the servers support it."
+                    list="servers2" type="text" class="form-control input-lg" id="host2" name="host2" tabindex="8"
+                     placeholder="Enter IMAP destination server name or IP address">
+                     <datalist id="servers2">
+                        <option value="imap.gmail.com">
+                        <option value="outlook.office365.com">
+                        <option value="imap.mail.yahoo.com">
+                     </datalist>
+                </div>
+                <!-- --> 
+                <div class="form-group collapse extra_param">
+                    <label class="checkbox-inline">
+                    <input 
+                    data-toggle="tooltip" data-placement="bottom" title="Be careful with this option"
+                    type="checkbox" id="delete2" name="delete2" tabindex="9">Strict sync. Deletes messages on destination mailbox that are not at the source mailbox.
+                    </label>
+                </div>
+                
+                <div class="form-group collapse extra_param" id="extra_subfolder2" > 
+                <label for="subfolder2">Sub-folder</label>
+                <div class="input-group form-group">
+                    <span class="input-group-addon"><i class="glyphicon glyphicon-folder-open"></i></span>
+                    <input
+                    data-toggle="tooltip" data-placement="bottom" title="A subfolder where all the source mailbox will go."
+                    type="text" class="form-control input-lg" id="subfolder2" name="subfolder2"
+                    placeholder="Enter sub-folder name">
+                </div>
+                </div>
+                
+                
+                <!-- --> 
+                 <div>
+                    <br>
+                </div>
+                </fieldset>
+           </div>
+
+        </div>
+
+        <input type="hidden" name="automap"   value="on">
+        <input type="hidden" name="addheader" value="on">
+        <input type="hidden" name="exitwhenover" value="3000000000">
+        <!-- -#->
+        <input type="hidden" name="simulong" value="360">
+        <!-#- -->
+
+        <a id="buttons"></a>
+        <hr> 
+
+        <!-- Classical button to go to the log only -->
+        <noscript>
+                <div class="row">
+                <div class="col-sm-12 padd0" >
+                <button type="submit" class="btn btn-success btn-lg center-block btn-block">Go sync!</button> 
+                </div>
+                </div>
+        </noscript>
+
+        <!-- Javascript buttons using xhr -->
+        <div class="row scripton">
+            <div class="col-sm-6 padd0" >
+            <button id="bt-sync" type="button"
+                    class="btn btn-success btn-lg center-block btn-block"
+                    tabindex="11"
+                    data-toggle="tooltip" data-placement="top" 
+                    title="Launch the sync! You can abort the sync with the red Abort button nearby or by closing the tab/window."
+                    >
+                Sync or resync!<br>
+                <span class="glyphicon glyphicon-envelope"></span>
+                <span class="glyphicon glyphicon-arrow-right"></span>
+                <span class="glyphicon glyphicon-envelope"></span>
+            </button>
+            </div>
+            <div class="col-sm-6 padd0" >
+            <button id="bt-abort" type="button" 
+                    class="btn btn-danger btn-lg center-block  btn-block" tabindex="12"
+                    data-toggle="tooltip" data-placement="top" 
+                    title="Abort the sync! You can restart the sync later, no duplicates should happen."
+            >
+            Abort!<br>
+                <span class="glyphicon glyphicon-scissors"></span>
+            </button>
+            </div>
+        </div>
+    </form>
+
+    <div class="row scripton" id="consoles" >
+
+        <span id="imapsync_current" class="center-block text-center"></span>
+
+        <span id="imapsync_advice_hours" class="text-center collapse">
+        Best <a href="#local_bandwidth"><b>bandwidth available hours</b></a> are from <b>11h PM to 11h AM UTC</b> on Mondays to Fridays, <b>all hours</b> on Saturdays and <b>Sundays</b>.
+        </span>
+
+        <pre id="progress-txt">ETA: Estimation Time of Arrival</pre>
+
+        <div class="progress">
+                <div id="progress-bar-done" class="progress-bar progress-bar-success" role="progressbar">
+                Progress bar 
+                </div>
+                <div id="progress-bar-left" class="progress-bar progress-bar-info" role="progressbar">
+                Progress bar
+                </div>
+        </div>
+
+        <div class="col-sm-6 well">
+            <h2 class="text-center">Console of imapsync launch</h2>
+            <pre id="console">
+
+
+
+            </pre>
+            <a id="link_to_bottom" href="#bottom">Bottom of imapsync log</a>
+        </div>
+
+        <div class="col-sm-6 well">
+            <h2 class="text-center">Console of abort</h2>
+            <pre id="abort">
+
+
+
+            </pre>
+        </div>
+    </div>
+
+</div>
+
+<h2 class="text-center scripton">Log of imapsync run</h2>
+
+<pre id="output" class="scripton">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+</pre>
+
+<div id="local_bandwidth" class="collapse">
+        <hr>
+        <p class="text-center">
+                <b>Local bandwidth statistics</b><br>
+
+                <a href="/vnstat/vnstati.html">
+                        <img alt="Local bandwidth statistics" src="/vnstat/vnstat_vs.png" >
+                </a>
+        </p>
+</div>
+
+
+<div id="local_status_dbmon" class="collapse">
+        <hr>
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last 24h</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_24h_1200x70">
+        </p>
+        
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last week</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_7d">
+        </p>
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last two months</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_2months_1200x70"><br>
+        </p>
+
+
+<!--
+Uncomment the following when the data are available
+-->
+<!--
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last year</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_1year_1200x70"><br>
+        </p>
+
+        <p class="text-center">
+        Imapsync <b>Online Status</b> over the <b>last 10 years</b><br>
+        <img class="img-responsive center-block" alt="Imapsync Online Status"  src="https://lstu.fr/imapsync_online_status_10years_1200x70-2"><br>
+        </p>
+-->
+
+</div>
+
+
+<div id="local_status_hetrix" class="collapse in">
+<hr>
+<p class="text-center">
+
+The service is down? For how long? How often? Take also a look at the
+<a href="https://hetrixtools.com/report/uptime/7908dea8f3ff86eabdef6146307afd5f/414322.html">Imapsync Online Status</a>
+monitor page powered by the <a href="https://hetrixtools.com/uptime-monitor/414322.html">HetrixTools</a> company.
+
+</p>
+</div>
+
+<a id="bottom"></a>
+<hr>
+
+    <p class="text-center">Feel free to contact 
+    <strong><a  href="https://imapsync.lamiral.info/#AUTHOR" target="_blank">Gilles LAMIRAL</a></strong>
+    </p>
+
+
+<div class="container-fluid" >
+    <div class="row">
+        <div class="text-center">
+            <a href="https://imapsync.lamiral.info/">
+                <img alt="Imapsync home page" src="https://imapsync.lamiral.info/X/logo_imapsync_Xn.png" height="38" width="60">
+            </a>
+            <a href="#top" title="Top of the page" class="btn btn-info " role="button">Top</a>
+            <!-- <a href="#buttons"  class="btn btn-info scripton" role="button">Consoles</a> -->
+            <a href="#bottom" title="Bottom of the page" class="btn btn-info active" role="button">Bottom</a>
+            <br>
+        <small> ($Id: imapsync_form_extra_free.html,v 1.18 2021/05/30 05:45:00 gilles Exp gilles $) </small><br>
+        Terms and conditions for anything: <a href="https://imapsync.lamiral.info/LICENSE">No limits to do anything with this work and this license!</a><br>
+        </div>
+    </div>
+</div>
+
+<script 
+src="https://ajax.googleapis.com/ajax/libs/jquery/3.2.1/jquery.min.js"
+integrity="sha384-xBuQ/xzmlsLoJpyjoggmTEz8OWUFM0/RC5BsqQBDX2v5cMvDHcMakNTNrHIW2I5f"
+crossorigin="anonymous"
+>
+</script>
+
+<script 
+src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"
+integrity="sha384-Tc5IQib027qvyjSMfHjOMaLkfuWVxZxUPnCJA7l2mCWNIpG9mGCD8wGNIcPD7Txa" 
+crossorigin="anonymous"
+>
+</script>
+
+<!--
+<script src="crypto-js/core.js"></script>
+<script src="crypto-js/sha256.js"></script>
+-->
+
+<script
+src="imapsync_form.js"
+>
+</script>
+
+<img src="https://static.scarf.sh/a.png?x-pxid=28b508c3-c51f-4109-9b88-29f3f6e4cf2f" alt="Scarf Tracker"/>
+
+</body>
+</html>
diff --git a/X/imapsync_form_1.69.html b/X/imapsync_form_wrapper.html
similarity index 87%
rename from X/imapsync_form_1.69.html
rename to X/imapsync_form_wrapper.html
index f31053f..ad0946b 100644
--- a/X/imapsync_form_1.69.html
+++ b/X/imapsync_form_wrapper.html
@@ -1,5 +1,5 @@
 <!DOCTYPE html>
-<!-- $Id: imapsync_form.html,v 1.69 2019/03/31 22:25:15 gilles Exp $ -->
+<!-- $Id: imapsync_form_wrapper.html,v 1.1 2020/03/04 14:10:30 gilles Exp gilles $ -->
 
 <html lang="en" id="top">
  
@@ -20,9 +20,7 @@
 
 
 	<noscript>
-	<style>
-	.scripton {display:none;}
-	</style>
+        <link rel="stylesheet" href="noscript.css">
 	</noscript>
 	
 </head>
@@ -30,6 +28,18 @@
 <body>
 
 
+<div class="scripton">
+        <!-- will appear if some tests fail -->
+        <pre id="tests" class="collapse"></pre>
+        <!-- hidden stuff that must exit for the tests -->
+        <div class="hidden">
+                <input type="checkbox" id="test_checkbox">
+                <input type="text" id="test_text">
+                <input type="radio" id="test_radio1" name="test_radio" value="first" >
+                <input type="radio" id="test_radio2" name="test_radio" value="second" >
+        </div>
+</div>
+
 <div class="container-fluid" >
 
     <div class="row">
@@ -59,11 +69,11 @@ old: H2YTURNFT4XT4
 	<a href="#payment" class="btn btn-warning btn-lg" data-toggle="collapse">Pricing</a>
 	</div>
         -->
-        
+
 <!-- the "in" makes the form not collapsed by default 
      Remove the in in order to mask the pricing section 
      <div id="payment" class="well text-center collapse in" > -->
-     <div id="payment" class="well text-center collapse" >
+     <div id="payment" class="well text-center collapse out" >
         <p class="lead">Pay by usage type</p>
         <form action="https://www.paypal.com/cgi-bin/webscr" method="post" target="_blank">
             <input type="hidden" name="cmd" value="_s-xclick" />
@@ -93,9 +103,9 @@ old: H2YTURNFT4XT4
         </form>
     </div>
 <!-- Paypal part end -->
-	
-	
-    <form id="form" action="/cgi-bin/imapsync" method="post" autocomplete="on">
+
+
+    <form id="form" action="/cgi-bin/imapsync_shell_wrapper" method="post" autocomplete="on">
         <div class="row">
             <div id="account1" class="col-md-6" >
                 <fieldset>
@@ -111,7 +121,7 @@ old: H2YTURNFT4XT4
                 </div>
 
                 <label for="password1">Password</label>
-                <label class="checkbox-inline">
+                <label class="checkbox-inline out">
                     <input type="checkbox" id="showpassword1"> show password
                 </label>
                 <div class="input-group form-group">
@@ -163,7 +173,7 @@ old: H2YTURNFT4XT4
                     placeholder="Enter login name">
                 </div>
                 <label for="password2">Password</label>
-                <label class="checkbox-inline">
+                <label class="checkbox-inline out">
                     <input type="checkbox" id="showpassword2"> show password
                 </label>
                 <div class="input-group form-group">
@@ -203,10 +213,10 @@ old: H2YTURNFT4XT4
         </div>
         <input type="hidden" name="automap"   value="on">
         <input type="hidden" name="addheader" value="on">
-        <!-- --#>
+        <!-- -#->
         <input type="hidden" name="simulong" value="360">
-        <#!-- -->
-        <a name="buttons"></a>
+        <!-#- -->
+        <a id="buttons"></a>
         <hr> 
         
         <!-- Classical button to go to the log only -->
@@ -244,6 +254,18 @@ old: H2YTURNFT4XT4
 
 
     <div class="row scripton" id="consoles">
+    
+        <pre id="progress-txt">ETA: Estimation Time of Arrival</pre>
+
+        <div class="progress">
+                <div id="progress-bar-done" class="progress-bar progress-bar-success" role="progressbar">
+                Progress bar 
+                </div>
+                <div id="progress-bar-left" class="progress-bar progress-bar-info" role="progressbar">
+                Progress bar
+                </div>
+        </div>
+        
         <div class="col-sm-6 well">
             <h2 class="text-center">Console of imapsync run</h2>
             <pre id="console">
@@ -289,7 +311,7 @@ old: H2YTURNFT4XT4
 
 </pre>
 
-<a name="bottom"></a>
+<a id="bottom"></a>
 <hr>
 <p class="text-center">
         Local bandwidth statistics <br>
@@ -313,7 +335,7 @@ old: H2YTURNFT4XT4
             <!-- <a href="#buttons"  class="btn btn-info scripton" role="button">Consoles</a> -->
             <a href="#bottom" title="Bottom of the page" class="btn btn-info active" role="button">Bottom</a>
             <br>
-        <small> ($Id: imapsync_form.html,v 1.69 2019/03/31 22:25:15 gilles Exp $) </small><br>
+        <small> ($Id: imapsync_form_wrapper.html,v 1.1 2020/03/04 14:10:30 gilles Exp gilles $) </small><br>
         Terms and conditions for anything: <a href="https://imapsync.lamiral.info/LICENSE">No limits to do anything with this work and this license!</a><br>
         </div>
     </div>
@@ -336,7 +358,7 @@ crossorigin="anonymous"
 
 
 <script
-src="imapsync_form.js"
+src="imapsync_form_wrapper.js"
 >
 </script>
 
diff --git a/X/imapsync_form_wrapper.js b/X/imapsync_form_wrapper.js
new file mode 100644
index 0000000..9f0f07c
--- /dev/null
+++ b/X/imapsync_form_wrapper.js
@@ -0,0 +1,704 @@
+
+// $Id: imapsync_form_wrapper.js,v 1.2 2020/03/04 14:09:21 gilles Exp gilles $
+
+/*jslint browser: true*/ /*global  $*/
+
+
+$(document).ready(
+    function ()
+    {
+    "use strict";
+    // Bootstrap popover and tooltip
+    $("[data-toggle='tooltip']").tooltip();
+
+    var readyStateStr = {
+    "0": "Request not initialized",
+    "1": "Server connection established",
+    "2": "Response headers received",
+    "3": "Processing request",
+    "4": "Finished and response is ready"
+        } ;
+
+        var refresh_interval_ms = 5000 ;
+        var refresh_interval_s = refresh_interval_ms  / 1000 ;
+        var test = {
+            counter_all : 0 ,
+            counter_ok  : 0 ,
+            counter_nok : 0 ,
+            failed_tests : ""
+        } ;
+
+    var is = function is( expected, given, comment )
+    {
+        test.counter_all += 1 ;
+        var message = test.counter_all + " - ["
+            + expected
+            + "] === ["
+            + given
+            + "] "
+            + comment
+            + "\n" ;
+        if ( expected === given )
+        {
+            test.counter_ok += 1 ;
+            message = "ok " +  message ;
+        }
+        else
+        {
+            test.counter_nok += 1 ;
+            test.failed_tests += "nb " + message + "\n" ;
+            message = "not ok "  + message ;
+        }
+        $("#tests").append( message ) ;
+    } ;
+
+    function last_eta( string )
+    {
+        // return the last occurrence of the substring "ETA: ...\n"
+        // or "ETA: unknown" or ""
+        var eta ;
+        var last_found ;
+
+        if ( undefined === string )
+        {
+            return "" ;
+        }
+
+        var eta_re = /ETA:.*\n/g ;
+
+        eta = string.match( eta_re ) ;
+        if ( eta )
+        {
+            last_found = eta[eta.length -1 ] ;
+            return last_found ;
+        }
+        else
+        {
+            return "ETA: unknown" ;
+        }
+    }
+
+    function tests_last_eta()
+    {
+        is( "", last_eta(  ),  "last_eta: no args => empty string" ) ;
+
+        is(
+            "ETA: unknown",
+            last_eta( "" ),
+            "last_eta: empty => empty string" ) ;
+
+        is( "ETA: unknown",
+            last_eta( "ETA" ),
+            "last_eta: ETA => empty string" ) ;
+
+        is( "ETA: unknown", last_eta( "ETA: but no CR" ),
+            "last_eta: ETA: but no CR => empty string" ) ;
+
+        is(
+            "ETA: with CR\n",
+            last_eta( "Blabla ETA: with CR\n" ),
+            "last_eta: ETA: with CR => ETA: with CR"
+        ) ;
+
+        is(
+            "ETA: 2 with CR\n",
+            last_eta( "Blabla ETA: 1 with CR\nBlabla ETA: 2 with CR\n" ),
+            "last_eta: several ETA: with CR => ETA: 2 with CR"
+        ) ;
+    }
+
+    var tests_decompose_eta_line = function tests_decompose_eta_line()
+    {
+        var eta_obj ;
+        var eta_str = "ETA: Wed Jul  3 14:55:27 2019  1234 s  123/4567 msgs left\n" ;
+
+        eta_obj = decompose_eta_line( "" ) ;
+        is(
+            "",
+            eta_obj.str,
+            "decompose_eta_line: no match => undefined"
+        ) ;
+
+
+        eta_obj = decompose_eta_line( eta_str ) ;
+        is(
+            eta_str,
+            eta_str,
+            "decompose_eta_line: str is str"
+        ) ;
+
+        is(
+            eta_str,
+            eta_obj.str,
+            "decompose_eta_line: str back"
+        ) ;
+
+        is(
+            "Wed Jul  3 14:55:27 2019",
+            eta_obj.date,
+            "decompose_eta_line: date"
+        ) ;
+
+        is(
+            "1234",
+            eta_obj.seconds_left,
+            "decompose_eta_line: seconds_left"
+        ) ;
+
+        is(
+            "123",
+            eta_obj.msgs_left,
+            "decompose_eta_line: msgs_left"
+        ) ;
+
+        is(
+            "4567",
+            eta_obj.msgs_total,
+            "decompose_eta_line: msgs_total"
+        ) ;
+
+        is(
+            "4444",
+            eta_obj.msgs_done(),
+            "decompose_eta_line: msgs_done"
+        ) ;
+
+        is(
+            "97.31",
+            eta_obj.percent_done(),
+            "decompose_eta_line: percent_done"
+        ) ;
+
+        is(
+            "2.69",
+            eta_obj.percent_left(),
+            "decompose_eta_line: percent_left"
+        ) ;
+    } ;
+
+    var decompose_eta_line = function decompose_eta_line( eta_str )
+    {
+        var eta_obj ;
+        var eta_array ;
+
+        var regex_eta = /^ETA:\s+(.*?)\s+([0-9]+)\s+s\s+([0-9]+)\/([0-9]+)\s+msgs\s+left\n?$/ ;
+        eta_array = regex_eta.exec( eta_str ) ;
+
+        if ( null !== eta_array )
+        {
+            eta_obj = {
+                str      : eta_str,
+                date     : eta_array[1],
+                seconds_left : eta_array[2],
+                msgs_left    : eta_array[3],
+                msgs_total   : eta_array[4],
+                msgs_done    : function() {
+                    var diff = eta_obj.msgs_total - eta_obj.msgs_left ;
+                    return( diff.toString() ) ;
+                },
+                percent_done    : function() {
+                    var percent ;
+                    if ( 0 === eta_obj.msgs_total )
+                    {
+                        return "0" ;
+                    }
+                    else
+                    {
+                        percent = ( eta_obj.msgs_total - eta_obj.msgs_left ) / eta_obj.msgs_total * 100 ;
+                        return( percent.toFixed(2) ) ;
+                    }
+                },
+                percent_left    : function() {
+                    var percent ;
+                    if ( 0 === eta_obj.msgs_total )
+                    {
+                        return "0" ;
+                    }
+                    else
+                    {
+                        percent = ( eta_obj.msgs_left / eta_obj.msgs_total * 100 ) ;
+                        return( percent.toFixed(2) ) ;
+                    }
+                }
+            } ;
+        }
+        else
+        {
+            eta_obj = {
+                str      : "",
+                date     : "?",
+                seconds_left : "?",
+                msgs_left    : "?",
+                msgs_total   : "?",
+                msgs_done    : "?",
+                percent_done : function() { return "" ; },
+                percent_left : function() { return "" ; }
+            } ;
+        }
+
+        return eta_obj ;
+    } ;
+
+    var extract_eta = function extract_eta( xhr )
+    {
+        var eta_obj ;
+        var slice_length ;
+        var slice_log ;
+        var eta_str ;
+
+        if ( xhr.readyState === 4 )
+        {
+            slice_length = -24000 ;
+        }
+        else
+        {
+            slice_length = -240 ;
+        }
+        slice_log = xhr.responseText.slice( slice_length ) ;
+        eta_str   = last_eta( slice_log ) ;
+        // $("#tests").append( "extract_eta eta_str: " + eta_str + "\n" ) ;
+        eta_obj   = decompose_eta_line( eta_str ) ;
+        return eta_obj ;
+    } ;
+
+    var progress_bar_update = function progress_bar_update( eta_obj )
+    {
+        if ( eta_obj.str.length )
+        {
+            $("#progress-bar-done").css( "width", eta_obj.percent_done() + "%" ).attr( "aria-valuenow", eta_obj.percent_done() ) ;
+            $("#progress-bar-left").css( "width", eta_obj.percent_left() + "%" ).attr( "aria-valuenow", eta_obj.percent_left() ) ;
+            $("#progress-bar-done").text( eta_obj.percent_done() + "% " + "done" ) ;
+            $("#progress-bar-left").text( eta_obj.percent_left() + "% " + "left" ) ;
+        }
+        else
+        {
+            $("#progress-bar-done").text( "unknown % " + "done" ) ;
+            $("#progress-bar-left").text( "unknown % " + "left" ) ;
+        }
+        return ;
+    } ;
+
+    function refreshLog( xhr )
+    {
+        var eta_obj ;
+        var eta_str ;
+
+        eta_obj = extract_eta( xhr ) ;
+
+        progress_bar_update( eta_obj ) ;
+
+        if ( xhr.readyState === 4 )
+        {
+            // end of sync
+            $("#progress-txt").text(
+                "Ended. It remains "
+                + eta_obj.msgs_left + " messages to be synced" ) ;
+        }
+        else
+        {
+            eta_str = eta_obj.str + " (refresh every " + refresh_interval_s + " s)" ;
+            eta_str = eta_str.replace(/(\r\n|\n|\r)/gm, "") ; // trim newline
+            //$("#tests").append( "refreshLog  eta_str: " + eta_str + "\n" ) ;
+            $("#progress-txt").text( eta_str ) ;
+
+        }
+
+        $( "#output" ).text( xhr.responseText ) ;
+    }
+
+
+
+    function handleRun(xhr, timerRefreshLog)
+    {
+
+        $("#console").text(
+            "Status: " + xhr.status + " " + xhr.statusText + "\n"
+            + "State: " + readyStateStr[xhr.readyState] + "\n" ) ;
+
+        if ( xhr.readyState === 4 ) {
+        // var headers = xhr.getAllResponseHeaders();
+        // $("#console").append(headers);
+        // $("#console").append("See the completed log\n");
+        $("#link_to_bottom").show() ;
+        clearInterval( timerRefreshLog ) ;
+        refreshLog( xhr ) ; // a last time
+        // back to enable state for next run
+        $("#bt-sync").prop("disabled", false) ;
+        }
+    }
+
+    function imapsync()
+    {
+        var querystring = $("#form").serialize() ;
+        $("#abort").text("\n\n") ; // clean abort console
+        $("#output").text("Here comes the log!\n\n") ;
+
+        if ( "imap.gmail.com" === $("#host1").val() )
+        {
+            querystring = querystring + "&gmail1=on" ;
+        }
+        if ( "imap.gmail.com" === $("#host2").val() )
+        {
+            querystring = querystring + "&gmail2=on" ;
+        }
+
+        // Same for "outlook.office365.com"
+        if ( "outlook.office365.com" === $("#host1").val() )
+        {
+            querystring = querystring + "&office1=on" ;
+        }
+        if ( "outlook.office365.com" === $("#host2").val() )
+        {
+            querystring = querystring + "&office2=on" ;
+        }
+
+
+        var xhr ;
+        xhr = new XMLHttpRequest() ;
+        var timerRefreshLog = setInterval(
+            function ()
+            {
+                refreshLog( xhr ) ;
+            }, refresh_interval_ms ) ;
+
+        xhr.onreadystatechange = function ()
+        {
+            handleRun( xhr, timerRefreshLog ) ;
+        } ;
+
+        xhr.open( "POST", "/cgi-bin/imapsync_shell_wrapper", true ) ;
+        xhr.setRequestHeader( "Content-type",
+            "application/x-www-form-urlencoded" ) ;
+        xhr.send( querystring ) ;
+    }
+
+
+    function handleAbort( xhr )
+    {
+
+        $( "#abort" ).text(
+            "Status: " + xhr.status + " " + xhr.statusText + "\n"
+            + "State: " + readyStateStr[xhr.readyState] + "\n\n" ) ;
+
+        if ( xhr.readyState === 4 )
+        {
+            $("#abort").append(xhr.responseText);
+            $("#bt-sync").prop("disabled", false);
+            $("#bt-abort").prop("disabled", false); // back for next abort
+        }
+    }
+
+    function abort()
+    {
+        var querystring = $("#form").serialize() + "&abort=on";
+        var xhr;
+        xhr = new XMLHttpRequest();
+        xhr.onreadystatechange = function ()
+        {
+            handleAbort(xhr);
+        };
+        xhr.open("POST", "/cgi-bin/imapsync_shell_wrapper", true);
+        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
+        xhr.send(querystring);
+    }
+
+    function store( id )
+    {
+        var stored ;
+        //$( "#tests" ).append( "Eco: " + id + " type is " + $( id ).attr( "type" ) + "\n" ) ;
+        if ( "text" === $( id ).attr( "type" ) || "password" === $( id ).attr( "type" ) )
+        {
+            localStorage.setItem( id, $(id).val() ) ;
+            stored = $( id ).val() ;
+        }
+        else if ( "checkbox" === $( id ).attr( "type" ) )
+        {
+            //$( "#tests" ).append( "Eco: " + id + " checked is " + $( id )[0].checked + "\n" ) ;
+            localStorage.setItem( id, $( id )[0].checked ) ;
+            stored = $( id )[0].checked ;
+        }
+        return stored ;
+    }
+
+    function retrieve( id )
+    {
+        var retrieved ;
+        //$( "#tests" ).append( "Eco: " + id + " type is " + $( id ).attr( "type" ) + " length is " + $( id ).length + "\n" ) ;
+        if ( "text" === $( id ).attr( "type" ) || "password" === $( id ).attr( "type" ) )
+        {
+            $( id ).val( localStorage.getItem( id ) ) ;
+            retrieved = $( id ).val() ;
+        }
+        else if ( "checkbox" === $( id ).attr( "type" ) )
+        {
+            //$( "#tests" ).append( "Eco: " + id + " getItem is " + localStorage.getItem( id ) + "\n" ) ;
+            $( id )[0].checked = JSON.parse( localStorage.getItem( id ) ) ;
+            retrieved = $( id )[0].checked ;
+        }
+        return retrieved ;
+    }
+
+    function tests_store_retrieve()
+    {
+        if ( $("#tests").length !== 0 )
+        {
+            is( 1, 1, "one equals one" ) ;
+            // isnot( 0, 1, "zero differs one" ) ;
+
+            // no exist
+            is( undefined, store( "#test_noexists" ),
+                "store: #test_noexists" ) ;
+            is( undefined, retrieve( "#test_noexists" ),
+                "retrieve: #test_noexists" ) ;
+            is( undefined, retrieve( "#test_noexists2" ),
+                "retrieve: #test_noexists2" ) ;
+
+            // input text
+            $("#test_text" ).val( "foo" ) ;
+            is( "foo", $("#test_text" ).val(  ), "#test_text val = foo" ) ;
+            is( "foo", store( "#test_text" ),    "store: #test_text" ) ;
+            $("#test_text" ).val( "bar" ) ;
+            is( "bar", $("#test_text" ).val(  ), "#test_text val = bar" ) ;
+            is( "foo", retrieve( "#test_text" ), "retrieve: #test_text = foo" ) ;
+            is( "foo", $("#test_text" ).val(  ), "#test_text val = foo" ) ;
+
+
+            // input check button
+            $( "#test_checkbox" ).prop( "checked", true );
+            is( true, store( "#test_checkbox" ),    "store: #test_checkbox checked" ) ;
+
+            $( "#test_checkbox" ).prop( "checked", false );
+            is( true, retrieve( "#test_checkbox" ), "retrieve: #test_checkbox = true" ) ;
+
+            $( "#test_checkbox" ).prop( "checked", false );
+            is( false, store( "#test_checkbox" ),    "store: #test_checkbox not checked" ) ;
+            $( "#test_checkbox" ).prop( "checked", true );
+            is( false, retrieve( "#test_checkbox" ), "retrieve: #test_checkbox = false" ) ;
+
+        }
+    }
+
+
+    function store_form()
+    {
+        if ( Storage !== "undefined")
+        {
+        // Code for localStorage.
+            store("#user1") ;
+            store("#password1") ;
+            store("#host1") ;
+            store("#subfolder1") ;
+            store("#showpassword1") ;
+
+            store("#user2") ;
+            store("#password2") ;
+            store("#host2") ;
+            store("#subfolder2") ;
+            store("#showpassword2") ;
+
+            store("#dry") ;
+            store("#justlogin") ;
+            store("#justfolders") ;
+            store("#justfoldersizes") ;
+
+            localStorage.account1_background_color = $("#account1").css("background-color") ;
+            localStorage.account2_background_color = $("#account2").css("background-color") ;
+        }
+    }
+
+    function show_extra_if_needed()
+    {
+        if ( $("#subfolder1").length && $("#subfolder1").val().length > 0 )
+        {
+            $(".extra_param").show() ;
+        }
+        if ( $("#subfolder2").length && $("#subfolder2").val().length > 0 )
+        {
+            $(".extra_param").show() ;
+        }
+    }
+
+    function retrieve_form()
+    {
+        if ( Storage !== "undefined" )
+        {
+        // Code for localStorage.
+            retrieve( "#user1" ) ;
+            retrieve( "#password1" ) ;
+            // retrieve("#showpassword1") ;
+            retrieve( "#host1" ) ;
+            retrieve( "#subfolder1" ) ;
+
+            retrieve( "#user2" ) ;
+            retrieve( "#password2" ) ;
+            // retrieve("#showpassword2") ;
+            retrieve( "#host2" ) ;
+            retrieve( "#subfolder2" ) ;
+
+            retrieve( "#dry" ) ;
+            retrieve( "#justlogin" ) ;
+            retrieve( "#justfolders" ) ;
+            retrieve( "#justfoldersizes" ) ;
+
+            // In case, how to restore the original color from css file.
+            // localStorage.removeItem( "account1_background_color" ) ;
+            // localStorage.removeItem( "account2_background_color" ) ;
+
+            if ( localStorage.account1_background_color )
+            {
+                $("#account1").css("background-color",
+                    localStorage.account1_background_color ) ;
+            }
+            if ( localStorage.account2_background_color )
+            {
+                $("#account2").css("background-color",
+                    localStorage.account2_background_color ) ;
+            }
+
+            // Show the extra parameters if they are not empty because it would be dangerous
+            // to retrieve them without knowing
+            show_extra_if_needed() ;
+        }
+    }
+
+
+    function showpassword( id, button )
+    {
+        var x = document.getElementById( id );
+        if ( button.checked )
+        {
+            x.type = "text";
+        } else {
+            x.type = "password";
+        }
+    }
+
+    function init()
+    {
+    // in case of a manual refresh, start with
+        $("#bt-sync").prop("disabled", false);
+        $("#bt-abort").prop("disabled", false);
+        $("#link_to_bottom").hide();
+        $("#progress-bar-left").css( "width", 100 + "%" ).attr( "aria-valuenow", 100 ) ;
+
+        retrieve_form();
+
+        $("#showpassword1").click(
+            function ( event )
+            {
+                var button = event.target ;
+                showpassword( "password1", button ) ;
+            }
+        );
+
+
+        $("#showpassword2").click(
+            function ( event )
+            {
+                //$("#tests").append( "\nthat1=" + JSON.stringify( event.target, undefined, 4 ) ) ;
+                var button = event.target ;
+                showpassword( "password2", button ) ;
+            }
+        );
+
+
+        $("#bt-sync").click(
+            function ()
+            {
+                $("#bt-sync").prop("disabled", true) ;
+                $("#bt-abort").prop("disabled", false) ;
+                $("#link_to_bottom").hide() ;
+                $("#progress-txt").text( "ETA: coming soon" ) ;
+                store_form() ;
+                imapsync() ;
+            }
+        );
+
+        $("#bt-abort").click(
+            function ()
+            {
+                $("#bt-sync").prop("disabled", true);
+                $("#bt-abort").prop("disabled", true);
+                abort();
+            }
+        );
+
+
+        var swap = function swap( p1, p2 )
+        {
+            var temp = $( p2 ).val(  ) ;
+            $( p2 ).val( $( p1 ).val(  ) ) ;
+            $( p1 ).val( temp ) ;
+        } ;
+
+
+        $("#swap").click(
+            function()
+            {
+                // swaping colors can't use swap()
+                var temp1 = $("#account1").css("background-color") ;
+                var temp2 = $("#account2").css("background-color") ;
+                $("#account1").css("background-color", temp2 );
+                $("#account2").css("background-color", temp1 );
+
+                swap( $("#user1"),      $("#user2") ) ;
+                swap( $("#password1"),  $("#password2") ) ;
+                swap( $("#host1"),      $("#host2") ) ;
+                swap( $("#subfolder1"), $("#subfolder2") ) ;
+
+                var temp = $("#showpassword1")[0].checked ;
+                $("#showpassword1")[0].checked = $("#showpassword2")[0].checked ;
+                $("#showpassword2")[0].checked = temp ;
+                showpassword( "password1", $("#showpassword1")[0] ) ;
+                showpassword( "password2", $("#showpassword2")[0] ) ;
+            }
+        ) ;
+    }
+
+        var tests_bilan = function tests_bilan()
+        {
+            // attended number of tests
+            var nb_attended_test = 29 ;
+            $("#tests").append( "1.." + test.counter_all + "\n" ) ;
+            if ( test.counter_nok > 0 )
+            {
+                $("#tests").append(
+                    "\nFAILED tests \n"
+                    + test.failed_tests
+                ) ;
+                $("#tests").collapse("show") ;
+            }
+            // Summary of tests: failed 0 tests, run xx tests,
+            // expected to run yy tests.
+            if ( test.counter_all !== nb_attended_test )
+            {
+                $("#tests").append( "# Looks like you planned "
+                    + nb_attended_test
+                    + " tests but ran "
+                    + test.counter_all + ".\n"
+                ) ;
+                $("#tests").collapse("show") ;
+            }
+        } ;
+
+        function tests()
+        {
+            if ( $("#tests").length !== 0 )
+            {
+                tests_store_retrieve(  ) ;
+                tests_last_eta(  ) ;
+                tests_decompose_eta_line(  ) ;
+                //is( 0, 1, "this test always fails" ) ;
+                tests_bilan(  ) ;
+                //$("#tests").collapse("show") ;
+
+            }
+        }
+
+        init(  ) ;
+        tests(  ) ;
+
+    }
+
+);
+
diff --git a/X/imapsync_shell_wrapper b/X/imapsync_shell_wrapper
new file mode 100755
index 0000000..0099f06
--- /dev/null
+++ b/X/imapsync_shell_wrapper
@@ -0,0 +1,55 @@
+#!/bin/sh
+
+# $Id: imapsync_shell_wrapper,v 1.6 2020/03/26 22:24:10 gilles Exp gilles $
+
+## A pure working wrapper is like this one for example:
+## Uncomment the following lines to test it
+
+#/usr/lib/cgi-bin/imapsync
+#date
+#id
+#cal
+#exit
+
+## but the previous is a little useless and uneasy to add extra parameters
+## We need a little extra work.
+
+
+# Count characters in files, except the \r \n characters
+count_chars_but_nl()
+{
+        cat "$@" | tr -d '\r\n' | wc -c
+}
+
+# Run imapsync with parameters written in files given in arguments
+imapsync_with_extra_param()
+{
+        # Update the environment variable CONTENT_LENGTH 
+        # This update is mandatory or the augmented parameters list will be truncated by imapsync.
+        CONTENT_LENGTH=`count_chars_but_nl "$@"`
+        cat "$@" | tr -d '\r\n' | /usr/lib/cgi-bin/imapsync
+}
+
+# The actual stuff
+# Save the UI parameters in a file
+cat > /tmp/imapsync_shell_wrapper_from_ui.txt
+
+# Now run imapsync with the UI parameters and the extra parameters
+imapsync_with_extra_param /tmp/imapsync_shell_wrapper_from_ui.txt /tmp/imapsync_shell_wrapper_extra.txt 
+echo imapsync first run exited with return code $?
+echo
+who
+date
+
+# A second run with other some extra_2 parameters
+imapsync_with_extra_param /tmp/imapsync_shell_wrapper_from_ui.txt /tmp/imapsync_shell_wrapper_extra_2.txt
+echo imapsync last run exited with return code $?
+echo
+cal
+echo
+echo Bye bye
+
+# Got the picture?
+
+
+
diff --git a/X/index.html b/X/index.html
index 981d6bf..2fbf298 120000
--- a/X/index.html
+++ b/X/index.html
@@ -1 +1 @@
-imapsync_form_extra.html
\ No newline at end of file
+imapsync_form_extra_free.html
\ No newline at end of file
diff --git a/X/jquery-3.3.1.js b/X/jquery-3.3.1.js
deleted file mode 100644
index 9b5206b..0000000
--- a/X/jquery-3.3.1.js
+++ /dev/null
@@ -1,10364 +0,0 @@
-/*!
- * jQuery JavaScript Library v3.3.1
- * https://jquery.com/
- *
- * Includes Sizzle.js
- * https://sizzlejs.com/
- *
- * Copyright JS Foundation and other contributors
- * Released under the MIT license
- * https://jquery.org/license
- *
- * Date: 2018-01-20T17:24Z
- */
-( function( global, factory ) {
-
-	"use strict";
-
-	if ( typeof module === "object" && typeof module.exports === "object" ) {
-
-		// For CommonJS and CommonJS-like environments where a proper `window`
-		// is present, execute the factory and get jQuery.
-		// For environments that do not have a `window` with a `document`
-		// (such as Node.js), expose a factory as module.exports.
-		// This accentuates the need for the creation of a real `window`.
-		// e.g. var jQuery = require("jquery")(window);
-		// See ticket #14549 for more info.
-		module.exports = global.document ?
-			factory( global, true ) :
-			function( w ) {
-				if ( !w.document ) {
-					throw new Error( "jQuery requires a window with a document" );
-				}
-				return factory( w );
-			};
-	} else {
-		factory( global );
-	}
-
-// Pass this if window is not defined yet
-} )( typeof window !== "undefined" ? window : this, function( window, noGlobal ) {
-
-// Edge <= 12 - 13+, Firefox <=18 - 45+, IE 10 - 11, Safari 5.1 - 9+, iOS 6 - 9.1
-// throw exceptions when non-strict code (e.g., ASP.NET 4.5) accesses strict mode
-// arguments.callee.caller (trac-13335). But as of jQuery 3.0 (2016), strict mode should be common
-// enough that all such attempts are guarded in a try block.
-"use strict";
-
-var arr = [];
-
-var document = window.document;
-
-var getProto = Object.getPrototypeOf;
-
-var slice = arr.slice;
-
-var concat = arr.concat;
-
-var push = arr.push;
-
-var indexOf = arr.indexOf;
-
-var class2type = {};
-
-var toString = class2type.toString;
-
-var hasOwn = class2type.hasOwnProperty;
-
-var fnToString = hasOwn.toString;
-
-var ObjectFunctionString = fnToString.call( Object );
-
-var support = {};
-
-var isFunction = function isFunction( obj ) {
-
-      // Support: Chrome <=57, Firefox <=52
-      // In some browsers, typeof returns "function" for HTML <object> elements
-      // (i.e., `typeof document.createElement( "object" ) === "function"`).
-      // We don't want to classify *any* DOM node as a function.
-      return typeof obj === "function" && typeof obj.nodeType !== "number";
-  };
-
-
-var isWindow = function isWindow( obj ) {
-		return obj != null && obj === obj.window;
-	};
-
-
-
-
-	var preservedScriptAttributes = {
-		type: true,
-		src: true,
-		noModule: true
-	};
-
-	function DOMEval( code, doc, node ) {
-		doc = doc || document;
-
-		var i,
-			script = doc.createElement( "script" );
-
-		script.text = code;
-		if ( node ) {
-			for ( i in preservedScriptAttributes ) {
-				if ( node[ i ] ) {
-					script[ i ] = node[ i ];
-				}
-			}
-		}
-		doc.head.appendChild( script ).parentNode.removeChild( script );
-	}
-
-
-function toType( obj ) {
-	if ( obj == null ) {
-		return obj + "";
-	}
-
-	// Support: Android <=2.3 only (functionish RegExp)
-	return typeof obj === "object" || typeof obj === "function" ?
-		class2type[ toString.call( obj ) ] || "object" :
-		typeof obj;
-}
-/* global Symbol */
-// Defining this global in .eslintrc.json would create a danger of using the global
-// unguarded in another place, it seems safer to define global only for this module
-
-
-
-var
-	version = "3.3.1",
-
-	// Define a local copy of jQuery
-	jQuery = function( selector, context ) {
-
-		// The jQuery object is actually just the init constructor 'enhanced'
-		// Need init if jQuery is called (just allow error to be thrown if not included)
-		return new jQuery.fn.init( selector, context );
-	},
-
-	// Support: Android <=4.0 only
-	// Make sure we trim BOM and NBSP
-	rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g;
-
-jQuery.fn = jQuery.prototype = {
-
-	// The current version of jQuery being used
-	jquery: version,
-
-	constructor: jQuery,
-
-	// The default length of a jQuery object is 0
-	length: 0,
-
-	toArray: function() {
-		return slice.call( this );
-	},
-
-	// Get the Nth element in the matched element set OR
-	// Get the whole matched element set as a clean array
-	get: function( num ) {
-
-		// Return all the elements in a clean array
-		if ( num == null ) {
-			return slice.call( this );
-		}
-
-		// Return just the one element from the set
-		return num < 0 ? this[ num + this.length ] : this[ num ];
-	},
-
-	// Take an array of elements and push it onto the stack
-	// (returning the new matched element set)
-	pushStack: function( elems ) {
-
-		// Build a new jQuery matched element set
-		var ret = jQuery.merge( this.constructor(), elems );
-
-		// Add the old object onto the stack (as a reference)
-		ret.prevObject = this;
-
-		// Return the newly-formed element set
-		return ret;
-	},
-
-	// Execute a callback for every element in the matched set.
-	each: function( callback ) {
-		return jQuery.each( this, callback );
-	},
-
-	map: function( callback ) {
-		return this.pushStack( jQuery.map( this, function( elem, i ) {
-			return callback.call( elem, i, elem );
-		} ) );
-	},
-
-	slice: function() {
-		return this.pushStack( slice.apply( this, arguments ) );
-	},
-
-	first: function() {
-		return this.eq( 0 );
-	},
-
-	last: function() {
-		return this.eq( -1 );
-	},
-
-	eq: function( i ) {
-		var len = this.length,
-			j = +i + ( i < 0 ? len : 0 );
-		return this.pushStack( j >= 0 && j < len ? [ this[ j ] ] : [] );
-	},
-
-	end: function() {
-		return this.prevObject || this.constructor();
-	},
-
-	// For internal use only.
-	// Behaves like an Array's method, not like a jQuery method.
-	push: push,
-	sort: arr.sort,
-	splice: arr.splice
-};
-
-jQuery.extend = jQuery.fn.extend = function() {
-	var options, name, src, copy, copyIsArray, clone,
-		target = arguments[ 0 ] || {},
-		i = 1,
-		length = arguments.length,
-		deep = false;
-
-	// Handle a deep copy situation
-	if ( typeof target === "boolean" ) {
-		deep = target;
-
-		// Skip the boolean and the target
-		target = arguments[ i ] || {};
-		i++;
-	}
-
-	// Handle case when target is a string or something (possible in deep copy)
-	if ( typeof target !== "object" && !isFunction( target ) ) {
-		target = {};
-	}
-
-	// Extend jQuery itself if only one argument is passed
-	if ( i === length ) {
-		target = this;
-		i--;
-	}
-
-	for ( ; i < length; i++ ) {
-
-		// Only deal with non-null/undefined values
-		if ( ( options = arguments[ i ] ) != null ) {
-
-			// Extend the base object
-			for ( name in options ) {
-				src = target[ name ];
-				copy = options[ name ];
-
-				// Prevent never-ending loop
-				if ( target === copy ) {
-					continue;
-				}
-
-				// Recurse if we're merging plain objects or arrays
-				if ( deep && copy && ( jQuery.isPlainObject( copy ) ||
-					( copyIsArray = Array.isArray( copy ) ) ) ) {
-
-					if ( copyIsArray ) {
-						copyIsArray = false;
-						clone = src && Array.isArray( src ) ? src : [];
-
-					} else {
-						clone = src && jQuery.isPlainObject( src ) ? src : {};
-					}
-
-					// Never move original objects, clone them
-					target[ name ] = jQuery.extend( deep, clone, copy );
-
-				// Don't bring in undefined values
-				} else if ( copy !== undefined ) {
-					target[ name ] = copy;
-				}
-			}
-		}
-	}
-
-	// Return the modified object
-	return target;
-};
-
-jQuery.extend( {
-
-	// Unique for each copy of jQuery on the page
-	expando: "jQuery" + ( version + Math.random() ).replace( /\D/g, "" ),
-
-	// Assume jQuery is ready without the ready module
-	isReady: true,
-
-	error: function( msg ) {
-		throw new Error( msg );
-	},
-
-	noop: function() {},
-
-	isPlainObject: function( obj ) {
-		var proto, Ctor;
-
-		// Detect obvious negatives
-		// Use toString instead of jQuery.type to catch host objects
-		if ( !obj || toString.call( obj ) !== "[object Object]" ) {
-			return false;
-		}
-
-		proto = getProto( obj );
-
-		// Objects with no prototype (e.g., `Object.create( null )`) are plain
-		if ( !proto ) {
-			return true;
-		}
-
-		// Objects with prototype are plain iff they were constructed by a global Object function
-		Ctor = hasOwn.call( proto, "constructor" ) && proto.constructor;
-		return typeof Ctor === "function" && fnToString.call( Ctor ) === ObjectFunctionString;
-	},
-
-	isEmptyObject: function( obj ) {
-
-		/* eslint-disable no-unused-vars */
-		// See https://github.com/eslint/eslint/issues/6125
-		var name;
-
-		for ( name in obj ) {
-			return false;
-		}
-		return true;
-	},
-
-	// Evaluates a script in a global context
-	globalEval: function( code ) {
-		DOMEval( code );
-	},
-
-	each: function( obj, callback ) {
-		var length, i = 0;
-
-		if ( isArrayLike( obj ) ) {
-			length = obj.length;
-			for ( ; i < length; i++ ) {
-				if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) {
-					break;
-				}
-			}
-		} else {
-			for ( i in obj ) {
-				if ( callback.call( obj[ i ], i, obj[ i ] ) === false ) {
-					break;
-				}
-			}
-		}
-
-		return obj;
-	},
-
-	// Support: Android <=4.0 only
-	trim: function( text ) {
-		return text == null ?
-			"" :
-			( text + "" ).replace( rtrim, "" );
-	},
-
-	// results is for internal usage only
-	makeArray: function( arr, results ) {
-		var ret = results || [];
-
-		if ( arr != null ) {
-			if ( isArrayLike( Object( arr ) ) ) {
-				jQuery.merge( ret,
-					typeof arr === "string" ?
-					[ arr ] : arr
-				);
-			} else {
-				push.call( ret, arr );
-			}
-		}
-
-		return ret;
-	},
-
-	inArray: function( elem, arr, i ) {
-		return arr == null ? -1 : indexOf.call( arr, elem, i );
-	},
-
-	// Support: Android <=4.0 only, PhantomJS 1 only
-	// push.apply(_, arraylike) throws on ancient WebKit
-	merge: function( first, second ) {
-		var len = +second.length,
-			j = 0,
-			i = first.length;
-
-		for ( ; j < len; j++ ) {
-			first[ i++ ] = second[ j ];
-		}
-
-		first.length = i;
-
-		return first;
-	},
-
-	grep: function( elems, callback, invert ) {
-		var callbackInverse,
-			matches = [],
-			i = 0,
-			length = elems.length,
-			callbackExpect = !invert;
-
-		// Go through the array, only saving the items
-		// that pass the validator function
-		for ( ; i < length; i++ ) {
-			callbackInverse = !callback( elems[ i ], i );
-			if ( callbackInverse !== callbackExpect ) {
-				matches.push( elems[ i ] );
-			}
-		}
-
-		return matches;
-	},
-
-	// arg is for internal usage only
-	map: function( elems, callback, arg ) {
-		var length, value,
-			i = 0,
-			ret = [];
-
-		// Go through the array, translating each of the items to their new values
-		if ( isArrayLike( elems ) ) {
-			length = elems.length;
-			for ( ; i < length; i++ ) {
-				value = callback( elems[ i ], i, arg );
-
-				if ( value != null ) {
-					ret.push( value );
-				}
-			}
-
-		// Go through every key on the object,
-		} else {
-			for ( i in elems ) {
-				value = callback( elems[ i ], i, arg );
-
-				if ( value != null ) {
-					ret.push( value );
-				}
-			}
-		}
-
-		// Flatten any nested arrays
-		return concat.apply( [], ret );
-	},
-
-	// A global GUID counter for objects
-	guid: 1,
-
-	// jQuery.support is not used in Core but other projects attach their
-	// properties to it so it needs to exist.
-	support: support
-} );
-
-if ( typeof Symbol === "function" ) {
-	jQuery.fn[ Symbol.iterator ] = arr[ Symbol.iterator ];
-}
-
-// Populate the class2type map
-jQuery.each( "Boolean Number String Function Array Date RegExp Object Error Symbol".split( " " ),
-function( i, name ) {
-	class2type[ "[object " + name + "]" ] = name.toLowerCase();
-} );
-
-function isArrayLike( obj ) {
-
-	// Support: real iOS 8.2 only (not reproducible in simulator)
-	// `in` check used to prevent JIT error (gh-2145)
-	// hasOwn isn't used here due to false negatives
-	// regarding Nodelist length in IE
-	var length = !!obj && "length" in obj && obj.length,
-		type = toType( obj );
-
-	if ( isFunction( obj ) || isWindow( obj ) ) {
-		return false;
-	}
-
-	return type === "array" || length === 0 ||
-		typeof length === "number" && length > 0 && ( length - 1 ) in obj;
-}
-var Sizzle =
-/*!
- * Sizzle CSS Selector Engine v2.3.3
- * https://sizzlejs.com/
- *
- * Copyright jQuery Foundation and other contributors
- * Released under the MIT license
- * http://jquery.org/license
- *
- * Date: 2016-08-08
- */
-(function( window ) {
-
-var i,
-	support,
-	Expr,
-	getText,
-	isXML,
-	tokenize,
-	compile,
-	select,
-	outermostContext,
-	sortInput,
-	hasDuplicate,
-
-	// Local document vars
-	setDocument,
-	document,
-	docElem,
-	documentIsHTML,
-	rbuggyQSA,
-	rbuggyMatches,
-	matches,
-	contains,
-
-	// Instance-specific data
-	expando = "sizzle" + 1 * new Date(),
-	preferredDoc = window.document,
-	dirruns = 0,
-	done = 0,
-	classCache = createCache(),
-	tokenCache = createCache(),
-	compilerCache = createCache(),
-	sortOrder = function( a, b ) {
-		if ( a === b ) {
-			hasDuplicate = true;
-		}
-		return 0;
-	},
-
-	// Instance methods
-	hasOwn = ({}).hasOwnProperty,
-	arr = [],
-	pop = arr.pop,
-	push_native = arr.push,
-	push = arr.push,
-	slice = arr.slice,
-	// Use a stripped-down indexOf as it's faster than native
-	// https://jsperf.com/thor-indexof-vs-for/5
-	indexOf = function( list, elem ) {
-		var i = 0,
-			len = list.length;
-		for ( ; i < len; i++ ) {
-			if ( list[i] === elem ) {
-				return i;
-			}
-		}
-		return -1;
-	},
-
-	booleans = "checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",
-
-	// Regular expressions
-
-	// http://www.w3.org/TR/css3-selectors/#whitespace
-	whitespace = "[\\x20\\t\\r\\n\\f]",
-
-	// http://www.w3.org/TR/CSS21/syndata.html#value-def-identifier
-	identifier = "(?:\\\\.|[\\w-]|[^\0-\\xa0])+",
-
-	// Attribute selectors: http://www.w3.org/TR/selectors/#attribute-selectors
-	attributes = "\\[" + whitespace + "*(" + identifier + ")(?:" + whitespace +
-		// Operator (capture 2)
-		"*([*^$|!~]?=)" + whitespace +
-		// "Attribute values must be CSS identifiers [capture 5] or strings [capture 3 or capture 4]"
-		"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|(" + identifier + "))|)" + whitespace +
-		"*\\]",
-
-	pseudos = ":(" + identifier + ")(?:\\((" +
-		// To reduce the number of selectors needing tokenize in the preFilter, prefer arguments:
-		// 1. quoted (capture 3; capture 4 or capture 5)
-		"('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|" +
-		// 2. simple (capture 6)
-		"((?:\\\\.|[^\\\\()[\\]]|" + attributes + ")*)|" +
-		// 3. anything else (capture 2)
-		".*" +
-		")\\)|)",
-
-	// Leading and non-escaped trailing whitespace, capturing some non-whitespace characters preceding the latter
-	rwhitespace = new RegExp( whitespace + "+", "g" ),
-	rtrim = new RegExp( "^" + whitespace + "+|((?:^|[^\\\\])(?:\\\\.)*)" + whitespace + "+$", "g" ),
-
-	rcomma = new RegExp( "^" + whitespace + "*," + whitespace + "*" ),
-	rcombinators = new RegExp( "^" + whitespace + "*([>+~]|" + whitespace + ")" + whitespace + "*" ),
-
-	rattributeQuotes = new RegExp( "=" + whitespace + "*([^\\]'\"]*?)" + whitespace + "*\\]", "g" ),
-
-	rpseudo = new RegExp( pseudos ),
-	ridentifier = new RegExp( "^" + identifier + "$" ),
-
-	matchExpr = {
-		"ID": new RegExp( "^#(" + identifier + ")" ),
-		"CLASS": new RegExp( "^\\.(" + identifier + ")" ),
-		"TAG": new RegExp( "^(" + identifier + "|[*])" ),
-		"ATTR": new RegExp( "^" + attributes ),
-		"PSEUDO": new RegExp( "^" + pseudos ),
-		"CHILD": new RegExp( "^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\(" + whitespace +
-			"*(even|odd|(([+-]|)(\\d*)n|)" + whitespace + "*(?:([+-]|)" + whitespace +
-			"*(\\d+)|))" + whitespace + "*\\)|)", "i" ),
-		"bool": new RegExp( "^(?:" + booleans + ")$", "i" ),
-		// For use in libraries implementing .is()
-		// We use this for POS matching in `select`
-		"needsContext": new RegExp( "^" + whitespace + "*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\(" +
-			whitespace + "*((?:-\\d)?\\d*)" + whitespace + "*\\)|)(?=[^-]|$)", "i" )
-	},
-
-	rinputs = /^(?:input|select|textarea|button)$/i,
-	rheader = /^h\d$/i,
-
-	rnative = /^[^{]+\{\s*\[native \w/,
-
-	// Easily-parseable/retrievable ID or TAG or CLASS selectors
-	rquickExpr = /^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,
-
-	rsibling = /[+~]/,
-
-	// CSS escapes
-	// http://www.w3.org/TR/CSS21/syndata.html#escaped-characters
-	runescape = new RegExp( "\\\\([\\da-f]{1,6}" + whitespace + "?|(" + whitespace + ")|.)", "ig" ),
-	funescape = function( _, escaped, escapedWhitespace ) {
-		var high = "0x" + escaped - 0x10000;
-		// NaN means non-codepoint
-		// Support: Firefox<24
-		// Workaround erroneous numeric interpretation of +"0x"
-		return high !== high || escapedWhitespace ?
-			escaped :
-			high < 0 ?
-				// BMP codepoint
-				String.fromCharCode( high + 0x10000 ) :
-				// Supplemental Plane codepoint (surrogate pair)
-				String.fromCharCode( high >> 10 | 0xD800, high & 0x3FF | 0xDC00 );
-	},
-
-	// CSS string/identifier serialization
-	// https://drafts.csswg.org/cssom/#common-serializing-idioms
-	rcssescape = /([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,
-	fcssescape = function( ch, asCodePoint ) {
-		if ( asCodePoint ) {
-
-			// U+0000 NULL becomes U+FFFD REPLACEMENT CHARACTER
-			if ( ch === "\0" ) {
-				return "\uFFFD";
-			}
-
-			// Control characters and (dependent upon position) numbers get escaped as code points
-			return ch.slice( 0, -1 ) + "\\" + ch.charCodeAt( ch.length - 1 ).toString( 16 ) + " ";
-		}
-
-		// Other potentially-special ASCII characters get backslash-escaped
-		return "\\" + ch;
-	},
-
-	// Used for iframes
-	// See setDocument()
-	// Removing the function wrapper causes a "Permission Denied"
-	// error in IE
-	unloadHandler = function() {
-		setDocument();
-	},
-
-	disabledAncestor = addCombinator(
-		function( elem ) {
-			return elem.disabled === true && ("form" in elem || "label" in elem);
-		},
-		{ dir: "parentNode", next: "legend" }
-	);
-
-// Optimize for push.apply( _, NodeList )
-try {
-	push.apply(
-		(arr = slice.call( preferredDoc.childNodes )),
-		preferredDoc.childNodes
-	);
-	// Support: Android<4.0
-	// Detect silently failing push.apply
-	arr[ preferredDoc.childNodes.length ].nodeType;
-} catch ( e ) {
-	push = { apply: arr.length ?
-
-		// Leverage slice if possible
-		function( target, els ) {
-			push_native.apply( target, slice.call(els) );
-		} :
-
-		// Support: IE<9
-		// Otherwise append directly
-		function( target, els ) {
-			var j = target.length,
-				i = 0;
-			// Can't trust NodeList.length
-			while ( (target[j++] = els[i++]) ) {}
-			target.length = j - 1;
-		}
-	};
-}
-
-function Sizzle( selector, context, results, seed ) {
-	var m, i, elem, nid, match, groups, newSelector,
-		newContext = context && context.ownerDocument,
-
-		// nodeType defaults to 9, since context defaults to document
-		nodeType = context ? context.nodeType : 9;
-
-	results = results || [];
-
-	// Return early from calls with invalid selector or context
-	if ( typeof selector !== "string" || !selector ||
-		nodeType !== 1 && nodeType !== 9 && nodeType !== 11 ) {
-
-		return results;
-	}
-
-	// Try to shortcut find operations (as opposed to filters) in HTML documents
-	if ( !seed ) {
-
-		if ( ( context ? context.ownerDocument || context : preferredDoc ) !== document ) {
-			setDocument( context );
-		}
-		context = context || document;
-
-		if ( documentIsHTML ) {
-
-			// If the selector is sufficiently simple, try using a "get*By*" DOM method
-			// (excepting DocumentFragment context, where the methods don't exist)
-			if ( nodeType !== 11 && (match = rquickExpr.exec( selector )) ) {
-
-				// ID selector
-				if ( (m = match[1]) ) {
-
-					// Document context
-					if ( nodeType === 9 ) {
-						if ( (elem = context.getElementById( m )) ) {
-
-							// Support: IE, Opera, Webkit
-							// TODO: identify versions
-							// getElementById can match elements by name instead of ID
-							if ( elem.id === m ) {
-								results.push( elem );
-								return results;
-							}
-						} else {
-							return results;
-						}
-
-					// Element context
-					} else {
-
-						// Support: IE, Opera, Webkit
-						// TODO: identify versions
-						// getElementById can match elements by name instead of ID
-						if ( newContext && (elem = newContext.getElementById( m )) &&
-							contains( context, elem ) &&
-							elem.id === m ) {
-
-							results.push( elem );
-							return results;
-						}
-					}
-
-				// Type selector
-				} else if ( match[2] ) {
-					push.apply( results, context.getElementsByTagName( selector ) );
-					return results;
-
-				// Class selector
-				} else if ( (m = match[3]) && support.getElementsByClassName &&
-					context.getElementsByClassName ) {
-
-					push.apply( results, context.getElementsByClassName( m ) );
-					return results;
-				}
-			}
-
-			// Take advantage of querySelectorAll
-			if ( support.qsa &&
-				!compilerCache[ selector + " " ] &&
-				(!rbuggyQSA || !rbuggyQSA.test( selector )) ) {
-
-				if ( nodeType !== 1 ) {
-					newContext = context;
-					newSelector = selector;
-
-				// qSA looks outside Element context, which is not what we want
-				// Thanks to Andrew Dupont for this workaround technique
-				// Support: IE <=8
-				// Exclude object elements
-				} else if ( context.nodeName.toLowerCase() !== "object" ) {
-
-					// Capture the context ID, setting it first if necessary
-					if ( (nid = context.getAttribute( "id" )) ) {
-						nid = nid.replace( rcssescape, fcssescape );
-					} else {
-						context.setAttribute( "id", (nid = expando) );
-					}
-
-					// Prefix every selector in the list
-					groups = tokenize( selector );
-					i = groups.length;
-					while ( i-- ) {
-						groups[i] = "#" + nid + " " + toSelector( groups[i] );
-					}
-					newSelector = groups.join( "," );
-
-					// Expand context for sibling selectors
-					newContext = rsibling.test( selector ) && testContext( context.parentNode ) ||
-						context;
-				}
-
-				if ( newSelector ) {
-					try {
-						push.apply( results,
-							newContext.querySelectorAll( newSelector )
-						);
-						return results;
-					} catch ( qsaError ) {
-					} finally {
-						if ( nid === expando ) {
-							context.removeAttribute( "id" );
-						}
-					}
-				}
-			}
-		}
-	}
-
-	// All others
-	return select( selector.replace( rtrim, "$1" ), context, results, seed );
-}
-
-/**
- * Create key-value caches of limited size
- * @returns {function(string, object)} Returns the Object data after storing it on itself with
- *	property name the (space-suffixed) string and (if the cache is larger than Expr.cacheLength)
- *	deleting the oldest entry
- */
-function createCache() {
-	var keys = [];
-
-	function cache( key, value ) {
-		// Use (key + " ") to avoid collision with native prototype properties (see Issue #157)
-		if ( keys.push( key + " " ) > Expr.cacheLength ) {
-			// Only keep the most recent entries
-			delete cache[ keys.shift() ];
-		}
-		return (cache[ key + " " ] = value);
-	}
-	return cache;
-}
-
-/**
- * Mark a function for special use by Sizzle
- * @param {Function} fn The function to mark
- */
-function markFunction( fn ) {
-	fn[ expando ] = true;
-	return fn;
-}
-
-/**
- * Support testing using an element
- * @param {Function} fn Passed the created element and returns a boolean result
- */
-function assert( fn ) {
-	var el = document.createElement("fieldset");
-
-	try {
-		return !!fn( el );
-	} catch (e) {
-		return false;
-	} finally {
-		// Remove from its parent by default
-		if ( el.parentNode ) {
-			el.parentNode.removeChild( el );
-		}
-		// release memory in IE
-		el = null;
-	}
-}
-
-/**
- * Adds the same handler for all of the specified attrs
- * @param {String} attrs Pipe-separated list of attributes
- * @param {Function} handler The method that will be applied
- */
-function addHandle( attrs, handler ) {
-	var arr = attrs.split("|"),
-		i = arr.length;
-
-	while ( i-- ) {
-		Expr.attrHandle[ arr[i] ] = handler;
-	}
-}
-
-/**
- * Checks document order of two siblings
- * @param {Element} a
- * @param {Element} b
- * @returns {Number} Returns less than 0 if a precedes b, greater than 0 if a follows b
- */
-function siblingCheck( a, b ) {
-	var cur = b && a,
-		diff = cur && a.nodeType === 1 && b.nodeType === 1 &&
-			a.sourceIndex - b.sourceIndex;
-
-	// Use IE sourceIndex if available on both nodes
-	if ( diff ) {
-		return diff;
-	}
-
-	// Check if b follows a
-	if ( cur ) {
-		while ( (cur = cur.nextSibling) ) {
-			if ( cur === b ) {
-				return -1;
-			}
-		}
-	}
-
-	return a ? 1 : -1;
-}
-
-/**
- * Returns a function to use in pseudos for input types
- * @param {String} type
- */
-function createInputPseudo( type ) {
-	return function( elem ) {
-		var name = elem.nodeName.toLowerCase();
-		return name === "input" && elem.type === type;
-	};
-}
-
-/**
- * Returns a function to use in pseudos for buttons
- * @param {String} type
- */
-function createButtonPseudo( type ) {
-	return function( elem ) {
-		var name = elem.nodeName.toLowerCase();
-		return (name === "input" || name === "button") && elem.type === type;
-	};
-}
-
-/**
- * Returns a function to use in pseudos for :enabled/:disabled
- * @param {Boolean} disabled true for :disabled; false for :enabled
- */
-function createDisabledPseudo( disabled ) {
-
-	// Known :disabled false positives: fieldset[disabled] > legend:nth-of-type(n+2) :can-disable
-	return function( elem ) {
-
-		// Only certain elements can match :enabled or :disabled
-		// https://html.spec.whatwg.org/multipage/scripting.html#selector-enabled
-		// https://html.spec.whatwg.org/multipage/scripting.html#selector-disabled
-		if ( "form" in elem ) {
-
-			// Check for inherited disabledness on relevant non-disabled elements:
-			// * listed form-associated elements in a disabled fieldset
-			//   https://html.spec.whatwg.org/multipage/forms.html#category-listed
-			//   https://html.spec.whatwg.org/multipage/forms.html#concept-fe-disabled
-			// * option elements in a disabled optgroup
-			//   https://html.spec.whatwg.org/multipage/forms.html#concept-option-disabled
-			// All such elements have a "form" property.
-			if ( elem.parentNode && elem.disabled === false ) {
-
-				// Option elements defer to a parent optgroup if present
-				if ( "label" in elem ) {
-					if ( "label" in elem.parentNode ) {
-						return elem.parentNode.disabled === disabled;
-					} else {
-						return elem.disabled === disabled;
-					}
-				}
-
-				// Support: IE 6 - 11
-				// Use the isDisabled shortcut property to check for disabled fieldset ancestors
-				return elem.isDisabled === disabled ||
-
-					// Where there is no isDisabled, check manually
-					/* jshint -W018 */
-					elem.isDisabled !== !disabled &&
-						disabledAncestor( elem ) === disabled;
-			}
-
-			return elem.disabled === disabled;
-
-		// Try to winnow out elements that can't be disabled before trusting the disabled property.
-		// Some victims get caught in our net (label, legend, menu, track), but it shouldn't
-		// even exist on them, let alone have a boolean value.
-		} else if ( "label" in elem ) {
-			return elem.disabled === disabled;
-		}
-
-		// Remaining elements are neither :enabled nor :disabled
-		return false;
-	};
-}
-
-/**
- * Returns a function to use in pseudos for positionals
- * @param {Function} fn
- */
-function createPositionalPseudo( fn ) {
-	return markFunction(function( argument ) {
-		argument = +argument;
-		return markFunction(function( seed, matches ) {
-			var j,
-				matchIndexes = fn( [], seed.length, argument ),
-				i = matchIndexes.length;
-
-			// Match elements found at the specified indexes
-			while ( i-- ) {
-				if ( seed[ (j = matchIndexes[i]) ] ) {
-					seed[j] = !(matches[j] = seed[j]);
-				}
-			}
-		});
-	});
-}
-
-/**
- * Checks a node for validity as a Sizzle context
- * @param {Element|Object=} context
- * @returns {Element|Object|Boolean} The input node if acceptable, otherwise a falsy value
- */
-function testContext( context ) {
-	return context && typeof context.getElementsByTagName !== "undefined" && context;
-}
-
-// Expose support vars for convenience
-support = Sizzle.support = {};
-
-/**
- * Detects XML nodes
- * @param {Element|Object} elem An element or a document
- * @returns {Boolean} True iff elem is a non-HTML XML node
- */
-isXML = Sizzle.isXML = function( elem ) {
-	// documentElement is verified for cases where it doesn't yet exist
-	// (such as loading iframes in IE - #4833)
-	var documentElement = elem && (elem.ownerDocument || elem).documentElement;
-	return documentElement ? documentElement.nodeName !== "HTML" : false;
-};
-
-/**
- * Sets document-related variables once based on the current document
- * @param {Element|Object} [doc] An element or document object to use to set the document
- * @returns {Object} Returns the current document
- */
-setDocument = Sizzle.setDocument = function( node ) {
-	var hasCompare, subWindow,
-		doc = node ? node.ownerDocument || node : preferredDoc;
-
-	// Return early if doc is invalid or already selected
-	if ( doc === document || doc.nodeType !== 9 || !doc.documentElement ) {
-		return document;
-	}
-
-	// Update global variables
-	document = doc;
-	docElem = document.documentElement;
-	documentIsHTML = !isXML( document );
-
-	// Support: IE 9-11, Edge
-	// Accessing iframe documents after unload throws "permission denied" errors (jQuery #13936)
-	if ( preferredDoc !== document &&
-		(subWindow = document.defaultView) && subWindow.top !== subWindow ) {
-
-		// Support: IE 11, Edge
-		if ( subWindow.addEventListener ) {
-			subWindow.addEventListener( "unload", unloadHandler, false );
-
-		// Support: IE 9 - 10 only
-		} else if ( subWindow.attachEvent ) {
-			subWindow.attachEvent( "onunload", unloadHandler );
-		}
-	}
-
-	/* Attributes
-	---------------------------------------------------------------------- */
-
-	// Support: IE<8
-	// Verify that getAttribute really returns attributes and not properties
-	// (excepting IE8 booleans)
-	support.attributes = assert(function( el ) {
-		el.className = "i";
-		return !el.getAttribute("className");
-	});
-
-	/* getElement(s)By*
-	---------------------------------------------------------------------- */
-
-	// Check if getElementsByTagName("*") returns only elements
-	support.getElementsByTagName = assert(function( el ) {
-		el.appendChild( document.createComment("") );
-		return !el.getElementsByTagName("*").length;
-	});
-
-	// Support: IE<9
-	support.getElementsByClassName = rnative.test( document.getElementsByClassName );
-
-	// Support: IE<10
-	// Check if getElementById returns elements by name
-	// The broken getElementById methods don't pick up programmatically-set names,
-	// so use a roundabout getElementsByName test
-	support.getById = assert(function( el ) {
-		docElem.appendChild( el ).id = expando;
-		return !document.getElementsByName || !document.getElementsByName( expando ).length;
-	});
-
-	// ID filter and find
-	if ( support.getById ) {
-		Expr.filter["ID"] = function( id ) {
-			var attrId = id.replace( runescape, funescape );
-			return function( elem ) {
-				return elem.getAttribute("id") === attrId;
-			};
-		};
-		Expr.find["ID"] = function( id, context ) {
-			if ( typeof context.getElementById !== "undefined" && documentIsHTML ) {
-				var elem = context.getElementById( id );
-				return elem ? [ elem ] : [];
-			}
-		};
-	} else {
-		Expr.filter["ID"] =  function( id ) {
-			var attrId = id.replace( runescape, funescape );
-			return function( elem ) {
-				var node = typeof elem.getAttributeNode !== "undefined" &&
-					elem.getAttributeNode("id");
-				return node && node.value === attrId;
-			};
-		};
-
-		// Support: IE 6 - 7 only
-		// getElementById is not reliable as a find shortcut
-		Expr.find["ID"] = function( id, context ) {
-			if ( typeof context.getElementById !== "undefined" && documentIsHTML ) {
-				var node, i, elems,
-					elem = context.getElementById( id );
-
-				if ( elem ) {
-
-					// Verify the id attribute
-					node = elem.getAttributeNode("id");
-					if ( node && node.value === id ) {
-						return [ elem ];
-					}
-
-					// Fall back on getElementsByName
-					elems = context.getElementsByName( id );
-					i = 0;
-					while ( (elem = elems[i++]) ) {
-						node = elem.getAttributeNode("id");
-						if ( node && node.value === id ) {
-							return [ elem ];
-						}
-					}
-				}
-
-				return [];
-			}
-		};
-	}
-
-	// Tag
-	Expr.find["TAG"] = support.getElementsByTagName ?
-		function( tag, context ) {
-			if ( typeof context.getElementsByTagName !== "undefined" ) {
-				return context.getElementsByTagName( tag );
-
-			// DocumentFragment nodes don't have gEBTN
-			} else if ( support.qsa ) {
-				return context.querySelectorAll( tag );
-			}
-		} :
-
-		function( tag, context ) {
-			var elem,
-				tmp = [],
-				i = 0,
-				// By happy coincidence, a (broken) gEBTN appears on DocumentFragment nodes too
-				results = context.getElementsByTagName( tag );
-
-			// Filter out possible comments
-			if ( tag === "*" ) {
-				while ( (elem = results[i++]) ) {
-					if ( elem.nodeType === 1 ) {
-						tmp.push( elem );
-					}
-				}
-
-				return tmp;
-			}
-			return results;
-		};
-
-	// Class
-	Expr.find["CLASS"] = support.getElementsByClassName && function( className, context ) {
-		if ( typeof context.getElementsByClassName !== "undefined" && documentIsHTML ) {
-			return context.getElementsByClassName( className );
-		}
-	};
-
-	/* QSA/matchesSelector
-	---------------------------------------------------------------------- */
-
-	// QSA and matchesSelector support
-
-	// matchesSelector(:active) reports false when true (IE9/Opera 11.5)
-	rbuggyMatches = [];
-
-	// qSa(:focus) reports false when true (Chrome 21)
-	// We allow this because of a bug in IE8/9 that throws an error
-	// whenever `document.activeElement` is accessed on an iframe
-	// So, we allow :focus to pass through QSA all the time to avoid the IE error
-	// See https://bugs.jquery.com/ticket/13378
-	rbuggyQSA = [];
-
-	if ( (support.qsa = rnative.test( document.querySelectorAll )) ) {
-		// Build QSA regex
-		// Regex strategy adopted from Diego Perini
-		assert(function( el ) {
-			// Select is set to empty string on purpose
-			// This is to test IE's treatment of not explicitly
-			// setting a boolean content attribute,
-			// since its presence should be enough
-			// https://bugs.jquery.com/ticket/12359
-			docElem.appendChild( el ).innerHTML = "<a id='" + expando + "'></a>" +
-				"<select id='" + expando + "-\r\\' msallowcapture=''>" +
-				"<option selected=''></option></select>";
-
-			// Support: IE8, Opera 11-12.16
-			// Nothing should be selected when empty strings follow ^= or $= or *=
-			// The test attribute must be unknown in Opera but "safe" for WinRT
-			// https://msdn.microsoft.com/en-us/library/ie/hh465388.aspx#attribute_section
-			if ( el.querySelectorAll("[msallowcapture^='']").length ) {
-				rbuggyQSA.push( "[*^$]=" + whitespace + "*(?:''|\"\")" );
-			}
-
-			// Support: IE8
-			// Boolean attributes and "value" are not treated correctly
-			if ( !el.querySelectorAll("[selected]").length ) {
-				rbuggyQSA.push( "\\[" + whitespace + "*(?:value|" + booleans + ")" );
-			}
-
-			// Support: Chrome<29, Android<4.4, Safari<7.0+, iOS<7.0+, PhantomJS<1.9.8+
-			if ( !el.querySelectorAll( "[id~=" + expando + "-]" ).length ) {
-				rbuggyQSA.push("~=");
-			}
-
-			// Webkit/Opera - :checked should return selected option elements
-			// http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked
-			// IE8 throws error here and will not see later tests
-			if ( !el.querySelectorAll(":checked").length ) {
-				rbuggyQSA.push(":checked");
-			}
-
-			// Support: Safari 8+, iOS 8+
-			// https://bugs.webkit.org/show_bug.cgi?id=136851
-			// In-page `selector#id sibling-combinator selector` fails
-			if ( !el.querySelectorAll( "a#" + expando + "+*" ).length ) {
-				rbuggyQSA.push(".#.+[+~]");
-			}
-		});
-
-		assert(function( el ) {
-			el.innerHTML = "<a href='' disabled='disabled'></a>" +
-				"<select disabled='disabled'><option/></select>";
-
-			// Support: Windows 8 Native Apps
-			// The type and name attributes are restricted during .innerHTML assignment
-			var input = document.createElement("input");
-			input.setAttribute( "type", "hidden" );
-			el.appendChild( input ).setAttribute( "name", "D" );
-
-			// Support: IE8
-			// Enforce case-sensitivity of name attribute
-			if ( el.querySelectorAll("[name=d]").length ) {
-				rbuggyQSA.push( "name" + whitespace + "*[*^$|!~]?=" );
-			}
-
-			// FF 3.5 - :enabled/:disabled and hidden elements (hidden elements are still enabled)
-			// IE8 throws error here and will not see later tests
-			if ( el.querySelectorAll(":enabled").length !== 2 ) {
-				rbuggyQSA.push( ":enabled", ":disabled" );
-			}
-
-			// Support: IE9-11+
-			// IE's :disabled selector does not pick up the children of disabled fieldsets
-			docElem.appendChild( el ).disabled = true;
-			if ( el.querySelectorAll(":disabled").length !== 2 ) {
-				rbuggyQSA.push( ":enabled", ":disabled" );
-			}
-
-			// Opera 10-11 does not throw on post-comma invalid pseudos
-			el.querySelectorAll("*,:x");
-			rbuggyQSA.push(",.*:");
-		});
-	}
-
-	if ( (support.matchesSelector = rnative.test( (matches = docElem.matches ||
-		docElem.webkitMatchesSelector ||
-		docElem.mozMatchesSelector ||
-		docElem.oMatchesSelector ||
-		docElem.msMatchesSelector) )) ) {
-
-		assert(function( el ) {
-			// Check to see if it's possible to do matchesSelector
-			// on a disconnected node (IE 9)
-			support.disconnectedMatch = matches.call( el, "*" );
-
-			// This should fail with an exception
-			// Gecko does not error, returns false instead
-			matches.call( el, "[s!='']:x" );
-			rbuggyMatches.push( "!=", pseudos );
-		});
-	}
-
-	rbuggyQSA = rbuggyQSA.length && new RegExp( rbuggyQSA.join("|") );
-	rbuggyMatches = rbuggyMatches.length && new RegExp( rbuggyMatches.join("|") );
-
-	/* Contains
-	---------------------------------------------------------------------- */
-	hasCompare = rnative.test( docElem.compareDocumentPosition );
-
-	// Element contains another
-	// Purposefully self-exclusive
-	// As in, an element does not contain itself
-	contains = hasCompare || rnative.test( docElem.contains ) ?
-		function( a, b ) {
-			var adown = a.nodeType === 9 ? a.documentElement : a,
-				bup = b && b.parentNode;
-			return a === bup || !!( bup && bup.nodeType === 1 && (
-				adown.contains ?
-					adown.contains( bup ) :
-					a.compareDocumentPosition && a.compareDocumentPosition( bup ) & 16
-			));
-		} :
-		function( a, b ) {
-			if ( b ) {
-				while ( (b = b.parentNode) ) {
-					if ( b === a ) {
-						return true;
-					}
-				}
-			}
-			return false;
-		};
-
-	/* Sorting
-	---------------------------------------------------------------------- */
-
-	// Document order sorting
-	sortOrder = hasCompare ?
-	function( a, b ) {
-
-		// Flag for duplicate removal
-		if ( a === b ) {
-			hasDuplicate = true;
-			return 0;
-		}
-
-		// Sort on method existence if only one input has compareDocumentPosition
-		var compare = !a.compareDocumentPosition - !b.compareDocumentPosition;
-		if ( compare ) {
-			return compare;
-		}
-
-		// Calculate position if both inputs belong to the same document
-		compare = ( a.ownerDocument || a ) === ( b.ownerDocument || b ) ?
-			a.compareDocumentPosition( b ) :
-
-			// Otherwise we know they are disconnected
-			1;
-
-		// Disconnected nodes
-		if ( compare & 1 ||
-			(!support.sortDetached && b.compareDocumentPosition( a ) === compare) ) {
-
-			// Choose the first element that is related to our preferred document
-			if ( a === document || a.ownerDocument === preferredDoc && contains(preferredDoc, a) ) {
-				return -1;
-			}
-			if ( b === document || b.ownerDocument === preferredDoc && contains(preferredDoc, b) ) {
-				return 1;
-			}
-
-			// Maintain original order
-			return sortInput ?
-				( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) :
-				0;
-		}
-
-		return compare & 4 ? -1 : 1;
-	} :
-	function( a, b ) {
-		// Exit early if the nodes are identical
-		if ( a === b ) {
-			hasDuplicate = true;
-			return 0;
-		}
-
-		var cur,
-			i = 0,
-			aup = a.parentNode,
-			bup = b.parentNode,
-			ap = [ a ],
-			bp = [ b ];
-
-		// Parentless nodes are either documents or disconnected
-		if ( !aup || !bup ) {
-			return a === document ? -1 :
-				b === document ? 1 :
-				aup ? -1 :
-				bup ? 1 :
-				sortInput ?
-				( indexOf( sortInput, a ) - indexOf( sortInput, b ) ) :
-				0;
-
-		// If the nodes are siblings, we can do a quick check
-		} else if ( aup === bup ) {
-			return siblingCheck( a, b );
-		}
-
-		// Otherwise we need full lists of their ancestors for comparison
-		cur = a;
-		while ( (cur = cur.parentNode) ) {
-			ap.unshift( cur );
-		}
-		cur = b;
-		while ( (cur = cur.parentNode) ) {
-			bp.unshift( cur );
-		}
-
-		// Walk down the tree looking for a discrepancy
-		while ( ap[i] === bp[i] ) {
-			i++;
-		}
-
-		return i ?
-			// Do a sibling check if the nodes have a common ancestor
-			siblingCheck( ap[i], bp[i] ) :
-
-			// Otherwise nodes in our document sort first
-			ap[i] === preferredDoc ? -1 :
-			bp[i] === preferredDoc ? 1 :
-			0;
-	};
-
-	return document;
-};
-
-Sizzle.matches = function( expr, elements ) {
-	return Sizzle( expr, null, null, elements );
-};
-
-Sizzle.matchesSelector = function( elem, expr ) {
-	// Set document vars if needed
-	if ( ( elem.ownerDocument || elem ) !== document ) {
-		setDocument( elem );
-	}
-
-	// Make sure that attribute selectors are quoted
-	expr = expr.replace( rattributeQuotes, "='$1']" );
-
-	if ( support.matchesSelector && documentIsHTML &&
-		!compilerCache[ expr + " " ] &&
-		( !rbuggyMatches || !rbuggyMatches.test( expr ) ) &&
-		( !rbuggyQSA     || !rbuggyQSA.test( expr ) ) ) {
-
-		try {
-			var ret = matches.call( elem, expr );
-
-			// IE 9's matchesSelector returns false on disconnected nodes
-			if ( ret || support.disconnectedMatch ||
-					// As well, disconnected nodes are said to be in a document
-					// fragment in IE 9
-					elem.document && elem.document.nodeType !== 11 ) {
-				return ret;
-			}
-		} catch (e) {}
-	}
-
-	return Sizzle( expr, document, null, [ elem ] ).length > 0;
-};
-
-Sizzle.contains = function( context, elem ) {
-	// Set document vars if needed
-	if ( ( context.ownerDocument || context ) !== document ) {
-		setDocument( context );
-	}
-	return contains( context, elem );
-};
-
-Sizzle.attr = function( elem, name ) {
-	// Set document vars if needed
-	if ( ( elem.ownerDocument || elem ) !== document ) {
-		setDocument( elem );
-	}
-
-	var fn = Expr.attrHandle[ name.toLowerCase() ],
-		// Don't get fooled by Object.prototype properties (jQuery #13807)
-		val = fn && hasOwn.call( Expr.attrHandle, name.toLowerCase() ) ?
-			fn( elem, name, !documentIsHTML ) :
-			undefined;
-
-	return val !== undefined ?
-		val :
-		support.attributes || !documentIsHTML ?
-			elem.getAttribute( name ) :
-			(val = elem.getAttributeNode(name)) && val.specified ?
-				val.value :
-				null;
-};
-
-Sizzle.escape = function( sel ) {
-	return (sel + "").replace( rcssescape, fcssescape );
-};
-
-Sizzle.error = function( msg ) {
-	throw new Error( "Syntax error, unrecognized expression: " + msg );
-};
-
-/**
- * Document sorting and removing duplicates
- * @param {ArrayLike} results
- */
-Sizzle.uniqueSort = function( results ) {
-	var elem,
-		duplicates = [],
-		j = 0,
-		i = 0;
-
-	// Unless we *know* we can detect duplicates, assume their presence
-	hasDuplicate = !support.detectDuplicates;
-	sortInput = !support.sortStable && results.slice( 0 );
-	results.sort( sortOrder );
-
-	if ( hasDuplicate ) {
-		while ( (elem = results[i++]) ) {
-			if ( elem === results[ i ] ) {
-				j = duplicates.push( i );
-			}
-		}
-		while ( j-- ) {
-			results.splice( duplicates[ j ], 1 );
-		}
-	}
-
-	// Clear input after sorting to release objects
-	// See https://github.com/jquery/sizzle/pull/225
-	sortInput = null;
-
-	return results;
-};
-
-/**
- * Utility function for retrieving the text value of an array of DOM nodes
- * @param {Array|Element} elem
- */
-getText = Sizzle.getText = function( elem ) {
-	var node,
-		ret = "",
-		i = 0,
-		nodeType = elem.nodeType;
-
-	if ( !nodeType ) {
-		// If no nodeType, this is expected to be an array
-		while ( (node = elem[i++]) ) {
-			// Do not traverse comment nodes
-			ret += getText( node );
-		}
-	} else if ( nodeType === 1 || nodeType === 9 || nodeType === 11 ) {
-		// Use textContent for elements
-		// innerText usage removed for consistency of new lines (jQuery #11153)
-		if ( typeof elem.textContent === "string" ) {
-			return elem.textContent;
-		} else {
-			// Traverse its children
-			for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
-				ret += getText( elem );
-			}
-		}
-	} else if ( nodeType === 3 || nodeType === 4 ) {
-		return elem.nodeValue;
-	}
-	// Do not include comment or processing instruction nodes
-
-	return ret;
-};
-
-Expr = Sizzle.selectors = {
-
-	// Can be adjusted by the user
-	cacheLength: 50,
-
-	createPseudo: markFunction,
-
-	match: matchExpr,
-
-	attrHandle: {},
-
-	find: {},
-
-	relative: {
-		">": { dir: "parentNode", first: true },
-		" ": { dir: "parentNode" },
-		"+": { dir: "previousSibling", first: true },
-		"~": { dir: "previousSibling" }
-	},
-
-	preFilter: {
-		"ATTR": function( match ) {
-			match[1] = match[1].replace( runescape, funescape );
-
-			// Move the given value to match[3] whether quoted or unquoted
-			match[3] = ( match[3] || match[4] || match[5] || "" ).replace( runescape, funescape );
-
-			if ( match[2] === "~=" ) {
-				match[3] = " " + match[3] + " ";
-			}
-
-			return match.slice( 0, 4 );
-		},
-
-		"CHILD": function( match ) {
-			/* matches from matchExpr["CHILD"]
-				1 type (only|nth|...)
-				2 what (child|of-type)
-				3 argument (even|odd|\d*|\d*n([+-]\d+)?|...)
-				4 xn-component of xn+y argument ([+-]?\d*n|)
-				5 sign of xn-component
-				6 x of xn-component
-				7 sign of y-component
-				8 y of y-component
-			*/
-			match[1] = match[1].toLowerCase();
-
-			if ( match[1].slice( 0, 3 ) === "nth" ) {
-				// nth-* requires argument
-				if ( !match[3] ) {
-					Sizzle.error( match[0] );
-				}
-
-				// numeric x and y parameters for Expr.filter.CHILD
-				// remember that false/true cast respectively to 0/1
-				match[4] = +( match[4] ? match[5] + (match[6] || 1) : 2 * ( match[3] === "even" || match[3] === "odd" ) );
-				match[5] = +( ( match[7] + match[8] ) || match[3] === "odd" );
-
-			// other types prohibit arguments
-			} else if ( match[3] ) {
-				Sizzle.error( match[0] );
-			}
-
-			return match;
-		},
-
-		"PSEUDO": function( match ) {
-			var excess,
-				unquoted = !match[6] && match[2];
-
-			if ( matchExpr["CHILD"].test( match[0] ) ) {
-				return null;
-			}
-
-			// Accept quoted arguments as-is
-			if ( match[3] ) {
-				match[2] = match[4] || match[5] || "";
-
-			// Strip excess characters from unquoted arguments
-			} else if ( unquoted && rpseudo.test( unquoted ) &&
-				// Get excess from tokenize (recursively)
-				(excess = tokenize( unquoted, true )) &&
-				// advance to the next closing parenthesis
-				(excess = unquoted.indexOf( ")", unquoted.length - excess ) - unquoted.length) ) {
-
-				// excess is a negative index
-				match[0] = match[0].slice( 0, excess );
-				match[2] = unquoted.slice( 0, excess );
-			}
-
-			// Return only captures needed by the pseudo filter method (type and argument)
-			return match.slice( 0, 3 );
-		}
-	},
-
-	filter: {
-
-		"TAG": function( nodeNameSelector ) {
-			var nodeName = nodeNameSelector.replace( runescape, funescape ).toLowerCase();
-			return nodeNameSelector === "*" ?
-				function() { return true; } :
-				function( elem ) {
-					return elem.nodeName && elem.nodeName.toLowerCase() === nodeName;
-				};
-		},
-
-		"CLASS": function( className ) {
-			var pattern = classCache[ className + " " ];
-
-			return pattern ||
-				(pattern = new RegExp( "(^|" + whitespace + ")" + className + "(" + whitespace + "|$)" )) &&
-				classCache( className, function( elem ) {
-					return pattern.test( typeof elem.className === "string" && elem.className || typeof elem.getAttribute !== "undefined" && elem.getAttribute("class") || "" );
-				});
-		},
-
-		"ATTR": function( name, operator, check ) {
-			return function( elem ) {
-				var result = Sizzle.attr( elem, name );
-
-				if ( result == null ) {
-					return operator === "!=";
-				}
-				if ( !operator ) {
-					return true;
-				}
-
-				result += "";
-
-				return operator === "=" ? result === check :
-					operator === "!=" ? result !== check :
-					operator === "^=" ? check && result.indexOf( check ) === 0 :
-					operator === "*=" ? check && result.indexOf( check ) > -1 :
-					operator === "$=" ? check && result.slice( -check.length ) === check :
-					operator === "~=" ? ( " " + result.replace( rwhitespace, " " ) + " " ).indexOf( check ) > -1 :
-					operator === "|=" ? result === check || result.slice( 0, check.length + 1 ) === check + "-" :
-					false;
-			};
-		},
-
-		"CHILD": function( type, what, argument, first, last ) {
-			var simple = type.slice( 0, 3 ) !== "nth",
-				forward = type.slice( -4 ) !== "last",
-				ofType = what === "of-type";
-
-			return first === 1 && last === 0 ?
-
-				// Shortcut for :nth-*(n)
-				function( elem ) {
-					return !!elem.parentNode;
-				} :
-
-				function( elem, context, xml ) {
-					var cache, uniqueCache, outerCache, node, nodeIndex, start,
-						dir = simple !== forward ? "nextSibling" : "previousSibling",
-						parent = elem.parentNode,
-						name = ofType && elem.nodeName.toLowerCase(),
-						useCache = !xml && !ofType,
-						diff = false;
-
-					if ( parent ) {
-
-						// :(first|last|only)-(child|of-type)
-						if ( simple ) {
-							while ( dir ) {
-								node = elem;
-								while ( (node = node[ dir ]) ) {
-									if ( ofType ?
-										node.nodeName.toLowerCase() === name :
-										node.nodeType === 1 ) {
-
-										return false;
-									}
-								}
-								// Reverse direction for :only-* (if we haven't yet done so)
-								start = dir = type === "only" && !start && "nextSibling";
-							}
-							return true;
-						}
-
-						start = [ forward ? parent.firstChild : parent.lastChild ];
-
-						// non-xml :nth-child(...) stores cache data on `parent`
-						if ( forward && useCache ) {
-
-							// Seek `elem` from a previously-cached index
-
-							// ...in a gzip-friendly way
-							node = parent;
-							outerCache = node[ expando ] || (node[ expando ] = {});
-
-							// Support: IE <9 only
-							// Defend against cloned attroperties (jQuery gh-1709)
-							uniqueCache = outerCache[ node.uniqueID ] ||
-								(outerCache[ node.uniqueID ] = {});
-
-							cache = uniqueCache[ type ] || [];
-							nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ];
-							diff = nodeIndex && cache[ 2 ];
-							node = nodeIndex && parent.childNodes[ nodeIndex ];
-
-							while ( (node = ++nodeIndex && node && node[ dir ] ||
-
-								// Fallback to seeking `elem` from the start
-								(diff = nodeIndex = 0) || start.pop()) ) {
-
-								// When found, cache indexes on `parent` and break
-								if ( node.nodeType === 1 && ++diff && node === elem ) {
-									uniqueCache[ type ] = [ dirruns, nodeIndex, diff ];
-									break;
-								}
-							}
-
-						} else {
-							// Use previously-cached element index if available
-							if ( useCache ) {
-								// ...in a gzip-friendly way
-								node = elem;
-								outerCache = node[ expando ] || (node[ expando ] = {});
-
-								// Support: IE <9 only
-								// Defend against cloned attroperties (jQuery gh-1709)
-								uniqueCache = outerCache[ node.uniqueID ] ||
-									(outerCache[ node.uniqueID ] = {});
-
-								cache = uniqueCache[ type ] || [];
-								nodeIndex = cache[ 0 ] === dirruns && cache[ 1 ];
-								diff = nodeIndex;
-							}
-
-							// xml :nth-child(...)
-							// or :nth-last-child(...) or :nth(-last)?-of-type(...)
-							if ( diff === false ) {
-								// Use the same loop as above to seek `elem` from the start
-								while ( (node = ++nodeIndex && node && node[ dir ] ||
-									(diff = nodeIndex = 0) || start.pop()) ) {
-
-									if ( ( ofType ?
-										node.nodeName.toLowerCase() === name :
-										node.nodeType === 1 ) &&
-										++diff ) {
-
-										// Cache the index of each encountered element
-										if ( useCache ) {
-											outerCache = node[ expando ] || (node[ expando ] = {});
-
-											// Support: IE <9 only
-											// Defend against cloned attroperties (jQuery gh-1709)
-											uniqueCache = outerCache[ node.uniqueID ] ||
-												(outerCache[ node.uniqueID ] = {});
-
-											uniqueCache[ type ] = [ dirruns, diff ];
-										}
-
-										if ( node === elem ) {
-											break;
-										}
-									}
-								}
-							}
-						}
-
-						// Incorporate the offset, then check against cycle size
-						diff -= last;
-						return diff === first || ( diff % first === 0 && diff / first >= 0 );
-					}
-				};
-		},
-
-		"PSEUDO": function( pseudo, argument ) {
-			// pseudo-class names are case-insensitive
-			// http://www.w3.org/TR/selectors/#pseudo-classes
-			// Prioritize by case sensitivity in case custom pseudos are added with uppercase letters
-			// Remember that setFilters inherits from pseudos
-			var args,
-				fn = Expr.pseudos[ pseudo ] || Expr.setFilters[ pseudo.toLowerCase() ] ||
-					Sizzle.error( "unsupported pseudo: " + pseudo );
-
-			// The user may use createPseudo to indicate that
-			// arguments are needed to create the filter function
-			// just as Sizzle does
-			if ( fn[ expando ] ) {
-				return fn( argument );
-			}
-
-			// But maintain support for old signatures
-			if ( fn.length > 1 ) {
-				args = [ pseudo, pseudo, "", argument ];
-				return Expr.setFilters.hasOwnProperty( pseudo.toLowerCase() ) ?
-					markFunction(function( seed, matches ) {
-						var idx,
-							matched = fn( seed, argument ),
-							i = matched.length;
-						while ( i-- ) {
-							idx = indexOf( seed, matched[i] );
-							seed[ idx ] = !( matches[ idx ] = matched[i] );
-						}
-					}) :
-					function( elem ) {
-						return fn( elem, 0, args );
-					};
-			}
-
-			return fn;
-		}
-	},
-
-	pseudos: {
-		// Potentially complex pseudos
-		"not": markFunction(function( selector ) {
-			// Trim the selector passed to compile
-			// to avoid treating leading and trailing
-			// spaces as combinators
-			var input = [],
-				results = [],
-				matcher = compile( selector.replace( rtrim, "$1" ) );
-
-			return matcher[ expando ] ?
-				markFunction(function( seed, matches, context, xml ) {
-					var elem,
-						unmatched = matcher( seed, null, xml, [] ),
-						i = seed.length;
-
-					// Match elements unmatched by `matcher`
-					while ( i-- ) {
-						if ( (elem = unmatched[i]) ) {
-							seed[i] = !(matches[i] = elem);
-						}
-					}
-				}) :
-				function( elem, context, xml ) {
-					input[0] = elem;
-					matcher( input, null, xml, results );
-					// Don't keep the element (issue #299)
-					input[0] = null;
-					return !results.pop();
-				};
-		}),
-
-		"has": markFunction(function( selector ) {
-			return function( elem ) {
-				return Sizzle( selector, elem ).length > 0;
-			};
-		}),
-
-		"contains": markFunction(function( text ) {
-			text = text.replace( runescape, funescape );
-			return function( elem ) {
-				return ( elem.textContent || elem.innerText || getText( elem ) ).indexOf( text ) > -1;
-			};
-		}),
-
-		// "Whether an element is represented by a :lang() selector
-		// is based solely on the element's language value
-		// being equal to the identifier C,
-		// or beginning with the identifier C immediately followed by "-".
-		// The matching of C against the element's language value is performed case-insensitively.
-		// The identifier C does not have to be a valid language name."
-		// http://www.w3.org/TR/selectors/#lang-pseudo
-		"lang": markFunction( function( lang ) {
-			// lang value must be a valid identifier
-			if ( !ridentifier.test(lang || "") ) {
-				Sizzle.error( "unsupported lang: " + lang );
-			}
-			lang = lang.replace( runescape, funescape ).toLowerCase();
-			return function( elem ) {
-				var elemLang;
-				do {
-					if ( (elemLang = documentIsHTML ?
-						elem.lang :
-						elem.getAttribute("xml:lang") || elem.getAttribute("lang")) ) {
-
-						elemLang = elemLang.toLowerCase();
-						return elemLang === lang || elemLang.indexOf( lang + "-" ) === 0;
-					}
-				} while ( (elem = elem.parentNode) && elem.nodeType === 1 );
-				return false;
-			};
-		}),
-
-		// Miscellaneous
-		"target": function( elem ) {
-			var hash = window.location && window.location.hash;
-			return hash && hash.slice( 1 ) === elem.id;
-		},
-
-		"root": function( elem ) {
-			return elem === docElem;
-		},
-
-		"focus": function( elem ) {
-			return elem === document.activeElement && (!document.hasFocus || document.hasFocus()) && !!(elem.type || elem.href || ~elem.tabIndex);
-		},
-
-		// Boolean properties
-		"enabled": createDisabledPseudo( false ),
-		"disabled": createDisabledPseudo( true ),
-
-		"checked": function( elem ) {
-			// In CSS3, :checked should return both checked and selected elements
-			// http://www.w3.org/TR/2011/REC-css3-selectors-20110929/#checked
-			var nodeName = elem.nodeName.toLowerCase();
-			return (nodeName === "input" && !!elem.checked) || (nodeName === "option" && !!elem.selected);
-		},
-
-		"selected": function( elem ) {
-			// Accessing this property makes selected-by-default
-			// options in Safari work properly
-			if ( elem.parentNode ) {
-				elem.parentNode.selectedIndex;
-			}
-
-			return elem.selected === true;
-		},
-
-		// Contents
-		"empty": function( elem ) {
-			// http://www.w3.org/TR/selectors/#empty-pseudo
-			// :empty is negated by element (1) or content nodes (text: 3; cdata: 4; entity ref: 5),
-			//   but not by others (comment: 8; processing instruction: 7; etc.)
-			// nodeType < 6 works because attributes (2) do not appear as children
-			for ( elem = elem.firstChild; elem; elem = elem.nextSibling ) {
-				if ( elem.nodeType < 6 ) {
-					return false;
-				}
-			}
-			return true;
-		},
-
-		"parent": function( elem ) {
-			return !Expr.pseudos["empty"]( elem );
-		},
-
-		// Element/input types
-		"header": function( elem ) {
-			return rheader.test( elem.nodeName );
-		},
-
-		"input": function( elem ) {
-			return rinputs.test( elem.nodeName );
-		},
-
-		"button": function( elem ) {
-			var name = elem.nodeName.toLowerCase();
-			return name === "input" && elem.type === "button" || name === "button";
-		},
-
-		"text": function( elem ) {
-			var attr;
-			return elem.nodeName.toLowerCase() === "input" &&
-				elem.type === "text" &&
-
-				// Support: IE<8
-				// New HTML5 attribute values (e.g., "search") appear with elem.type === "text"
-				( (attr = elem.getAttribute("type")) == null || attr.toLowerCase() === "text" );
-		},
-
-		// Position-in-collection
-		"first": createPositionalPseudo(function() {
-			return [ 0 ];
-		}),
-
-		"last": createPositionalPseudo(function( matchIndexes, length ) {
-			return [ length - 1 ];
-		}),
-
-		"eq": createPositionalPseudo(function( matchIndexes, length, argument ) {
-			return [ argument < 0 ? argument + length : argument ];
-		}),
-
-		"even": createPositionalPseudo(function( matchIndexes, length ) {
-			var i = 0;
-			for ( ; i < length; i += 2 ) {
-				matchIndexes.push( i );
-			}
-			return matchIndexes;
-		}),
-
-		"odd": createPositionalPseudo(function( matchIndexes, length ) {
-			var i = 1;
-			for ( ; i < length; i += 2 ) {
-				matchIndexes.push( i );
-			}
-			return matchIndexes;
-		}),
-
-		"lt": createPositionalPseudo(function( matchIndexes, length, argument ) {
-			var i = argument < 0 ? argument + length : argument;
-			for ( ; --i >= 0; ) {
-				matchIndexes.push( i );
-			}
-			return matchIndexes;
-		}),
-
-		"gt": createPositionalPseudo(function( matchIndexes, length, argument ) {
-			var i = argument < 0 ? argument + length : argument;
-			for ( ; ++i < length; ) {
-				matchIndexes.push( i );
-			}
-			return matchIndexes;
-		})
-	}
-};
-
-Expr.pseudos["nth"] = Expr.pseudos["eq"];
-
-// Add button/input type pseudos
-for ( i in { radio: true, checkbox: true, file: true, password: true, image: true } ) {
-	Expr.pseudos[ i ] = createInputPseudo( i );
-}
-for ( i in { submit: true, reset: true } ) {
-	Expr.pseudos[ i ] = createButtonPseudo( i );
-}
-
-// Easy API for creating new setFilters
-function setFilters() {}
-setFilters.prototype = Expr.filters = Expr.pseudos;
-Expr.setFilters = new setFilters();
-
-tokenize = Sizzle.tokenize = function( selector, parseOnly ) {
-	var matched, match, tokens, type,
-		soFar, groups, preFilters,
-		cached = tokenCache[ selector + " " ];
-
-	if ( cached ) {
-		return parseOnly ? 0 : cached.slice( 0 );
-	}
-
-	soFar = selector;
-	groups = [];
-	preFilters = Expr.preFilter;
-
-	while ( soFar ) {
-
-		// Comma and first run
-		if ( !matched || (match = rcomma.exec( soFar )) ) {
-			if ( match ) {
-				// Don't consume trailing commas as valid
-				soFar = soFar.slice( match[0].length ) || soFar;
-			}
-			groups.push( (tokens = []) );
-		}
-
-		matched = false;
-
-		// Combinators
-		if ( (match = rcombinators.exec( soFar )) ) {
-			matched = match.shift();
-			tokens.push({
-				value: matched,
-				// Cast descendant combinators to space
-				type: match[0].replace( rtrim, " " )
-			});
-			soFar = soFar.slice( matched.length );
-		}
-
-		// Filters
-		for ( type in Expr.filter ) {
-			if ( (match = matchExpr[ type ].exec( soFar )) && (!preFilters[ type ] ||
-				(match = preFilters[ type ]( match ))) ) {
-				matched = match.shift();
-				tokens.push({
-					value: matched,
-					type: type,
-					matches: match
-				});
-				soFar = soFar.slice( matched.length );
-			}
-		}
-
-		if ( !matched ) {
-			break;
-		}
-	}
-
-	// Return the length of the invalid excess
-	// if we're just parsing
-	// Otherwise, throw an error or return tokens
-	return parseOnly ?
-		soFar.length :
-		soFar ?
-			Sizzle.error( selector ) :
-			// Cache the tokens
-			tokenCache( selector, groups ).slice( 0 );
-};
-
-function toSelector( tokens ) {
-	var i = 0,
-		len = tokens.length,
-		selector = "";
-	for ( ; i < len; i++ ) {
-		selector += tokens[i].value;
-	}
-	return selector;
-}
-
-function addCombinator( matcher, combinator, base ) {
-	var dir = combinator.dir,
-		skip = combinator.next,
-		key = skip || dir,
-		checkNonElements = base && key === "parentNode",
-		doneName = done++;
-
-	return combinator.first ?
-		// Check against closest ancestor/preceding element
-		function( elem, context, xml ) {
-			while ( (elem = elem[ dir ]) ) {
-				if ( elem.nodeType === 1 || checkNonElements ) {
-					return matcher( elem, context, xml );
-				}
-			}
-			return false;
-		} :
-
-		// Check against all ancestor/preceding elements
-		function( elem, context, xml ) {
-			var oldCache, uniqueCache, outerCache,
-				newCache = [ dirruns, doneName ];
-
-			// We can't set arbitrary data on XML nodes, so they don't benefit from combinator caching
-			if ( xml ) {
-				while ( (elem = elem[ dir ]) ) {
-					if ( elem.nodeType === 1 || checkNonElements ) {
-						if ( matcher( elem, context, xml ) ) {
-							return true;
-						}
-					}
-				}
-			} else {
-				while ( (elem = elem[ dir ]) ) {
-					if ( elem.nodeType === 1 || checkNonElements ) {
-						outerCache = elem[ expando ] || (elem[ expando ] = {});
-
-						// Support: IE <9 only
-						// Defend against cloned attroperties (jQuery gh-1709)
-						uniqueCache = outerCache[ elem.uniqueID ] || (outerCache[ elem.uniqueID ] = {});
-
-						if ( skip && skip === elem.nodeName.toLowerCase() ) {
-							elem = elem[ dir ] || elem;
-						} else if ( (oldCache = uniqueCache[ key ]) &&
-							oldCache[ 0 ] === dirruns && oldCache[ 1 ] === doneName ) {
-
-							// Assign to newCache so results back-propagate to previous elements
-							return (newCache[ 2 ] = oldCache[ 2 ]);
-						} else {
-							// Reuse newcache so results back-propagate to previous elements
-							uniqueCache[ key ] = newCache;
-
-							// A match means we're done; a fail means we have to keep checking
-							if ( (newCache[ 2 ] = matcher( elem, context, xml )) ) {
-								return true;
-							}
-						}
-					}
-				}
-			}
-			return false;
-		};
-}
-
-function elementMatcher( matchers ) {
-	return matchers.length > 1 ?
-		function( elem, context, xml ) {
-			var i = matchers.length;
-			while ( i-- ) {
-				if ( !matchers[i]( elem, context, xml ) ) {
-					return false;
-				}
-			}
-			return true;
-		} :
-		matchers[0];
-}
-
-function multipleContexts( selector, contexts, results ) {
-	var i = 0,
-		len = contexts.length;
-	for ( ; i < len; i++ ) {
-		Sizzle( selector, contexts[i], results );
-	}
-	return results;
-}
-
-function condense( unmatched, map, filter, context, xml ) {
-	var elem,
-		newUnmatched = [],
-		i = 0,
-		len = unmatched.length,
-		mapped = map != null;
-
-	for ( ; i < len; i++ ) {
-		if ( (elem = unmatched[i]) ) {
-			if ( !filter || filter( elem, context, xml ) ) {
-				newUnmatched.push( elem );
-				if ( mapped ) {
-					map.push( i );
-				}
-			}
-		}
-	}
-
-	return newUnmatched;
-}
-
-function setMatcher( preFilter, selector, matcher, postFilter, postFinder, postSelector ) {
-	if ( postFilter && !postFilter[ expando ] ) {
-		postFilter = setMatcher( postFilter );
-	}
-	if ( postFinder && !postFinder[ expando ] ) {
-		postFinder = setMatcher( postFinder, postSelector );
-	}
-	return markFunction(function( seed, results, context, xml ) {
-		var temp, i, elem,
-			preMap = [],
-			postMap = [],
-			preexisting = results.length,
-
-			// Get initial elements from seed or context
-			elems = seed || multipleContexts( selector || "*", context.nodeType ? [ context ] : context, [] ),
-
-			// Prefilter to get matcher input, preserving a map for seed-results synchronization
-			matcherIn = preFilter && ( seed || !selector ) ?
-				condense( elems, preMap, preFilter, context, xml ) :
-				elems,
-
-			matcherOut = matcher ?
-				// If we have a postFinder, or filtered seed, or non-seed postFilter or preexisting results,
-				postFinder || ( seed ? preFilter : preexisting || postFilter ) ?
-
-					// ...intermediate processing is necessary
-					[] :
-
-					// ...otherwise use results directly
-					results :
-				matcherIn;
-
-		// Find primary matches
-		if ( matcher ) {
-			matcher( matcherIn, matcherOut, context, xml );
-		}
-
-		// Apply postFilter
-		if ( postFilter ) {
-			temp = condense( matcherOut, postMap );
-			postFilter( temp, [], context, xml );
-
-			// Un-match failing elements by moving them back to matcherIn
-			i = temp.length;
-			while ( i-- ) {
-				if ( (elem = temp[i]) ) {
-					matcherOut[ postMap[i] ] = !(matcherIn[ postMap[i] ] = elem);
-				}
-			}
-		}
-
-		if ( seed ) {
-			if ( postFinder || preFilter ) {
-				if ( postFinder ) {
-					// Get the final matcherOut by condensing this intermediate into postFinder contexts
-					temp = [];
-					i = matcherOut.length;
-					while ( i-- ) {
-						if ( (elem = matcherOut[i]) ) {
-							// Restore matcherIn since elem is not yet a final match
-							temp.push( (matcherIn[i] = elem) );
-						}
-					}
-					postFinder( null, (matcherOut = []), temp, xml );
-				}
-
-				// Move matched elements from seed to results to keep them synchronized
-				i = matcherOut.length;
-				while ( i-- ) {
-					if ( (elem = matcherOut[i]) &&
-						(temp = postFinder ? indexOf( seed, elem ) : preMap[i]) > -1 ) {
-
-						seed[temp] = !(results[temp] = elem);
-					}
-				}
-			}
-
-		// Add elements to results, through postFinder if defined
-		} else {
-			matcherOut = condense(
-				matcherOut === results ?
-					matcherOut.splice( preexisting, matcherOut.length ) :
-					matcherOut
-			);
-			if ( postFinder ) {
-				postFinder( null, results, matcherOut, xml );
-			} else {
-				push.apply( results, matcherOut );
-			}
-		}
-	});
-}
-
-function matcherFromTokens( tokens ) {
-	var checkContext, matcher, j,
-		len = tokens.length,
-		leadingRelative = Expr.relative[ tokens[0].type ],
-		implicitRelative = leadingRelative || Expr.relative[" "],
-		i = leadingRelative ? 1 : 0,
-
-		// The foundational matcher ensures that elements are reachable from top-level context(s)
-		matchContext = addCombinator( function( elem ) {
-			return elem === checkContext;
-		}, implicitRelative, true ),
-		matchAnyContext = addCombinator( function( elem ) {
-			return indexOf( checkContext, elem ) > -1;
-		}, implicitRelative, true ),
-		matchers = [ function( elem, context, xml ) {
-			var ret = ( !leadingRelative && ( xml || context !== outermostContext ) ) || (
-				(checkContext = context).nodeType ?
-					matchContext( elem, context, xml ) :
-					matchAnyContext( elem, context, xml ) );
-			// Avoid hanging onto element (issue #299)
-			checkContext = null;
-			return ret;
-		} ];
-
-	for ( ; i < len; i++ ) {
-		if ( (matcher = Expr.relative[ tokens[i].type ]) ) {
-			matchers = [ addCombinator(elementMatcher( matchers ), matcher) ];
-		} else {
-			matcher = Expr.filter[ tokens[i].type ].apply( null, tokens[i].matches );
-
-			// Return special upon seeing a positional matcher
-			if ( matcher[ expando ] ) {
-				// Find the next relative operator (if any) for proper handling
-				j = ++i;
-				for ( ; j < len; j++ ) {
-					if ( Expr.relative[ tokens[j].type ] ) {
-						break;
-					}
-				}
-				return setMatcher(
-					i > 1 && elementMatcher( matchers ),
-					i > 1 && toSelector(
-						// If the preceding token was a descendant combinator, insert an implicit any-element `*`
-						tokens.slice( 0, i - 1 ).concat({ value: tokens[ i - 2 ].type === " " ? "*" : "" })
-					).replace( rtrim, "$1" ),
-					matcher,
-					i < j && matcherFromTokens( tokens.slice( i, j ) ),
-					j < len && matcherFromTokens( (tokens = tokens.slice( j )) ),
-					j < len && toSelector( tokens )
-				);
-			}
-			matchers.push( matcher );
-		}
-	}
-
-	return elementMatcher( matchers );
-}
-
-function matcherFromGroupMatchers( elementMatchers, setMatchers ) {
-	var bySet = setMatchers.length > 0,
-		byElement = elementMatchers.length > 0,
-		superMatcher = function( seed, context, xml, results, outermost ) {
-			var elem, j, matcher,
-				matchedCount = 0,
-				i = "0",
-				unmatched = seed && [],
-				setMatched = [],
-				contextBackup = outermostContext,
-				// We must always have either seed elements or outermost context
-				elems = seed || byElement && Expr.find["TAG"]( "*", outermost ),
-				// Use integer dirruns iff this is the outermost matcher
-				dirrunsUnique = (dirruns += contextBackup == null ? 1 : Math.random() || 0.1),
-				len = elems.length;
-
-			if ( outermost ) {
-				outermostContext = context === document || context || outermost;
-			}
-
-			// Add elements passing elementMatchers directly to results
-			// Support: IE<9, Safari
-			// Tolerate NodeList properties (IE: "length"; Safari: <number>) matching elements by id
-			for ( ; i !== len && (elem = elems[i]) != null; i++ ) {
-				if ( byElement && elem ) {
-					j = 0;
-					if ( !context && elem.ownerDocument !== document ) {
-						setDocument( elem );
-						xml = !documentIsHTML;
-					}
-					while ( (matcher = elementMatchers[j++]) ) {
-						if ( matcher( elem, context || document, xml) ) {
-							results.push( elem );
-							break;
-						}
-					}
-					if ( outermost ) {
-						dirruns = dirrunsUnique;
-					}
-				}
-
-				// Track unmatched elements for set filters
-				if ( bySet ) {
-					// They will have gone through all possible matchers
-					if ( (elem = !matcher && elem) ) {
-						matchedCount--;
-					}
-
-					// Lengthen the array for every element, matched or not
-					if ( seed ) {
-						unmatched.push( elem );
-					}
-				}
-			}
-
-			// `i` is now the count of elements visited above, and adding it to `matchedCount`
-			// makes the latter nonnegative.
-			matchedCount += i;
-
-			// Apply set filters to unmatched elements
-			// NOTE: This can be skipped if there are no unmatched elements (i.e., `matchedCount`
-			// equals `i`), unless we didn't visit _any_ elements in the above loop because we have
-			// no element matchers and no seed.
-			// Incrementing an initially-string "0" `i` allows `i` to remain a string only in that
-			// case, which will result in a "00" `matchedCount` that differs from `i` but is also
-			// numerically zero.
-			if ( bySet && i !== matchedCount ) {
-				j = 0;
-				while ( (matcher = setMatchers[j++]) ) {
-					matcher( unmatched, setMatched, context, xml );
-				}
-
-				if ( seed ) {
-					// Reintegrate element matches to eliminate the need for sorting
-					if ( matchedCount > 0 ) {
-						while ( i-- ) {
-							if ( !(unmatched[i] || setMatched[i]) ) {
-								setMatched[i] = pop.call( results );
-							}
-						}
-					}
-
-					// Discard index placeholder values to get only actual matches
-					setMatched = condense( setMatched );
-				}
-
-				// Add matches to results
-				push.apply( results, setMatched );
-
-				// Seedless set matches succeeding multiple successful matchers stipulate sorting
-				if ( outermost && !seed && setMatched.length > 0 &&
-					( matchedCount + setMatchers.length ) > 1 ) {
-
-					Sizzle.uniqueSort( results );
-				}
-			}
-
-			// Override manipulation of globals by nested matchers
-			if ( outermost ) {
-				dirruns = dirrunsUnique;
-				outermostContext = contextBackup;
-			}
-
-			return unmatched;
-		};
-
-	return bySet ?
-		markFunction( superMatcher ) :
-		superMatcher;
-}
-
-compile = Sizzle.compile = function( selector, match /* Internal Use Only */ ) {
-	var i,
-		setMatchers = [],
-		elementMatchers = [],
-		cached = compilerCache[ selector + " " ];
-
-	if ( !cached ) {
-		// Generate a function of recursive functions that can be used to check each element
-		if ( !match ) {
-			match = tokenize( selector );
-		}
-		i = match.length;
-		while ( i-- ) {
-			cached = matcherFromTokens( match[i] );
-			if ( cached[ expando ] ) {
-				setMatchers.push( cached );
-			} else {
-				elementMatchers.push( cached );
-			}
-		}
-
-		// Cache the compiled function
-		cached = compilerCache( selector, matcherFromGroupMatchers( elementMatchers, setMatchers ) );
-
-		// Save selector and tokenization
-		cached.selector = selector;
-	}
-	return cached;
-};
-
-/**
- * A low-level selection function that works with Sizzle's compiled
- *  selector functions
- * @param {String|Function} selector A selector or a pre-compiled
- *  selector function built with Sizzle.compile
- * @param {Element} context
- * @param {Array} [results]
- * @param {Array} [seed] A set of elements to match against
- */
-select = Sizzle.select = function( selector, context, results, seed ) {
-	var i, tokens, token, type, find,
-		compiled = typeof selector === "function" && selector,
-		match = !seed && tokenize( (selector = compiled.selector || selector) );
-
-	results = results || [];
-
-	// Try to minimize operations if there is only one selector in the list and no seed
-	// (the latter of which guarantees us context)
-	if ( match.length === 1 ) {
-
-		// Reduce context if the leading compound selector is an ID
-		tokens = match[0] = match[0].slice( 0 );
-		if ( tokens.length > 2 && (token = tokens[0]).type === "ID" &&
-				context.nodeType === 9 && documentIsHTML && Expr.relative[ tokens[1].type ] ) {
-
-			context = ( Expr.find["ID"]( token.matches[0].replace(runescape, funescape), context ) || [] )[0];
-			if ( !context ) {
-				return results;
-
-			// Precompiled matchers will still verify ancestry, so step up a level
-			} else if ( compiled ) {
-				context = context.parentNode;
-			}
-
-			selector = selector.slice( tokens.shift().value.length );
-		}
-
-		// Fetch a seed set for right-to-left matching
-		i = matchExpr["needsContext"].test( selector ) ? 0 : tokens.length;
-		while ( i-- ) {
-			token = tokens[i];
-
-			// Abort if we hit a combinator
-			if ( Expr.relative[ (type = token.type) ] ) {
-				break;
-			}
-			if ( (find = Expr.find[ type ]) ) {
-				// Search, expanding context for leading sibling combinators
-				if ( (seed = find(
-					token.matches[0].replace( runescape, funescape ),
-					rsibling.test( tokens[0].type ) && testContext( context.parentNode ) || context
-				)) ) {
-
-					// If seed is empty or no tokens remain, we can return early
-					tokens.splice( i, 1 );
-					selector = seed.length && toSelector( tokens );
-					if ( !selector ) {
-						push.apply( results, seed );
-						return results;
-					}
-
-					break;
-				}
-			}
-		}
-	}
-
-	// Compile and execute a filtering function if one is not provided
-	// Provide `match` to avoid retokenization if we modified the selector above
-	( compiled || compile( selector, match ) )(
-		seed,
-		context,
-		!documentIsHTML,
-		results,
-		!context || rsibling.test( selector ) && testContext( context.parentNode ) || context
-	);
-	return results;
-};
-
-// One-time assignments
-
-// Sort stability
-support.sortStable = expando.split("").sort( sortOrder ).join("") === expando;
-
-// Support: Chrome 14-35+
-// Always assume duplicates if they aren't passed to the comparison function
-support.detectDuplicates = !!hasDuplicate;
-
-// Initialize against the default document
-setDocument();
-
-// Support: Webkit<537.32 - Safari 6.0.3/Chrome 25 (fixed in Chrome 27)
-// Detached nodes confoundingly follow *each other*
-support.sortDetached = assert(function( el ) {
-	// Should return 1, but returns 4 (following)
-	return el.compareDocumentPosition( document.createElement("fieldset") ) & 1;
-});
-
-// Support: IE<8
-// Prevent attribute/property "interpolation"
-// https://msdn.microsoft.com/en-us/library/ms536429%28VS.85%29.aspx
-if ( !assert(function( el ) {
-	el.innerHTML = "<a href='#'></a>";
-	return el.firstChild.getAttribute("href") === "#" ;
-}) ) {
-	addHandle( "type|href|height|width", function( elem, name, isXML ) {
-		if ( !isXML ) {
-			return elem.getAttribute( name, name.toLowerCase() === "type" ? 1 : 2 );
-		}
-	});
-}
-
-// Support: IE<9
-// Use defaultValue in place of getAttribute("value")
-if ( !support.attributes || !assert(function( el ) {
-	el.innerHTML = "<input/>";
-	el.firstChild.setAttribute( "value", "" );
-	return el.firstChild.getAttribute( "value" ) === "";
-}) ) {
-	addHandle( "value", function( elem, name, isXML ) {
-		if ( !isXML && elem.nodeName.toLowerCase() === "input" ) {
-			return elem.defaultValue;
-		}
-	});
-}
-
-// Support: IE<9
-// Use getAttributeNode to fetch booleans when getAttribute lies
-if ( !assert(function( el ) {
-	return el.getAttribute("disabled") == null;
-}) ) {
-	addHandle( booleans, function( elem, name, isXML ) {
-		var val;
-		if ( !isXML ) {
-			return elem[ name ] === true ? name.toLowerCase() :
-					(val = elem.getAttributeNode( name )) && val.specified ?
-					val.value :
-				null;
-		}
-	});
-}
-
-return Sizzle;
-
-})( window );
-
-
-
-jQuery.find = Sizzle;
-jQuery.expr = Sizzle.selectors;
-
-// Deprecated
-jQuery.expr[ ":" ] = jQuery.expr.pseudos;
-jQuery.uniqueSort = jQuery.unique = Sizzle.uniqueSort;
-jQuery.text = Sizzle.getText;
-jQuery.isXMLDoc = Sizzle.isXML;
-jQuery.contains = Sizzle.contains;
-jQuery.escapeSelector = Sizzle.escape;
-
-
-
-
-var dir = function( elem, dir, until ) {
-	var matched = [],
-		truncate = until !== undefined;
-
-	while ( ( elem = elem[ dir ] ) && elem.nodeType !== 9 ) {
-		if ( elem.nodeType === 1 ) {
-			if ( truncate && jQuery( elem ).is( until ) ) {
-				break;
-			}
-			matched.push( elem );
-		}
-	}
-	return matched;
-};
-
-
-var siblings = function( n, elem ) {
-	var matched = [];
-
-	for ( ; n; n = n.nextSibling ) {
-		if ( n.nodeType === 1 && n !== elem ) {
-			matched.push( n );
-		}
-	}
-
-	return matched;
-};
-
-
-var rneedsContext = jQuery.expr.match.needsContext;
-
-
-
-function nodeName( elem, name ) {
-
-  return elem.nodeName && elem.nodeName.toLowerCase() === name.toLowerCase();
-
-};
-var rsingleTag = ( /^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i );
-
-
-
-// Implement the identical functionality for filter and not
-function winnow( elements, qualifier, not ) {
-	if ( isFunction( qualifier ) ) {
-		return jQuery.grep( elements, function( elem, i ) {
-			return !!qualifier.call( elem, i, elem ) !== not;
-		} );
-	}
-
-	// Single element
-	if ( qualifier.nodeType ) {
-		return jQuery.grep( elements, function( elem ) {
-			return ( elem === qualifier ) !== not;
-		} );
-	}
-
-	// Arraylike of elements (jQuery, arguments, Array)
-	if ( typeof qualifier !== "string" ) {
-		return jQuery.grep( elements, function( elem ) {
-			return ( indexOf.call( qualifier, elem ) > -1 ) !== not;
-		} );
-	}
-
-	// Filtered directly for both simple and complex selectors
-	return jQuery.filter( qualifier, elements, not );
-}
-
-jQuery.filter = function( expr, elems, not ) {
-	var elem = elems[ 0 ];
-
-	if ( not ) {
-		expr = ":not(" + expr + ")";
-	}
-
-	if ( elems.length === 1 && elem.nodeType === 1 ) {
-		return jQuery.find.matchesSelector( elem, expr ) ? [ elem ] : [];
-	}
-
-	return jQuery.find.matches( expr, jQuery.grep( elems, function( elem ) {
-		return elem.nodeType === 1;
-	} ) );
-};
-
-jQuery.fn.extend( {
-	find: function( selector ) {
-		var i, ret,
-			len = this.length,
-			self = this;
-
-		if ( typeof selector !== "string" ) {
-			return this.pushStack( jQuery( selector ).filter( function() {
-				for ( i = 0; i < len; i++ ) {
-					if ( jQuery.contains( self[ i ], this ) ) {
-						return true;
-					}
-				}
-			} ) );
-		}
-
-		ret = this.pushStack( [] );
-
-		for ( i = 0; i < len; i++ ) {
-			jQuery.find( selector, self[ i ], ret );
-		}
-
-		return len > 1 ? jQuery.uniqueSort( ret ) : ret;
-	},
-	filter: function( selector ) {
-		return this.pushStack( winnow( this, selector || [], false ) );
-	},
-	not: function( selector ) {
-		return this.pushStack( winnow( this, selector || [], true ) );
-	},
-	is: function( selector ) {
-		return !!winnow(
-			this,
-
-			// If this is a positional/relative selector, check membership in the returned set
-			// so $("p:first").is("p:last") won't return true for a doc with two "p".
-			typeof selector === "string" && rneedsContext.test( selector ) ?
-				jQuery( selector ) :
-				selector || [],
-			false
-		).length;
-	}
-} );
-
-
-// Initialize a jQuery object
-
-
-// A central reference to the root jQuery(document)
-var rootjQuery,
-
-	// A simple way to check for HTML strings
-	// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
-	// Strict HTML recognition (#11290: must start with <)
-	// Shortcut simple #id case for speed
-	rquickExpr = /^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/,
-
-	init = jQuery.fn.init = function( selector, context, root ) {
-		var match, elem;
-
-		// HANDLE: $(""), $(null), $(undefined), $(false)
-		if ( !selector ) {
-			return this;
-		}
-
-		// Method init() accepts an alternate rootjQuery
-		// so migrate can support jQuery.sub (gh-2101)
-		root = root || rootjQuery;
-
-		// Handle HTML strings
-		if ( typeof selector === "string" ) {
-			if ( selector[ 0 ] === "<" &&
-				selector[ selector.length - 1 ] === ">" &&
-				selector.length >= 3 ) {
-
-				// Assume that strings that start and end with <> are HTML and skip the regex check
-				match = [ null, selector, null ];
-
-			} else {
-				match = rquickExpr.exec( selector );
-			}
-
-			// Match html or make sure no context is specified for #id
-			if ( match && ( match[ 1 ] || !context ) ) {
-
-				// HANDLE: $(html) -> $(array)
-				if ( match[ 1 ] ) {
-					context = context instanceof jQuery ? context[ 0 ] : context;
-
-					// Option to run scripts is true for back-compat
-					// Intentionally let the error be thrown if parseHTML is not present
-					jQuery.merge( this, jQuery.parseHTML(
-						match[ 1 ],
-						context && context.nodeType ? context.ownerDocument || context : document,
-						true
-					) );
-
-					// HANDLE: $(html, props)
-					if ( rsingleTag.test( match[ 1 ] ) && jQuery.isPlainObject( context ) ) {
-						for ( match in context ) {
-
-							// Properties of context are called as methods if possible
-							if ( isFunction( this[ match ] ) ) {
-								this[ match ]( context[ match ] );
-
-							// ...and otherwise set as attributes
-							} else {
-								this.attr( match, context[ match ] );
-							}
-						}
-					}
-
-					return this;
-
-				// HANDLE: $(#id)
-				} else {
-					elem = document.getElementById( match[ 2 ] );
-
-					if ( elem ) {
-
-						// Inject the element directly into the jQuery object
-						this[ 0 ] = elem;
-						this.length = 1;
-					}
-					return this;
-				}
-
-			// HANDLE: $(expr, $(...))
-			} else if ( !context || context.jquery ) {
-				return ( context || root ).find( selector );
-
-			// HANDLE: $(expr, context)
-			// (which is just equivalent to: $(context).find(expr)
-			} else {
-				return this.constructor( context ).find( selector );
-			}
-
-		// HANDLE: $(DOMElement)
-		} else if ( selector.nodeType ) {
-			this[ 0 ] = selector;
-			this.length = 1;
-			return this;
-
-		// HANDLE: $(function)
-		// Shortcut for document ready
-		} else if ( isFunction( selector ) ) {
-			return root.ready !== undefined ?
-				root.ready( selector ) :
-
-				// Execute immediately if ready is not present
-				selector( jQuery );
-		}
-
-		return jQuery.makeArray( selector, this );
-	};
-
-// Give the init function the jQuery prototype for later instantiation
-init.prototype = jQuery.fn;
-
-// Initialize central reference
-rootjQuery = jQuery( document );
-
-
-var rparentsprev = /^(?:parents|prev(?:Until|All))/,
-
-	// Methods guaranteed to produce a unique set when starting from a unique set
-	guaranteedUnique = {
-		children: true,
-		contents: true,
-		next: true,
-		prev: true
-	};
-
-jQuery.fn.extend( {
-	has: function( target ) {
-		var targets = jQuery( target, this ),
-			l = targets.length;
-
-		return this.filter( function() {
-			var i = 0;
-			for ( ; i < l; i++ ) {
-				if ( jQuery.contains( this, targets[ i ] ) ) {
-					return true;
-				}
-			}
-		} );
-	},
-
-	closest: function( selectors, context ) {
-		var cur,
-			i = 0,
-			l = this.length,
-			matched = [],
-			targets = typeof selectors !== "string" && jQuery( selectors );
-
-		// Positional selectors never match, since there's no _selection_ context
-		if ( !rneedsContext.test( selectors ) ) {
-			for ( ; i < l; i++ ) {
-				for ( cur = this[ i ]; cur && cur !== context; cur = cur.parentNode ) {
-
-					// Always skip document fragments
-					if ( cur.nodeType < 11 && ( targets ?
-						targets.index( cur ) > -1 :
-
-						// Don't pass non-elements to Sizzle
-						cur.nodeType === 1 &&
-							jQuery.find.matchesSelector( cur, selectors ) ) ) {
-
-						matched.push( cur );
-						break;
-					}
-				}
-			}
-		}
-
-		return this.pushStack( matched.length > 1 ? jQuery.uniqueSort( matched ) : matched );
-	},
-
-	// Determine the position of an element within the set
-	index: function( elem ) {
-
-		// No argument, return index in parent
-		if ( !elem ) {
-			return ( this[ 0 ] && this[ 0 ].parentNode ) ? this.first().prevAll().length : -1;
-		}
-
-		// Index in selector
-		if ( typeof elem === "string" ) {
-			return indexOf.call( jQuery( elem ), this[ 0 ] );
-		}
-
-		// Locate the position of the desired element
-		return indexOf.call( this,
-
-			// If it receives a jQuery object, the first element is used
-			elem.jquery ? elem[ 0 ] : elem
-		);
-	},
-
-	add: function( selector, context ) {
-		return this.pushStack(
-			jQuery.uniqueSort(
-				jQuery.merge( this.get(), jQuery( selector, context ) )
-			)
-		);
-	},
-
-	addBack: function( selector ) {
-		return this.add( selector == null ?
-			this.prevObject : this.prevObject.filter( selector )
-		);
-	}
-} );
-
-function sibling( cur, dir ) {
-	while ( ( cur = cur[ dir ] ) && cur.nodeType !== 1 ) {}
-	return cur;
-}
-
-jQuery.each( {
-	parent: function( elem ) {
-		var parent = elem.parentNode;
-		return parent && parent.nodeType !== 11 ? parent : null;
-	},
-	parents: function( elem ) {
-		return dir( elem, "parentNode" );
-	},
-	parentsUntil: function( elem, i, until ) {
-		return dir( elem, "parentNode", until );
-	},
-	next: function( elem ) {
-		return sibling( elem, "nextSibling" );
-	},
-	prev: function( elem ) {
-		return sibling( elem, "previousSibling" );
-	},
-	nextAll: function( elem ) {
-		return dir( elem, "nextSibling" );
-	},
-	prevAll: function( elem ) {
-		return dir( elem, "previousSibling" );
-	},
-	nextUntil: function( elem, i, until ) {
-		return dir( elem, "nextSibling", until );
-	},
-	prevUntil: function( elem, i, until ) {
-		return dir( elem, "previousSibling", until );
-	},
-	siblings: function( elem ) {
-		return siblings( ( elem.parentNode || {} ).firstChild, elem );
-	},
-	children: function( elem ) {
-		return siblings( elem.firstChild );
-	},
-	contents: function( elem ) {
-        if ( nodeName( elem, "iframe" ) ) {
-            return elem.contentDocument;
-        }
-
-        // Support: IE 9 - 11 only, iOS 7 only, Android Browser <=4.3 only
-        // Treat the template element as a regular one in browsers that
-        // don't support it.
-        if ( nodeName( elem, "template" ) ) {
-            elem = elem.content || elem;
-        }
-
-        return jQuery.merge( [], elem.childNodes );
-	}
-}, function( name, fn ) {
-	jQuery.fn[ name ] = function( until, selector ) {
-		var matched = jQuery.map( this, fn, until );
-
-		if ( name.slice( -5 ) !== "Until" ) {
-			selector = until;
-		}
-
-		if ( selector && typeof selector === "string" ) {
-			matched = jQuery.filter( selector, matched );
-		}
-
-		if ( this.length > 1 ) {
-
-			// Remove duplicates
-			if ( !guaranteedUnique[ name ] ) {
-				jQuery.uniqueSort( matched );
-			}
-
-			// Reverse order for parents* and prev-derivatives
-			if ( rparentsprev.test( name ) ) {
-				matched.reverse();
-			}
-		}
-
-		return this.pushStack( matched );
-	};
-} );
-var rnothtmlwhite = ( /[^\x20\t\r\n\f]+/g );
-
-
-
-// Convert String-formatted options into Object-formatted ones
-function createOptions( options ) {
-	var object = {};
-	jQuery.each( options.match( rnothtmlwhite ) || [], function( _, flag ) {
-		object[ flag ] = true;
-	} );
-	return object;
-}
-
-/*
- * Create a callback list using the following parameters:
- *
- *	options: an optional list of space-separated options that will change how
- *			the callback list behaves or a more traditional option object
- *
- * By default a callback list will act like an event callback list and can be
- * "fired" multiple times.
- *
- * Possible options:
- *
- *	once:			will ensure the callback list can only be fired once (like a Deferred)
- *
- *	memory:			will keep track of previous values and will call any callback added
- *					after the list has been fired right away with the latest "memorized"
- *					values (like a Deferred)
- *
- *	unique:			will ensure a callback can only be added once (no duplicate in the list)
- *
- *	stopOnFalse:	interrupt callings when a callback returns false
- *
- */
-jQuery.Callbacks = function( options ) {
-
-	// Convert options from String-formatted to Object-formatted if needed
-	// (we check in cache first)
-	options = typeof options === "string" ?
-		createOptions( options ) :
-		jQuery.extend( {}, options );
-
-	var // Flag to know if list is currently firing
-		firing,
-
-		// Last fire value for non-forgettable lists
-		memory,
-
-		// Flag to know if list was already fired
-		fired,
-
-		// Flag to prevent firing
-		locked,
-
-		// Actual callback list
-		list = [],
-
-		// Queue of execution data for repeatable lists
-		queue = [],
-
-		// Index of currently firing callback (modified by add/remove as needed)
-		firingIndex = -1,
-
-		// Fire callbacks
-		fire = function() {
-
-			// Enforce single-firing
-			locked = locked || options.once;
-
-			// Execute callbacks for all pending executions,
-			// respecting firingIndex overrides and runtime changes
-			fired = firing = true;
-			for ( ; queue.length; firingIndex = -1 ) {
-				memory = queue.shift();
-				while ( ++firingIndex < list.length ) {
-
-					// Run callback and check for early termination
-					if ( list[ firingIndex ].apply( memory[ 0 ], memory[ 1 ] ) === false &&
-						options.stopOnFalse ) {
-
-						// Jump to end and forget the data so .add doesn't re-fire
-						firingIndex = list.length;
-						memory = false;
-					}
-				}
-			}
-
-			// Forget the data if we're done with it
-			if ( !options.memory ) {
-				memory = false;
-			}
-
-			firing = false;
-
-			// Clean up if we're done firing for good
-			if ( locked ) {
-
-				// Keep an empty list if we have data for future add calls
-				if ( memory ) {
-					list = [];
-
-				// Otherwise, this object is spent
-				} else {
-					list = "";
-				}
-			}
-		},
-
-		// Actual Callbacks object
-		self = {
-
-			// Add a callback or a collection of callbacks to the list
-			add: function() {
-				if ( list ) {
-
-					// If we have memory from a past run, we should fire after adding
-					if ( memory && !firing ) {
-						firingIndex = list.length - 1;
-						queue.push( memory );
-					}
-
-					( function add( args ) {
-						jQuery.each( args, function( _, arg ) {
-							if ( isFunction( arg ) ) {
-								if ( !options.unique || !self.has( arg ) ) {
-									list.push( arg );
-								}
-							} else if ( arg && arg.length && toType( arg ) !== "string" ) {
-
-								// Inspect recursively
-								add( arg );
-							}
-						} );
-					} )( arguments );
-
-					if ( memory && !firing ) {
-						fire();
-					}
-				}
-				return this;
-			},
-
-			// Remove a callback from the list
-			remove: function() {
-				jQuery.each( arguments, function( _, arg ) {
-					var index;
-					while ( ( index = jQuery.inArray( arg, list, index ) ) > -1 ) {
-						list.splice( index, 1 );
-
-						// Handle firing indexes
-						if ( index <= firingIndex ) {
-							firingIndex--;
-						}
-					}
-				} );
-				return this;
-			},
-
-			// Check if a given callback is in the list.
-			// If no argument is given, return whether or not list has callbacks attached.
-			has: function( fn ) {
-				return fn ?
-					jQuery.inArray( fn, list ) > -1 :
-					list.length > 0;
-			},
-
-			// Remove all callbacks from the list
-			empty: function() {
-				if ( list ) {
-					list = [];
-				}
-				return this;
-			},
-
-			// Disable .fire and .add
-			// Abort any current/pending executions
-			// Clear all callbacks and values
-			disable: function() {
-				locked = queue = [];
-				list = memory = "";
-				return this;
-			},
-			disabled: function() {
-				return !list;
-			},
-
-			// Disable .fire
-			// Also disable .add unless we have memory (since it would have no effect)
-			// Abort any pending executions
-			lock: function() {
-				locked = queue = [];
-				if ( !memory && !firing ) {
-					list = memory = "";
-				}
-				return this;
-			},
-			locked: function() {
-				return !!locked;
-			},
-
-			// Call all callbacks with the given context and arguments
-			fireWith: function( context, args ) {
-				if ( !locked ) {
-					args = args || [];
-					args = [ context, args.slice ? args.slice() : args ];
-					queue.push( args );
-					if ( !firing ) {
-						fire();
-					}
-				}
-				return this;
-			},
-
-			// Call all the callbacks with the given arguments
-			fire: function() {
-				self.fireWith( this, arguments );
-				return this;
-			},
-
-			// To know if the callbacks have already been called at least once
-			fired: function() {
-				return !!fired;
-			}
-		};
-
-	return self;
-};
-
-
-function Identity( v ) {
-	return v;
-}
-function Thrower( ex ) {
-	throw ex;
-}
-
-function adoptValue( value, resolve, reject, noValue ) {
-	var method;
-
-	try {
-
-		// Check for promise aspect first to privilege synchronous behavior
-		if ( value && isFunction( ( method = value.promise ) ) ) {
-			method.call( value ).done( resolve ).fail( reject );
-
-		// Other thenables
-		} else if ( value && isFunction( ( method = value.then ) ) ) {
-			method.call( value, resolve, reject );
-
-		// Other non-thenables
-		} else {
-
-			// Control `resolve` arguments by letting Array#slice cast boolean `noValue` to integer:
-			// * false: [ value ].slice( 0 ) => resolve( value )
-			// * true: [ value ].slice( 1 ) => resolve()
-			resolve.apply( undefined, [ value ].slice( noValue ) );
-		}
-
-	// For Promises/A+, convert exceptions into rejections
-	// Since jQuery.when doesn't unwrap thenables, we can skip the extra checks appearing in
-	// Deferred#then to conditionally suppress rejection.
-	} catch ( value ) {
-
-		// Support: Android 4.0 only
-		// Strict mode functions invoked without .call/.apply get global-object context
-		reject.apply( undefined, [ value ] );
-	}
-}
-
-jQuery.extend( {
-
-	Deferred: function( func ) {
-		var tuples = [
-
-				// action, add listener, callbacks,
-				// ... .then handlers, argument index, [final state]
-				[ "notify", "progress", jQuery.Callbacks( "memory" ),
-					jQuery.Callbacks( "memory" ), 2 ],
-				[ "resolve", "done", jQuery.Callbacks( "once memory" ),
-					jQuery.Callbacks( "once memory" ), 0, "resolved" ],
-				[ "reject", "fail", jQuery.Callbacks( "once memory" ),
-					jQuery.Callbacks( "once memory" ), 1, "rejected" ]
-			],
-			state = "pending",
-			promise = {
-				state: function() {
-					return state;
-				},
-				always: function() {
-					deferred.done( arguments ).fail( arguments );
-					return this;
-				},
-				"catch": function( fn ) {
-					return promise.then( null, fn );
-				},
-
-				// Keep pipe for back-compat
-				pipe: function( /* fnDone, fnFail, fnProgress */ ) {
-					var fns = arguments;
-
-					return jQuery.Deferred( function( newDefer ) {
-						jQuery.each( tuples, function( i, tuple ) {
-
-							// Map tuples (progress, done, fail) to arguments (done, fail, progress)
-							var fn = isFunction( fns[ tuple[ 4 ] ] ) && fns[ tuple[ 4 ] ];
-
-							// deferred.progress(function() { bind to newDefer or newDefer.notify })
-							// deferred.done(function() { bind to newDefer or newDefer.resolve })
-							// deferred.fail(function() { bind to newDefer or newDefer.reject })
-							deferred[ tuple[ 1 ] ]( function() {
-								var returned = fn && fn.apply( this, arguments );
-								if ( returned && isFunction( returned.promise ) ) {
-									returned.promise()
-										.progress( newDefer.notify )
-										.done( newDefer.resolve )
-										.fail( newDefer.reject );
-								} else {
-									newDefer[ tuple[ 0 ] + "With" ](
-										this,
-										fn ? [ returned ] : arguments
-									);
-								}
-							} );
-						} );
-						fns = null;
-					} ).promise();
-				},
-				then: function( onFulfilled, onRejected, onProgress ) {
-					var maxDepth = 0;
-					function resolve( depth, deferred, handler, special ) {
-						return function() {
-							var that = this,
-								args = arguments,
-								mightThrow = function() {
-									var returned, then;
-
-									// Support: Promises/A+ section 2.3.3.3.3
-									// https://promisesaplus.com/#point-59
-									// Ignore double-resolution attempts
-									if ( depth < maxDepth ) {
-										return;
-									}
-
-									returned = handler.apply( that, args );
-
-									// Support: Promises/A+ section 2.3.1
-									// https://promisesaplus.com/#point-48
-									if ( returned === deferred.promise() ) {
-										throw new TypeError( "Thenable self-resolution" );
-									}
-
-									// Support: Promises/A+ sections 2.3.3.1, 3.5
-									// https://promisesaplus.com/#point-54
-									// https://promisesaplus.com/#point-75
-									// Retrieve `then` only once
-									then = returned &&
-
-										// Support: Promises/A+ section 2.3.4
-										// https://promisesaplus.com/#point-64
-										// Only check objects and functions for thenability
-										( typeof returned === "object" ||
-											typeof returned === "function" ) &&
-										returned.then;
-
-									// Handle a returned thenable
-									if ( isFunction( then ) ) {
-
-										// Special processors (notify) just wait for resolution
-										if ( special ) {
-											then.call(
-												returned,
-												resolve( maxDepth, deferred, Identity, special ),
-												resolve( maxDepth, deferred, Thrower, special )
-											);
-
-										// Normal processors (resolve) also hook into progress
-										} else {
-
-											// ...and disregard older resolution values
-											maxDepth++;
-
-											then.call(
-												returned,
-												resolve( maxDepth, deferred, Identity, special ),
-												resolve( maxDepth, deferred, Thrower, special ),
-												resolve( maxDepth, deferred, Identity,
-													deferred.notifyWith )
-											);
-										}
-
-									// Handle all other returned values
-									} else {
-
-										// Only substitute handlers pass on context
-										// and multiple values (non-spec behavior)
-										if ( handler !== Identity ) {
-											that = undefined;
-											args = [ returned ];
-										}
-
-										// Process the value(s)
-										// Default process is resolve
-										( special || deferred.resolveWith )( that, args );
-									}
-								},
-
-								// Only normal processors (resolve) catch and reject exceptions
-								process = special ?
-									mightThrow :
-									function() {
-										try {
-											mightThrow();
-										} catch ( e ) {
-
-											if ( jQuery.Deferred.exceptionHook ) {
-												jQuery.Deferred.exceptionHook( e,
-													process.stackTrace );
-											}
-
-											// Support: Promises/A+ section 2.3.3.3.4.1
-											// https://promisesaplus.com/#point-61
-											// Ignore post-resolution exceptions
-											if ( depth + 1 >= maxDepth ) {
-
-												// Only substitute handlers pass on context
-												// and multiple values (non-spec behavior)
-												if ( handler !== Thrower ) {
-													that = undefined;
-													args = [ e ];
-												}
-
-												deferred.rejectWith( that, args );
-											}
-										}
-									};
-
-							// Support: Promises/A+ section 2.3.3.3.1
-							// https://promisesaplus.com/#point-57
-							// Re-resolve promises immediately to dodge false rejection from
-							// subsequent errors
-							if ( depth ) {
-								process();
-							} else {
-
-								// Call an optional hook to record the stack, in case of exception
-								// since it's otherwise lost when execution goes async
-								if ( jQuery.Deferred.getStackHook ) {
-									process.stackTrace = jQuery.Deferred.getStackHook();
-								}
-								window.setTimeout( process );
-							}
-						};
-					}
-
-					return jQuery.Deferred( function( newDefer ) {
-
-						// progress_handlers.add( ... )
-						tuples[ 0 ][ 3 ].add(
-							resolve(
-								0,
-								newDefer,
-								isFunction( onProgress ) ?
-									onProgress :
-									Identity,
-								newDefer.notifyWith
-							)
-						);
-
-						// fulfilled_handlers.add( ... )
-						tuples[ 1 ][ 3 ].add(
-							resolve(
-								0,
-								newDefer,
-								isFunction( onFulfilled ) ?
-									onFulfilled :
-									Identity
-							)
-						);
-
-						// rejected_handlers.add( ... )
-						tuples[ 2 ][ 3 ].add(
-							resolve(
-								0,
-								newDefer,
-								isFunction( onRejected ) ?
-									onRejected :
-									Thrower
-							)
-						);
-					} ).promise();
-				},
-
-				// Get a promise for this deferred
-				// If obj is provided, the promise aspect is added to the object
-				promise: function( obj ) {
-					return obj != null ? jQuery.extend( obj, promise ) : promise;
-				}
-			},
-			deferred = {};
-
-		// Add list-specific methods
-		jQuery.each( tuples, function( i, tuple ) {
-			var list = tuple[ 2 ],
-				stateString = tuple[ 5 ];
-
-			// promise.progress = list.add
-			// promise.done = list.add
-			// promise.fail = list.add
-			promise[ tuple[ 1 ] ] = list.add;
-
-			// Handle state
-			if ( stateString ) {
-				list.add(
-					function() {
-
-						// state = "resolved" (i.e., fulfilled)
-						// state = "rejected"
-						state = stateString;
-					},
-
-					// rejected_callbacks.disable
-					// fulfilled_callbacks.disable
-					tuples[ 3 - i ][ 2 ].disable,
-
-					// rejected_handlers.disable
-					// fulfilled_handlers.disable
-					tuples[ 3 - i ][ 3 ].disable,
-
-					// progress_callbacks.lock
-					tuples[ 0 ][ 2 ].lock,
-
-					// progress_handlers.lock
-					tuples[ 0 ][ 3 ].lock
-				);
-			}
-
-			// progress_handlers.fire
-			// fulfilled_handlers.fire
-			// rejected_handlers.fire
-			list.add( tuple[ 3 ].fire );
-
-			// deferred.notify = function() { deferred.notifyWith(...) }
-			// deferred.resolve = function() { deferred.resolveWith(...) }
-			// deferred.reject = function() { deferred.rejectWith(...) }
-			deferred[ tuple[ 0 ] ] = function() {
-				deferred[ tuple[ 0 ] + "With" ]( this === deferred ? undefined : this, arguments );
-				return this;
-			};
-
-			// deferred.notifyWith = list.fireWith
-			// deferred.resolveWith = list.fireWith
-			// deferred.rejectWith = list.fireWith
-			deferred[ tuple[ 0 ] + "With" ] = list.fireWith;
-		} );
-
-		// Make the deferred a promise
-		promise.promise( deferred );
-
-		// Call given func if any
-		if ( func ) {
-			func.call( deferred, deferred );
-		}
-
-		// All done!
-		return deferred;
-	},
-
-	// Deferred helper
-	when: function( singleValue ) {
-		var
-
-			// count of uncompleted subordinates
-			remaining = arguments.length,
-
-			// count of unprocessed arguments
-			i = remaining,
-
-			// subordinate fulfillment data
-			resolveContexts = Array( i ),
-			resolveValues = slice.call( arguments ),
-
-			// the master Deferred
-			master = jQuery.Deferred(),
-
-			// subordinate callback factory
-			updateFunc = function( i ) {
-				return function( value ) {
-					resolveContexts[ i ] = this;
-					resolveValues[ i ] = arguments.length > 1 ? slice.call( arguments ) : value;
-					if ( !( --remaining ) ) {
-						master.resolveWith( resolveContexts, resolveValues );
-					}
-				};
-			};
-
-		// Single- and empty arguments are adopted like Promise.resolve
-		if ( remaining <= 1 ) {
-			adoptValue( singleValue, master.done( updateFunc( i ) ).resolve, master.reject,
-				!remaining );
-
-			// Use .then() to unwrap secondary thenables (cf. gh-3000)
-			if ( master.state() === "pending" ||
-				isFunction( resolveValues[ i ] && resolveValues[ i ].then ) ) {
-
-				return master.then();
-			}
-		}
-
-		// Multiple arguments are aggregated like Promise.all array elements
-		while ( i-- ) {
-			adoptValue( resolveValues[ i ], updateFunc( i ), master.reject );
-		}
-
-		return master.promise();
-	}
-} );
-
-
-// These usually indicate a programmer mistake during development,
-// warn about them ASAP rather than swallowing them by default.
-var rerrorNames = /^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/;
-
-jQuery.Deferred.exceptionHook = function( error, stack ) {
-
-	// Support: IE 8 - 9 only
-	// Console exists when dev tools are open, which can happen at any time
-	if ( window.console && window.console.warn && error && rerrorNames.test( error.name ) ) {
-		window.console.warn( "jQuery.Deferred exception: " + error.message, error.stack, stack );
-	}
-};
-
-
-
-
-jQuery.readyException = function( error ) {
-	window.setTimeout( function() {
-		throw error;
-	} );
-};
-
-
-
-
-// The deferred used on DOM ready
-var readyList = jQuery.Deferred();
-
-jQuery.fn.ready = function( fn ) {
-
-	readyList
-		.then( fn )
-
-		// Wrap jQuery.readyException in a function so that the lookup
-		// happens at the time of error handling instead of callback
-		// registration.
-		.catch( function( error ) {
-			jQuery.readyException( error );
-		} );
-
-	return this;
-};
-
-jQuery.extend( {
-
-	// Is the DOM ready to be used? Set to true once it occurs.
-	isReady: false,
-
-	// A counter to track how many items to wait for before
-	// the ready event fires. See #6781
-	readyWait: 1,
-
-	// Handle when the DOM is ready
-	ready: function( wait ) {
-
-		// Abort if there are pending holds or we're already ready
-		if ( wait === true ? --jQuery.readyWait : jQuery.isReady ) {
-			return;
-		}
-
-		// Remember that the DOM is ready
-		jQuery.isReady = true;
-
-		// If a normal DOM Ready event fired, decrement, and wait if need be
-		if ( wait !== true && --jQuery.readyWait > 0 ) {
-			return;
-		}
-
-		// If there are functions bound, to execute
-		readyList.resolveWith( document, [ jQuery ] );
-	}
-} );
-
-jQuery.ready.then = readyList.then;
-
-// The ready event handler and self cleanup method
-function completed() {
-	document.removeEventListener( "DOMContentLoaded", completed );
-	window.removeEventListener( "load", completed );
-	jQuery.ready();
-}
-
-// Catch cases where $(document).ready() is called
-// after the browser event has already occurred.
-// Support: IE <=9 - 10 only
-// Older IE sometimes signals "interactive" too soon
-if ( document.readyState === "complete" ||
-	( document.readyState !== "loading" && !document.documentElement.doScroll ) ) {
-
-	// Handle it asynchronously to allow scripts the opportunity to delay ready
-	window.setTimeout( jQuery.ready );
-
-} else {
-
-	// Use the handy event callback
-	document.addEventListener( "DOMContentLoaded", completed );
-
-	// A fallback to window.onload, that will always work
-	window.addEventListener( "load", completed );
-}
-
-
-
-
-// Multifunctional method to get and set values of a collection
-// The value/s can optionally be executed if it's a function
-var access = function( elems, fn, key, value, chainable, emptyGet, raw ) {
-	var i = 0,
-		len = elems.length,
-		bulk = key == null;
-
-	// Sets many values
-	if ( toType( key ) === "object" ) {
-		chainable = true;
-		for ( i in key ) {
-			access( elems, fn, i, key[ i ], true, emptyGet, raw );
-		}
-
-	// Sets one value
-	} else if ( value !== undefined ) {
-		chainable = true;
-
-		if ( !isFunction( value ) ) {
-			raw = true;
-		}
-
-		if ( bulk ) {
-
-			// Bulk operations run against the entire set
-			if ( raw ) {
-				fn.call( elems, value );
-				fn = null;
-
-			// ...except when executing function values
-			} else {
-				bulk = fn;
-				fn = function( elem, key, value ) {
-					return bulk.call( jQuery( elem ), value );
-				};
-			}
-		}
-
-		if ( fn ) {
-			for ( ; i < len; i++ ) {
-				fn(
-					elems[ i ], key, raw ?
-					value :
-					value.call( elems[ i ], i, fn( elems[ i ], key ) )
-				);
-			}
-		}
-	}
-
-	if ( chainable ) {
-		return elems;
-	}
-
-	// Gets
-	if ( bulk ) {
-		return fn.call( elems );
-	}
-
-	return len ? fn( elems[ 0 ], key ) : emptyGet;
-};
-
-
-// Matches dashed string for camelizing
-var rmsPrefix = /^-ms-/,
-	rdashAlpha = /-([a-z])/g;
-
-// Used by camelCase as callback to replace()
-function fcamelCase( all, letter ) {
-	return letter.toUpperCase();
-}
-
-// Convert dashed to camelCase; used by the css and data modules
-// Support: IE <=9 - 11, Edge 12 - 15
-// Microsoft forgot to hump their vendor prefix (#9572)
-function camelCase( string ) {
-	return string.replace( rmsPrefix, "ms-" ).replace( rdashAlpha, fcamelCase );
-}
-var acceptData = function( owner ) {
-
-	// Accepts only:
-	//  - Node
-	//    - Node.ELEMENT_NODE
-	//    - Node.DOCUMENT_NODE
-	//  - Object
-	//    - Any
-	return owner.nodeType === 1 || owner.nodeType === 9 || !( +owner.nodeType );
-};
-
-
-
-
-function Data() {
-	this.expando = jQuery.expando + Data.uid++;
-}
-
-Data.uid = 1;
-
-Data.prototype = {
-
-	cache: function( owner ) {
-
-		// Check if the owner object already has a cache
-		var value = owner[ this.expando ];
-
-		// If not, create one
-		if ( !value ) {
-			value = {};
-
-			// We can accept data for non-element nodes in modern browsers,
-			// but we should not, see #8335.
-			// Always return an empty object.
-			if ( acceptData( owner ) ) {
-
-				// If it is a node unlikely to be stringify-ed or looped over
-				// use plain assignment
-				if ( owner.nodeType ) {
-					owner[ this.expando ] = value;
-
-				// Otherwise secure it in a non-enumerable property
-				// configurable must be true to allow the property to be
-				// deleted when data is removed
-				} else {
-					Object.defineProperty( owner, this.expando, {
-						value: value,
-						configurable: true
-					} );
-				}
-			}
-		}
-
-		return value;
-	},
-	set: function( owner, data, value ) {
-		var prop,
-			cache = this.cache( owner );
-
-		// Handle: [ owner, key, value ] args
-		// Always use camelCase key (gh-2257)
-		if ( typeof data === "string" ) {
-			cache[ camelCase( data ) ] = value;
-
-		// Handle: [ owner, { properties } ] args
-		} else {
-
-			// Copy the properties one-by-one to the cache object
-			for ( prop in data ) {
-				cache[ camelCase( prop ) ] = data[ prop ];
-			}
-		}
-		return cache;
-	},
-	get: function( owner, key ) {
-		return key === undefined ?
-			this.cache( owner ) :
-
-			// Always use camelCase key (gh-2257)
-			owner[ this.expando ] && owner[ this.expando ][ camelCase( key ) ];
-	},
-	access: function( owner, key, value ) {
-
-		// In cases where either:
-		//
-		//   1. No key was specified
-		//   2. A string key was specified, but no value provided
-		//
-		// Take the "read" path and allow the get method to determine
-		// which value to return, respectively either:
-		//
-		//   1. The entire cache object
-		//   2. The data stored at the key
-		//
-		if ( key === undefined ||
-				( ( key && typeof key === "string" ) && value === undefined ) ) {
-
-			return this.get( owner, key );
-		}
-
-		// When the key is not a string, or both a key and value
-		// are specified, set or extend (existing objects) with either:
-		//
-		//   1. An object of properties
-		//   2. A key and value
-		//
-		this.set( owner, key, value );
-
-		// Since the "set" path can have two possible entry points
-		// return the expected data based on which path was taken[*]
-		return value !== undefined ? value : key;
-	},
-	remove: function( owner, key ) {
-		var i,
-			cache = owner[ this.expando ];
-
-		if ( cache === undefined ) {
-			return;
-		}
-
-		if ( key !== undefined ) {
-
-			// Support array or space separated string of keys
-			if ( Array.isArray( key ) ) {
-
-				// If key is an array of keys...
-				// We always set camelCase keys, so remove that.
-				key = key.map( camelCase );
-			} else {
-				key = camelCase( key );
-
-				// If a key with the spaces exists, use it.
-				// Otherwise, create an array by matching non-whitespace
-				key = key in cache ?
-					[ key ] :
-					( key.match( rnothtmlwhite ) || [] );
-			}
-
-			i = key.length;
-
-			while ( i-- ) {
-				delete cache[ key[ i ] ];
-			}
-		}
-
-		// Remove the expando if there's no more data
-		if ( key === undefined || jQuery.isEmptyObject( cache ) ) {
-
-			// Support: Chrome <=35 - 45
-			// Webkit & Blink performance suffers when deleting properties
-			// from DOM nodes, so set to undefined instead
-			// https://bugs.chromium.org/p/chromium/issues/detail?id=378607 (bug restricted)
-			if ( owner.nodeType ) {
-				owner[ this.expando ] = undefined;
-			} else {
-				delete owner[ this.expando ];
-			}
-		}
-	},
-	hasData: function( owner ) {
-		var cache = owner[ this.expando ];
-		return cache !== undefined && !jQuery.isEmptyObject( cache );
-	}
-};
-var dataPriv = new Data();
-
-var dataUser = new Data();
-
-
-
-//	Implementation Summary
-//
-//	1. Enforce API surface and semantic compatibility with 1.9.x branch
-//	2. Improve the module's maintainability by reducing the storage
-//		paths to a single mechanism.
-//	3. Use the same single mechanism to support "private" and "user" data.
-//	4. _Never_ expose "private" data to user code (TODO: Drop _data, _removeData)
-//	5. Avoid exposing implementation details on user objects (eg. expando properties)
-//	6. Provide a clear path for implementation upgrade to WeakMap in 2014
-
-var rbrace = /^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,
-	rmultiDash = /[A-Z]/g;
-
-function getData( data ) {
-	if ( data === "true" ) {
-		return true;
-	}
-
-	if ( data === "false" ) {
-		return false;
-	}
-
-	if ( data === "null" ) {
-		return null;
-	}
-
-	// Only convert to a number if it doesn't change the string
-	if ( data === +data + "" ) {
-		return +data;
-	}
-
-	if ( rbrace.test( data ) ) {
-		return JSON.parse( data );
-	}
-
-	return data;
-}
-
-function dataAttr( elem, key, data ) {
-	var name;
-
-	// If nothing was found internally, try to fetch any
-	// data from the HTML5 data-* attribute
-	if ( data === undefined && elem.nodeType === 1 ) {
-		name = "data-" + key.replace( rmultiDash, "-$&" ).toLowerCase();
-		data = elem.getAttribute( name );
-
-		if ( typeof data === "string" ) {
-			try {
-				data = getData( data );
-			} catch ( e ) {}
-
-			// Make sure we set the data so it isn't changed later
-			dataUser.set( elem, key, data );
-		} else {
-			data = undefined;
-		}
-	}
-	return data;
-}
-
-jQuery.extend( {
-	hasData: function( elem ) {
-		return dataUser.hasData( elem ) || dataPriv.hasData( elem );
-	},
-
-	data: function( elem, name, data ) {
-		return dataUser.access( elem, name, data );
-	},
-
-	removeData: function( elem, name ) {
-		dataUser.remove( elem, name );
-	},
-
-	// TODO: Now that all calls to _data and _removeData have been replaced
-	// with direct calls to dataPriv methods, these can be deprecated.
-	_data: function( elem, name, data ) {
-		return dataPriv.access( elem, name, data );
-	},
-
-	_removeData: function( elem, name ) {
-		dataPriv.remove( elem, name );
-	}
-} );
-
-jQuery.fn.extend( {
-	data: function( key, value ) {
-		var i, name, data,
-			elem = this[ 0 ],
-			attrs = elem && elem.attributes;
-
-		// Gets all values
-		if ( key === undefined ) {
-			if ( this.length ) {
-				data = dataUser.get( elem );
-
-				if ( elem.nodeType === 1 && !dataPriv.get( elem, "hasDataAttrs" ) ) {
-					i = attrs.length;
-					while ( i-- ) {
-
-						// Support: IE 11 only
-						// The attrs elements can be null (#14894)
-						if ( attrs[ i ] ) {
-							name = attrs[ i ].name;
-							if ( name.indexOf( "data-" ) === 0 ) {
-								name = camelCase( name.slice( 5 ) );
-								dataAttr( elem, name, data[ name ] );
-							}
-						}
-					}
-					dataPriv.set( elem, "hasDataAttrs", true );
-				}
-			}
-
-			return data;
-		}
-
-		// Sets multiple values
-		if ( typeof key === "object" ) {
-			return this.each( function() {
-				dataUser.set( this, key );
-			} );
-		}
-
-		return access( this, function( value ) {
-			var data;
-
-			// The calling jQuery object (element matches) is not empty
-			// (and therefore has an element appears at this[ 0 ]) and the
-			// `value` parameter was not undefined. An empty jQuery object
-			// will result in `undefined` for elem = this[ 0 ] which will
-			// throw an exception if an attempt to read a data cache is made.
-			if ( elem && value === undefined ) {
-
-				// Attempt to get data from the cache
-				// The key will always be camelCased in Data
-				data = dataUser.get( elem, key );
-				if ( data !== undefined ) {
-					return data;
-				}
-
-				// Attempt to "discover" the data in
-				// HTML5 custom data-* attrs
-				data = dataAttr( elem, key );
-				if ( data !== undefined ) {
-					return data;
-				}
-
-				// We tried really hard, but the data doesn't exist.
-				return;
-			}
-
-			// Set the data...
-			this.each( function() {
-
-				// We always store the camelCased key
-				dataUser.set( this, key, value );
-			} );
-		}, null, value, arguments.length > 1, null, true );
-	},
-
-	removeData: function( key ) {
-		return this.each( function() {
-			dataUser.remove( this, key );
-		} );
-	}
-} );
-
-
-jQuery.extend( {
-	queue: function( elem, type, data ) {
-		var queue;
-
-		if ( elem ) {
-			type = ( type || "fx" ) + "queue";
-			queue = dataPriv.get( elem, type );
-
-			// Speed up dequeue by getting out quickly if this is just a lookup
-			if ( data ) {
-				if ( !queue || Array.isArray( data ) ) {
-					queue = dataPriv.access( elem, type, jQuery.makeArray( data ) );
-				} else {
-					queue.push( data );
-				}
-			}
-			return queue || [];
-		}
-	},
-
-	dequeue: function( elem, type ) {
-		type = type || "fx";
-
-		var queue = jQuery.queue( elem, type ),
-			startLength = queue.length,
-			fn = queue.shift(),
-			hooks = jQuery._queueHooks( elem, type ),
-			next = function() {
-				jQuery.dequeue( elem, type );
-			};
-
-		// If the fx queue is dequeued, always remove the progress sentinel
-		if ( fn === "inprogress" ) {
-			fn = queue.shift();
-			startLength--;
-		}
-
-		if ( fn ) {
-
-			// Add a progress sentinel to prevent the fx queue from being
-			// automatically dequeued
-			if ( type === "fx" ) {
-				queue.unshift( "inprogress" );
-			}
-
-			// Clear up the last queue stop function
-			delete hooks.stop;
-			fn.call( elem, next, hooks );
-		}
-
-		if ( !startLength && hooks ) {
-			hooks.empty.fire();
-		}
-	},
-
-	// Not public - generate a queueHooks object, or return the current one
-	_queueHooks: function( elem, type ) {
-		var key = type + "queueHooks";
-		return dataPriv.get( elem, key ) || dataPriv.access( elem, key, {
-			empty: jQuery.Callbacks( "once memory" ).add( function() {
-				dataPriv.remove( elem, [ type + "queue", key ] );
-			} )
-		} );
-	}
-} );
-
-jQuery.fn.extend( {
-	queue: function( type, data ) {
-		var setter = 2;
-
-		if ( typeof type !== "string" ) {
-			data = type;
-			type = "fx";
-			setter--;
-		}
-
-		if ( arguments.length < setter ) {
-			return jQuery.queue( this[ 0 ], type );
-		}
-
-		return data === undefined ?
-			this :
-			this.each( function() {
-				var queue = jQuery.queue( this, type, data );
-
-				// Ensure a hooks for this queue
-				jQuery._queueHooks( this, type );
-
-				if ( type === "fx" && queue[ 0 ] !== "inprogress" ) {
-					jQuery.dequeue( this, type );
-				}
-			} );
-	},
-	dequeue: function( type ) {
-		return this.each( function() {
-			jQuery.dequeue( this, type );
-		} );
-	},
-	clearQueue: function( type ) {
-		return this.queue( type || "fx", [] );
-	},
-
-	// Get a promise resolved when queues of a certain type
-	// are emptied (fx is the type by default)
-	promise: function( type, obj ) {
-		var tmp,
-			count = 1,
-			defer = jQuery.Deferred(),
-			elements = this,
-			i = this.length,
-			resolve = function() {
-				if ( !( --count ) ) {
-					defer.resolveWith( elements, [ elements ] );
-				}
-			};
-
-		if ( typeof type !== "string" ) {
-			obj = type;
-			type = undefined;
-		}
-		type = type || "fx";
-
-		while ( i-- ) {
-			tmp = dataPriv.get( elements[ i ], type + "queueHooks" );
-			if ( tmp && tmp.empty ) {
-				count++;
-				tmp.empty.add( resolve );
-			}
-		}
-		resolve();
-		return defer.promise( obj );
-	}
-} );
-var pnum = ( /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/ ).source;
-
-var rcssNum = new RegExp( "^(?:([+-])=|)(" + pnum + ")([a-z%]*)$", "i" );
-
-
-var cssExpand = [ "Top", "Right", "Bottom", "Left" ];
-
-var isHiddenWithinTree = function( elem, el ) {
-
-		// isHiddenWithinTree might be called from jQuery#filter function;
-		// in that case, element will be second argument
-		elem = el || elem;
-
-		// Inline style trumps all
-		return elem.style.display === "none" ||
-			elem.style.display === "" &&
-
-			// Otherwise, check computed style
-			// Support: Firefox <=43 - 45
-			// Disconnected elements can have computed display: none, so first confirm that elem is
-			// in the document.
-			jQuery.contains( elem.ownerDocument, elem ) &&
-
-			jQuery.css( elem, "display" ) === "none";
-	};
-
-var swap = function( elem, options, callback, args ) {
-	var ret, name,
-		old = {};
-
-	// Remember the old values, and insert the new ones
-	for ( name in options ) {
-		old[ name ] = elem.style[ name ];
-		elem.style[ name ] = options[ name ];
-	}
-
-	ret = callback.apply( elem, args || [] );
-
-	// Revert the old values
-	for ( name in options ) {
-		elem.style[ name ] = old[ name ];
-	}
-
-	return ret;
-};
-
-
-
-
-function adjustCSS( elem, prop, valueParts, tween ) {
-	var adjusted, scale,
-		maxIterations = 20,
-		currentValue = tween ?
-			function() {
-				return tween.cur();
-			} :
-			function() {
-				return jQuery.css( elem, prop, "" );
-			},
-		initial = currentValue(),
-		unit = valueParts && valueParts[ 3 ] || ( jQuery.cssNumber[ prop ] ? "" : "px" ),
-
-		// Starting value computation is required for potential unit mismatches
-		initialInUnit = ( jQuery.cssNumber[ prop ] || unit !== "px" && +initial ) &&
-			rcssNum.exec( jQuery.css( elem, prop ) );
-
-	if ( initialInUnit && initialInUnit[ 3 ] !== unit ) {
-
-		// Support: Firefox <=54
-		// Halve the iteration target value to prevent interference from CSS upper bounds (gh-2144)
-		initial = initial / 2;
-
-		// Trust units reported by jQuery.css
-		unit = unit || initialInUnit[ 3 ];
-
-		// Iteratively approximate from a nonzero starting point
-		initialInUnit = +initial || 1;
-
-		while ( maxIterations-- ) {
-
-			// Evaluate and update our best guess (doubling guesses that zero out).
-			// Finish if the scale equals or crosses 1 (making the old*new product non-positive).
-			jQuery.style( elem, prop, initialInUnit + unit );
-			if ( ( 1 - scale ) * ( 1 - ( scale = currentValue() / initial || 0.5 ) ) <= 0 ) {
-				maxIterations = 0;
-			}
-			initialInUnit = initialInUnit / scale;
-
-		}
-
-		initialInUnit = initialInUnit * 2;
-		jQuery.style( elem, prop, initialInUnit + unit );
-
-		// Make sure we update the tween properties later on
-		valueParts = valueParts || [];
-	}
-
-	if ( valueParts ) {
-		initialInUnit = +initialInUnit || +initial || 0;
-
-		// Apply relative offset (+=/-=) if specified
-		adjusted = valueParts[ 1 ] ?
-			initialInUnit + ( valueParts[ 1 ] + 1 ) * valueParts[ 2 ] :
-			+valueParts[ 2 ];
-		if ( tween ) {
-			tween.unit = unit;
-			tween.start = initialInUnit;
-			tween.end = adjusted;
-		}
-	}
-	return adjusted;
-}
-
-
-var defaultDisplayMap = {};
-
-function getDefaultDisplay( elem ) {
-	var temp,
-		doc = elem.ownerDocument,
-		nodeName = elem.nodeName,
-		display = defaultDisplayMap[ nodeName ];
-
-	if ( display ) {
-		return display;
-	}
-
-	temp = doc.body.appendChild( doc.createElement( nodeName ) );
-	display = jQuery.css( temp, "display" );
-
-	temp.parentNode.removeChild( temp );
-
-	if ( display === "none" ) {
-		display = "block";
-	}
-	defaultDisplayMap[ nodeName ] = display;
-
-	return display;
-}
-
-function showHide( elements, show ) {
-	var display, elem,
-		values = [],
-		index = 0,
-		length = elements.length;
-
-	// Determine new display value for elements that need to change
-	for ( ; index < length; index++ ) {
-		elem = elements[ index ];
-		if ( !elem.style ) {
-			continue;
-		}
-
-		display = elem.style.display;
-		if ( show ) {
-
-			// Since we force visibility upon cascade-hidden elements, an immediate (and slow)
-			// check is required in this first loop unless we have a nonempty display value (either
-			// inline or about-to-be-restored)
-			if ( display === "none" ) {
-				values[ index ] = dataPriv.get( elem, "display" ) || null;
-				if ( !values[ index ] ) {
-					elem.style.display = "";
-				}
-			}
-			if ( elem.style.display === "" && isHiddenWithinTree( elem ) ) {
-				values[ index ] = getDefaultDisplay( elem );
-			}
-		} else {
-			if ( display !== "none" ) {
-				values[ index ] = "none";
-
-				// Remember what we're overwriting
-				dataPriv.set( elem, "display", display );
-			}
-		}
-	}
-
-	// Set the display of the elements in a second loop to avoid constant reflow
-	for ( index = 0; index < length; index++ ) {
-		if ( values[ index ] != null ) {
-			elements[ index ].style.display = values[ index ];
-		}
-	}
-
-	return elements;
-}
-
-jQuery.fn.extend( {
-	show: function() {
-		return showHide( this, true );
-	},
-	hide: function() {
-		return showHide( this );
-	},
-	toggle: function( state ) {
-		if ( typeof state === "boolean" ) {
-			return state ? this.show() : this.hide();
-		}
-
-		return this.each( function() {
-			if ( isHiddenWithinTree( this ) ) {
-				jQuery( this ).show();
-			} else {
-				jQuery( this ).hide();
-			}
-		} );
-	}
-} );
-var rcheckableType = ( /^(?:checkbox|radio)$/i );
-
-var rtagName = ( /<([a-z][^\/\0>\x20\t\r\n\f]+)/i );
-
-var rscriptType = ( /^$|^module$|\/(?:java|ecma)script/i );
-
-
-
-// We have to close these tags to support XHTML (#13200)
-var wrapMap = {
-
-	// Support: IE <=9 only
-	option: [ 1, "<select multiple='multiple'>", "</select>" ],
-
-	// XHTML parsers do not magically insert elements in the
-	// same way that tag soup parsers do. So we cannot shorten
-	// this by omitting <tbody> or other required elements.
-	thead: [ 1, "<table>", "</table>" ],
-	col: [ 2, "<table><colgroup>", "</colgroup></table>" ],
-	tr: [ 2, "<table><tbody>", "</tbody></table>" ],
-	td: [ 3, "<table><tbody><tr>", "</tr></tbody></table>" ],
-
-	_default: [ 0, "", "" ]
-};
-
-// Support: IE <=9 only
-wrapMap.optgroup = wrapMap.option;
-
-wrapMap.tbody = wrapMap.tfoot = wrapMap.colgroup = wrapMap.caption = wrapMap.thead;
-wrapMap.th = wrapMap.td;
-
-
-function getAll( context, tag ) {
-
-	// Support: IE <=9 - 11 only
-	// Use typeof to avoid zero-argument method invocation on host objects (#15151)
-	var ret;
-
-	if ( typeof context.getElementsByTagName !== "undefined" ) {
-		ret = context.getElementsByTagName( tag || "*" );
-
-	} else if ( typeof context.querySelectorAll !== "undefined" ) {
-		ret = context.querySelectorAll( tag || "*" );
-
-	} else {
-		ret = [];
-	}
-
-	if ( tag === undefined || tag && nodeName( context, tag ) ) {
-		return jQuery.merge( [ context ], ret );
-	}
-
-	return ret;
-}
-
-
-// Mark scripts as having already been evaluated
-function setGlobalEval( elems, refElements ) {
-	var i = 0,
-		l = elems.length;
-
-	for ( ; i < l; i++ ) {
-		dataPriv.set(
-			elems[ i ],
-			"globalEval",
-			!refElements || dataPriv.get( refElements[ i ], "globalEval" )
-		);
-	}
-}
-
-
-var rhtml = /<|&#?\w+;/;
-
-function buildFragment( elems, context, scripts, selection, ignored ) {
-	var elem, tmp, tag, wrap, contains, j,
-		fragment = context.createDocumentFragment(),
-		nodes = [],
-		i = 0,
-		l = elems.length;
-
-	for ( ; i < l; i++ ) {
-		elem = elems[ i ];
-
-		if ( elem || elem === 0 ) {
-
-			// Add nodes directly
-			if ( toType( elem ) === "object" ) {
-
-				// Support: Android <=4.0 only, PhantomJS 1 only
-				// push.apply(_, arraylike) throws on ancient WebKit
-				jQuery.merge( nodes, elem.nodeType ? [ elem ] : elem );
-
-			// Convert non-html into a text node
-			} else if ( !rhtml.test( elem ) ) {
-				nodes.push( context.createTextNode( elem ) );
-
-			// Convert html into DOM nodes
-			} else {
-				tmp = tmp || fragment.appendChild( context.createElement( "div" ) );
-
-				// Deserialize a standard representation
-				tag = ( rtagName.exec( elem ) || [ "", "" ] )[ 1 ].toLowerCase();
-				wrap = wrapMap[ tag ] || wrapMap._default;
-				tmp.innerHTML = wrap[ 1 ] + jQuery.htmlPrefilter( elem ) + wrap[ 2 ];
-
-				// Descend through wrappers to the right content
-				j = wrap[ 0 ];
-				while ( j-- ) {
-					tmp = tmp.lastChild;
-				}
-
-				// Support: Android <=4.0 only, PhantomJS 1 only
-				// push.apply(_, arraylike) throws on ancient WebKit
-				jQuery.merge( nodes, tmp.childNodes );
-
-				// Remember the top-level container
-				tmp = fragment.firstChild;
-
-				// Ensure the created nodes are orphaned (#12392)
-				tmp.textContent = "";
-			}
-		}
-	}
-
-	// Remove wrapper from fragment
-	fragment.textContent = "";
-
-	i = 0;
-	while ( ( elem = nodes[ i++ ] ) ) {
-
-		// Skip elements already in the context collection (trac-4087)
-		if ( selection && jQuery.inArray( elem, selection ) > -1 ) {
-			if ( ignored ) {
-				ignored.push( elem );
-			}
-			continue;
-		}
-
-		contains = jQuery.contains( elem.ownerDocument, elem );
-
-		// Append to fragment
-		tmp = getAll( fragment.appendChild( elem ), "script" );
-
-		// Preserve script evaluation history
-		if ( contains ) {
-			setGlobalEval( tmp );
-		}
-
-		// Capture executables
-		if ( scripts ) {
-			j = 0;
-			while ( ( elem = tmp[ j++ ] ) ) {
-				if ( rscriptType.test( elem.type || "" ) ) {
-					scripts.push( elem );
-				}
-			}
-		}
-	}
-
-	return fragment;
-}
-
-
-( function() {
-	var fragment = document.createDocumentFragment(),
-		div = fragment.appendChild( document.createElement( "div" ) ),
-		input = document.createElement( "input" );
-
-	// Support: Android 4.0 - 4.3 only
-	// Check state lost if the name is set (#11217)
-	// Support: Windows Web Apps (WWA)
-	// `name` and `type` must use .setAttribute for WWA (#14901)
-	input.setAttribute( "type", "radio" );
-	input.setAttribute( "checked", "checked" );
-	input.setAttribute( "name", "t" );
-
-	div.appendChild( input );
-
-	// Support: Android <=4.1 only
-	// Older WebKit doesn't clone checked state correctly in fragments
-	support.checkClone = div.cloneNode( true ).cloneNode( true ).lastChild.checked;
-
-	// Support: IE <=11 only
-	// Make sure textarea (and checkbox) defaultValue is properly cloned
-	div.innerHTML = "<textarea>x</textarea>";
-	support.noCloneChecked = !!div.cloneNode( true ).lastChild.defaultValue;
-} )();
-var documentElement = document.documentElement;
-
-
-
-var
-	rkeyEvent = /^key/,
-	rmouseEvent = /^(?:mouse|pointer|contextmenu|drag|drop)|click/,
-	rtypenamespace = /^([^.]*)(?:\.(.+)|)/;
-
-function returnTrue() {
-	return true;
-}
-
-function returnFalse() {
-	return false;
-}
-
-// Support: IE <=9 only
-// See #13393 for more info
-function safeActiveElement() {
-	try {
-		return document.activeElement;
-	} catch ( err ) { }
-}
-
-function on( elem, types, selector, data, fn, one ) {
-	var origFn, type;
-
-	// Types can be a map of types/handlers
-	if ( typeof types === "object" ) {
-
-		// ( types-Object, selector, data )
-		if ( typeof selector !== "string" ) {
-
-			// ( types-Object, data )
-			data = data || selector;
-			selector = undefined;
-		}
-		for ( type in types ) {
-			on( elem, type, selector, data, types[ type ], one );
-		}
-		return elem;
-	}
-
-	if ( data == null && fn == null ) {
-
-		// ( types, fn )
-		fn = selector;
-		data = selector = undefined;
-	} else if ( fn == null ) {
-		if ( typeof selector === "string" ) {
-
-			// ( types, selector, fn )
-			fn = data;
-			data = undefined;
-		} else {
-
-			// ( types, data, fn )
-			fn = data;
-			data = selector;
-			selector = undefined;
-		}
-	}
-	if ( fn === false ) {
-		fn = returnFalse;
-	} else if ( !fn ) {
-		return elem;
-	}
-
-	if ( one === 1 ) {
-		origFn = fn;
-		fn = function( event ) {
-
-			// Can use an empty set, since event contains the info
-			jQuery().off( event );
-			return origFn.apply( this, arguments );
-		};
-
-		// Use same guid so caller can remove using origFn
-		fn.guid = origFn.guid || ( origFn.guid = jQuery.guid++ );
-	}
-	return elem.each( function() {
-		jQuery.event.add( this, types, fn, data, selector );
-	} );
-}
-
-/*
- * Helper functions for managing events -- not part of the public interface.
- * Props to Dean Edwards' addEvent library for many of the ideas.
- */
-jQuery.event = {
-
-	global: {},
-
-	add: function( elem, types, handler, data, selector ) {
-
-		var handleObjIn, eventHandle, tmp,
-			events, t, handleObj,
-			special, handlers, type, namespaces, origType,
-			elemData = dataPriv.get( elem );
-
-		// Don't attach events to noData or text/comment nodes (but allow plain objects)
-		if ( !elemData ) {
-			return;
-		}
-
-		// Caller can pass in an object of custom data in lieu of the handler
-		if ( handler.handler ) {
-			handleObjIn = handler;
-			handler = handleObjIn.handler;
-			selector = handleObjIn.selector;
-		}
-
-		// Ensure that invalid selectors throw exceptions at attach time
-		// Evaluate against documentElement in case elem is a non-element node (e.g., document)
-		if ( selector ) {
-			jQuery.find.matchesSelector( documentElement, selector );
-		}
-
-		// Make sure that the handler has a unique ID, used to find/remove it later
-		if ( !handler.guid ) {
-			handler.guid = jQuery.guid++;
-		}
-
-		// Init the element's event structure and main handler, if this is the first
-		if ( !( events = elemData.events ) ) {
-			events = elemData.events = {};
-		}
-		if ( !( eventHandle = elemData.handle ) ) {
-			eventHandle = elemData.handle = function( e ) {
-
-				// Discard the second event of a jQuery.event.trigger() and
-				// when an event is called after a page has unloaded
-				return typeof jQuery !== "undefined" && jQuery.event.triggered !== e.type ?
-					jQuery.event.dispatch.apply( elem, arguments ) : undefined;
-			};
-		}
-
-		// Handle multiple events separated by a space
-		types = ( types || "" ).match( rnothtmlwhite ) || [ "" ];
-		t = types.length;
-		while ( t-- ) {
-			tmp = rtypenamespace.exec( types[ t ] ) || [];
-			type = origType = tmp[ 1 ];
-			namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort();
-
-			// There *must* be a type, no attaching namespace-only handlers
-			if ( !type ) {
-				continue;
-			}
-
-			// If event changes its type, use the special event handlers for the changed type
-			special = jQuery.event.special[ type ] || {};
-
-			// If selector defined, determine special event api type, otherwise given type
-			type = ( selector ? special.delegateType : special.bindType ) || type;
-
-			// Update special based on newly reset type
-			special = jQuery.event.special[ type ] || {};
-
-			// handleObj is passed to all event handlers
-			handleObj = jQuery.extend( {
-				type: type,
-				origType: origType,
-				data: data,
-				handler: handler,
-				guid: handler.guid,
-				selector: selector,
-				needsContext: selector && jQuery.expr.match.needsContext.test( selector ),
-				namespace: namespaces.join( "." )
-			}, handleObjIn );
-
-			// Init the event handler queue if we're the first
-			if ( !( handlers = events[ type ] ) ) {
-				handlers = events[ type ] = [];
-				handlers.delegateCount = 0;
-
-				// Only use addEventListener if the special events handler returns false
-				if ( !special.setup ||
-					special.setup.call( elem, data, namespaces, eventHandle ) === false ) {
-
-					if ( elem.addEventListener ) {
-						elem.addEventListener( type, eventHandle );
-					}
-				}
-			}
-
-			if ( special.add ) {
-				special.add.call( elem, handleObj );
-
-				if ( !handleObj.handler.guid ) {
-					handleObj.handler.guid = handler.guid;
-				}
-			}
-
-			// Add to the element's handler list, delegates in front
-			if ( selector ) {
-				handlers.splice( handlers.delegateCount++, 0, handleObj );
-			} else {
-				handlers.push( handleObj );
-			}
-
-			// Keep track of which events have ever been used, for event optimization
-			jQuery.event.global[ type ] = true;
-		}
-
-	},
-
-	// Detach an event or set of events from an element
-	remove: function( elem, types, handler, selector, mappedTypes ) {
-
-		var j, origCount, tmp,
-			events, t, handleObj,
-			special, handlers, type, namespaces, origType,
-			elemData = dataPriv.hasData( elem ) && dataPriv.get( elem );
-
-		if ( !elemData || !( events = elemData.events ) ) {
-			return;
-		}
-
-		// Once for each type.namespace in types; type may be omitted
-		types = ( types || "" ).match( rnothtmlwhite ) || [ "" ];
-		t = types.length;
-		while ( t-- ) {
-			tmp = rtypenamespace.exec( types[ t ] ) || [];
-			type = origType = tmp[ 1 ];
-			namespaces = ( tmp[ 2 ] || "" ).split( "." ).sort();
-
-			// Unbind all events (on this namespace, if provided) for the element
-			if ( !type ) {
-				for ( type in events ) {
-					jQuery.event.remove( elem, type + types[ t ], handler, selector, true );
-				}
-				continue;
-			}
-
-			special = jQuery.event.special[ type ] || {};
-			type = ( selector ? special.delegateType : special.bindType ) || type;
-			handlers = events[ type ] || [];
-			tmp = tmp[ 2 ] &&
-				new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" );
-
-			// Remove matching events
-			origCount = j = handlers.length;
-			while ( j-- ) {
-				handleObj = handlers[ j ];
-
-				if ( ( mappedTypes || origType === handleObj.origType ) &&
-					( !handler || handler.guid === handleObj.guid ) &&
-					( !tmp || tmp.test( handleObj.namespace ) ) &&
-					( !selector || selector === handleObj.selector ||
-						selector === "**" && handleObj.selector ) ) {
-					handlers.splice( j, 1 );
-
-					if ( handleObj.selector ) {
-						handlers.delegateCount--;
-					}
-					if ( special.remove ) {
-						special.remove.call( elem, handleObj );
-					}
-				}
-			}
-
-			// Remove generic event handler if we removed something and no more handlers exist
-			// (avoids potential for endless recursion during removal of special event handlers)
-			if ( origCount && !handlers.length ) {
-				if ( !special.teardown ||
-					special.teardown.call( elem, namespaces, elemData.handle ) === false ) {
-
-					jQuery.removeEvent( elem, type, elemData.handle );
-				}
-
-				delete events[ type ];
-			}
-		}
-
-		// Remove data and the expando if it's no longer used
-		if ( jQuery.isEmptyObject( events ) ) {
-			dataPriv.remove( elem, "handle events" );
-		}
-	},
-
-	dispatch: function( nativeEvent ) {
-
-		// Make a writable jQuery.Event from the native event object
-		var event = jQuery.event.fix( nativeEvent );
-
-		var i, j, ret, matched, handleObj, handlerQueue,
-			args = new Array( arguments.length ),
-			handlers = ( dataPriv.get( this, "events" ) || {} )[ event.type ] || [],
-			special = jQuery.event.special[ event.type ] || {};
-
-		// Use the fix-ed jQuery.Event rather than the (read-only) native event
-		args[ 0 ] = event;
-
-		for ( i = 1; i < arguments.length; i++ ) {
-			args[ i ] = arguments[ i ];
-		}
-
-		event.delegateTarget = this;
-
-		// Call the preDispatch hook for the mapped type, and let it bail if desired
-		if ( special.preDispatch && special.preDispatch.call( this, event ) === false ) {
-			return;
-		}
-
-		// Determine handlers
-		handlerQueue = jQuery.event.handlers.call( this, event, handlers );
-
-		// Run delegates first; they may want to stop propagation beneath us
-		i = 0;
-		while ( ( matched = handlerQueue[ i++ ] ) && !event.isPropagationStopped() ) {
-			event.currentTarget = matched.elem;
-
-			j = 0;
-			while ( ( handleObj = matched.handlers[ j++ ] ) &&
-				!event.isImmediatePropagationStopped() ) {
-
-				// Triggered event must either 1) have no namespace, or 2) have namespace(s)
-				// a subset or equal to those in the bound event (both can have no namespace).
-				if ( !event.rnamespace || event.rnamespace.test( handleObj.namespace ) ) {
-
-					event.handleObj = handleObj;
-					event.data = handleObj.data;
-
-					ret = ( ( jQuery.event.special[ handleObj.origType ] || {} ).handle ||
-						handleObj.handler ).apply( matched.elem, args );
-
-					if ( ret !== undefined ) {
-						if ( ( event.result = ret ) === false ) {
-							event.preventDefault();
-							event.stopPropagation();
-						}
-					}
-				}
-			}
-		}
-
-		// Call the postDispatch hook for the mapped type
-		if ( special.postDispatch ) {
-			special.postDispatch.call( this, event );
-		}
-
-		return event.result;
-	},
-
-	handlers: function( event, handlers ) {
-		var i, handleObj, sel, matchedHandlers, matchedSelectors,
-			handlerQueue = [],
-			delegateCount = handlers.delegateCount,
-			cur = event.target;
-
-		// Find delegate handlers
-		if ( delegateCount &&
-
-			// Support: IE <=9
-			// Black-hole SVG <use> instance trees (trac-13180)
-			cur.nodeType &&
-
-			// Support: Firefox <=42
-			// Suppress spec-violating clicks indicating a non-primary pointer button (trac-3861)
-			// https://www.w3.org/TR/DOM-Level-3-Events/#event-type-click
-			// Support: IE 11 only
-			// ...but not arrow key "clicks" of radio inputs, which can have `button` -1 (gh-2343)
-			!( event.type === "click" && event.button >= 1 ) ) {
-
-			for ( ; cur !== this; cur = cur.parentNode || this ) {
-
-				// Don't check non-elements (#13208)
-				// Don't process clicks on disabled elements (#6911, #8165, #11382, #11764)
-				if ( cur.nodeType === 1 && !( event.type === "click" && cur.disabled === true ) ) {
-					matchedHandlers = [];
-					matchedSelectors = {};
-					for ( i = 0; i < delegateCount; i++ ) {
-						handleObj = handlers[ i ];
-
-						// Don't conflict with Object.prototype properties (#13203)
-						sel = handleObj.selector + " ";
-
-						if ( matchedSelectors[ sel ] === undefined ) {
-							matchedSelectors[ sel ] = handleObj.needsContext ?
-								jQuery( sel, this ).index( cur ) > -1 :
-								jQuery.find( sel, this, null, [ cur ] ).length;
-						}
-						if ( matchedSelectors[ sel ] ) {
-							matchedHandlers.push( handleObj );
-						}
-					}
-					if ( matchedHandlers.length ) {
-						handlerQueue.push( { elem: cur, handlers: matchedHandlers } );
-					}
-				}
-			}
-		}
-
-		// Add the remaining (directly-bound) handlers
-		cur = this;
-		if ( delegateCount < handlers.length ) {
-			handlerQueue.push( { elem: cur, handlers: handlers.slice( delegateCount ) } );
-		}
-
-		return handlerQueue;
-	},
-
-	addProp: function( name, hook ) {
-		Object.defineProperty( jQuery.Event.prototype, name, {
-			enumerable: true,
-			configurable: true,
-
-			get: isFunction( hook ) ?
-				function() {
-					if ( this.originalEvent ) {
-							return hook( this.originalEvent );
-					}
-				} :
-				function() {
-					if ( this.originalEvent ) {
-							return this.originalEvent[ name ];
-					}
-				},
-
-			set: function( value ) {
-				Object.defineProperty( this, name, {
-					enumerable: true,
-					configurable: true,
-					writable: true,
-					value: value
-				} );
-			}
-		} );
-	},
-
-	fix: function( originalEvent ) {
-		return originalEvent[ jQuery.expando ] ?
-			originalEvent :
-			new jQuery.Event( originalEvent );
-	},
-
-	special: {
-		load: {
-
-			// Prevent triggered image.load events from bubbling to window.load
-			noBubble: true
-		},
-		focus: {
-
-			// Fire native event if possible so blur/focus sequence is correct
-			trigger: function() {
-				if ( this !== safeActiveElement() && this.focus ) {
-					this.focus();
-					return false;
-				}
-			},
-			delegateType: "focusin"
-		},
-		blur: {
-			trigger: function() {
-				if ( this === safeActiveElement() && this.blur ) {
-					this.blur();
-					return false;
-				}
-			},
-			delegateType: "focusout"
-		},
-		click: {
-
-			// For checkbox, fire native event so checked state will be right
-			trigger: function() {
-				if ( this.type === "checkbox" && this.click && nodeName( this, "input" ) ) {
-					this.click();
-					return false;
-				}
-			},
-
-			// For cross-browser consistency, don't fire native .click() on links
-			_default: function( event ) {
-				return nodeName( event.target, "a" );
-			}
-		},
-
-		beforeunload: {
-			postDispatch: function( event ) {
-
-				// Support: Firefox 20+
-				// Firefox doesn't alert if the returnValue field is not set.
-				if ( event.result !== undefined && event.originalEvent ) {
-					event.originalEvent.returnValue = event.result;
-				}
-			}
-		}
-	}
-};
-
-jQuery.removeEvent = function( elem, type, handle ) {
-
-	// This "if" is needed for plain objects
-	if ( elem.removeEventListener ) {
-		elem.removeEventListener( type, handle );
-	}
-};
-
-jQuery.Event = function( src, props ) {
-
-	// Allow instantiation without the 'new' keyword
-	if ( !( this instanceof jQuery.Event ) ) {
-		return new jQuery.Event( src, props );
-	}
-
-	// Event object
-	if ( src && src.type ) {
-		this.originalEvent = src;
-		this.type = src.type;
-
-		// Events bubbling up the document may have been marked as prevented
-		// by a handler lower down the tree; reflect the correct value.
-		this.isDefaultPrevented = src.defaultPrevented ||
-				src.defaultPrevented === undefined &&
-
-				// Support: Android <=2.3 only
-				src.returnValue === false ?
-			returnTrue :
-			returnFalse;
-
-		// Create target properties
-		// Support: Safari <=6 - 7 only
-		// Target should not be a text node (#504, #13143)
-		this.target = ( src.target && src.target.nodeType === 3 ) ?
-			src.target.parentNode :
-			src.target;
-
-		this.currentTarget = src.currentTarget;
-		this.relatedTarget = src.relatedTarget;
-
-	// Event type
-	} else {
-		this.type = src;
-	}
-
-	// Put explicitly provided properties onto the event object
-	if ( props ) {
-		jQuery.extend( this, props );
-	}
-
-	// Create a timestamp if incoming event doesn't have one
-	this.timeStamp = src && src.timeStamp || Date.now();
-
-	// Mark it as fixed
-	this[ jQuery.expando ] = true;
-};
-
-// jQuery.Event is based on DOM3 Events as specified by the ECMAScript Language Binding
-// https://www.w3.org/TR/2003/WD-DOM-Level-3-Events-20030331/ecma-script-binding.html
-jQuery.Event.prototype = {
-	constructor: jQuery.Event,
-	isDefaultPrevented: returnFalse,
-	isPropagationStopped: returnFalse,
-	isImmediatePropagationStopped: returnFalse,
-	isSimulated: false,
-
-	preventDefault: function() {
-		var e = this.originalEvent;
-
-		this.isDefaultPrevented = returnTrue;
-
-		if ( e && !this.isSimulated ) {
-			e.preventDefault();
-		}
-	},
-	stopPropagation: function() {
-		var e = this.originalEvent;
-
-		this.isPropagationStopped = returnTrue;
-
-		if ( e && !this.isSimulated ) {
-			e.stopPropagation();
-		}
-	},
-	stopImmediatePropagation: function() {
-		var e = this.originalEvent;
-
-		this.isImmediatePropagationStopped = returnTrue;
-
-		if ( e && !this.isSimulated ) {
-			e.stopImmediatePropagation();
-		}
-
-		this.stopPropagation();
-	}
-};
-
-// Includes all common event props including KeyEvent and MouseEvent specific props
-jQuery.each( {
-	altKey: true,
-	bubbles: true,
-	cancelable: true,
-	changedTouches: true,
-	ctrlKey: true,
-	detail: true,
-	eventPhase: true,
-	metaKey: true,
-	pageX: true,
-	pageY: true,
-	shiftKey: true,
-	view: true,
-	"char": true,
-	charCode: true,
-	key: true,
-	keyCode: true,
-	button: true,
-	buttons: true,
-	clientX: true,
-	clientY: true,
-	offsetX: true,
-	offsetY: true,
-	pointerId: true,
-	pointerType: true,
-	screenX: true,
-	screenY: true,
-	targetTouches: true,
-	toElement: true,
-	touches: true,
-
-	which: function( event ) {
-		var button = event.button;
-
-		// Add which for key events
-		if ( event.which == null && rkeyEvent.test( event.type ) ) {
-			return event.charCode != null ? event.charCode : event.keyCode;
-		}
-
-		// Add which for click: 1 === left; 2 === middle; 3 === right
-		if ( !event.which && button !== undefined && rmouseEvent.test( event.type ) ) {
-			if ( button & 1 ) {
-				return 1;
-			}
-
-			if ( button & 2 ) {
-				return 3;
-			}
-
-			if ( button & 4 ) {
-				return 2;
-			}
-
-			return 0;
-		}
-
-		return event.which;
-	}
-}, jQuery.event.addProp );
-
-// Create mouseenter/leave events using mouseover/out and event-time checks
-// so that event delegation works in jQuery.
-// Do the same for pointerenter/pointerleave and pointerover/pointerout
-//
-// Support: Safari 7 only
-// Safari sends mouseenter too often; see:
-// https://bugs.chromium.org/p/chromium/issues/detail?id=470258
-// for the description of the bug (it existed in older Chrome versions as well).
-jQuery.each( {
-	mouseenter: "mouseover",
-	mouseleave: "mouseout",
-	pointerenter: "pointerover",
-	pointerleave: "pointerout"
-}, function( orig, fix ) {
-	jQuery.event.special[ orig ] = {
-		delegateType: fix,
-		bindType: fix,
-
-		handle: function( event ) {
-			var ret,
-				target = this,
-				related = event.relatedTarget,
-				handleObj = event.handleObj;
-
-			// For mouseenter/leave call the handler if related is outside the target.
-			// NB: No relatedTarget if the mouse left/entered the browser window
-			if ( !related || ( related !== target && !jQuery.contains( target, related ) ) ) {
-				event.type = handleObj.origType;
-				ret = handleObj.handler.apply( this, arguments );
-				event.type = fix;
-			}
-			return ret;
-		}
-	};
-} );
-
-jQuery.fn.extend( {
-
-	on: function( types, selector, data, fn ) {
-		return on( this, types, selector, data, fn );
-	},
-	one: function( types, selector, data, fn ) {
-		return on( this, types, selector, data, fn, 1 );
-	},
-	off: function( types, selector, fn ) {
-		var handleObj, type;
-		if ( types && types.preventDefault && types.handleObj ) {
-
-			// ( event )  dispatched jQuery.Event
-			handleObj = types.handleObj;
-			jQuery( types.delegateTarget ).off(
-				handleObj.namespace ?
-					handleObj.origType + "." + handleObj.namespace :
-					handleObj.origType,
-				handleObj.selector,
-				handleObj.handler
-			);
-			return this;
-		}
-		if ( typeof types === "object" ) {
-
-			// ( types-object [, selector] )
-			for ( type in types ) {
-				this.off( type, selector, types[ type ] );
-			}
-			return this;
-		}
-		if ( selector === false || typeof selector === "function" ) {
-
-			// ( types [, fn] )
-			fn = selector;
-			selector = undefined;
-		}
-		if ( fn === false ) {
-			fn = returnFalse;
-		}
-		return this.each( function() {
-			jQuery.event.remove( this, types, fn, selector );
-		} );
-	}
-} );
-
-
-var
-
-	/* eslint-disable max-len */
-
-	// See https://github.com/eslint/eslint/issues/3229
-	rxhtmlTag = /<(?!area|br|col|embed|hr|img|input|link|meta|param)(([a-z][^\/\0>\x20\t\r\n\f]*)[^>]*)\/>/gi,
-
-	/* eslint-enable */
-
-	// Support: IE <=10 - 11, Edge 12 - 13 only
-	// In IE/Edge using regex groups here causes severe slowdowns.
-	// See https://connect.microsoft.com/IE/feedback/details/1736512/
-	rnoInnerhtml = /<script|<style|<link/i,
-
-	// checked="checked" or checked
-	rchecked = /checked\s*(?:[^=]|=\s*.checked.)/i,
-	rcleanScript = /^\s*<!(?:\[CDATA\[|--)|(?:\]\]|--)>\s*$/g;
-
-// Prefer a tbody over its parent table for containing new rows
-function manipulationTarget( elem, content ) {
-	if ( nodeName( elem, "table" ) &&
-		nodeName( content.nodeType !== 11 ? content : content.firstChild, "tr" ) ) {
-
-		return jQuery( elem ).children( "tbody" )[ 0 ] || elem;
-	}
-
-	return elem;
-}
-
-// Replace/restore the type attribute of script elements for safe DOM manipulation
-function disableScript( elem ) {
-	elem.type = ( elem.getAttribute( "type" ) !== null ) + "/" + elem.type;
-	return elem;
-}
-function restoreScript( elem ) {
-	if ( ( elem.type || "" ).slice( 0, 5 ) === "true/" ) {
-		elem.type = elem.type.slice( 5 );
-	} else {
-		elem.removeAttribute( "type" );
-	}
-
-	return elem;
-}
-
-function cloneCopyEvent( src, dest ) {
-	var i, l, type, pdataOld, pdataCur, udataOld, udataCur, events;
-
-	if ( dest.nodeType !== 1 ) {
-		return;
-	}
-
-	// 1. Copy private data: events, handlers, etc.
-	if ( dataPriv.hasData( src ) ) {
-		pdataOld = dataPriv.access( src );
-		pdataCur = dataPriv.set( dest, pdataOld );
-		events = pdataOld.events;
-
-		if ( events ) {
-			delete pdataCur.handle;
-			pdataCur.events = {};
-
-			for ( type in events ) {
-				for ( i = 0, l = events[ type ].length; i < l; i++ ) {
-					jQuery.event.add( dest, type, events[ type ][ i ] );
-				}
-			}
-		}
-	}
-
-	// 2. Copy user data
-	if ( dataUser.hasData( src ) ) {
-		udataOld = dataUser.access( src );
-		udataCur = jQuery.extend( {}, udataOld );
-
-		dataUser.set( dest, udataCur );
-	}
-}
-
-// Fix IE bugs, see support tests
-function fixInput( src, dest ) {
-	var nodeName = dest.nodeName.toLowerCase();
-
-	// Fails to persist the checked state of a cloned checkbox or radio button.
-	if ( nodeName === "input" && rcheckableType.test( src.type ) ) {
-		dest.checked = src.checked;
-
-	// Fails to return the selected option to the default selected state when cloning options
-	} else if ( nodeName === "input" || nodeName === "textarea" ) {
-		dest.defaultValue = src.defaultValue;
-	}
-}
-
-function domManip( collection, args, callback, ignored ) {
-
-	// Flatten any nested arrays
-	args = concat.apply( [], args );
-
-	var fragment, first, scripts, hasScripts, node, doc,
-		i = 0,
-		l = collection.length,
-		iNoClone = l - 1,
-		value = args[ 0 ],
-		valueIsFunction = isFunction( value );
-
-	// We can't cloneNode fragments that contain checked, in WebKit
-	if ( valueIsFunction ||
-			( l > 1 && typeof value === "string" &&
-				!support.checkClone && rchecked.test( value ) ) ) {
-		return collection.each( function( index ) {
-			var self = collection.eq( index );
-			if ( valueIsFunction ) {
-				args[ 0 ] = value.call( this, index, self.html() );
-			}
-			domManip( self, args, callback, ignored );
-		} );
-	}
-
-	if ( l ) {
-		fragment = buildFragment( args, collection[ 0 ].ownerDocument, false, collection, ignored );
-		first = fragment.firstChild;
-
-		if ( fragment.childNodes.length === 1 ) {
-			fragment = first;
-		}
-
-		// Require either new content or an interest in ignored elements to invoke the callback
-		if ( first || ignored ) {
-			scripts = jQuery.map( getAll( fragment, "script" ), disableScript );
-			hasScripts = scripts.length;
-
-			// Use the original fragment for the last item
-			// instead of the first because it can end up
-			// being emptied incorrectly in certain situations (#8070).
-			for ( ; i < l; i++ ) {
-				node = fragment;
-
-				if ( i !== iNoClone ) {
-					node = jQuery.clone( node, true, true );
-
-					// Keep references to cloned scripts for later restoration
-					if ( hasScripts ) {
-
-						// Support: Android <=4.0 only, PhantomJS 1 only
-						// push.apply(_, arraylike) throws on ancient WebKit
-						jQuery.merge( scripts, getAll( node, "script" ) );
-					}
-				}
-
-				callback.call( collection[ i ], node, i );
-			}
-
-			if ( hasScripts ) {
-				doc = scripts[ scripts.length - 1 ].ownerDocument;
-
-				// Reenable scripts
-				jQuery.map( scripts, restoreScript );
-
-				// Evaluate executable scripts on first document insertion
-				for ( i = 0; i < hasScripts; i++ ) {
-					node = scripts[ i ];
-					if ( rscriptType.test( node.type || "" ) &&
-						!dataPriv.access( node, "globalEval" ) &&
-						jQuery.contains( doc, node ) ) {
-
-						if ( node.src && ( node.type || "" ).toLowerCase()  !== "module" ) {
-
-							// Optional AJAX dependency, but won't run scripts if not present
-							if ( jQuery._evalUrl ) {
-								jQuery._evalUrl( node.src );
-							}
-						} else {
-							DOMEval( node.textContent.replace( rcleanScript, "" ), doc, node );
-						}
-					}
-				}
-			}
-		}
-	}
-
-	return collection;
-}
-
-function remove( elem, selector, keepData ) {
-	var node,
-		nodes = selector ? jQuery.filter( selector, elem ) : elem,
-		i = 0;
-
-	for ( ; ( node = nodes[ i ] ) != null; i++ ) {
-		if ( !keepData && node.nodeType === 1 ) {
-			jQuery.cleanData( getAll( node ) );
-		}
-
-		if ( node.parentNode ) {
-			if ( keepData && jQuery.contains( node.ownerDocument, node ) ) {
-				setGlobalEval( getAll( node, "script" ) );
-			}
-			node.parentNode.removeChild( node );
-		}
-	}
-
-	return elem;
-}
-
-jQuery.extend( {
-	htmlPrefilter: function( html ) {
-		return html.replace( rxhtmlTag, "<$1></$2>" );
-	},
-
-	clone: function( elem, dataAndEvents, deepDataAndEvents ) {
-		var i, l, srcElements, destElements,
-			clone = elem.cloneNode( true ),
-			inPage = jQuery.contains( elem.ownerDocument, elem );
-
-		// Fix IE cloning issues
-		if ( !support.noCloneChecked && ( elem.nodeType === 1 || elem.nodeType === 11 ) &&
-				!jQuery.isXMLDoc( elem ) ) {
-
-			// We eschew Sizzle here for performance reasons: https://jsperf.com/getall-vs-sizzle/2
-			destElements = getAll( clone );
-			srcElements = getAll( elem );
-
-			for ( i = 0, l = srcElements.length; i < l; i++ ) {
-				fixInput( srcElements[ i ], destElements[ i ] );
-			}
-		}
-
-		// Copy the events from the original to the clone
-		if ( dataAndEvents ) {
-			if ( deepDataAndEvents ) {
-				srcElements = srcElements || getAll( elem );
-				destElements = destElements || getAll( clone );
-
-				for ( i = 0, l = srcElements.length; i < l; i++ ) {
-					cloneCopyEvent( srcElements[ i ], destElements[ i ] );
-				}
-			} else {
-				cloneCopyEvent( elem, clone );
-			}
-		}
-
-		// Preserve script evaluation history
-		destElements = getAll( clone, "script" );
-		if ( destElements.length > 0 ) {
-			setGlobalEval( destElements, !inPage && getAll( elem, "script" ) );
-		}
-
-		// Return the cloned set
-		return clone;
-	},
-
-	cleanData: function( elems ) {
-		var data, elem, type,
-			special = jQuery.event.special,
-			i = 0;
-
-		for ( ; ( elem = elems[ i ] ) !== undefined; i++ ) {
-			if ( acceptData( elem ) ) {
-				if ( ( data = elem[ dataPriv.expando ] ) ) {
-					if ( data.events ) {
-						for ( type in data.events ) {
-							if ( special[ type ] ) {
-								jQuery.event.remove( elem, type );
-
-							// This is a shortcut to avoid jQuery.event.remove's overhead
-							} else {
-								jQuery.removeEvent( elem, type, data.handle );
-							}
-						}
-					}
-
-					// Support: Chrome <=35 - 45+
-					// Assign undefined instead of using delete, see Data#remove
-					elem[ dataPriv.expando ] = undefined;
-				}
-				if ( elem[ dataUser.expando ] ) {
-
-					// Support: Chrome <=35 - 45+
-					// Assign undefined instead of using delete, see Data#remove
-					elem[ dataUser.expando ] = undefined;
-				}
-			}
-		}
-	}
-} );
-
-jQuery.fn.extend( {
-	detach: function( selector ) {
-		return remove( this, selector, true );
-	},
-
-	remove: function( selector ) {
-		return remove( this, selector );
-	},
-
-	text: function( value ) {
-		return access( this, function( value ) {
-			return value === undefined ?
-				jQuery.text( this ) :
-				this.empty().each( function() {
-					if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) {
-						this.textContent = value;
-					}
-				} );
-		}, null, value, arguments.length );
-	},
-
-	append: function() {
-		return domManip( this, arguments, function( elem ) {
-			if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) {
-				var target = manipulationTarget( this, elem );
-				target.appendChild( elem );
-			}
-		} );
-	},
-
-	prepend: function() {
-		return domManip( this, arguments, function( elem ) {
-			if ( this.nodeType === 1 || this.nodeType === 11 || this.nodeType === 9 ) {
-				var target = manipulationTarget( this, elem );
-				target.insertBefore( elem, target.firstChild );
-			}
-		} );
-	},
-
-	before: function() {
-		return domManip( this, arguments, function( elem ) {
-			if ( this.parentNode ) {
-				this.parentNode.insertBefore( elem, this );
-			}
-		} );
-	},
-
-	after: function() {
-		return domManip( this, arguments, function( elem ) {
-			if ( this.parentNode ) {
-				this.parentNode.insertBefore( elem, this.nextSibling );
-			}
-		} );
-	},
-
-	empty: function() {
-		var elem,
-			i = 0;
-
-		for ( ; ( elem = this[ i ] ) != null; i++ ) {
-			if ( elem.nodeType === 1 ) {
-
-				// Prevent memory leaks
-				jQuery.cleanData( getAll( elem, false ) );
-
-				// Remove any remaining nodes
-				elem.textContent = "";
-			}
-		}
-
-		return this;
-	},
-
-	clone: function( dataAndEvents, deepDataAndEvents ) {
-		dataAndEvents = dataAndEvents == null ? false : dataAndEvents;
-		deepDataAndEvents = deepDataAndEvents == null ? dataAndEvents : deepDataAndEvents;
-
-		return this.map( function() {
-			return jQuery.clone( this, dataAndEvents, deepDataAndEvents );
-		} );
-	},
-
-	html: function( value ) {
-		return access( this, function( value ) {
-			var elem = this[ 0 ] || {},
-				i = 0,
-				l = this.length;
-
-			if ( value === undefined && elem.nodeType === 1 ) {
-				return elem.innerHTML;
-			}
-
-			// See if we can take a shortcut and just use innerHTML
-			if ( typeof value === "string" && !rnoInnerhtml.test( value ) &&
-				!wrapMap[ ( rtagName.exec( value ) || [ "", "" ] )[ 1 ].toLowerCase() ] ) {
-
-				value = jQuery.htmlPrefilter( value );
-
-				try {
-					for ( ; i < l; i++ ) {
-						elem = this[ i ] || {};
-
-						// Remove element nodes and prevent memory leaks
-						if ( elem.nodeType === 1 ) {
-							jQuery.cleanData( getAll( elem, false ) );
-							elem.innerHTML = value;
-						}
-					}
-
-					elem = 0;
-
-				// If using innerHTML throws an exception, use the fallback method
-				} catch ( e ) {}
-			}
-
-			if ( elem ) {
-				this.empty().append( value );
-			}
-		}, null, value, arguments.length );
-	},
-
-	replaceWith: function() {
-		var ignored = [];
-
-		// Make the changes, replacing each non-ignored context element with the new content
-		return domManip( this, arguments, function( elem ) {
-			var parent = this.parentNode;
-
-			if ( jQuery.inArray( this, ignored ) < 0 ) {
-				jQuery.cleanData( getAll( this ) );
-				if ( parent ) {
-					parent.replaceChild( elem, this );
-				}
-			}
-
-		// Force callback invocation
-		}, ignored );
-	}
-} );
-
-jQuery.each( {
-	appendTo: "append",
-	prependTo: "prepend",
-	insertBefore: "before",
-	insertAfter: "after",
-	replaceAll: "replaceWith"
-}, function( name, original ) {
-	jQuery.fn[ name ] = function( selector ) {
-		var elems,
-			ret = [],
-			insert = jQuery( selector ),
-			last = insert.length - 1,
-			i = 0;
-
-		for ( ; i <= last; i++ ) {
-			elems = i === last ? this : this.clone( true );
-			jQuery( insert[ i ] )[ original ]( elems );
-
-			// Support: Android <=4.0 only, PhantomJS 1 only
-			// .get() because push.apply(_, arraylike) throws on ancient WebKit
-			push.apply( ret, elems.get() );
-		}
-
-		return this.pushStack( ret );
-	};
-} );
-var rnumnonpx = new RegExp( "^(" + pnum + ")(?!px)[a-z%]+$", "i" );
-
-var getStyles = function( elem ) {
-
-		// Support: IE <=11 only, Firefox <=30 (#15098, #14150)
-		// IE throws on elements created in popups
-		// FF meanwhile throws on frame elements through "defaultView.getComputedStyle"
-		var view = elem.ownerDocument.defaultView;
-
-		if ( !view || !view.opener ) {
-			view = window;
-		}
-
-		return view.getComputedStyle( elem );
-	};
-
-var rboxStyle = new RegExp( cssExpand.join( "|" ), "i" );
-
-
-
-( function() {
-
-	// Executing both pixelPosition & boxSizingReliable tests require only one layout
-	// so they're executed at the same time to save the second computation.
-	function computeStyleTests() {
-
-		// This is a singleton, we need to execute it only once
-		if ( !div ) {
-			return;
-		}
-
-		container.style.cssText = "position:absolute;left:-11111px;width:60px;" +
-			"margin-top:1px;padding:0;border:0";
-		div.style.cssText =
-			"position:relative;display:block;box-sizing:border-box;overflow:scroll;" +
-			"margin:auto;border:1px;padding:1px;" +
-			"width:60%;top:1%";
-		documentElement.appendChild( container ).appendChild( div );
-
-		var divStyle = window.getComputedStyle( div );
-		pixelPositionVal = divStyle.top !== "1%";
-
-		// Support: Android 4.0 - 4.3 only, Firefox <=3 - 44
-		reliableMarginLeftVal = roundPixelMeasures( divStyle.marginLeft ) === 12;
-
-		// Support: Android 4.0 - 4.3 only, Safari <=9.1 - 10.1, iOS <=7.0 - 9.3
-		// Some styles come back with percentage values, even though they shouldn't
-		div.style.right = "60%";
-		pixelBoxStylesVal = roundPixelMeasures( divStyle.right ) === 36;
-
-		// Support: IE 9 - 11 only
-		// Detect misreporting of content dimensions for box-sizing:border-box elements
-		boxSizingReliableVal = roundPixelMeasures( divStyle.width ) === 36;
-
-		// Support: IE 9 only
-		// Detect overflow:scroll screwiness (gh-3699)
-		div.style.position = "absolute";
-		scrollboxSizeVal = div.offsetWidth === 36 || "absolute";
-
-		documentElement.removeChild( container );
-
-		// Nullify the div so it wouldn't be stored in the memory and
-		// it will also be a sign that checks already performed
-		div = null;
-	}
-
-	function roundPixelMeasures( measure ) {
-		return Math.round( parseFloat( measure ) );
-	}
-
-	var pixelPositionVal, boxSizingReliableVal, scrollboxSizeVal, pixelBoxStylesVal,
-		reliableMarginLeftVal,
-		container = document.createElement( "div" ),
-		div = document.createElement( "div" );
-
-	// Finish early in limited (non-browser) environments
-	if ( !div.style ) {
-		return;
-	}
-
-	// Support: IE <=9 - 11 only
-	// Style of cloned element affects source element cloned (#8908)
-	div.style.backgroundClip = "content-box";
-	div.cloneNode( true ).style.backgroundClip = "";
-	support.clearCloneStyle = div.style.backgroundClip === "content-box";
-
-	jQuery.extend( support, {
-		boxSizingReliable: function() {
-			computeStyleTests();
-			return boxSizingReliableVal;
-		},
-		pixelBoxStyles: function() {
-			computeStyleTests();
-			return pixelBoxStylesVal;
-		},
-		pixelPosition: function() {
-			computeStyleTests();
-			return pixelPositionVal;
-		},
-		reliableMarginLeft: function() {
-			computeStyleTests();
-			return reliableMarginLeftVal;
-		},
-		scrollboxSize: function() {
-			computeStyleTests();
-			return scrollboxSizeVal;
-		}
-	} );
-} )();
-
-
-function curCSS( elem, name, computed ) {
-	var width, minWidth, maxWidth, ret,
-
-		// Support: Firefox 51+
-		// Retrieving style before computed somehow
-		// fixes an issue with getting wrong values
-		// on detached elements
-		style = elem.style;
-
-	computed = computed || getStyles( elem );
-
-	// getPropertyValue is needed for:
-	//   .css('filter') (IE 9 only, #12537)
-	//   .css('--customProperty) (#3144)
-	if ( computed ) {
-		ret = computed.getPropertyValue( name ) || computed[ name ];
-
-		if ( ret === "" && !jQuery.contains( elem.ownerDocument, elem ) ) {
-			ret = jQuery.style( elem, name );
-		}
-
-		// A tribute to the "awesome hack by Dean Edwards"
-		// Android Browser returns percentage for some values,
-		// but width seems to be reliably pixels.
-		// This is against the CSSOM draft spec:
-		// https://drafts.csswg.org/cssom/#resolved-values
-		if ( !support.pixelBoxStyles() && rnumnonpx.test( ret ) && rboxStyle.test( name ) ) {
-
-			// Remember the original values
-			width = style.width;
-			minWidth = style.minWidth;
-			maxWidth = style.maxWidth;
-
-			// Put in the new values to get a computed value out
-			style.minWidth = style.maxWidth = style.width = ret;
-			ret = computed.width;
-
-			// Revert the changed values
-			style.width = width;
-			style.minWidth = minWidth;
-			style.maxWidth = maxWidth;
-		}
-	}
-
-	return ret !== undefined ?
-
-		// Support: IE <=9 - 11 only
-		// IE returns zIndex value as an integer.
-		ret + "" :
-		ret;
-}
-
-
-function addGetHookIf( conditionFn, hookFn ) {
-
-	// Define the hook, we'll check on the first run if it's really needed.
-	return {
-		get: function() {
-			if ( conditionFn() ) {
-
-				// Hook not needed (or it's not possible to use it due
-				// to missing dependency), remove it.
-				delete this.get;
-				return;
-			}
-
-			// Hook needed; redefine it so that the support test is not executed again.
-			return ( this.get = hookFn ).apply( this, arguments );
-		}
-	};
-}
-
-
-var
-
-	// Swappable if display is none or starts with table
-	// except "table", "table-cell", or "table-caption"
-	// See here for display values: https://developer.mozilla.org/en-US/docs/CSS/display
-	rdisplayswap = /^(none|table(?!-c[ea]).+)/,
-	rcustomProp = /^--/,
-	cssShow = { position: "absolute", visibility: "hidden", display: "block" },
-	cssNormalTransform = {
-		letterSpacing: "0",
-		fontWeight: "400"
-	},
-
-	cssPrefixes = [ "Webkit", "Moz", "ms" ],
-	emptyStyle = document.createElement( "div" ).style;
-
-// Return a css property mapped to a potentially vendor prefixed property
-function vendorPropName( name ) {
-
-	// Shortcut for names that are not vendor prefixed
-	if ( name in emptyStyle ) {
-		return name;
-	}
-
-	// Check for vendor prefixed names
-	var capName = name[ 0 ].toUpperCase() + name.slice( 1 ),
-		i = cssPrefixes.length;
-
-	while ( i-- ) {
-		name = cssPrefixes[ i ] + capName;
-		if ( name in emptyStyle ) {
-			return name;
-		}
-	}
-}
-
-// Return a property mapped along what jQuery.cssProps suggests or to
-// a vendor prefixed property.
-function finalPropName( name ) {
-	var ret = jQuery.cssProps[ name ];
-	if ( !ret ) {
-		ret = jQuery.cssProps[ name ] = vendorPropName( name ) || name;
-	}
-	return ret;
-}
-
-function setPositiveNumber( elem, value, subtract ) {
-
-	// Any relative (+/-) values have already been
-	// normalized at this point
-	var matches = rcssNum.exec( value );
-	return matches ?
-
-		// Guard against undefined "subtract", e.g., when used as in cssHooks
-		Math.max( 0, matches[ 2 ] - ( subtract || 0 ) ) + ( matches[ 3 ] || "px" ) :
-		value;
-}
-
-function boxModelAdjustment( elem, dimension, box, isBorderBox, styles, computedVal ) {
-	var i = dimension === "width" ? 1 : 0,
-		extra = 0,
-		delta = 0;
-
-	// Adjustment may not be necessary
-	if ( box === ( isBorderBox ? "border" : "content" ) ) {
-		return 0;
-	}
-
-	for ( ; i < 4; i += 2 ) {
-
-		// Both box models exclude margin
-		if ( box === "margin" ) {
-			delta += jQuery.css( elem, box + cssExpand[ i ], true, styles );
-		}
-
-		// If we get here with a content-box, we're seeking "padding" or "border" or "margin"
-		if ( !isBorderBox ) {
-
-			// Add padding
-			delta += jQuery.css( elem, "padding" + cssExpand[ i ], true, styles );
-
-			// For "border" or "margin", add border
-			if ( box !== "padding" ) {
-				delta += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles );
-
-			// But still keep track of it otherwise
-			} else {
-				extra += jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles );
-			}
-
-		// If we get here with a border-box (content + padding + border), we're seeking "content" or
-		// "padding" or "margin"
-		} else {
-
-			// For "content", subtract padding
-			if ( box === "content" ) {
-				delta -= jQuery.css( elem, "padding" + cssExpand[ i ], true, styles );
-			}
-
-			// For "content" or "padding", subtract border
-			if ( box !== "margin" ) {
-				delta -= jQuery.css( elem, "border" + cssExpand[ i ] + "Width", true, styles );
-			}
-		}
-	}
-
-	// Account for positive content-box scroll gutter when requested by providing computedVal
-	if ( !isBorderBox && computedVal >= 0 ) {
-
-		// offsetWidth/offsetHeight is a rounded sum of content, padding, scroll gutter, and border
-		// Assuming integer scroll gutter, subtract the rest and round down
-		delta += Math.max( 0, Math.ceil(
-			elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] -
-			computedVal -
-			delta -
-			extra -
-			0.5
-		) );
-	}
-
-	return delta;
-}
-
-function getWidthOrHeight( elem, dimension, extra ) {
-
-	// Start with computed style
-	var styles = getStyles( elem ),
-		val = curCSS( elem, dimension, styles ),
-		isBorderBox = jQuery.css( elem, "boxSizing", false, styles ) === "border-box",
-		valueIsBorderBox = isBorderBox;
-
-	// Support: Firefox <=54
-	// Return a confounding non-pixel value or feign ignorance, as appropriate.
-	if ( rnumnonpx.test( val ) ) {
-		if ( !extra ) {
-			return val;
-		}
-		val = "auto";
-	}
-
-	// Check for style in case a browser which returns unreliable values
-	// for getComputedStyle silently falls back to the reliable elem.style
-	valueIsBorderBox = valueIsBorderBox &&
-		( support.boxSizingReliable() || val === elem.style[ dimension ] );
-
-	// Fall back to offsetWidth/offsetHeight when value is "auto"
-	// This happens for inline elements with no explicit setting (gh-3571)
-	// Support: Android <=4.1 - 4.3 only
-	// Also use offsetWidth/offsetHeight for misreported inline dimensions (gh-3602)
-	if ( val === "auto" ||
-		!parseFloat( val ) && jQuery.css( elem, "display", false, styles ) === "inline" ) {
-
-		val = elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ];
-
-		// offsetWidth/offsetHeight provide border-box values
-		valueIsBorderBox = true;
-	}
-
-	// Normalize "" and auto
-	val = parseFloat( val ) || 0;
-
-	// Adjust for the element's box model
-	return ( val +
-		boxModelAdjustment(
-			elem,
-			dimension,
-			extra || ( isBorderBox ? "border" : "content" ),
-			valueIsBorderBox,
-			styles,
-
-			// Provide the current computed size to request scroll gutter calculation (gh-3589)
-			val
-		)
-	) + "px";
-}
-
-jQuery.extend( {
-
-	// Add in style property hooks for overriding the default
-	// behavior of getting and setting a style property
-	cssHooks: {
-		opacity: {
-			get: function( elem, computed ) {
-				if ( computed ) {
-
-					// We should always get a number back from opacity
-					var ret = curCSS( elem, "opacity" );
-					return ret === "" ? "1" : ret;
-				}
-			}
-		}
-	},
-
-	// Don't automatically add "px" to these possibly-unitless properties
-	cssNumber: {
-		"animationIterationCount": true,
-		"columnCount": true,
-		"fillOpacity": true,
-		"flexGrow": true,
-		"flexShrink": true,
-		"fontWeight": true,
-		"lineHeight": true,
-		"opacity": true,
-		"order": true,
-		"orphans": true,
-		"widows": true,
-		"zIndex": true,
-		"zoom": true
-	},
-
-	// Add in properties whose names you wish to fix before
-	// setting or getting the value
-	cssProps: {},
-
-	// Get and set the style property on a DOM Node
-	style: function( elem, name, value, extra ) {
-
-		// Don't set styles on text and comment nodes
-		if ( !elem || elem.nodeType === 3 || elem.nodeType === 8 || !elem.style ) {
-			return;
-		}
-
-		// Make sure that we're working with the right name
-		var ret, type, hooks,
-			origName = camelCase( name ),
-			isCustomProp = rcustomProp.test( name ),
-			style = elem.style;
-
-		// Make sure that we're working with the right name. We don't
-		// want to query the value if it is a CSS custom property
-		// since they are user-defined.
-		if ( !isCustomProp ) {
-			name = finalPropName( origName );
-		}
-
-		// Gets hook for the prefixed version, then unprefixed version
-		hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ];
-
-		// Check if we're setting a value
-		if ( value !== undefined ) {
-			type = typeof value;
-
-			// Convert "+=" or "-=" to relative numbers (#7345)
-			if ( type === "string" && ( ret = rcssNum.exec( value ) ) && ret[ 1 ] ) {
-				value = adjustCSS( elem, name, ret );
-
-				// Fixes bug #9237
-				type = "number";
-			}
-
-			// Make sure that null and NaN values aren't set (#7116)
-			if ( value == null || value !== value ) {
-				return;
-			}
-
-			// If a number was passed in, add the unit (except for certain CSS properties)
-			if ( type === "number" ) {
-				value += ret && ret[ 3 ] || ( jQuery.cssNumber[ origName ] ? "" : "px" );
-			}
-
-			// background-* props affect original clone's values
-			if ( !support.clearCloneStyle && value === "" && name.indexOf( "background" ) === 0 ) {
-				style[ name ] = "inherit";
-			}
-
-			// If a hook was provided, use that value, otherwise just set the specified value
-			if ( !hooks || !( "set" in hooks ) ||
-				( value = hooks.set( elem, value, extra ) ) !== undefined ) {
-
-				if ( isCustomProp ) {
-					style.setProperty( name, value );
-				} else {
-					style[ name ] = value;
-				}
-			}
-
-		} else {
-
-			// If a hook was provided get the non-computed value from there
-			if ( hooks && "get" in hooks &&
-				( ret = hooks.get( elem, false, extra ) ) !== undefined ) {
-
-				return ret;
-			}
-
-			// Otherwise just get the value from the style object
-			return style[ name ];
-		}
-	},
-
-	css: function( elem, name, extra, styles ) {
-		var val, num, hooks,
-			origName = camelCase( name ),
-			isCustomProp = rcustomProp.test( name );
-
-		// Make sure that we're working with the right name. We don't
-		// want to modify the value if it is a CSS custom property
-		// since they are user-defined.
-		if ( !isCustomProp ) {
-			name = finalPropName( origName );
-		}
-
-		// Try prefixed name followed by the unprefixed name
-		hooks = jQuery.cssHooks[ name ] || jQuery.cssHooks[ origName ];
-
-		// If a hook was provided get the computed value from there
-		if ( hooks && "get" in hooks ) {
-			val = hooks.get( elem, true, extra );
-		}
-
-		// Otherwise, if a way to get the computed value exists, use that
-		if ( val === undefined ) {
-			val = curCSS( elem, name, styles );
-		}
-
-		// Convert "normal" to computed value
-		if ( val === "normal" && name in cssNormalTransform ) {
-			val = cssNormalTransform[ name ];
-		}
-
-		// Make numeric if forced or a qualifier was provided and val looks numeric
-		if ( extra === "" || extra ) {
-			num = parseFloat( val );
-			return extra === true || isFinite( num ) ? num || 0 : val;
-		}
-
-		return val;
-	}
-} );
-
-jQuery.each( [ "height", "width" ], function( i, dimension ) {
-	jQuery.cssHooks[ dimension ] = {
-		get: function( elem, computed, extra ) {
-			if ( computed ) {
-
-				// Certain elements can have dimension info if we invisibly show them
-				// but it must have a current display style that would benefit
-				return rdisplayswap.test( jQuery.css( elem, "display" ) ) &&
-
-					// Support: Safari 8+
-					// Table columns in Safari have non-zero offsetWidth & zero
-					// getBoundingClientRect().width unless display is changed.
-					// Support: IE <=11 only
-					// Running getBoundingClientRect on a disconnected node
-					// in IE throws an error.
-					( !elem.getClientRects().length || !elem.getBoundingClientRect().width ) ?
-						swap( elem, cssShow, function() {
-							return getWidthOrHeight( elem, dimension, extra );
-						} ) :
-						getWidthOrHeight( elem, dimension, extra );
-			}
-		},
-
-		set: function( elem, value, extra ) {
-			var matches,
-				styles = getStyles( elem ),
-				isBorderBox = jQuery.css( elem, "boxSizing", false, styles ) === "border-box",
-				subtract = extra && boxModelAdjustment(
-					elem,
-					dimension,
-					extra,
-					isBorderBox,
-					styles
-				);
-
-			// Account for unreliable border-box dimensions by comparing offset* to computed and
-			// faking a content-box to get border and padding (gh-3699)
-			if ( isBorderBox && support.scrollboxSize() === styles.position ) {
-				subtract -= Math.ceil(
-					elem[ "offset" + dimension[ 0 ].toUpperCase() + dimension.slice( 1 ) ] -
-					parseFloat( styles[ dimension ] ) -
-					boxModelAdjustment( elem, dimension, "border", false, styles ) -
-					0.5
-				);
-			}
-
-			// Convert to pixels if value adjustment is needed
-			if ( subtract && ( matches = rcssNum.exec( value ) ) &&
-				( matches[ 3 ] || "px" ) !== "px" ) {
-
-				elem.style[ dimension ] = value;
-				value = jQuery.css( elem, dimension );
-			}
-
-			return setPositiveNumber( elem, value, subtract );
-		}
-	};
-} );
-
-jQuery.cssHooks.marginLeft = addGetHookIf( support.reliableMarginLeft,
-	function( elem, computed ) {
-		if ( computed ) {
-			return ( parseFloat( curCSS( elem, "marginLeft" ) ) ||
-				elem.getBoundingClientRect().left -
-					swap( elem, { marginLeft: 0 }, function() {
-						return elem.getBoundingClientRect().left;
-					} )
-				) + "px";
-		}
-	}
-);
-
-// These hooks are used by animate to expand properties
-jQuery.each( {
-	margin: "",
-	padding: "",
-	border: "Width"
-}, function( prefix, suffix ) {
-	jQuery.cssHooks[ prefix + suffix ] = {
-		expand: function( value ) {
-			var i = 0,
-				expanded = {},
-
-				// Assumes a single number if not a string
-				parts = typeof value === "string" ? value.split( " " ) : [ value ];
-
-			for ( ; i < 4; i++ ) {
-				expanded[ prefix + cssExpand[ i ] + suffix ] =
-					parts[ i ] || parts[ i - 2 ] || parts[ 0 ];
-			}
-
-			return expanded;
-		}
-	};
-
-	if ( prefix !== "margin" ) {
-		jQuery.cssHooks[ prefix + suffix ].set = setPositiveNumber;
-	}
-} );
-
-jQuery.fn.extend( {
-	css: function( name, value ) {
-		return access( this, function( elem, name, value ) {
-			var styles, len,
-				map = {},
-				i = 0;
-
-			if ( Array.isArray( name ) ) {
-				styles = getStyles( elem );
-				len = name.length;
-
-				for ( ; i < len; i++ ) {
-					map[ name[ i ] ] = jQuery.css( elem, name[ i ], false, styles );
-				}
-
-				return map;
-			}
-
-			return value !== undefined ?
-				jQuery.style( elem, name, value ) :
-				jQuery.css( elem, name );
-		}, name, value, arguments.length > 1 );
-	}
-} );
-
-
-function Tween( elem, options, prop, end, easing ) {
-	return new Tween.prototype.init( elem, options, prop, end, easing );
-}
-jQuery.Tween = Tween;
-
-Tween.prototype = {
-	constructor: Tween,
-	init: function( elem, options, prop, end, easing, unit ) {
-		this.elem = elem;
-		this.prop = prop;
-		this.easing = easing || jQuery.easing._default;
-		this.options = options;
-		this.start = this.now = this.cur();
-		this.end = end;
-		this.unit = unit || ( jQuery.cssNumber[ prop ] ? "" : "px" );
-	},
-	cur: function() {
-		var hooks = Tween.propHooks[ this.prop ];
-
-		return hooks && hooks.get ?
-			hooks.get( this ) :
-			Tween.propHooks._default.get( this );
-	},
-	run: function( percent ) {
-		var eased,
-			hooks = Tween.propHooks[ this.prop ];
-
-		if ( this.options.duration ) {
-			this.pos = eased = jQuery.easing[ this.easing ](
-				percent, this.options.duration * percent, 0, 1, this.options.duration
-			);
-		} else {
-			this.pos = eased = percent;
-		}
-		this.now = ( this.end - this.start ) * eased + this.start;
-
-		if ( this.options.step ) {
-			this.options.step.call( this.elem, this.now, this );
-		}
-
-		if ( hooks && hooks.set ) {
-			hooks.set( this );
-		} else {
-			Tween.propHooks._default.set( this );
-		}
-		return this;
-	}
-};
-
-Tween.prototype.init.prototype = Tween.prototype;
-
-Tween.propHooks = {
-	_default: {
-		get: function( tween ) {
-			var result;
-
-			// Use a property on the element directly when it is not a DOM element,
-			// or when there is no matching style property that exists.
-			if ( tween.elem.nodeType !== 1 ||
-				tween.elem[ tween.prop ] != null && tween.elem.style[ tween.prop ] == null ) {
-				return tween.elem[ tween.prop ];
-			}
-
-			// Passing an empty string as a 3rd parameter to .css will automatically
-			// attempt a parseFloat and fallback to a string if the parse fails.
-			// Simple values such as "10px" are parsed to Float;
-			// complex values such as "rotate(1rad)" are returned as-is.
-			result = jQuery.css( tween.elem, tween.prop, "" );
-
-			// Empty strings, null, undefined and "auto" are converted to 0.
-			return !result || result === "auto" ? 0 : result;
-		},
-		set: function( tween ) {
-
-			// Use step hook for back compat.
-			// Use cssHook if its there.
-			// Use .style if available and use plain properties where available.
-			if ( jQuery.fx.step[ tween.prop ] ) {
-				jQuery.fx.step[ tween.prop ]( tween );
-			} else if ( tween.elem.nodeType === 1 &&
-				( tween.elem.style[ jQuery.cssProps[ tween.prop ] ] != null ||
-					jQuery.cssHooks[ tween.prop ] ) ) {
-				jQuery.style( tween.elem, tween.prop, tween.now + tween.unit );
-			} else {
-				tween.elem[ tween.prop ] = tween.now;
-			}
-		}
-	}
-};
-
-// Support: IE <=9 only
-// Panic based approach to setting things on disconnected nodes
-Tween.propHooks.scrollTop = Tween.propHooks.scrollLeft = {
-	set: function( tween ) {
-		if ( tween.elem.nodeType && tween.elem.parentNode ) {
-			tween.elem[ tween.prop ] = tween.now;
-		}
-	}
-};
-
-jQuery.easing = {
-	linear: function( p ) {
-		return p;
-	},
-	swing: function( p ) {
-		return 0.5 - Math.cos( p * Math.PI ) / 2;
-	},
-	_default: "swing"
-};
-
-jQuery.fx = Tween.prototype.init;
-
-// Back compat <1.8 extension point
-jQuery.fx.step = {};
-
-
-
-
-var
-	fxNow, inProgress,
-	rfxtypes = /^(?:toggle|show|hide)$/,
-	rrun = /queueHooks$/;
-
-function schedule() {
-	if ( inProgress ) {
-		if ( document.hidden === false && window.requestAnimationFrame ) {
-			window.requestAnimationFrame( schedule );
-		} else {
-			window.setTimeout( schedule, jQuery.fx.interval );
-		}
-
-		jQuery.fx.tick();
-	}
-}
-
-// Animations created synchronously will run synchronously
-function createFxNow() {
-	window.setTimeout( function() {
-		fxNow = undefined;
-	} );
-	return ( fxNow = Date.now() );
-}
-
-// Generate parameters to create a standard animation
-function genFx( type, includeWidth ) {
-	var which,
-		i = 0,
-		attrs = { height: type };
-
-	// If we include width, step value is 1 to do all cssExpand values,
-	// otherwise step value is 2 to skip over Left and Right
-	includeWidth = includeWidth ? 1 : 0;
-	for ( ; i < 4; i += 2 - includeWidth ) {
-		which = cssExpand[ i ];
-		attrs[ "margin" + which ] = attrs[ "padding" + which ] = type;
-	}
-
-	if ( includeWidth ) {
-		attrs.opacity = attrs.width = type;
-	}
-
-	return attrs;
-}
-
-function createTween( value, prop, animation ) {
-	var tween,
-		collection = ( Animation.tweeners[ prop ] || [] ).concat( Animation.tweeners[ "*" ] ),
-		index = 0,
-		length = collection.length;
-	for ( ; index < length; index++ ) {
-		if ( ( tween = collection[ index ].call( animation, prop, value ) ) ) {
-
-			// We're done with this property
-			return tween;
-		}
-	}
-}
-
-function defaultPrefilter( elem, props, opts ) {
-	var prop, value, toggle, hooks, oldfire, propTween, restoreDisplay, display,
-		isBox = "width" in props || "height" in props,
-		anim = this,
-		orig = {},
-		style = elem.style,
-		hidden = elem.nodeType && isHiddenWithinTree( elem ),
-		dataShow = dataPriv.get( elem, "fxshow" );
-
-	// Queue-skipping animations hijack the fx hooks
-	if ( !opts.queue ) {
-		hooks = jQuery._queueHooks( elem, "fx" );
-		if ( hooks.unqueued == null ) {
-			hooks.unqueued = 0;
-			oldfire = hooks.empty.fire;
-			hooks.empty.fire = function() {
-				if ( !hooks.unqueued ) {
-					oldfire();
-				}
-			};
-		}
-		hooks.unqueued++;
-
-		anim.always( function() {
-
-			// Ensure the complete handler is called before this completes
-			anim.always( function() {
-				hooks.unqueued--;
-				if ( !jQuery.queue( elem, "fx" ).length ) {
-					hooks.empty.fire();
-				}
-			} );
-		} );
-	}
-
-	// Detect show/hide animations
-	for ( prop in props ) {
-		value = props[ prop ];
-		if ( rfxtypes.test( value ) ) {
-			delete props[ prop ];
-			toggle = toggle || value === "toggle";
-			if ( value === ( hidden ? "hide" : "show" ) ) {
-
-				// Pretend to be hidden if this is a "show" and
-				// there is still data from a stopped show/hide
-				if ( value === "show" && dataShow && dataShow[ prop ] !== undefined ) {
-					hidden = true;
-
-				// Ignore all other no-op show/hide data
-				} else {
-					continue;
-				}
-			}
-			orig[ prop ] = dataShow && dataShow[ prop ] || jQuery.style( elem, prop );
-		}
-	}
-
-	// Bail out if this is a no-op like .hide().hide()
-	propTween = !jQuery.isEmptyObject( props );
-	if ( !propTween && jQuery.isEmptyObject( orig ) ) {
-		return;
-	}
-
-	// Restrict "overflow" and "display" styles during box animations
-	if ( isBox && elem.nodeType === 1 ) {
-
-		// Support: IE <=9 - 11, Edge 12 - 15
-		// Record all 3 overflow attributes because IE does not infer the shorthand
-		// from identically-valued overflowX and overflowY and Edge just mirrors
-		// the overflowX value there.
-		opts.overflow = [ style.overflow, style.overflowX, style.overflowY ];
-
-		// Identify a display type, preferring old show/hide data over the CSS cascade
-		restoreDisplay = dataShow && dataShow.display;
-		if ( restoreDisplay == null ) {
-			restoreDisplay = dataPriv.get( elem, "display" );
-		}
-		display = jQuery.css( elem, "display" );
-		if ( display === "none" ) {
-			if ( restoreDisplay ) {
-				display = restoreDisplay;
-			} else {
-
-				// Get nonempty value(s) by temporarily forcing visibility
-				showHide( [ elem ], true );
-				restoreDisplay = elem.style.display || restoreDisplay;
-				display = jQuery.css( elem, "display" );
-				showHide( [ elem ] );
-			}
-		}
-
-		// Animate inline elements as inline-block
-		if ( display === "inline" || display === "inline-block" && restoreDisplay != null ) {
-			if ( jQuery.css( elem, "float" ) === "none" ) {
-
-				// Restore the original display value at the end of pure show/hide animations
-				if ( !propTween ) {
-					anim.done( function() {
-						style.display = restoreDisplay;
-					} );
-					if ( restoreDisplay == null ) {
-						display = style.display;
-						restoreDisplay = display === "none" ? "" : display;
-					}
-				}
-				style.display = "inline-block";
-			}
-		}
-	}
-
-	if ( opts.overflow ) {
-		style.overflow = "hidden";
-		anim.always( function() {
-			style.overflow = opts.overflow[ 0 ];
-			style.overflowX = opts.overflow[ 1 ];
-			style.overflowY = opts.overflow[ 2 ];
-		} );
-	}
-
-	// Implement show/hide animations
-	propTween = false;
-	for ( prop in orig ) {
-
-		// General show/hide setup for this element animation
-		if ( !propTween ) {
-			if ( dataShow ) {
-				if ( "hidden" in dataShow ) {
-					hidden = dataShow.hidden;
-				}
-			} else {
-				dataShow = dataPriv.access( elem, "fxshow", { display: restoreDisplay } );
-			}
-
-			// Store hidden/visible for toggle so `.stop().toggle()` "reverses"
-			if ( toggle ) {
-				dataShow.hidden = !hidden;
-			}
-
-			// Show elements before animating them
-			if ( hidden ) {
-				showHide( [ elem ], true );
-			}
-
-			/* eslint-disable no-loop-func */
-
-			anim.done( function() {
-
-			/* eslint-enable no-loop-func */
-
-				// The final step of a "hide" animation is actually hiding the element
-				if ( !hidden ) {
-					showHide( [ elem ] );
-				}
-				dataPriv.remove( elem, "fxshow" );
-				for ( prop in orig ) {
-					jQuery.style( elem, prop, orig[ prop ] );
-				}
-			} );
-		}
-
-		// Per-property setup
-		propTween = createTween( hidden ? dataShow[ prop ] : 0, prop, anim );
-		if ( !( prop in dataShow ) ) {
-			dataShow[ prop ] = propTween.start;
-			if ( hidden ) {
-				propTween.end = propTween.start;
-				propTween.start = 0;
-			}
-		}
-	}
-}
-
-function propFilter( props, specialEasing ) {
-	var index, name, easing, value, hooks;
-
-	// camelCase, specialEasing and expand cssHook pass
-	for ( index in props ) {
-		name = camelCase( index );
-		easing = specialEasing[ name ];
-		value = props[ index ];
-		if ( Array.isArray( value ) ) {
-			easing = value[ 1 ];
-			value = props[ index ] = value[ 0 ];
-		}
-
-		if ( index !== name ) {
-			props[ name ] = value;
-			delete props[ index ];
-		}
-
-		hooks = jQuery.cssHooks[ name ];
-		if ( hooks && "expand" in hooks ) {
-			value = hooks.expand( value );
-			delete props[ name ];
-
-			// Not quite $.extend, this won't overwrite existing keys.
-			// Reusing 'index' because we have the correct "name"
-			for ( index in value ) {
-				if ( !( index in props ) ) {
-					props[ index ] = value[ index ];
-					specialEasing[ index ] = easing;
-				}
-			}
-		} else {
-			specialEasing[ name ] = easing;
-		}
-	}
-}
-
-function Animation( elem, properties, options ) {
-	var result,
-		stopped,
-		index = 0,
-		length = Animation.prefilters.length,
-		deferred = jQuery.Deferred().always( function() {
-
-			// Don't match elem in the :animated selector
-			delete tick.elem;
-		} ),
-		tick = function() {
-			if ( stopped ) {
-				return false;
-			}
-			var currentTime = fxNow || createFxNow(),
-				remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ),
-
-				// Support: Android 2.3 only
-				// Archaic crash bug won't allow us to use `1 - ( 0.5 || 0 )` (#12497)
-				temp = remaining / animation.duration || 0,
-				percent = 1 - temp,
-				index = 0,
-				length = animation.tweens.length;
-
-			for ( ; index < length; index++ ) {
-				animation.tweens[ index ].run( percent );
-			}
-
-			deferred.notifyWith( elem, [ animation, percent, remaining ] );
-
-			// If there's more to do, yield
-			if ( percent < 1 && length ) {
-				return remaining;
-			}
-
-			// If this was an empty animation, synthesize a final progress notification
-			if ( !length ) {
-				deferred.notifyWith( elem, [ animation, 1, 0 ] );
-			}
-
-			// Resolve the animation and report its conclusion
-			deferred.resolveWith( elem, [ animation ] );
-			return false;
-		},
-		animation = deferred.promise( {
-			elem: elem,
-			props: jQuery.extend( {}, properties ),
-			opts: jQuery.extend( true, {
-				specialEasing: {},
-				easing: jQuery.easing._default
-			}, options ),
-			originalProperties: properties,
-			originalOptions: options,
-			startTime: fxNow || createFxNow(),
-			duration: options.duration,
-			tweens: [],
-			createTween: function( prop, end ) {
-				var tween = jQuery.Tween( elem, animation.opts, prop, end,
-						animation.opts.specialEasing[ prop ] || animation.opts.easing );
-				animation.tweens.push( tween );
-				return tween;
-			},
-			stop: function( gotoEnd ) {
-				var index = 0,
-
-					// If we are going to the end, we want to run all the tweens
-					// otherwise we skip this part
-					length = gotoEnd ? animation.tweens.length : 0;
-				if ( stopped ) {
-					return this;
-				}
-				stopped = true;
-				for ( ; index < length; index++ ) {
-					animation.tweens[ index ].run( 1 );
-				}
-
-				// Resolve when we played the last frame; otherwise, reject
-				if ( gotoEnd ) {
-					deferred.notifyWith( elem, [ animation, 1, 0 ] );
-					deferred.resolveWith( elem, [ animation, gotoEnd ] );
-				} else {
-					deferred.rejectWith( elem, [ animation, gotoEnd ] );
-				}
-				return this;
-			}
-		} ),
-		props = animation.props;
-
-	propFilter( props, animation.opts.specialEasing );
-
-	for ( ; index < length; index++ ) {
-		result = Animation.prefilters[ index ].call( animation, elem, props, animation.opts );
-		if ( result ) {
-			if ( isFunction( result.stop ) ) {
-				jQuery._queueHooks( animation.elem, animation.opts.queue ).stop =
-					result.stop.bind( result );
-			}
-			return result;
-		}
-	}
-
-	jQuery.map( props, createTween, animation );
-
-	if ( isFunction( animation.opts.start ) ) {
-		animation.opts.start.call( elem, animation );
-	}
-
-	// Attach callbacks from options
-	animation
-		.progress( animation.opts.progress )
-		.done( animation.opts.done, animation.opts.complete )
-		.fail( animation.opts.fail )
-		.always( animation.opts.always );
-
-	jQuery.fx.timer(
-		jQuery.extend( tick, {
-			elem: elem,
-			anim: animation,
-			queue: animation.opts.queue
-		} )
-	);
-
-	return animation;
-}
-
-jQuery.Animation = jQuery.extend( Animation, {
-
-	tweeners: {
-		"*": [ function( prop, value ) {
-			var tween = this.createTween( prop, value );
-			adjustCSS( tween.elem, prop, rcssNum.exec( value ), tween );
-			return tween;
-		} ]
-	},
-
-	tweener: function( props, callback ) {
-		if ( isFunction( props ) ) {
-			callback = props;
-			props = [ "*" ];
-		} else {
-			props = props.match( rnothtmlwhite );
-		}
-
-		var prop,
-			index = 0,
-			length = props.length;
-
-		for ( ; index < length; index++ ) {
-			prop = props[ index ];
-			Animation.tweeners[ prop ] = Animation.tweeners[ prop ] || [];
-			Animation.tweeners[ prop ].unshift( callback );
-		}
-	},
-
-	prefilters: [ defaultPrefilter ],
-
-	prefilter: function( callback, prepend ) {
-		if ( prepend ) {
-			Animation.prefilters.unshift( callback );
-		} else {
-			Animation.prefilters.push( callback );
-		}
-	}
-} );
-
-jQuery.speed = function( speed, easing, fn ) {
-	var opt = speed && typeof speed === "object" ? jQuery.extend( {}, speed ) : {
-		complete: fn || !fn && easing ||
-			isFunction( speed ) && speed,
-		duration: speed,
-		easing: fn && easing || easing && !isFunction( easing ) && easing
-	};
-
-	// Go to the end state if fx are off
-	if ( jQuery.fx.off ) {
-		opt.duration = 0;
-
-	} else {
-		if ( typeof opt.duration !== "number" ) {
-			if ( opt.duration in jQuery.fx.speeds ) {
-				opt.duration = jQuery.fx.speeds[ opt.duration ];
-
-			} else {
-				opt.duration = jQuery.fx.speeds._default;
-			}
-		}
-	}
-
-	// Normalize opt.queue - true/undefined/null -> "fx"
-	if ( opt.queue == null || opt.queue === true ) {
-		opt.queue = "fx";
-	}
-
-	// Queueing
-	opt.old = opt.complete;
-
-	opt.complete = function() {
-		if ( isFunction( opt.old ) ) {
-			opt.old.call( this );
-		}
-
-		if ( opt.queue ) {
-			jQuery.dequeue( this, opt.queue );
-		}
-	};
-
-	return opt;
-};
-
-jQuery.fn.extend( {
-	fadeTo: function( speed, to, easing, callback ) {
-
-		// Show any hidden elements after setting opacity to 0
-		return this.filter( isHiddenWithinTree ).css( "opacity", 0 ).show()
-
-			// Animate to the value specified
-			.end().animate( { opacity: to }, speed, easing, callback );
-	},
-	animate: function( prop, speed, easing, callback ) {
-		var empty = jQuery.isEmptyObject( prop ),
-			optall = jQuery.speed( speed, easing, callback ),
-			doAnimation = function() {
-
-				// Operate on a copy of prop so per-property easing won't be lost
-				var anim = Animation( this, jQuery.extend( {}, prop ), optall );
-
-				// Empty animations, or finishing resolves immediately
-				if ( empty || dataPriv.get( this, "finish" ) ) {
-					anim.stop( true );
-				}
-			};
-			doAnimation.finish = doAnimation;
-
-		return empty || optall.queue === false ?
-			this.each( doAnimation ) :
-			this.queue( optall.queue, doAnimation );
-	},
-	stop: function( type, clearQueue, gotoEnd ) {
-		var stopQueue = function( hooks ) {
-			var stop = hooks.stop;
-			delete hooks.stop;
-			stop( gotoEnd );
-		};
-
-		if ( typeof type !== "string" ) {
-			gotoEnd = clearQueue;
-			clearQueue = type;
-			type = undefined;
-		}
-		if ( clearQueue && type !== false ) {
-			this.queue( type || "fx", [] );
-		}
-
-		return this.each( function() {
-			var dequeue = true,
-				index = type != null && type + "queueHooks",
-				timers = jQuery.timers,
-				data = dataPriv.get( this );
-
-			if ( index ) {
-				if ( data[ index ] && data[ index ].stop ) {
-					stopQueue( data[ index ] );
-				}
-			} else {
-				for ( index in data ) {
-					if ( data[ index ] && data[ index ].stop && rrun.test( index ) ) {
-						stopQueue( data[ index ] );
-					}
-				}
-			}
-
-			for ( index = timers.length; index--; ) {
-				if ( timers[ index ].elem === this &&
-					( type == null || timers[ index ].queue === type ) ) {
-
-					timers[ index ].anim.stop( gotoEnd );
-					dequeue = false;
-					timers.splice( index, 1 );
-				}
-			}
-
-			// Start the next in the queue if the last step wasn't forced.
-			// Timers currently will call their complete callbacks, which
-			// will dequeue but only if they were gotoEnd.
-			if ( dequeue || !gotoEnd ) {
-				jQuery.dequeue( this, type );
-			}
-		} );
-	},
-	finish: function( type ) {
-		if ( type !== false ) {
-			type = type || "fx";
-		}
-		return this.each( function() {
-			var index,
-				data = dataPriv.get( this ),
-				queue = data[ type + "queue" ],
-				hooks = data[ type + "queueHooks" ],
-				timers = jQuery.timers,
-				length = queue ? queue.length : 0;
-
-			// Enable finishing flag on private data
-			data.finish = true;
-
-			// Empty the queue first
-			jQuery.queue( this, type, [] );
-
-			if ( hooks && hooks.stop ) {
-				hooks.stop.call( this, true );
-			}
-
-			// Look for any active animations, and finish them
-			for ( index = timers.length; index--; ) {
-				if ( timers[ index ].elem === this && timers[ index ].queue === type ) {
-					timers[ index ].anim.stop( true );
-					timers.splice( index, 1 );
-				}
-			}
-
-			// Look for any animations in the old queue and finish them
-			for ( index = 0; index < length; index++ ) {
-				if ( queue[ index ] && queue[ index ].finish ) {
-					queue[ index ].finish.call( this );
-				}
-			}
-
-			// Turn off finishing flag
-			delete data.finish;
-		} );
-	}
-} );
-
-jQuery.each( [ "toggle", "show", "hide" ], function( i, name ) {
-	var cssFn = jQuery.fn[ name ];
-	jQuery.fn[ name ] = function( speed, easing, callback ) {
-		return speed == null || typeof speed === "boolean" ?
-			cssFn.apply( this, arguments ) :
-			this.animate( genFx( name, true ), speed, easing, callback );
-	};
-} );
-
-// Generate shortcuts for custom animations
-jQuery.each( {
-	slideDown: genFx( "show" ),
-	slideUp: genFx( "hide" ),
-	slideToggle: genFx( "toggle" ),
-	fadeIn: { opacity: "show" },
-	fadeOut: { opacity: "hide" },
-	fadeToggle: { opacity: "toggle" }
-}, function( name, props ) {
-	jQuery.fn[ name ] = function( speed, easing, callback ) {
-		return this.animate( props, speed, easing, callback );
-	};
-} );
-
-jQuery.timers = [];
-jQuery.fx.tick = function() {
-	var timer,
-		i = 0,
-		timers = jQuery.timers;
-
-	fxNow = Date.now();
-
-	for ( ; i < timers.length; i++ ) {
-		timer = timers[ i ];
-
-		// Run the timer and safely remove it when done (allowing for external removal)
-		if ( !timer() && timers[ i ] === timer ) {
-			timers.splice( i--, 1 );
-		}
-	}
-
-	if ( !timers.length ) {
-		jQuery.fx.stop();
-	}
-	fxNow = undefined;
-};
-
-jQuery.fx.timer = function( timer ) {
-	jQuery.timers.push( timer );
-	jQuery.fx.start();
-};
-
-jQuery.fx.interval = 13;
-jQuery.fx.start = function() {
-	if ( inProgress ) {
-		return;
-	}
-
-	inProgress = true;
-	schedule();
-};
-
-jQuery.fx.stop = function() {
-	inProgress = null;
-};
-
-jQuery.fx.speeds = {
-	slow: 600,
-	fast: 200,
-
-	// Default speed
-	_default: 400
-};
-
-
-// Based off of the plugin by Clint Helfers, with permission.
-// https://web.archive.org/web/20100324014747/http://blindsignals.com/index.php/2009/07/jquery-delay/
-jQuery.fn.delay = function( time, type ) {
-	time = jQuery.fx ? jQuery.fx.speeds[ time ] || time : time;
-	type = type || "fx";
-
-	return this.queue( type, function( next, hooks ) {
-		var timeout = window.setTimeout( next, time );
-		hooks.stop = function() {
-			window.clearTimeout( timeout );
-		};
-	} );
-};
-
-
-( function() {
-	var input = document.createElement( "input" ),
-		select = document.createElement( "select" ),
-		opt = select.appendChild( document.createElement( "option" ) );
-
-	input.type = "checkbox";
-
-	// Support: Android <=4.3 only
-	// Default value for a checkbox should be "on"
-	support.checkOn = input.value !== "";
-
-	// Support: IE <=11 only
-	// Must access selectedIndex to make default options select
-	support.optSelected = opt.selected;
-
-	// Support: IE <=11 only
-	// An input loses its value after becoming a radio
-	input = document.createElement( "input" );
-	input.value = "t";
-	input.type = "radio";
-	support.radioValue = input.value === "t";
-} )();
-
-
-var boolHook,
-	attrHandle = jQuery.expr.attrHandle;
-
-jQuery.fn.extend( {
-	attr: function( name, value ) {
-		return access( this, jQuery.attr, name, value, arguments.length > 1 );
-	},
-
-	removeAttr: function( name ) {
-		return this.each( function() {
-			jQuery.removeAttr( this, name );
-		} );
-	}
-} );
-
-jQuery.extend( {
-	attr: function( elem, name, value ) {
-		var ret, hooks,
-			nType = elem.nodeType;
-
-		// Don't get/set attributes on text, comment and attribute nodes
-		if ( nType === 3 || nType === 8 || nType === 2 ) {
-			return;
-		}
-
-		// Fallback to prop when attributes are not supported
-		if ( typeof elem.getAttribute === "undefined" ) {
-			return jQuery.prop( elem, name, value );
-		}
-
-		// Attribute hooks are determined by the lowercase version
-		// Grab necessary hook if one is defined
-		if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) {
-			hooks = jQuery.attrHooks[ name.toLowerCase() ] ||
-				( jQuery.expr.match.bool.test( name ) ? boolHook : undefined );
-		}
-
-		if ( value !== undefined ) {
-			if ( value === null ) {
-				jQuery.removeAttr( elem, name );
-				return;
-			}
-
-			if ( hooks && "set" in hooks &&
-				( ret = hooks.set( elem, value, name ) ) !== undefined ) {
-				return ret;
-			}
-
-			elem.setAttribute( name, value + "" );
-			return value;
-		}
-
-		if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) {
-			return ret;
-		}
-
-		ret = jQuery.find.attr( elem, name );
-
-		// Non-existent attributes return null, we normalize to undefined
-		return ret == null ? undefined : ret;
-	},
-
-	attrHooks: {
-		type: {
-			set: function( elem, value ) {
-				if ( !support.radioValue && value === "radio" &&
-					nodeName( elem, "input" ) ) {
-					var val = elem.value;
-					elem.setAttribute( "type", value );
-					if ( val ) {
-						elem.value = val;
-					}
-					return value;
-				}
-			}
-		}
-	},
-
-	removeAttr: function( elem, value ) {
-		var name,
-			i = 0,
-
-			// Attribute names can contain non-HTML whitespace characters
-			// https://html.spec.whatwg.org/multipage/syntax.html#attributes-2
-			attrNames = value && value.match( rnothtmlwhite );
-
-		if ( attrNames && elem.nodeType === 1 ) {
-			while ( ( name = attrNames[ i++ ] ) ) {
-				elem.removeAttribute( name );
-			}
-		}
-	}
-} );
-
-// Hooks for boolean attributes
-boolHook = {
-	set: function( elem, value, name ) {
-		if ( value === false ) {
-
-			// Remove boolean attributes when set to false
-			jQuery.removeAttr( elem, name );
-		} else {
-			elem.setAttribute( name, name );
-		}
-		return name;
-	}
-};
-
-jQuery.each( jQuery.expr.match.bool.source.match( /\w+/g ), function( i, name ) {
-	var getter = attrHandle[ name ] || jQuery.find.attr;
-
-	attrHandle[ name ] = function( elem, name, isXML ) {
-		var ret, handle,
-			lowercaseName = name.toLowerCase();
-
-		if ( !isXML ) {
-
-			// Avoid an infinite loop by temporarily removing this function from the getter
-			handle = attrHandle[ lowercaseName ];
-			attrHandle[ lowercaseName ] = ret;
-			ret = getter( elem, name, isXML ) != null ?
-				lowercaseName :
-				null;
-			attrHandle[ lowercaseName ] = handle;
-		}
-		return ret;
-	};
-} );
-
-
-
-
-var rfocusable = /^(?:input|select|textarea|button)$/i,
-	rclickable = /^(?:a|area)$/i;
-
-jQuery.fn.extend( {
-	prop: function( name, value ) {
-		return access( this, jQuery.prop, name, value, arguments.length > 1 );
-	},
-
-	removeProp: function( name ) {
-		return this.each( function() {
-			delete this[ jQuery.propFix[ name ] || name ];
-		} );
-	}
-} );
-
-jQuery.extend( {
-	prop: function( elem, name, value ) {
-		var ret, hooks,
-			nType = elem.nodeType;
-
-		// Don't get/set properties on text, comment and attribute nodes
-		if ( nType === 3 || nType === 8 || nType === 2 ) {
-			return;
-		}
-
-		if ( nType !== 1 || !jQuery.isXMLDoc( elem ) ) {
-
-			// Fix name and attach hooks
-			name = jQuery.propFix[ name ] || name;
-			hooks = jQuery.propHooks[ name ];
-		}
-
-		if ( value !== undefined ) {
-			if ( hooks && "set" in hooks &&
-				( ret = hooks.set( elem, value, name ) ) !== undefined ) {
-				return ret;
-			}
-
-			return ( elem[ name ] = value );
-		}
-
-		if ( hooks && "get" in hooks && ( ret = hooks.get( elem, name ) ) !== null ) {
-			return ret;
-		}
-
-		return elem[ name ];
-	},
-
-	propHooks: {
-		tabIndex: {
-			get: function( elem ) {
-
-				// Support: IE <=9 - 11 only
-				// elem.tabIndex doesn't always return the
-				// correct value when it hasn't been explicitly set
-				// https://web.archive.org/web/20141116233347/http://fluidproject.org/blog/2008/01/09/getting-setting-and-removing-tabindex-values-with-javascript/
-				// Use proper attribute retrieval(#12072)
-				var tabindex = jQuery.find.attr( elem, "tabindex" );
-
-				if ( tabindex ) {
-					return parseInt( tabindex, 10 );
-				}
-
-				if (
-					rfocusable.test( elem.nodeName ) ||
-					rclickable.test( elem.nodeName ) &&
-					elem.href
-				) {
-					return 0;
-				}
-
-				return -1;
-			}
-		}
-	},
-
-	propFix: {
-		"for": "htmlFor",
-		"class": "className"
-	}
-} );
-
-// Support: IE <=11 only
-// Accessing the selectedIndex property
-// forces the browser to respect setting selected
-// on the option
-// The getter ensures a default option is selected
-// when in an optgroup
-// eslint rule "no-unused-expressions" is disabled for this code
-// since it considers such accessions noop
-if ( !support.optSelected ) {
-	jQuery.propHooks.selected = {
-		get: function( elem ) {
-
-			/* eslint no-unused-expressions: "off" */
-
-			var parent = elem.parentNode;
-			if ( parent && parent.parentNode ) {
-				parent.parentNode.selectedIndex;
-			}
-			return null;
-		},
-		set: function( elem ) {
-
-			/* eslint no-unused-expressions: "off" */
-
-			var parent = elem.parentNode;
-			if ( parent ) {
-				parent.selectedIndex;
-
-				if ( parent.parentNode ) {
-					parent.parentNode.selectedIndex;
-				}
-			}
-		}
-	};
-}
-
-jQuery.each( [
-	"tabIndex",
-	"readOnly",
-	"maxLength",
-	"cellSpacing",
-	"cellPadding",
-	"rowSpan",
-	"colSpan",
-	"useMap",
-	"frameBorder",
-	"contentEditable"
-], function() {
-	jQuery.propFix[ this.toLowerCase() ] = this;
-} );
-
-
-
-
-	// Strip and collapse whitespace according to HTML spec
-	// https://infra.spec.whatwg.org/#strip-and-collapse-ascii-whitespace
-	function stripAndCollapse( value ) {
-		var tokens = value.match( rnothtmlwhite ) || [];
-		return tokens.join( " " );
-	}
-
-
-function getClass( elem ) {
-	return elem.getAttribute && elem.getAttribute( "class" ) || "";
-}
-
-function classesToArray( value ) {
-	if ( Array.isArray( value ) ) {
-		return value;
-	}
-	if ( typeof value === "string" ) {
-		return value.match( rnothtmlwhite ) || [];
-	}
-	return [];
-}
-
-jQuery.fn.extend( {
-	addClass: function( value ) {
-		var classes, elem, cur, curValue, clazz, j, finalValue,
-			i = 0;
-
-		if ( isFunction( value ) ) {
-			return this.each( function( j ) {
-				jQuery( this ).addClass( value.call( this, j, getClass( this ) ) );
-			} );
-		}
-
-		classes = classesToArray( value );
-
-		if ( classes.length ) {
-			while ( ( elem = this[ i++ ] ) ) {
-				curValue = getClass( elem );
-				cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " );
-
-				if ( cur ) {
-					j = 0;
-					while ( ( clazz = classes[ j++ ] ) ) {
-						if ( cur.indexOf( " " + clazz + " " ) < 0 ) {
-							cur += clazz + " ";
-						}
-					}
-
-					// Only assign if different to avoid unneeded rendering.
-					finalValue = stripAndCollapse( cur );
-					if ( curValue !== finalValue ) {
-						elem.setAttribute( "class", finalValue );
-					}
-				}
-			}
-		}
-
-		return this;
-	},
-
-	removeClass: function( value ) {
-		var classes, elem, cur, curValue, clazz, j, finalValue,
-			i = 0;
-
-		if ( isFunction( value ) ) {
-			return this.each( function( j ) {
-				jQuery( this ).removeClass( value.call( this, j, getClass( this ) ) );
-			} );
-		}
-
-		if ( !arguments.length ) {
-			return this.attr( "class", "" );
-		}
-
-		classes = classesToArray( value );
-
-		if ( classes.length ) {
-			while ( ( elem = this[ i++ ] ) ) {
-				curValue = getClass( elem );
-
-				// This expression is here for better compressibility (see addClass)
-				cur = elem.nodeType === 1 && ( " " + stripAndCollapse( curValue ) + " " );
-
-				if ( cur ) {
-					j = 0;
-					while ( ( clazz = classes[ j++ ] ) ) {
-
-						// Remove *all* instances
-						while ( cur.indexOf( " " + clazz + " " ) > -1 ) {
-							cur = cur.replace( " " + clazz + " ", " " );
-						}
-					}
-
-					// Only assign if different to avoid unneeded rendering.
-					finalValue = stripAndCollapse( cur );
-					if ( curValue !== finalValue ) {
-						elem.setAttribute( "class", finalValue );
-					}
-				}
-			}
-		}
-
-		return this;
-	},
-
-	toggleClass: function( value, stateVal ) {
-		var type = typeof value,
-			isValidValue = type === "string" || Array.isArray( value );
-
-		if ( typeof stateVal === "boolean" && isValidValue ) {
-			return stateVal ? this.addClass( value ) : this.removeClass( value );
-		}
-
-		if ( isFunction( value ) ) {
-			return this.each( function( i ) {
-				jQuery( this ).toggleClass(
-					value.call( this, i, getClass( this ), stateVal ),
-					stateVal
-				);
-			} );
-		}
-
-		return this.each( function() {
-			var className, i, self, classNames;
-
-			if ( isValidValue ) {
-
-				// Toggle individual class names
-				i = 0;
-				self = jQuery( this );
-				classNames = classesToArray( value );
-
-				while ( ( className = classNames[ i++ ] ) ) {
-
-					// Check each className given, space separated list
-					if ( self.hasClass( className ) ) {
-						self.removeClass( className );
-					} else {
-						self.addClass( className );
-					}
-				}
-
-			// Toggle whole class name
-			} else if ( value === undefined || type === "boolean" ) {
-				className = getClass( this );
-				if ( className ) {
-
-					// Store className if set
-					dataPriv.set( this, "__className__", className );
-				}
-
-				// If the element has a class name or if we're passed `false`,
-				// then remove the whole classname (if there was one, the above saved it).
-				// Otherwise bring back whatever was previously saved (if anything),
-				// falling back to the empty string if nothing was stored.
-				if ( this.setAttribute ) {
-					this.setAttribute( "class",
-						className || value === false ?
-						"" :
-						dataPriv.get( this, "__className__" ) || ""
-					);
-				}
-			}
-		} );
-	},
-
-	hasClass: function( selector ) {
-		var className, elem,
-			i = 0;
-
-		className = " " + selector + " ";
-		while ( ( elem = this[ i++ ] ) ) {
-			if ( elem.nodeType === 1 &&
-				( " " + stripAndCollapse( getClass( elem ) ) + " " ).indexOf( className ) > -1 ) {
-					return true;
-			}
-		}
-
-		return false;
-	}
-} );
-
-
-
-
-var rreturn = /\r/g;
-
-jQuery.fn.extend( {
-	val: function( value ) {
-		var hooks, ret, valueIsFunction,
-			elem = this[ 0 ];
-
-		if ( !arguments.length ) {
-			if ( elem ) {
-				hooks = jQuery.valHooks[ elem.type ] ||
-					jQuery.valHooks[ elem.nodeName.toLowerCase() ];
-
-				if ( hooks &&
-					"get" in hooks &&
-					( ret = hooks.get( elem, "value" ) ) !== undefined
-				) {
-					return ret;
-				}
-
-				ret = elem.value;
-
-				// Handle most common string cases
-				if ( typeof ret === "string" ) {
-					return ret.replace( rreturn, "" );
-				}
-
-				// Handle cases where value is null/undef or number
-				return ret == null ? "" : ret;
-			}
-
-			return;
-		}
-
-		valueIsFunction = isFunction( value );
-
-		return this.each( function( i ) {
-			var val;
-
-			if ( this.nodeType !== 1 ) {
-				return;
-			}
-
-			if ( valueIsFunction ) {
-				val = value.call( this, i, jQuery( this ).val() );
-			} else {
-				val = value;
-			}
-
-			// Treat null/undefined as ""; convert numbers to string
-			if ( val == null ) {
-				val = "";
-
-			} else if ( typeof val === "number" ) {
-				val += "";
-
-			} else if ( Array.isArray( val ) ) {
-				val = jQuery.map( val, function( value ) {
-					return value == null ? "" : value + "";
-				} );
-			}
-
-			hooks = jQuery.valHooks[ this.type ] || jQuery.valHooks[ this.nodeName.toLowerCase() ];
-
-			// If set returns undefined, fall back to normal setting
-			if ( !hooks || !( "set" in hooks ) || hooks.set( this, val, "value" ) === undefined ) {
-				this.value = val;
-			}
-		} );
-	}
-} );
-
-jQuery.extend( {
-	valHooks: {
-		option: {
-			get: function( elem ) {
-
-				var val = jQuery.find.attr( elem, "value" );
-				return val != null ?
-					val :
-
-					// Support: IE <=10 - 11 only
-					// option.text throws exceptions (#14686, #14858)
-					// Strip and collapse whitespace
-					// https://html.spec.whatwg.org/#strip-and-collapse-whitespace
-					stripAndCollapse( jQuery.text( elem ) );
-			}
-		},
-		select: {
-			get: function( elem ) {
-				var value, option, i,
-					options = elem.options,
-					index = elem.selectedIndex,
-					one = elem.type === "select-one",
-					values = one ? null : [],
-					max = one ? index + 1 : options.length;
-
-				if ( index < 0 ) {
-					i = max;
-
-				} else {
-					i = one ? index : 0;
-				}
-
-				// Loop through all the selected options
-				for ( ; i < max; i++ ) {
-					option = options[ i ];
-
-					// Support: IE <=9 only
-					// IE8-9 doesn't update selected after form reset (#2551)
-					if ( ( option.selected || i === index ) &&
-
-							// Don't return options that are disabled or in a disabled optgroup
-							!option.disabled &&
-							( !option.parentNode.disabled ||
-								!nodeName( option.parentNode, "optgroup" ) ) ) {
-
-						// Get the specific value for the option
-						value = jQuery( option ).val();
-
-						// We don't need an array for one selects
-						if ( one ) {
-							return value;
-						}
-
-						// Multi-Selects return an array
-						values.push( value );
-					}
-				}
-
-				return values;
-			},
-
-			set: function( elem, value ) {
-				var optionSet, option,
-					options = elem.options,
-					values = jQuery.makeArray( value ),
-					i = options.length;
-
-				while ( i-- ) {
-					option = options[ i ];
-
-					/* eslint-disable no-cond-assign */
-
-					if ( option.selected =
-						jQuery.inArray( jQuery.valHooks.option.get( option ), values ) > -1
-					) {
-						optionSet = true;
-					}
-
-					/* eslint-enable no-cond-assign */
-				}
-
-				// Force browsers to behave consistently when non-matching value is set
-				if ( !optionSet ) {
-					elem.selectedIndex = -1;
-				}
-				return values;
-			}
-		}
-	}
-} );
-
-// Radios and checkboxes getter/setter
-jQuery.each( [ "radio", "checkbox" ], function() {
-	jQuery.valHooks[ this ] = {
-		set: function( elem, value ) {
-			if ( Array.isArray( value ) ) {
-				return ( elem.checked = jQuery.inArray( jQuery( elem ).val(), value ) > -1 );
-			}
-		}
-	};
-	if ( !support.checkOn ) {
-		jQuery.valHooks[ this ].get = function( elem ) {
-			return elem.getAttribute( "value" ) === null ? "on" : elem.value;
-		};
-	}
-} );
-
-
-
-
-// Return jQuery for attributes-only inclusion
-
-
-support.focusin = "onfocusin" in window;
-
-
-var rfocusMorph = /^(?:focusinfocus|focusoutblur)$/,
-	stopPropagationCallback = function( e ) {
-		e.stopPropagation();
-	};
-
-jQuery.extend( jQuery.event, {
-
-	trigger: function( event, data, elem, onlyHandlers ) {
-
-		var i, cur, tmp, bubbleType, ontype, handle, special, lastElement,
-			eventPath = [ elem || document ],
-			type = hasOwn.call( event, "type" ) ? event.type : event,
-			namespaces = hasOwn.call( event, "namespace" ) ? event.namespace.split( "." ) : [];
-
-		cur = lastElement = tmp = elem = elem || document;
-
-		// Don't do events on text and comment nodes
-		if ( elem.nodeType === 3 || elem.nodeType === 8 ) {
-			return;
-		}
-
-		// focus/blur morphs to focusin/out; ensure we're not firing them right now
-		if ( rfocusMorph.test( type + jQuery.event.triggered ) ) {
-			return;
-		}
-
-		if ( type.indexOf( "." ) > -1 ) {
-
-			// Namespaced trigger; create a regexp to match event type in handle()
-			namespaces = type.split( "." );
-			type = namespaces.shift();
-			namespaces.sort();
-		}
-		ontype = type.indexOf( ":" ) < 0 && "on" + type;
-
-		// Caller can pass in a jQuery.Event object, Object, or just an event type string
-		event = event[ jQuery.expando ] ?
-			event :
-			new jQuery.Event( type, typeof event === "object" && event );
-
-		// Trigger bitmask: & 1 for native handlers; & 2 for jQuery (always true)
-		event.isTrigger = onlyHandlers ? 2 : 3;
-		event.namespace = namespaces.join( "." );
-		event.rnamespace = event.namespace ?
-			new RegExp( "(^|\\.)" + namespaces.join( "\\.(?:.*\\.|)" ) + "(\\.|$)" ) :
-			null;
-
-		// Clean up the event in case it is being reused
-		event.result = undefined;
-		if ( !event.target ) {
-			event.target = elem;
-		}
-
-		// Clone any incoming data and prepend the event, creating the handler arg list
-		data = data == null ?
-			[ event ] :
-			jQuery.makeArray( data, [ event ] );
-
-		// Allow special events to draw outside the lines
-		special = jQuery.event.special[ type ] || {};
-		if ( !onlyHandlers && special.trigger && special.trigger.apply( elem, data ) === false ) {
-			return;
-		}
-
-		// Determine event propagation path in advance, per W3C events spec (#9951)
-		// Bubble up to document, then to window; watch for a global ownerDocument var (#9724)
-		if ( !onlyHandlers && !special.noBubble && !isWindow( elem ) ) {
-
-			bubbleType = special.delegateType || type;
-			if ( !rfocusMorph.test( bubbleType + type ) ) {
-				cur = cur.parentNode;
-			}
-			for ( ; cur; cur = cur.parentNode ) {
-				eventPath.push( cur );
-				tmp = cur;
-			}
-
-			// Only add window if we got to document (e.g., not plain obj or detached DOM)
-			if ( tmp === ( elem.ownerDocument || document ) ) {
-				eventPath.push( tmp.defaultView || tmp.parentWindow || window );
-			}
-		}
-
-		// Fire handlers on the event path
-		i = 0;
-		while ( ( cur = eventPath[ i++ ] ) && !event.isPropagationStopped() ) {
-			lastElement = cur;
-			event.type = i > 1 ?
-				bubbleType :
-				special.bindType || type;
-
-			// jQuery handler
-			handle = ( dataPriv.get( cur, "events" ) || {} )[ event.type ] &&
-				dataPriv.get( cur, "handle" );
-			if ( handle ) {
-				handle.apply( cur, data );
-			}
-
-			// Native handler
-			handle = ontype && cur[ ontype ];
-			if ( handle && handle.apply && acceptData( cur ) ) {
-				event.result = handle.apply( cur, data );
-				if ( event.result === false ) {
-					event.preventDefault();
-				}
-			}
-		}
-		event.type = type;
-
-		// If nobody prevented the default action, do it now
-		if ( !onlyHandlers && !event.isDefaultPrevented() ) {
-
-			if ( ( !special._default ||
-				special._default.apply( eventPath.pop(), data ) === false ) &&
-				acceptData( elem ) ) {
-
-				// Call a native DOM method on the target with the same name as the event.
-				// Don't do default actions on window, that's where global variables be (#6170)
-				if ( ontype && isFunction( elem[ type ] ) && !isWindow( elem ) ) {
-
-					// Don't re-trigger an onFOO event when we call its FOO() method
-					tmp = elem[ ontype ];
-
-					if ( tmp ) {
-						elem[ ontype ] = null;
-					}
-
-					// Prevent re-triggering of the same event, since we already bubbled it above
-					jQuery.event.triggered = type;
-
-					if ( event.isPropagationStopped() ) {
-						lastElement.addEventListener( type, stopPropagationCallback );
-					}
-
-					elem[ type ]();
-
-					if ( event.isPropagationStopped() ) {
-						lastElement.removeEventListener( type, stopPropagationCallback );
-					}
-
-					jQuery.event.triggered = undefined;
-
-					if ( tmp ) {
-						elem[ ontype ] = tmp;
-					}
-				}
-			}
-		}
-
-		return event.result;
-	},
-
-	// Piggyback on a donor event to simulate a different one
-	// Used only for `focus(in | out)` events
-	simulate: function( type, elem, event ) {
-		var e = jQuery.extend(
-			new jQuery.Event(),
-			event,
-			{
-				type: type,
-				isSimulated: true
-			}
-		);
-
-		jQuery.event.trigger( e, null, elem );
-	}
-
-} );
-
-jQuery.fn.extend( {
-
-	trigger: function( type, data ) {
-		return this.each( function() {
-			jQuery.event.trigger( type, data, this );
-		} );
-	},
-	triggerHandler: function( type, data ) {
-		var elem = this[ 0 ];
-		if ( elem ) {
-			return jQuery.event.trigger( type, data, elem, true );
-		}
-	}
-} );
-
-
-// Support: Firefox <=44
-// Firefox doesn't have focus(in | out) events
-// Related ticket - https://bugzilla.mozilla.org/show_bug.cgi?id=687787
-//
-// Support: Chrome <=48 - 49, Safari <=9.0 - 9.1
-// focus(in | out) events fire after focus & blur events,
-// which is spec violation - http://www.w3.org/TR/DOM-Level-3-Events/#events-focusevent-event-order
-// Related ticket - https://bugs.chromium.org/p/chromium/issues/detail?id=449857
-if ( !support.focusin ) {
-	jQuery.each( { focus: "focusin", blur: "focusout" }, function( orig, fix ) {
-
-		// Attach a single capturing handler on the document while someone wants focusin/focusout
-		var handler = function( event ) {
-			jQuery.event.simulate( fix, event.target, jQuery.event.fix( event ) );
-		};
-
-		jQuery.event.special[ fix ] = {
-			setup: function() {
-				var doc = this.ownerDocument || this,
-					attaches = dataPriv.access( doc, fix );
-
-				if ( !attaches ) {
-					doc.addEventListener( orig, handler, true );
-				}
-				dataPriv.access( doc, fix, ( attaches || 0 ) + 1 );
-			},
-			teardown: function() {
-				var doc = this.ownerDocument || this,
-					attaches = dataPriv.access( doc, fix ) - 1;
-
-				if ( !attaches ) {
-					doc.removeEventListener( orig, handler, true );
-					dataPriv.remove( doc, fix );
-
-				} else {
-					dataPriv.access( doc, fix, attaches );
-				}
-			}
-		};
-	} );
-}
-var location = window.location;
-
-var nonce = Date.now();
-
-var rquery = ( /\?/ );
-
-
-
-// Cross-browser xml parsing
-jQuery.parseXML = function( data ) {
-	var xml;
-	if ( !data || typeof data !== "string" ) {
-		return null;
-	}
-
-	// Support: IE 9 - 11 only
-	// IE throws on parseFromString with invalid input.
-	try {
-		xml = ( new window.DOMParser() ).parseFromString( data, "text/xml" );
-	} catch ( e ) {
-		xml = undefined;
-	}
-
-	if ( !xml || xml.getElementsByTagName( "parsererror" ).length ) {
-		jQuery.error( "Invalid XML: " + data );
-	}
-	return xml;
-};
-
-
-var
-	rbracket = /\[\]$/,
-	rCRLF = /\r?\n/g,
-	rsubmitterTypes = /^(?:submit|button|image|reset|file)$/i,
-	rsubmittable = /^(?:input|select|textarea|keygen)/i;
-
-function buildParams( prefix, obj, traditional, add ) {
-	var name;
-
-	if ( Array.isArray( obj ) ) {
-
-		// Serialize array item.
-		jQuery.each( obj, function( i, v ) {
-			if ( traditional || rbracket.test( prefix ) ) {
-
-				// Treat each array item as a scalar.
-				add( prefix, v );
-
-			} else {
-
-				// Item is non-scalar (array or object), encode its numeric index.
-				buildParams(
-					prefix + "[" + ( typeof v === "object" && v != null ? i : "" ) + "]",
-					v,
-					traditional,
-					add
-				);
-			}
-		} );
-
-	} else if ( !traditional && toType( obj ) === "object" ) {
-
-		// Serialize object item.
-		for ( name in obj ) {
-			buildParams( prefix + "[" + name + "]", obj[ name ], traditional, add );
-		}
-
-	} else {
-
-		// Serialize scalar item.
-		add( prefix, obj );
-	}
-}
-
-// Serialize an array of form elements or a set of
-// key/values into a query string
-jQuery.param = function( a, traditional ) {
-	var prefix,
-		s = [],
-		add = function( key, valueOrFunction ) {
-
-			// If value is a function, invoke it and use its return value
-			var value = isFunction( valueOrFunction ) ?
-				valueOrFunction() :
-				valueOrFunction;
-
-			s[ s.length ] = encodeURIComponent( key ) + "=" +
-				encodeURIComponent( value == null ? "" : value );
-		};
-
-	// If an array was passed in, assume that it is an array of form elements.
-	if ( Array.isArray( a ) || ( a.jquery && !jQuery.isPlainObject( a ) ) ) {
-
-		// Serialize the form elements
-		jQuery.each( a, function() {
-			add( this.name, this.value );
-		} );
-
-	} else {
-
-		// If traditional, encode the "old" way (the way 1.3.2 or older
-		// did it), otherwise encode params recursively.
-		for ( prefix in a ) {
-			buildParams( prefix, a[ prefix ], traditional, add );
-		}
-	}
-
-	// Return the resulting serialization
-	return s.join( "&" );
-};
-
-jQuery.fn.extend( {
-	serialize: function() {
-		return jQuery.param( this.serializeArray() );
-	},
-	serializeArray: function() {
-		return this.map( function() {
-
-			// Can add propHook for "elements" to filter or add form elements
-			var elements = jQuery.prop( this, "elements" );
-			return elements ? jQuery.makeArray( elements ) : this;
-		} )
-		.filter( function() {
-			var type = this.type;
-
-			// Use .is( ":disabled" ) so that fieldset[disabled] works
-			return this.name && !jQuery( this ).is( ":disabled" ) &&
-				rsubmittable.test( this.nodeName ) && !rsubmitterTypes.test( type ) &&
-				( this.checked || !rcheckableType.test( type ) );
-		} )
-		.map( function( i, elem ) {
-			var val = jQuery( this ).val();
-
-			if ( val == null ) {
-				return null;
-			}
-
-			if ( Array.isArray( val ) ) {
-				return jQuery.map( val, function( val ) {
-					return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) };
-				} );
-			}
-
-			return { name: elem.name, value: val.replace( rCRLF, "\r\n" ) };
-		} ).get();
-	}
-} );
-
-
-var
-	r20 = /%20/g,
-	rhash = /#.*$/,
-	rantiCache = /([?&])_=[^&]*/,
-	rheaders = /^(.*?):[ \t]*([^\r\n]*)$/mg,
-
-	// #7653, #8125, #8152: local protocol detection
-	rlocalProtocol = /^(?:about|app|app-storage|.+-extension|file|res|widget):$/,
-	rnoContent = /^(?:GET|HEAD)$/,
-	rprotocol = /^\/\//,
-
-	/* Prefilters
-	 * 1) They are useful to introduce custom dataTypes (see ajax/jsonp.js for an example)
-	 * 2) These are called:
-	 *    - BEFORE asking for a transport
-	 *    - AFTER param serialization (s.data is a string if s.processData is true)
-	 * 3) key is the dataType
-	 * 4) the catchall symbol "*" can be used
-	 * 5) execution will start with transport dataType and THEN continue down to "*" if needed
-	 */
-	prefilters = {},
-
-	/* Transports bindings
-	 * 1) key is the dataType
-	 * 2) the catchall symbol "*" can be used
-	 * 3) selection will start with transport dataType and THEN go to "*" if needed
-	 */
-	transports = {},
-
-	// Avoid comment-prolog char sequence (#10098); must appease lint and evade compression
-	allTypes = "*/".concat( "*" ),
-
-	// Anchor tag for parsing the document origin
-	originAnchor = document.createElement( "a" );
-	originAnchor.href = location.href;
-
-// Base "constructor" for jQuery.ajaxPrefilter and jQuery.ajaxTransport
-function addToPrefiltersOrTransports( structure ) {
-
-	// dataTypeExpression is optional and defaults to "*"
-	return function( dataTypeExpression, func ) {
-
-		if ( typeof dataTypeExpression !== "string" ) {
-			func = dataTypeExpression;
-			dataTypeExpression = "*";
-		}
-
-		var dataType,
-			i = 0,
-			dataTypes = dataTypeExpression.toLowerCase().match( rnothtmlwhite ) || [];
-
-		if ( isFunction( func ) ) {
-
-			// For each dataType in the dataTypeExpression
-			while ( ( dataType = dataTypes[ i++ ] ) ) {
-
-				// Prepend if requested
-				if ( dataType[ 0 ] === "+" ) {
-					dataType = dataType.slice( 1 ) || "*";
-					( structure[ dataType ] = structure[ dataType ] || [] ).unshift( func );
-
-				// Otherwise append
-				} else {
-					( structure[ dataType ] = structure[ dataType ] || [] ).push( func );
-				}
-			}
-		}
-	};
-}
-
-// Base inspection function for prefilters and transports
-function inspectPrefiltersOrTransports( structure, options, originalOptions, jqXHR ) {
-
-	var inspected = {},
-		seekingTransport = ( structure === transports );
-
-	function inspect( dataType ) {
-		var selected;
-		inspected[ dataType ] = true;
-		jQuery.each( structure[ dataType ] || [], function( _, prefilterOrFactory ) {
-			var dataTypeOrTransport = prefilterOrFactory( options, originalOptions, jqXHR );
-			if ( typeof dataTypeOrTransport === "string" &&
-				!seekingTransport && !inspected[ dataTypeOrTransport ] ) {
-
-				options.dataTypes.unshift( dataTypeOrTransport );
-				inspect( dataTypeOrTransport );
-				return false;
-			} else if ( seekingTransport ) {
-				return !( selected = dataTypeOrTransport );
-			}
-		} );
-		return selected;
-	}
-
-	return inspect( options.dataTypes[ 0 ] ) || !inspected[ "*" ] && inspect( "*" );
-}
-
-// A special extend for ajax options
-// that takes "flat" options (not to be deep extended)
-// Fixes #9887
-function ajaxExtend( target, src ) {
-	var key, deep,
-		flatOptions = jQuery.ajaxSettings.flatOptions || {};
-
-	for ( key in src ) {
-		if ( src[ key ] !== undefined ) {
-			( flatOptions[ key ] ? target : ( deep || ( deep = {} ) ) )[ key ] = src[ key ];
-		}
-	}
-	if ( deep ) {
-		jQuery.extend( true, target, deep );
-	}
-
-	return target;
-}
-
-/* Handles responses to an ajax request:
- * - finds the right dataType (mediates between content-type and expected dataType)
- * - returns the corresponding response
- */
-function ajaxHandleResponses( s, jqXHR, responses ) {
-
-	var ct, type, finalDataType, firstDataType,
-		contents = s.contents,
-		dataTypes = s.dataTypes;
-
-	// Remove auto dataType and get content-type in the process
-	while ( dataTypes[ 0 ] === "*" ) {
-		dataTypes.shift();
-		if ( ct === undefined ) {
-			ct = s.mimeType || jqXHR.getResponseHeader( "Content-Type" );
-		}
-	}
-
-	// Check if we're dealing with a known content-type
-	if ( ct ) {
-		for ( type in contents ) {
-			if ( contents[ type ] && contents[ type ].test( ct ) ) {
-				dataTypes.unshift( type );
-				break;
-			}
-		}
-	}
-
-	// Check to see if we have a response for the expected dataType
-	if ( dataTypes[ 0 ] in responses ) {
-		finalDataType = dataTypes[ 0 ];
-	} else {
-
-		// Try convertible dataTypes
-		for ( type in responses ) {
-			if ( !dataTypes[ 0 ] || s.converters[ type + " " + dataTypes[ 0 ] ] ) {
-				finalDataType = type;
-				break;
-			}
-			if ( !firstDataType ) {
-				firstDataType = type;
-			}
-		}
-
-		// Or just use first one
-		finalDataType = finalDataType || firstDataType;
-	}
-
-	// If we found a dataType
-	// We add the dataType to the list if needed
-	// and return the corresponding response
-	if ( finalDataType ) {
-		if ( finalDataType !== dataTypes[ 0 ] ) {
-			dataTypes.unshift( finalDataType );
-		}
-		return responses[ finalDataType ];
-	}
-}
-
-/* Chain conversions given the request and the original response
- * Also sets the responseXXX fields on the jqXHR instance
- */
-function ajaxConvert( s, response, jqXHR, isSuccess ) {
-	var conv2, current, conv, tmp, prev,
-		converters = {},
-
-		// Work with a copy of dataTypes in case we need to modify it for conversion
-		dataTypes = s.dataTypes.slice();
-
-	// Create converters map with lowercased keys
-	if ( dataTypes[ 1 ] ) {
-		for ( conv in s.converters ) {
-			converters[ conv.toLowerCase() ] = s.converters[ conv ];
-		}
-	}
-
-	current = dataTypes.shift();
-
-	// Convert to each sequential dataType
-	while ( current ) {
-
-		if ( s.responseFields[ current ] ) {
-			jqXHR[ s.responseFields[ current ] ] = response;
-		}
-
-		// Apply the dataFilter if provided
-		if ( !prev && isSuccess && s.dataFilter ) {
-			response = s.dataFilter( response, s.dataType );
-		}
-
-		prev = current;
-		current = dataTypes.shift();
-
-		if ( current ) {
-
-			// There's only work to do if current dataType is non-auto
-			if ( current === "*" ) {
-
-				current = prev;
-
-			// Convert response if prev dataType is non-auto and differs from current
-			} else if ( prev !== "*" && prev !== current ) {
-
-				// Seek a direct converter
-				conv = converters[ prev + " " + current ] || converters[ "* " + current ];
-
-				// If none found, seek a pair
-				if ( !conv ) {
-					for ( conv2 in converters ) {
-
-						// If conv2 outputs current
-						tmp = conv2.split( " " );
-						if ( tmp[ 1 ] === current ) {
-
-							// If prev can be converted to accepted input
-							conv = converters[ prev + " " + tmp[ 0 ] ] ||
-								converters[ "* " + tmp[ 0 ] ];
-							if ( conv ) {
-
-								// Condense equivalence converters
-								if ( conv === true ) {
-									conv = converters[ conv2 ];
-
-								// Otherwise, insert the intermediate dataType
-								} else if ( converters[ conv2 ] !== true ) {
-									current = tmp[ 0 ];
-									dataTypes.unshift( tmp[ 1 ] );
-								}
-								break;
-							}
-						}
-					}
-				}
-
-				// Apply converter (if not an equivalence)
-				if ( conv !== true ) {
-
-					// Unless errors are allowed to bubble, catch and return them
-					if ( conv && s.throws ) {
-						response = conv( response );
-					} else {
-						try {
-							response = conv( response );
-						} catch ( e ) {
-							return {
-								state: "parsererror",
-								error: conv ? e : "No conversion from " + prev + " to " + current
-							};
-						}
-					}
-				}
-			}
-		}
-	}
-
-	return { state: "success", data: response };
-}
-
-jQuery.extend( {
-
-	// Counter for holding the number of active queries
-	active: 0,
-
-	// Last-Modified header cache for next request
-	lastModified: {},
-	etag: {},
-
-	ajaxSettings: {
-		url: location.href,
-		type: "GET",
-		isLocal: rlocalProtocol.test( location.protocol ),
-		global: true,
-		processData: true,
-		async: true,
-		contentType: "application/x-www-form-urlencoded; charset=UTF-8",
-
-		/*
-		timeout: 0,
-		data: null,
-		dataType: null,
-		username: null,
-		password: null,
-		cache: null,
-		throws: false,
-		traditional: false,
-		headers: {},
-		*/
-
-		accepts: {
-			"*": allTypes,
-			text: "text/plain",
-			html: "text/html",
-			xml: "application/xml, text/xml",
-			json: "application/json, text/javascript"
-		},
-
-		contents: {
-			xml: /\bxml\b/,
-			html: /\bhtml/,
-			json: /\bjson\b/
-		},
-
-		responseFields: {
-			xml: "responseXML",
-			text: "responseText",
-			json: "responseJSON"
-		},
-
-		// Data converters
-		// Keys separate source (or catchall "*") and destination types with a single space
-		converters: {
-
-			// Convert anything to text
-			"* text": String,
-
-			// Text to html (true = no transformation)
-			"text html": true,
-
-			// Evaluate text as a json expression
-			"text json": JSON.parse,
-
-			// Parse text as xml
-			"text xml": jQuery.parseXML
-		},
-
-		// For options that shouldn't be deep extended:
-		// you can add your own custom options here if
-		// and when you create one that shouldn't be
-		// deep extended (see ajaxExtend)
-		flatOptions: {
-			url: true,
-			context: true
-		}
-	},
-
-	// Creates a full fledged settings object into target
-	// with both ajaxSettings and settings fields.
-	// If target is omitted, writes into ajaxSettings.
-	ajaxSetup: function( target, settings ) {
-		return settings ?
-
-			// Building a settings object
-			ajaxExtend( ajaxExtend( target, jQuery.ajaxSettings ), settings ) :
-
-			// Extending ajaxSettings
-			ajaxExtend( jQuery.ajaxSettings, target );
-	},
-
-	ajaxPrefilter: addToPrefiltersOrTransports( prefilters ),
-	ajaxTransport: addToPrefiltersOrTransports( transports ),
-
-	// Main method
-	ajax: function( url, options ) {
-
-		// If url is an object, simulate pre-1.5 signature
-		if ( typeof url === "object" ) {
-			options = url;
-			url = undefined;
-		}
-
-		// Force options to be an object
-		options = options || {};
-
-		var transport,
-
-			// URL without anti-cache param
-			cacheURL,
-
-			// Response headers
-			responseHeadersString,
-			responseHeaders,
-
-			// timeout handle
-			timeoutTimer,
-
-			// Url cleanup var
-			urlAnchor,
-
-			// Request state (becomes false upon send and true upon completion)
-			completed,
-
-			// To know if global events are to be dispatched
-			fireGlobals,
-
-			// Loop variable
-			i,
-
-			// uncached part of the url
-			uncached,
-
-			// Create the final options object
-			s = jQuery.ajaxSetup( {}, options ),
-
-			// Callbacks context
-			callbackContext = s.context || s,
-
-			// Context for global events is callbackContext if it is a DOM node or jQuery collection
-			globalEventContext = s.context &&
-				( callbackContext.nodeType || callbackContext.jquery ) ?
-					jQuery( callbackContext ) :
-					jQuery.event,
-
-			// Deferreds
-			deferred = jQuery.Deferred(),
-			completeDeferred = jQuery.Callbacks( "once memory" ),
-
-			// Status-dependent callbacks
-			statusCode = s.statusCode || {},
-
-			// Headers (they are sent all at once)
-			requestHeaders = {},
-			requestHeadersNames = {},
-
-			// Default abort message
-			strAbort = "canceled",
-
-			// Fake xhr
-			jqXHR = {
-				readyState: 0,
-
-				// Builds headers hashtable if needed
-				getResponseHeader: function( key ) {
-					var match;
-					if ( completed ) {
-						if ( !responseHeaders ) {
-							responseHeaders = {};
-							while ( ( match = rheaders.exec( responseHeadersString ) ) ) {
-								responseHeaders[ match[ 1 ].toLowerCase() ] = match[ 2 ];
-							}
-						}
-						match = responseHeaders[ key.toLowerCase() ];
-					}
-					return match == null ? null : match;
-				},
-
-				// Raw string
-				getAllResponseHeaders: function() {
-					return completed ? responseHeadersString : null;
-				},
-
-				// Caches the header
-				setRequestHeader: function( name, value ) {
-					if ( completed == null ) {
-						name = requestHeadersNames[ name.toLowerCase() ] =
-							requestHeadersNames[ name.toLowerCase() ] || name;
-						requestHeaders[ name ] = value;
-					}
-					return this;
-				},
-
-				// Overrides response content-type header
-				overrideMimeType: function( type ) {
-					if ( completed == null ) {
-						s.mimeType = type;
-					}
-					return this;
-				},
-
-				// Status-dependent callbacks
-				statusCode: function( map ) {
-					var code;
-					if ( map ) {
-						if ( completed ) {
-
-							// Execute the appropriate callbacks
-							jqXHR.always( map[ jqXHR.status ] );
-						} else {
-
-							// Lazy-add the new callbacks in a way that preserves old ones
-							for ( code in map ) {
-								statusCode[ code ] = [ statusCode[ code ], map[ code ] ];
-							}
-						}
-					}
-					return this;
-				},
-
-				// Cancel the request
-				abort: function( statusText ) {
-					var finalText = statusText || strAbort;
-					if ( transport ) {
-						transport.abort( finalText );
-					}
-					done( 0, finalText );
-					return this;
-				}
-			};
-
-		// Attach deferreds
-		deferred.promise( jqXHR );
-
-		// Add protocol if not provided (prefilters might expect it)
-		// Handle falsy url in the settings object (#10093: consistency with old signature)
-		// We also use the url parameter if available
-		s.url = ( ( url || s.url || location.href ) + "" )
-			.replace( rprotocol, location.protocol + "//" );
-
-		// Alias method option to type as per ticket #12004
-		s.type = options.method || options.type || s.method || s.type;
-
-		// Extract dataTypes list
-		s.dataTypes = ( s.dataType || "*" ).toLowerCase().match( rnothtmlwhite ) || [ "" ];
-
-		// A cross-domain request is in order when the origin doesn't match the current origin.
-		if ( s.crossDomain == null ) {
-			urlAnchor = document.createElement( "a" );
-
-			// Support: IE <=8 - 11, Edge 12 - 15
-			// IE throws exception on accessing the href property if url is malformed,
-			// e.g. http://example.com:80x/
-			try {
-				urlAnchor.href = s.url;
-
-				// Support: IE <=8 - 11 only
-				// Anchor's host property isn't correctly set when s.url is relative
-				urlAnchor.href = urlAnchor.href;
-				s.crossDomain = originAnchor.protocol + "//" + originAnchor.host !==
-					urlAnchor.protocol + "//" + urlAnchor.host;
-			} catch ( e ) {
-
-				// If there is an error parsing the URL, assume it is crossDomain,
-				// it can be rejected by the transport if it is invalid
-				s.crossDomain = true;
-			}
-		}
-
-		// Convert data if not already a string
-		if ( s.data && s.processData && typeof s.data !== "string" ) {
-			s.data = jQuery.param( s.data, s.traditional );
-		}
-
-		// Apply prefilters
-		inspectPrefiltersOrTransports( prefilters, s, options, jqXHR );
-
-		// If request was aborted inside a prefilter, stop there
-		if ( completed ) {
-			return jqXHR;
-		}
-
-		// We can fire global events as of now if asked to
-		// Don't fire events if jQuery.event is undefined in an AMD-usage scenario (#15118)
-		fireGlobals = jQuery.event && s.global;
-
-		// Watch for a new set of requests
-		if ( fireGlobals && jQuery.active++ === 0 ) {
-			jQuery.event.trigger( "ajaxStart" );
-		}
-
-		// Uppercase the type
-		s.type = s.type.toUpperCase();
-
-		// Determine if request has content
-		s.hasContent = !rnoContent.test( s.type );
-
-		// Save the URL in case we're toying with the If-Modified-Since
-		// and/or If-None-Match header later on
-		// Remove hash to simplify url manipulation
-		cacheURL = s.url.replace( rhash, "" );
-
-		// More options handling for requests with no content
-		if ( !s.hasContent ) {
-
-			// Remember the hash so we can put it back
-			uncached = s.url.slice( cacheURL.length );
-
-			// If data is available and should be processed, append data to url
-			if ( s.data && ( s.processData || typeof s.data === "string" ) ) {
-				cacheURL += ( rquery.test( cacheURL ) ? "&" : "?" ) + s.data;
-
-				// #9682: remove data so that it's not used in an eventual retry
-				delete s.data;
-			}
-
-			// Add or update anti-cache param if needed
-			if ( s.cache === false ) {
-				cacheURL = cacheURL.replace( rantiCache, "$1" );
-				uncached = ( rquery.test( cacheURL ) ? "&" : "?" ) + "_=" + ( nonce++ ) + uncached;
-			}
-
-			// Put hash and anti-cache on the URL that will be requested (gh-1732)
-			s.url = cacheURL + uncached;
-
-		// Change '%20' to '+' if this is encoded form body content (gh-2658)
-		} else if ( s.data && s.processData &&
-			( s.contentType || "" ).indexOf( "application/x-www-form-urlencoded" ) === 0 ) {
-			s.data = s.data.replace( r20, "+" );
-		}
-
-		// Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode.
-		if ( s.ifModified ) {
-			if ( jQuery.lastModified[ cacheURL ] ) {
-				jqXHR.setRequestHeader( "If-Modified-Since", jQuery.lastModified[ cacheURL ] );
-			}
-			if ( jQuery.etag[ cacheURL ] ) {
-				jqXHR.setRequestHeader( "If-None-Match", jQuery.etag[ cacheURL ] );
-			}
-		}
-
-		// Set the correct header, if data is being sent
-		if ( s.data && s.hasContent && s.contentType !== false || options.contentType ) {
-			jqXHR.setRequestHeader( "Content-Type", s.contentType );
-		}
-
-		// Set the Accepts header for the server, depending on the dataType
-		jqXHR.setRequestHeader(
-			"Accept",
-			s.dataTypes[ 0 ] && s.accepts[ s.dataTypes[ 0 ] ] ?
-				s.accepts[ s.dataTypes[ 0 ] ] +
-					( s.dataTypes[ 0 ] !== "*" ? ", " + allTypes + "; q=0.01" : "" ) :
-				s.accepts[ "*" ]
-		);
-
-		// Check for headers option
-		for ( i in s.headers ) {
-			jqXHR.setRequestHeader( i, s.headers[ i ] );
-		}
-
-		// Allow custom headers/mimetypes and early abort
-		if ( s.beforeSend &&
-			( s.beforeSend.call( callbackContext, jqXHR, s ) === false || completed ) ) {
-
-			// Abort if not done already and return
-			return jqXHR.abort();
-		}
-
-		// Aborting is no longer a cancellation
-		strAbort = "abort";
-
-		// Install callbacks on deferreds
-		completeDeferred.add( s.complete );
-		jqXHR.done( s.success );
-		jqXHR.fail( s.error );
-
-		// Get transport
-		transport = inspectPrefiltersOrTransports( transports, s, options, jqXHR );
-
-		// If no transport, we auto-abort
-		if ( !transport ) {
-			done( -1, "No Transport" );
-		} else {
-			jqXHR.readyState = 1;
-
-			// Send global event
-			if ( fireGlobals ) {
-				globalEventContext.trigger( "ajaxSend", [ jqXHR, s ] );
-			}
-
-			// If request was aborted inside ajaxSend, stop there
-			if ( completed ) {
-				return jqXHR;
-			}
-
-			// Timeout
-			if ( s.async && s.timeout > 0 ) {
-				timeoutTimer = window.setTimeout( function() {
-					jqXHR.abort( "timeout" );
-				}, s.timeout );
-			}
-
-			try {
-				completed = false;
-				transport.send( requestHeaders, done );
-			} catch ( e ) {
-
-				// Rethrow post-completion exceptions
-				if ( completed ) {
-					throw e;
-				}
-
-				// Propagate others as results
-				done( -1, e );
-			}
-		}
-
-		// Callback for when everything is done
-		function done( status, nativeStatusText, responses, headers ) {
-			var isSuccess, success, error, response, modified,
-				statusText = nativeStatusText;
-
-			// Ignore repeat invocations
-			if ( completed ) {
-				return;
-			}
-
-			completed = true;
-
-			// Clear timeout if it exists
-			if ( timeoutTimer ) {
-				window.clearTimeout( timeoutTimer );
-			}
-
-			// Dereference transport for early garbage collection
-			// (no matter how long the jqXHR object will be used)
-			transport = undefined;
-
-			// Cache response headers
-			responseHeadersString = headers || "";
-
-			// Set readyState
-			jqXHR.readyState = status > 0 ? 4 : 0;
-
-			// Determine if successful
-			isSuccess = status >= 200 && status < 300 || status === 304;
-
-			// Get response data
-			if ( responses ) {
-				response = ajaxHandleResponses( s, jqXHR, responses );
-			}
-
-			// Convert no matter what (that way responseXXX fields are always set)
-			response = ajaxConvert( s, response, jqXHR, isSuccess );
-
-			// If successful, handle type chaining
-			if ( isSuccess ) {
-
-				// Set the If-Modified-Since and/or If-None-Match header, if in ifModified mode.
-				if ( s.ifModified ) {
-					modified = jqXHR.getResponseHeader( "Last-Modified" );
-					if ( modified ) {
-						jQuery.lastModified[ cacheURL ] = modified;
-					}
-					modified = jqXHR.getResponseHeader( "etag" );
-					if ( modified ) {
-						jQuery.etag[ cacheURL ] = modified;
-					}
-				}
-
-				// if no content
-				if ( status === 204 || s.type === "HEAD" ) {
-					statusText = "nocontent";
-
-				// if not modified
-				} else if ( status === 304 ) {
-					statusText = "notmodified";
-
-				// If we have data, let's convert it
-				} else {
-					statusText = response.state;
-					success = response.data;
-					error = response.error;
-					isSuccess = !error;
-				}
-			} else {
-
-				// Extract error from statusText and normalize for non-aborts
-				error = statusText;
-				if ( status || !statusText ) {
-					statusText = "error";
-					if ( status < 0 ) {
-						status = 0;
-					}
-				}
-			}
-
-			// Set data for the fake xhr object
-			jqXHR.status = status;
-			jqXHR.statusText = ( nativeStatusText || statusText ) + "";
-
-			// Success/Error
-			if ( isSuccess ) {
-				deferred.resolveWith( callbackContext, [ success, statusText, jqXHR ] );
-			} else {
-				deferred.rejectWith( callbackContext, [ jqXHR, statusText, error ] );
-			}
-
-			// Status-dependent callbacks
-			jqXHR.statusCode( statusCode );
-			statusCode = undefined;
-
-			if ( fireGlobals ) {
-				globalEventContext.trigger( isSuccess ? "ajaxSuccess" : "ajaxError",
-					[ jqXHR, s, isSuccess ? success : error ] );
-			}
-
-			// Complete
-			completeDeferred.fireWith( callbackContext, [ jqXHR, statusText ] );
-
-			if ( fireGlobals ) {
-				globalEventContext.trigger( "ajaxComplete", [ jqXHR, s ] );
-
-				// Handle the global AJAX counter
-				if ( !( --jQuery.active ) ) {
-					jQuery.event.trigger( "ajaxStop" );
-				}
-			}
-		}
-
-		return jqXHR;
-	},
-
-	getJSON: function( url, data, callback ) {
-		return jQuery.get( url, data, callback, "json" );
-	},
-
-	getScript: function( url, callback ) {
-		return jQuery.get( url, undefined, callback, "script" );
-	}
-} );
-
-jQuery.each( [ "get", "post" ], function( i, method ) {
-	jQuery[ method ] = function( url, data, callback, type ) {
-
-		// Shift arguments if data argument was omitted
-		if ( isFunction( data ) ) {
-			type = type || callback;
-			callback = data;
-			data = undefined;
-		}
-
-		// The url can be an options object (which then must have .url)
-		return jQuery.ajax( jQuery.extend( {
-			url: url,
-			type: method,
-			dataType: type,
-			data: data,
-			success: callback
-		}, jQuery.isPlainObject( url ) && url ) );
-	};
-} );
-
-
-jQuery._evalUrl = function( url ) {
-	return jQuery.ajax( {
-		url: url,
-
-		// Make this explicit, since user can override this through ajaxSetup (#11264)
-		type: "GET",
-		dataType: "script",
-		cache: true,
-		async: false,
-		global: false,
-		"throws": true
-	} );
-};
-
-
-jQuery.fn.extend( {
-	wrapAll: function( html ) {
-		var wrap;
-
-		if ( this[ 0 ] ) {
-			if ( isFunction( html ) ) {
-				html = html.call( this[ 0 ] );
-			}
-
-			// The elements to wrap the target around
-			wrap = jQuery( html, this[ 0 ].ownerDocument ).eq( 0 ).clone( true );
-
-			if ( this[ 0 ].parentNode ) {
-				wrap.insertBefore( this[ 0 ] );
-			}
-
-			wrap.map( function() {
-				var elem = this;
-
-				while ( elem.firstElementChild ) {
-					elem = elem.firstElementChild;
-				}
-
-				return elem;
-			} ).append( this );
-		}
-
-		return this;
-	},
-
-	wrapInner: function( html ) {
-		if ( isFunction( html ) ) {
-			return this.each( function( i ) {
-				jQuery( this ).wrapInner( html.call( this, i ) );
-			} );
-		}
-
-		return this.each( function() {
-			var self = jQuery( this ),
-				contents = self.contents();
-
-			if ( contents.length ) {
-				contents.wrapAll( html );
-
-			} else {
-				self.append( html );
-			}
-		} );
-	},
-
-	wrap: function( html ) {
-		var htmlIsFunction = isFunction( html );
-
-		return this.each( function( i ) {
-			jQuery( this ).wrapAll( htmlIsFunction ? html.call( this, i ) : html );
-		} );
-	},
-
-	unwrap: function( selector ) {
-		this.parent( selector ).not( "body" ).each( function() {
-			jQuery( this ).replaceWith( this.childNodes );
-		} );
-		return this;
-	}
-} );
-
-
-jQuery.expr.pseudos.hidden = function( elem ) {
-	return !jQuery.expr.pseudos.visible( elem );
-};
-jQuery.expr.pseudos.visible = function( elem ) {
-	return !!( elem.offsetWidth || elem.offsetHeight || elem.getClientRects().length );
-};
-
-
-
-
-jQuery.ajaxSettings.xhr = function() {
-	try {
-		return new window.XMLHttpRequest();
-	} catch ( e ) {}
-};
-
-var xhrSuccessStatus = {
-
-		// File protocol always yields status code 0, assume 200
-		0: 200,
-
-		// Support: IE <=9 only
-		// #1450: sometimes IE returns 1223 when it should be 204
-		1223: 204
-	},
-	xhrSupported = jQuery.ajaxSettings.xhr();
-
-support.cors = !!xhrSupported && ( "withCredentials" in xhrSupported );
-support.ajax = xhrSupported = !!xhrSupported;
-
-jQuery.ajaxTransport( function( options ) {
-	var callback, errorCallback;
-
-	// Cross domain only allowed if supported through XMLHttpRequest
-	if ( support.cors || xhrSupported && !options.crossDomain ) {
-		return {
-			send: function( headers, complete ) {
-				var i,
-					xhr = options.xhr();
-
-				xhr.open(
-					options.type,
-					options.url,
-					options.async,
-					options.username,
-					options.password
-				);
-
-				// Apply custom fields if provided
-				if ( options.xhrFields ) {
-					for ( i in options.xhrFields ) {
-						xhr[ i ] = options.xhrFields[ i ];
-					}
-				}
-
-				// Override mime type if needed
-				if ( options.mimeType && xhr.overrideMimeType ) {
-					xhr.overrideMimeType( options.mimeType );
-				}
-
-				// X-Requested-With header
-				// For cross-domain requests, seeing as conditions for a preflight are
-				// akin to a jigsaw puzzle, we simply never set it to be sure.
-				// (it can always be set on a per-request basis or even using ajaxSetup)
-				// For same-domain requests, won't change header if already provided.
-				if ( !options.crossDomain && !headers[ "X-Requested-With" ] ) {
-					headers[ "X-Requested-With" ] = "XMLHttpRequest";
-				}
-
-				// Set headers
-				for ( i in headers ) {
-					xhr.setRequestHeader( i, headers[ i ] );
-				}
-
-				// Callback
-				callback = function( type ) {
-					return function() {
-						if ( callback ) {
-							callback = errorCallback = xhr.onload =
-								xhr.onerror = xhr.onabort = xhr.ontimeout =
-									xhr.onreadystatechange = null;
-
-							if ( type === "abort" ) {
-								xhr.abort();
-							} else if ( type === "error" ) {
-
-								// Support: IE <=9 only
-								// On a manual native abort, IE9 throws
-								// errors on any property access that is not readyState
-								if ( typeof xhr.status !== "number" ) {
-									complete( 0, "error" );
-								} else {
-									complete(
-
-										// File: protocol always yields status 0; see #8605, #14207
-										xhr.status,
-										xhr.statusText
-									);
-								}
-							} else {
-								complete(
-									xhrSuccessStatus[ xhr.status ] || xhr.status,
-									xhr.statusText,
-
-									// Support: IE <=9 only
-									// IE9 has no XHR2 but throws on binary (trac-11426)
-									// For XHR2 non-text, let the caller handle it (gh-2498)
-									( xhr.responseType || "text" ) !== "text"  ||
-									typeof xhr.responseText !== "string" ?
-										{ binary: xhr.response } :
-										{ text: xhr.responseText },
-									xhr.getAllResponseHeaders()
-								);
-							}
-						}
-					};
-				};
-
-				// Listen to events
-				xhr.onload = callback();
-				errorCallback = xhr.onerror = xhr.ontimeout = callback( "error" );
-
-				// Support: IE 9 only
-				// Use onreadystatechange to replace onabort
-				// to handle uncaught aborts
-				if ( xhr.onabort !== undefined ) {
-					xhr.onabort = errorCallback;
-				} else {
-					xhr.onreadystatechange = function() {
-
-						// Check readyState before timeout as it changes
-						if ( xhr.readyState === 4 ) {
-
-							// Allow onerror to be called first,
-							// but that will not handle a native abort
-							// Also, save errorCallback to a variable
-							// as xhr.onerror cannot be accessed
-							window.setTimeout( function() {
-								if ( callback ) {
-									errorCallback();
-								}
-							} );
-						}
-					};
-				}
-
-				// Create the abort callback
-				callback = callback( "abort" );
-
-				try {
-
-					// Do send the request (this may raise an exception)
-					xhr.send( options.hasContent && options.data || null );
-				} catch ( e ) {
-
-					// #14683: Only rethrow if this hasn't been notified as an error yet
-					if ( callback ) {
-						throw e;
-					}
-				}
-			},
-
-			abort: function() {
-				if ( callback ) {
-					callback();
-				}
-			}
-		};
-	}
-} );
-
-
-
-
-// Prevent auto-execution of scripts when no explicit dataType was provided (See gh-2432)
-jQuery.ajaxPrefilter( function( s ) {
-	if ( s.crossDomain ) {
-		s.contents.script = false;
-	}
-} );
-
-// Install script dataType
-jQuery.ajaxSetup( {
-	accepts: {
-		script: "text/javascript, application/javascript, " +
-			"application/ecmascript, application/x-ecmascript"
-	},
-	contents: {
-		script: /\b(?:java|ecma)script\b/
-	},
-	converters: {
-		"text script": function( text ) {
-			jQuery.globalEval( text );
-			return text;
-		}
-	}
-} );
-
-// Handle cache's special case and crossDomain
-jQuery.ajaxPrefilter( "script", function( s ) {
-	if ( s.cache === undefined ) {
-		s.cache = false;
-	}
-	if ( s.crossDomain ) {
-		s.type = "GET";
-	}
-} );
-
-// Bind script tag hack transport
-jQuery.ajaxTransport( "script", function( s ) {
-
-	// This transport only deals with cross domain requests
-	if ( s.crossDomain ) {
-		var script, callback;
-		return {
-			send: function( _, complete ) {
-				script = jQuery( "<script>" ).prop( {
-					charset: s.scriptCharset,
-					src: s.url
-				} ).on(
-					"load error",
-					callback = function( evt ) {
-						script.remove();
-						callback = null;
-						if ( evt ) {
-							complete( evt.type === "error" ? 404 : 200, evt.type );
-						}
-					}
-				);
-
-				// Use native DOM manipulation to avoid our domManip AJAX trickery
-				document.head.appendChild( script[ 0 ] );
-			},
-			abort: function() {
-				if ( callback ) {
-					callback();
-				}
-			}
-		};
-	}
-} );
-
-
-
-
-var oldCallbacks = [],
-	rjsonp = /(=)\?(?=&|$)|\?\?/;
-
-// Default jsonp settings
-jQuery.ajaxSetup( {
-	jsonp: "callback",
-	jsonpCallback: function() {
-		var callback = oldCallbacks.pop() || ( jQuery.expando + "_" + ( nonce++ ) );
-		this[ callback ] = true;
-		return callback;
-	}
-} );
-
-// Detect, normalize options and install callbacks for jsonp requests
-jQuery.ajaxPrefilter( "json jsonp", function( s, originalSettings, jqXHR ) {
-
-	var callbackName, overwritten, responseContainer,
-		jsonProp = s.jsonp !== false && ( rjsonp.test( s.url ) ?
-			"url" :
-			typeof s.data === "string" &&
-				( s.contentType || "" )
-					.indexOf( "application/x-www-form-urlencoded" ) === 0 &&
-				rjsonp.test( s.data ) && "data"
-		);
-
-	// Handle iff the expected data type is "jsonp" or we have a parameter to set
-	if ( jsonProp || s.dataTypes[ 0 ] === "jsonp" ) {
-
-		// Get callback name, remembering preexisting value associated with it
-		callbackName = s.jsonpCallback = isFunction( s.jsonpCallback ) ?
-			s.jsonpCallback() :
-			s.jsonpCallback;
-
-		// Insert callback into url or form data
-		if ( jsonProp ) {
-			s[ jsonProp ] = s[ jsonProp ].replace( rjsonp, "$1" + callbackName );
-		} else if ( s.jsonp !== false ) {
-			s.url += ( rquery.test( s.url ) ? "&" : "?" ) + s.jsonp + "=" + callbackName;
-		}
-
-		// Use data converter to retrieve json after script execution
-		s.converters[ "script json" ] = function() {
-			if ( !responseContainer ) {
-				jQuery.error( callbackName + " was not called" );
-			}
-			return responseContainer[ 0 ];
-		};
-
-		// Force json dataType
-		s.dataTypes[ 0 ] = "json";
-
-		// Install callback
-		overwritten = window[ callbackName ];
-		window[ callbackName ] = function() {
-			responseContainer = arguments;
-		};
-
-		// Clean-up function (fires after converters)
-		jqXHR.always( function() {
-
-			// If previous value didn't exist - remove it
-			if ( overwritten === undefined ) {
-				jQuery( window ).removeProp( callbackName );
-
-			// Otherwise restore preexisting value
-			} else {
-				window[ callbackName ] = overwritten;
-			}
-
-			// Save back as free
-			if ( s[ callbackName ] ) {
-
-				// Make sure that re-using the options doesn't screw things around
-				s.jsonpCallback = originalSettings.jsonpCallback;
-
-				// Save the callback name for future use
-				oldCallbacks.push( callbackName );
-			}
-
-			// Call if it was a function and we have a response
-			if ( responseContainer && isFunction( overwritten ) ) {
-				overwritten( responseContainer[ 0 ] );
-			}
-
-			responseContainer = overwritten = undefined;
-		} );
-
-		// Delegate to script
-		return "script";
-	}
-} );
-
-
-
-
-// Support: Safari 8 only
-// In Safari 8 documents created via document.implementation.createHTMLDocument
-// collapse sibling forms: the second one becomes a child of the first one.
-// Because of that, this security measure has to be disabled in Safari 8.
-// https://bugs.webkit.org/show_bug.cgi?id=137337
-support.createHTMLDocument = ( function() {
-	var body = document.implementation.createHTMLDocument( "" ).body;
-	body.innerHTML = "<form></form><form></form>";
-	return body.childNodes.length === 2;
-} )();
-
-
-// Argument "data" should be string of html
-// context (optional): If specified, the fragment will be created in this context,
-// defaults to document
-// keepScripts (optional): If true, will include scripts passed in the html string
-jQuery.parseHTML = function( data, context, keepScripts ) {
-	if ( typeof data !== "string" ) {
-		return [];
-	}
-	if ( typeof context === "boolean" ) {
-		keepScripts = context;
-		context = false;
-	}
-
-	var base, parsed, scripts;
-
-	if ( !context ) {
-
-		// Stop scripts or inline event handlers from being executed immediately
-		// by using document.implementation
-		if ( support.createHTMLDocument ) {
-			context = document.implementation.createHTMLDocument( "" );
-
-			// Set the base href for the created document
-			// so any parsed elements with URLs
-			// are based on the document's URL (gh-2965)
-			base = context.createElement( "base" );
-			base.href = document.location.href;
-			context.head.appendChild( base );
-		} else {
-			context = document;
-		}
-	}
-
-	parsed = rsingleTag.exec( data );
-	scripts = !keepScripts && [];
-
-	// Single tag
-	if ( parsed ) {
-		return [ context.createElement( parsed[ 1 ] ) ];
-	}
-
-	parsed = buildFragment( [ data ], context, scripts );
-
-	if ( scripts && scripts.length ) {
-		jQuery( scripts ).remove();
-	}
-
-	return jQuery.merge( [], parsed.childNodes );
-};
-
-
-/**
- * Load a url into a page
- */
-jQuery.fn.load = function( url, params, callback ) {
-	var selector, type, response,
-		self = this,
-		off = url.indexOf( " " );
-
-	if ( off > -1 ) {
-		selector = stripAndCollapse( url.slice( off ) );
-		url = url.slice( 0, off );
-	}
-
-	// If it's a function
-	if ( isFunction( params ) ) {
-
-		// We assume that it's the callback
-		callback = params;
-		params = undefined;
-
-	// Otherwise, build a param string
-	} else if ( params && typeof params === "object" ) {
-		type = "POST";
-	}
-
-	// If we have elements to modify, make the request
-	if ( self.length > 0 ) {
-		jQuery.ajax( {
-			url: url,
-
-			// If "type" variable is undefined, then "GET" method will be used.
-			// Make value of this field explicit since
-			// user can override it through ajaxSetup method
-			type: type || "GET",
-			dataType: "html",
-			data: params
-		} ).done( function( responseText ) {
-
-			// Save response for use in complete callback
-			response = arguments;
-
-			self.html( selector ?
-
-				// If a selector was specified, locate the right elements in a dummy div
-				// Exclude scripts to avoid IE 'Permission Denied' errors
-				jQuery( "<div>" ).append( jQuery.parseHTML( responseText ) ).find( selector ) :
-
-				// Otherwise use the full result
-				responseText );
-
-		// If the request succeeds, this function gets "data", "status", "jqXHR"
-		// but they are ignored because response was set above.
-		// If it fails, this function gets "jqXHR", "status", "error"
-		} ).always( callback && function( jqXHR, status ) {
-			self.each( function() {
-				callback.apply( this, response || [ jqXHR.responseText, status, jqXHR ] );
-			} );
-		} );
-	}
-
-	return this;
-};
-
-
-
-
-// Attach a bunch of functions for handling common AJAX events
-jQuery.each( [
-	"ajaxStart",
-	"ajaxStop",
-	"ajaxComplete",
-	"ajaxError",
-	"ajaxSuccess",
-	"ajaxSend"
-], function( i, type ) {
-	jQuery.fn[ type ] = function( fn ) {
-		return this.on( type, fn );
-	};
-} );
-
-
-
-
-jQuery.expr.pseudos.animated = function( elem ) {
-	return jQuery.grep( jQuery.timers, function( fn ) {
-		return elem === fn.elem;
-	} ).length;
-};
-
-
-
-
-jQuery.offset = {
-	setOffset: function( elem, options, i ) {
-		var curPosition, curLeft, curCSSTop, curTop, curOffset, curCSSLeft, calculatePosition,
-			position = jQuery.css( elem, "position" ),
-			curElem = jQuery( elem ),
-			props = {};
-
-		// Set position first, in-case top/left are set even on static elem
-		if ( position === "static" ) {
-			elem.style.position = "relative";
-		}
-
-		curOffset = curElem.offset();
-		curCSSTop = jQuery.css( elem, "top" );
-		curCSSLeft = jQuery.css( elem, "left" );
-		calculatePosition = ( position === "absolute" || position === "fixed" ) &&
-			( curCSSTop + curCSSLeft ).indexOf( "auto" ) > -1;
-
-		// Need to be able to calculate position if either
-		// top or left is auto and position is either absolute or fixed
-		if ( calculatePosition ) {
-			curPosition = curElem.position();
-			curTop = curPosition.top;
-			curLeft = curPosition.left;
-
-		} else {
-			curTop = parseFloat( curCSSTop ) || 0;
-			curLeft = parseFloat( curCSSLeft ) || 0;
-		}
-
-		if ( isFunction( options ) ) {
-
-			// Use jQuery.extend here to allow modification of coordinates argument (gh-1848)
-			options = options.call( elem, i, jQuery.extend( {}, curOffset ) );
-		}
-
-		if ( options.top != null ) {
-			props.top = ( options.top - curOffset.top ) + curTop;
-		}
-		if ( options.left != null ) {
-			props.left = ( options.left - curOffset.left ) + curLeft;
-		}
-
-		if ( "using" in options ) {
-			options.using.call( elem, props );
-
-		} else {
-			curElem.css( props );
-		}
-	}
-};
-
-jQuery.fn.extend( {
-
-	// offset() relates an element's border box to the document origin
-	offset: function( options ) {
-
-		// Preserve chaining for setter
-		if ( arguments.length ) {
-			return options === undefined ?
-				this :
-				this.each( function( i ) {
-					jQuery.offset.setOffset( this, options, i );
-				} );
-		}
-
-		var rect, win,
-			elem = this[ 0 ];
-
-		if ( !elem ) {
-			return;
-		}
-
-		// Return zeros for disconnected and hidden (display: none) elements (gh-2310)
-		// Support: IE <=11 only
-		// Running getBoundingClientRect on a
-		// disconnected node in IE throws an error
-		if ( !elem.getClientRects().length ) {
-			return { top: 0, left: 0 };
-		}
-
-		// Get document-relative position by adding viewport scroll to viewport-relative gBCR
-		rect = elem.getBoundingClientRect();
-		win = elem.ownerDocument.defaultView;
-		return {
-			top: rect.top + win.pageYOffset,
-			left: rect.left + win.pageXOffset
-		};
-	},
-
-	// position() relates an element's margin box to its offset parent's padding box
-	// This corresponds to the behavior of CSS absolute positioning
-	position: function() {
-		if ( !this[ 0 ] ) {
-			return;
-		}
-
-		var offsetParent, offset, doc,
-			elem = this[ 0 ],
-			parentOffset = { top: 0, left: 0 };
-
-		// position:fixed elements are offset from the viewport, which itself always has zero offset
-		if ( jQuery.css( elem, "position" ) === "fixed" ) {
-
-			// Assume position:fixed implies availability of getBoundingClientRect
-			offset = elem.getBoundingClientRect();
-
-		} else {
-			offset = this.offset();
-
-			// Account for the *real* offset parent, which can be the document or its root element
-			// when a statically positioned element is identified
-			doc = elem.ownerDocument;
-			offsetParent = elem.offsetParent || doc.documentElement;
-			while ( offsetParent &&
-				( offsetParent === doc.body || offsetParent === doc.documentElement ) &&
-				jQuery.css( offsetParent, "position" ) === "static" ) {
-
-				offsetParent = offsetParent.parentNode;
-			}
-			if ( offsetParent && offsetParent !== elem && offsetParent.nodeType === 1 ) {
-
-				// Incorporate borders into its offset, since they are outside its content origin
-				parentOffset = jQuery( offsetParent ).offset();
-				parentOffset.top += jQuery.css( offsetParent, "borderTopWidth", true );
-				parentOffset.left += jQuery.css( offsetParent, "borderLeftWidth", true );
-			}
-		}
-
-		// Subtract parent offsets and element margins
-		return {
-			top: offset.top - parentOffset.top - jQuery.css( elem, "marginTop", true ),
-			left: offset.left - parentOffset.left - jQuery.css( elem, "marginLeft", true )
-		};
-	},
-
-	// This method will return documentElement in the following cases:
-	// 1) For the element inside the iframe without offsetParent, this method will return
-	//    documentElement of the parent window
-	// 2) For the hidden or detached element
-	// 3) For body or html element, i.e. in case of the html node - it will return itself
-	//
-	// but those exceptions were never presented as a real life use-cases
-	// and might be considered as more preferable results.
-	//
-	// This logic, however, is not guaranteed and can change at any point in the future
-	offsetParent: function() {
-		return this.map( function() {
-			var offsetParent = this.offsetParent;
-
-			while ( offsetParent && jQuery.css( offsetParent, "position" ) === "static" ) {
-				offsetParent = offsetParent.offsetParent;
-			}
-
-			return offsetParent || documentElement;
-		} );
-	}
-} );
-
-// Create scrollLeft and scrollTop methods
-jQuery.each( { scrollLeft: "pageXOffset", scrollTop: "pageYOffset" }, function( method, prop ) {
-	var top = "pageYOffset" === prop;
-
-	jQuery.fn[ method ] = function( val ) {
-		return access( this, function( elem, method, val ) {
-
-			// Coalesce documents and windows
-			var win;
-			if ( isWindow( elem ) ) {
-				win = elem;
-			} else if ( elem.nodeType === 9 ) {
-				win = elem.defaultView;
-			}
-
-			if ( val === undefined ) {
-				return win ? win[ prop ] : elem[ method ];
-			}
-
-			if ( win ) {
-				win.scrollTo(
-					!top ? val : win.pageXOffset,
-					top ? val : win.pageYOffset
-				);
-
-			} else {
-				elem[ method ] = val;
-			}
-		}, method, val, arguments.length );
-	};
-} );
-
-// Support: Safari <=7 - 9.1, Chrome <=37 - 49
-// Add the top/left cssHooks using jQuery.fn.position
-// Webkit bug: https://bugs.webkit.org/show_bug.cgi?id=29084
-// Blink bug: https://bugs.chromium.org/p/chromium/issues/detail?id=589347
-// getComputedStyle returns percent when specified for top/left/bottom/right;
-// rather than make the css module depend on the offset module, just check for it here
-jQuery.each( [ "top", "left" ], function( i, prop ) {
-	jQuery.cssHooks[ prop ] = addGetHookIf( support.pixelPosition,
-		function( elem, computed ) {
-			if ( computed ) {
-				computed = curCSS( elem, prop );
-
-				// If curCSS returns percentage, fallback to offset
-				return rnumnonpx.test( computed ) ?
-					jQuery( elem ).position()[ prop ] + "px" :
-					computed;
-			}
-		}
-	);
-} );
-
-
-// Create innerHeight, innerWidth, height, width, outerHeight and outerWidth methods
-jQuery.each( { Height: "height", Width: "width" }, function( name, type ) {
-	jQuery.each( { padding: "inner" + name, content: type, "": "outer" + name },
-		function( defaultExtra, funcName ) {
-
-		// Margin is only for outerHeight, outerWidth
-		jQuery.fn[ funcName ] = function( margin, value ) {
-			var chainable = arguments.length && ( defaultExtra || typeof margin !== "boolean" ),
-				extra = defaultExtra || ( margin === true || value === true ? "margin" : "border" );
-
-			return access( this, function( elem, type, value ) {
-				var doc;
-
-				if ( isWindow( elem ) ) {
-
-					// $( window ).outerWidth/Height return w/h including scrollbars (gh-1729)
-					return funcName.indexOf( "outer" ) === 0 ?
-						elem[ "inner" + name ] :
-						elem.document.documentElement[ "client" + name ];
-				}
-
-				// Get document width or height
-				if ( elem.nodeType === 9 ) {
-					doc = elem.documentElement;
-
-					// Either scroll[Width/Height] or offset[Width/Height] or client[Width/Height],
-					// whichever is greatest
-					return Math.max(
-						elem.body[ "scroll" + name ], doc[ "scroll" + name ],
-						elem.body[ "offset" + name ], doc[ "offset" + name ],
-						doc[ "client" + name ]
-					);
-				}
-
-				return value === undefined ?
-
-					// Get width or height on the element, requesting but not forcing parseFloat
-					jQuery.css( elem, type, extra ) :
-
-					// Set width or height on the element
-					jQuery.style( elem, type, value, extra );
-			}, type, chainable ? margin : undefined, chainable );
-		};
-	} );
-} );
-
-
-jQuery.each( ( "blur focus focusin focusout resize scroll click dblclick " +
-	"mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave " +
-	"change select submit keydown keypress keyup contextmenu" ).split( " " ),
-	function( i, name ) {
-
-	// Handle event binding
-	jQuery.fn[ name ] = function( data, fn ) {
-		return arguments.length > 0 ?
-			this.on( name, null, data, fn ) :
-			this.trigger( name );
-	};
-} );
-
-jQuery.fn.extend( {
-	hover: function( fnOver, fnOut ) {
-		return this.mouseenter( fnOver ).mouseleave( fnOut || fnOver );
-	}
-} );
-
-
-
-
-jQuery.fn.extend( {
-
-	bind: function( types, data, fn ) {
-		return this.on( types, null, data, fn );
-	},
-	unbind: function( types, fn ) {
-		return this.off( types, null, fn );
-	},
-
-	delegate: function( selector, types, data, fn ) {
-		return this.on( types, selector, data, fn );
-	},
-	undelegate: function( selector, types, fn ) {
-
-		// ( namespace ) or ( selector, types [, fn] )
-		return arguments.length === 1 ?
-			this.off( selector, "**" ) :
-			this.off( types, selector || "**", fn );
-	}
-} );
-
-// Bind a function to a context, optionally partially applying any
-// arguments.
-// jQuery.proxy is deprecated to promote standards (specifically Function#bind)
-// However, it is not slated for removal any time soon
-jQuery.proxy = function( fn, context ) {
-	var tmp, args, proxy;
-
-	if ( typeof context === "string" ) {
-		tmp = fn[ context ];
-		context = fn;
-		fn = tmp;
-	}
-
-	// Quick check to determine if target is callable, in the spec
-	// this throws a TypeError, but we will just return undefined.
-	if ( !isFunction( fn ) ) {
-		return undefined;
-	}
-
-	// Simulated bind
-	args = slice.call( arguments, 2 );
-	proxy = function() {
-		return fn.apply( context || this, args.concat( slice.call( arguments ) ) );
-	};
-
-	// Set the guid of unique handler to the same of original handler, so it can be removed
-	proxy.guid = fn.guid = fn.guid || jQuery.guid++;
-
-	return proxy;
-};
-
-jQuery.holdReady = function( hold ) {
-	if ( hold ) {
-		jQuery.readyWait++;
-	} else {
-		jQuery.ready( true );
-	}
-};
-jQuery.isArray = Array.isArray;
-jQuery.parseJSON = JSON.parse;
-jQuery.nodeName = nodeName;
-jQuery.isFunction = isFunction;
-jQuery.isWindow = isWindow;
-jQuery.camelCase = camelCase;
-jQuery.type = toType;
-
-jQuery.now = Date.now;
-
-jQuery.isNumeric = function( obj ) {
-
-	// As of jQuery 3.0, isNumeric is limited to
-	// strings and numbers (primitives or objects)
-	// that can be coerced to finite numbers (gh-2662)
-	var type = jQuery.type( obj );
-	return ( type === "number" || type === "string" ) &&
-
-		// parseFloat NaNs numeric-cast false positives ("")
-		// ...but misinterprets leading-number strings, particularly hex literals ("0x...")
-		// subtraction forces infinities to NaN
-		!isNaN( obj - parseFloat( obj ) );
-};
-
-
-
-
-// Register as a named AMD module, since jQuery can be concatenated with other
-// files that may use define, but not via a proper concatenation script that
-// understands anonymous AMD modules. A named AMD is safest and most robust
-// way to register. Lowercase jquery is used because AMD module names are
-// derived from file names, and jQuery is normally delivered in a lowercase
-// file name. Do this after creating the global so that if an AMD module wants
-// to call noConflict to hide this version of jQuery, it will work.
-
-// Note that for maximum portability, libraries that are not jQuery should
-// declare themselves as anonymous modules, and avoid setting a global if an
-// AMD loader is present. jQuery is a special case. For more information, see
-// https://github.com/jrburke/requirejs/wiki/Updating-existing-libraries#wiki-anon
-
-if ( typeof define === "function" && define.amd ) {
-	define( "jquery", [], function() {
-		return jQuery;
-	} );
-}
-
-
-
-
-var
-
-	// Map over jQuery in case of overwrite
-	_jQuery = window.jQuery,
-
-	// Map over the $ in case of overwrite
-	_$ = window.$;
-
-jQuery.noConflict = function( deep ) {
-	if ( window.$ === jQuery ) {
-		window.$ = _$;
-	}
-
-	if ( deep && window.jQuery === jQuery ) {
-		window.jQuery = _jQuery;
-	}
-
-	return jQuery;
-};
-
-// Expose jQuery and $ identifiers, even in AMD
-// (#7102#comment:10, https://github.com/jquery/jquery/pull/557)
-// and CommonJS for browser emulators (#13566)
-if ( !noGlobal ) {
-	window.jQuery = window.$ = jQuery;
-}
-
-
-
-
-return jQuery;
-} );
diff --git a/X/jquery-3.3.1.min.js b/X/jquery-3.3.1.min.js
deleted file mode 100644
index 4d9b3a2..0000000
--- a/X/jquery-3.3.1.min.js
+++ /dev/null
@@ -1,2 +0,0 @@
-/*! jQuery v3.3.1 | (c) JS Foundation and other contributors | jquery.org/license */
-!function(e,t){"use strict";"object"==typeof module&&"object"==typeof module.exports?module.exports=e.document?t(e,!0):function(e){if(!e.document)throw new Error("jQuery requires a window with a document");return t(e)}:t(e)}("undefined"!=typeof window?window:this,function(e,t){"use strict";var n=[],r=e.document,i=Object.getPrototypeOf,o=n.slice,a=n.concat,s=n.push,u=n.indexOf,l={},c=l.toString,f=l.hasOwnProperty,p=f.toString,d=p.call(Object),h={},g=function e(t){return"function"==typeof t&&"number"!=typeof t.nodeType},y=function e(t){return null!=t&&t===t.window},v={type:!0,src:!0,noModule:!0};function m(e,t,n){var i,o=(t=t||r).createElement("script");if(o.text=e,n)for(i in v)n[i]&&(o[i]=n[i]);t.head.appendChild(o).parentNode.removeChild(o)}function x(e){return null==e?e+"":"object"==typeof e||"function"==typeof e?l[c.call(e)]||"object":typeof e}var b="3.3.1",w=function(e,t){return new w.fn.init(e,t)},T=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g;w.fn=w.prototype={jquery:"3.3.1",constructor:w,length:0,toArray:function(){return o.call(this)},get:function(e){return null==e?o.call(this):e<0?this[e+this.length]:this[e]},pushStack:function(e){var t=w.merge(this.constructor(),e);return t.prevObject=this,t},each:function(e){return w.each(this,e)},map:function(e){return this.pushStack(w.map(this,function(t,n){return e.call(t,n,t)}))},slice:function(){return this.pushStack(o.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(e){var t=this.length,n=+e+(e<0?t:0);return this.pushStack(n>=0&&n<t?[this[n]]:[])},end:function(){return this.prevObject||this.constructor()},push:s,sort:n.sort,splice:n.splice},w.extend=w.fn.extend=function(){var e,t,n,r,i,o,a=arguments[0]||{},s=1,u=arguments.length,l=!1;for("boolean"==typeof a&&(l=a,a=arguments[s]||{},s++),"object"==typeof a||g(a)||(a={}),s===u&&(a=this,s--);s<u;s++)if(null!=(e=arguments[s]))for(t in e)n=a[t],a!==(r=e[t])&&(l&&r&&(w.isPlainObject(r)||(i=Array.isArray(r)))?(i?(i=!1,o=n&&Array.isArray(n)?n:[]):o=n&&w.isPlainObject(n)?n:{},a[t]=w.extend(l,o,r)):void 0!==r&&(a[t]=r));return a},w.extend({expando:"jQuery"+("3.3.1"+Math.random()).replace(/\D/g,""),isReady:!0,error:function(e){throw new Error(e)},noop:function(){},isPlainObject:function(e){var t,n;return!(!e||"[object Object]"!==c.call(e))&&(!(t=i(e))||"function"==typeof(n=f.call(t,"constructor")&&t.constructor)&&p.call(n)===d)},isEmptyObject:function(e){var t;for(t in e)return!1;return!0},globalEval:function(e){m(e)},each:function(e,t){var n,r=0;if(C(e)){for(n=e.length;r<n;r++)if(!1===t.call(e[r],r,e[r]))break}else for(r in e)if(!1===t.call(e[r],r,e[r]))break;return e},trim:function(e){return null==e?"":(e+"").replace(T,"")},makeArray:function(e,t){var n=t||[];return null!=e&&(C(Object(e))?w.merge(n,"string"==typeof e?[e]:e):s.call(n,e)),n},inArray:function(e,t,n){return null==t?-1:u.call(t,e,n)},merge:function(e,t){for(var n=+t.length,r=0,i=e.length;r<n;r++)e[i++]=t[r];return e.length=i,e},grep:function(e,t,n){for(var r,i=[],o=0,a=e.length,s=!n;o<a;o++)(r=!t(e[o],o))!==s&&i.push(e[o]);return i},map:function(e,t,n){var r,i,o=0,s=[];if(C(e))for(r=e.length;o<r;o++)null!=(i=t(e[o],o,n))&&s.push(i);else for(o in e)null!=(i=t(e[o],o,n))&&s.push(i);return a.apply([],s)},guid:1,support:h}),"function"==typeof Symbol&&(w.fn[Symbol.iterator]=n[Symbol.iterator]),w.each("Boolean Number String Function Array Date RegExp Object Error Symbol".split(" "),function(e,t){l["[object "+t+"]"]=t.toLowerCase()});function C(e){var t=!!e&&"length"in e&&e.length,n=x(e);return!g(e)&&!y(e)&&("array"===n||0===t||"number"==typeof t&&t>0&&t-1 in e)}var E=function(e){var t,n,r,i,o,a,s,u,l,c,f,p,d,h,g,y,v,m,x,b="sizzle"+1*new Date,w=e.document,T=0,C=0,E=ae(),k=ae(),S=ae(),D=function(e,t){return e===t&&(f=!0),0},N={}.hasOwnProperty,A=[],j=A.pop,q=A.push,L=A.push,H=A.slice,O=function(e,t){for(var n=0,r=e.length;n<r;n++)if(e[n]===t)return n;return-1},P="checked|selected|async|autofocus|autoplay|controls|defer|disabled|hidden|ismap|loop|multiple|open|readonly|required|scoped",M="[\\x20\\t\\r\\n\\f]",R="(?:\\\\.|[\\w-]|[^\0-\\xa0])+",I="\\["+M+"*("+R+")(?:"+M+"*([*^$|!~]?=)"+M+"*(?:'((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\"|("+R+"))|)"+M+"*\\]",W=":("+R+")(?:\\((('((?:\\\\.|[^\\\\'])*)'|\"((?:\\\\.|[^\\\\\"])*)\")|((?:\\\\.|[^\\\\()[\\]]|"+I+")*)|.*)\\)|)",$=new RegExp(M+"+","g"),B=new RegExp("^"+M+"+|((?:^|[^\\\\])(?:\\\\.)*)"+M+"+$","g"),F=new RegExp("^"+M+"*,"+M+"*"),_=new RegExp("^"+M+"*([>+~]|"+M+")"+M+"*"),z=new RegExp("="+M+"*([^\\]'\"]*?)"+M+"*\\]","g"),X=new RegExp(W),U=new RegExp("^"+R+"$"),V={ID:new RegExp("^#("+R+")"),CLASS:new RegExp("^\\.("+R+")"),TAG:new RegExp("^("+R+"|[*])"),ATTR:new RegExp("^"+I),PSEUDO:new RegExp("^"+W),CHILD:new RegExp("^:(only|first|last|nth|nth-last)-(child|of-type)(?:\\("+M+"*(even|odd|(([+-]|)(\\d*)n|)"+M+"*(?:([+-]|)"+M+"*(\\d+)|))"+M+"*\\)|)","i"),bool:new RegExp("^(?:"+P+")$","i"),needsContext:new RegExp("^"+M+"*[>+~]|:(even|odd|eq|gt|lt|nth|first|last)(?:\\("+M+"*((?:-\\d)?\\d*)"+M+"*\\)|)(?=[^-]|$)","i")},G=/^(?:input|select|textarea|button)$/i,Y=/^h\d$/i,Q=/^[^{]+\{\s*\[native \w/,J=/^(?:#([\w-]+)|(\w+)|\.([\w-]+))$/,K=/[+~]/,Z=new RegExp("\\\\([\\da-f]{1,6}"+M+"?|("+M+")|.)","ig"),ee=function(e,t,n){var r="0x"+t-65536;return r!==r||n?t:r<0?String.fromCharCode(r+65536):String.fromCharCode(r>>10|55296,1023&r|56320)},te=/([\0-\x1f\x7f]|^-?\d)|^-$|[^\0-\x1f\x7f-\uFFFF\w-]/g,ne=function(e,t){return t?"\0"===e?"\ufffd":e.slice(0,-1)+"\\"+e.charCodeAt(e.length-1).toString(16)+" ":"\\"+e},re=function(){p()},ie=me(function(e){return!0===e.disabled&&("form"in e||"label"in e)},{dir:"parentNode",next:"legend"});try{L.apply(A=H.call(w.childNodes),w.childNodes),A[w.childNodes.length].nodeType}catch(e){L={apply:A.length?function(e,t){q.apply(e,H.call(t))}:function(e,t){var n=e.length,r=0;while(e[n++]=t[r++]);e.length=n-1}}}function oe(e,t,r,i){var o,s,l,c,f,h,v,m=t&&t.ownerDocument,T=t?t.nodeType:9;if(r=r||[],"string"!=typeof e||!e||1!==T&&9!==T&&11!==T)return r;if(!i&&((t?t.ownerDocument||t:w)!==d&&p(t),t=t||d,g)){if(11!==T&&(f=J.exec(e)))if(o=f[1]){if(9===T){if(!(l=t.getElementById(o)))return r;if(l.id===o)return r.push(l),r}else if(m&&(l=m.getElementById(o))&&x(t,l)&&l.id===o)return r.push(l),r}else{if(f[2])return L.apply(r,t.getElementsByTagName(e)),r;if((o=f[3])&&n.getElementsByClassName&&t.getElementsByClassName)return L.apply(r,t.getElementsByClassName(o)),r}if(n.qsa&&!S[e+" "]&&(!y||!y.test(e))){if(1!==T)m=t,v=e;else if("object"!==t.nodeName.toLowerCase()){(c=t.getAttribute("id"))?c=c.replace(te,ne):t.setAttribute("id",c=b),s=(h=a(e)).length;while(s--)h[s]="#"+c+" "+ve(h[s]);v=h.join(","),m=K.test(e)&&ge(t.parentNode)||t}if(v)try{return L.apply(r,m.querySelectorAll(v)),r}catch(e){}finally{c===b&&t.removeAttribute("id")}}}return u(e.replace(B,"$1"),t,r,i)}function ae(){var e=[];function t(n,i){return e.push(n+" ")>r.cacheLength&&delete t[e.shift()],t[n+" "]=i}return t}function se(e){return e[b]=!0,e}function ue(e){var t=d.createElement("fieldset");try{return!!e(t)}catch(e){return!1}finally{t.parentNode&&t.parentNode.removeChild(t),t=null}}function le(e,t){var n=e.split("|"),i=n.length;while(i--)r.attrHandle[n[i]]=t}function ce(e,t){var n=t&&e,r=n&&1===e.nodeType&&1===t.nodeType&&e.sourceIndex-t.sourceIndex;if(r)return r;if(n)while(n=n.nextSibling)if(n===t)return-1;return e?1:-1}function fe(e){return function(t){return"input"===t.nodeName.toLowerCase()&&t.type===e}}function pe(e){return function(t){var n=t.nodeName.toLowerCase();return("input"===n||"button"===n)&&t.type===e}}function de(e){return function(t){return"form"in t?t.parentNode&&!1===t.disabled?"label"in t?"label"in t.parentNode?t.parentNode.disabled===e:t.disabled===e:t.isDisabled===e||t.isDisabled!==!e&&ie(t)===e:t.disabled===e:"label"in t&&t.disabled===e}}function he(e){return se(function(t){return t=+t,se(function(n,r){var i,o=e([],n.length,t),a=o.length;while(a--)n[i=o[a]]&&(n[i]=!(r[i]=n[i]))})})}function ge(e){return e&&"undefined"!=typeof e.getElementsByTagName&&e}n=oe.support={},o=oe.isXML=function(e){var t=e&&(e.ownerDocument||e).documentElement;return!!t&&"HTML"!==t.nodeName},p=oe.setDocument=function(e){var t,i,a=e?e.ownerDocument||e:w;return a!==d&&9===a.nodeType&&a.documentElement?(d=a,h=d.documentElement,g=!o(d),w!==d&&(i=d.defaultView)&&i.top!==i&&(i.addEventListener?i.addEventListener("unload",re,!1):i.attachEvent&&i.attachEvent("onunload",re)),n.attributes=ue(function(e){return e.className="i",!e.getAttribute("className")}),n.getElementsByTagName=ue(function(e){return e.appendChild(d.createComment("")),!e.getElementsByTagName("*").length}),n.getElementsByClassName=Q.test(d.getElementsByClassName),n.getById=ue(function(e){return h.appendChild(e).id=b,!d.getElementsByName||!d.getElementsByName(b).length}),n.getById?(r.filter.ID=function(e){var t=e.replace(Z,ee);return function(e){return e.getAttribute("id")===t}},r.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&g){var n=t.getElementById(e);return n?[n]:[]}}):(r.filter.ID=function(e){var t=e.replace(Z,ee);return function(e){var n="undefined"!=typeof e.getAttributeNode&&e.getAttributeNode("id");return n&&n.value===t}},r.find.ID=function(e,t){if("undefined"!=typeof t.getElementById&&g){var n,r,i,o=t.getElementById(e);if(o){if((n=o.getAttributeNode("id"))&&n.value===e)return[o];i=t.getElementsByName(e),r=0;while(o=i[r++])if((n=o.getAttributeNode("id"))&&n.value===e)return[o]}return[]}}),r.find.TAG=n.getElementsByTagName?function(e,t){return"undefined"!=typeof t.getElementsByTagName?t.getElementsByTagName(e):n.qsa?t.querySelectorAll(e):void 0}:function(e,t){var n,r=[],i=0,o=t.getElementsByTagName(e);if("*"===e){while(n=o[i++])1===n.nodeType&&r.push(n);return r}return o},r.find.CLASS=n.getElementsByClassName&&function(e,t){if("undefined"!=typeof t.getElementsByClassName&&g)return t.getElementsByClassName(e)},v=[],y=[],(n.qsa=Q.test(d.querySelectorAll))&&(ue(function(e){h.appendChild(e).innerHTML="<a id='"+b+"'></a><select id='"+b+"-\r\\' msallowcapture=''><option selected=''></option></select>",e.querySelectorAll("[msallowcapture^='']").length&&y.push("[*^$]="+M+"*(?:''|\"\")"),e.querySelectorAll("[selected]").length||y.push("\\["+M+"*(?:value|"+P+")"),e.querySelectorAll("[id~="+b+"-]").length||y.push("~="),e.querySelectorAll(":checked").length||y.push(":checked"),e.querySelectorAll("a#"+b+"+*").length||y.push(".#.+[+~]")}),ue(function(e){e.innerHTML="<a href='' disabled='disabled'></a><select disabled='disabled'><option/></select>";var t=d.createElement("input");t.setAttribute("type","hidden"),e.appendChild(t).setAttribute("name","D"),e.querySelectorAll("[name=d]").length&&y.push("name"+M+"*[*^$|!~]?="),2!==e.querySelectorAll(":enabled").length&&y.push(":enabled",":disabled"),h.appendChild(e).disabled=!0,2!==e.querySelectorAll(":disabled").length&&y.push(":enabled",":disabled"),e.querySelectorAll("*,:x"),y.push(",.*:")})),(n.matchesSelector=Q.test(m=h.matches||h.webkitMatchesSelector||h.mozMatchesSelector||h.oMatchesSelector||h.msMatchesSelector))&&ue(function(e){n.disconnectedMatch=m.call(e,"*"),m.call(e,"[s!='']:x"),v.push("!=",W)}),y=y.length&&new RegExp(y.join("|")),v=v.length&&new RegExp(v.join("|")),t=Q.test(h.compareDocumentPosition),x=t||Q.test(h.contains)?function(e,t){var n=9===e.nodeType?e.documentElement:e,r=t&&t.parentNode;return e===r||!(!r||1!==r.nodeType||!(n.contains?n.contains(r):e.compareDocumentPosition&&16&e.compareDocumentPosition(r)))}:function(e,t){if(t)while(t=t.parentNode)if(t===e)return!0;return!1},D=t?function(e,t){if(e===t)return f=!0,0;var r=!e.compareDocumentPosition-!t.compareDocumentPosition;return r||(1&(r=(e.ownerDocument||e)===(t.ownerDocument||t)?e.compareDocumentPosition(t):1)||!n.sortDetached&&t.compareDocumentPosition(e)===r?e===d||e.ownerDocument===w&&x(w,e)?-1:t===d||t.ownerDocument===w&&x(w,t)?1:c?O(c,e)-O(c,t):0:4&r?-1:1)}:function(e,t){if(e===t)return f=!0,0;var n,r=0,i=e.parentNode,o=t.parentNode,a=[e],s=[t];if(!i||!o)return e===d?-1:t===d?1:i?-1:o?1:c?O(c,e)-O(c,t):0;if(i===o)return ce(e,t);n=e;while(n=n.parentNode)a.unshift(n);n=t;while(n=n.parentNode)s.unshift(n);while(a[r]===s[r])r++;return r?ce(a[r],s[r]):a[r]===w?-1:s[r]===w?1:0},d):d},oe.matches=function(e,t){return oe(e,null,null,t)},oe.matchesSelector=function(e,t){if((e.ownerDocument||e)!==d&&p(e),t=t.replace(z,"='$1']"),n.matchesSelector&&g&&!S[t+" "]&&(!v||!v.test(t))&&(!y||!y.test(t)))try{var r=m.call(e,t);if(r||n.disconnectedMatch||e.document&&11!==e.document.nodeType)return r}catch(e){}return oe(t,d,null,[e]).length>0},oe.contains=function(e,t){return(e.ownerDocument||e)!==d&&p(e),x(e,t)},oe.attr=function(e,t){(e.ownerDocument||e)!==d&&p(e);var i=r.attrHandle[t.toLowerCase()],o=i&&N.call(r.attrHandle,t.toLowerCase())?i(e,t,!g):void 0;return void 0!==o?o:n.attributes||!g?e.getAttribute(t):(o=e.getAttributeNode(t))&&o.specified?o.value:null},oe.escape=function(e){return(e+"").replace(te,ne)},oe.error=function(e){throw new Error("Syntax error, unrecognized expression: "+e)},oe.uniqueSort=function(e){var t,r=[],i=0,o=0;if(f=!n.detectDuplicates,c=!n.sortStable&&e.slice(0),e.sort(D),f){while(t=e[o++])t===e[o]&&(i=r.push(o));while(i--)e.splice(r[i],1)}return c=null,e},i=oe.getText=function(e){var t,n="",r=0,o=e.nodeType;if(o){if(1===o||9===o||11===o){if("string"==typeof e.textContent)return e.textContent;for(e=e.firstChild;e;e=e.nextSibling)n+=i(e)}else if(3===o||4===o)return e.nodeValue}else while(t=e[r++])n+=i(t);return n},(r=oe.selectors={cacheLength:50,createPseudo:se,match:V,attrHandle:{},find:{},relative:{">":{dir:"parentNode",first:!0}," ":{dir:"parentNode"},"+":{dir:"previousSibling",first:!0},"~":{dir:"previousSibling"}},preFilter:{ATTR:function(e){return e[1]=e[1].replace(Z,ee),e[3]=(e[3]||e[4]||e[5]||"").replace(Z,ee),"~="===e[2]&&(e[3]=" "+e[3]+" "),e.slice(0,4)},CHILD:function(e){return e[1]=e[1].toLowerCase(),"nth"===e[1].slice(0,3)?(e[3]||oe.error(e[0]),e[4]=+(e[4]?e[5]+(e[6]||1):2*("even"===e[3]||"odd"===e[3])),e[5]=+(e[7]+e[8]||"odd"===e[3])):e[3]&&oe.error(e[0]),e},PSEUDO:function(e){var t,n=!e[6]&&e[2];return V.CHILD.test(e[0])?null:(e[3]?e[2]=e[4]||e[5]||"":n&&X.test(n)&&(t=a(n,!0))&&(t=n.indexOf(")",n.length-t)-n.length)&&(e[0]=e[0].slice(0,t),e[2]=n.slice(0,t)),e.slice(0,3))}},filter:{TAG:function(e){var t=e.replace(Z,ee).toLowerCase();return"*"===e?function(){return!0}:function(e){return e.nodeName&&e.nodeName.toLowerCase()===t}},CLASS:function(e){var t=E[e+" "];return t||(t=new RegExp("(^|"+M+")"+e+"("+M+"|$)"))&&E(e,function(e){return t.test("string"==typeof e.className&&e.className||"undefined"!=typeof e.getAttribute&&e.getAttribute("class")||"")})},ATTR:function(e,t,n){return function(r){var i=oe.attr(r,e);return null==i?"!="===t:!t||(i+="","="===t?i===n:"!="===t?i!==n:"^="===t?n&&0===i.indexOf(n):"*="===t?n&&i.indexOf(n)>-1:"$="===t?n&&i.slice(-n.length)===n:"~="===t?(" "+i.replace($," ")+" ").indexOf(n)>-1:"|="===t&&(i===n||i.slice(0,n.length+1)===n+"-"))}},CHILD:function(e,t,n,r,i){var o="nth"!==e.slice(0,3),a="last"!==e.slice(-4),s="of-type"===t;return 1===r&&0===i?function(e){return!!e.parentNode}:function(t,n,u){var l,c,f,p,d,h,g=o!==a?"nextSibling":"previousSibling",y=t.parentNode,v=s&&t.nodeName.toLowerCase(),m=!u&&!s,x=!1;if(y){if(o){while(g){p=t;while(p=p[g])if(s?p.nodeName.toLowerCase()===v:1===p.nodeType)return!1;h=g="only"===e&&!h&&"nextSibling"}return!0}if(h=[a?y.firstChild:y.lastChild],a&&m){x=(d=(l=(c=(f=(p=y)[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]||[])[0]===T&&l[1])&&l[2],p=d&&y.childNodes[d];while(p=++d&&p&&p[g]||(x=d=0)||h.pop())if(1===p.nodeType&&++x&&p===t){c[e]=[T,d,x];break}}else if(m&&(x=d=(l=(c=(f=(p=t)[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]||[])[0]===T&&l[1]),!1===x)while(p=++d&&p&&p[g]||(x=d=0)||h.pop())if((s?p.nodeName.toLowerCase()===v:1===p.nodeType)&&++x&&(m&&((c=(f=p[b]||(p[b]={}))[p.uniqueID]||(f[p.uniqueID]={}))[e]=[T,x]),p===t))break;return(x-=i)===r||x%r==0&&x/r>=0}}},PSEUDO:function(e,t){var n,i=r.pseudos[e]||r.setFilters[e.toLowerCase()]||oe.error("unsupported pseudo: "+e);return i[b]?i(t):i.length>1?(n=[e,e,"",t],r.setFilters.hasOwnProperty(e.toLowerCase())?se(function(e,n){var r,o=i(e,t),a=o.length;while(a--)e[r=O(e,o[a])]=!(n[r]=o[a])}):function(e){return i(e,0,n)}):i}},pseudos:{not:se(function(e){var t=[],n=[],r=s(e.replace(B,"$1"));return r[b]?se(function(e,t,n,i){var o,a=r(e,null,i,[]),s=e.length;while(s--)(o=a[s])&&(e[s]=!(t[s]=o))}):function(e,i,o){return t[0]=e,r(t,null,o,n),t[0]=null,!n.pop()}}),has:se(function(e){return function(t){return oe(e,t).length>0}}),contains:se(function(e){return e=e.replace(Z,ee),function(t){return(t.textContent||t.innerText||i(t)).indexOf(e)>-1}}),lang:se(function(e){return U.test(e||"")||oe.error("unsupported lang: "+e),e=e.replace(Z,ee).toLowerCase(),function(t){var n;do{if(n=g?t.lang:t.getAttribute("xml:lang")||t.getAttribute("lang"))return(n=n.toLowerCase())===e||0===n.indexOf(e+"-")}while((t=t.parentNode)&&1===t.nodeType);return!1}}),target:function(t){var n=e.location&&e.location.hash;return n&&n.slice(1)===t.id},root:function(e){return e===h},focus:function(e){return e===d.activeElement&&(!d.hasFocus||d.hasFocus())&&!!(e.type||e.href||~e.tabIndex)},enabled:de(!1),disabled:de(!0),checked:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&!!e.checked||"option"===t&&!!e.selected},selected:function(e){return e.parentNode&&e.parentNode.selectedIndex,!0===e.selected},empty:function(e){for(e=e.firstChild;e;e=e.nextSibling)if(e.nodeType<6)return!1;return!0},parent:function(e){return!r.pseudos.empty(e)},header:function(e){return Y.test(e.nodeName)},input:function(e){return G.test(e.nodeName)},button:function(e){var t=e.nodeName.toLowerCase();return"input"===t&&"button"===e.type||"button"===t},text:function(e){var t;return"input"===e.nodeName.toLowerCase()&&"text"===e.type&&(null==(t=e.getAttribute("type"))||"text"===t.toLowerCase())},first:he(function(){return[0]}),last:he(function(e,t){return[t-1]}),eq:he(function(e,t,n){return[n<0?n+t:n]}),even:he(function(e,t){for(var n=0;n<t;n+=2)e.push(n);return e}),odd:he(function(e,t){for(var n=1;n<t;n+=2)e.push(n);return e}),lt:he(function(e,t,n){for(var r=n<0?n+t:n;--r>=0;)e.push(r);return e}),gt:he(function(e,t,n){for(var r=n<0?n+t:n;++r<t;)e.push(r);return e})}}).pseudos.nth=r.pseudos.eq;for(t in{radio:!0,checkbox:!0,file:!0,password:!0,image:!0})r.pseudos[t]=fe(t);for(t in{submit:!0,reset:!0})r.pseudos[t]=pe(t);function ye(){}ye.prototype=r.filters=r.pseudos,r.setFilters=new ye,a=oe.tokenize=function(e,t){var n,i,o,a,s,u,l,c=k[e+" "];if(c)return t?0:c.slice(0);s=e,u=[],l=r.preFilter;while(s){n&&!(i=F.exec(s))||(i&&(s=s.slice(i[0].length)||s),u.push(o=[])),n=!1,(i=_.exec(s))&&(n=i.shift(),o.push({value:n,type:i[0].replace(B," ")}),s=s.slice(n.length));for(a in r.filter)!(i=V[a].exec(s))||l[a]&&!(i=l[a](i))||(n=i.shift(),o.push({value:n,type:a,matches:i}),s=s.slice(n.length));if(!n)break}return t?s.length:s?oe.error(e):k(e,u).slice(0)};function ve(e){for(var t=0,n=e.length,r="";t<n;t++)r+=e[t].value;return r}function me(e,t,n){var r=t.dir,i=t.next,o=i||r,a=n&&"parentNode"===o,s=C++;return t.first?function(t,n,i){while(t=t[r])if(1===t.nodeType||a)return e(t,n,i);return!1}:function(t,n,u){var l,c,f,p=[T,s];if(u){while(t=t[r])if((1===t.nodeType||a)&&e(t,n,u))return!0}else while(t=t[r])if(1===t.nodeType||a)if(f=t[b]||(t[b]={}),c=f[t.uniqueID]||(f[t.uniqueID]={}),i&&i===t.nodeName.toLowerCase())t=t[r]||t;else{if((l=c[o])&&l[0]===T&&l[1]===s)return p[2]=l[2];if(c[o]=p,p[2]=e(t,n,u))return!0}return!1}}function xe(e){return e.length>1?function(t,n,r){var i=e.length;while(i--)if(!e[i](t,n,r))return!1;return!0}:e[0]}function be(e,t,n){for(var r=0,i=t.length;r<i;r++)oe(e,t[r],n);return n}function we(e,t,n,r,i){for(var o,a=[],s=0,u=e.length,l=null!=t;s<u;s++)(o=e[s])&&(n&&!n(o,r,i)||(a.push(o),l&&t.push(s)));return a}function Te(e,t,n,r,i,o){return r&&!r[b]&&(r=Te(r)),i&&!i[b]&&(i=Te(i,o)),se(function(o,a,s,u){var l,c,f,p=[],d=[],h=a.length,g=o||be(t||"*",s.nodeType?[s]:s,[]),y=!e||!o&&t?g:we(g,p,e,s,u),v=n?i||(o?e:h||r)?[]:a:y;if(n&&n(y,v,s,u),r){l=we(v,d),r(l,[],s,u),c=l.length;while(c--)(f=l[c])&&(v[d[c]]=!(y[d[c]]=f))}if(o){if(i||e){if(i){l=[],c=v.length;while(c--)(f=v[c])&&l.push(y[c]=f);i(null,v=[],l,u)}c=v.length;while(c--)(f=v[c])&&(l=i?O(o,f):p[c])>-1&&(o[l]=!(a[l]=f))}}else v=we(v===a?v.splice(h,v.length):v),i?i(null,a,v,u):L.apply(a,v)})}function Ce(e){for(var t,n,i,o=e.length,a=r.relative[e[0].type],s=a||r.relative[" "],u=a?1:0,c=me(function(e){return e===t},s,!0),f=me(function(e){return O(t,e)>-1},s,!0),p=[function(e,n,r){var i=!a&&(r||n!==l)||((t=n).nodeType?c(e,n,r):f(e,n,r));return t=null,i}];u<o;u++)if(n=r.relative[e[u].type])p=[me(xe(p),n)];else{if((n=r.filter[e[u].type].apply(null,e[u].matches))[b]){for(i=++u;i<o;i++)if(r.relative[e[i].type])break;return Te(u>1&&xe(p),u>1&&ve(e.slice(0,u-1).concat({value:" "===e[u-2].type?"*":""})).replace(B,"$1"),n,u<i&&Ce(e.slice(u,i)),i<o&&Ce(e=e.slice(i)),i<o&&ve(e))}p.push(n)}return xe(p)}function Ee(e,t){var n=t.length>0,i=e.length>0,o=function(o,a,s,u,c){var f,h,y,v=0,m="0",x=o&&[],b=[],w=l,C=o||i&&r.find.TAG("*",c),E=T+=null==w?1:Math.random()||.1,k=C.length;for(c&&(l=a===d||a||c);m!==k&&null!=(f=C[m]);m++){if(i&&f){h=0,a||f.ownerDocument===d||(p(f),s=!g);while(y=e[h++])if(y(f,a||d,s)){u.push(f);break}c&&(T=E)}n&&((f=!y&&f)&&v--,o&&x.push(f))}if(v+=m,n&&m!==v){h=0;while(y=t[h++])y(x,b,a,s);if(o){if(v>0)while(m--)x[m]||b[m]||(b[m]=j.call(u));b=we(b)}L.apply(u,b),c&&!o&&b.length>0&&v+t.length>1&&oe.uniqueSort(u)}return c&&(T=E,l=w),x};return n?se(o):o}return s=oe.compile=function(e,t){var n,r=[],i=[],o=S[e+" "];if(!o){t||(t=a(e)),n=t.length;while(n--)(o=Ce(t[n]))[b]?r.push(o):i.push(o);(o=S(e,Ee(i,r))).selector=e}return o},u=oe.select=function(e,t,n,i){var o,u,l,c,f,p="function"==typeof e&&e,d=!i&&a(e=p.selector||e);if(n=n||[],1===d.length){if((u=d[0]=d[0].slice(0)).length>2&&"ID"===(l=u[0]).type&&9===t.nodeType&&g&&r.relative[u[1].type]){if(!(t=(r.find.ID(l.matches[0].replace(Z,ee),t)||[])[0]))return n;p&&(t=t.parentNode),e=e.slice(u.shift().value.length)}o=V.needsContext.test(e)?0:u.length;while(o--){if(l=u[o],r.relative[c=l.type])break;if((f=r.find[c])&&(i=f(l.matches[0].replace(Z,ee),K.test(u[0].type)&&ge(t.parentNode)||t))){if(u.splice(o,1),!(e=i.length&&ve(u)))return L.apply(n,i),n;break}}}return(p||s(e,d))(i,t,!g,n,!t||K.test(e)&&ge(t.parentNode)||t),n},n.sortStable=b.split("").sort(D).join("")===b,n.detectDuplicates=!!f,p(),n.sortDetached=ue(function(e){return 1&e.compareDocumentPosition(d.createElement("fieldset"))}),ue(function(e){return e.innerHTML="<a href='#'></a>","#"===e.firstChild.getAttribute("href")})||le("type|href|height|width",function(e,t,n){if(!n)return e.getAttribute(t,"type"===t.toLowerCase()?1:2)}),n.attributes&&ue(function(e){return e.innerHTML="<input/>",e.firstChild.setAttribute("value",""),""===e.firstChild.getAttribute("value")})||le("value",function(e,t,n){if(!n&&"input"===e.nodeName.toLowerCase())return e.defaultValue}),ue(function(e){return null==e.getAttribute("disabled")})||le(P,function(e,t,n){var r;if(!n)return!0===e[t]?t.toLowerCase():(r=e.getAttributeNode(t))&&r.specified?r.value:null}),oe}(e);w.find=E,w.expr=E.selectors,w.expr[":"]=w.expr.pseudos,w.uniqueSort=w.unique=E.uniqueSort,w.text=E.getText,w.isXMLDoc=E.isXML,w.contains=E.contains,w.escapeSelector=E.escape;var k=function(e,t,n){var r=[],i=void 0!==n;while((e=e[t])&&9!==e.nodeType)if(1===e.nodeType){if(i&&w(e).is(n))break;r.push(e)}return r},S=function(e,t){for(var n=[];e;e=e.nextSibling)1===e.nodeType&&e!==t&&n.push(e);return n},D=w.expr.match.needsContext;function N(e,t){return e.nodeName&&e.nodeName.toLowerCase()===t.toLowerCase()}var A=/^<([a-z][^\/\0>:\x20\t\r\n\f]*)[\x20\t\r\n\f]*\/?>(?:<\/\1>|)$/i;function j(e,t,n){return g(t)?w.grep(e,function(e,r){return!!t.call(e,r,e)!==n}):t.nodeType?w.grep(e,function(e){return e===t!==n}):"string"!=typeof t?w.grep(e,function(e){return u.call(t,e)>-1!==n}):w.filter(t,e,n)}w.filter=function(e,t,n){var r=t[0];return n&&(e=":not("+e+")"),1===t.length&&1===r.nodeType?w.find.matchesSelector(r,e)?[r]:[]:w.find.matches(e,w.grep(t,function(e){return 1===e.nodeType}))},w.fn.extend({find:function(e){var t,n,r=this.length,i=this;if("string"!=typeof e)return this.pushStack(w(e).filter(function(){for(t=0;t<r;t++)if(w.contains(i[t],this))return!0}));for(n=this.pushStack([]),t=0;t<r;t++)w.find(e,i[t],n);return r>1?w.uniqueSort(n):n},filter:function(e){return this.pushStack(j(this,e||[],!1))},not:function(e){return this.pushStack(j(this,e||[],!0))},is:function(e){return!!j(this,"string"==typeof e&&D.test(e)?w(e):e||[],!1).length}});var q,L=/^(?:\s*(<[\w\W]+>)[^>]*|#([\w-]+))$/;(w.fn.init=function(e,t,n){var i,o;if(!e)return this;if(n=n||q,"string"==typeof e){if(!(i="<"===e[0]&&">"===e[e.length-1]&&e.length>=3?[null,e,null]:L.exec(e))||!i[1]&&t)return!t||t.jquery?(t||n).find(e):this.constructor(t).find(e);if(i[1]){if(t=t instanceof w?t[0]:t,w.merge(this,w.parseHTML(i[1],t&&t.nodeType?t.ownerDocument||t:r,!0)),A.test(i[1])&&w.isPlainObject(t))for(i in t)g(this[i])?this[i](t[i]):this.attr(i,t[i]);return this}return(o=r.getElementById(i[2]))&&(this[0]=o,this.length=1),this}return e.nodeType?(this[0]=e,this.length=1,this):g(e)?void 0!==n.ready?n.ready(e):e(w):w.makeArray(e,this)}).prototype=w.fn,q=w(r);var H=/^(?:parents|prev(?:Until|All))/,O={children:!0,contents:!0,next:!0,prev:!0};w.fn.extend({has:function(e){var t=w(e,this),n=t.length;return this.filter(function(){for(var e=0;e<n;e++)if(w.contains(this,t[e]))return!0})},closest:function(e,t){var n,r=0,i=this.length,o=[],a="string"!=typeof e&&w(e);if(!D.test(e))for(;r<i;r++)for(n=this[r];n&&n!==t;n=n.parentNode)if(n.nodeType<11&&(a?a.index(n)>-1:1===n.nodeType&&w.find.matchesSelector(n,e))){o.push(n);break}return this.pushStack(o.length>1?w.uniqueSort(o):o)},index:function(e){return e?"string"==typeof e?u.call(w(e),this[0]):u.call(this,e.jquery?e[0]:e):this[0]&&this[0].parentNode?this.first().prevAll().length:-1},add:function(e,t){return this.pushStack(w.uniqueSort(w.merge(this.get(),w(e,t))))},addBack:function(e){return this.add(null==e?this.prevObject:this.prevObject.filter(e))}});function P(e,t){while((e=e[t])&&1!==e.nodeType);return e}w.each({parent:function(e){var t=e.parentNode;return t&&11!==t.nodeType?t:null},parents:function(e){return k(e,"parentNode")},parentsUntil:function(e,t,n){return k(e,"parentNode",n)},next:function(e){return P(e,"nextSibling")},prev:function(e){return P(e,"previousSibling")},nextAll:function(e){return k(e,"nextSibling")},prevAll:function(e){return k(e,"previousSibling")},nextUntil:function(e,t,n){return k(e,"nextSibling",n)},prevUntil:function(e,t,n){return k(e,"previousSibling",n)},siblings:function(e){return S((e.parentNode||{}).firstChild,e)},children:function(e){return S(e.firstChild)},contents:function(e){return N(e,"iframe")?e.contentDocument:(N(e,"template")&&(e=e.content||e),w.merge([],e.childNodes))}},function(e,t){w.fn[e]=function(n,r){var i=w.map(this,t,n);return"Until"!==e.slice(-5)&&(r=n),r&&"string"==typeof r&&(i=w.filter(r,i)),this.length>1&&(O[e]||w.uniqueSort(i),H.test(e)&&i.reverse()),this.pushStack(i)}});var M=/[^\x20\t\r\n\f]+/g;function R(e){var t={};return w.each(e.match(M)||[],function(e,n){t[n]=!0}),t}w.Callbacks=function(e){e="string"==typeof e?R(e):w.extend({},e);var t,n,r,i,o=[],a=[],s=-1,u=function(){for(i=i||e.once,r=t=!0;a.length;s=-1){n=a.shift();while(++s<o.length)!1===o[s].apply(n[0],n[1])&&e.stopOnFalse&&(s=o.length,n=!1)}e.memory||(n=!1),t=!1,i&&(o=n?[]:"")},l={add:function(){return o&&(n&&!t&&(s=o.length-1,a.push(n)),function t(n){w.each(n,function(n,r){g(r)?e.unique&&l.has(r)||o.push(r):r&&r.length&&"string"!==x(r)&&t(r)})}(arguments),n&&!t&&u()),this},remove:function(){return w.each(arguments,function(e,t){var n;while((n=w.inArray(t,o,n))>-1)o.splice(n,1),n<=s&&s--}),this},has:function(e){return e?w.inArray(e,o)>-1:o.length>0},empty:function(){return o&&(o=[]),this},disable:function(){return i=a=[],o=n="",this},disabled:function(){return!o},lock:function(){return i=a=[],n||t||(o=n=""),this},locked:function(){return!!i},fireWith:function(e,n){return i||(n=[e,(n=n||[]).slice?n.slice():n],a.push(n),t||u()),this},fire:function(){return l.fireWith(this,arguments),this},fired:function(){return!!r}};return l};function I(e){return e}function W(e){throw e}function $(e,t,n,r){var i;try{e&&g(i=e.promise)?i.call(e).done(t).fail(n):e&&g(i=e.then)?i.call(e,t,n):t.apply(void 0,[e].slice(r))}catch(e){n.apply(void 0,[e])}}w.extend({Deferred:function(t){var n=[["notify","progress",w.Callbacks("memory"),w.Callbacks("memory"),2],["resolve","done",w.Callbacks("once memory"),w.Callbacks("once memory"),0,"resolved"],["reject","fail",w.Callbacks("once memory"),w.Callbacks("once memory"),1,"rejected"]],r="pending",i={state:function(){return r},always:function(){return o.done(arguments).fail(arguments),this},"catch":function(e){return i.then(null,e)},pipe:function(){var e=arguments;return w.Deferred(function(t){w.each(n,function(n,r){var i=g(e[r[4]])&&e[r[4]];o[r[1]](function(){var e=i&&i.apply(this,arguments);e&&g(e.promise)?e.promise().progress(t.notify).done(t.resolve).fail(t.reject):t[r[0]+"With"](this,i?[e]:arguments)})}),e=null}).promise()},then:function(t,r,i){var o=0;function a(t,n,r,i){return function(){var s=this,u=arguments,l=function(){var e,l;if(!(t<o)){if((e=r.apply(s,u))===n.promise())throw new TypeError("Thenable self-resolution");l=e&&("object"==typeof e||"function"==typeof e)&&e.then,g(l)?i?l.call(e,a(o,n,I,i),a(o,n,W,i)):(o++,l.call(e,a(o,n,I,i),a(o,n,W,i),a(o,n,I,n.notifyWith))):(r!==I&&(s=void 0,u=[e]),(i||n.resolveWith)(s,u))}},c=i?l:function(){try{l()}catch(e){w.Deferred.exceptionHook&&w.Deferred.exceptionHook(e,c.stackTrace),t+1>=o&&(r!==W&&(s=void 0,u=[e]),n.rejectWith(s,u))}};t?c():(w.Deferred.getStackHook&&(c.stackTrace=w.Deferred.getStackHook()),e.setTimeout(c))}}return w.Deferred(function(e){n[0][3].add(a(0,e,g(i)?i:I,e.notifyWith)),n[1][3].add(a(0,e,g(t)?t:I)),n[2][3].add(a(0,e,g(r)?r:W))}).promise()},promise:function(e){return null!=e?w.extend(e,i):i}},o={};return w.each(n,function(e,t){var a=t[2],s=t[5];i[t[1]]=a.add,s&&a.add(function(){r=s},n[3-e][2].disable,n[3-e][3].disable,n[0][2].lock,n[0][3].lock),a.add(t[3].fire),o[t[0]]=function(){return o[t[0]+"With"](this===o?void 0:this,arguments),this},o[t[0]+"With"]=a.fireWith}),i.promise(o),t&&t.call(o,o),o},when:function(e){var t=arguments.length,n=t,r=Array(n),i=o.call(arguments),a=w.Deferred(),s=function(e){return function(n){r[e]=this,i[e]=arguments.length>1?o.call(arguments):n,--t||a.resolveWith(r,i)}};if(t<=1&&($(e,a.done(s(n)).resolve,a.reject,!t),"pending"===a.state()||g(i[n]&&i[n].then)))return a.then();while(n--)$(i[n],s(n),a.reject);return a.promise()}});var B=/^(Eval|Internal|Range|Reference|Syntax|Type|URI)Error$/;w.Deferred.exceptionHook=function(t,n){e.console&&e.console.warn&&t&&B.test(t.name)&&e.console.warn("jQuery.Deferred exception: "+t.message,t.stack,n)},w.readyException=function(t){e.setTimeout(function(){throw t})};var F=w.Deferred();w.fn.ready=function(e){return F.then(e)["catch"](function(e){w.readyException(e)}),this},w.extend({isReady:!1,readyWait:1,ready:function(e){(!0===e?--w.readyWait:w.isReady)||(w.isReady=!0,!0!==e&&--w.readyWait>0||F.resolveWith(r,[w]))}}),w.ready.then=F.then;function _(){r.removeEventListener("DOMContentLoaded",_),e.removeEventListener("load",_),w.ready()}"complete"===r.readyState||"loading"!==r.readyState&&!r.documentElement.doScroll?e.setTimeout(w.ready):(r.addEventListener("DOMContentLoaded",_),e.addEventListener("load",_));var z=function(e,t,n,r,i,o,a){var s=0,u=e.length,l=null==n;if("object"===x(n)){i=!0;for(s in n)z(e,t,s,n[s],!0,o,a)}else if(void 0!==r&&(i=!0,g(r)||(a=!0),l&&(a?(t.call(e,r),t=null):(l=t,t=function(e,t,n){return l.call(w(e),n)})),t))for(;s<u;s++)t(e[s],n,a?r:r.call(e[s],s,t(e[s],n)));return i?e:l?t.call(e):u?t(e[0],n):o},X=/^-ms-/,U=/-([a-z])/g;function V(e,t){return t.toUpperCase()}function G(e){return e.replace(X,"ms-").replace(U,V)}var Y=function(e){return 1===e.nodeType||9===e.nodeType||!+e.nodeType};function Q(){this.expando=w.expando+Q.uid++}Q.uid=1,Q.prototype={cache:function(e){var t=e[this.expando];return t||(t={},Y(e)&&(e.nodeType?e[this.expando]=t:Object.defineProperty(e,this.expando,{value:t,configurable:!0}))),t},set:function(e,t,n){var r,i=this.cache(e);if("string"==typeof t)i[G(t)]=n;else for(r in t)i[G(r)]=t[r];return i},get:function(e,t){return void 0===t?this.cache(e):e[this.expando]&&e[this.expando][G(t)]},access:function(e,t,n){return void 0===t||t&&"string"==typeof t&&void 0===n?this.get(e,t):(this.set(e,t,n),void 0!==n?n:t)},remove:function(e,t){var n,r=e[this.expando];if(void 0!==r){if(void 0!==t){n=(t=Array.isArray(t)?t.map(G):(t=G(t))in r?[t]:t.match(M)||[]).length;while(n--)delete r[t[n]]}(void 0===t||w.isEmptyObject(r))&&(e.nodeType?e[this.expando]=void 0:delete e[this.expando])}},hasData:function(e){var t=e[this.expando];return void 0!==t&&!w.isEmptyObject(t)}};var J=new Q,K=new Q,Z=/^(?:\{[\w\W]*\}|\[[\w\W]*\])$/,ee=/[A-Z]/g;function te(e){return"true"===e||"false"!==e&&("null"===e?null:e===+e+""?+e:Z.test(e)?JSON.parse(e):e)}function ne(e,t,n){var r;if(void 0===n&&1===e.nodeType)if(r="data-"+t.replace(ee,"-$&").toLowerCase(),"string"==typeof(n=e.getAttribute(r))){try{n=te(n)}catch(e){}K.set(e,t,n)}else n=void 0;return n}w.extend({hasData:function(e){return K.hasData(e)||J.hasData(e)},data:function(e,t,n){return K.access(e,t,n)},removeData:function(e,t){K.remove(e,t)},_data:function(e,t,n){return J.access(e,t,n)},_removeData:function(e,t){J.remove(e,t)}}),w.fn.extend({data:function(e,t){var n,r,i,o=this[0],a=o&&o.attributes;if(void 0===e){if(this.length&&(i=K.get(o),1===o.nodeType&&!J.get(o,"hasDataAttrs"))){n=a.length;while(n--)a[n]&&0===(r=a[n].name).indexOf("data-")&&(r=G(r.slice(5)),ne(o,r,i[r]));J.set(o,"hasDataAttrs",!0)}return i}return"object"==typeof e?this.each(function(){K.set(this,e)}):z(this,function(t){var n;if(o&&void 0===t){if(void 0!==(n=K.get(o,e)))return n;if(void 0!==(n=ne(o,e)))return n}else this.each(function(){K.set(this,e,t)})},null,t,arguments.length>1,null,!0)},removeData:function(e){return this.each(function(){K.remove(this,e)})}}),w.extend({queue:function(e,t,n){var r;if(e)return t=(t||"fx")+"queue",r=J.get(e,t),n&&(!r||Array.isArray(n)?r=J.access(e,t,w.makeArray(n)):r.push(n)),r||[]},dequeue:function(e,t){t=t||"fx";var n=w.queue(e,t),r=n.length,i=n.shift(),o=w._queueHooks(e,t),a=function(){w.dequeue(e,t)};"inprogress"===i&&(i=n.shift(),r--),i&&("fx"===t&&n.unshift("inprogress"),delete o.stop,i.call(e,a,o)),!r&&o&&o.empty.fire()},_queueHooks:function(e,t){var n=t+"queueHooks";return J.get(e,n)||J.access(e,n,{empty:w.Callbacks("once memory").add(function(){J.remove(e,[t+"queue",n])})})}}),w.fn.extend({queue:function(e,t){var n=2;return"string"!=typeof e&&(t=e,e="fx",n--),arguments.length<n?w.queue(this[0],e):void 0===t?this:this.each(function(){var n=w.queue(this,e,t);w._queueHooks(this,e),"fx"===e&&"inprogress"!==n[0]&&w.dequeue(this,e)})},dequeue:function(e){return this.each(function(){w.dequeue(this,e)})},clearQueue:function(e){return this.queue(e||"fx",[])},promise:function(e,t){var n,r=1,i=w.Deferred(),o=this,a=this.length,s=function(){--r||i.resolveWith(o,[o])};"string"!=typeof e&&(t=e,e=void 0),e=e||"fx";while(a--)(n=J.get(o[a],e+"queueHooks"))&&n.empty&&(r++,n.empty.add(s));return s(),i.promise(t)}});var re=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,ie=new RegExp("^(?:([+-])=|)("+re+")([a-z%]*)$","i"),oe=["Top","Right","Bottom","Left"],ae=function(e,t){return"none"===(e=t||e).style.display||""===e.style.display&&w.contains(e.ownerDocument,e)&&"none"===w.css(e,"display")},se=function(e,t,n,r){var i,o,a={};for(o in t)a[o]=e.style[o],e.style[o]=t[o];i=n.apply(e,r||[]);for(o in t)e.style[o]=a[o];return i};function ue(e,t,n,r){var i,o,a=20,s=r?function(){return r.cur()}:function(){return w.css(e,t,"")},u=s(),l=n&&n[3]||(w.cssNumber[t]?"":"px"),c=(w.cssNumber[t]||"px"!==l&&+u)&&ie.exec(w.css(e,t));if(c&&c[3]!==l){u/=2,l=l||c[3],c=+u||1;while(a--)w.style(e,t,c+l),(1-o)*(1-(o=s()/u||.5))<=0&&(a=0),c/=o;c*=2,w.style(e,t,c+l),n=n||[]}return n&&(c=+c||+u||0,i=n[1]?c+(n[1]+1)*n[2]:+n[2],r&&(r.unit=l,r.start=c,r.end=i)),i}var le={};function ce(e){var t,n=e.ownerDocument,r=e.nodeName,i=le[r];return i||(t=n.body.appendChild(n.createElement(r)),i=w.css(t,"display"),t.parentNode.removeChild(t),"none"===i&&(i="block"),le[r]=i,i)}function fe(e,t){for(var n,r,i=[],o=0,a=e.length;o<a;o++)(r=e[o]).style&&(n=r.style.display,t?("none"===n&&(i[o]=J.get(r,"display")||null,i[o]||(r.style.display="")),""===r.style.display&&ae(r)&&(i[o]=ce(r))):"none"!==n&&(i[o]="none",J.set(r,"display",n)));for(o=0;o<a;o++)null!=i[o]&&(e[o].style.display=i[o]);return e}w.fn.extend({show:function(){return fe(this,!0)},hide:function(){return fe(this)},toggle:function(e){return"boolean"==typeof e?e?this.show():this.hide():this.each(function(){ae(this)?w(this).show():w(this).hide()})}});var pe=/^(?:checkbox|radio)$/i,de=/<([a-z][^\/\0>\x20\t\r\n\f]+)/i,he=/^$|^module$|\/(?:java|ecma)script/i,ge={option:[1,"<select multiple='multiple'>","</select>"],thead:[1,"<table>","</table>"],col:[2,"<table><colgroup>","</colgroup></table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],_default:[0,"",""]};ge.optgroup=ge.option,ge.tbody=ge.tfoot=ge.colgroup=ge.caption=ge.thead,ge.th=ge.td;function ye(e,t){var n;return n="undefined"!=typeof e.getElementsByTagName?e.getElementsByTagName(t||"*"):"undefined"!=typeof e.querySelectorAll?e.querySelectorAll(t||"*"):[],void 0===t||t&&N(e,t)?w.merge([e],n):n}function ve(e,t){for(var n=0,r=e.length;n<r;n++)J.set(e[n],"globalEval",!t||J.get(t[n],"globalEval"))}var me=/<|&#?\w+;/;function xe(e,t,n,r,i){for(var o,a,s,u,l,c,f=t.createDocumentFragment(),p=[],d=0,h=e.length;d<h;d++)if((o=e[d])||0===o)if("object"===x(o))w.merge(p,o.nodeType?[o]:o);else if(me.test(o)){a=a||f.appendChild(t.createElement("div")),s=(de.exec(o)||["",""])[1].toLowerCase(),u=ge[s]||ge._default,a.innerHTML=u[1]+w.htmlPrefilter(o)+u[2],c=u[0];while(c--)a=a.lastChild;w.merge(p,a.childNodes),(a=f.firstChild).textContent=""}else p.push(t.createTextNode(o));f.textContent="",d=0;while(o=p[d++])if(r&&w.inArray(o,r)>-1)i&&i.push(o);else if(l=w.contains(o.ownerDocument,o),a=ye(f.appendChild(o),"script"),l&&ve(a),n){c=0;while(o=a[c++])he.test(o.type||"")&&n.push(o)}return f}!function(){var e=r.createDocumentFragment().appendChild(r.createElement("div")),t=r.createElement("input");t.setAttribute("type","radio"),t.setAttribute("checked","checked"),t.setAttribute("name","t"),e.appendChild(t),h.checkClone=e.cloneNode(!0).cloneNode(!0).lastChild.checked,e.innerHTML="<textarea>x</textarea>",h.noCloneChecked=!!e.cloneNode(!0).lastChild.defaultValue}();var be=r.documentElement,we=/^key/,Te=/^(?:mouse|pointer|contextmenu|drag|drop)|click/,Ce=/^([^.]*)(?:\.(.+)|)/;function Ee(){return!0}function ke(){return!1}function Se(){try{return r.activeElement}catch(e){}}function De(e,t,n,r,i,o){var a,s;if("object"==typeof t){"string"!=typeof n&&(r=r||n,n=void 0);for(s in t)De(e,s,n,r,t[s],o);return e}if(null==r&&null==i?(i=n,r=n=void 0):null==i&&("string"==typeof n?(i=r,r=void 0):(i=r,r=n,n=void 0)),!1===i)i=ke;else if(!i)return e;return 1===o&&(a=i,(i=function(e){return w().off(e),a.apply(this,arguments)}).guid=a.guid||(a.guid=w.guid++)),e.each(function(){w.event.add(this,t,i,r,n)})}w.event={global:{},add:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=J.get(e);if(y){n.handler&&(n=(o=n).handler,i=o.selector),i&&w.find.matchesSelector(be,i),n.guid||(n.guid=w.guid++),(u=y.events)||(u=y.events={}),(a=y.handle)||(a=y.handle=function(t){return"undefined"!=typeof w&&w.event.triggered!==t.type?w.event.dispatch.apply(e,arguments):void 0}),l=(t=(t||"").match(M)||[""]).length;while(l--)d=g=(s=Ce.exec(t[l])||[])[1],h=(s[2]||"").split(".").sort(),d&&(f=w.event.special[d]||{},d=(i?f.delegateType:f.bindType)||d,f=w.event.special[d]||{},c=w.extend({type:d,origType:g,data:r,handler:n,guid:n.guid,selector:i,needsContext:i&&w.expr.match.needsContext.test(i),namespace:h.join(".")},o),(p=u[d])||((p=u[d]=[]).delegateCount=0,f.setup&&!1!==f.setup.call(e,r,h,a)||e.addEventListener&&e.addEventListener(d,a)),f.add&&(f.add.call(e,c),c.handler.guid||(c.handler.guid=n.guid)),i?p.splice(p.delegateCount++,0,c):p.push(c),w.event.global[d]=!0)}},remove:function(e,t,n,r,i){var o,a,s,u,l,c,f,p,d,h,g,y=J.hasData(e)&&J.get(e);if(y&&(u=y.events)){l=(t=(t||"").match(M)||[""]).length;while(l--)if(s=Ce.exec(t[l])||[],d=g=s[1],h=(s[2]||"").split(".").sort(),d){f=w.event.special[d]||{},p=u[d=(r?f.delegateType:f.bindType)||d]||[],s=s[2]&&new RegExp("(^|\\.)"+h.join("\\.(?:.*\\.|)")+"(\\.|$)"),a=o=p.length;while(o--)c=p[o],!i&&g!==c.origType||n&&n.guid!==c.guid||s&&!s.test(c.namespace)||r&&r!==c.selector&&("**"!==r||!c.selector)||(p.splice(o,1),c.selector&&p.delegateCount--,f.remove&&f.remove.call(e,c));a&&!p.length&&(f.teardown&&!1!==f.teardown.call(e,h,y.handle)||w.removeEvent(e,d,y.handle),delete u[d])}else for(d in u)w.event.remove(e,d+t[l],n,r,!0);w.isEmptyObject(u)&&J.remove(e,"handle events")}},dispatch:function(e){var t=w.event.fix(e),n,r,i,o,a,s,u=new Array(arguments.length),l=(J.get(this,"events")||{})[t.type]||[],c=w.event.special[t.type]||{};for(u[0]=t,n=1;n<arguments.length;n++)u[n]=arguments[n];if(t.delegateTarget=this,!c.preDispatch||!1!==c.preDispatch.call(this,t)){s=w.event.handlers.call(this,t,l),n=0;while((o=s[n++])&&!t.isPropagationStopped()){t.currentTarget=o.elem,r=0;while((a=o.handlers[r++])&&!t.isImmediatePropagationStopped())t.rnamespace&&!t.rnamespace.test(a.namespace)||(t.handleObj=a,t.data=a.data,void 0!==(i=((w.event.special[a.origType]||{}).handle||a.handler).apply(o.elem,u))&&!1===(t.result=i)&&(t.preventDefault(),t.stopPropagation()))}return c.postDispatch&&c.postDispatch.call(this,t),t.result}},handlers:function(e,t){var n,r,i,o,a,s=[],u=t.delegateCount,l=e.target;if(u&&l.nodeType&&!("click"===e.type&&e.button>=1))for(;l!==this;l=l.parentNode||this)if(1===l.nodeType&&("click"!==e.type||!0!==l.disabled)){for(o=[],a={},n=0;n<u;n++)void 0===a[i=(r=t[n]).selector+" "]&&(a[i]=r.needsContext?w(i,this).index(l)>-1:w.find(i,this,null,[l]).length),a[i]&&o.push(r);o.length&&s.push({elem:l,handlers:o})}return l=this,u<t.length&&s.push({elem:l,handlers:t.slice(u)}),s},addProp:function(e,t){Object.defineProperty(w.Event.prototype,e,{enumerable:!0,configurable:!0,get:g(t)?function(){if(this.originalEvent)return t(this.originalEvent)}:function(){if(this.originalEvent)return this.originalEvent[e]},set:function(t){Object.defineProperty(this,e,{enumerable:!0,configurable:!0,writable:!0,value:t})}})},fix:function(e){return e[w.expando]?e:new w.Event(e)},special:{load:{noBubble:!0},focus:{trigger:function(){if(this!==Se()&&this.focus)return this.focus(),!1},delegateType:"focusin"},blur:{trigger:function(){if(this===Se()&&this.blur)return this.blur(),!1},delegateType:"focusout"},click:{trigger:function(){if("checkbox"===this.type&&this.click&&N(this,"input"))return this.click(),!1},_default:function(e){return N(e.target,"a")}},beforeunload:{postDispatch:function(e){void 0!==e.result&&e.originalEvent&&(e.originalEvent.returnValue=e.result)}}}},w.removeEvent=function(e,t,n){e.removeEventListener&&e.removeEventListener(t,n)},w.Event=function(e,t){if(!(this instanceof w.Event))return new w.Event(e,t);e&&e.type?(this.originalEvent=e,this.type=e.type,this.isDefaultPrevented=e.defaultPrevented||void 0===e.defaultPrevented&&!1===e.returnValue?Ee:ke,this.target=e.target&&3===e.target.nodeType?e.target.parentNode:e.target,this.currentTarget=e.currentTarget,this.relatedTarget=e.relatedTarget):this.type=e,t&&w.extend(this,t),this.timeStamp=e&&e.timeStamp||Date.now(),this[w.expando]=!0},w.Event.prototype={constructor:w.Event,isDefaultPrevented:ke,isPropagationStopped:ke,isImmediatePropagationStopped:ke,isSimulated:!1,preventDefault:function(){var e=this.originalEvent;this.isDefaultPrevented=Ee,e&&!this.isSimulated&&e.preventDefault()},stopPropagation:function(){var e=this.originalEvent;this.isPropagationStopped=Ee,e&&!this.isSimulated&&e.stopPropagation()},stopImmediatePropagation:function(){var e=this.originalEvent;this.isImmediatePropagationStopped=Ee,e&&!this.isSimulated&&e.stopImmediatePropagation(),this.stopPropagation()}},w.each({altKey:!0,bubbles:!0,cancelable:!0,changedTouches:!0,ctrlKey:!0,detail:!0,eventPhase:!0,metaKey:!0,pageX:!0,pageY:!0,shiftKey:!0,view:!0,"char":!0,charCode:!0,key:!0,keyCode:!0,button:!0,buttons:!0,clientX:!0,clientY:!0,offsetX:!0,offsetY:!0,pointerId:!0,pointerType:!0,screenX:!0,screenY:!0,targetTouches:!0,toElement:!0,touches:!0,which:function(e){var t=e.button;return null==e.which&&we.test(e.type)?null!=e.charCode?e.charCode:e.keyCode:!e.which&&void 0!==t&&Te.test(e.type)?1&t?1:2&t?3:4&t?2:0:e.which}},w.event.addProp),w.each({mouseenter:"mouseover",mouseleave:"mouseout",pointerenter:"pointerover",pointerleave:"pointerout"},function(e,t){w.event.special[e]={delegateType:t,bindType:t,handle:function(e){var n,r=this,i=e.relatedTarget,o=e.handleObj;return i&&(i===r||w.contains(r,i))||(e.type=o.origType,n=o.handler.apply(this,arguments),e.type=t),n}}}),w.fn.extend({on:function(e,t,n,r){return De(this,e,t,n,r)},one:function(e,t,n,r){return De(this,e,t,n,r,1)},off:function(e,t,n){var r,i;if(e&&e.preventDefault&&e.handleObj)return r=e.handleObj,w(e.delegateTarget).off(r.namespace?r.origType+"."+r.namespace:r.origType,r.selector,r.handler),this;if("object"==typeof e){for(i in e)this.off(i,t,e[i]);return this}return!1!==t&&"function"!=typeof t||(n=t,t=void 0),!1===n&&(n=ke),this.each(function(){w.event.remove(this,e,n,t)})}});var Ne=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([a-z][^\/\0>\x20\t\r\n\f]*)[^>]*)\/>/gi,Ae=/<script|<style|<link/i,je=/checked\s*(?:[^=]|=\s*.checked.)/i,qe=/^\s*<!(?:\[CDATA\[|--)|(?:\]\]|--)>\s*$/g;function Le(e,t){return N(e,"table")&&N(11!==t.nodeType?t:t.firstChild,"tr")?w(e).children("tbody")[0]||e:e}function He(e){return e.type=(null!==e.getAttribute("type"))+"/"+e.type,e}function Oe(e){return"true/"===(e.type||"").slice(0,5)?e.type=e.type.slice(5):e.removeAttribute("type"),e}function Pe(e,t){var n,r,i,o,a,s,u,l;if(1===t.nodeType){if(J.hasData(e)&&(o=J.access(e),a=J.set(t,o),l=o.events)){delete a.handle,a.events={};for(i in l)for(n=0,r=l[i].length;n<r;n++)w.event.add(t,i,l[i][n])}K.hasData(e)&&(s=K.access(e),u=w.extend({},s),K.set(t,u))}}function Me(e,t){var n=t.nodeName.toLowerCase();"input"===n&&pe.test(e.type)?t.checked=e.checked:"input"!==n&&"textarea"!==n||(t.defaultValue=e.defaultValue)}function Re(e,t,n,r){t=a.apply([],t);var i,o,s,u,l,c,f=0,p=e.length,d=p-1,y=t[0],v=g(y);if(v||p>1&&"string"==typeof y&&!h.checkClone&&je.test(y))return e.each(function(i){var o=e.eq(i);v&&(t[0]=y.call(this,i,o.html())),Re(o,t,n,r)});if(p&&(i=xe(t,e[0].ownerDocument,!1,e,r),o=i.firstChild,1===i.childNodes.length&&(i=o),o||r)){for(u=(s=w.map(ye(i,"script"),He)).length;f<p;f++)l=i,f!==d&&(l=w.clone(l,!0,!0),u&&w.merge(s,ye(l,"script"))),n.call(e[f],l,f);if(u)for(c=s[s.length-1].ownerDocument,w.map(s,Oe),f=0;f<u;f++)l=s[f],he.test(l.type||"")&&!J.access(l,"globalEval")&&w.contains(c,l)&&(l.src&&"module"!==(l.type||"").toLowerCase()?w._evalUrl&&w._evalUrl(l.src):m(l.textContent.replace(qe,""),c,l))}return e}function Ie(e,t,n){for(var r,i=t?w.filter(t,e):e,o=0;null!=(r=i[o]);o++)n||1!==r.nodeType||w.cleanData(ye(r)),r.parentNode&&(n&&w.contains(r.ownerDocument,r)&&ve(ye(r,"script")),r.parentNode.removeChild(r));return e}w.extend({htmlPrefilter:function(e){return e.replace(Ne,"<$1></$2>")},clone:function(e,t,n){var r,i,o,a,s=e.cloneNode(!0),u=w.contains(e.ownerDocument,e);if(!(h.noCloneChecked||1!==e.nodeType&&11!==e.nodeType||w.isXMLDoc(e)))for(a=ye(s),r=0,i=(o=ye(e)).length;r<i;r++)Me(o[r],a[r]);if(t)if(n)for(o=o||ye(e),a=a||ye(s),r=0,i=o.length;r<i;r++)Pe(o[r],a[r]);else Pe(e,s);return(a=ye(s,"script")).length>0&&ve(a,!u&&ye(e,"script")),s},cleanData:function(e){for(var t,n,r,i=w.event.special,o=0;void 0!==(n=e[o]);o++)if(Y(n)){if(t=n[J.expando]){if(t.events)for(r in t.events)i[r]?w.event.remove(n,r):w.removeEvent(n,r,t.handle);n[J.expando]=void 0}n[K.expando]&&(n[K.expando]=void 0)}}}),w.fn.extend({detach:function(e){return Ie(this,e,!0)},remove:function(e){return Ie(this,e)},text:function(e){return z(this,function(e){return void 0===e?w.text(this):this.empty().each(function(){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||(this.textContent=e)})},null,e,arguments.length)},append:function(){return Re(this,arguments,function(e){1!==this.nodeType&&11!==this.nodeType&&9!==this.nodeType||Le(this,e).appendChild(e)})},prepend:function(){return Re(this,arguments,function(e){if(1===this.nodeType||11===this.nodeType||9===this.nodeType){var t=Le(this,e);t.insertBefore(e,t.firstChild)}})},before:function(){return Re(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this)})},after:function(){return Re(this,arguments,function(e){this.parentNode&&this.parentNode.insertBefore(e,this.nextSibling)})},empty:function(){for(var e,t=0;null!=(e=this[t]);t++)1===e.nodeType&&(w.cleanData(ye(e,!1)),e.textContent="");return this},clone:function(e,t){return e=null!=e&&e,t=null==t?e:t,this.map(function(){return w.clone(this,e,t)})},html:function(e){return z(this,function(e){var t=this[0]||{},n=0,r=this.length;if(void 0===e&&1===t.nodeType)return t.innerHTML;if("string"==typeof e&&!Ae.test(e)&&!ge[(de.exec(e)||["",""])[1].toLowerCase()]){e=w.htmlPrefilter(e);try{for(;n<r;n++)1===(t=this[n]||{}).nodeType&&(w.cleanData(ye(t,!1)),t.innerHTML=e);t=0}catch(e){}}t&&this.empty().append(e)},null,e,arguments.length)},replaceWith:function(){var e=[];return Re(this,arguments,function(t){var n=this.parentNode;w.inArray(this,e)<0&&(w.cleanData(ye(this)),n&&n.replaceChild(t,this))},e)}}),w.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(e,t){w.fn[e]=function(e){for(var n,r=[],i=w(e),o=i.length-1,a=0;a<=o;a++)n=a===o?this:this.clone(!0),w(i[a])[t](n),s.apply(r,n.get());return this.pushStack(r)}});var We=new RegExp("^("+re+")(?!px)[a-z%]+$","i"),$e=function(t){var n=t.ownerDocument.defaultView;return n&&n.opener||(n=e),n.getComputedStyle(t)},Be=new RegExp(oe.join("|"),"i");!function(){function t(){if(c){l.style.cssText="position:absolute;left:-11111px;width:60px;margin-top:1px;padding:0;border:0",c.style.cssText="position:relative;display:block;box-sizing:border-box;overflow:scroll;margin:auto;border:1px;padding:1px;width:60%;top:1%",be.appendChild(l).appendChild(c);var t=e.getComputedStyle(c);i="1%"!==t.top,u=12===n(t.marginLeft),c.style.right="60%",s=36===n(t.right),o=36===n(t.width),c.style.position="absolute",a=36===c.offsetWidth||"absolute",be.removeChild(l),c=null}}function n(e){return Math.round(parseFloat(e))}var i,o,a,s,u,l=r.createElement("div"),c=r.createElement("div");c.style&&(c.style.backgroundClip="content-box",c.cloneNode(!0).style.backgroundClip="",h.clearCloneStyle="content-box"===c.style.backgroundClip,w.extend(h,{boxSizingReliable:function(){return t(),o},pixelBoxStyles:function(){return t(),s},pixelPosition:function(){return t(),i},reliableMarginLeft:function(){return t(),u},scrollboxSize:function(){return t(),a}}))}();function Fe(e,t,n){var r,i,o,a,s=e.style;return(n=n||$e(e))&&(""!==(a=n.getPropertyValue(t)||n[t])||w.contains(e.ownerDocument,e)||(a=w.style(e,t)),!h.pixelBoxStyles()&&We.test(a)&&Be.test(t)&&(r=s.width,i=s.minWidth,o=s.maxWidth,s.minWidth=s.maxWidth=s.width=a,a=n.width,s.width=r,s.minWidth=i,s.maxWidth=o)),void 0!==a?a+"":a}function _e(e,t){return{get:function(){if(!e())return(this.get=t).apply(this,arguments);delete this.get}}}var ze=/^(none|table(?!-c[ea]).+)/,Xe=/^--/,Ue={position:"absolute",visibility:"hidden",display:"block"},Ve={letterSpacing:"0",fontWeight:"400"},Ge=["Webkit","Moz","ms"],Ye=r.createElement("div").style;function Qe(e){if(e in Ye)return e;var t=e[0].toUpperCase()+e.slice(1),n=Ge.length;while(n--)if((e=Ge[n]+t)in Ye)return e}function Je(e){var t=w.cssProps[e];return t||(t=w.cssProps[e]=Qe(e)||e),t}function Ke(e,t,n){var r=ie.exec(t);return r?Math.max(0,r[2]-(n||0))+(r[3]||"px"):t}function Ze(e,t,n,r,i,o){var a="width"===t?1:0,s=0,u=0;if(n===(r?"border":"content"))return 0;for(;a<4;a+=2)"margin"===n&&(u+=w.css(e,n+oe[a],!0,i)),r?("content"===n&&(u-=w.css(e,"padding"+oe[a],!0,i)),"margin"!==n&&(u-=w.css(e,"border"+oe[a]+"Width",!0,i))):(u+=w.css(e,"padding"+oe[a],!0,i),"padding"!==n?u+=w.css(e,"border"+oe[a]+"Width",!0,i):s+=w.css(e,"border"+oe[a]+"Width",!0,i));return!r&&o>=0&&(u+=Math.max(0,Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-o-u-s-.5))),u}function et(e,t,n){var r=$e(e),i=Fe(e,t,r),o="border-box"===w.css(e,"boxSizing",!1,r),a=o;if(We.test(i)){if(!n)return i;i="auto"}return a=a&&(h.boxSizingReliable()||i===e.style[t]),("auto"===i||!parseFloat(i)&&"inline"===w.css(e,"display",!1,r))&&(i=e["offset"+t[0].toUpperCase()+t.slice(1)],a=!0),(i=parseFloat(i)||0)+Ze(e,t,n||(o?"border":"content"),a,r,i)+"px"}w.extend({cssHooks:{opacity:{get:function(e,t){if(t){var n=Fe(e,"opacity");return""===n?"1":n}}}},cssNumber:{animationIterationCount:!0,columnCount:!0,fillOpacity:!0,flexGrow:!0,flexShrink:!0,fontWeight:!0,lineHeight:!0,opacity:!0,order:!0,orphans:!0,widows:!0,zIndex:!0,zoom:!0},cssProps:{},style:function(e,t,n,r){if(e&&3!==e.nodeType&&8!==e.nodeType&&e.style){var i,o,a,s=G(t),u=Xe.test(t),l=e.style;if(u||(t=Je(s)),a=w.cssHooks[t]||w.cssHooks[s],void 0===n)return a&&"get"in a&&void 0!==(i=a.get(e,!1,r))?i:l[t];"string"==(o=typeof n)&&(i=ie.exec(n))&&i[1]&&(n=ue(e,t,i),o="number"),null!=n&&n===n&&("number"===o&&(n+=i&&i[3]||(w.cssNumber[s]?"":"px")),h.clearCloneStyle||""!==n||0!==t.indexOf("background")||(l[t]="inherit"),a&&"set"in a&&void 0===(n=a.set(e,n,r))||(u?l.setProperty(t,n):l[t]=n))}},css:function(e,t,n,r){var i,o,a,s=G(t);return Xe.test(t)||(t=Je(s)),(a=w.cssHooks[t]||w.cssHooks[s])&&"get"in a&&(i=a.get(e,!0,n)),void 0===i&&(i=Fe(e,t,r)),"normal"===i&&t in Ve&&(i=Ve[t]),""===n||n?(o=parseFloat(i),!0===n||isFinite(o)?o||0:i):i}}),w.each(["height","width"],function(e,t){w.cssHooks[t]={get:function(e,n,r){if(n)return!ze.test(w.css(e,"display"))||e.getClientRects().length&&e.getBoundingClientRect().width?et(e,t,r):se(e,Ue,function(){return et(e,t,r)})},set:function(e,n,r){var i,o=$e(e),a="border-box"===w.css(e,"boxSizing",!1,o),s=r&&Ze(e,t,r,a,o);return a&&h.scrollboxSize()===o.position&&(s-=Math.ceil(e["offset"+t[0].toUpperCase()+t.slice(1)]-parseFloat(o[t])-Ze(e,t,"border",!1,o)-.5)),s&&(i=ie.exec(n))&&"px"!==(i[3]||"px")&&(e.style[t]=n,n=w.css(e,t)),Ke(e,n,s)}}}),w.cssHooks.marginLeft=_e(h.reliableMarginLeft,function(e,t){if(t)return(parseFloat(Fe(e,"marginLeft"))||e.getBoundingClientRect().left-se(e,{marginLeft:0},function(){return e.getBoundingClientRect().left}))+"px"}),w.each({margin:"",padding:"",border:"Width"},function(e,t){w.cssHooks[e+t]={expand:function(n){for(var r=0,i={},o="string"==typeof n?n.split(" "):[n];r<4;r++)i[e+oe[r]+t]=o[r]||o[r-2]||o[0];return i}},"margin"!==e&&(w.cssHooks[e+t].set=Ke)}),w.fn.extend({css:function(e,t){return z(this,function(e,t,n){var r,i,o={},a=0;if(Array.isArray(t)){for(r=$e(e),i=t.length;a<i;a++)o[t[a]]=w.css(e,t[a],!1,r);return o}return void 0!==n?w.style(e,t,n):w.css(e,t)},e,t,arguments.length>1)}});function tt(e,t,n,r,i){return new tt.prototype.init(e,t,n,r,i)}w.Tween=tt,tt.prototype={constructor:tt,init:function(e,t,n,r,i,o){this.elem=e,this.prop=n,this.easing=i||w.easing._default,this.options=t,this.start=this.now=this.cur(),this.end=r,this.unit=o||(w.cssNumber[n]?"":"px")},cur:function(){var e=tt.propHooks[this.prop];return e&&e.get?e.get(this):tt.propHooks._default.get(this)},run:function(e){var t,n=tt.propHooks[this.prop];return this.options.duration?this.pos=t=w.easing[this.easing](e,this.options.duration*e,0,1,this.options.duration):this.pos=t=e,this.now=(this.end-this.start)*t+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),n&&n.set?n.set(this):tt.propHooks._default.set(this),this}},tt.prototype.init.prototype=tt.prototype,tt.propHooks={_default:{get:function(e){var t;return 1!==e.elem.nodeType||null!=e.elem[e.prop]&&null==e.elem.style[e.prop]?e.elem[e.prop]:(t=w.css(e.elem,e.prop,""))&&"auto"!==t?t:0},set:function(e){w.fx.step[e.prop]?w.fx.step[e.prop](e):1!==e.elem.nodeType||null==e.elem.style[w.cssProps[e.prop]]&&!w.cssHooks[e.prop]?e.elem[e.prop]=e.now:w.style(e.elem,e.prop,e.now+e.unit)}}},tt.propHooks.scrollTop=tt.propHooks.scrollLeft={set:function(e){e.elem.nodeType&&e.elem.parentNode&&(e.elem[e.prop]=e.now)}},w.easing={linear:function(e){return e},swing:function(e){return.5-Math.cos(e*Math.PI)/2},_default:"swing"},w.fx=tt.prototype.init,w.fx.step={};var nt,rt,it=/^(?:toggle|show|hide)$/,ot=/queueHooks$/;function at(){rt&&(!1===r.hidden&&e.requestAnimationFrame?e.requestAnimationFrame(at):e.setTimeout(at,w.fx.interval),w.fx.tick())}function st(){return e.setTimeout(function(){nt=void 0}),nt=Date.now()}function ut(e,t){var n,r=0,i={height:e};for(t=t?1:0;r<4;r+=2-t)i["margin"+(n=oe[r])]=i["padding"+n]=e;return t&&(i.opacity=i.width=e),i}function lt(e,t,n){for(var r,i=(pt.tweeners[t]||[]).concat(pt.tweeners["*"]),o=0,a=i.length;o<a;o++)if(r=i[o].call(n,t,e))return r}function ct(e,t,n){var r,i,o,a,s,u,l,c,f="width"in t||"height"in t,p=this,d={},h=e.style,g=e.nodeType&&ae(e),y=J.get(e,"fxshow");n.queue||(null==(a=w._queueHooks(e,"fx")).unqueued&&(a.unqueued=0,s=a.empty.fire,a.empty.fire=function(){a.unqueued||s()}),a.unqueued++,p.always(function(){p.always(function(){a.unqueued--,w.queue(e,"fx").length||a.empty.fire()})}));for(r in t)if(i=t[r],it.test(i)){if(delete t[r],o=o||"toggle"===i,i===(g?"hide":"show")){if("show"!==i||!y||void 0===y[r])continue;g=!0}d[r]=y&&y[r]||w.style(e,r)}if((u=!w.isEmptyObject(t))||!w.isEmptyObject(d)){f&&1===e.nodeType&&(n.overflow=[h.overflow,h.overflowX,h.overflowY],null==(l=y&&y.display)&&(l=J.get(e,"display")),"none"===(c=w.css(e,"display"))&&(l?c=l:(fe([e],!0),l=e.style.display||l,c=w.css(e,"display"),fe([e]))),("inline"===c||"inline-block"===c&&null!=l)&&"none"===w.css(e,"float")&&(u||(p.done(function(){h.display=l}),null==l&&(c=h.display,l="none"===c?"":c)),h.display="inline-block")),n.overflow&&(h.overflow="hidden",p.always(function(){h.overflow=n.overflow[0],h.overflowX=n.overflow[1],h.overflowY=n.overflow[2]})),u=!1;for(r in d)u||(y?"hidden"in y&&(g=y.hidden):y=J.access(e,"fxshow",{display:l}),o&&(y.hidden=!g),g&&fe([e],!0),p.done(function(){g||fe([e]),J.remove(e,"fxshow");for(r in d)w.style(e,r,d[r])})),u=lt(g?y[r]:0,r,p),r in y||(y[r]=u.start,g&&(u.end=u.start,u.start=0))}}function ft(e,t){var n,r,i,o,a;for(n in e)if(r=G(n),i=t[r],o=e[n],Array.isArray(o)&&(i=o[1],o=e[n]=o[0]),n!==r&&(e[r]=o,delete e[n]),(a=w.cssHooks[r])&&"expand"in a){o=a.expand(o),delete e[r];for(n in o)n in e||(e[n]=o[n],t[n]=i)}else t[r]=i}function pt(e,t,n){var r,i,o=0,a=pt.prefilters.length,s=w.Deferred().always(function(){delete u.elem}),u=function(){if(i)return!1;for(var t=nt||st(),n=Math.max(0,l.startTime+l.duration-t),r=1-(n/l.duration||0),o=0,a=l.tweens.length;o<a;o++)l.tweens[o].run(r);return s.notifyWith(e,[l,r,n]),r<1&&a?n:(a||s.notifyWith(e,[l,1,0]),s.resolveWith(e,[l]),!1)},l=s.promise({elem:e,props:w.extend({},t),opts:w.extend(!0,{specialEasing:{},easing:w.easing._default},n),originalProperties:t,originalOptions:n,startTime:nt||st(),duration:n.duration,tweens:[],createTween:function(t,n){var r=w.Tween(e,l.opts,t,n,l.opts.specialEasing[t]||l.opts.easing);return l.tweens.push(r),r},stop:function(t){var n=0,r=t?l.tweens.length:0;if(i)return this;for(i=!0;n<r;n++)l.tweens[n].run(1);return t?(s.notifyWith(e,[l,1,0]),s.resolveWith(e,[l,t])):s.rejectWith(e,[l,t]),this}}),c=l.props;for(ft(c,l.opts.specialEasing);o<a;o++)if(r=pt.prefilters[o].call(l,e,c,l.opts))return g(r.stop)&&(w._queueHooks(l.elem,l.opts.queue).stop=r.stop.bind(r)),r;return w.map(c,lt,l),g(l.opts.start)&&l.opts.start.call(e,l),l.progress(l.opts.progress).done(l.opts.done,l.opts.complete).fail(l.opts.fail).always(l.opts.always),w.fx.timer(w.extend(u,{elem:e,anim:l,queue:l.opts.queue})),l}w.Animation=w.extend(pt,{tweeners:{"*":[function(e,t){var n=this.createTween(e,t);return ue(n.elem,e,ie.exec(t),n),n}]},tweener:function(e,t){g(e)?(t=e,e=["*"]):e=e.match(M);for(var n,r=0,i=e.length;r<i;r++)n=e[r],pt.tweeners[n]=pt.tweeners[n]||[],pt.tweeners[n].unshift(t)},prefilters:[ct],prefilter:function(e,t){t?pt.prefilters.unshift(e):pt.prefilters.push(e)}}),w.speed=function(e,t,n){var r=e&&"object"==typeof e?w.extend({},e):{complete:n||!n&&t||g(e)&&e,duration:e,easing:n&&t||t&&!g(t)&&t};return w.fx.off?r.duration=0:"number"!=typeof r.duration&&(r.duration in w.fx.speeds?r.duration=w.fx.speeds[r.duration]:r.duration=w.fx.speeds._default),null!=r.queue&&!0!==r.queue||(r.queue="fx"),r.old=r.complete,r.complete=function(){g(r.old)&&r.old.call(this),r.queue&&w.dequeue(this,r.queue)},r},w.fn.extend({fadeTo:function(e,t,n,r){return this.filter(ae).css("opacity",0).show().end().animate({opacity:t},e,n,r)},animate:function(e,t,n,r){var i=w.isEmptyObject(e),o=w.speed(t,n,r),a=function(){var t=pt(this,w.extend({},e),o);(i||J.get(this,"finish"))&&t.stop(!0)};return a.finish=a,i||!1===o.queue?this.each(a):this.queue(o.queue,a)},stop:function(e,t,n){var r=function(e){var t=e.stop;delete e.stop,t(n)};return"string"!=typeof e&&(n=t,t=e,e=void 0),t&&!1!==e&&this.queue(e||"fx",[]),this.each(function(){var t=!0,i=null!=e&&e+"queueHooks",o=w.timers,a=J.get(this);if(i)a[i]&&a[i].stop&&r(a[i]);else for(i in a)a[i]&&a[i].stop&&ot.test(i)&&r(a[i]);for(i=o.length;i--;)o[i].elem!==this||null!=e&&o[i].queue!==e||(o[i].anim.stop(n),t=!1,o.splice(i,1));!t&&n||w.dequeue(this,e)})},finish:function(e){return!1!==e&&(e=e||"fx"),this.each(function(){var t,n=J.get(this),r=n[e+"queue"],i=n[e+"queueHooks"],o=w.timers,a=r?r.length:0;for(n.finish=!0,w.queue(this,e,[]),i&&i.stop&&i.stop.call(this,!0),t=o.length;t--;)o[t].elem===this&&o[t].queue===e&&(o[t].anim.stop(!0),o.splice(t,1));for(t=0;t<a;t++)r[t]&&r[t].finish&&r[t].finish.call(this);delete n.finish})}}),w.each(["toggle","show","hide"],function(e,t){var n=w.fn[t];w.fn[t]=function(e,r,i){return null==e||"boolean"==typeof e?n.apply(this,arguments):this.animate(ut(t,!0),e,r,i)}}),w.each({slideDown:ut("show"),slideUp:ut("hide"),slideToggle:ut("toggle"),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(e,t){w.fn[e]=function(e,n,r){return this.animate(t,e,n,r)}}),w.timers=[],w.fx.tick=function(){var e,t=0,n=w.timers;for(nt=Date.now();t<n.length;t++)(e=n[t])()||n[t]!==e||n.splice(t--,1);n.length||w.fx.stop(),nt=void 0},w.fx.timer=function(e){w.timers.push(e),w.fx.start()},w.fx.interval=13,w.fx.start=function(){rt||(rt=!0,at())},w.fx.stop=function(){rt=null},w.fx.speeds={slow:600,fast:200,_default:400},w.fn.delay=function(t,n){return t=w.fx?w.fx.speeds[t]||t:t,n=n||"fx",this.queue(n,function(n,r){var i=e.setTimeout(n,t);r.stop=function(){e.clearTimeout(i)}})},function(){var e=r.createElement("input"),t=r.createElement("select").appendChild(r.createElement("option"));e.type="checkbox",h.checkOn=""!==e.value,h.optSelected=t.selected,(e=r.createElement("input")).value="t",e.type="radio",h.radioValue="t"===e.value}();var dt,ht=w.expr.attrHandle;w.fn.extend({attr:function(e,t){return z(this,w.attr,e,t,arguments.length>1)},removeAttr:function(e){return this.each(function(){w.removeAttr(this,e)})}}),w.extend({attr:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return"undefined"==typeof e.getAttribute?w.prop(e,t,n):(1===o&&w.isXMLDoc(e)||(i=w.attrHooks[t.toLowerCase()]||(w.expr.match.bool.test(t)?dt:void 0)),void 0!==n?null===n?void w.removeAttr(e,t):i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:(e.setAttribute(t,n+""),n):i&&"get"in i&&null!==(r=i.get(e,t))?r:null==(r=w.find.attr(e,t))?void 0:r)},attrHooks:{type:{set:function(e,t){if(!h.radioValue&&"radio"===t&&N(e,"input")){var n=e.value;return e.setAttribute("type",t),n&&(e.value=n),t}}}},removeAttr:function(e,t){var n,r=0,i=t&&t.match(M);if(i&&1===e.nodeType)while(n=i[r++])e.removeAttribute(n)}}),dt={set:function(e,t,n){return!1===t?w.removeAttr(e,n):e.setAttribute(n,n),n}},w.each(w.expr.match.bool.source.match(/\w+/g),function(e,t){var n=ht[t]||w.find.attr;ht[t]=function(e,t,r){var i,o,a=t.toLowerCase();return r||(o=ht[a],ht[a]=i,i=null!=n(e,t,r)?a:null,ht[a]=o),i}});var gt=/^(?:input|select|textarea|button)$/i,yt=/^(?:a|area)$/i;w.fn.extend({prop:function(e,t){return z(this,w.prop,e,t,arguments.length>1)},removeProp:function(e){return this.each(function(){delete this[w.propFix[e]||e]})}}),w.extend({prop:function(e,t,n){var r,i,o=e.nodeType;if(3!==o&&8!==o&&2!==o)return 1===o&&w.isXMLDoc(e)||(t=w.propFix[t]||t,i=w.propHooks[t]),void 0!==n?i&&"set"in i&&void 0!==(r=i.set(e,n,t))?r:e[t]=n:i&&"get"in i&&null!==(r=i.get(e,t))?r:e[t]},propHooks:{tabIndex:{get:function(e){var t=w.find.attr(e,"tabindex");return t?parseInt(t,10):gt.test(e.nodeName)||yt.test(e.nodeName)&&e.href?0:-1}}},propFix:{"for":"htmlFor","class":"className"}}),h.optSelected||(w.propHooks.selected={get:function(e){var t=e.parentNode;return t&&t.parentNode&&t.parentNode.selectedIndex,null},set:function(e){var t=e.parentNode;t&&(t.selectedIndex,t.parentNode&&t.parentNode.selectedIndex)}}),w.each(["tabIndex","readOnly","maxLength","cellSpacing","cellPadding","rowSpan","colSpan","useMap","frameBorder","contentEditable"],function(){w.propFix[this.toLowerCase()]=this});function vt(e){return(e.match(M)||[]).join(" ")}function mt(e){return e.getAttribute&&e.getAttribute("class")||""}function xt(e){return Array.isArray(e)?e:"string"==typeof e?e.match(M)||[]:[]}w.fn.extend({addClass:function(e){var t,n,r,i,o,a,s,u=0;if(g(e))return this.each(function(t){w(this).addClass(e.call(this,t,mt(this)))});if((t=xt(e)).length)while(n=this[u++])if(i=mt(n),r=1===n.nodeType&&" "+vt(i)+" "){a=0;while(o=t[a++])r.indexOf(" "+o+" ")<0&&(r+=o+" ");i!==(s=vt(r))&&n.setAttribute("class",s)}return this},removeClass:function(e){var t,n,r,i,o,a,s,u=0;if(g(e))return this.each(function(t){w(this).removeClass(e.call(this,t,mt(this)))});if(!arguments.length)return this.attr("class","");if((t=xt(e)).length)while(n=this[u++])if(i=mt(n),r=1===n.nodeType&&" "+vt(i)+" "){a=0;while(o=t[a++])while(r.indexOf(" "+o+" ")>-1)r=r.replace(" "+o+" "," ");i!==(s=vt(r))&&n.setAttribute("class",s)}return this},toggleClass:function(e,t){var n=typeof e,r="string"===n||Array.isArray(e);return"boolean"==typeof t&&r?t?this.addClass(e):this.removeClass(e):g(e)?this.each(function(n){w(this).toggleClass(e.call(this,n,mt(this),t),t)}):this.each(function(){var t,i,o,a;if(r){i=0,o=w(this),a=xt(e);while(t=a[i++])o.hasClass(t)?o.removeClass(t):o.addClass(t)}else void 0!==e&&"boolean"!==n||((t=mt(this))&&J.set(this,"__className__",t),this.setAttribute&&this.setAttribute("class",t||!1===e?"":J.get(this,"__className__")||""))})},hasClass:function(e){var t,n,r=0;t=" "+e+" ";while(n=this[r++])if(1===n.nodeType&&(" "+vt(mt(n))+" ").indexOf(t)>-1)return!0;return!1}});var bt=/\r/g;w.fn.extend({val:function(e){var t,n,r,i=this[0];{if(arguments.length)return r=g(e),this.each(function(n){var i;1===this.nodeType&&(null==(i=r?e.call(this,n,w(this).val()):e)?i="":"number"==typeof i?i+="":Array.isArray(i)&&(i=w.map(i,function(e){return null==e?"":e+""})),(t=w.valHooks[this.type]||w.valHooks[this.nodeName.toLowerCase()])&&"set"in t&&void 0!==t.set(this,i,"value")||(this.value=i))});if(i)return(t=w.valHooks[i.type]||w.valHooks[i.nodeName.toLowerCase()])&&"get"in t&&void 0!==(n=t.get(i,"value"))?n:"string"==typeof(n=i.value)?n.replace(bt,""):null==n?"":n}}}),w.extend({valHooks:{option:{get:function(e){var t=w.find.attr(e,"value");return null!=t?t:vt(w.text(e))}},select:{get:function(e){var t,n,r,i=e.options,o=e.selectedIndex,a="select-one"===e.type,s=a?null:[],u=a?o+1:i.length;for(r=o<0?u:a?o:0;r<u;r++)if(((n=i[r]).selected||r===o)&&!n.disabled&&(!n.parentNode.disabled||!N(n.parentNode,"optgroup"))){if(t=w(n).val(),a)return t;s.push(t)}return s},set:function(e,t){var n,r,i=e.options,o=w.makeArray(t),a=i.length;while(a--)((r=i[a]).selected=w.inArray(w.valHooks.option.get(r),o)>-1)&&(n=!0);return n||(e.selectedIndex=-1),o}}}}),w.each(["radio","checkbox"],function(){w.valHooks[this]={set:function(e,t){if(Array.isArray(t))return e.checked=w.inArray(w(e).val(),t)>-1}},h.checkOn||(w.valHooks[this].get=function(e){return null===e.getAttribute("value")?"on":e.value})}),h.focusin="onfocusin"in e;var wt=/^(?:focusinfocus|focusoutblur)$/,Tt=function(e){e.stopPropagation()};w.extend(w.event,{trigger:function(t,n,i,o){var a,s,u,l,c,p,d,h,v=[i||r],m=f.call(t,"type")?t.type:t,x=f.call(t,"namespace")?t.namespace.split("."):[];if(s=h=u=i=i||r,3!==i.nodeType&&8!==i.nodeType&&!wt.test(m+w.event.triggered)&&(m.indexOf(".")>-1&&(m=(x=m.split(".")).shift(),x.sort()),c=m.indexOf(":")<0&&"on"+m,t=t[w.expando]?t:new w.Event(m,"object"==typeof t&&t),t.isTrigger=o?2:3,t.namespace=x.join("."),t.rnamespace=t.namespace?new RegExp("(^|\\.)"+x.join("\\.(?:.*\\.|)")+"(\\.|$)"):null,t.result=void 0,t.target||(t.target=i),n=null==n?[t]:w.makeArray(n,[t]),d=w.event.special[m]||{},o||!d.trigger||!1!==d.trigger.apply(i,n))){if(!o&&!d.noBubble&&!y(i)){for(l=d.delegateType||m,wt.test(l+m)||(s=s.parentNode);s;s=s.parentNode)v.push(s),u=s;u===(i.ownerDocument||r)&&v.push(u.defaultView||u.parentWindow||e)}a=0;while((s=v[a++])&&!t.isPropagationStopped())h=s,t.type=a>1?l:d.bindType||m,(p=(J.get(s,"events")||{})[t.type]&&J.get(s,"handle"))&&p.apply(s,n),(p=c&&s[c])&&p.apply&&Y(s)&&(t.result=p.apply(s,n),!1===t.result&&t.preventDefault());return t.type=m,o||t.isDefaultPrevented()||d._default&&!1!==d._default.apply(v.pop(),n)||!Y(i)||c&&g(i[m])&&!y(i)&&((u=i[c])&&(i[c]=null),w.event.triggered=m,t.isPropagationStopped()&&h.addEventListener(m,Tt),i[m](),t.isPropagationStopped()&&h.removeEventListener(m,Tt),w.event.triggered=void 0,u&&(i[c]=u)),t.result}},simulate:function(e,t,n){var r=w.extend(new w.Event,n,{type:e,isSimulated:!0});w.event.trigger(r,null,t)}}),w.fn.extend({trigger:function(e,t){return this.each(function(){w.event.trigger(e,t,this)})},triggerHandler:function(e,t){var n=this[0];if(n)return w.event.trigger(e,t,n,!0)}}),h.focusin||w.each({focus:"focusin",blur:"focusout"},function(e,t){var n=function(e){w.event.simulate(t,e.target,w.event.fix(e))};w.event.special[t]={setup:function(){var r=this.ownerDocument||this,i=J.access(r,t);i||r.addEventListener(e,n,!0),J.access(r,t,(i||0)+1)},teardown:function(){var r=this.ownerDocument||this,i=J.access(r,t)-1;i?J.access(r,t,i):(r.removeEventListener(e,n,!0),J.remove(r,t))}}});var Ct=e.location,Et=Date.now(),kt=/\?/;w.parseXML=function(t){var n;if(!t||"string"!=typeof t)return null;try{n=(new e.DOMParser).parseFromString(t,"text/xml")}catch(e){n=void 0}return n&&!n.getElementsByTagName("parsererror").length||w.error("Invalid XML: "+t),n};var St=/\[\]$/,Dt=/\r?\n/g,Nt=/^(?:submit|button|image|reset|file)$/i,At=/^(?:input|select|textarea|keygen)/i;function jt(e,t,n,r){var i;if(Array.isArray(t))w.each(t,function(t,i){n||St.test(e)?r(e,i):jt(e+"["+("object"==typeof i&&null!=i?t:"")+"]",i,n,r)});else if(n||"object"!==x(t))r(e,t);else for(i in t)jt(e+"["+i+"]",t[i],n,r)}w.param=function(e,t){var n,r=[],i=function(e,t){var n=g(t)?t():t;r[r.length]=encodeURIComponent(e)+"="+encodeURIComponent(null==n?"":n)};if(Array.isArray(e)||e.jquery&&!w.isPlainObject(e))w.each(e,function(){i(this.name,this.value)});else for(n in e)jt(n,e[n],t,i);return r.join("&")},w.fn.extend({serialize:function(){return w.param(this.serializeArray())},serializeArray:function(){return this.map(function(){var e=w.prop(this,"elements");return e?w.makeArray(e):this}).filter(function(){var e=this.type;return this.name&&!w(this).is(":disabled")&&At.test(this.nodeName)&&!Nt.test(e)&&(this.checked||!pe.test(e))}).map(function(e,t){var n=w(this).val();return null==n?null:Array.isArray(n)?w.map(n,function(e){return{name:t.name,value:e.replace(Dt,"\r\n")}}):{name:t.name,value:n.replace(Dt,"\r\n")}}).get()}});var qt=/%20/g,Lt=/#.*$/,Ht=/([?&])_=[^&]*/,Ot=/^(.*?):[ \t]*([^\r\n]*)$/gm,Pt=/^(?:about|app|app-storage|.+-extension|file|res|widget):$/,Mt=/^(?:GET|HEAD)$/,Rt=/^\/\//,It={},Wt={},$t="*/".concat("*"),Bt=r.createElement("a");Bt.href=Ct.href;function Ft(e){return function(t,n){"string"!=typeof t&&(n=t,t="*");var r,i=0,o=t.toLowerCase().match(M)||[];if(g(n))while(r=o[i++])"+"===r[0]?(r=r.slice(1)||"*",(e[r]=e[r]||[]).unshift(n)):(e[r]=e[r]||[]).push(n)}}function _t(e,t,n,r){var i={},o=e===Wt;function a(s){var u;return i[s]=!0,w.each(e[s]||[],function(e,s){var l=s(t,n,r);return"string"!=typeof l||o||i[l]?o?!(u=l):void 0:(t.dataTypes.unshift(l),a(l),!1)}),u}return a(t.dataTypes[0])||!i["*"]&&a("*")}function zt(e,t){var n,r,i=w.ajaxSettings.flatOptions||{};for(n in t)void 0!==t[n]&&((i[n]?e:r||(r={}))[n]=t[n]);return r&&w.extend(!0,e,r),e}function Xt(e,t,n){var r,i,o,a,s=e.contents,u=e.dataTypes;while("*"===u[0])u.shift(),void 0===r&&(r=e.mimeType||t.getResponseHeader("Content-Type"));if(r)for(i in s)if(s[i]&&s[i].test(r)){u.unshift(i);break}if(u[0]in n)o=u[0];else{for(i in n){if(!u[0]||e.converters[i+" "+u[0]]){o=i;break}a||(a=i)}o=o||a}if(o)return o!==u[0]&&u.unshift(o),n[o]}function Ut(e,t,n,r){var i,o,a,s,u,l={},c=e.dataTypes.slice();if(c[1])for(a in e.converters)l[a.toLowerCase()]=e.converters[a];o=c.shift();while(o)if(e.responseFields[o]&&(n[e.responseFields[o]]=t),!u&&r&&e.dataFilter&&(t=e.dataFilter(t,e.dataType)),u=o,o=c.shift())if("*"===o)o=u;else if("*"!==u&&u!==o){if(!(a=l[u+" "+o]||l["* "+o]))for(i in l)if((s=i.split(" "))[1]===o&&(a=l[u+" "+s[0]]||l["* "+s[0]])){!0===a?a=l[i]:!0!==l[i]&&(o=s[0],c.unshift(s[1]));break}if(!0!==a)if(a&&e["throws"])t=a(t);else try{t=a(t)}catch(e){return{state:"parsererror",error:a?e:"No conversion from "+u+" to "+o}}}return{state:"success",data:t}}w.extend({active:0,lastModified:{},etag:{},ajaxSettings:{url:Ct.href,type:"GET",isLocal:Pt.test(Ct.protocol),global:!0,processData:!0,async:!0,contentType:"application/x-www-form-urlencoded; charset=UTF-8",accepts:{"*":$t,text:"text/plain",html:"text/html",xml:"application/xml, text/xml",json:"application/json, text/javascript"},contents:{xml:/\bxml\b/,html:/\bhtml/,json:/\bjson\b/},responseFields:{xml:"responseXML",text:"responseText",json:"responseJSON"},converters:{"* text":String,"text html":!0,"text json":JSON.parse,"text xml":w.parseXML},flatOptions:{url:!0,context:!0}},ajaxSetup:function(e,t){return t?zt(zt(e,w.ajaxSettings),t):zt(w.ajaxSettings,e)},ajaxPrefilter:Ft(It),ajaxTransport:Ft(Wt),ajax:function(t,n){"object"==typeof t&&(n=t,t=void 0),n=n||{};var i,o,a,s,u,l,c,f,p,d,h=w.ajaxSetup({},n),g=h.context||h,y=h.context&&(g.nodeType||g.jquery)?w(g):w.event,v=w.Deferred(),m=w.Callbacks("once memory"),x=h.statusCode||{},b={},T={},C="canceled",E={readyState:0,getResponseHeader:function(e){var t;if(c){if(!s){s={};while(t=Ot.exec(a))s[t[1].toLowerCase()]=t[2]}t=s[e.toLowerCase()]}return null==t?null:t},getAllResponseHeaders:function(){return c?a:null},setRequestHeader:function(e,t){return null==c&&(e=T[e.toLowerCase()]=T[e.toLowerCase()]||e,b[e]=t),this},overrideMimeType:function(e){return null==c&&(h.mimeType=e),this},statusCode:function(e){var t;if(e)if(c)E.always(e[E.status]);else for(t in e)x[t]=[x[t],e[t]];return this},abort:function(e){var t=e||C;return i&&i.abort(t),k(0,t),this}};if(v.promise(E),h.url=((t||h.url||Ct.href)+"").replace(Rt,Ct.protocol+"//"),h.type=n.method||n.type||h.method||h.type,h.dataTypes=(h.dataType||"*").toLowerCase().match(M)||[""],null==h.crossDomain){l=r.createElement("a");try{l.href=h.url,l.href=l.href,h.crossDomain=Bt.protocol+"//"+Bt.host!=l.protocol+"//"+l.host}catch(e){h.crossDomain=!0}}if(h.data&&h.processData&&"string"!=typeof h.data&&(h.data=w.param(h.data,h.traditional)),_t(It,h,n,E),c)return E;(f=w.event&&h.global)&&0==w.active++&&w.event.trigger("ajaxStart"),h.type=h.type.toUpperCase(),h.hasContent=!Mt.test(h.type),o=h.url.replace(Lt,""),h.hasContent?h.data&&h.processData&&0===(h.contentType||"").indexOf("application/x-www-form-urlencoded")&&(h.data=h.data.replace(qt,"+")):(d=h.url.slice(o.length),h.data&&(h.processData||"string"==typeof h.data)&&(o+=(kt.test(o)?"&":"?")+h.data,delete h.data),!1===h.cache&&(o=o.replace(Ht,"$1"),d=(kt.test(o)?"&":"?")+"_="+Et+++d),h.url=o+d),h.ifModified&&(w.lastModified[o]&&E.setRequestHeader("If-Modified-Since",w.lastModified[o]),w.etag[o]&&E.setRequestHeader("If-None-Match",w.etag[o])),(h.data&&h.hasContent&&!1!==h.contentType||n.contentType)&&E.setRequestHeader("Content-Type",h.contentType),E.setRequestHeader("Accept",h.dataTypes[0]&&h.accepts[h.dataTypes[0]]?h.accepts[h.dataTypes[0]]+("*"!==h.dataTypes[0]?", "+$t+"; q=0.01":""):h.accepts["*"]);for(p in h.headers)E.setRequestHeader(p,h.headers[p]);if(h.beforeSend&&(!1===h.beforeSend.call(g,E,h)||c))return E.abort();if(C="abort",m.add(h.complete),E.done(h.success),E.fail(h.error),i=_t(Wt,h,n,E)){if(E.readyState=1,f&&y.trigger("ajaxSend",[E,h]),c)return E;h.async&&h.timeout>0&&(u=e.setTimeout(function(){E.abort("timeout")},h.timeout));try{c=!1,i.send(b,k)}catch(e){if(c)throw e;k(-1,e)}}else k(-1,"No Transport");function k(t,n,r,s){var l,p,d,b,T,C=n;c||(c=!0,u&&e.clearTimeout(u),i=void 0,a=s||"",E.readyState=t>0?4:0,l=t>=200&&t<300||304===t,r&&(b=Xt(h,E,r)),b=Ut(h,b,E,l),l?(h.ifModified&&((T=E.getResponseHeader("Last-Modified"))&&(w.lastModified[o]=T),(T=E.getResponseHeader("etag"))&&(w.etag[o]=T)),204===t||"HEAD"===h.type?C="nocontent":304===t?C="notmodified":(C=b.state,p=b.data,l=!(d=b.error))):(d=C,!t&&C||(C="error",t<0&&(t=0))),E.status=t,E.statusText=(n||C)+"",l?v.resolveWith(g,[p,C,E]):v.rejectWith(g,[E,C,d]),E.statusCode(x),x=void 0,f&&y.trigger(l?"ajaxSuccess":"ajaxError",[E,h,l?p:d]),m.fireWith(g,[E,C]),f&&(y.trigger("ajaxComplete",[E,h]),--w.active||w.event.trigger("ajaxStop")))}return E},getJSON:function(e,t,n){return w.get(e,t,n,"json")},getScript:function(e,t){return w.get(e,void 0,t,"script")}}),w.each(["get","post"],function(e,t){w[t]=function(e,n,r,i){return g(n)&&(i=i||r,r=n,n=void 0),w.ajax(w.extend({url:e,type:t,dataType:i,data:n,success:r},w.isPlainObject(e)&&e))}}),w._evalUrl=function(e){return w.ajax({url:e,type:"GET",dataType:"script",cache:!0,async:!1,global:!1,"throws":!0})},w.fn.extend({wrapAll:function(e){var t;return this[0]&&(g(e)&&(e=e.call(this[0])),t=w(e,this[0].ownerDocument).eq(0).clone(!0),this[0].parentNode&&t.insertBefore(this[0]),t.map(function(){var e=this;while(e.firstElementChild)e=e.firstElementChild;return e}).append(this)),this},wrapInner:function(e){return g(e)?this.each(function(t){w(this).wrapInner(e.call(this,t))}):this.each(function(){var t=w(this),n=t.contents();n.length?n.wrapAll(e):t.append(e)})},wrap:function(e){var t=g(e);return this.each(function(n){w(this).wrapAll(t?e.call(this,n):e)})},unwrap:function(e){return this.parent(e).not("body").each(function(){w(this).replaceWith(this.childNodes)}),this}}),w.expr.pseudos.hidden=function(e){return!w.expr.pseudos.visible(e)},w.expr.pseudos.visible=function(e){return!!(e.offsetWidth||e.offsetHeight||e.getClientRects().length)},w.ajaxSettings.xhr=function(){try{return new e.XMLHttpRequest}catch(e){}};var Vt={0:200,1223:204},Gt=w.ajaxSettings.xhr();h.cors=!!Gt&&"withCredentials"in Gt,h.ajax=Gt=!!Gt,w.ajaxTransport(function(t){var n,r;if(h.cors||Gt&&!t.crossDomain)return{send:function(i,o){var a,s=t.xhr();if(s.open(t.type,t.url,t.async,t.username,t.password),t.xhrFields)for(a in t.xhrFields)s[a]=t.xhrFields[a];t.mimeType&&s.overrideMimeType&&s.overrideMimeType(t.mimeType),t.crossDomain||i["X-Requested-With"]||(i["X-Requested-With"]="XMLHttpRequest");for(a in i)s.setRequestHeader(a,i[a]);n=function(e){return function(){n&&(n=r=s.onload=s.onerror=s.onabort=s.ontimeout=s.onreadystatechange=null,"abort"===e?s.abort():"error"===e?"number"!=typeof s.status?o(0,"error"):o(s.status,s.statusText):o(Vt[s.status]||s.status,s.statusText,"text"!==(s.responseType||"text")||"string"!=typeof s.responseText?{binary:s.response}:{text:s.responseText},s.getAllResponseHeaders()))}},s.onload=n(),r=s.onerror=s.ontimeout=n("error"),void 0!==s.onabort?s.onabort=r:s.onreadystatechange=function(){4===s.readyState&&e.setTimeout(function(){n&&r()})},n=n("abort");try{s.send(t.hasContent&&t.data||null)}catch(e){if(n)throw e}},abort:function(){n&&n()}}}),w.ajaxPrefilter(function(e){e.crossDomain&&(e.contents.script=!1)}),w.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/\b(?:java|ecma)script\b/},converters:{"text script":function(e){return w.globalEval(e),e}}}),w.ajaxPrefilter("script",function(e){void 0===e.cache&&(e.cache=!1),e.crossDomain&&(e.type="GET")}),w.ajaxTransport("script",function(e){if(e.crossDomain){var t,n;return{send:function(i,o){t=w("<script>").prop({charset:e.scriptCharset,src:e.url}).on("load error",n=function(e){t.remove(),n=null,e&&o("error"===e.type?404:200,e.type)}),r.head.appendChild(t[0])},abort:function(){n&&n()}}}});var Yt=[],Qt=/(=)\?(?=&|$)|\?\?/;w.ajaxSetup({jsonp:"callback",jsonpCallback:function(){var e=Yt.pop()||w.expando+"_"+Et++;return this[e]=!0,e}}),w.ajaxPrefilter("json jsonp",function(t,n,r){var i,o,a,s=!1!==t.jsonp&&(Qt.test(t.url)?"url":"string"==typeof t.data&&0===(t.contentType||"").indexOf("application/x-www-form-urlencoded")&&Qt.test(t.data)&&"data");if(s||"jsonp"===t.dataTypes[0])return i=t.jsonpCallback=g(t.jsonpCallback)?t.jsonpCallback():t.jsonpCallback,s?t[s]=t[s].replace(Qt,"$1"+i):!1!==t.jsonp&&(t.url+=(kt.test(t.url)?"&":"?")+t.jsonp+"="+i),t.converters["script json"]=function(){return a||w.error(i+" was not called"),a[0]},t.dataTypes[0]="json",o=e[i],e[i]=function(){a=arguments},r.always(function(){void 0===o?w(e).removeProp(i):e[i]=o,t[i]&&(t.jsonpCallback=n.jsonpCallback,Yt.push(i)),a&&g(o)&&o(a[0]),a=o=void 0}),"script"}),h.createHTMLDocument=function(){var e=r.implementation.createHTMLDocument("").body;return e.innerHTML="<form></form><form></form>",2===e.childNodes.length}(),w.parseHTML=function(e,t,n){if("string"!=typeof e)return[];"boolean"==typeof t&&(n=t,t=!1);var i,o,a;return t||(h.createHTMLDocument?((i=(t=r.implementation.createHTMLDocument("")).createElement("base")).href=r.location.href,t.head.appendChild(i)):t=r),o=A.exec(e),a=!n&&[],o?[t.createElement(o[1])]:(o=xe([e],t,a),a&&a.length&&w(a).remove(),w.merge([],o.childNodes))},w.fn.load=function(e,t,n){var r,i,o,a=this,s=e.indexOf(" ");return s>-1&&(r=vt(e.slice(s)),e=e.slice(0,s)),g(t)?(n=t,t=void 0):t&&"object"==typeof t&&(i="POST"),a.length>0&&w.ajax({url:e,type:i||"GET",dataType:"html",data:t}).done(function(e){o=arguments,a.html(r?w("<div>").append(w.parseHTML(e)).find(r):e)}).always(n&&function(e,t){a.each(function(){n.apply(this,o||[e.responseText,t,e])})}),this},w.each(["ajaxStart","ajaxStop","ajaxComplete","ajaxError","ajaxSuccess","ajaxSend"],function(e,t){w.fn[t]=function(e){return this.on(t,e)}}),w.expr.pseudos.animated=function(e){return w.grep(w.timers,function(t){return e===t.elem}).length},w.offset={setOffset:function(e,t,n){var r,i,o,a,s,u,l,c=w.css(e,"position"),f=w(e),p={};"static"===c&&(e.style.position="relative"),s=f.offset(),o=w.css(e,"top"),u=w.css(e,"left"),(l=("absolute"===c||"fixed"===c)&&(o+u).indexOf("auto")>-1)?(a=(r=f.position()).top,i=r.left):(a=parseFloat(o)||0,i=parseFloat(u)||0),g(t)&&(t=t.call(e,n,w.extend({},s))),null!=t.top&&(p.top=t.top-s.top+a),null!=t.left&&(p.left=t.left-s.left+i),"using"in t?t.using.call(e,p):f.css(p)}},w.fn.extend({offset:function(e){if(arguments.length)return void 0===e?this:this.each(function(t){w.offset.setOffset(this,e,t)});var t,n,r=this[0];if(r)return r.getClientRects().length?(t=r.getBoundingClientRect(),n=r.ownerDocument.defaultView,{top:t.top+n.pageYOffset,left:t.left+n.pageXOffset}):{top:0,left:0}},position:function(){if(this[0]){var e,t,n,r=this[0],i={top:0,left:0};if("fixed"===w.css(r,"position"))t=r.getBoundingClientRect();else{t=this.offset(),n=r.ownerDocument,e=r.offsetParent||n.documentElement;while(e&&(e===n.body||e===n.documentElement)&&"static"===w.css(e,"position"))e=e.parentNode;e&&e!==r&&1===e.nodeType&&((i=w(e).offset()).top+=w.css(e,"borderTopWidth",!0),i.left+=w.css(e,"borderLeftWidth",!0))}return{top:t.top-i.top-w.css(r,"marginTop",!0),left:t.left-i.left-w.css(r,"marginLeft",!0)}}},offsetParent:function(){return this.map(function(){var e=this.offsetParent;while(e&&"static"===w.css(e,"position"))e=e.offsetParent;return e||be})}}),w.each({scrollLeft:"pageXOffset",scrollTop:"pageYOffset"},function(e,t){var n="pageYOffset"===t;w.fn[e]=function(r){return z(this,function(e,r,i){var o;if(y(e)?o=e:9===e.nodeType&&(o=e.defaultView),void 0===i)return o?o[t]:e[r];o?o.scrollTo(n?o.pageXOffset:i,n?i:o.pageYOffset):e[r]=i},e,r,arguments.length)}}),w.each(["top","left"],function(e,t){w.cssHooks[t]=_e(h.pixelPosition,function(e,n){if(n)return n=Fe(e,t),We.test(n)?w(e).position()[t]+"px":n})}),w.each({Height:"height",Width:"width"},function(e,t){w.each({padding:"inner"+e,content:t,"":"outer"+e},function(n,r){w.fn[r]=function(i,o){var a=arguments.length&&(n||"boolean"!=typeof i),s=n||(!0===i||!0===o?"margin":"border");return z(this,function(t,n,i){var o;return y(t)?0===r.indexOf("outer")?t["inner"+e]:t.document.documentElement["client"+e]:9===t.nodeType?(o=t.documentElement,Math.max(t.body["scroll"+e],o["scroll"+e],t.body["offset"+e],o["offset"+e],o["client"+e])):void 0===i?w.css(t,n,s):w.style(t,n,i,s)},t,a?i:void 0,a)}})}),w.each("blur focus focusin focusout resize scroll click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup contextmenu".split(" "),function(e,t){w.fn[t]=function(e,n){return arguments.length>0?this.on(t,null,e,n):this.trigger(t)}}),w.fn.extend({hover:function(e,t){return this.mouseenter(e).mouseleave(t||e)}}),w.fn.extend({bind:function(e,t,n){return this.on(e,null,t,n)},unbind:function(e,t){return this.off(e,null,t)},delegate:function(e,t,n,r){return this.on(t,e,n,r)},undelegate:function(e,t,n){return 1===arguments.length?this.off(e,"**"):this.off(t,e||"**",n)}}),w.proxy=function(e,t){var n,r,i;if("string"==typeof t&&(n=e[t],t=e,e=n),g(e))return r=o.call(arguments,2),i=function(){return e.apply(t||this,r.concat(o.call(arguments)))},i.guid=e.guid=e.guid||w.guid++,i},w.holdReady=function(e){e?w.readyWait++:w.ready(!0)},w.isArray=Array.isArray,w.parseJSON=JSON.parse,w.nodeName=N,w.isFunction=g,w.isWindow=y,w.camelCase=G,w.type=x,w.now=Date.now,w.isNumeric=function(e){var t=w.type(e);return("number"===t||"string"===t)&&!isNaN(e-parseFloat(e))},"function"==typeof define&&define.amd&&define("jquery",[],function(){return w});var Jt=e.jQuery,Kt=e.$;return w.noConflict=function(t){return e.$===w&&(e.$=Kt),t&&e.jQuery===w&&(e.jQuery=Jt),w},t||(e.jQuery=e.$=w),w});
diff --git a/X/sandbox_csv.html b/X/sandbox_csv.html
new file mode 100755
index 0000000..b1239fc
--- /dev/null
+++ b/X/sandbox_csv.html
@@ -0,0 +1,166 @@
+<!DOCTYPE html>
+
+
+<html>
+  <head>
+    <title>Imapsync CSV online</title>
+    <meta charset="utf-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+    <!-- -->
+    <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css">
+    <!-- -->
+  </head>
+
+<body>
+
+<h1>Imapsync online</h1>
+
+<p>
+This file is a sandbox to play with, to learn, understand what happens, what can be done etc.<br/>
+
+<a  href="#BOTTOM">Bottom of this page</a>
+
+</p>
+
+
+<form id="form" action="/cgi-bin/imapsync_csv_wrapper" method="post" autocomplete="on">
+
+<textarea name="csv_data" rows="10" cols="120">
+# This example is a real one, ie, truly working in the real world.
+test1.lamiral.info;test1;secret1;test2.lamiral.info;test2;secret2;
+
+# The reverse
+test2.lamiral.info;test2;secret2;test1.lamiral.info;test1;secret1;
+
+# The first again but with authentication failure
+test1.lamiral.info;test1;secret1;test2.lamiral.info;test2;wrong;
+
+</textarea>
+<br/>
+
+
+</form>
+
+<button type="button"
+	onclick="imapsync( handleRun )"
+	>Run imapsync on all csv data
+</button>
+
+
+
+<button type="button"
+	onclick="abort(  )"
+	>Abort imapsync
+</button>
+
+<h2>Console of imapsync runs</h2>
+
+<pre id="console">
+</pre>
+
+<h2>Log of abort</h2>
+
+<pre id="abort">
+</pre>
+
+<h2>Log of imapsync runs</h2>
+
+<pre id="output" >
+</pre>
+
+
+
+<h2>Links</h2>
+
+<div id="BOTTOM">
+<p >
+<a  href="#TOP">Top of the page</a>
+</p>
+</div>
+
+<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.1.1/jquery.min.js"></script>
+
+<script>
+
+
+
+var readyStateStr = {
+	0: "Request not initialized",
+	1: "Server connection established",
+	2: "Response headers received",
+	3: "Processing request",
+	4: "Finished and response is ready"
+} ;
+
+function imapsync( cFunction ) {
+	var xhr ;
+	xhr = new XMLHttpRequest(  ) ;
+	var timerRefreshLog = setInterval( function() { refreshLog( xhr ) }, 3000 ) ;
+	xhr.onreadystatechange = function(  ) {
+		cFunction( this, timerRefreshLog ) ;
+	} ;
+
+        var form_querystring = $("#form").serialize() ;
+
+        $("#form_querystring").text( form_querystring ) ;
+
+
+        xhr.open( "POST", "/cgi-bin/imapsync_csv_wrapper", true ) ;
+        xhr.setRequestHeader( "Content-type",
+            "application/x-www-form-urlencoded" ) ;
+        xhr.send( form_querystring ) ;
+
+        $("#output").text("Here comes the log!\n\n") ;
+        xhr.send(  ) ;
+}
+
+function handleRun( xhr, timerRefreshLog ) {
+
+	$( "#console" ).text( "Status: " + xhr.status + " " + xhr.statusText + ".\n" 
+	+ "State: " + readyStateStr[ xhr.readyState ] + "\n" ) ;
+
+	if ( xhr.status == 200 && xhr.readyState == 4 ) {
+	        var headers =  xhr.getAllResponseHeaders(  ) ;
+
+		clearInterval( timerRefreshLog ) ;
+		refreshLog( xhr ) ; // a last time
+	}
+}
+
+function refreshLog( xhr ) {
+	$( "#output" ).text( xhr.responseText ) ;
+}
+
+
+function abort()
+{
+        var querystring = $("#form").serialize() + "&abort=on";
+        var xhr;
+        xhr = new XMLHttpRequest();
+        xhr.onreadystatechange = function ()
+        {
+            handleAbort(xhr);
+        };
+        xhr.open("POST", "/cgi-bin/imapsync_csv_wrapper", true);
+        xhr.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
+        xhr.send(querystring);
+}
+
+
+function handleAbort( xhr ) {
+
+	$( "#abort" ).text( "Status: " + xhr.status + " " + xhr.statusText + ".\n" 
+	+ "State: " + readyStateStr[ xhr.readyState ] + "\n" ) ;
+
+	if ( xhr.status == 200 && xhr.readyState == 4 ) {
+	        var headers =  xhr.getAllResponseHeaders(  ) ;
+		// $( "#abort" ).append( "\n" + headers + "\n" ) ;
+		$( "#abort" ).append( xhr.responseText ) ;
+		
+	}
+}
+
+
+</script>
+</body>
+</html>
diff --git a/X/server_survey_patterns.txt b/X/server_survey_patterns.txt
index 0a5e533..de71b29 100644
--- a/X/server_survey_patterns.txt
+++ b/X/server_survey_patterns.txt
@@ -1,5 +1,5 @@
 Dovecot         Dovecot
-OK_IMAP4_ready  \\* OK IMAP4 ready.
+MailEnable      \\* OK IMAP4 ready.
 Courier         Courier-IMAP ready.
 Exchange        Microsoft Exchange
 SmarterMail     \\* OK IMAP4rev1 SmarterMail.$
diff --git a/X/stat_patterns.txt b/X/stat_patterns.txt
index 27f195a..69bc1fd 100644
--- a/X/stat_patterns.txt
+++ b/X/stat_patterns.txt
@@ -24,15 +24,18 @@
 ^Host2 Biggest message:
 ^Host2 Time spent:
 ^Messages transferred
+^Messages skipped
+^Messages found duplicate on host1
+^Messages found duplicate on host2
+^Messages found crossduplicate on host2
 ^Messages found in host1 not in host2
 ^Messages found in host2 not in host1
-^Messages skipped
 ^Folders synced
 ^Transfer time
 ^Total bytes transferred
 ^Message rate
 ^Average bandwidth rate
-^Biggest message
+^Biggest message transferred
 ^Detected.*errors
 ^Ended by a signal
 ^Exiting with return value
@@ -43,3 +46,8 @@ failure: Error login
 failure: can not open imap connection on
 ^\/usr\/local\/www\/apache24\/cgi-bin\/imapsync --
 ^\/usr\/lib\/cgi-bin\/imapsync --
+success login on 
+^At least one account can not SEARCH ALL
+{[456789]........}    copied
+^Memory\/biggest message ratio
+^CPU time and %cpu
diff --git a/X/u.html b/X/u.html
new file mode 120000
index 0000000..981d6bf
--- /dev/null
+++ b/X/u.html
@@ -0,0 +1 @@
+imapsync_form_extra.html
\ No newline at end of file
diff --git a/dist b/dist
deleted file mode 120000
index baaaec0..0000000
--- a/dist
+++ /dev/null
@@ -1 +0,0 @@
-dist2
\ No newline at end of file
diff --git a/doc/conferences/imapsync_2010_gulliver_AG.lyx b/doc/conferences/imapsync_2010_gulliver_AG.lyx
new file mode 100644
index 0000000..a96806b
--- /dev/null
+++ b/doc/conferences/imapsync_2010_gulliver_AG.lyx
@@ -0,0 +1,749 @@
+#LyX 1.5.3 created this file. For more info see http://www.lyx.org/
+\lyxformat 276
+\begin_document
+\begin_header
+\textclass beamer
+\begin_preamble
+\usetheme{Warsaw}
+% or ...
+
+\setbeamercovered{transparent}
+% or whatever (possibly just delete it)
+\end_preamble
+\options handout
+\language french
+\inputencoding auto
+\font_roman times
+\font_sans default
+\font_typewriter default
+\font_default_family default
+\font_sc false
+\font_osf false
+\font_sf_scale 100
+\font_tt_scale 100
+\graphics default
+\paperfontsize default
+\spacing single
+\papersize default
+\use_geometry false
+\use_amsmath 2
+\use_esint 0
+\cite_engine basic
+\use_bibtopic false
+\paperorientation portrait
+\secnumdepth 2
+\tocdepth 2
+\paragraph_separation indent
+\defskip medskip
+\quotes_language english
+\papercolumns 1
+\papersides 1
+\paperpagestyle default
+\tracking_changes false
+\output_changes false
+\author "" 
+\author "" 
+\end_header
+
+\begin_body
+
+\begin_layout Title
+Imasync & pop2imap, allons aux bals
+\begin_inset OptArg
+status open
+
+\begin_layout Standard
+Imapsync & pop2imap
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_layout Subtitle
+et transférons sans douleurs des courriels en grand nombre sur de longues
+ distances
+\end_layout
+
+\begin_layout Author
+Gilles\InsetSpace ~
+Lamiral
+\end_layout
+
+\begin_layout Institute
+Informaticien indépendant
+\newline
+Baulon (35)
+\end_layout
+
+\begin_layout Date
+A l'occasion de l'Assemblée Générale de Gulliver 2010.
+\end_layout
+
+\begin_layout BeginFrame
+Où sont les boites aux lettres ?
+\end_layout
+
+\begin_layout FrameSubtitle
+Comment accèdons nous à nos messages ?
+\end_layout
+
+\begin_layout Standard
+Nous accédons à nos messages suivant le modèle classique client/serveur
+ :
+\end_layout
+
+\begin_layout Itemize
+Le serveur écoute (sur un port) et attend les requêtes du client
+\end_layout
+
+\begin_layout Itemize
+Le client envoie des demandes au serveur (sur son port d'écoute) et attend
+ les réponses
+\end_layout
+
+\begin_layout Itemize
+Le client et le serveur discute avec le même langage : le protocole 
+\end_layout
+
+\begin_layout BeginFrame
+Quels protocoles pour les boites aux lettres ?
+\end_layout
+
+\begin_layout FrameSubtitle
+Le protocole roulé dans la farine a plus de goût
+\end_layout
+
+\begin_layout Standard
+Actuellement 3x2 = 6 protocoles se partagent le gâteau de l'accès aux boites
+ aux lettres (le x2 = surcouche SSL au protocole de base) :
+\end_layout
+
+\begin_layout Itemize
+IMAP (port 143) : Internet Message Access Protocol 
+\end_layout
+
+\begin_layout Itemize
+IMAPS (port 993) : IMAP + SSL (Secure Socket Layer : chiffrement des flux)
+\end_layout
+
+\begin_layout Itemize
+POP3 (port 110) : Post Office Protocol 
+\end_layout
+
+\begin_layout Itemize
+POP3S (port 995) : POP3 + SSL
+\end_layout
+
+\begin_layout Itemize
+HTTP (port 80) : HTTP Webmail 
+\end_layout
+
+\begin_layout Itemize
+HTTPS (port 443) : HTTP Webmail + SSL
+\end_layout
+
+\begin_layout Standard
+Ces six protocoles ne sont nullement exclusifs les uns des autres, ils peuvent
+ cohabiter ensemble et le font très souvent.
+\end_layout
+
+\begin_layout BeginFrame
+Problématique
+\end_layout
+
+\begin_layout FrameSubtitle
+J'ai un problèmeu, je crois bien que je [...]
+\end_layout
+
+\begin_layout Itemize
+Comment transférer les messages d'un serveur s1 vers un autre serveur s2
+ ?
+\end_layout
+
+\begin_layout BeginFrame
+Solutions possibles
+\end_layout
+
+\begin_layout FrameSubtitle
+il y a toujours des solutions, et notemment des solutions impossibles.
+\end_layout
+
+\begin_layout Itemize
+Synchroniser l'arborescence de s1 vers s2 avec rsync ou un logiciel équivalent
+ (synchronisation de fichiers).
+ Rapide et efficace.
+ Usage limité à un même logiciel serveur imap sur le même type de système.
+ Ce cas est rare (le bal hautin n'est qu'une petite boite de crotte).
+\end_layout
+
+\begin_layout Itemize
+Exporter les données de s1 dans un fichier, suivant un certain format et
+ importer ces données sans s2.
+ Contraintes : accès direct au serveur, formats spécifiques.
+ Prise de tête assurée (un bal-trap perdant garanti).
+\end_layout
+
+\begin_layout Itemize
+Détruire les messages sur s1 : s2 est à jour sans rien faire.
+ Facile, un peu réducteur (c'est la technique du trou de bal)
+\end_layout
+
+\begin_layout Itemize
+???
+\end_layout
+
+\begin_layout BeginFrame
+Solution retenue
+\end_layout
+
+\begin_layout FrameSubtitle
+De la tenue et de la retenue s'il vous plait
+\end_layout
+
+\begin_layout Itemize
+Utiliser les protocoles en mode client (le client du modèle client/serveur)
+ et s'affranchir ainsi du format des fichiers stockés, de la technologie
+ propre à chaque logiciel serveur etc.
+ 
+\end_layout
+
+\begin_layout Itemize
+C'est le choix fait pour écrire imapsync, pop2imap (
+\size giant
+et leur équivalents concurrents que je ne nommerai pas faute de place suffisante
+ sur le reste de cette page, je citerai quand même le celèbre offlin..
+\end_layout
+
+\begin_layout BeginFrame
+Avantages d'imapsync et de pop2imap
+\end_layout
+
+\begin_layout FrameSubtitle
+en nature essentiellement
+\end_layout
+
+\begin_layout Itemize
+L'arborescence des dossiers est respectée (mode récursif)
+\end_layout
+
+\begin_layout Itemize
+Les mises à jour de s1 vers s2 sont possibles (mode incrémental)
+\end_layout
+
+\begin_layout Itemize
+L'arrêt inopiné et la reprise sont gérés
+\end_layout
+
+\begin_layout Itemize
+Les étiquettes/flags sont aussi transférées
+\end_layout
+
+\begin_layout Itemize
+Aucun format de fichier n'est à définir ou à rechercher, il s'impose de
+ lui-même, c'est celui de la messagerie d'internet : RFC 2822 - Internet
+ Message Format.
+\end_layout
+
+\begin_layout BeginFrame
+Les informations nécessaires
+\end_layout
+
+\begin_layout FrameSubtitle
+Le strict minimum pour pouvoir relever ou lire ses messages
+\end_layout
+
+\begin_layout Standard
+4 informations sont strictement nécessaires pour relever le courriel d'une
+ boite aux lettres :
+\end_layout
+
+\begin_layout Itemize
+Le protocole géré par le serveur : POP ou IMAP ou HTTP
+\end_layout
+
+\begin_layout Itemize
+Le serveur : son nom ou son adresse ip (+ le port du service unless well
+ known port, yeah) :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+imap.truc.com
+\end_layout
+
+\begin_layout Itemize
+82.98.86.162
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le nom de connexion au service :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+toto
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le mot de passe :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+supersecret
+\end_layout
+
+\end_deeper
+\begin_layout BeginFrame
+Exemple de base avec imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Où nous pouvons difficilement faire plus court
+\end_layout
+
+\begin_layout Itemize
+Le mode 
+\begin_inset Quotes eld
+\end_inset
+
+protégé
+\begin_inset Quotes erd
+\end_inset
+
+ pour un transfert imap vers imap :
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+imapsync 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 imap.truc.org --user1 john --passfile1 /john.secret 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.org --user2 rodo --passfile2 /rodo.secret
+\end_layout
+
+\begin_layout Itemize
+Un mode protégé de quoi ? les mots de passe de cet exemple sont dans des
+ fichiers, ils ne sont pas directement visible sur la ligne de commande
+ (visibles par la commande ps ou dans l'historique des commandes).
+\end_layout
+
+\begin_layout Itemize
+Les mots de passe passent en clair sur le réseau si AUTH-MD5 n'est pas supporté
+ par le serveur
+\end_layout
+
+\begin_layout Itemize
+Les messages passent en clair sur le réseau
+\end_layout
+
+\begin_layout Itemize
+En résumé un mode 
+\begin_inset Quotes eld
+\end_inset
+
+protégé
+\begin_inset Quotes erd
+\end_inset
+
+ contre pas grand chose
+\end_layout
+
+\begin_layout Standard
+
+\end_layout
+
+\begin_layout BeginFrame
+Exemple de base avec pop2imap
+\end_layout
+
+\begin_layout FrameSubtitle
+Où nous pouvons difficilement faire plus court aussi
+\end_layout
+
+\begin_layout Standard
+
+\end_layout
+
+\begin_layout Itemize
+Le mode 
+\begin_inset Quotes eld
+\end_inset
+
+protégé
+\begin_inset Quotes erd
+\end_inset
+
+ pour un transfert pop vers imap :
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+pop2imap 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 pop3.truc.org --user1 john --passfile1 /john.secret 
+\backslash
+
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.org --user2 rodo --passfile2 /rodo.secret
+\end_layout
+
+\begin_layout Standard
+
+\end_layout
+
+\begin_layout BeginFrame
+Exemples de base version warrior
+\end_layout
+
+\begin_layout FrameSubtitle
+Un utilisateur averti est un utilisateur averti
+\end_layout
+
+\begin_layout Itemize
+Ou bien, si vous aimez les conduites à risque :
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+imapsync 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 imap.truc.org --user1 john --password1 superdur 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.org --user2 rodo --password2 bof
+\end_layout
+
+\begin_layout Itemize
+La même avec pop2imap :
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+pop2imap 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 pop3.truc.org --user1 john --password1 superdur 
+\backslash
+
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.org --user2 rodo --password2 bof 
+\end_layout
+
+\begin_layout BeginFrame
+Les cas compliqués
+\end_layout
+
+\begin_layout FrameSubtitle
+Pourquoi faire simple ?
+\end_layout
+
+\begin_layout Standard
+86 options en tout dans imapsync pour gérer les cas difficiles :
+\end_layout
+
+\begin_layout Itemize
+Les serveurs récalcitrants (hin, c'est quoi une RFC ?)
+\end_layout
+
+\begin_layout Itemize
+Je ne veux transférer que ...
+ (date, taille, dossiers souscrits etc.)
+\end_layout
+
+\begin_layout Itemize
+Je veux renommer les dossiers sur s2
+\end_layout
+
+\begin_layout Itemize
+Je veux transformer le contenu des messages (bah oui yen a qui veulent ça)
+\end_layout
+
+\begin_layout Itemize
+Je veux simuler (la simulation a de bons cotés)
+\end_layout
+
+\begin_layout Itemize
+Je veux détruire du serveur s1 ce qui est transféré dans s2 (migrer)
+\end_layout
+
+\begin_layout Itemize
+Je veux détruire de s2 ce qui n'est pas dans s1 (copie conforme, backup)
+\end_layout
+
+\begin_layout Itemize
+Je veux changer/enlever certaines étiquettes/flags (bah oui 2)
+\end_layout
+
+\begin_layout Itemize
+Les modes debug
+\end_layout
+
+\begin_layout Itemize
+...
+\end_layout
+
+\begin_layout BeginFrame
+Succès d'imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Succès sans être victime du succès
+\end_layout
+
+\begin_layout Itemize
+40 logiciels serveur imap supportés par imapsync (pensiez-vous qu'il existait
+ autant de logiciel server imap ?).
+ 3 serveurs non supportés (sans être sûr par manque d'investigation)
+\end_layout
+
+\begin_layout Itemize
+Plusieurs cas de migrations de 40 000 boites avec 2 To de messages.
+\end_layout
+
+\begin_layout Itemize
+Fonctionne sous windows (surprise complète).
+ Un binaire imapsync.exe est disponible.
+\end_layout
+
+\begin_layout Itemize
+5ième sur 40 000 projets (par vote) chez feshmeat pendant longtemps (freshmeat
+ qui n'est plus ce qu'il était, bouhouhou).
+\end_layout
+
+\begin_layout Itemize
+Disponible dans les crémeries FreeBSD, Debian, Ubuntu, Gentoo, NetBSD, Darwin,
+ Mandriva et OpenBSD (au moins).
+\end_layout
+
+\begin_layout Itemize
+un article dans le linux journal allemand.
+\end_layout
+
+\begin_layout BeginFrame
+Récompenses
+\end_layout
+
+\begin_layout FrameSubtitle
+amis du fisc : ne pas lire
+\end_layout
+
+\begin_layout Standard
+Au 17 novembre 2010 :
+\end_layout
+
+\begin_layout Itemize
+106 livres reçus en dons (2618 USD) depuis février 2003.
+\end_layout
+
+\begin_layout Itemize
+Quelques dons de dollars en paypal.
+ Du 29 mai 2007 au 31 octobre 2010 : 0 -> 661,88 USD.
+\end_layout
+
+\begin_layout Itemize
+De plus nombreux achats en paypal : du 31 octobre au 18 novembre 2010 :
+ 661,88 -> 1 510,46 USD.
+\end_layout
+
+\begin_layout Itemize
+724 messages sur la liste de diffusion depuis le 8 mai 2008, 90 abonnés
+ (
+\family typewriter
+\size footnotesize
+cat ~/expl/imapsync/stats
+\family default
+\size default
+).
+\end_layout
+
+\begin_layout Itemize
+2300 messages concernant imapsync dans ma boite aux lettres (soit une moyenne
+ de 4 messages par semaine).
+\end_layout
+
+\begin_layout BeginFrame
+Quelques dates pour imapsync
+\end_layout
+
+\begin_layout Itemize
+Première version 1.1 du 29 juillet 2001 : Écriture initiale du programme
+ imapsync (taille : 5 126 octets).
+ Version qui a servi à remplir avec succès le premier besoin (adresses ip
+ en dur dans le script).
+\end_layout
+
+\begin_layout Itemize
+14 Mars 2003 : première annonce sur freshmeat, version 1.7.
+\end_layout
+
+\begin_layout Itemize
+25 octobre 2010 : dernière version libre, ouverte et gratuite, la 1.366 (taille
+ : 139 343 octets).
+\end_layout
+
+\begin_layout Itemize
+12 novembre 2010 : dernière version libre ouverte et payante, la 1.379 (taille
+ : 141 502 octets).
+\end_layout
+
+\begin_layout BeginFrame
+Quelques nombres et dates pour pop2imap
+\end_layout
+
+\begin_layout Itemize
+2003/07/02 : Écriture initial du programme pop2imap.
+\end_layout
+
+\begin_layout Itemize
+Taille de pop2imap : 16 Ko.
+\end_layout
+
+\begin_layout Itemize
+dernière version 1.18 du 1er spetembre 2008.
+\end_layout
+
+\begin_layout Itemize
+Peu de retours (mais d'excellentes qualités).
+\end_layout
+
+\begin_layout BeginFrame
+Histoire d'imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Le besoin initial
+\end_layout
+
+\begin_layout Itemize
+Besoins et contraintes initiaux :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Un transfert de boites aux lettres d'un serveur imap Domino (Notes) (je
+ n'en suis plus certain) vers un serveur imap cyrus.
+\end_layout
+
+\begin_layout Itemize
+Une faible bande passante (rnis) qui plante fréquemment sans prévenir.
+\end_layout
+
+\begin_layout Itemize
+peu de jours pour transférer et vérifier les transferts de bal.
+\end_layout
+
+\end_deeper
+\begin_layout BeginFrame
+Résumé
+\end_layout
+
+\begin_layout Itemize
+Qui n'aura jamais besoin de transférer ses boites aux lettres ?
+\end_layout
+
+\begin_layout Itemize
+imapsync & pop2imap : deux commandes simples d'usage dictées par le besoin
+ des utilisateurs.
+\end_layout
+
+\begin_layout BeginFrame
+Perspectives
+\end_layout
+
+\begin_layout FrameSubtitle
+Que fais-je à l'AG de Gulliver alors que je pourrais être aux bahamas ?
+\end_layout
+
+\begin_layout Itemize
+Développer un service commercial.
+ La société YippieMove transfert une boite aux lettres pour la modique somme
+ de 15 dollars.
+ Je propose 10 moins fois cher, qu'en pensez vous ?
+\end_layout
+
+\begin_layout Itemize
+Commencer un Wiki.
+\end_layout
+
+\begin_layout Itemize
+Lire le TODO et coder les demandes.
+\end_layout
+
+\begin_layout Itemize
+Appliquer les bons patchs.
+\end_layout
+
+\begin_layout EndFrame
+
+\end_layout
+
+\begin_layout Subsection*
+
+\end_layout
+
+\end_body
+\end_document
diff --git a/doc/conferences/imapsync_2015_Saint-Brieuc.lyx b/doc/conferences/imapsync_2015_Saint-Brieuc.lyx
new file mode 100644
index 0000000..3b21e77
--- /dev/null
+++ b/doc/conferences/imapsync_2015_Saint-Brieuc.lyx
@@ -0,0 +1,363 @@
+#LyX 1.5.3 created this file. For more info see http://www.lyx.org/
+\lyxformat 276
+\begin_document
+\begin_header
+\textclass beamer
+\begin_preamble
+\usetheme{Warsaw}
+% or ...
+
+\setbeamercovered{transparent}
+% or whatever (possibly just delete it)
+\end_preamble
+\options handout
+\language french
+\inputencoding auto
+\font_roman times
+\font_sans default
+\font_typewriter default
+\font_default_family default
+\font_sc false
+\font_osf false
+\font_sf_scale 100
+\font_tt_scale 100
+\graphics default
+\paperfontsize default
+\spacing single
+\papersize default
+\use_geometry false
+\use_amsmath 2
+\use_esint 0
+\cite_engine basic
+\use_bibtopic false
+\paperorientation portrait
+\secnumdepth 2
+\tocdepth 2
+\paragraph_separation indent
+\defskip medskip
+\quotes_language english
+\papercolumns 1
+\papersides 1
+\paperpagestyle default
+\tracking_changes false
+\output_changes false
+\author "" 
+\author "" 
+\end_header
+
+\begin_body
+
+\begin_layout Title
+Imasync, allons aux bals
+\begin_inset OptArg
+status open
+
+\begin_layout Standard
+Imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_layout Subtitle
+et transférons sans douleurs des courriels en grand nombre sur de longues
+ distances
+\end_layout
+
+\begin_layout Author
+Gilles\InsetSpace ~
+Lamiral
+\end_layout
+
+\begin_layout Institute
+Informaticien indépendant
+\newline
+Baulon (35)
+\end_layout
+
+\begin_layout Date
+A l'occasion des RBLL 2015 à St-Brieuc.
+\end_layout
+
+\begin_layout BeginFrame
+Où sont les boites aux lettres ?
+\end_layout
+
+\begin_layout FrameSubtitle
+Comment accèdons nous à nos messages ?
+\end_layout
+
+\begin_layout Standard
+Nous accédons tous à nos messages suivant le modèle classique client/serveur
+ :
+\end_layout
+
+\begin_layout Itemize
+Le serveur écoute et attend les requêtes du client
+\end_layout
+
+\begin_layout Itemize
+Le client envoie des demandes au serveur et attend les réponses
+\end_layout
+
+\begin_layout Itemize
+Le client et le serveur discute avec le même langage : le protocole 
+\end_layout
+
+\begin_layout BeginFrame
+Quels protocoles pour les boites aux lettres ?
+\end_layout
+
+\begin_layout Standard
+Actuellement 3 protocoles se partagent le gâteau de l'accès aux boites aux
+ lettres :
+\end_layout
+
+\begin_layout Itemize
+IMAP (port 143) : Internet Message Access Protocol
+\end_layout
+
+\begin_layout Itemize
+POP3 (port 110) : Post Office Protocol 
+\end_layout
+
+\begin_layout Itemize
+HTTP (port 80) : HTTP Webmail 
+\end_layout
+
+\begin_layout Standard
+Ces trois protocoles ne sont nullement exclusifs les uns des autres, ils
+ peuvent cohabiter ensemble et le font très souvent.
+\end_layout
+
+\begin_layout BeginFrame
+Problématique
+\end_layout
+
+\begin_layout FrameSubtitle
+J'ai un problèmeu, je crois bien que je [...]
+\end_layout
+
+\begin_layout Itemize
+Comment synchroniser les messages d'un serveur s1 vers un autre serveur
+ s2 ?
+\end_layout
+
+\begin_layout BeginFrame
+Solution retenue
+\end_layout
+
+\begin_layout Itemize
+Utiliser les protocoles en mode client (le client du modèle client/serveur)
+ et s'affranchir ainsi du format des fichiers stockés, de la technologie
+ propre à chaque logiciel serveur etc.
+ 
+\end_layout
+
+\begin_layout Itemize
+C'est le choix fait pour écrire imapsync et ses équivalents.
+\end_layout
+
+\begin_layout BeginFrame
+Avantages d'imapsync
+\end_layout
+
+\begin_layout Itemize
+Toute l'arborescence des dossiers est respectée
+\end_layout
+
+\begin_layout Itemize
+Seul les changements de s1 sont transférés vers s2
+\end_layout
+
+\begin_layout Itemize
+L'arrêt inopiné et la reprise sont gérés, pas de doublon.
+\end_layout
+
+\begin_layout Itemize
+Les étiquettes/flags sont aussi transférées et synchronisées
+\end_layout
+
+\begin_layout Itemize
+Aucun format de fichier n'est à définir ou à rechercher, il s'impose de
+ lui-même, c'est celui de la messagerie d'internet : RFC 2822 - Internet
+ Message Format.
+\end_layout
+
+\begin_layout BeginFrame
+Les informations nécessaires
+\end_layout
+
+\begin_layout FrameSubtitle
+Le strict minimum pour pouvoir relever ou lire ses messages
+\end_layout
+
+\begin_layout Standard
+4 informations sont strictement nécessaires pour relever le courriel d'une
+ boite aux lettres :
+\end_layout
+
+\begin_layout Itemize
+Le protocole géré par le serveur : POP ou IMAP ou HTTP
+\end_layout
+
+\begin_layout Itemize
+Le serveur : son nom ou son adresse ip :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+imap.truc.com
+\end_layout
+
+\begin_layout Itemize
+82.98.86.162
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le nom de connexion au service :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+toto
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le mot de passe :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+supersecret
+\end_layout
+
+\end_deeper
+\begin_layout BeginFrame
+Exemple de base avec imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Où nous pouvons difficilement faire plus court
+\end_layout
+
+\begin_layout Itemize
+Pour un transfert de la boite john sur imap.truc.org vers la boite rodo sur
+ imap.trac.com
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+imapsync 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 imap.truc.org --user1 john --password1 superdur 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.com --user2 rodo --password2 bof
+\end_layout
+
+\begin_layout BeginFrame
+Succès d'imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Succès quand tu nous tiens
+\end_layout
+
+\begin_layout Itemize
+62 logiciels serveur imap supportés par imapsync (pensiez-vous qu'il existait
+ autant de logiciel server imap ?).
+\end_layout
+
+\begin_layout Itemize
+Fonctionne sous windows.
+ Un binaire imapsync.exe est disponible.
+\end_layout
+
+\begin_layout Itemize
+Disponible dans les crémeries FreeBSD, Gentoo, Fedora, et OpenBSD (au moins).
+\end_layout
+
+\begin_layout BeginFrame
+Quelques dates pour imapsync
+\end_layout
+
+\begin_layout Itemize
+Première version 1.1 du 29 juillet 2001 : Écriture initiale du programme
+ imapsync (taille : 5 126 octets).
+ Version qui a servi à remplir avec succès le premier besoin (adresses ip
+ en dur dans le script).
+\end_layout
+
+\begin_layout Itemize
+14 Mars 2003 : première annonce sur freshmeat (devenu freecode), version
+ 1.7.
+\end_layout
+
+\begin_layout Itemize
+25 octobre 2010 : dernière version libre, ouverte et gratuite par l'auteur,
+ la 1.366 (taille : 139 343 octets).
+\end_layout
+
+\begin_layout Itemize
+1 avril 2015 : dernière version libre ouverte et payante, la 1.637 (taille
+ : 264 173 octets).
+\end_layout
+
+\begin_layout BeginFrame
+Histoire d'imapsync
+\end_layout
+
+\begin_layout FrameSubtitle
+Le besoin initial
+\end_layout
+
+\begin_layout Itemize
+Besoins et contraintes initiaux :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Un transfert de boites aux lettres d'un serveur imap Domino (Notes) vers
+ un serveur imap Cyrus.
+\end_layout
+
+\begin_layout Itemize
+Une faible bande passante (rnis) qui plante fréquemment sans prévenir.
+\end_layout
+
+\begin_layout Itemize
+peu de jours pour transférer et vérifier les transferts de bal, ligne rnis
+ fermée définitivement.
+\end_layout
+
+\end_deeper
+\begin_layout EndFrame
+
+\end_layout
+
+\begin_layout Subsection*
+
+\end_layout
+
+\end_body
+\end_document
diff --git a/doc/conferences/imapsync_2020_gulliver_fdln.lyx b/doc/conferences/imapsync_2020_gulliver_fdln.lyx
new file mode 100644
index 0000000..58e9c49
--- /dev/null
+++ b/doc/conferences/imapsync_2020_gulliver_fdln.lyx
@@ -0,0 +1,611 @@
+#LyX 2.1 created this file. For more info see http://www.lyx.org/
+\lyxformat 474
+\begin_document
+\begin_header
+\textclass beamer
+\begin_preamble
+\usetheme{Warsaw}
+% or ...
+
+\setbeamercovered{transparent}
+% or whatever (possibly just delete it)
+\end_preamble
+\options handout
+\use_default_options false
+\maintain_unincluded_children false
+\language french
+\language_package default
+\inputencoding auto
+\fontencoding global
+\font_roman times
+\font_sans default
+\font_typewriter default
+\font_math auto
+\font_default_family default
+\use_non_tex_fonts false
+\font_sc false
+\font_osf false
+\font_sf_scale 100
+\font_tt_scale 100
+\graphics default
+\default_output_format default
+\output_sync 0
+\bibtex_command default
+\index_command default
+\paperfontsize default
+\spacing single
+\use_hyperref false
+\papersize default
+\use_geometry false
+\use_package amsmath 2
+\use_package amssymb 2
+\use_package cancel 1
+\use_package esint 0
+\use_package mathdots 0
+\use_package mathtools 1
+\use_package mhchem 0
+\use_package stackrel 1
+\use_package stmaryrd 1
+\use_package undertilde 1
+\cite_engine basic
+\cite_engine_type default
+\biblio_style plain
+\use_bibtopic false
+\use_indices false
+\paperorientation portrait
+\suppress_date false
+\justification true
+\use_refstyle 0
+\index Index
+\shortcut idx
+\color #008000
+\end_index
+\secnumdepth 2
+\tocdepth 2
+\paragraph_separation indent
+\paragraph_indentation default
+\quotes_language english
+\papercolumns 1
+\papersides 1
+\paperpagestyle default
+\tracking_changes false
+\output_changes false
+\html_math_output 0
+\html_css_as_file 0
+\html_be_strict false
+\end_header
+
+\begin_body
+
+\begin_layout Title
+Imasync, allons aux bals
+\begin_inset Argument 1
+status open
+
+\begin_layout Plain Layout
+Imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_layout Subtitle
+et transférons sans douleurs des courriels en grand nombre sur de longues
+ distances
+\end_layout
+
+\begin_layout Author
+Gilles
+\begin_inset space ~
+\end_inset
+
+Lamiral
+\end_layout
+
+\begin_layout Institute
+Informaticien indépendant
+\begin_inset Newline newline
+\end_inset
+
+Baulon (35)
+\end_layout
+
+\begin_layout Date
+A l'occasion du FDLN à Rennes.
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Où sont les boites aux lettres ?
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+Comment accèdons nous à nos messages ?
+\end_layout
+
+\begin_layout Standard
+Nous accédons tous à nos messages suivant le modèle classique client/serveur
+ :
+\end_layout
+
+\begin_layout Itemize
+Le serveur écoute et attend les requêtes du client.
+\end_layout
+
+\begin_layout Itemize
+Le client envoie des demandes au serveur et en attend les réponses.
+\end_layout
+
+\begin_layout Itemize
+Le client et le serveur discutent avec le même langage : le protocole.
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Quels protocoles pour les boites aux lettres ?
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout Standard
+Actuellement 3 protocoles applicatifs se partagent le gâteau de l'accès
+ aux boites aux lettres :
+\end_layout
+
+\begin_layout Itemize
+IMAP (port 143) : Internet Message Access Protocol.
+\end_layout
+
+\begin_layout Itemize
+POP3 (port 110) : Post Office Protocol 
+\end_layout
+
+\begin_layout Itemize
+HTTP (port 80) : HTTP Webmail 
+\end_layout
+
+\begin_layout Standard
+Ces trois protocoles ne sont nullement exclusifs les uns des autres, ils
+ peuvent cohabiter ensemble et le font très souvent.
+ 
+\end_layout
+
+\begin_layout Standard
+A ces trois protocoles s'ajoutent leurs pendants SSL (Secure Socket Layer):
+ IMAPS (port 993), POP3S (port 995), HTTPS (port 443).
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Problématique
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+J'ai un problèmeu, je crois bien que je [...]
+\end_layout
+
+\begin_layout Itemize
+Comment synchroniser les dossiers et les messages d'un serveur s1 vers un
+ autre serveur s2 ?
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Solution retenue
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Utiliser le protocole en mode client (le client du modèle client/serveur)
+ et s'affranchir ainsi du format des fichiers stockés, de la technologie
+ propre à chaque logiciel serveur etc.
+ 
+\end_layout
+
+\begin_layout Itemize
+C'est le choix fait pour écrire imapsync.
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Avantages d'imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Toute l'arborescence des dossiers est respectée
+\end_layout
+
+\begin_layout Itemize
+Seul les changements de s1 sont transférés vers s2
+\end_layout
+
+\begin_layout Itemize
+L'arrêt inopiné et la reprise sont gérés, pas de doublon.
+\end_layout
+
+\begin_layout Itemize
+Les étiquettes/flags sont aussi transférées et synchronisées
+\end_layout
+
+\begin_layout Itemize
+Aucun format de fichier n'est à définir ou à rechercher, il s'impose de
+ lui-même, c'est celui de la messagerie d'internet : RFC 2822 - Internet
+ Message Format.
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Les informations nécessaires
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+Le strict minimum pour pouvoir relever ou lire ses messages
+\end_layout
+
+\begin_layout Standard
+4 informations sont strictement nécessaires pour relever le courriel d'une
+ boite aux lettres :
+\end_layout
+
+\begin_layout Itemize
+Le protocole géré par le serveur : POP ou IMAP ou HTTP
+\end_layout
+
+\begin_layout Itemize
+Le serveur : son nom ou son adresse ip :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+imap.truc.com
+\end_layout
+
+\begin_layout Itemize
+82.98.86.162
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le nom de connexion au service :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+toto
+\end_layout
+
+\end_deeper
+\begin_layout Itemize
+Le mot de passe :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+supersecret
+\end_layout
+
+\end_deeper
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Exemple de base avec imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+Où nous pouvons difficilement faire plus court
+\end_layout
+
+\begin_layout Itemize
+Imapsync parle IMAP seulement.
+ Il synchronise un compte imap vers un compte imap.
+\end_layout
+
+\begin_layout Itemize
+Pour synchroniser un compte pop vers un compte imap, confer le logiciel
+ libre pop2imap.
+\end_layout
+
+\begin_layout Itemize
+Pour un transfert de la boite john sur imap.truc.org vers la boite rodo sur
+ imap.trac.com
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+imapsync 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host1 imap.truc.org --user1 john --password1 superdur 
+\backslash
+ 
+\end_layout
+
+\begin_layout Standard
+
+\family typewriter
+\size footnotesize
+--host2 imap.trac.com --user2 rodo --password2 bof
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Succès d'imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+Succès quand tu nous tiens
+\end_layout
+
+\begin_layout Itemize
+81 logiciels serveur imap supportés par imapsync (pensiez-vous qu'il existait
+ autant de logiciel server imap ?).
+\end_layout
+
+\begin_layout Itemize
+Fonctionne sous windows.
+ Un binaire imapsync.exe est disponible.
+\end_layout
+
+\begin_layout Itemize
+Fonctionne sous Mac.
+ Un binaire imapsync_bin_Darwin est disponible.
+\end_layout
+
+\begin_layout Itemize
+Disponible dans les crémeries Centos, Fedora, FreeBSD, Gentoo, et OpenBSD
+ (au moins).
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Quelques dates pour imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Première version 1.1 du 29 juillet 2001 : Écriture initiale du programme
+ imapsync (taille : 5 126 octets).
+ Version qui a servi à remplir avec succès le premier besoin (adresses ip
+ en dur dans le script).
+\end_layout
+
+\begin_layout Itemize
+14 Mars 2003 : première annonce sur freshmeat (devenu freecode), version
+ 1.7 (taille : 13 506 octets).
+\end_layout
+
+\begin_layout Itemize
+25 octobre 2010 : dernière version libre, ouverte et gratuite par l'auteur,
+ la 1.366 (taille : 139 343 octets).
+\end_layout
+
+\begin_layout Itemize
+18 janvier 2020 : dernière version libre, ouverte et payante par l'auteur,
+ la 1.980 (taille : 648 808 octets).
+\end_layout
+
+\begin_layout Itemize
+Toutes les versions sont là : https://imapsync.lamiral.info/dist/
+\end_layout
+
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Quelques nombres
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_layout Frame
+
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+En 2019 :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+160 millions de synchronisations.
+\end_layout
+
+\begin_layout Itemize
+700 millions de messages par jour.
+\end_layout
+
+\begin_layout Itemize
+70 Petaoctets (1 PiB = 2^50 octets = 1024^5 ~10^15).
+\end_layout
+
+\begin_layout Itemize
+0,25% du traffic courriel internet.
+\end_layout
+
+\begin_layout Itemize
+7000 utilisateurs.
+\end_layout
+
+\end_deeper
+\end_deeper
+\begin_layout Separator
+
+\end_layout
+
+\begin_layout Frame
+\begin_inset Argument 4
+status open
+
+\begin_layout Plain Layout
+Histoire d'imapsync
+\end_layout
+
+\end_inset
+
+
+\end_layout
+
+\begin_deeper
+\begin_layout FrameSubtitle
+Le besoin initial
+\end_layout
+
+\begin_layout Itemize
+Besoins et contraintes initiaux :
+\end_layout
+
+\begin_deeper
+\begin_layout Itemize
+Un transfert de boites aux lettres d'un serveur imap Domino (Notes) vers
+ un serveur imap Cyrus.
+\end_layout
+
+\begin_layout Itemize
+Une faible bande passante (rnis) qui plante fréquemment sans prévenir.
+\end_layout
+
+\begin_layout Itemize
+peu de jours pour transférer et vérifier les transferts de bal, ligne rnis
+ fermée définitivement.
+\end_layout
+
+\end_deeper
+\end_deeper
+\end_body
+\end_document
diff --git a/doc/conferences/imapsync_2020_gulliver_fdln.pdf b/doc/conferences/imapsync_2020_gulliver_fdln.pdf
new file mode 100644
index 0000000..38330bd
Binary files /dev/null and b/doc/conferences/imapsync_2020_gulliver_fdln.pdf differ
diff --git a/examples/file.txt b/examples/file.txt
index 68bc2df..117cd3d 100644
--- a/examples/file.txt
+++ b/examples/file.txt
@@ -1,16 +1,21 @@
 # Example file.txt for imapsync massive migration.
 #
-# $Id: file.txt,v 1.14 2018/02/11 13:42:58 gilles Exp gilles $ 
+# $Id: file.txt,v 1.15 2020/03/10 19:49:52 gilles Exp gilles $ 
 #
-# Each line contains 6 columns, columns are parameters for 
+# Each line contains at least 6 columns, columns are parameters for 
 # --host1 --user1 --password1 --host2 --user2 --password2
-# and a trailing empty fake column to avoid CR LF part going 
-# in the 6th parameter password2. Don't forget the last semicolon.
 #
-# Windows: see the script examples/sync_loop_windows.bat 
-# Unix:    see the script examples/sync_loop_unix.sh 
+# Extra columns can be used to pass extra parameters but the script reading
+# this file have to read them into some variables.
 #
-# Lines starting with a # are comments and ignored
+# Last, don't forget the last semicolon.
+#
+# Windows:     see the script examples/sync_loop_windows.bat 
+# Unix:        see the script examples/sync_loop_unix.sh 
+# Power users: see the script examples/sync_parallel_unix.sh
+
+
+# Lines starting with a # are usually comments and ignored
 # Blank lines are ignored as well
 
 
@@ -24,3 +29,7 @@ host004_1;user004_1;password004_1;host004_2;user004_2;password004_2;
 
 # This last example is a real one, ie, truly working in the real world.
 test1.lamiral.info;test1;secret1;test2.lamiral.info;test2;secret2;
+
+# The reverse
+test2.lamiral.info;test2;secret2;test1.lamiral.info;test1;secret1;
+
diff --git a/examples/imapsync_example.bat b/examples/imapsync_example.bat
index ea17498..8e5b6b4 100644
--- a/examples/imapsync_example.bat
+++ b/examples/imapsync_example.bat
@@ -1,50 +1,65 @@
-@REM $Id: imapsync_example.bat,v 1.10 2016/04/07 23:14:09 gilles Exp gilles $
+@REM $Id: imapsync_example.bat,v 1.11 2020/01/07 00:45:36 gilles Exp gilles $
 
 @REM imapsync example batch for Windows users
 @REM lines beginning with @REM are just comments 
+@REM Please read them, they are written for you, human folk.
 
-@REM See http://imapsync.lamiral.info/#doc
-@REM for more details on how to use imapsync.
+@REM Read also https://imapsync.lamiral.info/README_Windows.txt
+@REM for more details on how to use imapsync on Windows.
 
+@REM Now let us enter the real work to fit your needs
 @REM Replace below the 6 parameters  
 @REM "test1.lamiral.info"  "test1"  "secret1"  "test2.lamiral.info"  "test2"  "secret2"
 @REM with your own values
 @REM Double quotes are necessary if a value contain one or more blanks.
 
-@REM value "test1.lamiral.info" for --host1 is the IMAP source server hostname or IP address
-@REM value "test1" for --user1 is the IMAP source user login
-@REM value "secret1" for --password1 is the IMAP source user password
+@REM value "test1.lamiral.info" for --host1     is the IMAP source server hostname or IP address
+@REM value "test1"              for --user1     is the IMAP source user login
+@REM value "secret1"            for --password1 is the IMAP source user password
 
 @REM value "test2.lamiral.info" for --host2 is the IMAP destination server hostname or IP address
-@REM value "test2" for --user2 is the IMAP destination user login
-@REM value "secret2" for --password2 is the IMAP destination user password
+@REM value "test2"              for --user2 is the IMAP destination user login
+@REM value "secret2"            for --password2 is the IMAP destination user password
 
 @REM Character ^ at the end of the first line is essential and means
 @REM "this command continues on the next line". You can add other lines
 @REM but don't forget ^ character lasting each line, except the last one.
 
+@REM That is not all, keep on reading!
 
 @REM Three other options are in this example because they are good to start with
 @REM
 @REM --dry makes imapsync doing nothing, just print what would be done without --dry.
-@REM 
-@REM --justfolders does only things about folders (ignore messages). It is good
-@REM               to verify the folder mapping is good for you.
+@REM so if you leave --dry then imapsync will not sync your data.
+
+@REM --justfolders does only folders creations, it ignores messages.
+@REM This option is good to verify the folder mapping is good for you
+@REM without starting to copy/pollute folders with messages.
 @REM
-@REM --automap guesses folders mapping, for folders like 
+@REM --automap guesses folders mapping, it wors for folders like 
 @REM           "Sent", "Junk", "Drafts", "All", "Archive", "Flagged".
 @REM
-@REM I suggest to start with --automap --justfolders --dry.
-@REM If the folder mapping is not good then add some --f1f2 folder1=folder2
-@REM to fix it. 
-@REM Then remove --dry and have a run to create folders on host2.
+@REM I suggest/impose to start with --automap --justfolders --dry.
+@REM If the folder mapping you see in the output is not good then add 
+@REM some options --f1f2 "folder1=folder2"
+@REM in oder to fix it. 
+
+@REM Once you are happy with the folder names on the destination,
+@REM remove --dry and have a run to create folders on host2.
+
 @REM If everything goes well so far then remove --justfolders to
 @REM start syncing messages.
 
-.\imapsync.exe --host1 test1.lamiral.info  --user1 test1 --password1  "secret1"  ^
-               --host2 test2.lamiral.info  --user2 test2 --password2  "secret2"  ^
+@REM In case you are impatient, just remove  --justfolders --dry 
+@REM in the firt place and go. Imapsync is not that bad by default anyway!
+
+
+.\imapsync.exe --host1 "test1.lamiral.info"  --user1 "test1" --password1  "secret1"  ^
+               --host2 "test2.lamiral.info"  --user2 "test2" --password2  "secret2"  ^
                --automap --justfolders --dry 
 
-
+@ECHO The sync is over.
+@ECHO Hit any key to close this window
+@ECHO the following word "to continue" means in fact "to close this window" 
 @PAUSE
 
diff --git a/examples/sync_loop_unix.sh b/examples/sync_loop_unix.sh
index 35a95ff..347224b 100755
--- a/examples/sync_loop_unix.sh
+++ b/examples/sync_loop_unix.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 #
-# $Id: sync_loop_unix.sh,v 1.8 2018/02/12 21:53:40 gilles Exp gilles $
+# $Id: sync_loop_unix.sh,v 1.10 2020/12/11 18:09:11 gilles Exp gilles $
 
 # Example for imapsync massive migration on Unix systems.
 # See also http://imapsync.lamiral.info/FAQ.d/FAQ.Massive.txt
@@ -26,14 +26,21 @@
 
 echo Looping on account credentials found in file.txt
 echo
-
+line_counter=0
+> file_failures.txt
 { while IFS=';' read  h1 u1 p1 h2 u2 p2 fake
     do 
+        line_counter=`expr 1 + $line_counter` 
         { echo "$h1" | tr -d '\r' | egrep '^#|^ *$' ; } > /dev/null && continue # this skip commented lines in file.txt
         echo "==== Starting imapsync from host1 $h1 user1 $u1 to host2 $h2 user2 $u2 ===="
-        imapsync --host1 "$h1" --user1 "$u1" --password1 "$p1" \
+        if imapsync --host1 "$h1" --user1 "$u1" --password1 "$p1" \
                  --host2 "$h2" --user2 "$u2" --password2 "$p2" \
-                 "$@"  
+                 "$@"
+        then
+                echo "success sync for line $line_counter "
+        else
+                echo "$h1;$u1;$p1;$h2;$u2;$p2;" | tee -a file_failures.txt
+        fi 
         echo "==== Ended imapsync from host1 $h1 user1 $u1 to host2 $h2 user2 $u2 ===="
         echo
     done 
diff --git a/examples/sync_parallel_curl.sh b/examples/sync_parallel_curl.sh
new file mode 100755
index 0000000..f49aee0
--- /dev/null
+++ b/examples/sync_parallel_curl.sh
@@ -0,0 +1,118 @@
+#!/bin/sh
+#
+# $Id: sync_parallel_curl.sh,v 1.2 2020/11/16 00:40:06 gilles Exp gilles $
+
+# Example for imapsync massive migration on Unix systems.
+# See also http://imapsync.lamiral.info/FAQ.d/FAQ.Massive.txt
+#
+# Data is supposed to be in file.txt in the following format:
+# host001_1;user001_1;password001_1;host001_2;user001_2;password001_2;
+# ...
+# Separator is character semi-colon ";" it can be changed by any character changing IFS=';' 
+# in the while loop below.
+# # Each line contains 6 columns, columns are parameter values for 
+# --host1 --user1 --password1 --host2 --user2 --password2
+#
+# Extra columns can be used to pass extra parameters but the script reading
+# this file have to read them into some variables.
+#
+# Last, don't forget the last semicolon.
+#
+# You can add extra options after the last line 
+# Use character backslash \ at the end of each supplementary line, except for the last one.
+
+
+# The credentials filename "file.txt" used for the loop can be renamed 
+# by changing "file.txt" below.
+
+# Now I explain what come next, the actual stuff, which is barely 
+# a single long command line written on several lines for the reading 
+# convenience
+
+# The first word is the parallel command itself, it's a perl utility 
+# written by Ole Tange, available on Linux systems, already packaged. 
+# It is also called GNU Parallel. The GNU Parallel homepage is
+# https://www.gnu.org/software/parallel/
+# Parallel is very powerful, you could easily distribute the parallel stuff
+# on remote machines with it (not used here).
+
+# The parallel command is then followed by its parameters.
+# parallel parameters explained:
+#
+# --max-procs jobs means parallel will parallelize up to x jobs at a time,
+# x being the number stored in the file jobs.
+# Adjust this value by monitoring your system capacity and changing it with 
+# echo 7 > jobs
+#
+# --delay 1.1 means parallel will pause 1.1 seconds after starting each job.
+#
+#  --colsep ';' means the separator between values is the character semi-colon ;
+# 
+# --arg-file file.txt means the actual input file is named file.txt
+# 
+# --line-buffer means outputs will be of whole lines instead of a big mess
+#  of part of them for the different processes. One line belongs to one process.
+# 
+# --tagstring "job {#} slot {%} using {1} from {3} to {6} : "
+# means that each line will begin with the 
+# words "job {#} slot {%} using {1} from {3} to {6} : " 
+# where:
+# {1} will be replaced by the column of the file servers.txt, aka the CGI imapsync url
+# {3} will be replaced by the second column element, aka user1
+# {6} will be replaced by the fifth column element, aka user2. 
+# Hack this part as you wish
+
+
+# The remaining parameters is the command to be executed by the parallel 
+# command, ie, the command to be run several times in parallel with 
+# different parameters each time. 
+
+# Some explanations about this remaining parts.
+#
+# The part 'echo {1} | egrep "^#" > /dev/null ||' is just there to skip 
+# commented lines in file.txt
+# It can be removed if there is no comment lines in file.txt
+
+# The part $DRYRUN is a variable that can be either the echo command
+# or nothing. It is a trick to permit you to see the command and its 
+# parameters without running it
+# 
+
+
+# {2} will be replaced by the first column in file.txt 
+# {3} will be replaced by the second column in file.txt 
+# {4} will be replaced by the third column in file.txt 
+# ...
+
+
+# "$@" will be replaced by the parameters of this script itself,
+# the one you are reading now. It's usefull if you want to
+# add temporarly a parameter for all runs without editing any file.
+# For example, 
+#   sync_parallel_curl.sh --justlogin 
+# will run all imapsync with the --justlogin parameter added.
+
+
+
+check_parallel_is_here() {
+        parallel --version > /dev/null || { echo "parallel command is not installed. Install it first."; return 1; }
+}
+
+# First, there is no need to go further if the parallel command is not avalable
+# one the current system.
+
+check_parallel_is_here || exit 1 ;
+
+echo Looping with parallel on account credentials found in file.txt
+echo
+
+
+DRYRUN=echo
+# Comment the next line if you want to see the imapsync command instead of running it
+# since the previous echo value will be discarded
+DRYRUN=
+
+parallel --max-procs jobs --delay 1.1 --colsep ';' --link --arg-file servers.txt --arg-file file.txt --line-buffer --tagstring "job {#} slot {%} using {1} from {3} to {6} : " \
+        'echo {1} | egrep "^#|^ *$" > /dev/null ||' \
+        $DRYRUN "curl -k -s -d 'host1='{2}';user1='{3}';password1='{4}';host2='{5}';user2='{6}';password2='{7} {1}"
+
diff --git a/examples/sync_parallel_unix.sh b/examples/sync_parallel_unix.sh
index 400f952..042bafb 100755
--- a/examples/sync_parallel_unix.sh
+++ b/examples/sync_parallel_unix.sh
@@ -1,6 +1,11 @@
 #!/bin/sh
 #
-# $Id: sync_parallel_unix.sh,v 1.7 2018/12/06 10:09:03 gilles Exp gilles $
+# $Id: sync_parallel_unix.sh,v 1.9 2021/02/19 13:41:51 gilles Exp gilles $
+
+# If you're on Windows there is a possibility to install and use parallel
+# but I have never tested it. I found:
+# https://stackoverflow.com/questions/52393850/how-to-install-gnu-parallel-on-windows-10-using-git-bash
+
 
 # Example for imapsync massive migration on Unix systems.
 # See also http://imapsync.lamiral.info/FAQ.d/FAQ.Massive.txt
@@ -12,8 +17,11 @@
 # in the while loop below.
 # # Each line contains 6 columns, columns are parameter values for 
 # --host1 --user1 --password1 --host2 --user2 --password2
-# and a trailing empty fake column to avoid CR LF part going 
-# in the 6th parameter password2. Don't forget the last semicolon.
+#
+# Extra columns can be used to pass extra parameters but the script reading
+# this file have to read them into some variables.
+#
+# Last, don't forget the last semicolon.
 #
 # You can add extra options after the last line 
 # Use character backslash \ at the end of each supplementary line, except for the last one.
@@ -22,32 +30,93 @@
 # The credentials filename "file.txt" used for the loop can be renamed 
 # by changing "file.txt" below.
 
-# The part 'echo {1} | egrep "^#" > /dev/null ||' is just there to skip commented lines in file.txt
-# It can be removed if there is no comment lines in file.txt
+# Now I explain what come next, the actual stuff, which is barely 
+# a single long command line written on several lines for the reading 
+# convenience
 
+# The first word is the parallel command itself, it's a perl utility 
+# written by Ole Tange, available on Linux systems, already packaged. 
+# It is also called GNU Parallel. The GNU Parallel homepage is
+# https://www.gnu.org/software/parallel/
+# Parallel is very powerful, you could easily distribute the parallel stuff
+# on remote machines with it (not used here).
+
+# The parallel command is then followed by its parameters.
+# parallel parameters explained:
+#
 # --max-procs 7 means parallel will parallelize up to 7 jobs at a time,
 # adjust this value by monitoring your system capacity.
+#
+# --delay 1.1 means parallel will pause 1.1 seconds after starting each job.
+#
+#  --colsep ';' means the separator between values is the character semi-colon ;
+# 
+# --arg-file file.txt means the actual input file is named file.txt
+# 
+# --line-buffer means outputs will be of whole lines instead of a big mess
+#  of part of them for the different processes. One line belongs to one process.
+# 
+# --tagstring "from {2} to {5} : " mean that each line will begin with the 
+# words "from {2} to {5} : " where {2} will be replaced by the second column
+# and {5}  will be replaced by the fifth column. Hack this part as you wish
+
+
+# The remaining parameters is the command to be executed by the parallel 
+# command, ie, the command to be run several times in parallel with 
+# different parameters each time. 
+
+# Some explanations about this remaining parts.
+#
+# The part 'echo {1} | egrep "^#" > /dev/null ||' is just there to skip 
+# commented lines in file.txt
+# It can be removed if there is no comment lines in file.txt
+
+# The part $DRYRUN is a variable that can be either the echo command
+# or nothing. It is a trick to permit you to see the command and its 
+# parameters without running it
+# 
+
+# {1} will be replaced by the first column in file.txt 
+# {2} will be replaced by the second column in file.txt 
+# {3} will be replaced by the third column in file.txt 
+# ...
+
+
+# "$@" will be replaced by the parameters of this script itself,
+# the one you are reading now. It's usefull if you want to
+# add temporarly a parameter for all runs without editing any file.
+# For example, 
+#   sync_parallel_unix.sh --justlogin 
+# will run all imapsync with the --justlogin parameter added.
+
+# --simulong 5 is just there to show that you can also add parameters
+# here and that you have read this section. --simulong 5 does nothing
+# else than printing "Are you still here ETA: xx/25 msgs left"
+# five times per second. It will show the living output of all
+# paralelized runs
 
-# --delay 2 means parallel will pause 2 seconds after starting each job.
 
 check_parallel_is_here() {
         parallel --version > /dev/null || { echo "parallel command is not installed. Install it first."; return 1; }
 }
 
+# First, there is no need to go further if the parallel command is not avalable
+# one the current system.
+
 check_parallel_is_here || exit 1 ;
 
 echo Looping with parallel on account credentials found in file.txt
 echo
 
+
 DRYRUN=echo
 # Comment the next line if you want to see the imapsync command instead of running it
+# since the previous echo value will be discarded
 DRYRUN=
 
-parallel --max-procs 7 --delay 2 --colsep ';' --arg-file file.txt --line-buffer --tagstring "from {2} to {5} : " \
+parallel --max-procs 7 --delay 1.1 --colsep ';' --arg-file file.txt --line-buffer --tagstring "from {2} to {5} : " \
         'echo {1} | egrep "^#|^ *$" > /dev/null ||' \
         $DRYRUN imapsync --host1 {1} --user1 {2} --password1 {3} \
-        --host2 {4} --user2 {5} --password2 {6} 
+        --host2 {4} --user2 {5} --password2 {6} "$@" --simulong 5 
 
 
-
-# {=7=} "$@" 
\ No newline at end of file
diff --git a/i3 b/i3
index f9431d6..7921010 100755
--- a/i3
+++ b/i3
@@ -1,7 +1,7 @@
 #!/bin/sh
 
-# $Id: i3,v 1.19 2019/05/27 22:05:18 gilles Exp gilles $
+# $Id: i3,v 1.20 2021/07/02 11:34:25 gilles Exp gilles $
 
 BASE=`dirname $0`
-perl -I${BASE}/W/Mail-IMAPClient-3.42/lib ${BASE}/imapsync "$@"
+perl -I${BASE}/W/Mail-IMAPClient-3.43/lib ${BASE}/imapsync "$@"
 
diff --git a/imapsync b/imapsync
index eed26e9..b21c509 100755
--- a/imapsync
+++ b/imapsync
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# $Id: imapsync,v 1.977 2019/12/23 20:18:02 gilles Exp gilles $
+# $Id: imapsync,v 2.140 2021/07/05 20:14:18 gilles Exp gilles $
 # structure
 # pod documentation
 # use pragmas
@@ -25,7 +25,7 @@ and without duplicates.
 
 =head1 VERSION
 
-This documentation refers to Imapsync $Revision: 1.977 $
+This documentation refers to Imapsync $Revision: 2.140 $
 
 =head1 USAGE
 
@@ -47,54 +47,82 @@ one another.
 Imapsync command is a tool allowing incremental and
 recursive imap transfers from one mailbox to another.
 If you don't understand the previous sentence, it's normal,
-it's pedantic computer oriented jargon.
+it's pedantic computer-oriented jargon.
 
 All folders are transferred, recursively, meaning
 the whole folder hierarchy is taken, all messages in them,
-and all messages flags (\Seen \Answered \Flagged etc.)
+and all message flags (\Seen \Answered \Flagged etc.)
 are synced too.
 
 Imapsync reduces the amount of data transferred by not transferring
 a given message if it already resides on the destination side.
 Messages that are on the destination side but not on the
-source side stay as they are (see the --delete2
-option to have a strict sync).
+source side stay as they are. See the --delete2
+option to have strict sync and delete them.
 
-How imapsync knows a message is already on both sides?
+How imapsync know a message is already on both sides?
 Same specific headers and the transfer is done only once.
 By default, the identification headers are
 "Message-Id:" and "Received:" lines
-but this choice can be changed with the --useheader option.
+but this choice can be changed with the --useheader option,
+most often a duplicate problem is solved by using
+--useheader "Message-Id"
+
 
 All flags are preserved, unread messages will stay unread,
 read ones will stay read, deleted will stay deleted.
+In the IMAP protocol, a deleted message is not really deleted,
+it is marked \Deleted and can be undelete. Real destruction
+comes with the EXPUNGE or UIDEXPUNGE IMAP commands.
 
 You can abort the transfer at any time and restart it later,
 imapsync works well with bad connections and interruptions,
 by design. On a terminal hit Ctr-c twice within two seconds
-in order to abort the program. Hit Ctr-c just once makes
+to abort the program. Hit Ctr-c just once makes
 imapsync reconnect to both imap servers.
 
+How do you know the sync is finished and well done?
+When imapsync ends by itself it mentions it with lines like those:
+
+  Exiting with return value 0 (EX_OK: successful termination) 0/50 nb_errors/max_errors PID 301
+  Removing pidfile /tmp/imapsync.pid
+  Log file is LOG_imapsync/2020_11_17_15_59_22_761_test1_test2.txt ( to change it, use --logfile filepath ; or use --nolog to turn off logging )
+
+If you don't have those lines it means that either the sync process is still
+running (or eventually hanging indefinitely) or that it ended without
+a whisper, a strong kill -9 on Linux for example.
+
+If you have those final lines then it means the sync process is properly
+finished. It may have encountered problems though.
+
+A good synchronization is mentioned by some lines above the last ones, especially
+those three lines:
+
+  The sync looks good, all 1745 identified messages in host1 are on host2.
+  There is no unidentified message on host1.
+  Detected 0 errors
+
+
 A classical scenario is synchronizing a mailbox B from another mailbox A
 where you just want to keep a strict copy of A in B. Strict meaning
 all messages in A will be in B but no more.
 
-For this, option --delete2 has to be used, it deletes messages in host2
-folder B that are not in host1 folder A. If you also need to destroy
+For this, option --delete2 can be used, it deletes messages in the host2
+folder B that are not in the host1 folder A. If you also need to destroy
 host2 folders that are not in host1 then use --delete2folders. See also
 --delete2foldersonly and --delete2foldersbutnot to set up exceptions
-on folders to destroy. INBOX will never be destroy, it's a mandatory
-folder in IMAP.
+on folders to destroy. INBOX will never be destroyed, it's a mandatory
+folder in IMAP so imapsync doesn't even try to remove it.
 
 A different scenario is to delete the messages from the source mailbox
 after a successful transfer, it can be a good feature when migrating
 mailboxes since messages will be only on one side. The source account
 will only have messages that are not on the destination yet, ie,
-messages that arrived after a sync or that failed to be copied.
+messages that arrived after a sync or that failed to be transferred.
 
 In that case, use the --delete1 option. Option --delete1 implies also
-option --expunge1 so all messages marked deleted on host1 will be really
-deleted. In IMAP protocol deleting a message does not really delete it,
+the option --expunge1 so all messages marked deleted on host1 will be
+deleted. In IMAP protocol deleting a message does not delete it,
 it marks it with the flag \Deleted, allowing an undelete. Expunging
 a folder removes, definitively, all the messages marked as \Deleted
 in this folder.
@@ -115,17 +143,18 @@ Michael R. Elkins) for a 2 ways synchronization.
  usage: imapsync [options]
 
 The standard options are the six values forming the credentials.
-Three values on each side are needed in order to log in into the IMAP 
-servers. These six values are a host, a username, and a password, two times.
+Three values on each side are needed in order to login into the IMAP
+servers. These six values are a hostname, a username, and a password, two times.
 
 Conventions used in the following descriptions of the options:
 
  str means string
- int means integer
+ int means integer number
+ flo means float number
  reg means regular expression
  cmd means command
 
- --dry               : Makes imapsync doing nothing for real, just print what
+ --dry               : Makes imapsync doing nothing for real; it just print what
                        would be done without --dry.
 
 =head2 OPTIONS/credentials
@@ -136,18 +165,18 @@ Conventions used in the following descriptions of the options:
                        Optional since default ports are the
                        well known ports imap/143 or imaps/993.
  --user1        str  : User to login on host1.
- --password1    str  : Password for the user1.
+ --password1    str  : Password of user1.
 
  --host2        str  : "destination" imap server.
  --port2        int  : Port to connect on host2. Optional
  --user2        str  : User to login on host2.
- --password2    str  : Password for the user2.
+ --password2    str  : Password of user2.
 
  --showpasswords     : Shows passwords on output instead of "MASKED".
                        Useful to restart a complete run by just reading
                        the command line used in the log,
                        or to debug passwords.
-                       It's not a secure practice at all.
+                       It's not a secure practice at all!
 
  --passfile1    str  : Password file for the user1. It must contain the
                        password on the first line. This option avoids showing
@@ -155,7 +184,10 @@ Conventions used in the following descriptions of the options:
  --passfile2    str  : Password file for the user2.
 
 You can also pass the passwords in the environment variables
-IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
+IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2. If you don't pass
+the user1 password via --password1 nor --passfile1 nor $IMAPSYNC_PASSWORD1
+then imapsync will prompt to enter the password on the terminal.
+Same thing for user2 password.
 
 =head2 OPTIONS/encryption
 
@@ -180,11 +212,16 @@ IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
  --sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
                        See --sslargs1
 
- --timeout1     int  : Connection timeout in seconds for host1.
+ --timeout1     flo  : Connection timeout in seconds for host1.
                        Default is 120 and 0 means no timeout at all.
- --timeout2     int  : Connection timeout in seconds for host2.
+ --timeout2     flo  : Connection timeout in seconds for host2.
                        Default is 120 and 0 means no timeout at all.
 
+                       Caveat, under CGI context, you may encounter a timeout
+                       from the webserver, killing imapsync and the imap connexions.
+                       See the document INSTALL.OnlineUI.txt and search
+                       for "Timeout" for how to deal with this issue.
+
 
 =head2 OPTIONS/authentication
 
@@ -205,6 +242,28 @@ IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
  --domain1      str  : Domain on host1 (NTLM authentication).
  --domain2      str  : Domain on host2 (NTLM authentication).
 
+ --oauthaccesstoken1 str : The access token to authenticate with OAUTH2.
+                       It will be combined with the --user1 value to form the 
+                       string to pass with XOAUTH2 authentication.
+                       The password given by --password1 or --passfile1
+                       is ignored.
+                       Instead of the access token itself, the value can be a
+                       file containing the access token on the first line.
+                       If the value is a file, imapsync reads its first line
+                       and take this line as the access token. The advantage
+                       of the file is that if the access token changes then
+                       imapsync can read it again when it needs to reconnect 
+                       during a run.
+
+
+ --oauthaccesstoken2 str : same thing as --oauthaccesstoken1 
+
+ --oauthdirect1 str  : The direct string to pass with XOAUTH2 authentication.
+                       The password given by --password1 or --passfile1 and 
+                       the user given by --user1 are ignored.
+
+ --oauthdirect2 str  : same thing as oauthdirect1
+ 
 
 =head2 OPTIONS/folders
 
@@ -241,6 +300,9 @@ IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
 
  --f1f2    str1=str2 : Force folder str1 to be synced to str2,
                        --f1f2 overrides --automap and --regextrans2.
+                       Use several --f1f2 options to map several folders.
+                       Option --f1f2 is a one to one only folder mapping,
+                       str1 and str2 have to be full path folder names.
 
  --subfolder2   str  : Syncs the whole host1 folders hierarchy under the
                        host2 folder named str.
@@ -285,7 +347,7 @@ IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
  --regextrans2  reg  : and this one. etc.
                        When you play with the --regextrans2 option, first
                        add also the safe options --dry --justfolders
-                       Then, when happy, remove --dry for a run, then 
+                       Then, when happy, remove --dry for a run, then
                        remove --justfolders for the next ones.
                        Have in mind that --regextrans2 is applied after
                        the automatic prefix and separator inversion.
@@ -309,9 +371,11 @@ IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
                        Default is system specific, Unix is /tmp but
                        /tmp is often too small and deleted at reboot.
                        --tmpdir /var/tmp should be better.
+
  --pidfile      str  : The file where imapsync pid is written,
-                       it can be dirname/filename.
-                       Default name is imapsync.pid in tmpdir.
+                       it can be dirname/filename complete path.
+                       The default name is imapsync.pid in tmpdir.
+
  --pidfilelocking    : Abort if pidfile already exists. Useful to avoid
                        concurrent transfers on the same mailbox.
 
@@ -329,7 +393,7 @@ The default logfile name is for example
 where:
 
  2019_12_22_23_57_59_532 is nearly the date of the start
- YYYY_MM_DD_HH_MM_SS_mmm 
+ YYYY_MM_DD_HH_MM_SS_mmm
  year_month_day_hour_minute_seconde_millisecond
 
 and user1 user2 are the --user1 --user2 values.
@@ -337,18 +401,18 @@ and user1 user2 are the --user1 --user2 values.
 =head2 OPTIONS/messages
 
  --skipmess     reg  : Skips messages matching the regex.
-                       Example: 'm/[\x80-ff]/' # to avoid 8bits messages.
+                       Example: 'm/[\x80-\xff]/' # to avoid 8bits messages.
                        --skipmess is applied before --regexmess
  --skipmess     reg  : or this one, etc.
 
  --skipcrossduplicates : Avoid copying messages that are already copied
-                         in another folder,  good from Gmail to X when
-                         X is not also Gmail.
+                         in another folder, good from Gmail to XYZ when
+                         XYZ is not also Gmail.
                          Activated with --gmail1 unless --noskipcrossduplicates
 
  --debugcrossduplicates : Prints which messages (UIDs) are skipped with
-                          --skipcrossduplicates (and in what other folders
-                          they are).
+                          --skipcrossduplicates and in what other folders
+                          they are.
 
  --pipemess     cmd  : Apply this cmd command to each message content
                        before the copy.
@@ -364,20 +428,21 @@ and user1 user2 are the --user1 --user2 values.
  --disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
 
  --regexmess    reg  : Apply the whole regex to each message before transfer.
-                       Example: 's/\000/ /g' # to replace null by space.
+                       Example: 's/\000/ /g' # to replace null characters
+                       by spaces.
  --regexmess    reg  : and this one, etc.
 
 =head2 OPTIONS/labels
 
-Gmail present labels as folders in imap. Imapsync can accelerate the sync 
+Gmail present labels as folders in imap. Imapsync can accelerate the sync
 by syncing X-GM-LABELS, it will avoid to transfer messages when they are
-already on host2.
+already on host2 in another folder.
 
 
  --synclabels        : Syncs also Gmail labels when a message is copied to host2.
                        Activated by default with --gmail1 --gmail2 unless
                        --nosynclabels is added.
-                       
+
  --resynclabels      : Resyncs Gmail labels when a message is already on host2.
                        Activated by default with --gmail1 --gmail2 unless
                        --noresynclabels is added.
@@ -400,6 +465,9 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
                        May be useful when a user has already started to play
                        with its host2 account.
 
+ --filterbuggyflags  : Filter flags known to be buggy and generators of errors
+                       "BAD Invalid system flag" or "NO APPEND Invalid flag list".
+
 =head2 OPTIONS/deletions
 
  --delete1           : Deletes messages on host1 server after a successful
@@ -424,16 +492,18 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
                          Useful with --delete1 since what remains on host1
                          is only what failed to be synced.
 
- --delete2           : Delete messages in host2 that are not in
-                       host1 server. Useful for backup or pre-sync.
+ --delete2           : Delete messages in the host2 account that are not in
+                       the host1 account. Useful for backup or pre-sync.
                        --delete2 implies --uidexpunge2
 
- --delete2duplicates : Delete messages in host2 that are duplicates.
+ --delete2duplicates : Deletes messages in host2 that are duplicates in host2.
                        Works only without --useuid since duplicates are
                        detected with an header part of each message.
+                       NB: --delete2duplicates is far less violent than --delete2
+                       since it removes only duplicates.
 
- --delete2folders    : Delete folders in host2 that are not in host1 server.
-                       For safety, first try it like this (it is safe):
+ --delete2folders    : Delete folders in host2 that are not in host1.
+                       For safety, first try it like this, it is safe:
                        --delete2folders --dry --justfolders --nofoldersizes
                        and see what folders will be deleted.
 
@@ -455,10 +525,10 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
  If you encounter problems with dates, see also:
  https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
 
- --syncinternaldates : Sets the internal dates on host2 same as host1.
+ --syncinternaldates : Sets the internal dates on host2 as the same as host1.
                        Turned on by default. Internal date is the date
-                       a message arrived on a host (Unix mtime).
- --idatefromheader   : Sets the internal dates on host2 same as the
+                       a message arrived on a host (Unix mtime usually).
+ --idatefromheader   : Sets the internal dates on host2 as same as the
                        ones in "Date:" headers.
 
 
@@ -467,6 +537,7 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
 
  --maxsize      int  : Skip messages larger  (or equal) than  int  bytes
  --minsize      int  : Skip messages smaller (or equal) than  int  bytes
+
  --maxage       int  : Skip messages older than  int days.
                        final stats (skipped) don't count older messages
                        see also --minage
@@ -487,18 +558,30 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
  --search2      str  : Same as --search but for selecting host2 messages only.
                        So --search CRIT equals --search1 CRIT --search2 CRIT
 
+ --noabletosearch    : Makes --minage and --maxage options use the internal
+                       dates given by a FETCH imap command instead of the
+                       "Date:" header. Internal date is the arrival date
+                       in the mailbox.
+                       --noabletosearch equals --noabletosearch1 --noabletosearch2
+
+ --noabletosearch1   : Like --noabletosearch but for host1 only.
+ --noabletosearch2   : Like --noabletosearch but for host2 only.
+
  --maxlinelength int : skip messages with a line length longer than  int  bytes.
                        RFC 2822 says it must be no more than 1000 bytes but
                        real life servers and email clients do more.
 
 
  --useheader    str  : Use this header to compare messages on both sides.
-                       Ex: Message-ID or Subject or Date.
+                       Example: "Message-Id" or "Received" or "Date".
  --useheader    str    and this one, etc.
 
- --usecache          : Use cache to speed up next syncs. Not set by default.
+ --syncduplicates    : Sync also duplicates. Off by default.
+
+ --usecache          : Use cache to speed up next syncs. Off by default.
  --nousecache        : Do not use cache. Caveat: --useuid --nousecache creates
                        duplicates on multiple runs.
+
  --useuid            : Use UIDs instead of headers as a criterion to recognize
                        messages. Option --usecache is then implied unless
                        --nousecache is used.
@@ -516,6 +599,7 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
                        --addheader adds a "Message-Id" header,
                        like "Message-Id: 12345@imapsync", where 12345
                        is the imap UID of the message on the host1 folder.
+                       Useful to sync folders "Sent" or "Draft".
 
 
 =head2 OPTIONS/debugging
@@ -534,7 +618,7 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
  --tests             : Run local non-regression tests. Exit code 0 means all ok.
  --testslive         : Run a live test with test1.lamiral.info imap server.
                        Useful to check the basics. Needs internet connection.
- --testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
+ --testslive6        : Run a live test with ks6ipv6.lamiral.info imap server.
                        Useful to check the ipv6 connectivity. Needs internet.
 
 
@@ -543,8 +627,8 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
   --gmail1           : sets --host1 to Gmail and other options. See FAQ.Gmail.txt
   --gmail2           : sets --host2 to Gmail and other options. See FAQ.Gmail.txt
 
-  --office1          : sets --host1 to Office365 and other options. See FAQ.Exchange.txt
-  --office2          : sets --host2 to Office365 and other options. See FAQ.Exchange.txt
+  --office1          : sets --host1 to Office365 and other options. See FAQ.Office365.txt
+  --office2          : sets --host2 to Office365 and other options. See FAQ.Office365.txt
 
   --exchange1        : sets options for Exchange. See FAQ.Exchange.txt
   --exchange2        : sets options for Exchange. See FAQ.Exchange.txt
@@ -555,13 +639,14 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
 
 =head2 OPTIONS/behavior
 
- --maxmessagespersecond int : limits the number of messages transferred per second.
+ --maxmessagespersecond flo : limits the average number of messages 
+                              transferred per second.
 
  --maxbytespersecond int : limits the average transfer rate per second.
  --maxbytesafter     int : starts --maxbytespersecond limitation only after
                            --maxbytesafter amount of data transferred.
 
- --maxsleep      int : do not sleep more than int seconds.
+ --maxsleep      flo : do not sleep more than int seconds.
                        On by default, 2 seconds max, like --maxsleep 2
 
  --abort             : terminates a previous call still running.
@@ -570,13 +655,13 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
  --exitwhenover int  : Stop syncing and exits when int total bytes
                        transferred is reached.
 
- --version           : Print only software version.
+ --version           : Print only the software version.
  --noreleasecheck    : Do not check for any new imapsync release.
  --releasecheck      : Check for new imapsync release.
                        it's an http request to
                        http://imapsync.lamiral.info/prj/imapsync/VERSION
 
- --noid              : Do not send/receive ID command to imap servers.
+ --noid              : Do not send/receive IMAP "ID" command to imap servers.
 
  --justconnect       : Just connect to both servers and print useful
                        information. Need only --host1 and --host2 options.
@@ -609,7 +694,7 @@ https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
 
 =head1 SECURITY
 
-You can use --passfile1  instead of --password1 to give the
+You can use --passfile1  instead of --password1 to mention the
 password since it is safer. With --password1 option, on Linux,
 any user on your host can see the password by using the 'ps auxwwww'
 command. Using a variable (like IMAPSYNC_PASSWORD1) is also
@@ -625,10 +710,10 @@ Imapsync activates ssl if the well known port imaps port (993) is open
 on the imap servers. If the imaps port is closed then it open a
 normal (clear) connection on port 143 but it looks for TLS support
 in the CAPABILITY list of the servers. If TLS is supported
-then imapsync goes to encryption.
+then imapsync goes to encryption with STARTTLS.
 
 If the automatic ssl and the tls detections fail then imapsync will
-not protect against sniffing activities on the network, especially 
+not protect against sniffing activities on the network, especially
 for passwords.
 
 If you want to force ssl or tls just use --ssl1 --ssl2 or --tls1 --tls2
@@ -641,12 +726,14 @@ or at https://imapsync.lamiral.info/FAQ.d/FAQ.Security.txt
 Imapsync will exit with a 0 status (return code) if everything went good.
 Otherwise, it exits with a non-zero status. That's classical Unix behavior.
 Here is the list of the exit code values (an integer between 0 and 255).
+In Bourne Shells, this exit code value can be retrieved within the variable
+value "$?" if you read it just after the imapsync call.
+
 The names reflect their meaning:
 
 =for comment
 egrep '^Readonly my.*\$EX' imapsync | egrep -o 'EX.*' | sed 's_^_     _'
 
-
      EX_OK          => 0  ; #/* successful termination */
      EX_USAGE       => 64 ; #/* command line usage error */
      EX_NOINPUT     => 66 ; #/* cannot open input */
@@ -654,6 +741,7 @@ egrep '^Readonly my.*\$EX' imapsync | egrep -o 'EX.*' | sed 's_^_     _'
      EX_SOFTWARE    => 70 ; #/* internal software error */
      EXIT_CATCH_ALL              =>   1 ; # Any other error
      EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
+     EXIT_BY_FILE                =>   7 ;
      EXIT_PID_FILE_ERROR         =>   8 ;
      EXIT_CONNECTION_FAILURE     =>  10 ;
      EXIT_TLS_FAILURE            =>  12 ;
@@ -661,8 +749,18 @@ egrep '^Readonly my.*\$EX' imapsync | egrep -o 'EX.*' | sed 's_^_     _'
      EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
      EXIT_WITH_ERRORS            => 111 ;
      EXIT_WITH_ERRORS_MAX        => 112 ;
+     EXIT_OVERQUOTA              => 113 ;
+     EXIT_ERR_APPEND             => 114 ;
+     EXIT_ERR_FETCH              => 115 ;
+     EXIT_ERR_CREATE             => 116 ;
+     EXIT_ERR_SELECT             => 117 ;
+     EXIT_TRANSFER_EXCEEDED      => 118 ;
+     EXIT_ERR_APPEND_VIRUS       => 119 ;
      EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-
+     EXIT_CONNECTION_FAILURE_HOST1     =>  101 ;
+     EXIT_CONNECTION_FAILURE_HOST2     =>  102 ;
+     EXIT_AUTHENTICATION_FAILURE_USER1 =>  161 ;
+     EXIT_AUTHENTICATION_FAILURE_USER2 =>  162 ;
 
 
 =head1 LICENSE AND COPYRIGHT
@@ -688,11 +786,11 @@ Good feedback is always welcome.
 Bad feedback is very often welcome.
 
 Gilles LAMIRAL earns his living by writing, installing,
-configuring and teaching free, open and often gratis
+configuring and sometimes teaching free, open and often gratis
 software. Imapsync used to be "always gratis" but now it is
 only "often gratis" because imapsync is sold by its author,
-a good way to maintain and support free open public
-software over decades.
+your servitor, a good way to maintain and support free open public
+software tools over decades.
 
 =head1 BUGS AND LIMITATIONS
 
@@ -745,8 +843,8 @@ https://imapsync.lamiral.info/examples/
  and all Server releases 2000, 2003, 2008 and R2, 2012 and R2, 2016)
  as a standalone binary software called imapsync.exe,
  usually launched from a batch file in order to avoid always typing
- the options. There is also a 64bit binary called imapsync_64bit.exe
- 
+ the options. There is also a 32bit binary called imapsync_32bit.exe
+
  Imapsync works under OS X as a standalone binary
  software called imapsync_bin_Darwin
 
@@ -783,8 +881,7 @@ Feel free to hack imapsync as the NOLIMIT license permits it.
   See also https://imapsync.lamiral.info/S/external.shtml
   for a better up to date list.
 
-Last updated and verified on Sun Dec 8, 2019.
-
+List verified on Friday July 1, 2021.
 
  imapsync: https://github.com/imapsync/imapsync (this is an imapsync copy, sometimes delayed, with --noreleasecheck by default since release 1.592, 2014/05/22)
  imap_tools: https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/. The imap_tools code is now at https://github.com/andrewnimmo/rick-sanders-imap-tools
@@ -792,6 +889,7 @@ Last updated and verified on Sun Dec 8, 2019.
  Doveadm-Sync: https://wiki2.dovecot.org/Tools/Doveadm/Sync ( Dovecot sync tool )
  davmail: http://davmail.sourceforge.net/
  offlineimap: http://offlineimap.org/
+ fdm: https://github.com/nicm/fdm
  mbsync: http://isync.sourceforge.net/
  mailsync: http://mailsync.sourceforge.net/
  mailutil: https://www.washington.edu/imap/ part of the UW IMAP toolkit. (well, seems abandoned now)
@@ -813,8 +911,8 @@ Last updated and verified on Sun Dec 8, 2019.
  imapbackup: https://github.com/rcarmo/imapbackup (A Python script for incremental backups of IMAP mailboxes)
  BitRecover email-backup 99 USD, 299 USD https://www.bitrecover.com/email-backup/.
  ImportExportTools: https://addons.thunderbird.net/en-us/thunderbird/addon/importexporttools/ ImportExportTools for Mozilla Thunderbird by Paolo Kaosmos. ImportExportTools does not do IMAP.
-
-
+ rximapmail: https://sourceforge.net/projects/rximapmail/
+ CodeTwo: https://www.codetwo.com/ but CodeTwo does imap source to Office365 only.
 
 =head1 HISTORY
 
@@ -825,7 +923,7 @@ away remote imap server, accessible by an
 often broken low-bandwidth ISDN link.
 
 I had to verify every mailbox was well transferred, all folders, all messages,
-without wasting bandwidth or creating duplicates upon resyncs. The imapsync 
+without wasting bandwidth or creating duplicates upon resyncs. The imapsync
 design was made with the beautiful rsync command in mind.
 
 Imapsync started its life as a patch of the copy_folder.pl
@@ -833,7 +931,7 @@ script. The script copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
 module tarball source (more precisely in the examples/ directory of the
 Mail-IMAPClient tarball).
 
-So many happened since then that I wonder
+So many changes happened since then that I wonder
 if it remains any lines of the original
 copy_folder.pl in imapsync source code.
 
@@ -847,9 +945,12 @@ copy_folder.pl in imapsync source code.
 use strict ;
 use warnings ;
 use Carp ;
+use Cwd ;
 use Data::Dumper ;
 use Digest::HMAC_SHA1 qw( hmac_sha1 hmac_sha1_hex ) ;
 use Digest::MD5  qw( md5 md5_hex md5_base64 ) ;
+use Encode ;
+use Encode::IMAPUTF7 ;
 use English qw( -no_match_vars ) ;
 use Errno qw(EAGAIN EPIPE ECONNRESET) ;
 use Fcntl ;
@@ -866,25 +967,23 @@ use IO::Socket::INET6 ;
 use IO::Socket::SSL ;
 use IO::Tee ;
 use IPC::Open3 'open3' ;
+#use locale ;
 use Mail::IMAPClient 3.30 ;
 use MIME::Base64 ;
 use Pod::Usage qw(pod2usage) ;
-use POSIX qw(uname SIGALRM :sys_wait_h) ;
+use POSIX qw( uname SIGALRM :sys_wait_h ) ;
 use Sys::Hostname ;
 use Term::ReadKey ;
 use Test::More ;
 use Time::HiRes qw( time sleep ) ;
 use Time::Local ;
 use Unicode::String ;
-use Cwd ;
 use Readonly ;
 use Sys::MemInfo ;
 use Regexp::Common ;
 use Text::ParseWords ; # for quotewords()
 use File::Tail ;
 
-use Encode ;
-use Encode::IMAPUTF7 ;
 
 
 local $OUTPUT_AUTOFLUSH = 1 ;
@@ -918,6 +1017,7 @@ Readonly my $EX_SOFTWARE    => 70 ; #/* internal software error */
 # Mine
 Readonly my $EXIT_CATCH_ALL              =>   1 ; # Any other error
 Readonly my $EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
+Readonly my $EXIT_BY_FILE                =>   7 ;
 Readonly my $EXIT_PID_FILE_ERROR         =>   8 ;
 Readonly my $EXIT_CONNECTION_FAILURE     =>  10 ;
 Readonly my $EXIT_TLS_FAILURE            =>  12 ;
@@ -925,10 +1025,22 @@ Readonly my $EXIT_AUTHENTICATION_FAILURE =>  16 ;
 Readonly my $EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
 Readonly my $EXIT_WITH_ERRORS            => 111 ;
 Readonly my $EXIT_WITH_ERRORS_MAX        => 112 ;
+Readonly my $EXIT_OVERQUOTA              => 113 ;
+Readonly my $EXIT_ERR_APPEND             => 114 ;
+Readonly my $EXIT_ERR_FETCH              => 115 ;
+Readonly my $EXIT_ERR_CREATE             => 116 ;
+Readonly my $EXIT_ERR_SELECT             => 117 ;
+Readonly my $EXIT_TRANSFER_EXCEEDED      => 118 ;
 
+Readonly my $EXIT_ERR_APPEND_VIRUS       => 119 ;
 
 Readonly my $EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
 
+Readonly my $EXIT_CONNECTION_FAILURE_HOST1     =>  101 ;
+Readonly my $EXIT_CONNECTION_FAILURE_HOST2     =>  102 ;
+Readonly my $EXIT_AUTHENTICATION_FAILURE_USER1 =>  161 ;
+Readonly my $EXIT_AUTHENTICATION_FAILURE_USER2 =>  162 ;
+
 
 Readonly my %EXIT_TXT => (
         $EX_OK                       => 'EX_OK: successful termination',
@@ -939,6 +1051,7 @@ Readonly my %EXIT_TXT => (
 
         $EXIT_CATCH_ALL              => 'EXIT_CATCH_ALL',
         $EXIT_BY_SIGNAL              => 'EXIT_BY_SIGNAL',
+        $EXIT_BY_FILE                => 'EXIT_BY_FILE',
         $EXIT_PID_FILE_ERROR         => 'EXIT_PID_FILE_ERROR' ,
         $EXIT_CONNECTION_FAILURE     => 'EXIT_CONNECTION_FAILURE',
         $EXIT_TLS_FAILURE            => 'EXIT_TLS_FAILURE',
@@ -946,7 +1059,37 @@ Readonly my %EXIT_TXT => (
         $EXIT_SUBFOLDER1_NO_EXISTS   => 'EXIT_SUBFOLDER1_NO_EXISTS',
         $EXIT_WITH_ERRORS            => 'EXIT_WITH_ERRORS',
         $EXIT_WITH_ERRORS_MAX        => 'EXIT_WITH_ERRORS_MAX',
+        $EXIT_OVERQUOTA              => 'EXIT_OVERQUOTA',
+        $EXIT_ERR_APPEND             => 'EXIT_ERR_APPEND',
+        $EXIT_ERR_APPEND_VIRUS       => 'EXIT_ERR_APPEND_VIRUS',
+        $EXIT_ERR_FETCH              => 'EXIT_ERR_FETCH',
+        $EXIT_ERR_CREATE             => 'EXIT_ERR_CREATE',
+        $EXIT_ERR_SELECT             => 'EXIT_ERR_SELECT',
         $EXIT_TESTS_FAILED           => 'EXIT_TESTS_FAILED',
+        $EXIT_TRANSFER_EXCEEDED      => 'EXIT_TRANSFER_EXCEEDED',
+        $EXIT_CONNECTION_FAILURE_HOST1 => 'EXIT_CONNECTION_FAILURE_HOST1',
+        $EXIT_CONNECTION_FAILURE_HOST2 => 'EXIT_CONNECTION_FAILURE_HOST2',
+        $EXIT_AUTHENTICATION_FAILURE_USER1 => 'EXIT_AUTHENTICATION_FAILURE_USER1',
+        $EXIT_AUTHENTICATION_FAILURE_USER2 => 'EXIT_AUTHENTICATION_FAILURE_USER2',
+) ;
+
+
+Readonly my %EXIT_VALUE_OF_ERR_TYPE => (
+        ERR_APPEND_SIZE  => $EXIT_ERR_APPEND,
+        ERR_OVERQUOTA    => $EXIT_OVERQUOTA,
+        ERR_APPEND       => $EXIT_ERR_APPEND,
+        ERR_APPEND_VIRUS => $EXIT_ERR_APPEND_VIRUS,
+        ERR_CREATE       => $EXIT_ERR_CREATE,
+        ERR_SELECT       => $EXIT_ERR_SELECT,
+        ERR_Host1_FETCH  => $EXIT_ERR_FETCH,
+        ERR_UNCLASSIFIED => $EXIT_WITH_ERRORS,
+        ERR_NOTHING_REPORTED  => $EXIT_WITH_ERRORS,
+        ERR_TRANSFER_EXCEEDED => $EXIT_TRANSFER_EXCEEDED,
+        ERR_CONNECTION_FAILURE_HOST1 => $EXIT_CONNECTION_FAILURE_HOST1,
+        ERR_CONNECTION_FAILURE_HOST2 => $EXIT_CONNECTION_FAILURE_HOST2,
+        ERR_AUTHENTICATION_FAILURE_USER1 => $EXIT_AUTHENTICATION_FAILURE_USER1,
+        ERR_AUTHENTICATION_FAILURE_USER2 => $EXIT_AUTHENTICATION_FAILURE_USER2,
+        ERR_EXIT_TLS_FAILURE             => $EXIT_TLS_FAILURE,
 ) ;
 
 
@@ -976,7 +1119,7 @@ Readonly my $RELEASE_NUMBER_EXAMPLE_2 => 42.4242 ;
 Readonly my $TCP_PING_TIMEOUT => 5 ;
 Readonly my $DEFAULT_TIMEOUT => 120 ;
 Readonly my $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND => 3 ;
-Readonly my $DEFAULT_UIDNEXT => 999_999 ;
+
 Readonly my $DEFAULT_BUFFER_SIZE => 4096 ;
 
 Readonly my $MAX_SLEEP => 2 ; # 2 seconds max for limiting too long sleeps from --maxbytespersecond and --maxmessagespersecond
@@ -1029,15 +1172,13 @@ Readonly my $FORCE => 1 ;
 
 
 # global variables
-# Currently working to finish with only $sync
+# Currently working to finish with only $sync, $acc1, $acc2
 # Not finished yet...
 
 my(
-        $sync,
-        $timestart_str,
-        $debugimap, $debugimap1, $debugimap2, $debugcontent, $debugflags,
+        $sync, $acc1, $acc2,
+        $debugcontent, $debugflags,
         $debuglist, $debugdev, $debugmaxlinelength, $debugcgi,
-        $domain1, $domain2,
 
         @include, @exclude, @folderrec,
         @folderfirst, @folderlast,
@@ -1052,46 +1193,39 @@ my(
         %h2_folders_from_1_several,
 
         $prefix1, $prefix2,
-        @regexmess, @regexflag, @skipmess, @pipemess, $pipemesscheck,
-        $flagscase, $filterflags, $syncflagsaftercopy,
+        @regexmess, @skipmess, @pipemess, $pipemesscheck,
+        $syncflagsaftercopy,
         $syncinternaldates,
         $idatefromheader,
-        $syncacls,
-        $fastio1, $fastio2,
+
         $minsize, $maxage, $minage,
         $search,
-        $skipheader, @useheader, %useheader,
+        @useheader, %useheader,
         $skipsize, $allowsizemismatch, $buffersize,
 
 
         $authmd5, $authmd51, $authmd52,
         $subscribed, $subscribe, $subscribeall,
         $help,
-        $justbanner,
+
         $fast,
 
         $nb_msg_skipped_dry_mode,
-        $h1_nb_msg_duplicate,
-        $h2_nb_msg_duplicate,
-        $h2_nb_msg_noheader,
 
-        $h2_nb_msg_deleted,
+        $h2_nb_msg_noheader,
 
         $h1_bytes_processed,
 
         $h1_nb_msg_end, $h1_bytes_end,
         $h2_nb_msg_end, $h2_bytes_end,
 
-        $timeout,
         $timestart_int,
 
         $uid1, $uid2,
-        $authuser1, $authuser2,
-        $proxyauth1, $proxyauth2,
-        $authmech1, $authmech2,
+
+
         $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-        $max_msg_size_in_bytes,
+
         $modulesversion,
         $delete2folders, $delete2foldersonly, $delete2foldersbutnot,
         $usecache, $debugcache, $cacheaftercopy,
@@ -1101,7 +1235,6 @@ my(
         $fixInboxINBOX,
         $maxlinelength, $maxlinelengthcmd,
         $minmaxlinelength,
-        $uidnext_default,
         $fixcolonbug,
         $create_folder_old,
         $skipcrossduplicates, $debugcrossduplicates,
@@ -1114,7 +1247,9 @@ my(
         $warn_release,
 ) ;
 
-single_sync(  ) ;
+single_sync( $sync, $acc1, $acc2 );
+
+
 
 sub single_sync
 {
@@ -1122,16 +1257,29 @@ sub single_sync
 # main program
 # global variables initialization
 
-# I'm currently removing all global variables except $sync
-# passing each of them under $sync->{variable_name}
+# I'm currently removing all global variables except $sync $acc1 $acc2
+# passing each of them under
+# $sync->{variable_name}
+# or $acc1->{variable_name}
+# or $acc1->{variable_name}
+
+# 
+$acc1 = {} ;
+$acc2 = {} ;
+$sync->{ acc1 } = $acc1 ;
+$sync->{ acc2 } = $acc2 ;
+
+$acc1->{ Side } = 'Host1' ;
+$acc2->{ Side } = 'Host2' ;
 
 $sync->{timestart} = time ; # Is a float because of use Time::HiRres
 
-$sync->{rcs} = q{$Id: imapsync,v 1.977 2019/12/23 20:18:02 gilles Exp gilles $} ;
+$sync->{rcs} = q{$Id: imapsync,v 2.140 2021/07/05 20:14:18 gilles Exp gilles $} ;
 
 $sync->{ memory_consumption_at_start } = memory_consumption(  ) || 0 ;
 
 
+
 my @loadavg = loadavg(  ) ;
 
 $sync->{cpu_number} = cpu_number(  ) ;
@@ -1146,10 +1294,13 @@ $sync->{ total_bytes_transferred } = 0 ;
 $sync->{ total_bytes_skipped } = 0 ;
 $sync->{ nb_msg_transferred } = 0 ;
 $sync->{ nb_msg_skipped } = $nb_msg_skipped_dry_mode = 0 ;
-$sync->{ h1_nb_msg_deleted } = 0 ;
-$h2_nb_msg_deleted  = 0 ;
-$h1_nb_msg_duplicate = 0 ;
-$h2_nb_msg_duplicate = 0 ;
+
+$sync->{ acc1 }->{ nb_msg_deleted } = 0 ;
+$sync->{ acc2 }->{ nb_msg_deleted } = 0 ;
+
+$sync->{ acc1 }->{ nb_msg_duplicate } = 0 ;
+$sync->{ acc2 }->{ nb_msg_duplicate } = 0 ;
+
 $sync->{ h1_nb_msg_noheader } = 0 ;
 $h2_nb_msg_noheader = 0 ;
 
@@ -1165,8 +1316,8 @@ $sync->{ h2_nb_msg_crossdup } = 0 ;
 #$h1_nb_msg_end = $h1_bytes_end = 0 ;
 #$h2_nb_msg_end = $h2_bytes_end = 0 ;
 
-$sync->{nb_errors} = 0;
-$max_msg_size_in_bytes = 0;
+$sync->{ nb_errors } = 0;
+$sync->{ biggest_message_transferred } = 0;
 
 %month_abrev = (
    Jan => '00',
@@ -1198,8 +1349,6 @@ cgibuildheader( $sync ) ;
 myprint( output( $sync ) ) ;
 output_reset_with( $sync ) ;
 
-# Old place for cgiload( $sync ) ;
-
 # don't go on if options are not all known.
 if ( ! defined $options_good ) { exit $EX_USAGE ; }
 
@@ -1208,13 +1357,13 @@ if ( ! defined $options_good ) { exit $EX_USAGE ; }
 # the second line (ending with "1 ;") can then stay active or be commented,
 # the result will be the same: no releasecheck by default (because 0 is then the defined value).
 
-$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 0 ;
-#$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 1 ;
+#$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 0 ;
+$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 1 ;
 
 # just the version
 if ( $sync->{ version } ) {
         myprint( imapsync_version( $sync ), "\n" ) ;
-        exit 0 ;
+        return 0 ;
 }
 
 #$sync->{debugenv} = 1 ;
@@ -1224,6 +1373,8 @@ load_modules(  ) ;
 # after_get_options call usage and exit if --help or options were not well got
 after_get_options( $sync, $options_good ) ;
 
+#local $ENV{TZ} = 'GMT' if ( under_cgi_context( $sync ) and 'MSWin32' ne $OSNAME ) ;
+#output( $sync, localtime(time) . " " . gmtime(time) . "\n" ) ;
 
 # Under CGI environment, fix caveat emptor potential issues
 cgisetcontext( $sync ) ;
@@ -1237,28 +1388,40 @@ sanitize( $sync ) ;
 $sync->{ tmpdir } ||= File::Spec->tmpdir(  ) ;
 
 # Unit tests
-testsexit( $sync ) ;
+my $unittestssuite = unittestssuite( $sync ) ;
+
+
+if ( condition_to_leave_after_tests( $sync ) )
+{
+        return $unittestssuite ; 
+}
 
 # init live varaiables
-testslive_init( $sync ) if ( $sync->{testslive} ) ;
-testslive6_init( $sync ) if ( $sync->{testslive6} )  ;
 
-#
+if ( $sync->{ testslive } )
+{
+        testslive_init( $sync ) ;
+}
 
-pidfile( $sync ) ;
+if ( $sync->{ testslive6 } )
+{
+        testslive6_init( $sync ) ;
+}
 
-# old abort place
+define_pidfile( $sync ) ;
+if ( $sync->{ abortbyfile } ) { $sync->{ abort } = 1 ; }
 
 install_signals( $sync ) ;
 
-$sync->{log}        = defined $sync->{log}        ? $sync->{log}        :  1 ;
-$sync->{errorsdump} = defined $sync->{errorsdump} ? $sync->{errorsdump} :  1 ;
-$sync->{errorsmax}  = defined $sync->{errorsmax}  ? $sync->{errorsmax}  : $ERRORS_MAX ;
+$sync->{ log }        = defined $sync->{ log }        ? $sync->{ log }        :  1 ;
+$sync->{ errorsdump } = defined $sync->{ errorsdump } ? $sync->{ errorsdump } :  1 ;
+$sync->{ errorsmax }  = defined $sync->{ errorsmax }  ? $sync->{ errorsmax }  : $ERRORS_MAX ;
 
 # log and output
 binmode STDOUT, ":encoding(UTF-8)" ;
 
-if ( $sync->{log} ) {
+
+if ( $sync->{ log } ) {
         setlogfile( $sync ) ;
         teelaunch( $sync ) ;
         # now $sync->{tee} is a filehandle to STDOUT and the logfile
@@ -1266,7 +1429,7 @@ if ( $sync->{log} ) {
 
 #binmode STDERR, ":encoding(UTF-8)" ;
 # STDERR goes to the same place: LOG and STDOUT (if logging is on)
-# Useful only for --debugssl 
+# Useful only for --debugssl
 $sync->{tee} and local *STDERR = *${$sync->{tee}}{IO} ;
 
 
@@ -1275,14 +1438,14 @@ $timestart_int = int( $sync->{timestart} ) ;
 $sync->{timebefore} = $sync->{timestart} ;
 
 
-$timestart_str = localtime( $sync->{timestart} ) ;
+$sync->{ timestart_str } = localtimez( $sync->{timestart} ) ;
 
 # The prints in the log starts here
 
 myprint( localhost_info( $sync ), "\n" ) ;
-myprint( "Transfer started at $timestart_str\n" ) ;
+myprint( "Transfer started at $sync->{ timestart_str }\n" ) ;
 myprint( "PID is $PROCESS_ID my PPID is ", mygetppid(  ), "\n" ) ;
-myprint( "Log file is $sync->{logfile} ( to change it, use --logfile path ; or use --nolog to turn off logging )\n" ) if ( $sync->{log} ) ;
+announcelogfile( $sync ) ;
 myprint( "Load is " . ( join( q{ }, loadavg(  ) ) || 'unknown' ), " on $sync->{cpu_number} cores\n" ) ;
 #myprintf( "Memory consumption so far: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ;
 myprint( 'Current directory is ' . getcwd(  ) . "\n" ) ;
@@ -1296,11 +1459,13 @@ $warn_release = ( $sync->{releasecheck} ) ? check_last_release(  ) : $STR_use_re
 
 $wholeheaderifneeded  = defined  $wholeheaderifneeded   ? $wholeheaderifneeded  : 1;
 
-# Activate --usecache if --useuid is set and no --nousecache
+# Activate --usecache if --useuid is set and there is no --nousecache
 $usecache = 1 if ( $useuid and ( ! defined  $usecache   ) ) ;
 $cacheaftercopy = 1 if ( $usecache and ( ! defined  $cacheaftercopy  ) ) ;
 
-$sync->{ checkselectable } = defined $sync->{ checkselectable } ? $sync->{ checkselectable } : 1 ;
+
+
+
 $sync->{ checkfoldersexist } = defined $sync->{ checkfoldersexist } ? $sync->{ checkfoldersexist } : 1 ;
 $checkmessageexists = defined  $checkmessageexists  ? $checkmessageexists : 0 ;
 $sync->{ expungeaftereach }   = defined  $sync->{ expungeaftereach }  ? $sync->{ expungeaftereach } : 1 ;
@@ -1312,6 +1477,7 @@ $sync->{abletosearch2}   = defined  $sync->{abletosearch2}  ? $sync->{abletosear
 $checkmessageexists      = 0 if ( not $sync->{abletosearch1} ) ;
 
 
+$sync->{ trylogin } = defined $sync->{ trylogin } ? $sync->{ trylogin } : 1 ;
 $sync->{showpasswords}   = defined  $sync->{showpasswords}  ? $sync->{showpasswords} : 0 ;
 $sync->{ fixslash2 }     = defined  $sync->{ fixslash2 }  ? $sync->{ fixslash2 } : 1 ;
 $fixInboxINBOX      = defined  $fixInboxINBOX  ? $fixInboxINBOX : 1 ;
@@ -1335,19 +1501,18 @@ output_reset_with( $sync ) ;
 
 do_valid_directory( $sync->{ tmpdir } ) || croak "Error creating tmpdir $sync->{ tmpdir } : $OS_ERROR" ;
 
-remove_pidfile_not_running( $sync->{pidfile} ) ;
+remove_pidfile_not_running( $sync->{ pidfile } ) ;
 
 # if another imapsync is running then tail -f its logfile and exit
 # useful in cgi context
 if ( $sync->{ tail } and tail( $sync ) )
 {
-        $sync->{nb_errors}++ ;
         exit_clean( $sync, $EX_OK, "Tail -f finished. Now finishing myself processus $PROCESS_ID\n" ) ;
         exit $EX_OK ;
 }
 
 if ( ! write_pidfile( $sync ) ) {
-        myprint( "Exiting with return value $EXIT_PID_FILE_ERROR ($EXIT_TXT{$EXIT_PID_FILE_ERROR}) $sync->{nb_errors}/$sync->{errorsmax} nb_errors/max_errors\n" ) ;
+        myprint( "Exiting with return value $EXIT_PID_FILE_ERROR ($EXIT_TXT{$EXIT_PID_FILE_ERROR}) $sync->{nb_errors}/$sync->{errorsmax} nb_errors/max_errors PID $PROCESS_ID\n" ) ;
         exit $EXIT_PID_FILE_ERROR ;
 }
 
@@ -1357,13 +1522,16 @@ if ( ! write_pidfile( $sync ) ) {
 if ( $sync->{ abort } )
 {
         abort( $sync ) ;
+        # well, the abort job is done, because even when not succeeded
+        # in aborting another run, this run has to end without doing any
+        # thing else
+
+        exit $EX_OK ;
 }
 
 # simulong is just a loop printing some lines for xx seconds with option "--simulong xx".
-if ( $sync->{ simulong } )
-{
-        simulong( $sync->{ simulong } ) ;
-}
+simulong( $sync ) ;
+
 
 
 # New place for cgiload 2019_03_03
@@ -1376,20 +1544,28 @@ $fixcolonbug = defined  $fixcolonbug  ? $fixcolonbug : 1 ;
 
 if ( $usecache and $fixcolonbug ) { tmpdir_fix_colon_bug( $sync ) } ;
 
-$modulesversion and myprint( "Modules version list:\n", modulesversion(), "( use --no-modulesversion to turn off printing this Perl modules list )\n" ) ;
+$modulesversion and myprint( "Modules version list ( use --no-modulesversion to turn off printing this Perl modules list ):\n", modulesversion(), "\n" ) ;
 
 
 check_lib_version( $sync ) or
   croak "imapsync needs perl lib Mail::IMAPClient release 3.30 or superior.\n";
 
 
-exit_clean( $sync, $EX_OK ) if ( $justbanner ) ;
+
+if ( $sync->{ justbanner } ) 
+{
+        myprint( "Exiting because of --justbanner\n" ) ;
+        exit_clean( $sync, $EX_OK ) ;
+}
 
 # turn on RFC standard flags correction like \SEEN -> \Seen
-$flagscase = defined  $flagscase  ? $flagscase : 1 ;
+$sync->{ flagscase } = defined  $sync->{ flagscase }  ? $sync->{ flagscase } : 1 ;
 
 # Use PERMANENTFLAGS if available
-$filterflags = defined  $filterflags  ? $filterflags : 1 ;
+$sync->{ filterflags } = defined  $sync->{ filterflags }  ? $sync->{ filterflags } : 1 ;
+
+filterbuggyflags( $sync ) ;
+
 
 # sync flags just after an APPEND, some servers ignore the flags given in the APPEND
 # like MailEnable IMAP server.
@@ -1412,13 +1588,18 @@ $split1 ||= $SPLIT ;
 $split2 ||= $SPLIT ;
 
 #$sync->{host1} || missing_option( $sync, '--host1' ) ;
+$sync->{host1} = sanitize_host( $sync->{host1} ) ;
 $sync->{port1} ||= ( $sync->{ssl1} ) ? $IMAP_SSL_PORT : $IMAP_PORT ;
 
 #$sync->{host2} || missing_option( $sync, '--host2' ) ;
+$sync->{host2} = sanitize_host( $sync->{host2} ) ;
 $sync->{port2} ||= ( $sync->{ssl2} ) ? $IMAP_SSL_PORT : $IMAP_PORT ;
 
-$debugimap1 = $debugimap2 = 1 if ( $debugimap ) ;
-$sync->{ debug } = 1 if ( $debugimap1 or $debugimap2 ) ;
+
+$acc1->{ debugimap } = $acc2->{ debugimap } = 1 if ( $sync->{ debugimap } ) ;
+# Set on debug mode if one of the imap dialogs are in debug.
+# imap dialog without the debug mode is scary and useless.
+$sync->{ debug } = 1 if ( $acc1->{ debugimap } or $acc2->{ debugimap } ) ;
 
 # By default, don't take size to compare
 $skipsize = (defined $skipsize) ? $skipsize : 1;
@@ -1455,6 +1636,7 @@ if ( $sync->{ssl1} or $sync->{ssl2} or $sync->{tls1} or $sync->{tls2}) {
 if ( $sync->{ssl1} ) {
         myprint( qq{Host1: SSL default mode is like --sslargs1 "SSL_verify_mode=$SSL_VERIFY_POLICY", meaning for host1 $SSL_VERIFY_STR{$SSL_VERIFY_POLICY}\n} ) ;
         myprint( 'Host1: Use --sslargs1 SSL_verify_mode=' . IO::Socket::SSL::SSL_VERIFY_PEER(  ) . " to have $SSL_VERIFY_STR{IO::Socket::SSL::SSL_VERIFY_PEER(  )} of host1\n" ) ;
+        # $sync->{ acc1 }->{sslargs}->{SSL_verify_mode}
 }
 
 if ( $sync->{ssl2} ) {
@@ -1516,8 +1698,11 @@ if ( ( $sync->{ delete2 } or $sync->{ delete2duplicates } ) and not defined  $sy
 }
 
 if ( $sync->{ delete1 } and $sync->{ delete2 } ) {
-        myprint( "Warning: using --delete1 and --delete2 together is almost always a bad idea, exiting imapsync\n" ) ;
-        $sync->{nb_errors}++ ;
+        myprint( "Warning: using --delete1 and --delete2 together is almost always a bad idea. "
+                . "You should probably launch two runs, the first with --delete2 for a strict sync, "
+                . "then the second with --delete1 to remove messages from the source account. "
+                . "Exiting imapsync.\n" ) ;
+        $sync->{ nb_errors }++ ;
         exit_clean( $sync, $EX_USAGE ) ;
 }
 
@@ -1540,44 +1725,48 @@ if ( defined $authmd5 and $authmd5 ) {
 }
 
 if ( defined $authmd51 and $authmd51 ) {
-        $authmech1 ||= 'CRAM-MD5';
+        $acc1->{ authmech } ||= 'CRAM-MD5' ;
 }
 else{
-        $authmech1 ||= $authuser1 ? 'PLAIN' : 'LOGIN';
+        $acc1->{ authmech } ||= $acc1->{ authuser } ? 'PLAIN' : 'LOGIN' ;
 }
 
 if ( defined $authmd52 and $authmd52 ) {
-        $authmech2 ||= 'CRAM-MD5';
+        $acc2->{ authmech } ||= 'CRAM-MD5';
 }
 else{
-        $authmech2 ||= $authuser2 ? 'PLAIN' : 'LOGIN';
+        $acc2->{ authmech } ||= $acc2->{ authuser } ? 'PLAIN' : 'LOGIN';
 }
 
-$authmech1 = uc $authmech1;
-$authmech2 = uc $authmech2;
+$acc1->{ authmech } = uc $acc1->{ authmech } ;
+$acc2->{ authmech } = uc $acc2->{ authmech } ;
 
-if (defined $proxyauth1 && !$authuser1) {
+if ( defined $acc1->{ proxyauth } && !$acc1->{ authuser } )
+{
         missing_option( $sync, 'With --proxyauth1, --authuser1' ) ;
 }
 
-if (defined $proxyauth2 && !$authuser2) {
+if ( defined $acc2->{ proxyauth } && !$acc2->{ authuser } )
+{
         missing_option( $sync, 'With --proxyauth2, --authuser2' ) ;
 }
 
-#$authuser1 ||= $sync->{user1};
-#$authuser2 ||= $sync->{user2};
+myprint( "Host1: will try to use $acc1->{ authmech } authentication on host1\n") ;
+myprint( "Host2: will try to use $acc2->{ authmech } authentication on host2\n") ;
 
-myprint( "Host1: will try to use $authmech1 authentication on host1\n") ;
-myprint( "Host2: will try to use $authmech2 authentication on host2\n") ;
+$sync->{ timeout } = defined  $sync->{ timeout }  ?$sync->{ timeout } : $DEFAULT_TIMEOUT ;
 
-$timeout = defined  $timeout  ? $timeout : $DEFAULT_TIMEOUT ;
+$sync->{ acc1 }->{timeout} = defined  $sync->{ acc1 }->{timeout}  ? $sync->{ acc1 }->{timeout} : $sync->{ timeout } ;
+myprint( "Host1: imap connection timeout is $sync->{ acc1 }->{timeout} seconds\n") ;
+$sync->{ acc2 }->{timeout} = defined  $sync->{ acc2 }->{timeout}  ? $sync->{ acc2 }->{timeout} : $sync->{ timeout } ;
+myprint( "Host2: imap connection timeout is $sync->{ acc2 }->{timeout} seconds\n" ) ;
 
-$sync->{h1}->{timeout} = defined  $sync->{h1}->{timeout}  ? $sync->{h1}->{timeout} : $timeout ;
-myprint( "Host1: imap connection timeout is $sync->{h1}->{timeout} seconds\n") ;
-$sync->{h2}->{timeout} = defined  $sync->{h2}->{timeout}  ? $sync->{h2}->{timeout} : $timeout ;
-myprint( "Host2: imap connection timeout is $sync->{h2}->{timeout} seconds\n" ) ;
+if ( under_cgi_context( $sync ) )
+{
+        myprint( "Under CGI context, a timeout can occur from the webserver, see https://imapsync.lamiral.info/INSTALL.d/INSTALL.OnlineUI.txt\n" ) ;
+}
 
-$syncacls = defined  $syncacls  ? $syncacls : 0 ;
+$sync->{ syncacls } = defined  $sync->{ syncacls } ? $sync->{ syncacls } : 0 ;
 
 # No folders sizes if --justfolders, unless really wanted.
 if (
@@ -1592,21 +1781,21 @@ if (
 $sync->{ foldersizes }       = ( defined  $sync->{ foldersizes } )      ? $sync->{ foldersizes }      : 1 ;
 $sync->{ foldersizesatend }  = ( defined  $sync->{ foldersizesatend } ) ? $sync->{ foldersizesatend } : $sync->{ foldersizes } ;
 
+$sync->{ checknoabletosearch } = ( defined  $sync->{ checknoabletosearch } ) ? $sync->{ checknoabletosearch } : 1 ;
 
-$fastio1 = defined  $fastio1  ? $fastio1 : 0 ;
-$fastio2 = defined  $fastio2  ? $fastio2 : 0 ;
 
-$reconnectretry1 = defined  $reconnectretry1  ? $reconnectretry1 : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
-$reconnectretry2 = defined  $reconnectretry2  ? $reconnectretry2 : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
+$acc1->{ fastio } = defined  $acc1->{ fastio }  ? $acc1->{ fastio } : 0 ;
+$acc2->{ fastio } = defined  $acc2->{ fastio }  ? $acc2->{ fastio } : 0 ;
+
+
+$acc1->{ reconnectretry } = defined  $acc1->{ reconnectretry }  ? $acc1->{ reconnectretry } : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
+$acc2->{ reconnectretry } = defined  $acc2->{ reconnectretry }  ? $acc2->{ reconnectretry } : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
 
-# Since select_msgs() returns no messages when uidnext does not return something
-# then $uidnext_default is never used. So I have to remove it.
-$uidnext_default = $DEFAULT_UIDNEXT ;
 
 if ( ! @useheader ) { @useheader = qw( Message-Id Received )  ; }
 
 # Make a hash %useheader of each --useheader 'key' in uppercase
-for ( @useheader ) { $useheader{ uc  $_  } = undef } ;
+for ( @useheader ) { $sync->{useheader}->{ uc  $_  } = undef } ;
 
 #myprint( Data::Dumper->Dump( [ \%useheader ] )  ) ;
 #exit ;
@@ -1617,6 +1806,10 @@ myprint( "Host2: IMAP server [$sync->{host2}] port [$sync->{port2}] user [$sync-
 get_password1( $sync ) ;
 get_password2( $sync ) ;
 
+# --dry1 make imapsync not fetching messages from host1, it is on when --dry is on.
+# Use --dry --nodry1 to make imapsync fetching messages from host1,
+# It is useful when debugging transformation options like --pipemess or --regexmess
+$sync->{dry1} = defined $sync->{dry1} ? $sync->{dry1} : $sync->{dry} ;
 
 $sync->{dry_message} = q{} ;
 if( $sync->{dry} ) {
@@ -1626,7 +1819,8 @@ if( $sync->{dry} ) {
 $sync->{ search1 } ||= $search if ( $search ) ;
 $sync->{ search2 } ||= $search if ( $search ) ;
 
-if ( $disarmreadreceipts ) {
+if ( $disarmreadreceipts )
+{
         push @regexmess, q{s{\A((?:[^\n]+\r\n)+|)(^Disposition-Notification-To:[^\n]*\n)(\r?\n|.*\n\r?\n)}{$1X-$2$3}ims} ;
 }
 
@@ -1688,9 +1882,9 @@ if ( @skipmess ) {
         myprint( "Ok with each --skipmess\n"  ) ;
 }
 
-if ( @regexflag ) {
+if ( $sync->{ regexflag } ) {
         myprint( "Checking each --regexflag command with an space string.\n"  ) ;
-        my $string = flags_regex( q{ } ) ;
+        my $string = regexflags( $sync, q{ } ) ;
         # string undef means one of the eval regex was bad.
         if ( not ( defined  $string  ) ) {
                 $sync->{nb_errors}++ ;
@@ -1701,33 +1895,26 @@ if ( @regexflag ) {
         myprint( "Ok with each --regexflag\n"  ) ;
 }
 
-$sync->{imap1} = login_imap( $sync->{host1}, $sync->{port1}, $sync->{user1}, $domain1, $sync->{password1},
-                   $debugimap1, $sync->{h1}->{timeout}, $fastio1, $sync->{ssl1}, $sync->{tls1},
-                   $authmech1, $authuser1, $reconnectretry1,
-                   $proxyauth1, $uid1, $split1, 'Host1', $sync->{h1}, $sync ) ;
+$sync->{imap1} = login_imap( $sync->{host1}, $sync->{port1}, $sync->{user1}, $sync->{password1},
+                   $sync->{ssl1}, $sync->{tls1},
+                   $uid1, $split1, $sync->{ acc1 }, $sync ) ;
 
-$sync->{imap2} = login_imap( $sync->{host2}, $sync->{port2}, $sync->{user2}, $domain2, $sync->{password2},
-                 $debugimap2, $sync->{h2}->{timeout}, $fastio2, $sync->{ssl2}, $sync->{tls2},
-                 $authmech2, $authuser2, $reconnectretry2,
-                 $proxyauth2, $uid2, $split2, 'Host2', $sync->{h2}, $sync ) ;
+$sync->{imap2} = login_imap( $sync->{host2}, $sync->{port2}, $sync->{user2}, $sync->{password2},
+                 $sync->{ssl2}, $sync->{tls2},
+                 $uid2, $split2, $sync->{ acc2 }, $sync ) ;
 
 
-$sync->{ debug } and myprint( 'Host1 Buffer I/O: ', $sync->{imap1}->Buffer(), "\n" ) ;
-$sync->{ debug } and myprint( 'Host2 Buffer I/O: ', $sync->{imap2}->Buffer(), "\n" ) ;
+$sync->{ debug } and $sync->{imap1} and myprint( 'Host1 Buffer I/O: ', $sync->{imap1}->Buffer(), "\n" ) ;
+$sync->{ debug } and $sync->{imap2} and myprint( 'Host2 Buffer I/O: ', $sync->{imap2}->Buffer(), "\n" ) ;
 
 
-if ( ! $sync->{imap1}->IsAuthenticated( ) )
+if ( ! $sync->{imap1} || ! $sync->{imap2} )
 {
-        $sync->{nb_errors}++ ;
-        exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "Not authenticated on host1\n" )  ;
+        exit_most_errors( $sync ) ;
 }
+
+
 myprint( "Host1: state Authenticated\n" ) ;
-
-if ( ! $sync->{imap2}->IsAuthenticated( ) )
-{
-        $sync->{nb_errors}++ ;
-        exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "Not authenticated on host2\n" )  ;
-}
 myprint( "Host2: state Authenticated\n" ) ;
 
 myprint( 'Host1 capability once authenticated: ', join(q{ }, @{ $sync->{imap1}->capability() || [] }), "\n" ) ;
@@ -1886,29 +2073,17 @@ if ( $sync->{ checkfoldersexist } ) {
         myprint( "Host1: Not checking that wanted folders exist. Remove --nocheckfoldersexist to get this check.\n"  ) ;
 }
 
+setcheckselectable( $sync ) ;
 
-if ( $sync->{ checkselectable } ) {
-        my @h1_folders_wanted_selectable ;
-        myprint( "Host1: Checking wanted folders are selectable. Use --nocheckselectable to avoid this check.\n"  ) ;
-        foreach my $folder ( @{ $sync->{h1_folders_wanted} } ) {
-                ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "Checking $folder is selectable on host1\n"  ) ;
-                # It does an imap command  LIST "" $folder and then search for no \Noselect
-                if ( ! $sync->{imap1}->selectable( $folder ) ) {
-                                myprint( "Host1: warning! ignoring folder $folder because it is not selectable\n" ) ;
-                }else{
-                        push  @h1_folders_wanted_selectable, $folder  ;
-                }
-        }
-        @{ $sync->{h1_folders_wanted} } = @h1_folders_wanted_selectable ;
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( 'Host1: checking folders took ', timenext( $sync ), " s\n"  ) ;
-}else{
-        myprint( "Host1: Not checking that wanted folders are selectable. Remove --nocheckselectable to get this check.\n"  ) ;
-}
+checkselectable( $sync ) ;
 
 
 
-# Old place of private_folders_separators_and_prefixes(  ) call.
-#private_folders_separators_and_prefixes(  ) ;
+# Bugfix OpenFind folders named like "kk \*123" are in fact "kk *123" (no \)
+#foreach my $folder ( @{ $sync->{ h1_folders_wanted } } )
+#{
+#        $folder =~ s{ \\\*}{ *}g ;
+#}
 
 
 # this hack is because LWP post does not pass well a hash in the $form parameter
@@ -2021,6 +2196,25 @@ if ( $sync->{ skipemptyfolders } )
         myprint( "Host1: will not syncing empty folders on host1. Use --noskipemptyfolders to create them anyway on host2\n") ;
 }
 
+if ( $sync->{ checknoabletosearch } )
+{
+        myprint( "Checking SEARCH ALL works on both accounts. To avoid that check, use --nochecknoabletosearch\n" ) ;
+        my $check1 = checknoabletosearch( $sync, $sync->{ imap1 }, 'INBOX', 'Host1' ) ;
+        my $check2 = checknoabletosearch( $sync, $sync->{ imap2 }, 'INBOX', 'Host2' ) ;
+        if ( $check1 or $check2 )
+        {
+                myprint( "At least one account can not SEARCH ALL. So acting like --noabletosearch\n" ) ;
+                $sync->{abletosearch}  = 0 ;
+                $sync->{abletosearch1} = 0 ;
+                $sync->{abletosearch2} = 0 ;
+        }
+        else
+        {
+                myprint( "Good! SEARCH ALL works on both accounts.\n" ) ;
+        }
+}
+
+
 
 if ( $sync->{ foldersizes } ) {
 
@@ -2035,7 +2229,7 @@ if ( $sync->{ justfoldersizes } )
         exit_clean( $sync, $EX_OK, "Exiting because of --justfoldersizes\n" ) ;
 }
 
-$sync->{stats} = 1 ;
+$sync->{can_do_stats} = 1 ;
 
 if ( $sync->{ delete1emptyfolders } ) {
         delete1emptyfolders( $sync ) ;
@@ -2060,6 +2254,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
 {
         $sync->{ h1_current_folder } = $h1_fold ;
         eta_print( $sync ) ;
+        abortifneeded( $sync ) ;
         if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
         my $h2_fold = imap2_folder_name( $sync, $h1_fold ) ;
@@ -2075,10 +2270,15 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
 
         debugsleep( $sync ) ;
 
-        my $h1_fold_nb_messages = count_from_select( $sync->{imap1}->History ) ;
-        myprint( "Host1: folder [$h1_fold] has $h1_fold_nb_messages messages in total (mentioned by SELECT)\n" ) ;
+        my $h1_msgs_all_hash_ref ;
+        my @h1_msgs ;
+        my $h1_msgs_nb ;
+        my $h1_msgs_nb_from_select ;
 
-        if ( $sync->{ skipemptyfolders } and 0 == $h1_fold_nb_messages ) {
+        $h1_msgs_nb_from_select = count_from_select( $sync->{imap1}->History ) ;
+        myprint( "Host1: folder [$h1_fold] has $h1_msgs_nb_from_select messages in total (mentioned by SELECT)\n" ) ;
+
+        if ( $sync->{ skipemptyfolders } and 0 == $h1_msgs_nb_from_select ) {
                 myprint( "Host1: skipping empty host1 folder [$h1_fold]\n"  ) ;
                 next FOLDER ;
         }
@@ -2087,22 +2287,32 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         # Thanks jh1995
         # Goal: do not create folder if --search or --max/minage return 0 message.
         # even if there are messages by SELECT (no not real empty, empty for the user point of vue).
-        if ( $sync->{ skipemptyfolders } )
+        if ( $sync->{ skipemptyfolders } or $sync->{ dry } )
         {
-                my $h1_msgs_all_hash_ref_tmp = {  } ;
-                my @h1_msgs_tmp = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref_tmp, $sync->{ search1 }, $h1_fold ) ;
-                my $h1_fold_nb_messages_tmp = scalar( @h1_msgs_tmp ) ;
-                if ( 0 == $h1_fold_nb_messages_tmp ) {
+                $h1_msgs_all_hash_ref = {  } ;
+                @h1_msgs = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref, $sync->{ search1 }, $sync->{abletosearch1}, $h1_fold ) ;
+
+                $h1_msgs_nb = scalar( @h1_msgs ) ;
+                if ( 0 == $h1_msgs_nb and $sync->{ skipemptyfolders } ) {
                         myprint( "Host1: skipping empty host1 folder [$h1_fold] (0 message found by SEARCH)\n"  ) ;
                         next FOLDER ;
                 }
         }
 
         if ( ! exists  $h2_folders_all{ $h2_fold }  ) {
-                create_folder( $sync, $sync->{imap2}, $h2_fold, $h1_fold ) or next FOLDER ;
+                # In --dry mode I could count the messages to be transfered instead of 0
+                # Messages transferred : 0 (could be 0 without dry mode)
+                if ( ! create_folder( $sync, $sync->{imap2}, $h2_fold, $h1_fold ) )
+                {
+                        if ( $sync->{ dry } )
+                        {
+                                $nb_msg_skipped_dry_mode += $h1_msgs_nb ;
+                        }
+                        next FOLDER ;
+                }
         }
 
-        acls_sync( $h1_fold, $h2_fold ) ;
+        acls_sync( $sync, $h1_fold, $h2_fold ) ;
 
         # Sometimes the folder on host2 is listed (it exists) but is
         # not selectable but becomes selectable by a create (Gmail)
@@ -2138,13 +2348,18 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
 
         if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
-        my $h1_msgs_all_hash_ref = {  } ;
-        my @h1_msgs = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref, $sync->{ search1 }, $sync->{abletosearch1}, $h1_fold );
+
+        if ( ! defined $h1_msgs_nb )
+        {
+                $h1_msgs_all_hash_ref = {  } ;
+                @h1_msgs = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref, $sync->{ search1 }, $sync->{abletosearch1}, $h1_fold );
+                $h1_msgs_nb = scalar @h1_msgs  ;
+        }else{
+                # select_msgs already done.
+        }
 
         if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
-        my $h1_msgs_nb = scalar  @h1_msgs  ;
-
         myprint( "Host1: folder [$h1_fold] considering $h1_msgs_nb messages\n"  ) ;
         ( $sync->{ debug } or $debuglist ) and myprint( "Host1: folder [$h1_fold] considering $h1_msgs_nb messages, LIST gives: @h1_msgs\n" ) ;
         $sync->{ debug } and myprint( "Host1: selecting messages of folder [$h1_fold] took ", timenext( $sync ), " s\n" ) ;
@@ -2188,7 +2403,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         @h2_msgs{ @h2_msgs } = (  ) ;
 
         my @h1_msgs_in_cache = sort { $a <=> $b } keys %{ $cache_1_2_ref } ;
-        my @h2_msgs_in_cache = keys %{ $cache_2_1_ref } ;
+        my @h2_msgs_in_cache = sort { $a <=> $b } keys %{ $cache_2_1_ref } ;
 
         my ( %h1_msgs_not_in_cache, %h2_msgs_not_in_cache ) ;
         %h1_msgs_not_in_cache = %h1_msgs ;
@@ -2196,9 +2411,9 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         delete @h1_msgs_not_in_cache{ @h1_msgs_in_cache } ;
         delete @h2_msgs_not_in_cache{ @h2_msgs_in_cache } ;
 
-        my @h1_msgs_not_in_cache = keys %h1_msgs_not_in_cache ;
+        my @h1_msgs_not_in_cache = sort { $a <=> $b } keys %h1_msgs_not_in_cache ;
         #myprint( "h1_msgs_not_in_cache: [@h1_msgs_not_in_cache]\n"  ) ;
-        my @h2_msgs_not_in_cache = keys %h2_msgs_not_in_cache ;
+        my @h2_msgs_not_in_cache = sort { $a <=> $b } keys %h2_msgs_not_in_cache ;
 
         my @h2_msgs_delete2_not_in_cache = () ;
         %h1_msgs_copy_by_uid = (  ) ;
@@ -2233,8 +2448,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         }
         else
         {
-                my $uidnext = $sync->{imap1}->uidnext( $h1_fold ) || $uidnext_default ;
-                my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
+                my $fetch_hash_uids = $fetch_hash_set || "1:*" ;
                 $h1_fir_ref = $sync->{imap1}->fetch_hash( $fetch_hash_uids, @h1_common_fetch_param, $h1_fir_ref )
                 if ( @h1_msgs ) ;
         }
@@ -2260,22 +2474,30 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                         $sync->{ nb_msg_skipped } += 1 ;
                         $sync->{ h1_nb_msg_noheader }  +=1 ;
                         $sync->{ h1_nb_msg_processed } +=1 ;
-                } elsif(0 == $rc)
+                } elsif( 0 == $rc )
                 {
                         # duplicate
                         push @h1_msgs_duplicate, $m;
                         # duplicate, same id same size?
                         my $h1_size = $h1_fir_ref->{$m}->{'RFC822.SIZE'} || 0;
-                        $sync->{ nb_msg_skipped } += 1;
-                        $h1_nb_msg_duplicate += 1;
-                        $sync->{ h1_nb_msg_processed } +=1 ;
+
+                        $sync->{ acc1 }->{ nb_msg_duplicate } += 1;
+                        if ( ! $sync->{ syncduplicates } ) {
+                                $sync->{ nb_msg_skipped } += 1 ;
+                                $sync->{ h1_nb_msg_processed } +=1 ;
+                        }
                 }
         }
+
+
         my $h1_msgs_duplicate_nb = scalar  @h1_msgs_duplicate  ;
 
         myprint( "Host1: folder [$h1_fold] selected $h1_msgs_nb messages, duplicates $h1_msgs_duplicate_nb\n" ) ;
 
         $sync->{ debug } and myprint( 'Host1: whole time parsing headers took ', timenext( $sync ), " s\n"  ) ;
+
+
+
         # Getting headers and metada can be so long that host2 might be disconnected here
         if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
@@ -2296,8 +2518,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         if ( $sync->{abletosearch2} and scalar( @h2_msgs ) ) {
                 $h2_fir_ref = $sync->{imap2}->fetch_hash( \@h2_msgs, @h2_common_fetch_param, $h2_fir_ref) ;
         }else{
-                my $uidnext = $sync->{imap2}->uidnext( $h2_fold ) || $uidnext_default ;
-                my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
+                my $fetch_hash_uids = $fetch_hash_set || "1:*" ;
                 $h2_fir_ref = $sync->{imap2}->fetch_hash( $fetch_hash_uids, @h2_common_fetch_param, $h2_fir_ref )
                 if ( @h2_msgs ) ;
         }
@@ -2313,7 +2534,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                         $h2_nb_msg_noheader += 1 ;
                 } elsif( 0 == $rc ) {
                         # duplicate
-                        $h2_nb_msg_duplicate += 1 ;
+                        $sync->{ acc2 }->{ nb_msg_duplicate } += 1 ;
                         push  @h2_msgs_duplicate, $m  ;
                 }
         }
@@ -2353,9 +2574,9 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                 foreach my $h2_msg ( @h2_msgs_duplicate ) {
                         myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted [duplicate] on host2 $sync->{dry_message}\n"  ) ;
                         push  @h2_expunge, $h2_msg  if $sync->{ uidexpunge2 } ;
-                        if ( ! $sync->{dry} ) {
-                                $sync->{imap2}->delete_message( $h2_msg ) ;
-                                $h2_nb_msg_deleted += 1 ;
+                        if ( ! $sync->{ dry } ) {
+                                $sync->{ imap2 }->delete_message( $h2_msg ) ;
+                                $sync->{ acc2 }->{ nb_msg_deleted } += 1 ;
                         }
                 }
                 my $cnt = scalar @h2_expunge ;
@@ -2381,9 +2602,9 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                                 myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted on host2 [$m_id] $sync->{dry_message}\n" )
                                   if ! $isdel;
                                 push @h2_expunge, $h2_msg if $sync->{ uidexpunge2 };
-                                if ( ! ( $sync->{dry} or $isdel ) ) {
-                                        $sync->{imap2}->delete_message($h2_msg);
-                                        $h2_nb_msg_deleted += 1;
+                                if ( ! ( $sync->{ dry } or $isdel ) ) {
+                                        $sync->{ imap2 }->delete_message( $h2_msg );
+                                        $sync->{ acc2 }->{ nb_msg_deleted } += 1;
                                 }
                         }
                 }
@@ -2391,8 +2612,8 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                         myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted [not in cache] on host2 $sync->{dry_message}\n" ) ;
                         push @h2_expunge, $h2_msg if $sync->{ uidexpunge2 };
                         if ( ! $sync->{dry} ) {
-                                $sync->{imap2}->delete_message($h2_msg);
-                                $h2_nb_msg_deleted += 1;
+                                $sync->{ imap2 }->delete_message( $h2_msg );
+                                $sync->{ acc2 }->{ nb_msg_deleted } += 1;
                         }
                 }
                 my $cnt = scalar @h2_expunge ;
@@ -2445,9 +2666,9 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                                 }else{
                                         myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted $sync->{dry_message}\n" ) ;
                                         push  @h2_expunge, $h2_msg  if $sync->{ uidexpunge2 } ;
-                                        if ( ! $sync->{dry} ) {
-                                                $sync->{imap2}->delete_message( $h2_msg ) ;
-                                                $h2_nb_msg_deleted += 1 ;
+                                        if ( ! $sync->{ dry}  ) {
+                                                $sync->{ imap2 }->delete_message( $h2_msg ) ;
+                                                $sync->{ acc2 }->{ nb_msg_deleted } += 1 ;
                                         }
                                 }
                         }
@@ -2475,6 +2696,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
 
         my @h1_msgs_to_delete ;
         MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
+                abortifneeded( $sync ) ;
 		if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
                 #myprint( "h1_nb_msg_processed: $sync->{ h1_nb_msg_processed }\n"  ) ;
@@ -2510,7 +2732,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                         }
 
                         if ( total_bytes_max_reached( $sync ) ) {
-                                # a bug when using --delete1 --noexpungeaftereach
+                                # Still a bug when using --delete1 --noexpungeaftereach
                                 # same thing below on all total_bytes_max_reached!
                                 last FOLDER ;
                         }
@@ -2558,7 +2780,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
                         }
                 }
 
-		if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
+                if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
                 if ( $sync->{ delete1 } ) {
                         push @h1_msgs_to_delete, $h1_msg ;
@@ -2566,6 +2788,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         }
         # END MESS: loop
 
+        # @h1_msgs_in_cache are already synced too.
         delete_message_on_host1( $sync, $h1_fold, $sync->{ expunge1 }, @h1_msgs_to_delete, @h1_msgs_in_cache ) ;
 
 	if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
@@ -2595,6 +2818,7 @@ FOLDER: foreach my $h1_fold ( @{ $sync->{h1_folders_wanted} } )
         # MESS_BY_UID:
         foreach my $h1_msg ( sort { $a <=> $b } keys %h1_msgs_copy_by_uid )
         {
+                abortifneeded( $sync ) ;
                 $sync->{ debug } and myprint( "Copy by uid $h1_fold/$h1_msg\n"  ) ;
                 if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
 
@@ -2638,18 +2862,30 @@ END_SIZE
         foldersizesatend( $sync ) ;
 }
 
+#$sync->{imap1}->State( 0 ); # Unconnected
 if ( ! lost_connection( $sync, $sync->{imap1}, "for host1 [$sync->{host1}]" ) ) { $sync->{imap1}->logout(  )  ; }
 if ( ! lost_connection( $sync, $sync->{imap2}, "for host2 [$sync->{host2}]" ) ) { $sync->{imap2}->logout(  )  ; }
 
-stats( $sync ) ;
-myprint( errorsdump( $sync->{nb_errors}, errors_log( $sync ) ) ) if ( $sync->{errorsdump} ) ;
-tests_live_result( $sync->{nb_errors} ) if ( $sync->{testslive} or $sync->{testslive6} ) ;
+do_and_print_stats( $sync ) ;
+
+
+if ( $sync->{errorsdump} and $sync->{nb_errors} )
+{
+        myprint( errors_listing( $sync ) ) ;
+}
+
+
+if ( $sync->{testslive} or $sync->{testslive6} )
+{
+        tests_live_result( $sync->{nb_errors} ) ;
+}
 
 
 
 if ( $sync->{nb_errors} )
 {
-        exit_clean( $sync, $EXIT_WITH_ERRORS ) ;
+        my $exit_value = $EXIT_VALUE_OF_ERR_TYPE{ $sync->{most_common_error} } || $EXIT_CATCH_ALL ;
+        exit_clean( $sync, $exit_value ) ;
 }
 else
 {
@@ -2768,9 +3004,9 @@ sub output_reset_with
 	return $mysync->{ output } ;
 }
 
-sub pidfile
+sub define_pidfile
 {
-        my $mysync = shift ;
+        my $mysync = shift @ARG ;
 
         $mysync->{ pidfilelocking } = defined $mysync->{ pidfilelocking }  ? $mysync->{ pidfilelocking } : 0 ;
 
@@ -2795,9 +3031,26 @@ sub pidfile
         }
 
         $mysync->{ pidfile } =  defined  $mysync->{ pidfile }  ? $mysync-> { pidfile } : $mysync->{ tmpdir } . "/$pidfile_basename" ;
+        $mysync->{ abortfile } = abortfile( $mysync, $PROCESS_ID ) ;
         return ;
 }
 
+sub abortfile
+{
+        my $mysync = shift @ARG ;
+        my $pid    = shift @ARG ;
+
+        my $abortfile ;
+        if ( $mysync->{ abort } )
+        {
+                $abortfile = $mysync->{ pidfile } . "abort$pid" ;
+        }
+        else
+        {
+                $abortfile = $mysync->{ pidfile } . "abort$PROCESS_ID" ;
+        }
+        return $abortfile ;
+}
 
 sub tests_kill_zero
 {
@@ -2975,7 +3228,7 @@ sub killpid
         my $pidtokill = shift ;
 
         if ( ! $pidtokill ) {
-                myprint( "No process to abort.\n" ) ;
+                myprint( "No process to kill.\n" ) ;
                 return ;
         }
 
@@ -2989,7 +3242,7 @@ sub killpid
         if ( kill( 'ZERO', $pidtokill ) or ( 'MSWin32' eq $OSNAME ) ) {
                 myprint( "Sending signal QUIT to PID $pidtokill \n" ) ;
                 kill 'QUIT', $pidtokill ;
-                sleep 2 ;
+                sleep 3 ;
                 waitpid( $pidtokill, WNOHANG) ;
         }else{
                 myprint( "Can not send signal kill ZERO to PID $pidtokill.\n" ) ;
@@ -3023,7 +3276,7 @@ sub killpid
 sub tests_abort
 {
         note( 'Entering tests_abort()' ) ;
-
+        # Well, the abort behavior is tested by test.sh
         is( undef, abort(  ),  'abort: no args => undef' ) ;
         note( 'Leaving  tests_abort()' ) ;
         return ;
@@ -3036,25 +3289,46 @@ sub abort
 {
         my $mysync = shift @ARG ;
 
+        myprint( "In abort\n" ) ;
         if ( not $mysync ) { return ; }
 
         if ( ! -r $mysync->{pidfile} ) {
-                myprint( "Can not read pidfile $mysync->{pidfile}. Exiting.\n" ) ;
-                exit $EX_OK ;
+                myprint( "In abort: Can not read pidfile $mysync->{pidfile}\n" ) ;
+                return ;
         }
         my $pidtokill = firstline( $mysync->{pidfile} ) ;
         if ( ! $pidtokill ) {
-                myprint( "No process to abort. Exiting.\n" ) ;
-                exit $EX_OK ;
+                myprint( "In abort: No process to abort in $mysync->{pidfile}\n" ) ;
+                return ;
         }
 
-        killpid( $pidtokill ) ;
+        if ( ! match_a_pid_number( $pidtokill ) )
+        {
+                myprint( "In abort: pid $pidtokill in $mysync->{pidfile} is not a pid number\n" ) ;
+                return ;
+        }
 
-        # well, the abort job is done anyway, because even when not succeeded
-        # in aborting another run, this run has to end without doing any
-        # thing else
 
-        exit $EX_OK ;
+        if ( $mysync->{abortbyfile} )
+        {
+                abortbyfile( $mysync, $pidtokill ) ;
+        }
+        else
+        {
+                killpid( $pidtokill ) ;
+        }
+        return ;
+}
+
+sub abortbyfile
+{
+        my $mysync    = shift @ARG ;
+        my $pidtokill = shift @ARG ;
+
+        my $abortfile = abortfile( $mysync, $pidtokill ) ;
+        myprint( "touching $abortfile\n" ) ;
+        touch( $abortfile ) ;
+        return ;
 }
 
 
@@ -3077,25 +3351,33 @@ sub under_docker_context
 
 sub docker_context
 {
-	my $mysync = shift ;
-
-        #-e '/.dockerenv'  || return ;
+        my $mysync = shift ;
 
         if ( ! under_docker_context( $mysync ) )
         {
                 return ;
         }
 
-	$mysync->{ debug } and myprint( "Docker context detected with /.dockerenv\n" ) ;
-	# No pidfile
-	$mysync->{pidfile} = q{} ;
-	# No log
-	$mysync->{log} = 0 ;
-	# In case
-	$mysync->{ debug } and myprint( "Changing current directory to /var/tmp/\n" ) ;
-	chdir '/var/tmp/' ;
+        output( $mysync, "Docker context detected with the file /.dockerenv\n" ) ;
+        # No pidfile by default
+        
+        $mysync->{pidfile} = defined( $mysync->{pidfile} ) ? $mysync->{pidfile} : q{} ;
+        # No log by default
+        if ( defined( $mysync->{log} ) )
+        {
+                output( $mysync, "Logging in Docker context. Be sure you added access to it with a mount or similar. See https://docs.docker.com/storage/volumes/\n" ) ;
+        }
+        else
+        {
+                output( $mysync, "No log by default in Docker context. Use --log to trigger logging to the logfile.\n" ) ;
+                $mysync->{log} = 0 ;
+        }
 
-	return ;
+        # In case something is written relatively to .
+        output( $mysync, "Changing current directory to /var/tmp/\n" ) ;
+        chdir '/var/tmp/' ;
+
+        return ;
 }
 
 sub cgibegin
@@ -3306,40 +3588,56 @@ sub tests_umask
 	return ;
 }
 
-sub  cgisetcontext
+sub buggyflagsregex
 {
-	my $mysync = shift ;
-	if ( ! under_cgi_context( $mysync ) ) { return ; }
+        # From /X analyse
+        # cut -d: -f1 Error_112_all_syncs.txt   | xargs egrep -oih 'Invalid system flag [^( ]+'  | sort | uniq -c | sort -g
+        my @buggyflagsregex = ( 's/\\\\RECEIPTCHECKED|\\\\Indexed|\\\\X-EON-HAS-ATTACHMENT|\\\\UNSEEN|\\\\ATTACHED|\\\\X-HAS-ATTACH|\\\\FORWARDED|\\\\FORWARD|\\\\X-FORWARDED|\\\\\$FORWARDED|\\\\PRIORITY|\\\\READRCPT//g' ) ;
+        return( @buggyflagsregex ) ;
+}
 
-	output( $mysync, "Under cgi context\n" ) ;
-	set_umask( $mysync ) ;
+sub cgisetcontext
+{
+        my $mysync = shift ;
+        if ( ! under_cgi_context( $mysync ) ) { return ; }
+
+        output( $mysync, "Under cgi context\n" ) ;
+        
+        
+        set_umask( $mysync ) ;
 
         # Remove all content in unsafe evaled options
         @{ $mysync->{ regextrans2 } } = (  ) ;
-        @regexflag   = (  ) ;
+
+        @{ $mysync->{ regexflag } } = buggyflagsregex(  ) ;
+        
         @regexmess   = (  ) ;
         @skipmess    = (  ) ;
         @pipemess    = (  ) ;
         $delete2foldersonly   = undef ;
         $delete2foldersbutnot = undef ;
-	$maxlinelengthcmd     = undef ;
+        $maxlinelengthcmd     = undef ;
 
-	# Set safe default values (I hope...)
+        # Set safe default values (I hope...)
 
 
         #$mysync->{pidfile} =  'imapsync.pid' ;
-	$mysync->{pidfilelocking} = 1 ;
-	$mysync->{errorsmax} = $ERRORS_MAX_CGI ;
-	$modulesversion = 0 ;
-	$mysync->{releasecheck} = defined  $mysync->{releasecheck}  ? $mysync->{releasecheck} : 1 ;
-	$usecache = 0 ;
-	$mysync->{showpasswords} = 0 ;
-	$debugimap1 = $debugimap2 = $debugimap = 0 ;
-	$reconnectretry1 = $reconnectretry2 = $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
-	$pipemesscheck = 0 ;
+        $mysync->{ pidfilelocking } = 1 ;
+        $mysync->{ errorsmax } = $ERRORS_MAX_CGI ;
+        $modulesversion = 0 ;
+        $mysync->{ releasecheck } = defined  $mysync->{ releasecheck }  ? $mysync->{ releasecheck } : 1 ;
+        $usecache = 0 ;
+        $mysync->{ showpasswords } = 0 ;
+        $mysync->{ acc1 }->{ debugimap } = 0 ;
+        $mysync->{ acc2 }->{ debugimap } = 0 ;
 
-	$mysync->{hashfile} = $CGI_HASHFILE ;
-	my $hashsynclocal = hashsynclocal( $mysync ) || die "Can not get hashsynclocal. Exiting\n" ;
+        $mysync->{ acc1 }->{ reconnectretry } = $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
+        $mysync->{ acc2 }->{ reconnectretry } = $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
+
+        $pipemesscheck = 0 ;
+
+        $mysync->{ hashfile } = $CGI_HASHFILE ;
+        my $hashsynclocal = hashsynclocal( $mysync ) || die "Can not get hashsynclocal. Exiting\n" ;
 
         if ( $ENV{ 'NET_SERVER_SOFTWARE' } and ( $ENV{ 'NET_SERVER_SOFTWARE' } =~ /Net::Server::HTTP/ ) )
         {
@@ -3352,7 +3650,8 @@ sub  cgisetcontext
         }
         -d $cgidir or mkpath $cgidir or die "Can not create $cgidir: $OS_ERROR\n" ;
         $mysync->{ tmpdir } = $cgidir ;
-
+        $mysync->{ logdir } = '' ;
+        
         chdir  $cgidir or die "Can not cd to $cgidir: $OS_ERROR\n" ;
         cgioutputenvcontext( $mysync ) ;
         $mysync->{ debug } and output( $mysync, 'Current directory is ' . getcwd(  ) . "\n" ) ;
@@ -3368,11 +3667,16 @@ sub  cgisetcontext
         $mysync->{ tail } = defined  $mysync->{ tail }  ? $mysync->{ tail } : 1 ;
 
         # not sure it's for good
-        @useheader = qw( Message-Id ) ;
+        @useheader = qw( Message-Id Received ) ;
 
         # addheader on by default
         $mysync->{ addheader } = defined  $mysync->{ addheader }  ? $mysync->{ addheader } : 1 ;
+        
+        # sync duplicates by default in cgi context
+        $mysync->{ syncduplicates } = defined  $mysync->{ syncduplicates }  ? $mysync->{ syncduplicates } : 1 ;
 
+        # log the logfile name by default in cgi context
+        $mysync->{ loglogfile } = defined  $mysync->{ loglogfile }  ? $mysync->{ loglogfile } : 1 ;
         return ;
 }
 
@@ -3389,6 +3693,100 @@ sub cgioutputenvcontext
 	return ;
 }
 
+sub announcelogfile 
+{
+        my $mysync = shift ;
+
+        if ( $mysync->{ log } )
+        {
+                myprint( "Log file is $mysync->{ logfile } ( to change it, use --logfile path ; or use --nolog to turn off logging )\n" ) ;
+                loglogfile( $mysync ) ;
+        }
+        else
+        {
+                myprint( "No log file because of option --nolog\n" ) ;
+        }  
+        return ;
+}
+
+
+sub loglogfile
+{
+        my $mysync = shift ;
+        if ( ! $mysync->{ loglogfile } ) { return ; }
+        if ( ! $mysync->{ log        } ) { return ; }
+        
+        my $cwd = getcwd(  ) ;
+        my $absolutelogfilepath ;
+        # Fixme: add case when the logfile name is already absolute
+        $absolutelogfilepath = "$cwd/$mysync->{ logfile }" ;
+        my $loglogfilename = '../list_all_logs_auto.txt' ;
+        myprint( "Writing log file name $absolutelogfilepath to $loglogfilename\n" ) ;
+        if ( open( my $fh, '>>', $loglogfilename ) )
+        {
+                print $fh "$absolutelogfilepath\n" ;
+                close $fh ;
+        }
+        else
+        {
+                myprint( "Could not open loglogfile $loglogfilename $!\n" ) ;
+        }
+        return ;
+}
+
+
+sub checkselectable 
+{
+        my $mysync = shift ; 
+        
+        if ( $mysync->{ checkselectable } ) {
+                my @h1_folders_wanted_selectable ;
+                myprint( "Host1: Checking wanted folders are selectable. Use --nocheckselectable to avoid this check.\n"  ) ;
+                foreach my $folder ( @{ $mysync->{ h1_folders_wanted } } )
+                {
+                        ( $mysync->{ debug } or $mysync->{ debugfolders } ) and myprint( "Checking $folder is selectable on host1\n"  ) ;
+                        # It does an imap command  LIST "" $folder and then search for no \Noselect
+                        if ( ! $mysync->{ imap1 }->selectable( $folder ) )
+                        {
+                                myprint( "Host1: warning! ignoring folder $folder because it is not selectable\n" ) ;
+                        }else
+                        {
+                                push  @h1_folders_wanted_selectable, $folder  ;
+                        }
+                }
+                @{ $mysync->{ h1_folders_wanted } } = @h1_folders_wanted_selectable ;
+                ( $mysync->{ debug } or $mysync->{ debugfolders } ) 
+                        and myprint( 'Host1: checking folders took ', timenext( $mysync ), " s\n"  ) ;
+        }
+        else
+        {
+                myprint( "Host1: Not checking that wanted folders are selectable. Use --checkselectable to force this check.\n"  ) ;
+        }
+        return ;
+}
+
+sub setcheckselectable 
+{
+        my $mysync = shift ;
+        
+        my $h1_folders_wanted_nb = scalar @{ $mysync->{ h1_folders_wanted } } ;
+        # 152 because 98% of host1 accounts have less than 152 folders on /X service.
+        # command to get this value: 
+        #     datamash_file_op_index G_Host1_Nb_folders.txt  perc:98 4  %16.1f 
+        if ( ! defined $mysync->{ checkselectable } )
+        {
+                if ( 152 >= $h1_folders_wanted_nb )
+                {
+                        $mysync->{ checkselectable } = 1 ;
+                }else{
+                        myprint( "Host1: Not checking that $h1_folders_wanted_nb wanted folders are selectable. Use --checkselectable to force this check.\n"  ) ;
+                        $mysync->{ checkselectable } = 0 ;
+                }
+        }
+        return ;
+}
+
+
 
 sub debugsleep
 {
@@ -3416,7 +3814,6 @@ sub tests_foldersize
 
 
 # Globals:
-# $uidnext_default
 # $fetch_hash_set
 #
 sub foldersize
@@ -3450,6 +3847,7 @@ sub foldersize
         my $biggest_in_folder = 0 ;
         @{ $hash_ref }{ @msgs } = ( undef ) if @msgs ;
 
+
         my $stot = 0 ;
 
         if ( $imap->IsUnconnected(  ) )
@@ -3467,8 +3865,7 @@ sub foldersize
                 }
                 else
                 {
-                        my $uidnext = $imap->uidnext( $folder ) || $uidnext_default ;
-                        my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
+                        my $fetch_hash_uids = $fetch_hash_set || "1:*" ;
                         if ( ! $imap->fetch_hash( $fetch_hash_uids, 'RFC822.SIZE', $hash_ref ) ) {
                                 my $error = "$side failure with fetch_hash: $EVAL_ERROR\n" ;
                                 errors_incr( $mysync, $error ) ;
@@ -3477,8 +3874,11 @@ sub foldersize
                 }
                 for ( keys %{ $hash_ref } ) {
                         my $size =  $hash_ref->{ $_ }->{ 'RFC822.SIZE' } ;
-                        $stot    += $size ;
-                        $biggest_in_folder =  max( $biggest_in_folder, $size ) ;
+                        if ( defined $size )
+                        {
+                                $stot += $size ;
+                                $biggest_in_folder =  max( $biggest_in_folder, $size ) ;
+                        }
                 }
         }
         return( $stot, $nb_msgs, $biggest_in_folder ) ;
@@ -3717,6 +4117,66 @@ sub add
         return $x + $y ;
 }
 
+sub tests_checknoabletosearch
+{
+        note( 'Entering checknoabletosearch()' ) ;
+
+        is( undef, checknoabletosearch(  ),  'checknoabletosearch: no args => undef' ) ;
+
+        note( 'Leaving  checknoabletosearch()' ) ;
+        return ;
+}
+
+
+
+
+sub checknoabletosearch
+{
+        # call example: checknoabletosearch( $sync, $sync->{ imap1 }, 'INBOX', 'Host1' ) ;
+        # output:
+        # * undef if something is not ok to decide
+        # * 1 if SEARCH ALL failed
+
+        my( $mysync, $imap, $folder, $HostX ) = @ARG ;
+
+        if ( ! all_defined( $mysync, $imap, $folder, $HostX ) )
+        {
+                return ;
+        }
+
+        myprint( "$HostX: checking if SEARCH ALL works on $folder\n" ) ;
+        if ( ! select_folder( $mysync, $imap, $folder, $HostX ) )
+        {
+                myprint( "$HostX: can not SELECT folder [$folder]\n" ) ;
+                return ;
+        }
+        my $count_from_select = count_from_select( $imap->History ) ;
+        myprint( "$HostX: folder [$folder] has $count_from_select messages mentioned by SELECT\n" ) ;
+
+        my $msgs_all = $imap->messages(  ) ;
+        if ( ! $msgs_all )
+        {
+                myprint( "$HostX: can not SEARCH ALL folder [$folder]\n" ) ;
+                myprint( "$HostX: ", $imap->LastError(), "\n" ) ;
+                return 1 ;
+        }
+
+        my $count_from_search_all = scalar( @{ $msgs_all } ) ;
+        myprint( "$HostX: folder [$folder] has $count_from_search_all messages found by SEARCH ALL\n" ) ;
+
+        if ( $count_from_select == $count_from_search_all )
+        {
+                myprint( "$HostX: folder [$folder] has the same messages count ($count_from_select) by SELECT and SEARCH ALL\n" ) ;
+        }
+        else
+        {
+                myprint( "$HostX: Warning, folder [$folder] has not the same count by SELECT ($count_from_select) and SEARCH ALL ($count_from_search_all)\n" )  ;
+                return 1 ;
+        }
+
+        return ;
+}
+
 
 sub foldersizes_diff_list
 {
@@ -3864,7 +4324,7 @@ END_SIZE
                 return ;
         }
 
-        my $h2_bytes_limit = $mysync->{h2}->{quota_limit_bytes} || 0 ;
+        my $h2_bytes_limit = $mysync->{ acc2 }->{quota_limit_bytes} || 0 ;
         if ( $h2_bytes_limit and ( $h2_bytes_limit < $mysync->{ h1_bytes_start } ) )
         {
                 my $quota_percent = mysprintf( '%.0f', $NUMBER_100 * $mysync->{ h1_bytes_start } / $h2_bytes_limit ) ;
@@ -3906,7 +4366,7 @@ END_SIZE
                 return ;
         }
 
-        my $h2_bytes_limit = $mysync->{h2}->{quota_limit_bytes} || 0 ;
+        my $h2_bytes_limit = $mysync->{ acc2 }->{quota_limit_bytes} || 0 ;
         if ( $h2_bytes_limit and ( $h2_bytes_limit < $mysync->{ h1_bytes_start } ) )
         {
                 my $quota_percent = mysprintf( '%.0f', $NUMBER_100 * $mysync->{ h1_bytes_start } / $h2_bytes_limit ) ;
@@ -3917,15 +4377,51 @@ END_SIZE
 }
 
 
+sub tests_total_bytes_max_reached
+{
+        note( 'Entering tests_total_bytes_max_reached()' ) ;
+
+        is( undef, total_bytes_max_reached(  ),  'total_bytes_max_reached: no args => undef' ) ;
+
+        my $mysync = {} ;
+        is( undef, total_bytes_max_reached( $mysync ),  'total_bytes_max_reached: no exitwhenover => undef' ) ;
+
+        $mysync->{ exitwhenover } = 300 ;
+        is( undef, total_bytes_max_reached( $mysync ),  'total_bytes_max_reached: exitwhenover 300 but no total_bytes_transferred => undef' ) ;
+
+        $mysync->{ total_bytes_transferred } = 200 ;
+        is( undef, total_bytes_max_reached( $mysync ),  'total_bytes_max_reached: exitwhenover 300 but total_bytes_transferred 200 => undef' ) ;
+
+        $mysync->{ total_bytes_transferred } = 400 ;
+        is( 1, total_bytes_max_reached( $mysync ),  'total_bytes_max_reached: exitwhenover 300 but total_bytes_transferred 400 => 1' ) ;
+
+
+
+        note( 'Leaving  tests_total_bytes_max_reached()' ) ;
+        return ;
+}
+
+
 sub total_bytes_max_reached
 {
         my $mysync = shift ;
 
-        if ( ! $mysync->{ exitwhenover } ) {
-                return( 0 ) ;
+        if ( ! defined $mysync ) { return ; }
+
+        if ( ! $mysync->{ exitwhenover } )
+        {
+                return ;
         }
-        if ( $mysync->{ total_bytes_transferred } >= $mysync->{ exitwhenover } ) {
-                myprint( "Maximum bytes transferred reached, $mysync->{total_bytes_transferred} >= $mysync->{ exitwhenover }, ending sync\n"  ) ;
+
+        if ( ! $mysync->{ total_bytes_transferred } )
+        {
+                return ;
+        }
+
+        if ( $mysync->{ total_bytes_transferred } >= $mysync->{ exitwhenover } )
+        {
+                my $error = "Maximum bytes transferred reached, $mysync->{total_bytes_transferred} >= $mysync->{ exitwhenover }, ending sync\n" ;
+                errors_incr( $mysync, $error ) ;
                 return( 1 ) ;
         }
         return ;
@@ -4166,7 +4662,7 @@ sub appendlimit_from_capability
         #myprint( Data::Dumper->Dump( [ \$myimap ] )  ) ;
         my $appendlimit = capability_of( $myimap, 'APPENDLIMIT' ) ;
         #myprint( "has_capability APPENDLIMIT $appendlimit\n" ) ;
-        if ( is_an_integer( $appendlimit ) )
+        if ( is_integer( $appendlimit ) )
         {
                 return $appendlimit ;
         }
@@ -4432,20 +4928,70 @@ sub hashsynclocal
 
 sub tests_hashsync
 {
-	note( 'Entering tests_hashsync()' ) ;
+        note( 'Entering tests_hashsync()' ) ;
+
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hashsync(  ), 'hashsync: no args' ) ;
+
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hashsync( {}, q{} ), 'hashsync: empty args' ) ;
+        my $mysync ;
+        $mysync->{ host1 } = 'zzz' ;
+        is( 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe', hashsync( $mysync, q{} ), 'hashsync: host1 zzz => ' ) ;
+        is( '6a7b451ac99eab1531ad8e6cd544b32420c552ac', hashsync( $mysync, q{A} ), 'hashsync: host1 zzz => ' ) ;
+        $mysync->{ host2 } = 'zzz' ;
+        is( '15959573e4a86763253a7aedb1a2b0c60d133dc2', hashsync( $mysync, q{} ), 'hashsync: + host2 zzz => ' ) ;
+        is( 'b8d4ab541b209c75928528020ca28ee43488bd8f', hashsync( $mysync, 'A' ), 'hashsync: + hashkey A => ' ) ;
+
+        $mysync = undef ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hashsync( $mysync, q{} ), 'hashsync: undef $mysync' ) ;
+        $mysync->{ password1 } = 'abcd' ;
+        is( 'afa29ab8534495251ac8346a985717c54bc49c26', hashsync( $mysync, q{} ), 'hashsync: password1: abcd' ) ;
+
+        # A user reported a massive failure on /X (Thomas V. 21/04/2020 à 21:41 Subject: Error)
+        # "Wide character in subroutine entry at /usr/local/lib/perl5/site_perl/Digest/HMAC.pm"
+        # I can reproduce it now
 
 
-	is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hashsync( {}, q{} ), 'hashsync: empty args' ) ;
-	my $mysync ;
-	$mysync->{ host1 } = 'zzz' ;
-	is( 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe', hashsync( $mysync, q{} ), 'hashsync: host1 zzz => ' ) ;
-	is( 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe', hashsync( $mysync, q{} ), 'hashsync: host1 zzz => ' ) ;
-	$mysync->{ host2 } = 'zzz' ;
-	is( '15959573e4a86763253a7aedb1a2b0c60d133dc2', hashsync( $mysync, q{} ), 'hashsync: + host2 zzz => ' ) ;
-	is( 'b8d4ab541b209c75928528020ca28ee43488bd8f', hashsync( $mysync, 'A' ), 'hashsync: + hashkey A => ' ) ;
+        # The eval is there to avoid a complete crash
+        # this one is fatal so it is commented
+        # is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', 1 / 0 , 'hashsync: 1 / 0 fatal' ) ;
 
-	note( 'Leaving  tests_hashsync()' ) ;
-	return ;
+        my $eval ;
+        # this one is not fatal
+        is( undef, $eval = eval { 1 / 0 } , 'hashsync: 1/0 not fatal' ) ;
+        # this one neither
+        $mysync->{ password1 } = 'Ö' ;
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', $eval = eval { hashsync( $mysync, q{} ) } , 'hashsync: password1: Ö with eval' ) ;
+
+        $mysync->{ password1 } = 'Ö' ;
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', hashsync( $mysync, q{} ), 'hashsync: password1: Ö without eval' ) ;
+
+        $mysync->{ password1 } = qq{\x{00D6}} ;
+        is( 'bb5bfb461e79ecd3dbc6ade2aabb52d22fa8be1a', $eval = eval { hashsync( $mysync, q{} ) }, 'hashsync: password1: \x{00D6}' ) ; #
+
+        print qq{1 00D6:Ö\n} ;
+        print encode_utf8( qq{2 00D6:Ö\n} ) ;
+        print qq{3 00D6:\x{00D6}\n} ;
+        print encode_utf8( qq{4 00D6:\x{00D6}\n} ) ;
+
+
+        print              qq{5 6536:收\n} ;
+        print encode_utf8( qq{6 6536:收\n} ) ;
+        # the next one prints "Wide character in print at ./imapsync line xxxx"
+        print              qq{7 6536:\x{6536}\n} ;
+        print encode_utf8( qq{8 6536:\x{6536}\n} ) ;
+
+        $mysync->{ password1 } = qq{收} ;
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hashsync( $mysync, q{} ), 'hashsync: password1: 收' ) ;
+
+        $mysync->{ password1 } = qq{\x{6536}} ;
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', $eval = eval{ hashsync( $mysync, q{} ) }, 'hashsync: password1: \x{6536} with eval' ) ;
+
+        # No side effect.
+        $mysync->{ password1 } = 'abcd' ;
+        is( 'afa29ab8534495251ac8346a985717c54bc49c26', hashsync( $mysync, q{} ), 'hashsync: password1: abcd again' ) ;
+
+        note( 'Leaving  tests_hashsync()' ) ;
+        return ;
 }
 
 sub hashsync
@@ -4461,12 +5007,119 @@ sub hashsync
 		$mysync->{ user2 }     || q{},
 		$mysync->{ password2 } || q{},
 	) ;
-	my $hashsync = hmac_sha1_hex( $mystring, $hashkey ) ;
+        #my $hashsync = hmac_sha1_hex( $mystring, $hashkey ) ;
+	my $hashsync = hmac_sha1_hex_robust( $mystring, $hashkey ) ;
 	#myprint( "$hashsync\n" ) ;
 	return( $hashsync ) ;
 }
 
 
+sub tests_hmac_sha1_hex
+{
+        note( 'Entering tests_hmac_sha1_hex()' ) ;
+
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex(  ),               'hmac_sha1_hex: no args              => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex( '' ),             'hmac_sha1_hex: empty string         => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex( '', '' ),         'hmac_sha1_hex: empty strings        => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex( '', '', 'caca' ), 'hmac_sha1_hex: empty strings + caca => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+
+        # Good
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', hmac_sha1_hex( 'Ö' ),                        'hmac_sha1_hex: Ö                    => f1a3f3dac3f137fd658027c11678b895f773ce55' ) ;
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', hmac_sha1_hex( encode_utf8(qq{\x{00D6}}) ),  'hmac_sha1_hex: encode_utf8 \x{00D6} => f1a3f3dac3f137fd658027c11678b895f773ce55' ) ;
+        # Bad
+        is( 'fe8dc3b9ba3e8850bb4a7b070b2279e911003af2', hmac_sha1_hex( encode_utf8( 'Ö' ) ),         'hmac_sha1_hex: encode_utf8 Ö        => fe8dc3b9ba3e8850bb4a7b070b2279e911003af2' ) ;
+        is( 'bb5bfb461e79ecd3dbc6ade2aabb52d22fa8be1a', hmac_sha1_hex( qq{\x{00D6}} ),               'hmac_sha1_hex: qq{\x{00D6}}         => bb5bfb461e79ecd3dbc6ade2aabb52d22fa8be1a' ) ;
+
+        # Good
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex( 'A' ),                       'hmac_sha1_hex: A                     => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex( encode_utf8(qq{\x{0041}}) ), 'hmac_sha1_hex: encode_utf8 \x{0041}  => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex( encode_utf8( 'A' ) ),        'hmac_sha1_hex: encode_utf8 A         => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex( qq{\x{0041}} ),              'hmac_sha1_hex: \x{0041}              => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+
+        # Good
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex( 'A', 'B' ),                       'hmac_sha1_hex: A                    B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex( encode_utf8(qq{\x{0041}}), 'B' ), 'hmac_sha1_hex: encode_utf8 \x{0041} B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex( encode_utf8( 'A' ), 'B' ),        'hmac_sha1_hex: encode_utf8 A        B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex( qq{\x{0041}}, 'B' ),              'hmac_sha1_hex: \x{0041}             B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+
+        # http://unicode.scarfboy.com/?s=U%2B6536
+        # Good
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex( '收' ),                      'hmac_sha1_hex: 收                    => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex( encode_utf8(qq{\x{6536}}) ), 'hmac_sha1_hex: encode_utf8 \x{6536}  => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        # Bad
+        is( 'e82217119628ad03e659cc89671d05ea4cee7238', hmac_sha1_hex( encode_utf8( '收' ) ),        'hmac_sha1_hex: encode_utf8 收       => e82217119628ad03e659cc89671d05ea4cee7238' ) ;
+        # Very very bad, perl dies...
+        #is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex( qq{\x{6536}} ),              'hmac_sha1_hex: \x{6536}             => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        # Ok but well, bad indeed
+        is( undef, my $eval = eval{ hmac_sha1_hex( qq{\x{6536}} ) },                                            'hmac_sha1_hex: \x{6536}             => undef' ) ;
+
+
+        note( 'Leaving  tests_hmac_sha1_hex()' ) ;
+        return ;
+}
+
+sub tests_hmac_sha1_hex_robust
+{
+        note( 'Entering tests_hmac_sha1_hex_robust()' ) ;
+
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex_robust(  ),  'hmac_sha1_hex_robust: no args => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex_robust( '' ),  'hmac_sha1_hex_robust: empty string  => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex_robust( '', '' ),  'hmac_sha1_hex_robust: empty strings  => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+        is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hmac_sha1_hex_robust( '', '', 'caca' ),  'hmac_sha1_hex_robust: empty strings + caca => fbdb1d1b18aa6c08324b7d64b71fb76370690e1d' ) ;
+
+        # Good
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', hmac_sha1_hex_robust( 'Ö' ),  'hmac_sha1_hex_robust: Ö  => f1a3f3dac3f137fd658027c11678b895f773ce55' ) ;
+        is( 'f1a3f3dac3f137fd658027c11678b895f773ce55', hmac_sha1_hex_robust( encode_utf8(qq{\x{00D6}}) ),  'hmac_sha1_hex_robust: encode_utf8 \x{00D6}  => f1a3f3dac3f137fd658027c11678b895f773ce55' ) ;
+        # Bad
+        is( 'fe8dc3b9ba3e8850bb4a7b070b2279e911003af2', hmac_sha1_hex_robust( encode_utf8( 'Ö' ) ),  'hmac_sha1_hex_robust: encode_utf8 Ö  => fe8dc3b9ba3e8850bb4a7b070b2279e911003af2' ) ;
+        is( 'bb5bfb461e79ecd3dbc6ade2aabb52d22fa8be1a', hmac_sha1_hex_robust( qq{\x{00D6}} ),  'hmac_sha1_hex_robust: qq{\x{00D6}}  => bb5bfb461e79ecd3dbc6ade2aabb52d22fa8be1a' ) ;
+
+        # Good
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex_robust( 'A' ),  'hmac_sha1_hex_robust: A  => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex_robust( encode_utf8(qq{\x{0041}}) ),  'hmac_sha1_hex_robust: encode_utf8 \x{0041}  => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex_robust( encode_utf8( 'A' ) ),  'hmac_sha1_hex_robust: encode_utf8 A  => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+        is( 'a6fda2a6acdd74630b20aac0c68716048ecd0333', hmac_sha1_hex_robust( qq{\x{0041}} ),  'hmac_sha1_hex_robust: \x{0041}  => a6fda2a6acdd74630b20aac0c68716048ecd0333' ) ;
+
+        # Good
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex_robust( 'A', 'B' ),                       'hmac_sha1_hex_robust: A                    B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex_robust( encode_utf8(qq{\x{0041}}), 'B' ), 'hmac_sha1_hex_robust: encode_utf8 \x{0041} B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex_robust( encode_utf8( 'A' ), 'B' ),        'hmac_sha1_hex_robust: encode_utf8 A        B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+        is( '36c54f255b575a2db58921d116b37c8af94c08cd', hmac_sha1_hex_robust( qq{\x{0041}}, 'B' ),              'hmac_sha1_hex_robust: \x{0041}             B => 36c54f255b575a2db58921d116b37c8af94c08cd' ) ;
+
+        # http://unicode.scarfboy.com/?s=U%2B6536
+        # Good
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex_robust( '收' ),                      'hmac_sha1_hex_robust: 收                   => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex_robust( encode_utf8(qq{\x{6536}}) ), 'hmac_sha1_hex_robust: encode_utf8 \x{6536} => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        # Bad
+        is( 'e82217119628ad03e659cc89671d05ea4cee7238', hmac_sha1_hex_robust( encode_utf8( '收' ) ),       'hmac_sha1_hex_robust: encode_utf8 收       => e82217119628ad03e659cc89671d05ea4cee7238' ) ;
+        # Good
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', hmac_sha1_hex_robust( qq{\x{6536}} ),              'hmac_sha1_hex_robust: \x{6536}             => 4199f02773d1cd5599b1a8f2d024bdceb8b48e0b' ) ;
+        # Good again
+        is( '4199f02773d1cd5599b1a8f2d024bdceb8b48e0b', my $eval = eval{ hmac_sha1_hex_robust( qq{\x{6536}} ) },      'hmac_sha1_hex_robust: \x{6536}             => undef' ) ;
+
+        note( 'Leaving  tests_hmac_sha1_hex_robust()' ) ;
+        return ;
+}
+
+
+sub hmac_sha1_hex_robust
+{
+        my $string = shift ;
+        my $val ;
+        if ( defined( $val = eval{ hmac_sha1_hex( $string, @ARG ) } ) )
+        {
+                return $val ;
+        }
+        elsif( defined( $val = eval{ hmac_sha1_hex( encode_utf8( $string ), @ARG ) } ) )
+        {
+                return $val ;
+        }
+        else
+        {
+                return ;
+        }
+}
+
 sub tests_createhashfileifneeded
 {
 	note( 'Entering tests_createhashfileifneeded()' ) ;
@@ -4588,7 +5241,7 @@ sub imapsync_id
                 vendor        => 'Gilles LAMIRAL',
                 'support-url' => 'https://imapsync.lamiral.info/',
                 # Example of date-time:  19-Sep-2015 08:56:07
-                date          => date_from_rcs( q{$Date: 2019/12/23 20:18:02 $ } ),
+                date          => date_from_rcs( q{$Date: 2021/07/05 20:14:18 $ } ),
         } ;
 
         my $imapsync_id_github  = {
@@ -4597,7 +5250,7 @@ sub imapsync_id
                 os            => $OSNAME,
                 vendor        => 'github',
                 'support-url' => 'https://github.com/imapsync/imapsync',
-                date          => date_from_rcs( q{$Date: 2019/12/23 20:18:02 $ } ),
+                date          => date_from_rcs( q{$Date: 2021/07/05 20:14:18 $ } ),
         } ;
 
         $imapsync_id = $imapsync_id_lamiral ;
@@ -5003,12 +5656,16 @@ sub errors_incr
         $mysync->{errorsmax} ||= $ERRORS_MAX ;
         if ( $mysync->{nb_errors} >= $mysync->{errorsmax} ) {
                 myprint( "Maximum number of errors $mysync->{errorsmax} reached ( you can change $mysync->{errorsmax} to any value, for example 100 with --errorsmax 100 ). Exiting.\n"  ) ;
+                my $most_common_error = errorsanalyse( errors_log( $mysync ) ) ;
                 if ( $mysync->{errorsdump} ) {
-                        myprint( errorsdump( $mysync->{nb_errors}, errors_log( $mysync ) ) ) ;
+                        myprint( errorsdump( errors_log( $mysync ) ) ) ;
+                        myprint( "The most frequent error is $most_common_error\n" ) ;
                         # again since errorsdump(  ) can be very verbose and masquerade previous warning
                         myprint( "Maximum number of errors $mysync->{errorsmax} reached ( you can change $mysync->{errorsmax} to any value, for example 100 with --errorsmax 100 ). Exiting.\n"  ) ;
                 }
-                exit_clean( $mysync, $EXIT_WITH_ERRORS_MAX ) ;
+                my $exit_value = $EXIT_VALUE_OF_ERR_TYPE{ $most_common_error } || $EXIT_CATCH_ALL ;
+                #exit_clean( $mysync, $EXIT_WITH_ERRORS_MAX ) ;
+                exit_clean( $mysync, $exit_value ) ;
         }
         return ;
 }
@@ -5048,14 +5705,288 @@ sub errors_log
 }
 
 
+sub tests_error_type
+{
+        note( 'Entering tests_error_type()' ) ;
+
+        is( 'ERR_NOTHING_REPORTED', error_type(  ),    'error_type: no args => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', error_type( '' ),  'error_type: empty string => ERR_NOTHING_REPORTED' ) ;
+
+        is( 'ERR_UNCLASSIFIED', error_type( 'ERR_UNCLASSIFIED' ),  'error_type: ERR_UNCLASSIFIED => ERR_UNCLASSIFIED' ) ;
+        is( 'ERR_UNCLASSIFIED', error_type( 'aie' ),  'error_type: aie => ERR_UNCLASSIFIED' ) ;
+        is( 'ERR_UNCLASSIFIED', error_type( 'ouille' ),  'error_type: ouille => ERR_UNCLASSIFIED' ) ;
+
+        is( 'ERR_Host1_FETCH', error_type( 'Message xxx could not be fetched: blabla' ),
+                'error_type: could not be fetched => ERR_Host1_FETCH'
+        ) ;
+
+        is( 'ERR_APPEND_SIZE',
+                error_type( 'could not append message xxx: BAD maximum message size exceeded' ),
+                'error_type: could not append message xxx: BAD maximum message size exceeded => ERR_APPEND_SIZE'
+        ) ;
+
+        is( 'ERR_OVERQUOTA',
+                error_type( 'Quota limit will be exceeded' ),
+                'error_type: Quota limit will be exceeded => ERR_OVERQUOTA'
+        ) ;
+
+        is( 'ERR_APPEND', error_type( 'could not append' ),  'error_type: could not append => ERR_APPEND' ) ;
+
+        is( 'ERR_CREATE',
+                error_type( 'Could not create folder' ),
+                'error_type: Could not create folder => ERR_CREATE'
+        ) ;
+
+        is( 'ERR_SELECT',
+                error_type( 'Could not select: blabla' ),
+                'error_type: Could not select: blabla => ERR_SELECT'
+        ) ;
+
+
+        #
+        #Maximum bytes transferred reached, 423 >= 100, ending sync
+        is( 'ERR_TRANSFER_EXCEEDED',
+                error_type( 'Maximum bytes transferred reached, blabla' ),
+                'error_type: Maximum bytes transferred reached, blabla => ERR_TRANSFER_EXCEEDED'
+        ) ;
+
+        #
+        is( 'ERR_CONNECTION_FAILURE_HOST1',
+                error_type( 'Host1 failure: can not open imap connection on host1 [badhostkaka] with user [tata]: Unable to connect to badhostkaka:  Invalid argument' ),
+                'error_type: can not open imap connection on host1 => ERR_CONNECTION_FAILURE_HOST1'
+        ) ;
+
+        is( 'ERR_CONNECTION_FAILURE_HOST2',
+                error_type( 'Host2 failure: can not open imap connection on host2 [badhostkiki] with user [titi]: Unable to connect to badhostkiki:  Invalid argument' ),
+                'error_type: can not open imap connection on host2 => ERR_CONNECTION_FAILURE_HOST2'
+        ) ;
+
+        is( 'ERR_APPEND_VIRUS',
+                error_type( 'could not append ( Subject:[For Your Consideration], Date:["29-Nov-2016 03:21:10 -0800"], Size:[5505], Flags:[\Seen] ) to folder INBOX: 275 NO Message refused because it contains a virus' ),
+                'error_type: could not append ... virus => ERR_APPEND_VIRUS'
+        ) ;
+
+        note( 'Leaving  tests_error_type()' ) ;
+        return ;
+}
+
+
+
+# Could be implemented with https://metacpan.org/pod/Tie::RegexpHash
+# with just a hash of error regexes as keys and types as values.
+
+sub error_type
+{
+        my $error = shift ;
+
+        if ( ! defined $error ) { return 'ERR_NOTHING_REPORTED' ; }
+        if ( ! $error ) { return 'ERR_NOTHING_REPORTED' ; }
+
+        #
+        if ( $error =~ m{Host1 failure: Error login on} ) { return 'ERR_AUTHENTICATION_FAILURE_USER1' } ;
+        if ( $error =~ m{Host2 failure: Error login on} ) { return 'ERR_AUTHENTICATION_FAILURE_USER2' } ;
+
+        if ( $error =~ m{Host. failure: Can not go to tls encryption on host.} ) { return 'ERR_EXIT_TLS_FAILURE' } ;
+        #
+
+        if ( $error =~ m{could not be fetched:} ) { return 'ERR_Host1_FETCH' } ;
+
+        # could not append .*BAD maximum message size exceeded
+        # could not append.*Maximum size of appendable message has been exceeded
+        if ( $error =~ m{could not append .*BAD maximum message size exceeded} )
+                { return 'ERR_APPEND_SIZE' ; } ;
+
+        if ( $error =~ m{could not append.*Maximum size of appendable message has been exceeded} )
+                { return 'ERR_APPEND_SIZE' ; } ;
+
+        # Could not create folder *[OVERQUOTA] Not enough disk quota
+        # could not append .*[OVERQUOTA] Not enough disk quota
+        # could not append .*[OVERQUOTA] Mailbox is full / Blocks limit exceeded / Inode limit exceeded
+        if ( $error =~ m{OVERQUOTA} ) { return 'ERR_OVERQUOTA' ; } ;
+        if ( $error =~ m{Quota limit will be exceeded} ) { return 'ERR_OVERQUOTA' ; } ;
+        if ( $error =~ m{full: it is time to find a bigger place} ) { return 'ERR_OVERQUOTA' ; } ;
+
+        # could not append ... to folder INBOX: 276 NO Message refused because it contains a virus
+        if ( $error =~ m{could not append.*virus} )
+                { return 'ERR_APPEND_VIRUS' ; } ;
+
+        # could not append .*Write failed 'Broken pipe'
+        # could not append .*timeout waiting .* for data from server
+        # could not append .*BAD Invalid Arguments: Unable to parse message
+        # could not append .*BAD Command Argument Error. 11
+        # could not append .*NO header limit reached
+        if ( $error =~ m{could not append} ) { return 'ERR_APPEND' ; } ;
+
+        # Could not create folder .*Invalid mailbox name
+        if ( $error =~ m{Could not create folder} ) { return 'ERR_CREATE' ; } ;
+
+
+        # Could not select:.*NO [NOPERM] Permission denied
+        # Could not select:.*NO Mailbox doesn't exist
+        # Could not select:.*NO [SERVERBUG] Internal error occurred.
+        # Could not select:.*[CANNOT] Mailbox isn't a valid mbox file
+        if ( $error =~ m{Could not select:} ) { return 'ERR_SELECT' ; } ;
+
+        #Maximum bytes transferred reached, 423 >= 100, ending sync
+        if ( $error =~ m{Maximum bytes transferred reached} ) { return 'ERR_TRANSFER_EXCEEDED' ; } ;
+
+        if ( $error =~ m{can not open imap connection on host1} ) { return 'ERR_CONNECTION_FAILURE_HOST1' ; } ;
+        if ( $error =~ m{can not open imap connection on host2} ) { return 'ERR_CONNECTION_FAILURE_HOST2' ; } ;
+
+        # Default is ERR_UNCLASSIFIED
+        return 'ERR_UNCLASSIFIED' ;
+
+}
+
+sub tests_errorclassify
+{
+        note( 'Entering tests_errorclassify()' ) ;
+
+        is( undef, errorclassify(  ),  'errorclassify: no args => undef' ) ;
+
+        is_deeply( { 'ERR_UNCLASSIFIED' => 1 }, errorclassify( 'aie' ), 'errorclassify: aie => { ERR_UNCLASSIFIED => 1 }' ) ;
+        is_deeply( { 'ERR_UNCLASSIFIED' => 2 }, errorclassify( 'aie', 'ouille' ), 'errorclassify: aie ouille => { ERR_UNCLASSIFIED => 2 }' ) ;
+        is_deeply( { 'ERR_UNCLASSIFIED' => 2, 'ERR_NOTHING_REPORTED' => 1 }, errorclassify( 'aie', 'ouille', '' ), 'errorclassify: aie ouille "" => { ERR_UNCLASSIFIED => 2 }' ) ;
+        is_deeply( { 'ERR_UNCLASSIFIED' => 3 }, errorclassify( 'aie', 'ouille', 'aie' ), 'errorclassify: aie ouille aie => { ERR_UNCLASSIFIED => 3 }' ) ;
+        is_deeply( { 'ERR_UNCLASSIFIED' => 1, 'ERR_OVERQUOTA' => 2 }, errorclassify( 'aie', 'OVERQUOTA pipi', 'OVERQUOTA caca' ), 'errorclassify: aie OVERQUOTA OVERQUOTA' ) ;
+        is_deeply( { 'ERR_NOTHING_REPORTED' => 1 }, errorclassify( '' ), 'errorclassify: "" => { ERR_NOTHING_REPORTED => 1 }' ) ;
+        is_deeply( { 'ERR_NOTHING_REPORTED' => 2 }, errorclassify( '', '' ), 'errorclassify: "", "" => { ERR_NOTHING_REPORTED => 1 }' ) ;
+
+        note( 'Leaving  tests_errorclassify()' ) ;
+        return ;
+}
+
+
+
+sub errorclassify
+{
+        my @errors = @ARG ;
+
+        if ( ! @errors ) { return ; } ;
+
+        my $error_type_count = { } ;
+        foreach my $error ( @errors )
+        {
+                my $error_type = error_type( $error ) ;
+                $error_type_count->{ $error_type }++ ;
+        }
+
+        return $error_type_count ;
+}
+
+sub tests_most_common_error
+{
+        note( 'Entering tests_most_common_error()' ) ;
+
+        is( 'ERR_NOTHING_REPORTED', most_common_error(  ),  'most_common_error: no args => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', most_common_error( {} ),  'most_common_error: empty hash ref => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', most_common_error( 'blabla' ),  'most_common_error: not a hash ref => ERR_NOTHING_REPORTED' ) ;
+
+        is( 'ERR_FOO', most_common_error( { ERR_FOO => 1 } ),  'most_common_error: { ERR_FOO => 1 } => ERR_FOO' ) ;
+        is( 'ERR_BAR', most_common_error( { ERR_FOO => 1, ERR_BAR => 2 } ),  'most_common_error: { ERR_FOO => 1, ERR_BAR => 2 } => ERR_BAR' ) ;
+        is( 'ERR_FOO', most_common_error( { ERR_FOO => 2, ERR_BAR => 1 } ),  'most_common_error: { ERR_FOO => 2, ERR_BAR => 1 } => ERR_FOO' ) ;
+        # exaequo => first lexical wins. ERR_BAR <= ERR_FOO
+        is( 'ERR_BAR', most_common_error( { ERR_FOO => 2, ERR_BAR => 2 } ),  'most_common_error: { ERR_FOO => 2, ERR_BAR => 2 } => ERR_BAR' ) ;
+
+        is( 'A', most_common_error( { A => 5, B => 5, C => 5 } ),  'most_common_error: { A => 5, B => 5, C => 5 } => A' ) ;
+        is( 'B', most_common_error( { A => 5, B => 6, C => 6 } ),  'most_common_error: { A => 5, B => 6, C => 6 } => B' ) ;
+        is( 'C', most_common_error( { A => 5, B => 5, C => 7 } ),  'most_common_error: { A => 5, B => 5, C => 7 } => C' ) ;
+        is( 'C', most_common_error( { A => 5, B => 6, C => 7 } ),  'most_common_error: { A => 5, B => 5, C => 7 } => C' ) ;
+
+        note( 'Leaving  tests_most_common_error()' ) ;
+        return ;
+}
+
+
+
+sub most_common_error
+{
+        my $errors_counted_ref = shift ;
+
+        if ( ! defined $errors_counted_ref ) { return 'ERR_NOTHING_REPORTED' ; }
+
+        if ( 'HASH' ne ref $errors_counted_ref ) { return 'ERR_NOTHING_REPORTED' ; }
+
+        # empty hash
+        if ( !%{ $errors_counted_ref } ) { return 'ERR_NOTHING_REPORTED' ; }
+
+        # non empty hash
+        my $most_common_error = ( sort
+        {
+                $errors_counted_ref->{$b} <=> $errors_counted_ref->{$a}
+                || $a cmp $b
+        } keys %{$errors_counted_ref} )[0] ;
+
+        return $most_common_error ;
+
+}
+
+
+
+sub tests_errorsanalyse
+{
+        note( 'Entering tests_errorsanalyse()' ) ;
+
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse(  ),  'errorsanalyse: no args => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( (  ) ),  'errorsanalyse: empty list => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_UNCLASSIFIED', errorsanalyse( 'aie' ),  'errorsanalyse: aie => ERR_UNCLASSIFIED' ) ;
+
+        # in case of equality, empty wins
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( 'aie', '' ),  'errorsanalyse: aie => ERR_UNCLASSIFIED' ) ;
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( '', 'aie' ),  'errorsanalyse: aie => ERR_UNCLASSIFIED' ) ;
+
+
+        is( 'ERR_UNCLASSIFIED', errorsanalyse( 'aie', 'ouille' ),  'errorsanalyse: aie, ouille => ERR_UNCLASSIFIED' ) ;
+        is( 'ERR_UNCLASSIFIED', errorsanalyse( 'aie', 'ouille', '' ),  'errorsanalyse: aie, ouille, "" => ERR_UNCLASSIFIED' ) ;
+        is( 'ERR_UNCLASSIFIED', errorsanalyse( '', 'aie', 'ouille' ),  'errorsanalyse: aie, ouille, "" => ERR_UNCLASSIFIED' ) ;
+
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( '' ),  'errorsanalyse: "" => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( ( '' ) ),  'errorsanalyse: ( "" ) => ERR_NOTHING_REPORTED' ) ;
+        is( 'ERR_NOTHING_REPORTED', errorsanalyse( ( '', '' ) ),  'errorsanalyse: ( "", "" ) => ERR_NOTHING_REPORTED' ) ;
+
+        note( 'Leaving  tests_errorsanalyse()' ) ;
+        return ;
+}
+
+
+
+sub errorsanalyse
+{
+        my @errors = @ARG ;
+        my $errors_types_counted = errorclassify( @errors ) ;
+
+        my $most_common_error = most_common_error( $errors_types_counted ) ;
+
+        return $most_common_error ;
+}
+
+
+
+sub tests_errorsdump
+{
+        note( 'Entering tests_errorsdump()' ) ;
+
+        is( undef, errorsdump(  ),  'errorsdump: no args => undef' ) ;
+        is( undef, errorsdump( (  ) ),  'errorsdump: empty list => undef' ) ;
+        is( "Err 1/1: ", errorsdump( '' ),  'errorsdump: one empty string => "Err 1/1: "' ) ;
+        is( "Err 1/1: aieaieaie", errorsdump( 'aieaieaie' ),  'errorsdump: aieaieaie => "Err 1/1: aieaieaie"' ) ;
+        is( "Err 1/2: Aie Err 2/2: Ouille", errorsdump( 'Aie ', 'Ouille' ),  'errorsdump: Aie Ouille => "Err 1/2: Aie Err 2/2: Ouille"' ) ;
+        note( 'Leaving  tests_errorsdump()' ) ;
+        return ;
+}
+
+
 sub errorsdump
 {
-        my( $nb_errors, @errors_log ) = @ARG ;
+        if ( ! @ARG ) { return ; }
+
+        my @errors_log = @ARG ;
+        my $nb_errors = @errors_log ;
         my $error_num = 0 ;
         my $errors_list = q{} ;
         if ( @errors_log ) {
-                $errors_list = "++++ Listing $nb_errors errors encountered during the sync ( avoid this listing with --noerrorsdump ).\n" ;
-                foreach my $error ( @errors_log ) {
+                foreach my $error ( @errors_log )
+                {
                         $error_num++ ;
                         $errors_list .= "Err $error_num/$nb_errors: $error" ;
                 }
@@ -5064,9 +5995,26 @@ sub errorsdump
 }
 
 
+
+sub errors_listing
+{
+        my $mysync = shift ;
+        $mysync->{most_common_error} = errorsanalyse( errors_log( $sync ) ) ;
+
+        my $errors_listing = join( '',
+        "++++ Listing $mysync->{nb_errors} errors encountered during the sync ( avoid this listing with --noerrorsdump ).\n",
+        errorsdump( errors_log( $mysync ) ),
+        "The most frequent error is $mysync->{most_common_error}\n",
+        ) ;
+        return $errors_listing ;
+}
+
+
+
+
 sub tests_live_result
 {
-	note( 'Entering tests_live_result()' ) ;
+        note( 'Entering tests_live_result()' ) ;
 
         my $nb_errors = shift ;
         if ( $nb_errors  ) {
@@ -5074,7 +6022,7 @@ sub tests_live_result
         } else {
                 myprint( "Live tests ended successfully\n"  ) ;
         }
-	note( 'Leaving  tests_live_result()' ) ;
+        note( 'Leaving  tests_live_result()' ) ;
         return ;
 }
 
@@ -5140,7 +6088,7 @@ sub sync_flags
         ( $mysync->{ debug } or $debugflags ) and
         myprint( "Host1: flags init msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 msg $h2_fold/$h2_msg flags( $h2_flags )\n"  ) ;
 
-        $h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
+        $h1_flags = flags_for_host2( $mysync, $h1_flags, $permanentflags2 ) ;
 
         $h2_flags = flagscase( $h2_flags ) ;
 
@@ -5195,7 +6143,8 @@ sub lost_connection
         if ( $imap->IsUnconnected(  ) ) {
                 $mysync->{nb_errors}++ ;
                 my $lcomm = $imap->LastIMAPCommand || q{} ;
-                my $einfo = $imap->LastError || @{$imap->History}[$LAST] || q{} ;
+
+                my $einfo = imap_last_error( $imap ) ;
 
                 # if string is long try reduce to a more reasonable size
                 $lcomm = _filter( $mysync, $lcomm ) ;
@@ -5209,6 +6158,14 @@ sub lost_connection
         }
 }
 
+sub imap_last_error
+{
+        my $imap = shift ;
+        my $einfo = $imap->LastError || @{$imap->History}[$LAST] || q{} ;
+        chomp( $einfo ) ;
+        return( $einfo ) ;
+}
+
 sub tests_max
 {
 	note( 'Entering tests_max()' ) ;
@@ -5569,10 +6526,10 @@ sub get_password1
 
 	my $mysync = shift ;
 
-	$mysync->{password1}
+	$mysync->{ password1 }
 	|| $mysync->{ passfile1 }
-	|| 'PREAUTH' eq $authmech1
-	|| 'EXTERNAL' eq $authmech1
+	|| 'PREAUTH'  eq $mysync->{ acc1 }->{ authmech }
+	|| 'EXTERNAL' eq $mysync->{ acc1 }->{ authmech }
 	|| $ENV{IMAPSYNC_PASSWORD1}
 	|| do
         {
@@ -5583,8 +6540,8 @@ password of user1 in a file named file1 and use "--passfile1 file1" instead of t
 Then give this file restrictive permissions with the command "chmod 600 file1".
 An other solution is to set the environment variable IMAPSYNC_PASSWORD1
 FIN_PASSFILE
-                my $user = $authuser1 || $mysync->{user1} ;
-                my $host =  $mysync->{host1} ;
+                my $user = $mysync->{ acc1 }->{ authuser } || $mysync->{ user1 } ;
+                my $host = $mysync->{ host1 } ;
                 my $prompt = "What's the password for $user" . ' at ' . "$host? (not visible while you type, then enter RETURN) " ;
                 $mysync->{password1} = ask_for_password( $prompt ) ;
         } ;
@@ -5613,8 +6570,8 @@ sub get_password2
 
 	$mysync->{password2}
 	|| $mysync->{ passfile2 }
-	|| 'PREAUTH' eq $authmech2
-	|| 'EXTERNAL' eq $authmech2
+	|| 'PREAUTH'  eq $mysync->{ acc2 }->{ authmech }
+	|| 'EXTERNAL' eq $mysync->{ acc2 }->{ authmech }
 	|| $ENV{IMAPSYNC_PASSWORD2}
 	|| do
         {
@@ -5625,8 +6582,8 @@ password of user2 in a file named file2 and use "--passfile2 file2" instead of t
 Then give this file restrictive permissions with the command "chmod 600 file2".
 An other solution is to set the environment variable IMAPSYNC_PASSWORD2
 FIN_PASSFILE
-                my $user = $authuser2 || $mysync->{user2} ;
-                my $host =  $mysync->{host2} ;
+                my $user = $mysync->{ acc2 }->{ authuser } || $mysync->{ user2 } ;
+                my $host =  $mysync->{ host2 } ;
                 my $prompt = "What's the password for $user" . ' at ' . "$host? (not visible while you type, then enter RETURN) " ;
                 $mysync->{password2} = ask_for_password( $prompt ) ;
         } ;
@@ -5656,9 +6613,15 @@ sub remove_tmp_files
 {
         my $mysync = shift or return ;
         $mysync->{pidfile} or return ;
+
         if ( -e $mysync->{pidfile} ) {
+                myprint( "Removing pidfile $mysync->{pidfile}\n" ) ;
                 unlink $mysync->{pidfile} ;
         }
+        if ( -e $mysync->{abortfile} ) {
+                myprint( "Removing pidfile $mysync->{abortfile}\n" ) ;
+                unlink $mysync->{abortfile} ;
+        }
         return ;
 }
 
@@ -5679,14 +6642,28 @@ sub cleanup_before_exit
         if ( $mysync->{log} ) {
                 myprint( "Log file is $mysync->{logfile} ( to change it, use --logfile filepath ; or use --nolog to turn off logging )\n" ) ;
         }
+        else
+        {
+                myprint( "No log file because of option --nolog\n" ) ;
+        }
+
         if ( $mysync->{log} and $mysync->{logfile_handle} ) {
-                #myprint( "Closing $mysync->{ logfile }\n" ) ;
-                close $mysync->{logfile_handle} ;
+                #print( "Closing $mysync->{ logfile }\n" ) ;
+                teefinish( $mysync ) ;
         }
         return ;
 }
 
 
+sub exit_most_errors
+{
+        my $mysync = shift @ARG ;
+
+        myprint( errors_listing( $mysync ) ) ;
+        my $exit_value = $EXIT_VALUE_OF_ERR_TYPE{ $mysync->{most_common_error} } || $EXIT_CATCH_ALL ;
+        exit_clean( $mysync, $exit_value ) ;
+        return ;
+}
 
 sub exit_clean
 {
@@ -5697,7 +6674,7 @@ sub exit_clean
         {
                 myprint( @messages ) ;
         }
-        myprint( "Exiting with return value $status ($EXIT_TXT{$status}) $mysync->{nb_errors}/$mysync->{errorsmax} nb_errors/max_errors\n" ) ;
+        myprint( "Exiting with return value $status ($EXIT_TXT{$status}) $mysync->{nb_errors}/$mysync->{errorsmax} nb_errors/max_errors PID $PROCESS_ID\n" ) ;
         cleanup_before_exit( $mysync ) ;
 
         exit $status ;
@@ -5721,11 +6698,12 @@ sub catch_ignore
         my $sigcounter = ++$mysync->{ sigcounter }{ $signame } ;
         myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ),
                  "). Received $sigcounter $signame signals so far. Thanks!\n" ) ;
-        stats( $mysync ) ;
+        do_and_print_stats( $mysync ) ;
         return ;
 }
 
 
+
 sub catch_exit
 {
         my $mysync = shift ;
@@ -5733,22 +6711,26 @@ sub catch_exit
         if ( $signame ) {
                 myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ),
                          "). Asked to terminate\n" ) ;
-                if ( $mysync->{stats} ) {
-                        myprint( "Here are the final stats of this sync not completely finished so far\n" ) ;
-                        stats( $mysync ) ;
+                if ( $mysync->{can_do_stats} ) {
+                        do_and_print_stats( $mysync ) ;
                         myprint( "Ended by a signal $signame (my PID is $PROCESS_ID my PPID is ",
                         getppid(  ), "). I am asked to terminate immediately.\n" ) ;
-                        myprint( "You should resynchronize those accounts by running a sync again,\n",
-                        "since some messages and entire folders might still be missing on host2.\n" ) ;
                 }
+                myprint( "You should resynchronize those accounts by running a sync again,\n",
+                         "since some messages and entire folders might still be missing on host2.\n"
+                ) ;
                 ## no critic (RequireLocalizedPunctuationVars)
+                # Well, restore default action does not work well
                 $SIG{ $signame }  = 'DEFAULT'; # restore default action
+                #$SIG{ 'TERM' }    = 'DEFAULT'; # restore default action
                 # kill myself with $signame
                 # https://www.cons.org/cracauer/sigint.html
                 myprint( "Killing myself with signal $signame\n" ) ;
-                cleanup_before_exit( $mysync ) ;
+                #cleanup_before_exit( $mysync ) ;
                 kill( $signame, $PROCESS_ID ) ;
-                sleep 1 ;
+                #kill( 'TERM', $PROCESS_ID ) ;
+                #sleep 1 ;
+                #while ( 1 ) {  } ;
                 $mysync->{nb_errors}++ ;
                 exit_clean( $mysync, $EXIT_BY_SIGNAL,
                         "Still there after killing myself with signal $signame...\n"
@@ -5861,6 +6843,7 @@ sub install_signals
                 # --sigignore can override sigexit, sigreconnect and sigprint (for the same signals only)
                 sig_install( $mysync, 'catch_ignore',    @{ $mysync->{ sigignore }  } ) ;
 
+                # remove/add sleeping mechanism when receiving USR1 signal (except on Win32)
                 sig_install_toggle_sleep( $mysync ) ;
         }
 
@@ -5955,10 +6938,6 @@ sub reconnect_if_needed
 }
 
 
-
-#        $sync->{id} = defined  $sync->{id}  ? $sync->{id} : 1 ;
-#        imap_id_stuff( $sync ) ;
-
 sub justconnect
 {
         my $mysync = shift ;
@@ -5974,10 +6953,11 @@ sub justconnect1
         {
                 myprint( "Host1: Will just connect to $mysync->{host1} without login\n" ) ;
                 $mysync->{imap1} = connect_imap(
-                        $mysync->{host1}, $mysync->{port1}, $debugimap1,
-                        $mysync->{ssl1}, $mysync->{tls1}, 'Host1',
-                        $mysync->{h1}->{timeout}, $mysync->{h1} ) ;
-                imap_id( $mysync, $mysync->{imap1}, 'Host1' ) ;
+                        $mysync->{host1}, $mysync->{port1},
+                        $mysync->{ssl1}, $mysync->{tls1},
+                        $mysync->{ acc1 } ) ;
+
+                imap_id( $mysync, $mysync->{imap1}, $mysync->{ acc1 }->{ Side } ) ;
                 $mysync->{imap1}->logout(  ) ;
                 return $mysync->{host1} ;
         }
@@ -5992,10 +6972,11 @@ sub justconnect2
         {
                 myprint( "Host2: Will just connect to $mysync->{host2} without login\n" ) ;
                 $mysync->{imap2} = connect_imap(
-                        $mysync->{host2}, $mysync->{port2}, $debugimap2,
-                        $mysync->{ssl2}, $mysync->{tls2}, 'Host2',
-                        $mysync->{h2}->{timeout}, $mysync->{h2} ) ;
-                imap_id( $mysync, $mysync->{imap2}, 'Host2' ) ;
+                        $mysync->{host2}, $mysync->{port2},
+                        $mysync->{ssl2}, $mysync->{tls2},
+                        $mysync->{ acc2 } ) ;
+
+                imap_id( $mysync, $mysync->{imap2}, $mysync->{ acc2 }->{ Side } ) ;
                 $mysync->{imap2}->logout(  ) ;
                 return $mysync->{host2} ;
         }
@@ -6006,9 +6987,18 @@ sub justconnect2
 sub skip_macosx
 {
         #return ;
-        return( 'macosx.polarhome.com' eq hostname() ) ;
+        # hostname used to be macosx.polarhome.com
+        return( 'macosx' eq hostname(  ) && ( 'darwin' eq $OSNAME ) ) ;
 }
 
+sub skip_macosx_binary
+{
+        #return ;
+        return( skip_macosx(  ) && ( $PROGRAM_NAME =~ m{imapsync_bin_Darwin} ) ) ;
+}
+
+
+
 sub tests_mailimapclient_connect
 {
         note( 'Entering tests_mailimapclient_connect()' ) ;
@@ -6026,7 +7016,7 @@ sub tests_mailimapclient_connect
         is( 'test.lamiral.info', $imap->Server( 'test.lamiral.info' ), 'mailimapclient_connect ipv4: setting Server(test.lamiral.info)' ) ;
         is( 1, $imap->Debug( 1 ), 'mailimapclient_connect ipv4: setting Debug( 1 )' ) ;
         is( 143, $imap->Port( 143 ), 'mailimapclient_connect ipv4: setting Port( 143 )' ) ;
-        is( 3, $imap->Timeout( 3 ), 'mailimapclient_connect ipv4: setting Timout( 3 )' ) ;
+        is( 10, $imap->Timeout( 10 ), 'mailimapclient_connect ipv4: setting Timeout( 10 )' ) ;
         like( ref( $imap->connect(  ) ), qr/IO::Socket::INET|IO::Socket::IP/, 'mailimapclient_connect ipv4: connect to test.lamiral.info' ) ;
         like( $imap->logout( ), qr/Mail::IMAPClient/, 'mailimapclient_connect ipv4: logout' ) ;
         is( undef, undef $imap, 'mailimapclient_connect ipv4: free variable' ) ;
@@ -6042,11 +7032,10 @@ sub tests_mailimapclient_connect
         is( undef, undef $imap, 'mailimapclient_connect ipv4 + ssl: free variable' ) ;
 
         # ipv6 + ssl
-        # Fails often on ks2ipv6.lamiral.info
-        
+
         ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect ipv6 + ssl: new' ) ;
         is( 'petiteipv6.lamiral.info', $imap->Server( 'petiteipv6.lamiral.info' ), 'mailimapclient_connect ipv6 + ssl: setting Server petiteipv6.lamiral.info' ) ;
-        is( 3, $imap->Timeout( 3 ), 'mailimapclient_connect ipv4: setting Timout( 3 )' ) ;
+        is( 10, $imap->Timeout( 10 ), 'mailimapclient_connect ipv6: setting Timeout( 10 )' ) ;
         ok( $imap->Ssl( [ SSL_verify_mode => SSL_VERIFY_NONE, SSL_cipher_list => 'DEFAULT:!DH' ] ), 'mailimapclient_connect ipv6 + ssl: setting Ssl( SSL_VERIFY_NONE )' ) ;
         is( 993, $imap->Port( 993 ), 'mailimapclient_connect ipv6 + ssl: setting Port( 993 )' ) ;
         SKIP: {
@@ -6062,9 +7051,9 @@ sub tests_mailimapclient_connect
         {
                 skip( 'Tests avoided on CUILLERE/pcHPDV7-HP/macosx.polarhome.com/docker cannot do ipv6', 4 ) ;
         }
-        
+
         is( 1, $imap->Debug( 1 ), 'mailimapclient_connect ipv4 + ssl: setting Debug( 1 )' ) ;
-        
+
         # It sounds stupid but it avoids failures on the next test about $imap->connect
         is( '2a01:e34:ecde:70d0:223:54ff:fec2:36d7', resolv( 'petiteipv6.lamiral.info' ), 'resolv: petiteipv6.lamiral.info => 2001:41d0:8:bebd::1' ) ;
 
@@ -6089,7 +7078,7 @@ sub tests_mailimapclient_connect_bug
 
         # ipv6
         ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect_bug ipv6: new' ) ;
-        is( 'ks2ipv6.lamiral.info', $imap->Server( 'ks2ipv6.lamiral.info' ), 'mailimapclient_connect_bug ipv6: setting Server(ks2ipv6.lamiral.info)' ) ;
+        is( 'ks6ipv6.lamiral.info', $imap->Server( 'ks6ipv6.lamiral.info' ), 'mailimapclient_connect_bug ipv6: setting Server(ks6ipv6.lamiral.info)' ) ;
         is( 143, $imap->Port( 143 ), 'mailimapclient_connect_bug ipv6: setting Port( 993 )' ) ;
 
         SKIP: {
@@ -6105,7 +7094,7 @@ sub tests_mailimapclient_connect_bug
                 {
                         skip( 'Tests avoided on CUILLERE/pcHPDV7-HP/macosx.polarhome.com/docker cannot do ipv6', 1 ) ;
                 }
-                like( ref( $imap->connect(  ) ), qr/IO::Socket::INET/, 'mailimapclient_connect_bug ipv6: connect to ks2ipv6.lamiral.info' )
+                like( ref( $imap->connect(  ) ), qr/IO::Socket::INET/, 'mailimapclient_connect_bug ipv6: connect to ks6ipv6.lamiral.info' )
                 or diag( 'mailimapclient_connect_bug ipv6: ', $imap->LastError(  ), $!,  ) ;
         }
         #is( $imap->logout( ), undef, 'mailimapclient_connect_bug ipv6: logout in ssl causes failure' ) ;
@@ -6140,12 +7129,12 @@ sub tests_connect_socket
                 }
 
                 $socket = IO::Socket::INET6->new(
-                        PeerAddr => 'ks2ipv6.lamiral.info',
+                        PeerAddr => 'ks6ipv6.lamiral.info',
                         PeerPort => 143,
                 ) ;
 
 
-                ok( $imap = connect_socket( $socket ), 'connect_socket: ks2ipv6.lamiral.info port 143 IO::Socket::INET6' ) ;
+                ok( $imap = connect_socket( $socket ), 'connect_socket: ks6ipv6.lamiral.info port 143 IO::Socket::INET6' ) ;
                 #$imap->Debug( 1 ) ;
                 # myprint( $imap->capability(  ) ) ;
                 if ( $imap ) {
@@ -6154,13 +7143,13 @@ sub tests_connect_socket
 
                 $IO::Socket::SSL::DEBUG = 4 ;
                 $socket = IO::Socket::SSL->new(
-                        PeerHost => 'ks2ipv6.lamiral.info',
+                        PeerHost => 'ks6ipv6.lamiral.info',
                         PeerPort => 993,
                         SSL_verify_mode => SSL_VERIFY_NONE,
                         SSL_cipher_list => 'DEFAULT:!DH',
                 ) ;
                 # myprint( $socket ) ;
-                ok( $imap = connect_socket( $socket ), 'connect_socket: ks2ipv6.lamiral.info port 993 IO::Socket::SSL' ) ;
+                ok( $imap = connect_socket( $socket ), 'connect_socket: ks6ipv6.lamiral.info port 993 IO::Socket::SSL' ) ;
                 #$imap->Debug( 1 ) ;
                 # myprint( $imap->capability(  ) ) ;
                 # $socket->close(  ) ;
@@ -6216,10 +7205,10 @@ sub tests_probe_imapssl
                         skip( 'Tests avoided on CUILLERE or pcHPDV7-HP or Mac or docker: cannot do ipv6', 0 ) ;
                 }
                 # fed up with this one
-                #like( probe_imapssl( 'ks2ipv6.lamiral.info' ), qr/^\* OK/, 'probe_imapssl: ks2ipv6.lamiral.info matches "* OK"' ) ;
+                #like( probe_imapssl( 'ks6ipv6.lamiral.info' ), qr/^\* OK/, 'probe_imapssl: ks6ipv6.lamiral.info matches "* OK"' ) ;
         } ;
 
-        
+
         # It sounds stupid but it avoids failures on the next test about $imap->connect
         ok( resolv( 'imap.gmail.com' ), 'resolv: imap.gmail.com => something' ) ;
         like( probe_imapssl( 'imap.gmail.com' ),       qr/^\* OK/, 'probe_imapssl: imap.gmail.com matches "* OK"' ) ;
@@ -6257,193 +7246,604 @@ sub probe_imapssl
 
 sub connect_imap
 {
-        my( $host, $port, $mydebugimap, $ssl, $tls, $Side, $mytimeout, $h ) = @_ ;
+        my( $host, $port, $ssl, $tls, $acc ) = @_ ;
         my $imap = Mail::IMAPClient->new(  ) ;
-        
-        if ( $ssl ) { set_ssl( $imap, $h ) }
+
+        if ( $ssl ) { set_ssl( $imap, $acc ) }
         $imap->Server( $host ) ;
         $imap->Port( $port ) ;
-        $imap->Debug( $mydebugimap ) ;
-        $imap->Timeout( $mytimeout ) ;
+        $imap->Debug( $acc->{ debugimap } ) ;
+        $imap->Timeout( $acc->{ timeout } ) ;
 
-        my $side = lc $Side ;
-        myprint( "$Side: connecting on $side [$host] port [$port]\n"  ) ;
+        my $side = lc $acc->{ Side } ;
+
+        myprint( "$acc->{ Side }: connecting on $side [$host] port [$port]\n"  ) ;
 
         if ( ! $imap->connect(  ) )
         {
                 $sync->{nb_errors}++ ;
                 exit_clean( $sync, $EXIT_CONNECTION_FAILURE,
-                        "$Side: Can not open imap connection on [$host]: ",
+                        "$acc->{ Side }: Can not open imap connection on [$host]: ",
                         $imap->LastError,
                         " $OS_ERROR\n"
                 ) ;
         }
-        myprint( "$Side IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
+        myprint( "$acc->{ Side } IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
 
         my $banner = $imap->Results()->[0] ;
 
-        myprint( "$Side banner: $banner"  ) ;
-        myprint( "$Side capability: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
+        myprint( "$acc->{ Side } banner: $banner"  ) ;
+        myprint( "$acc->{ Side } capability: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
 
         if ( $tls ) {
-                set_tls( $imap, $h ) ;
+                set_tls( $imap, $acc ) ;
                 if ( ! $imap->starttls(  ) )
                 {
                         $sync->{nb_errors}++ ;
                         exit_clean( $sync, $EXIT_TLS_FAILURE,
-                                "$Side: Can not go to tls encryption on $side [$host]:",
+                                "$acc->{ Side }: Can not go to tls encryption on $side [$host]:",
                                 $imap->LastError, "\n"
                         ) ;
                 }
-                myprint( "$Side: Socket successfuly converted to SSL\n"  ) ;
+                myprint( "$acc->{ Side }: Socket successfully converted to SSL\n"  ) ;
         }
         return( $imap ) ;
 }
 
 
+
+sub tests_login_imap
+{
+        note( 'Entering tests_login_imap()' ) ;
+
+        is( undef, login_imap(  ),  'login_imap: no args => undef' ) ;
+
+        SKIP: {
+        if ( skip_macosx_binary(  ) )
+        {
+                skip( 'Tests avoided only on binary on host polarhome macosx, no clue "ssl3_get_server_certificate:certificate verify failed"', 11 ) ;
+        }
+        else{
+        
+        my $myimap ;
+        my $acc = {} ;
+        $acc->{ Side }     =  'HostK' ;
+        $acc->{ authmech } = 'LOGIN' ;
+        #$IO::Socket::SSL::DEBUG = 4 ;
+        # Each month (trimester?):
+        # echo | openssl s_client -crlf -connect test1.lamiral.info:993
+        # ...
+        # certificate has expired
+        # Fix:
+        # ssh root@test1.lamiral.info 'apt update && apt upgrade && /etc/init.d/dovecot restart'
+        ok(
+                $myimap = login_imap( 'test1.lamiral.info', 993, 'test1', 'secret1',
+                1, undef,
+                1, 100, $acc, {},
+                ),  'login_imap: test1.lamiral.info test1 ssl' ) ;
+        ok( defined( $myimap ) && $myimap->IsAuthenticated( ), 'login_imap: test1.lamiral.info test1 ssl IsAuthenticated' ) ;
+
+        ok(
+                $myimap = login_imap( 'test1.lamiral.info', 143, 'test1', 'secret1',
+                0, undef,
+                1, 100, $acc, {},
+                ),  'login_imap: test1.lamiral.info test1 tls' ) ;
+        ok( $myimap && $myimap->IsAuthenticated( ), 'login_imap: test1.lamiral.info test1 tls IsAuthenticated' ) ;
+
+        #$IO::Socket::SSL::DEBUG = 4 ;
+        $acc->{sslargs} = { SSL_version => 'SSLv2' } ;
+        # SSLv2 not supported
+        is(
+                undef, $myimap = login_imap( 'test1.lamiral.info', 143, 'test1', 'secret1',
+                0, undef,
+                1, 100, $acc, {},
+                ),  'login_imap: test1.lamiral.info test1 tls SSLv2 not supported' ) ;
+#SSL_verify_mode => 1
+#SSL_version => 'TLSv1_1'
+
+
+
+        # I have left ? exit_clean to be replaced by errors_incr( $mysync, 'error message' )
+        # 1 in login_imap()
+
+
+        my $mysync = {} ;
+        $acc = {} ;
+        $acc->{ Side } =  'Host2' ;
+        $acc->{ authmech } = 'LOGIN' ;
+        is(
+                undef, login_imap( 'noresol.lamiral.info', 143, 'test1', 'secret1',
+                0, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: noresol.lamiral.info undef' ) ;
+
+        is( 'ERR_CONNECTION_FAILURE_HOST2', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host2 noresol.lamiral.info => ERR_CONNECTION_FAILURE_HOST2' ) ;
+
+        # authentication failure for user2
+        $mysync = {} ;
+        is(
+                undef, login_imap( 'test1.lamiral.info', 143, 'test1', 'Ce crétin',
+                0, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: user2 bad passord => undef' ) ;
+
+        is( 'ERR_AUTHENTICATION_FAILURE_USER2', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host2 bad password => ERR_AUTHENTICATION_FAILURE_USER2' ) ;
+
+        # authentication failure for user1
+        $mysync = {} ;
+        $acc = {} ;
+        $acc->{ Side } =  'Host1' ;
+        $acc->{ authmech } = 'LOGIN' ;
+        is(
+                undef, login_imap( 'test1.lamiral.info', 143, 'test1', 'Ce crétin',
+                0, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: user1 bad passord => undef' ) ;
+
+        is( 'ERR_AUTHENTICATION_FAILURE_USER1', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host1 bad password => ERR_AUTHENTICATION_FAILURE_USER1' ) ;
+
+        }
+        }
+        
+        note( 'Leaving  tests_login_imap()' ) ;
+        return ;
+}
+
+sub oauthgenerateaccess
+{
+        if ( "petite" eq hostname() )
+        {
+                myprint( "oauthgenerateaccess\n" ) ;
+                my @output = backtick( 'cd oauth2 && pwd && ./generate_gmail_token imapsync.gl0@gmail.com' ) ;
+                myprint( @output ) ;
+        }
+        return ;
+}
+
+sub tests_login_imap_oauth
+{
+        note( 'Entering tests_login_imap_oauth()' ) ;
+        
+        oauthgenerateaccess() ;
+
+        SKIP: {
+        if ( skip_macosx_binary(  ) )
+        {
+                skip( 'Tests avoided only on binary on host polarhome macosx, no clue "ssl3_get_server_certificate:certificate verify failed"', 6 ) ;
+        }
+        else
+        {
+
+        my $mysync ;
+        my $acc ;
+        # oauthdirect authentication failure for user2
+        $mysync = {} ;
+        $acc  = {} ;
+        $acc->{ oauthdirect } = 'caca2' ;
+        $acc->{ debugimap } = 1 ;
+        $mysync->{ showpasswords } = 1 ;
+        $acc->{ Side } =  'Host2' ;
+        $acc->{ authmech } = 'QQQ' ;
+        is(
+                undef, login_imap( 'imap.gmail.com', 993, 'test1', 'Ce crétin',
+                1, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: user2 bad oauthdirect => undef' ) ;
+
+        is( 'ERR_AUTHENTICATION_FAILURE_USER2', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host2 bad oauthdirect => ERR_AUTHENTICATION_FAILURE_USER2' ) ;
+
+        # oauthdirect authentication failure for user1
+        $mysync = {} ;
+        $acc  = {} ;
+        $acc->{ Side } =  'Host1' ;
+        $acc->{ oauthdirect } = 'caca1' ;
+        $acc->{ debugimap } = 1 ;
+        $mysync->{ showpasswords } = 1 ;
+        $acc->{ authmech } = 'QQQ' ;
+        is(
+                undef, login_imap( 'imap.gmail.com', 993, 'test1', 'Ce crétin',
+                1, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: user1 bad oauthdirect => undef' ) ;
+
+        is( 'ERR_AUTHENTICATION_FAILURE_USER1', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host1 bad oauthdirect => ERR_AUTHENTICATION_FAILURE_USER1' ) ;
+
+        # oauthdirect authentication failure for user1
+        $mysync = {} ;
+        $acc  = {} ;
+        $acc->{ Side } =  'Host1' ;
+        $acc->{ oauthdirect } = '' ;
+        $acc->{ debugimap } = 1 ;
+        $mysync->{ showpasswords } = 1 ;
+        $acc->{ authmech } = 'QQQ' ;
+        is(
+                undef, login_imap( 'imap.gmail.com', 993, 'test1', 'Ce crétin',
+                1, undef,
+                1, 100, $acc,  $mysync,
+                ),  'login_imap: user1 bad oauthdirect => undef' ) ;
+
+        is( 'ERR_AUTHENTICATION_FAILURE_USER1', errorsanalyse( errors_log( $mysync ) ), 'login_imap: Host1 no oauthdirect value => ERR_AUTHENTICATION_FAILURE_USER1' ) ;
+
+        }
+        }
+
+        # oauthdirect authentication success for user1 
+        SKIP: {
+                if ( ! -r 'oauth2/D_oauth2_oauthdirect_imapsync.gl0@gmail.com.txt' ) 
+                {
+                        skip( 'oauthdirect: no oauthdirect file', 2  ) ;
+                }
+                my $myimap ;
+        my $mysync = {} ;
+        my $acc  = {} ;
+        $acc->{ Side } =  'Host1' ;
+        $acc->{ oauthdirect } = 'oauth2/D_oauth2_oauthdirect_imapsync.gl0@gmail.com.txt' ;
+        $acc->{ debugimap } = 1 ;
+        $mysync->{ showpasswords } = 1 ;
+        $acc->{ authmech } = 'QQQ' ;
+        isa_ok(
+                $myimap = login_imap( 'imap.gmail.com', 993, 'user_useless', 'password_useless',
+                1, undef,
+                1, 100, $acc,  $mysync,
+                ), 'Mail::IMAPClient', 'login_imap: user1 good oauthdirect => Mail::IMAPClient' ) ;
+
+        ok( defined( $myimap ) && $myimap->IsAuthenticated( ), 'login_imap: gmail oauth2 IsAuthenticated' ) ;
+        }
+        
+        # oauthaccesstoken authentication success for user1 
+        SKIP: {
+                if ( ! -r 'oauth2/D_oauth2_access_token_imapsync.gl0@gmail.com.txt' ) 
+                {
+                        skip( 'oauthaccesstoken: no access_token file', 2  ) ;
+                }
+                my $myimap ;
+        my $mysync = {} ;
+        my $acc  = {} ;
+        $acc->{ Side } =  'Host1' ;
+        $acc->{ oauthaccesstoken } = 'oauth2/D_oauth2_access_token_imapsync.gl0@gmail.com.txt' ;
+        $acc->{ debugimap } = 1 ;
+        $mysync->{ showpasswords } = 1 ;
+        $acc->{ authmech } = 'QQQ' ;
+        isa_ok(
+                $myimap = login_imap( 'imap.gmail.com', 993, 'imapsync.gl0@gmail.com', 'password_useless',
+                1, undef,
+                1, 100, $acc,  $mysync,
+                ), 'Mail::IMAPClient', 'login_imap: user1 good oauthaccesstoken => Mail::IMAPClient' ) ;
+
+        ok( defined( $myimap ) && $myimap->IsAuthenticated( ), 'login_imap: gmail oauth2 oauthaccesstoken IsAuthenticated' ) ;
+
+        }
+        
+        
+        note( 'Leaving  tests_login_imap_oauth()' ) ;
+        return ;
+}
+
+
+
 sub login_imap
 {
-
         my @allargs = @_ ;
         my(
-                $host, $port, $user, $domain, $password,
-                $mydebugimap, $mytimeout, $fastio,
-                $ssl, $tls, $authmech, $authuser, $reconnectretry,
-                $proxyauth, $uid, $split, $Side, $h, $mysync ) = @allargs ;
+                $host, $port, $user, $password,
+                $ssl, $tls,
+                $uid, $split, $acc, $mysync ) = @allargs ;
 
-        my $side = lc $Side ;
-        myprint( "$Side: connecting and login on $side [$host] port [$port] with user [$user]\n"  ) ;
+        if ( ! all_defined( $host, $port, $user, $acc->{ Side } ) )
+        {
+                return ;
+        }
+
+        my $side = lc $acc->{ Side } ;
+        myprint( "$acc->{ Side }: connecting and login on $side [$host] port [$port] with user [$user]\n"  ) ;
 
         my $imap = init_imap( @allargs ) ;
 
         if ( ! $imap->connect() )
         {
-                $mysync->{nb_errors}++ ;
-                exit_clean( $mysync, $EXIT_CONNECTION_FAILURE,
-                        "$Side failure: can not open imap connection on $side [$host] with user [$user]: ",
-                        $imap->LastError . " $OS_ERROR\n"
-                ) ;
+                my $error = "$acc->{ Side } failure: can not open imap connection on $side [$host] with user [$user]: "
+                            . $imap->LastError . " $OS_ERROR\n" ;
+                errors_incr( $mysync, $error ) ;
+                return ;
         }
-        myprint( "$Side IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
+        myprint( "$acc->{ Side } IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
         my $banner = $imap->Results()->[0] ;
 
-        myprint( "$Side banner: $banner"  ) ;
-	myprint( "$Side capability before authentication: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
+        myprint( "$acc->{ Side } banner: $banner"  ) ;
+	myprint( "$acc->{ Side } capability before authentication: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
 
 	if ( (! $ssl) and (! defined $tls ) and $imap->has_capability( 'STARTTLS' ) ) {
-		myprint( "$Side: going to ssl because STARTTLS is in CAPABILITY. Use --notls1 or --notls2 to avoid that behavior\n" ) ;
+		myprint( "$acc->{ Side }: going to ssl because STARTTLS is in CAPABILITY. Use --notls1 or --notls2 to avoid that behavior\n" ) ;
 		$tls = 1 ;
 	}
 
-        if ( $authmech eq 'PREAUTH' ) {
+
+        #myprint( Data::Dumper->Dump( [ @allargs ] )  ) ;
+        if ( $tls ) {
+                set_tls( $imap, $acc ) ;
+
+                if ( ! $imap->starttls(  ) )
+                {
+                        my $error = "$acc->{ Side } failure: Can not go to tls encryption on $side [$host]: "
+                            . $imap->LastError . "\n" ;
+
+                        errors_incr( $mysync, $error ) ;
+                        return ;
+                }
+                myprint( "$acc->{ Side }: Socket successfully converted to SSL\n"  ) ;
+        }
+
+        if ( $acc->{ authmech } eq 'PREAUTH' ) {
                 if ( $imap->IsAuthenticated( ) ) {
                         $imap->Socket ;
-                        myprintf("%s: Assuming PREAUTH for %s\n", $Side, $imap->Server ) ;
+                        myprintf("%s: Assuming PREAUTH for %s\n", $acc->{ Side }, $imap->Server ) ;
                 }else{
                         $mysync->{nb_errors}++ ;
                         exit_clean(
                                 $mysync, $EXIT_AUTHENTICATION_FAILURE,
-                                "$Side failure: error login on $side [$host] with user [$user] auth [PREAUTH]\n"
+                                "$acc->{ Side } failure: error login on $side [$host] with user [$user] auth [PREAUTH]\n"
                         ) ;
                 }
         }
 
-        if ( $tls ) {
-                set_tls( $imap, $h ) ;
-                if ( ! $imap->starttls(  ) )
-                {
-                        $mysync->{nb_errors}++ ;
-                        exit_clean( $mysync, $EXIT_TLS_FAILURE,
-                                "$Side failure: Can not go to tls encryption on $side [$host]:",
-                                $imap->LastError, "\n"
-                        ) ;
-                }
-                myprint( "$Side: Socket successfuly converted to SSL\n"  ) ;
+
+
+        if ( authenticate_imap( $imap, @allargs ) )
+        {
+                myprint( "$acc->{ Side }: success login on [$host] with user [$user] auth [$acc->{ authmech }] or [LOGIN]\n"  ) ;
+                return( $imap ) ;
+        }
+        else
+        {
+                # The errors are already printed
+                myprint( "$acc->{ Side }: failed login on [$host] with user [$user] auth [$acc->{ authmech }]\n"  ) ;
+                return ;
         }
-
-        authenticate_imap( $imap, @allargs ) ;
-
-        myprint( "$Side: success login on [$host] with user [$user] auth [$authmech]\n"  ) ;
-        return( $imap ) ;
 }
 
 
+
+sub init_imap
+{
+        my(
+           $host, $port, $user, $password,
+           $ssl, $tls,
+           $uid, $split, $acc, $mysync ) = @_ ;
+
+        my ( $imap ) ;
+
+        $imap = Mail::IMAPClient->new() ;
+
+        if ( $mysync->{ tee } )
+        {
+                # Well, it does not change anything, does it?
+                # It does when suppressing the hack with *STDERR
+                $imap->Debug_fh( $mysync->{ tee } ) ;
+        }
+
+        if ( $ssl ) { set_ssl( $imap, $acc ) }
+        if ( $tls ) {  } # can not do set_tls() here because connect() will directly do a STARTTLS
+        $imap->Clear( 1 ) ;
+        $imap->Server( $host ) ;
+        $imap->Port( $port ) ;
+        $imap->Fast_io( $acc->{ fastio } ) ;
+        $imap->Buffer( $buffersize || $DEFAULT_BUFFER_SIZE ) ;
+        $imap->Uid( $uid ) ;
+
+
+        $imap->Peek( 1 ) ;
+        $imap->Debug( $acc->{ debugimap } ) ;
+        if ( $mysync->{ showpasswords } ) {
+                $imap->Showcredentials( 1 ) ;
+        }
+
+        defined  $acc->{ timeout } and $imap->Timeout( $acc->{ timeout } ) ;
+
+        if ( defined $acc->{ reconnectretry } )
+        {
+                $imap->Reconnectretry( $acc->{ reconnectretry } ) ;
+        }
+        $imap->{IMAPSYNC_RECONNECT_COUNT} = 0 ;
+        $imap->Ignoresizeerrors( $allowsizemismatch ) ;
+        $split and $imap->Maxcommandlength( $SPLIT_FACTOR * $split ) ;
+
+
+        return( $imap ) ;
+
+}
+
 sub authenticate_imap
 {
         my( $imap,
-           $host, $port, $user, $domain, $password,
-           $mydebugimap, $mytimeout, $fastio,
-           $ssl, $tls, $authmech, $authuser, $reconnectretry,
-           $proxyauth, $uid, $split, $Side, $h, $mysync ) = @_ ;
+           $host, $port, $user, $password,
+           $ssl, $tls,
+           $uid, $split, $acc, $mysync ) = @_ ;
 
-        check_capability( $imap, $authmech, $Side ) ;
+        check_capability( $imap, $acc->{ authmech }, $acc->{ Side } ) ;
         $imap->User( $user ) ;
-        $imap->Domain( $domain ) if ( defined $domain ) ;
-        $imap->Authuser( $authuser ) ;
+
+        if ( defined $acc->{ domain } )
+        {
+                $imap->Domain( $acc->{ domain } ) ;
+                $mysync->{ debug } and myprint( "Domain: $acc->{ domain }\n" ) ;
+        }
+
+        $imap->Authuser( $acc->{ authuser } ) ;
         $imap->Password( $password ) ;
 
-        if ( 'X-MASTERAUTH' eq $authmech )
+        if ( 'X-MASTERAUTH' eq $acc->{ authmech } )
         {
                 xmasterauth( $imap ) ;
-                return ;
+                return 1 ;
         }
 
-        if ( $proxyauth ) {
+
+        if ( defined $acc->{ oauthdirect } )
+        {
+                $acc->{ authmech } = 'XOAUTH2 direct' ;
+                return( oauthdirect( $mysync, $acc, $imap, $host, $user ) ) ;
+        }
+        
+        
+        if ( defined $acc->{ oauthaccesstoken } )
+        {
+                $acc->{ authmech } = 'XOAUTH2 accesstoken' ;
+                return( oauthaccesstoken( $mysync, $acc, $imap, $host, $user ) ) ;
+        }
+        
+        
+
+
+        if ( $acc->{ proxyauth } ) {
                 $imap->Authmechanism(q{}) ;
-                $imap->User( $authuser ) ;
+                $imap->User( $acc->{ authuser } ) ;
         } else {
-                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' ) ;
+                $imap->Authmechanism( $acc->{ authmech } ) unless ( $acc->{ authmech } eq 'LOGIN'  or $acc->{ authmech } eq 'PREAUTH' ) ;
         }
 
-        $imap->Authcallback(\&xoauth)  if ( 'XOAUTH'  eq $authmech ) ;
-        $imap->Authcallback(\&xoauth2) if ( 'XOAUTH2' eq $authmech ) ;
-        $imap->Authcallback(\&plainauth) if ( ( 'PLAIN' eq $authmech ) or ( 'EXTERNAL' eq $authmech )  ) ;
+        $imap->Authcallback(\&xoauth2) if ( 'XOAUTH2' eq $acc->{ authmech } ) ;
+        $imap->Authcallback(\&plainauth) if ( ( 'PLAIN' eq $acc->{ authmech } ) or ( 'EXTERNAL' eq $acc->{ authmech } )  ) ;
 
 
-        unless ( $authmech eq 'PREAUTH' or $imap->login( ) ) {
-                my $info  = "$Side failure: Error login on [$host] with user [$user] auth" ;
-                my $einfo = $imap->LastError || @{$imap->History}[$LAST] ;
-                chomp $einfo ;
-                my $error = "$info [$authmech]: $einfo\n" ;
-                if ( ( $authmech eq 'LOGIN' ) or $imap->IsUnconnected(  ) or $authuser ) {
-                        $authuser ||= "" ;
-                        myprint( "$Side info: authmech [$authmech] user [$user] authuser [$authuser] IsUnconnected [", $imap->IsUnconnected(  ), "]\n" ) ;
-                        $mysync->{nb_errors}++ ;
-                        exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE, $error ) ;
+        unless ( $acc->{ authmech } eq 'PREAUTH' or $imap->login( ) ) {
+                my $info  = "$acc->{ Side } failure: Error login on [$host] with user [$user] auth" ;
+                my $einfo = imap_last_error( $imap ) ;
+                my $error = "$info [$acc->{ authmech }]: $einfo\n" ;
+
+
+                if ( ( $acc->{ authmech } eq 'LOGIN' ) or $imap->IsUnconnected(  ) or $acc->{ authuser } ) {
+                        $acc->{ authuser } ||= "" ;
+                        myprint( "$acc->{ Side } info: authmech [$acc->{ authmech }] user [$user] authuser [$acc->{ authuser }] IsUnconnected [", $imap->IsUnconnected(  ), "]\n" ) ;
+                        errors_incr( $mysync, $error ) ;
+                        return ;
                 }else{
-                        myprint( $error ) ;
+                        errors_incr( $mysync, $error ) ;
                 }
+
                 # It is not secure to try plain text LOGIN when another authmech failed
-                # but I do it.
-                # I shell remove this code one day.
-                myprint( "$Side info: trying LOGIN Auth mechanism on [$host] with user [$user]\n"  ) ;
-                $imap->Authmechanism(q{}) ;
-                if ( ! $imap->login(  ) )
+                # but I do it anyway. This behavior is optional as option --notrylogin will skip it.
+                if ( $mysync->{ trylogin } )
                 {
-                        $mysync->{nb_errors}++ ;
-                        exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE,
-                                "$info [LOGIN]: ",
-                                $imap->LastError, "\n"
-                        ) ;
+                        myprint( "$acc->{ Side } info: trying LOGIN Auth mechanism on [$host] with user [$user]. Use option --notrylogin to avoid this second chance to login via LOGIN auth\n"  ) ;
+                        $imap->Authmechanism(q{}) ;
+                        if ( ! $imap->login(  ) )
+                        {
+                                failure_login( $mysync, $acc, 'LOGIN', $imap, $host, $user ) ;
+                                return ;
+                        }
+                        else
+                        {
+                                myprint( "$acc->{ Side }: success login on [$host] with user [$user] auth [LOGIN] after [$acc->{ authmech }] failure\n"  ) ;
+                        }
+                }
+                else
+                {
+                        myprint( "$acc->{ Side } info: not trying LOGIN Auth mechanism on [$host] with user [$user]. Use option --trylogin to have this second chance to login via LOGIN auth\n"  ) ;
+                        return ;
                 }
         }
 
-        if ( $proxyauth ) {
+        if ( $acc->{ proxyauth } ) {
                 if ( ! $imap->proxyauth( $user ) ) {
-                        my $info  = "$Side failure: Error doing proxyauth as user [$user] on [$host] using proxy-login as [$authuser]" ;
-                        my $einfo = $imap->LastError || @{$imap->History}[$LAST] ;
-                        chomp $einfo ;
-                        $mysync->{nb_errors}++ ;
-                        exit_clean( $mysync,
-                                $EXIT_AUTHENTICATION_FAILURE,
-                                "$info: $einfo\n"
-                        ) ;
+                        failure_proxyauth( $mysync, $acc, $acc->{ authmech }, $imap, $host, $user ) ;
+                        return ;
                 }
         }
 
+        return 1;
+}
+
+
+sub failure_login
+{
+        my( $mysync, $acc, $authmech, $imap, $host, $user ) = @ARG ;
+        my $info  = "$acc->{ Side } failure: Error login on [$host] with user [$user] auth" ;
+        my $einfo = imap_last_error( $imap ) ;
+        my $error = "$info [$authmech]: $einfo\n" ;
+        errors_incr( $mysync, $error ) ;
         return ;
 }
 
+# failure_login and failure_proxyauth function are similar but
+# variable $error so no factoring
+sub failure_proxyauth
+{
+        my( $mysync, $acc, $authmech, $imap, $host, $user ) = @ARG ;
+        my $info  = "$acc->{ Side } failure: Error login on [$host] with user [$user] auth" ;
+        my $einfo = imap_last_error( $imap ) ;
+        my $error = "$info [$authmech] using proxy-login as [$acc->{ authuser }]: $einfo\n" ;
+        errors_incr( $mysync, $error ) ;
+        return ;
+}
+
+
+
+
+sub oauthdirect
+{
+        my( $mysync, $acc, $imap, $host, $user ) = @_ ;
+
+        my $oauthdirect_str ;
+        if ( -f -r $acc->{ oauthdirect } )
+        {
+                $oauthdirect_str = firstline( $acc->{ oauthdirect } ) ;
+        }
+        else
+        {
+                $oauthdirect_str = $acc->{ oauthdirect } || 'Please define oauthdirect value' ;
+        }
+        if ( $imap->authenticate('XOAUTH2', sub { return $oauthdirect_str } ) )
+        {
+                return 1 ;
+        }
+        else
+        {
+                failure_login( $mysync, $acc, $acc->{ authmech }, $imap, $host, $user ) ;
+                return ;
+        }
+        return ;
+}
+
+
+
+
+sub oauthaccesstoken
+{
+        my( $mysync, $acc, $imap, $host, $user ) = @_ ;
+
+        my $oauthaccesstoken_str ;
+        if ( -f -r $acc->{ oauthaccesstoken } )
+        {
+                $oauthaccesstoken_str = firstline( $acc->{ oauthaccesstoken } ) ;
+        }
+        else
+        {
+                $oauthaccesstoken_str = $acc->{ oauthaccesstoken } || 'Please define oauthaccesstoken value' ;
+        }
+        
+        my $oauth_string = "user=" . $user . "\x01auth=Bearer ".  $oauthaccesstoken_str . "\x01\x01" ;
+        #myprint "oauth_string: $oauth_string\n" ;
+
+        my $oauth_string_base64 = encode_base64( $oauth_string , '' ) ;
+        #myprint "oauth_string_base64: $oauth_string_base64\n" ;
+
+        my $oauthdirect_str = $oauth_string_base64 ;
+        
+        if ( $imap->authenticate('XOAUTH2', sub { return $oauthdirect_str } ) )
+        {
+                return 1 ;
+        }
+        else
+        {
+                failure_login( $mysync, $acc, $acc->{ authmech }, $imap, $host, $user ) ;
+                return ;
+        }
+        return ;
+}
+
+
+
+
 sub check_capability
 {
 
@@ -6479,12 +7879,12 @@ sub check_capability
 
 sub set_ssl
 {
-        my ( $imap, $h ) = @_ ;
+        my ( $imap, $acc ) = @_ ;
         # SSL_version can be
         #    SSLv3 SSLv2 SSLv23 SSLv23:!SSLv2 (last one is the default in IO-Socket-SSL-1.953)
         #
 
-        my $sslargs_hash = $h->{sslargs} ;
+        my $sslargs_hash = $acc->{sslargs} ;
 
         my $sslargs_default = {
                 SSL_verify_mode => $SSL_VERIFY_POLICY,
@@ -6509,14 +7909,15 @@ sub set_ssl
 
 sub set_tls
 {
-        my ( $imap, $h ) = @_ ;
+        my ( $imap, $acc ) = @_ ;
 
-        my $sslargs_hash = $h->{sslargs} ;
+        my $sslargs_hash = $acc->{sslargs} ;
 
         my $sslargs_default = {
                 SSL_verify_mode => $SSL_VERIFY_POLICY,
-		SSL_cipher_list => 'DEFAULT:!DH',
+                SSL_cipher_list => 'DEFAULT:!DH',
         } ;
+        #myprint( Data::Dumper->Dump( [ $acc, $sslargs_hash, $sslargs_default ] )  ) ;
 
         # initiate with default values
         my %sslargs_mix = %{ $sslargs_default } ;
@@ -6535,53 +7936,6 @@ sub set_tls
 
 
 
-
-sub init_imap 
-{
-        my(
-           $host, $port, $user, $domain, $password,
-           $mydebugimap, $mytimeout, $fastio,
-           $ssl, $tls, $authmech, $authuser, $reconnectretry,
-           $proxyauth, $uid, $split, $Side, $h, $mysync ) = @_ ;
-
-        my ( $imap ) ;
-
-        $imap = Mail::IMAPClient->new() ;
-        
-        if ( $mysync->{ tee } ) 
-        {
-                # Well, it does not change anything, does it?
-                # It does when suppressing the hack with *STDERR 
-                $imap->Debug_fh( $mysync->{ tee } ) ;
-        }
-        
-        if ( $ssl ) { set_ssl( $imap, $h ) }
-        if ( $tls ) {  } # can not do set_tls() here because connect() will directly do a STARTTLS
-        $imap->Clear(1);
-        $imap->Server($host);
-        $imap->Port($port);
-        $imap->Fast_io($fastio);
-        $imap->Buffer($buffersize || $DEFAULT_BUFFER_SIZE);
-        $imap->Uid($uid);
-
-
-        $imap->Peek(1);
-        $imap->Debug($mydebugimap);
-	if ( $mysync->{ showpasswords } ) {
-		$imap->Showcredentials( 1 ) ;
-	}
-        defined  $mytimeout  and $imap->Timeout( $mytimeout ) ;
-
-        $imap->Reconnectretry( $reconnectretry ) if ( $reconnectretry ) ;
-	$imap->{IMAPSYNC_RECONNECT_COUNT} = 0 ;
-        $imap->Ignoresizeerrors( $allowsizemismatch ) ;
-        $split and $imap->Maxcommandlength( $SPLIT_FACTOR * $split ) ;
-
-
-        return( $imap ) ;
-
-}
-
 sub plainauth
 {
         my $code = shift;
@@ -6714,80 +8068,6 @@ sub xoauth2
 
 
 
-# xoauth() thanks to Eduardo Bortoluzzi Junior
-sub xoauth
-{
-        require URI::Escape  ;
-        require Data::Uniqid ;
-
-        my $code = shift;
-        my $imap = shift;
-
-        # The base information needed to construct the OAUTH authentication
-        my $method = 'GET' ;
-        my $url = mysprintf( 'https://mail.google.com/mail/b/%s/imap/', $imap->User ) ;
-        my $urlparm = mysprintf( 'xoauth_requestor_id=%s', URI::Escape::uri_escape( $imap->User ) ) ;
-
-        # For Google Apps, the consumer key is the primary domain
-        # TODO: create a command line argument to define the consumer key
-        my @user_parts = split /@/x, $imap->User ;
-        $sync->{ debug } and myprint( "XOAUTH: consumer key: $user_parts[1]\n" ) ;
-
-        # All the parameters needed to be signed on the XOAUTH
-        my %hash = ();
-        $hash { 'xoauth_requestor_id' } = URI::Escape::uri_escape($imap->User);
-        $hash { 'oauth_consumer_key' } = $user_parts[1];
-        $hash { 'oauth_nonce' } = md5_hex(Data::Uniqid::uniqid(rand(), 1==1));
-        $hash { 'oauth_signature_method' } = 'HMAC-SHA1';
-        $hash { 'oauth_timestamp' } = time ;
-        $hash { 'oauth_version' } = '1.0';
-
-        # Base will hold the string to be signed
-        my $base = "$method&" . URI::Escape::uri_escape( $url ) . q{&} ;
-
-        # The parameters must be in dictionary order before signing
-        my $baseparms = q{} ;
-        foreach my $key ( sort keys %hash ) {
-                if ( length( $baseparms ) > 0 ) {
-                        $baseparms .= q{&} ;
-                }
-
-                $baseparms .= "$key=$hash{$key}" ;
-        }
-
-        $base .= URI::Escape::uri_escape($baseparms);
-        $sync->{ debug } and myprint( "XOAUTH: base request to sign: $base\n" ) ;
-        # Sign it with the consumer secret, informed on the command line (password)
-        my $digest = hmac_sha1( $base, URI::Escape::uri_escape( $imap->Password ) . q{&} ) ;
-
-        # The parameters signed become a parameter and...
-        $hash { 'oauth_signature' } = URI::Escape::uri_escape( substr encode_base64( $digest ), 0, $MINUS_ONE ) ;
-
-        # ... we don't need the requestor_id anymore.
-        delete $hash{'xoauth_requestor_id'} ;
-
-        # Create the final authentication string
-        my $string = $method . q{ } . $url . q{?} . $urlparm .q{ } ;
-
-        # All the parameters must be sorted
-        $baseparms = q{};
-        foreach my $key (sort keys %hash) {
-                if(length($baseparms)>0) {
-                        $baseparms .= q{,} ;
-                }
-
-                $baseparms .= "$key=\"$hash{$key}\"";
-        }
-
-        $string .= $baseparms;
-
-        $sync->{ debug } and myprint( "XOAUTH: authentication string: $string\n" ) ;
-
-       # It must be base64 encoded
-        return encode_base64("$string", q{});
-}
-
-
 sub xmasterauth
 {
         # This is Kerio auth admin
@@ -6839,29 +8119,6 @@ sub xmasterauth
 }
 
 
-sub tests_do_valid_directory
-{
-	note( 'Entering tests_do_valid_directory()' ) ;
-
-        Readonly my $NB_UNIX_tests_do_valid_directory => 2 ;
-        SKIP: {
-                skip( 'Tests only for Unix', $NB_UNIX_tests_do_valid_directory ) if ( 'MSWin32' eq $OSNAME ) ;
-                ok( 1 == do_valid_directory( '.'), 'do_valid_directory: . good' ) ;
-                ok( 1 == do_valid_directory( './W/tmp/tests/valid/sub'), 'do_valid_directory: ./W/tmp/tests/valid/sub good' ) ;
-        }
-        Readonly my $NB_UNIX_tests_do_valid_directory_non_root => 2 ;
-        SKIP: {
-                skip( 'Tests only for Unix', $NB_UNIX_tests_do_valid_directory_non_root ) if ( 'MSWin32' eq $OSNAME or '0' eq $EFFECTIVE_USER_ID ) ;
-                diag( 'Error / not writable is on purpose' ) ;
-                ok( 0 == do_valid_directory( '/'), 'do_valid_directory: / bad' ) ;
-                diag( 'Error permission denied on /noway is on purpose' ) ;
-                ok( 0 == do_valid_directory( '/noway'), 'do_valid_directory: /noway bad' ) ;
-        }
-
-
-	note( 'Leaving  tests_do_valid_directory()' ) ;
-        return ;
-}
 
 sub banner_imapsync
 {
@@ -6870,8 +8127,8 @@ sub banner_imapsync
 
         my $banner_imapsync = join q{},
                 q{$RCSfile: imapsync,v $ },
-                q{$Revision: 1.977 $ },
-                q{$Date: 2019/12/23 20:18:02 $ },
+                q{$Revision: 2.140 $ },
+                q{$Date: 2021/07/05 20:14:18 $ },
                 "\n",
                 "Command line used, run by $EXECUTABLE_NAME:\n",
                 "$PROGRAM_NAME ", command_line_nopassword( $mysync, @argv ), "\n" ;
@@ -6879,6 +8136,29 @@ sub banner_imapsync
         return( $banner_imapsync ) ;
 }
 
+sub tests_do_valid_directory
+{
+        note( 'Entering tests_do_valid_directory()' ) ;
+
+        is( 1, do_valid_directory( '.'), 'do_valid_directory: . good' ) ;
+        is( 1, do_valid_directory( './W/tmp/tests/valid/sub'), 'do_valid_directory: ./W/tmp/tests/valid/sub good' ) ;
+
+        Readonly my $NB_UNIX_tests_do_valid_directory_non_root => 2 ;
+        diag( "OSNAME=$OSNAME EFFECTIVE_USER_ID=$EFFECTIVE_USER_ID" ) ;
+
+        SKIP: {
+                skip( 'Tests only for non roor user', $NB_UNIX_tests_do_valid_directory_non_root ) if ( '0' eq $EFFECTIVE_USER_ID ) ;
+                diag( 'The "Error / is not writable" is on purpose' ) ;
+                ok( 0 == do_valid_directory( '/'), 'do_valid_directory: / bad' ) ;
+                diag( 'The "Error permission denied" on /noway is on purpose' ) ;
+                ok( 0 == do_valid_directory( '/noway'), 'do_valid_directory: /noway bad' ) ;
+        }
+
+
+        note( 'Leaving  tests_do_valid_directory()' ) ;
+        return ;
+}
+
 sub do_valid_directory
 {
         my $dir = shift @ARG ;
@@ -6898,7 +8178,7 @@ sub do_valid_directory
                 return( 0 ) ;
         }
         # Trying to create it
-        myprint( "Creating directory $dir\n"  ) ;
+        myprint( "Creating directory $dir (current directory is " . getcwd(  ) . ")\n"  ) ;
         if ( ! eval { mkpath( $dir ) } ) {
                 myprint( "$EVAL_ERROR" ) if ( $EVAL_ERROR )  ;
         }
@@ -6974,13 +8254,20 @@ sub remove_pidfile_not_running
 {
         #
         my $pid_filename = shift @ARG ;
-
+        
+        #myprint( "In remove_pidfile_not_running $pid_filename\n" ) ;
         if ( ! $pid_filename )    { myprint( "No variable pid_filename\n" ) ; return } ;
-        if ( ! -e $pid_filename ) { myprint( "File $pid_filename does not exist\n" ) ; return } ;
+        if ( ! -e $pid_filename )
+        { 
+                myprint( "File $pid_filename does not exist\n" ) ;
+                return ;
+        }
+        #myprint( "Still In remove_pidfile_not_running $pid_filename\n" ) ;
+        
         if ( ! -f $pid_filename ) { myprint( "File $pid_filename is not a file\n" ) ; return } ;
 
         my $pid = firstline( $pid_filename ) ;
-        if ( ! match_a_pid_number( $pid ) ) { myprint( "pid $pid in $pid_filename is not a number\n" ) ; return } ;
+        if ( ! match_a_pid_number( $pid ) ) { myprint( "In remove_pidfile_not_running: pid $pid in $pid_filename is not a pid number\n" ) ; return } ;
         # can't kill myself => do nothing
         if ( ! kill 'ZERO', $PROCESS_ID  ) { myprint( "Can not kill ZERO myself $PROCESS_ID\n" ) ; return } ;
 
@@ -7061,6 +8348,8 @@ sub tail
         if ( ! $lock )    { return ; }
         if ( ! $tail )    { return ; }
 
+        if ( ! -e $pidfile ) { return ; }
+        
         my $pidtotail = firstline( $pidfile ) ;
         if ( ! $pidtotail ) { return ; }
 
@@ -7173,13 +8462,14 @@ sub write_pidfile
 {
         # returns undef if something is considered fatal
         # returns 1 otherwise
-
+        
+        #myprint( "In write_pidfile\n" ) ;
         if ( ! @ARG ) { return 1 ; }
 
         my $mysync = shift @ARG ;
 
-        # Do not write the pid file if this process goal is to abort the process designed by the pid file
-        if ( $mysync->{abort} ) { return 1 ; }
+        # Do not write the pid file if the current process goal is to abort the process designed by the pid file
+        if ( $mysync->{ abort } ) { return 1 ; }
 
         #
         my $pid_filename = $mysync->{ pidfile } ;
@@ -7384,6 +8674,9 @@ sub tests_jux_utf8
 
         is( '[&ZTZO9nux-] = [收件箱]', jux_utf8( '&ZTZO9nux-'), 'jux_utf8: => [&ZTZO9nux-] = [收件箱]' ) ;
         #
+        #
+        is( '[!Old Emails]', jux_utf8( '!Old Emails'), 'jux_utf8: !Old Emails => [!Old Emails]' ) ;
+        is( '[2006 Budget & Fcst]', jux_utf8( '2006 Budget & Fcst'), 'jux_utf8: 2006 Budget & Fcst => [2006 Budget & Fcst]' ) ;
         note( 'Leaving  tests_jux_utf8()' ) ;
         return ;
 }
@@ -7530,6 +8823,7 @@ sub create_folder
         if ( $create_folder_old ) {
                 return( create_folder_old( $mysync, $myimap2 , $h2_fold , $h1_fold ) ) ;
         }
+
         myprint( "Creating folder [$h2_fold] on host2\n"  ) ;
         if ( ( 'INBOX' eq uc  $h2_fold  )
          and ( $myimap2->exists( $h2_fold ) ) ) {
@@ -7577,6 +8871,7 @@ sub create_folder
                 if ( ! $mysync->{ justfolders } ) {
                         myprint( "Since --dry mode is on and folder [$h2_fold] on host2 does not exist yet, syncing messages will not be simulated.\n"
                         . "To simulate message syncing, use --justfolders without --dry to first create the missing folders then rerun the --dry sync.\n" ) ;
+                        # The messages that could be transferred are counted and the number is given at the end.
                 }
                 return( 0 ) ;
         }
@@ -7639,7 +8934,7 @@ sub sort_requested_folders
 {
         my @requested_folders_sorted = () ;
 
-        #myprint "folderfirst: @folderfirst\n" ;
+        $sync->{ debug } and myprint "folderfirst: @folderfirst\n" ;
         my @folderfirst_requested = remove_from_requested_folders( @folderfirst ) ;
         #myprint "folderfirst_requested: @folderfirst_requested\n" ;
 
@@ -7648,7 +8943,7 @@ sub sort_requested_folders
         my @middle = sort keys %requested_folder ;
 
         @requested_folders_sorted = ( @folderfirst_requested, @middle, @folderlast_requested ) ;
-        #myprint "requested_folders_sorted: @requested_folders_sorted\n" ;
+        $sync->{ debug } and myprint "requested_folders_sorted: @requested_folders_sorted\n" ;
         add_to_requested_folders( @requested_folders_sorted ) ;
 
         return( @requested_folders_sorted ) ;
@@ -7707,7 +9002,7 @@ sub tests_remove_from_requested_folders
         is_deeply( [ 'F1', 'F2' ], [ remove_from_requested_folders( 'F1', 'F2' ) ], 'remove_from_requested_folders: remove F1 F2 among F1 F2 F3 => F1 F2' ) ;
         is_deeply( { 'F3' => 1 }, { %requested_folder }, 'remove_from_requested_folders: remove F1 F2 among F1 F2 F3 => %requested_folder F3' ) ;
 
-
+        undef %requested_folder ;
 
         note( 'Leaving  tests_remove_from_requested_folders()' ) ;
         return ;
@@ -7784,13 +9079,13 @@ sub tests_compare_lists
         ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
 
 
-        ok( 0 == compare_lists([1],  1 )          , 'compare_lists, [1] =  1 ') ;
-        ok( 0 == compare_lists( 1 , [1])          , 'compare_lists,  1  = [1]') ;
+        ok( 0 == compare_lists( [1],  1 )          , 'compare_lists, [1] =  1 ') ;
+        ok( 0 == compare_lists( 1 , [1] )          , 'compare_lists,  1  = [1]') ;
         ok( 0 == compare_lists( 1 ,  1 )          , 'compare_lists,  1  =  1 ') ;
-        ok($MINUS_ONE == compare_lists( 0 ,  1 )          , 'compare_lists,  0  <  1 ') ;
-        ok($MINUS_ONE == compare_lists($MINUS_ONE ,  0 )          , 'compare_lists, -1  <  0 ') ;
-        ok($MINUS_ONE == compare_lists( 1 ,  2 )          , 'compare_lists,  1  <  2 ') ;
-        ok(+1 == compare_lists( 2 ,  1 )          , 'compare_lists,  2  >  1 ') ;
+        ok( $MINUS_ONE == compare_lists( 0 ,  1 )          , 'compare_lists,  0  <  1 ') ;
+        ok( $MINUS_ONE == compare_lists( $MINUS_ONE ,  0 )          , 'compare_lists, -1  <  0 ') ;
+        ok( $MINUS_ONE == compare_lists( 1 ,  2 )          , 'compare_lists,  1  <  2 ') ;
+        ok( +1 == compare_lists( 2 ,  1 )          , 'compare_lists,  2  >  1 ') ;
 
 
         ok( 0 == compare_lists([1,2], [1,2])   , 'compare_lists,  [1,2] = [1,2]' ) ;
@@ -8015,6 +9310,7 @@ sub folders_list_to_help
         return( $listing ) ;
 }
 
+# Globals are $sync @h1_folders_all @h2_folders_all $prefix1 $prefix2
 sub private_folders_separators_and_prefixes
 {
 # what are the private folders separators and prefixes for each server ?
@@ -8121,8 +9417,32 @@ sub sanitize_subfolder
         }
 }
 
+sub tests_sanitize_host
+{
+        note( 'Entering tests_sanitize_host()' ) ;
+
+        is( undef, sanitize_host(  ),  'sanitize_host: no args => undef' ) ;
+        is( '', sanitize_host( '' ),  'sanitize_host: empty => empty' ) ;
+        is( 'imap.example.org', sanitize_host( 'imap.example.org' ),         'sanitize_host: imap.example.org => imap.example.org' ) ;
+        is( 'imap.example.org', sanitize_host( ' imap.example.org' ),        'sanitize_host: imap.example.org 1 => imap.example.org' ) ;
+        is( 'imap.example.org', sanitize_host( 'imap.example.org ' ),        'sanitize_host: imap.example.org 2 => imap.example.org' ) ;
+        is( 'imap.example.org', sanitize_host( 'imap.exam  ple.org' ),       'sanitize_host: imap.example.org 3 => imap.example.org' ) ;
+        is( 'imap.example.org', sanitize_host( '  imap.exam  ple.org   ' ),  'sanitize_host: imap.example.org 4 => imap.example.org' ) ;
+        is( 'imap.example.org', sanitize_host( 'imap.exa/mple.org/' ),        'sanitize_host: imap.example.org/  => imap.example.org' ) ;
+
+        note( 'Leaving  tests_sanitize_host()' ) ;
+        return ;
+}
 
 
+sub sanitize_host
+{
+        my $host = shift ;
+        if ( ! defined $host ) { return ; }
+
+        $host =~ tr{ /}{}d ;
+        return $host ;
+}
 
 
 sub tests_add_subfolder1_to_folderrec
@@ -8707,86 +10027,89 @@ sub timesince
 
 
 
-sub tests_flags_regex
+sub tests_regexflags
 {
-	note( 'Entering tests_flags_regex()' ) ;
+        note( 'Entering tests_regexflags()' ) ;
 
-        ok( q{} eq flags_regex(q{} ), 'flags_regex, null string q{}' ) ;
-        ok( q{\Seen NonJunk $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, nothing to do} ) ;
+        my $mysync = {} ; 
+        
+        ok( q{} eq regexflags( $mysync, q{} ), 'regexflags, null string q{}' ) ;
+        ok( q{\Seen NonJunk $Spam} eq regexflags( $mysync, q{\Seen NonJunk $Spam} ), q{regexflags, nothing to do} ) ;
 
-        @regexflag = ('I am BAD' ) ;
-        ok( not ( defined flags_regex( q{} ) ), 'flags_regex, bad regex' ) ;
+        @{ $mysync->{ regexflag } } = ('I am BAD' ) ;
+        ok( not ( defined regexflags( $mysync, q{} ) ), 'regexflags, bad regex' ) ;
 
-        @regexflag = ( 's/NonJunk//g' ) ;
-        ok( q{\Seen  $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove NonJunk: 's/NonJunk//g'} ) ;
-        @regexflag = ( q{s/\$Spam//g} ) ;
-        ok( q{\Seen NonJunk } eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove $Spam: 's/\$Spam//g'} ) ;
+        @{ $mysync->{ regexflag } } = ( 's/NonJunk//g' ) ;
+        ok( q{\Seen  $Spam} eq regexflags( $mysync, q{\Seen NonJunk $Spam} ), q{regexflags, remove NonJunk: 's/NonJunk//g'} ) ;
+        @{ $mysync->{ regexflag } } = ( q{s/\$Spam//g} ) ;
+        ok( q{\Seen NonJunk } eq regexflags( $mysync, q{\Seen NonJunk $Spam} ), q{regexflags, remove $Spam: 's/\$Spam//g'} ) ;
 
-        @regexflag = ( 's/\\\\Seen//g' ) ;
+        @{ $mysync->{ regexflag } } = ( 's/\\\\Seen//g' ) ;
 
-        ok( q{ NonJunk $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove \Seen: 's/\\\\\\\\Seen//g'} ) ;
+        ok( q{ NonJunk $Spam} eq regexflags( $mysync, q{\Seen NonJunk $Spam} ), q{regexflags, remove \Seen: 's/\\\\\\\\Seen//g'} ) ;
 
-        @regexflag = ( 's/(\s|^)[^\\\\]\w+//g' ) ;
-        ok( q{\Seen \Middle \End}   eq flags_regex( q{\Seen NonJunk \Middle $Spam \End} ), q{flags_regex: only \word among \Seen NonJunk \Middle $Spam \End} ) ;
-        ok( q{ \Seen \Middle \End1} eq flags_regex( q{Begin \Seen NonJunk \Middle $Spam \End1 End} ),
-                     q{flags_regex: only \word among Begin \Seen NonJunk \Middle $Spam \End1 End} ) ;
+        @{ $mysync->{ regexflag } } = ( 's/(\s|^)[^\\\\]\w+//g' ) ;
+        ok( q{\Seen \Middle \End}   eq regexflags( $mysync, q{\Seen NonJunk \Middle $Spam \End} ), q{regexflags: only \word among \Seen NonJunk \Middle $Spam \End} ) ;
+        ok( q{ \Seen \Middle \End1} eq regexflags( $mysync, q{Begin \Seen NonJunk \Middle $Spam \End1 End} ),
+                     q{regexflags: only \word among Begin \Seen NonJunk \Middle $Spam \End1 End} ) ;
 
-        @regexflag = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g} ) ;
-        ok( 'Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), 'Keep only regex' ) ;
+        @{ $mysync->{ regexflag } } = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g} ) ;
+        ok( 'Keep1 Keep2  ReB' eq regexflags( $mysync, 'ReA Keep1 REM Keep2 ReB' ), 'Keep only regex' ) ;
 
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'REM REM Keep1 Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 REM REM Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'REM Keep1 REM REM  Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 ' eq flags_regex( 'REM Keep1'), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'REM REM Keep1 Keep2' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'Keep1 REM REM Keep2' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'REM Keep1 REM REM  Keep2' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'Keep1 Keep2' ), 'Keep only regex' ) ;
+        ok( 'Keep1 ' eq regexflags( $mysync, 'REM Keep1' ), 'Keep only regex' ) ;
 
-        @regexflag = ( q{s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g} ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2 ReB'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2 REM REM  REM'), 'Keep only regex' ) ;
-        ok( 'Keep2 ' eq flags_regex('Keep2 REM REM  REM'), 'Keep only regex' ) ;
+        @{ $mysync->{ regexflag } } = ( q{s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g} ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'Keep1 Keep2 ReB' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'Keep1 Keep2 REM REM  REM' ), 'Keep only regex' ) ;
+        ok( 'Keep2 ' eq regexflags( $mysync, 'Keep2 REM REM  REM' ), 'Keep only regex' ) ;
 
 
-        @regexflag = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g},
+        @{ $mysync->{ regexflag } } = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g},
            's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'REM Keep1 REM Keep2 REM' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'Keep1 REM Keep2 REM' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'REM Keep1 Keep2 REM' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 ' eq regexflags( $mysync, 'REM Keep1 REM Keep2' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep2 Keep3 ' eq regexflags( $mysync, 'REM Keep1 REM Keep2 REM REM Keep3 REM' ), 'Keep only regex' ) ;
+        ok( 'Keep1 ' eq regexflags( $mysync, 'REM  REM Keep1 REM REM REM ' ), 'Keep only regex' ) ;
+        ok( 'Keep1 Keep3 ' eq regexflags( $mysync, 'RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 ' ), 'Keep only regex' ) ;
 
-        @regexflag = ( 's/(.*)/$1 jrdH8u/' ) ;
-        ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), q{Add jrdH8u 's/(.*)/\$1 jrdH8u/'} ) ;
-        @regexflag = ('s/jrdH8u *//');
-        ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), q{Remove jrdH8u s/jrdH8u *//} ) ;
+        @{ $mysync->{ regexflag } } = ( 's/(.*)/$1 jrdH8u/' ) ;
+        ok('REM  REM  REM REM REM jrdH8u' eq regexflags( $mysync, 'REM  REM  REM REM REM' ), q{Add jrdH8u 's/(.*)/\$1 jrdH8u/'} ) ;
+        @{ $mysync->{ regexflag } } = ('s/jrdH8u *//' );
+        ok('REM  REM  REM REM REM ' eq regexflags( $mysync, 'REM  REM  REM REM REM jrdH8u' ), q{Remove jrdH8u s/jrdH8u *//} ) ;
 
-        @regexflag = (
+        @{ $mysync->{ regexflag } } = (
         's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
         );
 
         ok( '\\Deleted \\Answered '
-        eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'),
+        eq regexflags( $mysync, 'Blabla \$Junk \\Deleted machin \\Answered truc' ),
         'Keep only regex: Exchange case (Phil)' ) ;
 
-        ok( q{} eq flags_regex( q{} ), 'Keep only regex: Exchange case, null string (Phil)' ) ;
+        ok( q{} eq regexflags( $mysync, q{} ), 'Keep only regex: Exchange case, null string (Phil)' ) ;
 
         ok( q{}
-        eq flags_regex('Blabla $Junk  machin  truc'),
+        eq regexflags( $mysync, 'Blabla $Junk  machin  truc' ),
         'Keep only regex: Exchange case, no accepted flags (Phil)' ) ;
 
         ok('\\Deleted \\Answered \\Draft \\Flagged '
-        eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '),
+        eq regexflags( $mysync, '\\Deleted    \\Answered  \\Draft \\Flagged ' ),
         'Keep only regex: Exchange case (Phil)' ) ;
 
-        @regexflag = ( 's/\\\\Flagged//g' ) ;
+        @{ $mysync->{ regexflag } } = ( 's/\\\\Flagged//g' ) ;
 
         is('\Deleted \Answered \Draft  ',
-        flags_regex('\\Deleted \\Answered \\Draft \\Flagged '),
-        'flags_regex: remove \Flagged 1' ) ;
+        regexflags( $mysync, '\\Deleted \\Answered \\Draft \\Flagged ' ),
+        'regexflags: remove \Flagged 1' ) ;
+
         is('\\Deleted  \\Answered \\Draft',
-        flags_regex('\\Deleted \\Flagged \\Answered \\Draft'),
-        'flags_regex: remove \Flagged 2' ) ;
+        regexflags( $mysync, '\\Deleted \\Flagged \\Answered \\Draft' ),
+        'regexflags: remove \Flagged 2' ) ;
 
         # I didn't understand why it gives \F
         # https://perldoc.perl.org/perlrebackslash.html
@@ -8795,49 +10118,136 @@ sub tests_flags_regex
 
         # \F Not available in old Perl so I comment the test
 
-        # @regexflag = ( 's/\\Flagged/X/g' ) ;
+        # @{ $mysync->{ regexflag } } = ( 's/\\Flagged/X/g' ) ;
         #is('\Deleted FX \Answered \FX \Draft \FX',
-        #flags_regex( '\Deleted Flagged \Answered \Flagged \Draft \Flagged' ),
-        # 'flags_regex: remove \Flagged 3 mistery...' ) ;
+        #regexflags( '\Deleted Flagged \Answered \Flagged \Draft \Flagged' ),
+        # 'regexflags: remove \Flagged 3 mistery...' ) ;
 
-	note( 'Leaving  tests_flags_regex()' ) ;
+        $mysync->{ regexflag } = [  ] ;
+        $mysync->{ filterbuggyflags } = 1 ;
+        filterbuggyflags( $mysync ) ;
+        
+        is( '\Deleted \Answered  \Draft  \Flagged',
+        regexflags( $mysync, '\\Deleted \\Answered \\RECEIPTCHECKED \\Draft \\Indexed \\Flagged' ),
+        'regexflags: remove famous /X 1' ) ;
+
+        is( '\\Deleted  \\Flagged \\Answered  \\Draft',
+        regexflags( $mysync, '\\Deleted \\RECEIPTCHECKED \\Flagged \\Answered \\Indexed \\Draft' ),
+        'regexflags: remove famous /X 2' ) ; 
+
+        is( '\ ', '\\ ',  'regexflags: \ is \\ ' ) ;
+        is( '\\ ', '\\ ', 'regexflags: \\ is \\ ' ) ;
+        is( '\\ \ ', '\ \\ ', 'regexflags: \\ \ is \ \\ ' ) ;
+        note( 'Leaving  tests_regexflags()' ) ;
         return ;
 }
 
-sub flags_regex
+sub regexflags
 {
-        my ( $h1_flags ) = @_ ;
-        foreach my $regexflag ( @regexflag ) {
-                my $h1_flags_orig = $h1_flags ;
-                $debugflags and myprint( "eval \$h1_flags =~ $regexflag\n"  ) ;
-                my $ret = eval "\$h1_flags =~ $regexflag ; 1 " ;
-                $debugflags and myprint( "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n"  ) ;
+        my $mysync = shift ;
+        my $flags = shift ;
+        
+        foreach my $regexflag ( @{ $mysync->{ regexflag } } )
+        {
+                my $flags_orig = $flags ;
+                $debugflags and myprint( "eval \$flags =~ $regexflag\n"  ) ;
+                my $ret = eval "\$flags =~ $regexflag ; 1 " ;
+                $debugflags and myprint( "regexflag $regexflag [$flags_orig] -> [$flags]\n"  ) ;
                 if( not ( defined $ret ) or $EVAL_ERROR ) {
                         myprint( "Error: eval regexflag '$regexflag': $EVAL_ERROR\n"  ) ;
                         return( undef ) ;
                 }
         }
-        return( $h1_flags ) ;
+        return( $flags ) ;
 }
 
+
+sub filterbuggyflags
+{
+        my $mysync = shift ;
+        if ( $mysync->{ filterbuggyflags } )
+        {
+                unshift @{ $mysync->{ regexflag } }, buggyflagsregex(  ) ;
+        }
+        return ;
+}
+
+
+sub tests_remove_doublequotes_if_any
+{
+        note( 'Entering tests_remove_doublequotes_if_any()' ) ;
+        # the number of tests is stupid here
+        is( undef, remove_doublequotes_if_any(  ),  'remove_doublequotes_if_any: no args => undef' ) ;
+        is( q{}, remove_doublequotes_if_any( q{} ),  'remove_doublequotes_if_any: empty string => empty string' ) ;
+        is( q{}, remove_doublequotes_if_any( q{""} ),  'remove_doublequotes_if_any: double-quotes => empty string' ) ;
+        is( q{}, remove_doublequotes_if_any( q{"""} ),  'remove_doublequotes_if_any: double-quotes => empty string' ) ;
+        is( q{}, remove_doublequotes_if_any( q{"""} ),  'remove_doublequotes_if_any: double-quotes => empty string' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{"toto"} ),   'remove_doublequotes_if_any: "toto"   => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{toto} ),     'remove_doublequotes_if_any: toto     => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{to"to} ),    'remove_doublequotes_if_any: to"to    => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{toto"} ),    'remove_doublequotes_if_any: toto"    => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{"toto} ),    'remove_doublequotes_if_any: "toto    => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{"to"to} ),   'remove_doublequotes_if_any: "to"to   => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{to"to"} ),   'remove_doublequotes_if_any: to"to"   => toto' ) ;
+
+        is( q{toto}, remove_doublequotes_if_any( q{to\"to} ),   'remove_doublequotes_if_any: to\"to   => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{toto\"} ),   'remove_doublequotes_if_any: toto\"   => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{\"toto} ),   'remove_doublequotes_if_any: \"toto   => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{\"to\"to} ), 'remove_doublequotes_if_any: \"to\"to => toto' ) ;
+        is( q{toto}, remove_doublequotes_if_any( q{to\"to\"} ), 'remove_doublequotes_if_any: to\"to"  => toto' ) ;
+
+
+        note( 'Leaving  tests_remove_doublequotes_if_any()' ) ;
+        return ;
+}
+
+
+
+sub remove_doublequotes_if_any
+{
+        my $string = shift ;
+
+        if ( ! defined $string ) { return ; }
+        $string =~ s/\\\"//g ;
+        $string =~ tr/"//d ;
+        return $string ;
+}
+
+
+# No globals here
 sub acls_sync
 {
-        my($h1_fold, $h2_fold) = @_ ;
-        if ( $syncacls ) {
-                my $h1_hash = $sync->{imap1}->getacl($h1_fold)
-                  or myprint( "Could not getacl for $h1_fold: $EVAL_ERROR\n" ) ;
-                my $h2_hash = $sync->{imap2}->getacl($h2_fold)
-                  or myprint( "Could not getacl for $h2_fold: $EVAL_ERROR\n" ) ;
+# https://tools.ietf.org/html/rfc4314
+# Standard Rights:
+# https://tools.ietf.org/html/rfc4314#section-2.1
+
+        my( $mysync, $h1_fold, $h2_fold ) = @_ ;
+        if ( $mysync->{ syncacls } ) {
+                my $h1_hash = $mysync->{imap1}->getacl($h1_fold)
+                  or myprint( "Host1: Could not getacl for $h1_fold: $EVAL_ERROR\n" ) ;
+                my $h2_hash = $mysync->{imap2}->getacl($h2_fold)
+                  or myprint( "Host2: Could not getacl for $h2_fold: $EVAL_ERROR\n" ) ;
+
                 my %users = map { ($_, 1) } ( keys  %{ $h1_hash} , keys %{ $h2_hash }  ) ;
                 foreach my $user (sort keys %users ) {
-                        my $acl = $h1_hash->{$user} || 'none' ;
-                        myprint( "acl $user: [$acl]\n" ) ;
-                        next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-                                 $h1_hash->{$user} eq $h2_hash->{$user});
-                        unless ($sync->{dry}) {
-                                myprint( "setting acl $h2_fold $user $acl\n" ) ;
-                                $sync->{imap2}->setacl($h2_fold, $user, $acl)
-                                  or myprint( "Could not set acl: $EVAL_ERROR\n" ) ;
+                        my $h1_acl = remove_doublequotes_if_any( $h1_hash->{$user} ) || '' ;
+                        my $h2_acl = remove_doublequotes_if_any( $h2_hash->{$user} ) || '' ;
+                        myprint( "Host1: user $user has acl [$h1_acl] on host1\n" ) ;
+                        myprint( "Host2: user $user has acl [$h2_acl] on host2\n" ) ;
+                        # removes surrounding double-quotes if any
+                        my $user_no_quotes = remove_doublequotes_if_any( $user ) ;
+
+                        if (       $h1_hash->{$user}
+                                && $h2_hash->{$user}
+                                && $h1_hash->{$user} eq $h2_hash->{$user} )
+                        {
+                                myprint( "Host2: user $user_no_quotes has already the same acl, no need to set it.\n" ) ;
+                                next ;
+                        }
+                        myprint( "Host2: setting acl for folder $h2_fold user $user_no_quotes acl $h1_acl $mysync->{dry_message}\n" ) ;
+                        unless ( $mysync->{dry} ) {
+                                $mysync->{imap2}->setacl( $h2_fold, $user_no_quotes, $h1_acl )
+                                  or myprint( "Could not set acl for user $user_no_quotes on host2: $EVAL_ERROR\n" ) ;
                         }
                 }
         }
@@ -8874,10 +10284,11 @@ sub permanentflags
                 if ( $line =~ m{\[PERMANENTFLAGS\s\(([^)]+?)\)\]}x ) {
                         ( $debugflags or $sync->{ debug } ) and myprint( "permanentflags: $line"  ) ;
                         my $permanentflags = $1 ;
-                        if ( $permanentflags =~ m{\\\*}x ) {
+                        if ( $permanentflags =~ m{\\\*}x )
+                        {
                                 $permanentflags = q{} ;
                         }
-                        return($permanentflags) ;
+                        return( $permanentflags ) ;
                 } ;
         }
         return( q{} ) ;
@@ -8913,19 +10324,6 @@ sub flags_filter
         return( $flags_out ) ;
 }
 
-sub flagscase
-{
-        my $flags = shift ;
-
-        my @flags = split /\s+/x, $flags ;
-        my %rfc_flags = map { $_ => 1 } split q{ }, '\Answered \Flagged \Deleted \Seen \Draft' ;
-        my @flags_out = map { exists $rfc_flags{ ucsecond( lc $_ ) } ? ucsecond( lc $_ ) : $_ } @flags ;
-
-        my $flags_out = join q{ }, @flags_out ;
-
-        return( $flags_out ) ;
-}
-
 sub tests_flagscase
 {
 	note( 'Entering tests_flagscase()' ) ;
@@ -8943,6 +10341,93 @@ sub tests_flagscase
         return ;
 }
 
+sub flagscase
+{
+        my $flags = shift ;
+
+        my @flags = split /\s+/x, $flags ;
+        my %rfc_flags = map { $_ => 1 } split q{ }, '\Answered \Flagged \Deleted \Seen \Draft' ;
+        my @flags_out = map { exists $rfc_flags{ ucsecond( lc $_ ) } ? ucsecond( lc $_ ) : $_ } @flags ;
+
+        my $flags_out = join q{ }, @flags_out ;
+
+        return( $flags_out ) ;
+}
+
+
+
+sub tests_flags_for_host2
+{
+        note( 'Entering tests_flags_for_host2()' ) ;
+
+        is( undef, flags_for_host2(  ),  'flags_for_host2: no args => undef' ) ;
+        
+        my $mysync ;
+        is( undef, flags_for_host2( $mysync ),  'flags_for_host2: undef => undef' ) ;
+        
+        $mysync = { } ;
+        is( undef, flags_for_host2( $mysync ),  'flags_for_host2: nothing => undef' ) ;
+        
+        is( q{}, flags_for_host2( $mysync, '' ),  'flags_for_host2: no flags => empty string' ) ;
+        
+        is( q{}, flags_for_host2( $mysync, '\Recent' ),  'flags_for_host2: \Recent => empty string' ) ;
+        
+        is( q{\Seen}, flags_for_host2( $mysync, '\Recent \Seen' ),  'flags_for_host2: \Recent \Seen => \Seen' ) ;
+       
+        is( q{\Deleted \Seen}, flags_for_host2( $mysync, '\Deleted \Recent \Seen' ),  'flags_for_host2: \Deleted \Recent \Seen => \Deleted \Seen' ) ;
+       
+        $mysync->{ flagscase } = 0 ;
+        is( q{\DELETED \Seen}, flags_for_host2( $mysync, '\DELETED \Seen' ),  'flags_for_host2: flagscase = 0 \DELETED \Seen => \DELETED \Seen' ) ;
+       
+        $mysync->{ flagscase } = 1 ;
+        is( q{\Deleted \Seen}, flags_for_host2( $mysync, '\DELETED \Seen' ),  'flags_for_host2: flagscase = 1 \DELETED \Seen => \Deleted \Seen' ) ;
+       
+        $mysync->{ filterflags } = 0 ;
+        is( q{\Seen \Blabla}, flags_for_host2( $mysync, '\Seen \Blabla', '\Seen \Junk' ),  'flags_for_host2: filterflags = 0 \Seen \Blabla among \Seen \Junk  => \Seen \Blabla' ) ;
+        
+        $mysync->{ filterflags } = 1 ;
+        is( q{\Seen}, flags_for_host2( $mysync, '\Seen \Blabla', '\Seen \Junk' ),  'flags_for_host2: filterflags = 1 \Seen \Blabla among \Seen \Junk  => \Seen' ) ;
+        
+        $mysync->{ filterflags } = 1 ;
+        is( q{\Seen \Blabla}, flags_for_host2( $mysync, '\Seen \Blabla', '' ),  'flags_for_host2: filterflags = 1 \Seen \Blabla among "" => \Seen \Blabla' ) ;
+        
+        
+        note( 'Leaving  tests_flags_for_host2()' ) ;
+        return ;
+}
+
+
+
+
+sub flags_for_host2
+{
+        my $mysync = shift ;
+        my $h1_flags = shift ;
+        my $permanentflags2 = shift ;
+        
+        if ( ! all_defined( $mysync, $h1_flags ) ) { return ; } ; 
+        
+        # RFC 2060: This flag can not be altered by any client
+        $h1_flags =~ s@\\Recent\s?@@xgi ;
+        
+        my $h1_flags_re ;
+        if ( $mysync->{ regexflag } and defined( $h1_flags_re = regexflags( $mysync, $h1_flags ) ) ) {
+                $h1_flags = $h1_flags_re ;
+        }
+        
+        if ( $mysync->{ flagscase } )
+        {
+                $h1_flags = flagscase( $h1_flags ) ;
+        }
+        
+        if ( $permanentflags2 and $mysync->{ filterflags } )
+        {
+                $h1_flags = flags_filter( $h1_flags, $permanentflags2 ) ;
+        }
+        
+        return( $h1_flags ) ;
+}
+
 
 
 sub ucsecond
@@ -9041,8 +10526,7 @@ sub select_msgs_by_fetch
 
 
         $debugdev and myprint( "Calling fetch_hash()\n"  ) ;
-        my $uidnext = $imap->uidnext( $folder ) || $uidnext_default ;
-        my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
+        my $fetch_hash_uids = $fetch_hash_set || "1:*" ;
         %fetch = %{$imap->fetch_hash( $fetch_hash_uids, 'INTERNALDATE' ) } ;
 
         @msgs_all = sort { $a <=> $b } keys  %fetch  ;
@@ -9108,6 +10592,10 @@ sub msgs_from_maxmin
         @min = @{ $min_ref } ;
 
         SWITCH: {
+                if ( not ( defined $minage or defined $maxage ) )
+                {
+                        return ;
+                }
                 unless( defined  $minage  ) { @msgs = @max ; last SWITCH } ;
                 unless( defined  $maxage  ) { @msgs = @min ; last SWITCH } ;
                 my ( %union, %inter ) ;
@@ -9125,23 +10613,38 @@ sub msgs_from_maxmin
 
 sub tests_msgs_from_maxmin
 {
-	note( 'Entering tests_msgs_from_maxmin()' ) ;
+        note( 'Entering tests_msgs_from_maxmin()' ) ;
+
 
         my @msgs ;
+
+        # no maxage nor minage
+        @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
+        is_deeply( [  ], \@msgs , 'msgs_from_maxmin: no maxage nor minage => empty result' ) ;
+
+        # maxage alone
         $maxage = $NUMBER_200 ;
         @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '1', '2' ], \@msgs ), 'msgs_from_maxmin: maxage++' ) ;
+        is_deeply( [ '1', '2' ], \@msgs , 'msgs_from_maxmin: maxage++' ) ;
+
+        # maxage > minage -> intersection
         $minage = $NUMBER_100 ;
         @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '2' ], \@msgs ), 'msgs_from_maxmin:  -maxage++minage-' ) ;
+        is_deeply( [ '2' ], \@msgs , 'msgs_from_maxmin:  -maxage++minage-' ) ;
+
+        # maxage < minage -> union
         $minage = $NUMBER_300 ;
         @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '1', '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++maxage-minage++' ) ;
+        is_deeply( [ '1', '2', '3' ], \@msgs, 'msgs_from_maxmin:  ++maxage-minage++' ) ;
+
+
+        # minage alone
         $maxage = undef ;
         @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++minage-' ) ;
+        is_deeply( [ '2', '3' ], \@msgs, 'msgs_from_maxmin:  ++minage-' ) ;
 
-	note( 'Leaving  tests_msgs_from_maxmin()' ) ;
+
+        note( 'Leaving  tests_msgs_from_maxmin()' ) ;
         return ;
 }
 
@@ -9249,6 +10752,13 @@ sub copy_message
         ( $mysync->{ debug } or $mysync->{dry} )
                 and myprint( "msg $h1_fold/$h1_msg copying to $h2_fold $mysync->{dry_message} " . eta( $mysync ) . "\n" ) ;
 
+        if ( $mysync->{dry1} )
+        {
+                $mysync->{ h1_nb_msg_processed } +=1 ;
+                $nb_msg_skipped_dry_mode += 1 ;
+                return ;
+        }
+
         my $h1_size  = $h1_fir_ref->{$h1_msg}->{'RFC822.SIZE'}  || 0 ;
         my $h1_flags = $h1_fir_ref->{$h1_msg}->{'FLAGS'}        || q{} ;
         my $h1_idate = $h1_fir_ref->{$h1_msg}->{'INTERNALDATE'} || q{} ;
@@ -9294,7 +10804,7 @@ sub copy_message
         ( $mysync->{ debug } or $debugflags ) and
         myprint( "Host1: flags init msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n"  ) ;
 
-        $h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
+        $h1_flags = flags_for_host2( $mysync, $h1_flags, $permanentflags2 ) ;
 
         ( $mysync->{ debug } or $debugflags ) and
         myprint( "Host1: flags filt msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n"  ) ;
@@ -9447,7 +10957,7 @@ sub message_for_host2
                 ${ $string_ref } = $header . "\r\n" . ${ $string_ref } ;
         }
 
-        if ( ( defined $mysync->{ truncmess } ) and is_an_integer( $mysync->{ truncmess } ) )
+        if ( ( defined $mysync->{ truncmess } ) and is_integer( $mysync->{ truncmess } ) )
         {
                 ${ $string_ref } = truncmess( ${ $string_ref }, $mysync->{ truncmess } ) ;
         }
@@ -10094,20 +11604,6 @@ sub date_for_host2
         return( $h1_date ) ;
 }
 
-sub flags_for_host2
-{
-        my( $h1_flags, $permanentflags2 ) = @_ ;
-        # RFC 2060: This flag can not be altered by any client
-        $h1_flags =~ s@\\Recent\s?@@xgi ;
-        my $h1_flags_re ;
-        if ( @regexflag and defined( $h1_flags_re = flags_regex( $h1_flags ) ) ) {
-                $h1_flags = $h1_flags_re ;
-        }
-        $h1_flags = flagscase( $h1_flags ) if $flagscase ;
-        $h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-
-        return( $h1_flags ) ;
-}
 
 sub subject
 {
@@ -10125,12 +11621,14 @@ sub subject
 
 sub tests_subject
 {
-	note( 'Entering tests_subject()' ) ;
+        note( 'Entering tests_subject()' ) ;
 
         ok( q{} eq subject( q{} ), 'subject: null') ;
-        ok( 'toto le hero' eq subject( 'Subject: toto le hero' ), 'subject: toto le hero') ;
-        ok( 'toto le hero' eq subject( 'Subject:toto le hero' ), 'subject: toto le hero blank') ;
-        ok( 'toto le hero' eq subject( "Subject:toto le hero\r\n" ), 'subject: toto le hero\r\n') ;
+        is( '', subject( 'Subject:' ), 'Subject:') ;
+        is( '', subject( "Subject:\r\n" ), 'Subject:\r\n') ;
+        ok( 'toto le hero' eq subject( 'Subject: toto le hero' ), 'Subject: toto le hero') ;
+        ok( 'toto le hero' eq subject( 'Subject:toto le hero' ), 'Subject:toto le hero') ;
+        ok( 'toto le hero' eq subject( "Subject:toto le hero\r\n" ), 'Subject: toto le hero\r\n') ;
 
         my $MESS ;
         $MESS = <<'EOF';
@@ -10169,13 +11667,24 @@ Subject: toto le hero
 EOF
         ok( q{} eq subject( $MESS ), 'subject: null but body could') ;
 
+
+        $MESS = <<'EOF';
+From: lalala
+Subject:
+Date: zzzzzz
+
+Subject: toto le hero
+EOF
+        is( '', subject( $MESS ), 'Subject:') ;
+
+
+
 	note( 'Leaving  tests_subject()' ) ;
         return ;
 }
 
 
 # GlobVar
-# $max_msg_size_in_bytes
 # $h2_uidguess
 # ...
 #
@@ -10187,10 +11696,9 @@ sub append_message_on_host2
 
         my $new_id ;
         if ( ! $mysync->{dry} ) {
-                $max_msg_size_in_bytes = max( $string_len, $max_msg_size_in_bytes ) ;
                 $new_id = $mysync->{imap2}->append_string( $h2_fold, ${ $string_ref }, $h1_flags, $h1_date ) ;
                 myprint( debugmemory( $mysync, " at A2" ) ) ;
-                if ( ! defined $new_id){
+                if ( ! defined $new_id ){
                         my $subject = subject( ${ $string_ref } ) ;
                         my $error_imap = $mysync->{imap2}->LastError || q{} ;
                         my $error = "- msg $h1_fold/$h1_msg {$string_len} could not append ( Subject:[$subject], Date:[$h1_date], Size:[$h1_size], Flags:[$h1_flags] ) to folder $h2_fold: $error_imap\n" ;
@@ -10210,6 +11718,7 @@ sub append_message_on_host2
                         $mysync->{ total_bytes_transferred } += $string_len ;
                         $mysync->{ nb_msg_transferred } += 1 ;
                         $mysync->{ h1_nb_msg_processed } +=1 ;
+                        $mysync->{ biggest_message_transferred } = max( $string_len, $mysync->{ biggest_message_transferred } ) ;
 
                         my $time_spent = timesince( $mysync->{begin_transfer_time} ) ;
                         my $rate = bytes_display_string( $mysync->{total_bytes_transferred} / $time_spent ) ;
@@ -10279,15 +11788,18 @@ sub sleep_if_needed
 {
         my( $mysync ) = shift ;
 
-	if ( ! $mysync ) {
-		return ;
-	}
-	# No need to go further if there is no limit set
-	if (  not ( $mysync->{maxmessagespersecond}
-		or $mysync->{maxbytespersecond} )
-	) {
-		return ;
-	}
+        if ( ! $mysync ) {
+                return ;
+        }
+        # No need to go further if there is no limit set
+        if (
+                not (
+                        $mysync->{maxmessagespersecond}
+                        or $mysync->{maxbytespersecond}
+                )
+        ) {
+                return ;
+        }
 
 	$mysync->{maxsleep} = defined $mysync->{maxsleep} ? $mysync->{maxsleep} : $MAX_SLEEP ;
         # Must be positive
@@ -10360,7 +11872,7 @@ sub sleep_max_bytes
 
 sub tests_sleep_max_bytes
 {
-	note( 'Entering tests_sleep_max_bytes()' ) ;
+        note( 'Entering tests_sleep_max_bytes()' ) ;
 
         ok( 0 == sleep_max_bytes( 4000, 2, undef ),  'sleep_max_bytes: maxbytespersecond == undef => sleep 0' ) ;
         ok( 0 == sleep_max_bytes( 4000, 2, 0 ),  'sleep_max_bytes: maxbytespersecond = 0 => sleep 0') ;
@@ -10371,7 +11883,7 @@ sub tests_sleep_max_bytes
         ok( 0 == sleep_max_bytes( 2000, 2, 2000 ),  'sleep_max_bytes: maxbytespersecond = 2k max not reached => sleep 0') ;
         ok( 0 == sleep_max_bytes( -2000, 2, 1000 ), 'sleep_max_bytes: maxbytespersecond = 1k max not reached => sleep 0') ;
 
-	note( 'Leaving  tests_sleep_max_bytes()' ) ;
+        note( 'Leaving  tests_sleep_max_bytes()' ) ;
         return ;
 }
 
@@ -10383,7 +11895,8 @@ sub delete_message_on_host1
         if ( ! @h1_msg ) { return ; }
         delete_messages_on_any(
                 $mysync,
-                $mysync->{imap1},
+                $mysync->{ acc1 },
+                $mysync->{ imap1 },
                 "Host1: $h1_fold",
                 $expunge,
                 $split1,
@@ -10419,18 +11932,22 @@ sub tests_operators_and_exclam_precedence
         return ;
 }
 
+
 sub delete_messages_on_any
 {
-        my( $mysync, $imap, $hostX_folder, $expunge, $split, @messages  ) = @_ ;
+        # $acc is not used yet,
+        #
+        my( $mysync, $acc, $imap, $hostX_folder, $expunge, $split, @messages  ) = @_ ;
         my $expunge_message = q{} ;
 
         my $dry_message = $mysync->{ dry_message } ;
         $expunge_message = 'and expunged' if ( $expunge ) ;
         # "Host1: msg "
 
-        $imap->Debug( 1 ) ;
+        # $imap->Debug( 1 ) ;
 
-        while ( my @messages_part = splice @messages, 0, $split )
+        my @messages_to_mark_deleted = @messages ;
+        while ( my @messages_part = splice @messages_to_mark_deleted, 0, $split )
         {
                 foreach my $message ( @messages_part )
                 {
@@ -10442,7 +11959,7 @@ sub delete_messages_on_any
                         if ( defined $nb_deleted )
                         {
                                 # $nb_deleted is not accurate
-                                $mysync->{ h1_nb_msg_deleted } += scalar @messages_part ;
+                                $acc->{ nb_msg_deleted } += scalar @messages_part ;
                         }
                         else
                         {
@@ -10458,7 +11975,7 @@ sub delete_messages_on_any
                 uidexpunge_or_expunge( $mysync, $imap, @messages ) ;
         }
 
-        $imap->Debug( 0 ) ;
+        #$imap->Debug( 0 ) ;
 
         return ;
 }
@@ -10547,13 +12064,13 @@ sub tests_eta
         $mysync->{ begin_transfer_time } = time ; # Now
         $mysync->{ h1_nb_msg_processed } = 0 ;
 
-        is( "ETA: " . localtime( time ) . "  0 s  0/0 msgs left",
+        is( "ETA: " . localtimez( time ) . "  0 s  0/0 msgs left",
                 eta( $mysync ),
                 'eta: no args => ETA: "Now"  0 s  0/0 msgs left' ) ;
 
         $mysync->{ h1_nb_msg_processed } = 1 ;
         $mysync->{ h1_nb_msg_start }     = 2 ;
-        is( "ETA: " . localtime( time ) . "  0 s  1/2 msgs left",
+        is( "ETA: " . localtimez( time ) . "  0 s  1/2 msgs left",
                 eta( $mysync ),
                 'eta: 1, 1, 2 => ETA: "Now"  0 s  1/2 msgs left' ) ;
 
@@ -10584,7 +12101,7 @@ sub eta
         my $time_remaining = time_remaining( $time_spent, $h1_nb_processed, $h1_nb_msg_start, $nb_msg_transferred ) ;
         $mysync->{ debug } and myprint( "time_spent: $time_spent time_remaining: $time_remaining\n" ) ;
         my $nb_msg_remaining = $h1_nb_msg_start - $h1_nb_processed ;
-        my $eta_date = localtime( time + $time_remaining ) ;
+        my $eta_date = localtimez( time + $time_remaining ) ;
         return( mysprintf( 'ETA: %s  %1.0f s  %s/%s msgs left',
                 $eta_date, $time_remaining, $nb_msg_remaining, $h1_nb_msg_start ) ) ;
 }
@@ -11171,6 +12688,7 @@ sub touch
 }
 
 
+
 sub tests_tmpdir_has_colon_bug
 {
 	note( 'Entering tests_tmpdir_has_colon_bug()' ) ;
@@ -11237,7 +12755,7 @@ sub tmpdir_fix_colon_bug
                         myprint( "Old cache directory $cachedir_old still exists\n"  ) ;
                         $err++ ;
                 }else{
-                        myprint( "Old cache directory $cachedir_old successfuly moved\n"  ) ;
+                        myprint( "Old cache directory $cachedir_old successfully moved\n"  ) ;
                 }
         }
         return( not $err ) ;
@@ -11280,31 +12798,33 @@ sub cache_folder
 
 sub tests_filter_forbidden_characters
 {
-	note( 'Entering tests_filter_forbidden_characters()' ) ;
+        note( 'Entering tests_filter_forbidden_characters()' ) ;
 
-        ok( 'a_b' eq filter_forbidden_characters( 'a_b' ), 'filter_forbidden_characters: a_b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a*b' ), 'filter_forbidden_characters: a*b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a|b' ), 'filter_forbidden_characters: a|b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a?b' ), 'filter_forbidden_characters: a?b -> a_b' ) ;
-        ok( 'a_______b' eq filter_forbidden_characters( 'a*|?:"<>b' ), 'filter_forbidden_characters: a*|?:"<>b -> a_______b' ) ;
+        is( undef , filter_forbidden_characters(  ), 'filter_forbidden_characters: no args -> undef' ) ;
 
-        SKIP: {
-                skip( 'Not on MSWin32', 1 ) if ( 'MSWin32' eq $OSNAME ) ;
-                ok( ( 'a b ' eq filter_forbidden_characters( 'a b ' ) ), 'filter_forbidden_characters: "a b " -> "a b "' ) ;
-        } ;
+        is( 'a_b' , filter_forbidden_characters( 'a_b' ), 'filter_forbidden_characters: a_b -> a_b' ) ;
+        is( 'a_b' , filter_forbidden_characters( 'a*b' ), 'filter_forbidden_characters: a*b -> a_b' ) ;
+        is( 'a_b' , filter_forbidden_characters( 'a|b' ), 'filter_forbidden_characters: a|b -> a_b' ) ;
+        is( 'a_b' , filter_forbidden_characters( 'a?b' ), 'filter_forbidden_characters: a?b -> a_b' ) ;
+        is( 'a________b', filter_forbidden_characters( q{a*|?:"<>'b} ), q{filter_forbidden_characters: a*|?:"<>'b -> a________b} ) ;
 
-        SKIP: {
-                skip( 'Only on MSWin32', 2 ) if ( 'MSWin32' ne $OSNAME ) ;
-                ok( ( ' a b_' eq filter_forbidden_characters( ' a b ' ) ), 'filter_forbidden_characters: "a b " -> "a b_"' ) ;
-                ok( ( ' a b_/ c d_' eq filter_forbidden_characters( ' a b / c d ' ) ), 'filter_forbidden_characters: " a b / c d " -> "a b_/ c d_"' ) ;
-        } ;
 
-        ok( 'a_b' eq filter_forbidden_characters( "a\tb" ), 'filter_forbidden_characters: a\tb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\rb" ), 'filter_forbidden_characters: a\rb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\nb" ), 'filter_forbidden_characters: a\nb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\\b" ), 'filter_forbidden_characters: a\b -> a_b' ) ;
+        is( 'a_b_' , filter_forbidden_characters( 'a b ' ), 'filter_forbidden_characters: "a b " -> "a_b_"' ) ;
 
-	note( 'Leaving  tests_filter_forbidden_characters()' ) ;
+
+        is( 'a_b' , filter_forbidden_characters( "a\tb" ), 'filter_forbidden_characters: a\tb -> a_b' ) ;
+        is( "a_b" , filter_forbidden_characters( "a\rb" ), 'filter_forbidden_characters: a\rb -> a_b' ) ;
+        is( "a_b" , filter_forbidden_characters( "a\nb" ), 'filter_forbidden_characters: a\nb -> a_b' ) ;
+        is( "a_b" , filter_forbidden_characters( "a\\b" ), 'filter_forbidden_characters: a\b -> a_b' ) ;
+
+        is( 'a-b' , filter_forbidden_characters( 'a-b' ), 'filter_forbidden_characters: a-b -> a-b' ) ;
+        is( 'a__-__-__-__-__b' , filter_forbidden_characters( 'aé-è-à-ç-Öb' ), 'filter_forbidden_characters: aé-è-à-ç-Öb -> a__-__-__-__-__b' ) ;
+
+        is( 'abcdABCDwxyzWXYZ012789' , filter_forbidden_characters( 'abcdABCDwxyzWXYZ012789' ),
+                'filter_forbidden_characters: abcdABCDwxyzWXYZ012789 -> abcdABCDwxyzWXYZ012789' ) ;
+
+
+        note( 'Leaving  tests_filter_forbidden_characters()' ) ;
         return ;
 }
 
@@ -11312,13 +12832,12 @@ sub filter_forbidden_characters
 {
         my $string = shift ;
 
-	if ( ! defined $string ) { return ; }
+        if ( ! defined $string ) { return ; }
+
+        $string =~ s{[\Q*|?:"<>' \E\t\r\n\\]}{_}xg ;
+        # replace all non-ascii and control characters by _
+        $string =~ s/[[:^ascii:][:cntrl:]]/_/xg ;
 
-        if ( 'MSWin32' eq $OSNAME ) {
-                # Move trailing whitespace to _ " a b /c d " -> " a b_/c d_"
-                $string =~ s{\ (/|$)}{_$1}xg ;
-        }
-        $string =~ s{[\Q*|?:"<>\E\t\r\n\\]}{_}xg ;
         #myprint( "[$string]\n"  ) ;
         return( $string ) ;
 }
@@ -11351,58 +12870,58 @@ sub convert_sep_to_slash
 
 sub tests_regexmess
 {
-	note( 'Entering tests_regexmess()' ) ;
+        note( 'Entering tests_regexmess()' ) ;
 
-        ok( 'blabla' eq regexmess( 'blabla' ), 'regexmess, no regexmess, nothing to do' ) ;
+        ok( 'blabla' eq regexmess( 'blabla' ), 'regexmess: no regexmess, nothing to do' ) ;
 
         @regexmess = ( 'lalala' ) ;
-        ok( not( defined regexmess( 'popopo' ) ), 'regexmess, bad regex lalala' ) ;
+        ok( not( defined regexmess( 'popopo' ) ), 'regexmess: bad regex lalala' ) ;
 
         @regexmess = ( 's/p/Z/g' ) ;
-        ok( 'ZoZoZo' eq regexmess( 'popopo' ), 'regexmess, s/p/Z/g' ) ;
+        ok( 'ZoZoZo' eq regexmess( 'popopo' ), 'regexmess: s/p/Z/g' ) ;
 
         @regexmess = ( 's{c}{C}gxms' ) ;
         ok("H1: abC\nH2: Cde\n\nBody abC"
                    eq regexmess( "H1: abc\nH2: cde\n\nBody abc"),
-           'regexmess, c->C');
+           'regexmess: c->C');
 
         @regexmess = ( 's{\AFrom\ }{From:}gxms' ) ;
         ok(          q{}
         eq regexmess(q{}),
-        'From mbox 1 add colon blank');
+        'regexmess: From mbox 1 add colon blank');
 
         ok(          'From:<tartanpion@machin.truc>'
         eq regexmess('From <tartanpion@machin.truc>'),
-        'From mbox 2 add colo');
+        'regexmess: From mbox 2 add colo');
 
         ok(          "\n" . 'From <tartanpion@machin.truc>'
         eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 3 add colo') ;
+        'regexmess: From mbox 3 add colo') ;
 
         ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>'
         eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 4 add colo') ;
+        'regexmess: From mbox 4 add colo') ;
 
         @regexmess = ( 's{\AFrom\ [^\n]*(\n)?}{}gxms' ) ;
         ok(          q{}
         eq regexmess(q{}),
-        'From mbox 1 remove, blank');
+        'regexmess: From mbox 1 remove, blank');
 
         ok(          q{}
         eq regexmess('From <tartanpion@machin.truc>'),
-        'From mbox 2 remove');
+        'regexmess: From mbox 2 remove');
 
         ok(          "\n" . 'From <tartanpion@machin.truc>'
         eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 3 remove');
+        'regexmess: From mbox 3 remove');
 
         #myprint( "[", regexmess("From zzz\n" . 'From <tartanpion@machin.truc>'), "]" ) ;
         ok(          q{}            . 'From <tartanpion@machin.truc>'
         eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 4 remove');
+        'regexmess: From mbox 4 remove');
 
 
-        ok(
+        is(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11410,7 +12929,7 @@ From:<tartanpion@machin.truc>
 Hello,
 Bye.
 EOM
-        eq regexmess(
+        , regexmess(
 <<'EOM'
 From  zzz
 Date: Sat, 10 Jul 2010 05:34:45 -0700
@@ -11419,7 +12938,7 @@ From:<tartanpion@machin.truc>
 Hello,
 Bye.
 EOM
-), 'From mbox 5 remove');
+        ), 'regexmess: From mbox 5 remove');
 
 
 @regexmess = ( 's{\A((?:[^\n]+\n)+|)^Disposition-Notification-To:[^\n]*\n(\r?\n|.*\n\r?\n)}{$1$2}xms' ) ; # SUPER SUPER BEST!
@@ -11460,7 +12979,7 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Hello,
 Bye.
 EOM
-),
+        ),
         'regexmess: 2 Delete header Disposition-Notification-To:');
 
         ok(
@@ -11480,7 +12999,7 @@ From:<tartanpion@machin.truc>
 Hello,
 Bye.
 EOM
-),
+        ),
         'regexmess: 3 Delete header Disposition-Notification-To:');
 
         ok(
@@ -11500,7 +13019,7 @@ From:<tartanpion@machin.truc>
 Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Bye.
 EOM
-),
+        ),
         'regexmess: 4 Delete header Disposition-Notification-To:');
 
 
@@ -11520,11 +13039,11 @@ From:<tartanpion@machin.truc>
 Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Bye.
 EOM
-),
+        ),
         'regexmess: 5 Delete header Disposition-Notification-To:');
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11542,10 +13061,10 @@ Hello,
 Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Bye.
 EOM
-),
+        ),
         'regexmess: 6 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11565,11 +13084,11 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 7 Delete header Disposition-Notification-To:');
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11589,7 +13108,7 @@ EOM
         'regexmess: 8 Delete header Disposition-Notification-To:');
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11607,12 +13126,12 @@ Hello,
 Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Bye.
 EOM
-),
+        ),
         'regexmess: 9 Delete header Disposition-Notification-To:');
 
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11634,10 +13153,10 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 10 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11662,7 +13181,7 @@ EOM
 ),
         'regexmess: 11 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11688,15 +13207,15 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 12 Delete header Disposition-Notification-To:');
 
 
-@regexmess = ( 's{\A(.*?(?! ^$))^Disposition-Notification-To:(.*?)$}{$1X-Disposition-Notification-To:$2}igxms' ) ; # BAD!
-@regexmess = ( 's{\A((?:[^\n]+\n)+|)(^Disposition-Notification-To:[^\n]*\n)(\r?\n|.*\n\r?\n)}{$1X-$2$3}ims' ) ;
+        @regexmess = ( 's{\A(.*?(?! ^$))^Disposition-Notification-To:(.*?)$}{$1X-Disposition-Notification-To:$2}igxms' ) ; # BAD!
+        @regexmess = ( 's{\A((?:[^\n]+\n)+|)(^Disposition-Notification-To:[^\n]*\n)(\r?\n|.*\n\r?\n)}{$1X-$2$3}ims' ) ;
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11722,10 +13241,10 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 13 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
@@ -11753,10 +13272,10 @@ Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 14 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
@@ -11776,11 +13295,11 @@ Hello,
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 15 Delete header Disposition-Notification-To:');
 
 
-ok(
+        ok(
 <<'EOM'
 Date: Sat, 10 Jul 2010 05:34:45 -0700
 From:<tartanpion@machin.truc>
@@ -11800,10 +13319,10 @@ Hello,
 
 Bye.
 EOM
-),
+        ),
         'regexmess: 16 Delete header Disposition-Notification-To:');
 
-ok(
+        ok(
 <<'EOM'
 X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
 Date: Sat, 10 Jul 2010 05:34:45 -0700
@@ -11827,15 +13346,15 @@ EOM
         'regexmess: 17 Delete header Disposition-Notification-To:');
 
         @regexmess = ( 's/.{11}\K.*//gs' ) ;
-        is( "0123456789\n", regexmess( "0123456789\n" x 100 ), 'regexmess, truncate whole message after 11 characters' ) ;
-        is( "0123456789\n", regexmess( "0123456789\n" x 100_000 ), 'regexmess, truncate whole message after 11 characters ~ 1MB' ) ;
+        is( "0123456789\n", regexmess( "0123456789\n" x 100 ), 'regexmess: truncate whole message after 11 characters' ) ;
+        is( "0123456789\n", regexmess( "0123456789\n" x 100_000 ), 'regexmess: truncate whole message after 11 characters ~ 1MB' ) ;
 
         @regexmess = ( 's/.{10000}\K.*//gs' ) ;
-        is( "123456789\n" x 1000, regexmess( "123456789\n" x 100_000 ), 'regexmess, truncate whole message after 10000 characters ~ 1MB' ) ;
+        is( "123456789\n" x 1000, regexmess( "123456789\n" x 100_000 ), 'regexmess: truncate whole message after 10000 characters ~ 1MB' ) ;
 
-@regexmess = ( 's/^(X-Ham-Report.*?\n)^X-/X-/sm' ) ;
+        @regexmess = ( 's/^(X-Ham-Report.*?\n)^X-/X-/sm' ) ;
 
-is(
+        is(
 <<'EOM'
 X-Spam-Score: -1
 X-Spam-Bar: /
@@ -11848,7 +13367,7 @@ Hello,
 Bye.
 EOM
 ,
-regexmess(
+        regexmess(
 <<'EOM'
 X-Spam-Score: -1
 X-Spam-Bar: /
@@ -11868,20 +13387,247 @@ Hello,
 
 Bye.
 EOM
-),
-        'regexmess: 1 Delete header X-Ham-Report:');
+        ),
+        'regexmess: Delete header X-Ham-Report:');
 
 
 # regex to play with Date: from the FAQ
 #@regexmess = 's{\A(.*?(?! ^$))^Date:(.*?)$}{$1Date:$2\nX-Date:$2}gxms'
 
 
+# Change 8bit characters in whole email to X characters
+        @regexmess = ( 's{[\x80-\xff]}{X}gxms' ) ;
+        is( 'X-8bit: kaka 1 XX kiki', regexmess('X-8bit: kaka 1 ¤ kiki'), 'regexmess: 1 Change 8bit characters in whole email to X characters');
+
+# Same change but using tr
+        @regexmess = ( 'tr [\x80-\xff] [X]' ) ;
+        is( 'X-8bit: kaka 1 XXXX kiki', regexmess('X-8bit: kaka 1 ¤£ kiki'), 'regexmess: 2 Change 8bit characters in whole email to X characters, using tr');
 
 
 
-	note( 'Leaving  tests_regexmess()' ) ;
-	return ;
+# Add a final \r\n if missing
+        @regexmess = ( 's{(?<![\n])\z}{\r\n}gxms' ) ;
+        is( "\r\n", regexmess(""),       'regexmess: 1. Add a final \r\n if missing. Missing' ) ;
+        is( "abc\r\n", regexmess("abc"), 'regexmess: 2. Add a final \r\n if missing. Missing' ) ;
+        is( "abc\ndef\r\n", regexmess("abc\ndef"), 'regexmess: 3. Add a final \r\n if missing. Missing' ) ;
+        is( "abc\r\ndef\r\n", regexmess("abc\r\ndef"), 'regexmess: 3. Add a final \r\n if missing. Missing' ) ;
 
+        is( "\r\n", regexmess("\r\n"),   'regexmess: 3. Add a final \r\n if missing. Not missing' ) ;
+        is( "abc\n", regexmess("abc\n"), 'regexmess: 4. Add a final \r\n if missing. Not missing' ) ;
+        is( "abc\r\n", regexmess("abc\r\n"), 'regexmess: 4. Add a final \r\n if missing. Not missing' ) ;
+        is( "abc\ndef\n", regexmess("abc\ndef\n"), 'regexmess: 4. Add a final \r\n if missing. Not missing' ) ;
+        is( "abc\r\ndef\r\n", regexmess("abc\r\ndef\r\n"), 'regexmess: 4. Add a final \r\n if missing. Not missing' ) ;
+
+# Remove the fucking buggy X-Spam-Report: a bad header on several lines that can even begin without a space!
+
+        @regexmess = ( 's{X-Spam-Report:.*?\n(^[^\n]+:|^\r?\n)}{$1}xms' ) ;
+        # Damien regexes:
+        #@regexmess = ( 's{X-Spam-Report:.*?\n(^[a-zA-Z0-9\-]+:)}{$1}xms' ) ;
+        #@regexmess = ( 's{X-Spam-Report:.*?\n(^[a-zA-Z0-9\-]+:|^\r?\n)}{$1}xms' ) ;
+
+        is(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+LaSuite: super
+
+Hello,
+Bye.
+EOM
+        , regexmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+X-Spam-Report: caca
+caca
+  caca
+caca
+LaSuite: super
+
+Hello,
+Bye.
+EOM
+        ), 'regexmess: 1 remove buggy X-Spam-Report: across several lines, not the final header');
+
+
+        is(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+LaSuite: super
+LaSuite2: super 2
+
+Hello,
+Bye.
+EOM
+        , regexmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+X-Spam-Report: caca
+caca
+  caca
+caca
+LaSuite: super
+LaSuite2: super 2
+
+Hello,
+Bye.
+EOM
+        ), 'regexmess: 2 remove buggy X-Spam-Report: across several lines, not the final header');
+
+
+        is(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+LaSuite: super
+LaSuite2: super 2
+
+Hello,
+Bye.
+EOM
+        , regexmess(
+<<'EOM'
+X-Spam-Report: caca
+caca
+  caca
+caca
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+LaSuite: super
+LaSuite2: super 2
+
+Hello,
+Bye.
+EOM
+        ), 'regexmess: 3 remove buggy X-Spam-Report: across several lines, first header');
+
+
+
+
+        is(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+
+Hello,
+Bye.
+EOM
+        , regexmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+X-Spam-Report: caca
+caca
+  caca
+caca
+
+Hello,
+Bye.
+EOM
+        ), 'regexmess: 4 remove buggy X-Spam-Report: across several lines, final header');
+
+
+        is(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+
+Hello,
+Bye.
+EOM
+        , regexmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From:<tartanpion@machin.truc>
+
+Hello,
+Bye.
+EOM
+        ), 'regexmess: 5 remove buggy X-Spam-Report: not there at all');
+
+
+        is(
+<<"EOM"
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+LaSuite: super\r
+LaSuite2: super 2\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        , regexmess(
+<<"EOM"
+X-Spam-Report: caca\r
+caca\r
+  caca\r
+caca\r
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+LaSuite: super\r
+LaSuite2: super 2\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        ), 'regexmess: 6 remove buggy X-Spam-Report: across several lines, first header, with \r');
+
+
+        is(
+<<"EOM"
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+LaSuite: super\r
+LaSuite2: super 2\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        , regexmess(
+<<"EOM"
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+X-Spam-Report: caca\r
+caca\r
+  caca\r
+caca\r
+LaSuite: super\r
+LaSuite2: super 2\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        ), 'regexmess: 7 remove buggy X-Spam-Report: across several lines, middle header, with \r');
+
+
+        is(
+<<"EOM"
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        , regexmess(
+<<"EOM"
+Date: Sat, 10 Jul 2010 05:34:45 -0700\r
+From:<tartanpion>\r
+X-Spam-Report: caca\r
+caca\r
+  caca\r
+caca\r
+\r
+Hello,\r
+Bye.\r
+EOM
+        ), 'regexmess: 8 remove buggy X-Spam-Report: across several lines, final header, with \r');
+
+
+        undef @regexmess ;
+        note( 'Leaving  tests_regexmess()' ) ;
+        return ;
 }
 
 sub regexmess
@@ -12119,10 +13865,83 @@ EOM
         # Complex regular subexpression recursion limit (32766) exceeded with more lines
         # exit;
 
-	note( 'Leaving  tests_skipmess()' ) ;
+
+        undef @skipmess ;
+        note( 'Leaving  tests_skipmess()' ) ;
         return ;
 }
 
+
+sub tests_skipmess_neg
+{
+        note( 'Entering tests_skipmess_neg()' ) ;
+
+
+        @skipmess = ('m{i}') ;
+        ok( 1 == skipmess( 'Hi!' ), 'skipmess: i string yes' ) ;
+        ok( 0 == skipmess( 'Ho!' ), 'skipmess: i string no' ) ;
+
+        @skipmess = ('m{\A(?!.*i)}') ;
+        ok( 0 == skipmess( 'Hi!' ), 'skipmess: not i string no' ) ;
+        ok( 1 == skipmess( 'Ho!' ), 'skipmess: not i string yes' ) ;
+
+
+        @skipmess = ('m{\A(?!.*^From:[^\n]*tartanpion\@machin\.truc)}xms') ;
+
+        ok( 0 == skipmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From: <tartanpion@machin.truc>
+
+Bye.
+EOM
+),
+    'skipmess: 1 not From tartanpion@machin.truc' ) ;
+
+ok( 1 == skipmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From: <kikiki@machin.truc>
+
+Bye.
+EOM
+),
+    'skipmess: 2 not From tartanpion@machin.truc' ) ;
+
+
+
+
+        ok( 0 == skipmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From: <tartanpion@machin.truc>
+
+  From: <tartanpion@machin.truc>
+Bye.
+EOM
+),
+    'skipmess: 3 not From tartanpion@machin.truc' ) ;
+
+ok( 1 == skipmess(
+<<'EOM'
+Date: Sat, 10 Jul 2010 05:34:45 -0700
+From: <kikiki@machin.truc>
+
+  From: <tartanpion@machin.truc>
+Bye.
+EOM
+),
+    'skipmess: 4 not From tartanpion@machin.truc' ) ;
+
+
+
+
+        undef @skipmess ;
+        note( 'Leaving  tests_skipmess_neg()' ) ;
+        return ;
+}
+
+
 sub skipmess
 {
         my ( $string ) = @_ ;
@@ -12154,25 +13973,25 @@ sub tests_bytes_display_string
         is(    'NA', bytes_display_string( undef ), 'bytes_display_string: undef   => NA' ) ;
         is(    'NA', bytes_display_string( 'blabla' ), 'bytes_display_string: blabla   => NA' ) ;
 
-        ok(    '0.000 KiB' eq bytes_display_string(       0 ), 'bytes_display_string:       0' ) ;
-        ok(    '0.001 KiB' eq bytes_display_string(       1 ), 'bytes_display_string:       1' ) ;
-        ok(    '0.010 KiB' eq bytes_display_string(      10 ), 'bytes_display_string:      10' ) ;
-        ok(    '1.000 MiB' eq bytes_display_string( 1_048_575 ), 'bytes_display_string: 1_048_575' ) ;
-        ok(    '1.000 MiB' eq bytes_display_string( 1_048_576 ), 'bytes_display_string: 1_048_576' ) ;
+        is(    '0.000 KiB', bytes_display_string(       0 ), 'bytes_display_string:       0' ) ;
+        is(    '0.001 KiB', bytes_display_string(       1 ), 'bytes_display_string:       1' ) ;
+        is(    '0.010 KiB', bytes_display_string(      10 ), 'bytes_display_string:      10' ) ;
+        is(    '1.000 MiB', bytes_display_string( 1_048_575 ), 'bytes_display_string: 1_048_575' ) ;
+        is(    '1.000 MiB', bytes_display_string( 1_048_576 ), 'bytes_display_string: 1_048_576' ) ;
 
-        ok(    '1.000 GiB' eq bytes_display_string( 1_073_741_823 ), 'bytes_display_string: 1_073_741_823 ' ) ;
-        ok(    '1.000 GiB' eq bytes_display_string( 1_073_741_824 ), 'bytes_display_string: 1_073_741_824 ' ) ;
+        is(    '1.000 GiB', bytes_display_string( 1_073_741_823 ), 'bytes_display_string: 1_073_741_823 ' ) ;
+        is(    '1.000 GiB', bytes_display_string( 1_073_741_824 ), 'bytes_display_string: 1_073_741_824 ' ) ;
 
-        ok(    '1.000 TiB' eq bytes_display_string( 1_099_511_627_775 ), 'bytes_display_string: 1_099_511_627_775' ) ;
-        ok(    '1.000 TiB' eq bytes_display_string( 1_099_511_627_776 ), 'bytes_display_string: 1_099_511_627_776' ) ;
+        is(    '1.000 TiB', bytes_display_string( 1_099_511_627_775 ), 'bytes_display_string: 1_099_511_627_775' ) ;
+        is(    '1.000 TiB', bytes_display_string( 1_099_511_627_776 ), 'bytes_display_string: 1_099_511_627_776' ) ;
 
-        ok(    '1.000 PiB' eq bytes_display_string( 1_125_899_906_842_623 ), 'bytes_display_string: 1_125_899_906_842_623' ) ;
-        ok(    '1.000 PiB' eq bytes_display_string( 1_125_899_906_842_624 ), 'bytes_display_string: 1_125_899_906_842_624' ) ;
+        is(    '1.000 PiB', bytes_display_string( 1_125_899_906_842_623 ), 'bytes_display_string: 1_125_899_906_842_623' ) ;
+        is(    '1.000 PiB', bytes_display_string( 1_125_899_906_842_624 ), 'bytes_display_string: 1_125_899_906_842_624' ) ;
 
-        ok( '1024.000 PiB' eq bytes_display_string( 1_152_921_504_606_846_975 ), 'bytes_display_string: 1_152_921_504_606_846_975' ) ;
-        ok( '1024.000 PiB' eq bytes_display_string( 1_152_921_504_606_846_976 ), 'bytes_display_string: 1_152_921_504_606_846_976' ) ;
+        is( '1024.000 PiB', bytes_display_string( 1_152_921_504_606_846_975 ), 'bytes_display_string: 1_152_921_504_606_846_975' ) ;
+        is( '1024.000 PiB', bytes_display_string( 1_152_921_504_606_846_976 ), 'bytes_display_string: 1_152_921_504_606_846_976' ) ;
 
-        ok( '1048576.000 PiB' eq bytes_display_string( 1_180_591_620_717_411_303_424 ), 'bytes_display_string: 1_180_591_620_717_411_303_424' ) ;
+        is( '1048576.000 PiB', bytes_display_string( 1_180_591_620_717_411_303_424 ), 'bytes_display_string: 1_180_591_620_717_411_303_424' ) ;
 
         #myprint(  bytes_display_string( 1_180_591_620_717_411_303_424 ), "\n" ) ;
 	note( 'Leaving  tests_bytes_display_string()' ) ;
@@ -12257,27 +14076,31 @@ sub useheader_suggestion
         return ;
 }
 
-sub stats
+sub do_and_print_stats
 {
         my $mysync = shift ;
 
-        if ( ! $mysync->{stats} ) {
+        if ( ! $mysync->{can_do_stats} ) {
                 return ;
         }
 
         my $timeend = time ;
         my $timediff = $timeend - $mysync->{timestart} ;
 
-        my $timeend_str   = localtime $timeend ;
+        my $timeend_str   = localtimez( $timeend ) ;
+
+        my $cpu_time = cpu_time(  ) ;
+        my $cpu_percent = cpu_percent( $mysync, $cpu_time, $timediff ) ;
+        my $cpu_percent_global = cpu_percent_global( $mysync, $cpu_percent ) ;
 
         my $memory_consumption_at_end = memory_consumption(  ) || 0 ;
         my $memory_consumption_at_start = $mysync->{ memory_consumption_at_start } || 0 ;
-        my $memory_ratio = ($max_msg_size_in_bytes) ?
-                mysprintf('%.1f', $memory_consumption_at_end / $max_msg_size_in_bytes) : 'NA' ;
+        my $memory_ratio = ( $mysync->{ biggest_message_transferred } ) ?
+                mysprintf( '%.1f', $memory_consumption_at_end / $mysync->{ biggest_message_transferred } ) : 'NA' ;
 
         # my $useheader_suggestion = useheader_suggestion( $mysync ) ;
         myprint(  "++++ Statistics\n" ) ;
-        myprint(  "Transfer started on                     : $timestart_str\n" ) ;
+        myprint(  "Transfer started on                     : $mysync->{ timestart_str }\n" ) ;
         myprint(  "Transfer ended on                       : $timeend_str\n" ) ;
         myprintf( "Transfer time                           : %.1f sec\n", $timediff ) ;
         myprint(  "Folders synced                          : $h1_folders_wanted_ct/$h1_folders_wanted_nb synced\n" ) ;
@@ -12285,8 +14108,8 @@ sub stats
         myprint(  "(could be $nb_msg_skipped_dry_mode without dry mode)" ) if ( $mysync->{dry} ) ;
         myprint(  "\n" ) ;
         myprint(  "Messages skipped                        : $mysync->{ nb_msg_skipped }\n" ) ;
-        myprint(  "Messages found duplicate on host1       : $h1_nb_msg_duplicate\n" ) ;
-        myprint(  "Messages found duplicate on host2       : $h2_nb_msg_duplicate\n" ) ;
+        myprint(  "Messages found duplicate on host1       : $mysync->{ acc1 }->{ nb_msg_duplicate }\n" ) ;
+        myprint(  "Messages found duplicate on host2       : $mysync->{ acc2 }->{ nb_msg_duplicate }\n" ) ;
         myprint(  "Messages found crossduplicate on host2  : $mysync->{ h2_nb_msg_crossdup }\n" ) ;
         myprint(  "Messages void (noheader) on host1       : $mysync->{ h1_nb_msg_noheader }  ", useheader_suggestion( $mysync ), "\n" ) ;
         myprint(  "Messages void (noheader) on host2       : $h2_nb_msg_noheader\n" ) ;
@@ -12294,8 +14117,8 @@ sub stats
         nb_messages_in_2_not_in_1( $mysync ) ;
         myprintf( "Messages found in host1 not in host2    : %s messages\n", $mysync->{ nb_messages_in_1_not_in_2 } ) ;
         myprintf( "Messages found in host2 not in host1    : %s messages\n", $mysync->{ nb_messages_in_2_not_in_1 } ) ;
-        myprint(  "Messages deleted on host1               : $mysync->{ h1_nb_msg_deleted }\n" ) ;
-        myprint(  "Messages deleted on host2               : $h2_nb_msg_deleted\n" ) ;
+        myprint(  "Messages deleted on host1               : $mysync->{ acc1 }->{ nb_msg_deleted }\n" ) ;
+        myprint(  "Messages deleted on host2               : $mysync->{ acc2 }->{ nb_msg_deleted }\n" ) ;
         myprintf( "Total bytes transferred                 : %s (%s)\n",
                 $mysync->{total_bytes_transferred},
                 bytes_display_string( $mysync->{total_bytes_transferred} ) ) ;
@@ -12311,10 +14134,10 @@ sub stats
                  $memory_consumption_at_end / $KIBI / $KIBI,
                  $memory_consumption_at_start / $KIBI / $KIBI ) ;
         myprint( "Load end is                             : " . ( join( q{ }, loadavg(  ) ) || 'unknown' ), " on $mysync->{cpu_number} cores\n" ) ;
-
-        myprintf("Biggest message                         : %s bytes (%s)\n",
-                $max_msg_size_in_bytes,
-                bytes_display_string( $max_msg_size_in_bytes) ) ;
+        myprint( "CPU time and %cpu                       : $cpu_time sec $cpu_percent %cpu $cpu_percent_global %allcpus\n" ) ;
+        myprintf("Biggest message transferred             : %s bytes (%s)\n",
+                $mysync->{ biggest_message_transferred },
+                bytes_display_string( $mysync->{ biggest_message_transferred } ) ) ;
         myprint(  "Memory/biggest message ratio            : $memory_ratio\n" ) ;
         if ( $mysync->{ foldersizesatend } and $mysync->{ foldersizes } ) {
 
@@ -12440,7 +14263,7 @@ sub load_modules
 }
 
 
-
+# Globals: $skipsize $wholeheaderifneeded
 sub parse_header_msg
 {
         my ( $mysync, $imap, $m_uid, $s_heads, $s_fir, $side, $s_hash ) = @_ ;
@@ -12463,9 +14286,7 @@ sub parse_header_msg
 
         #myprint( Data::Dumper->Dump( [ $head, \%useheader ] )  ) ;
 
-        my $headstr ;
-
-        $headstr = header_construct( $head, $side, $m_uid ) ;
+        my $headstr = header_construct( $mysync, $head, $side, $m_uid ) ;
 
         if ( ( ! $headstr ) and ( $mysync->{addheader} ) and ( $side eq 'Host1' ) ) {
                 my $header = add_header( $m_uid ) ;
@@ -12481,49 +14302,124 @@ sub parse_header_msg
         my $idate = $s_fir->{$m_uid}->{'INTERNALDATE'} ;
         $size = length $headstr  unless ( $size ) ;
         my $m_md5 = md5_base64( $headstr ) ;
-        $mysync->{ debug } and myprint( "$side: uid $m_uid sig $m_md5 size $size idate $idate\n" ) ;
+
         my $key ;
-        if ($skipsize) {
+        if ( $skipsize ) {
                 $key = "$m_md5";
         }
         else {
                 $key = "$m_md5:$size";
         }
-        # 0 return code is used to identify duplicate message hash
-        return 0 if exists $s_hash->{"$key"};
-        $s_hash->{"$key"}{'5'} = $m_md5;
-        $s_hash->{"$key"}{'s'} = $size;
-        $s_hash->{"$key"}{'D'} = $idate;
-        $s_hash->{"$key"}{'F'} = $flags;
-        $s_hash->{"$key"}{'m'} = $m_uid;
 
-        return( 1 ) ;
+        if ( exists $s_hash->{"$key"} )
+        {
+                # 0 return code is used to identify duplicate message hash
+                my $dup_ref = $s_hash->{"$key"}->{'U'} ;
+                my $num = scalar( @{ $dup_ref } ) ;
+                push( @{ $dup_ref }, $m_uid ) ;
+                my $keydup = "$key#$num" ;
+                $mysync->{ debug } and myprint( "$side: uid $m_uid sig $keydup size $size idate $idate dup @{ $dup_ref }\n" ) ;
+                if ( $mysync->{ syncduplicates } )
+                {
+                        $s_hash->{"$keydup"}{'5'} = $m_md5 ;
+                        $s_hash->{"$keydup"}{'s'} = $size ;
+                        $s_hash->{"$keydup"}{'D'} = $idate ;
+                        $s_hash->{"$keydup"}{'F'} = $flags ;
+                        $s_hash->{"$keydup"}{'m'} = $m_uid ;
+                }
+                return 0 ;
+        }
+        else
+        {
+                $s_hash->{"$key"}{'5'} = $m_md5 ;
+                $s_hash->{"$key"}{'s'} = $size ;
+                $s_hash->{"$key"}{'D'} = $idate ;
+                $s_hash->{"$key"}{'F'} = $flags ;
+                $s_hash->{"$key"}{'m'} = $m_uid ;
+                $s_hash->{"$key"}{'U'} = [ $m_uid ] ; # ? or [  ] ?
+                $mysync->{ debug } and myprint( "$side: uid $m_uid sig $key size $size idate $idate\n" ) ;
+                return( 1 ) ;
+        }
+
+        # we should not be here
+        return ;
 }
 
+sub tests_header_construct
+{
+        note( 'Entering tests_header_construct()' ) ;
+
+        is( undef, header_construct(  ),  'header_construct: no args => undef' ) ;
+        my $mysync = {} ;
+        my $head = {
+                'key1' => [ 'val1_key1' ]
+        } ;
+        is( undef, header_construct( $mysync, $head, 'Host1', '1' ),  'header_construct: key1 val1_key1 no useheader => undef' ) ;
+
+        $mysync->{useheader}->{ 'KEY1'  } = 1 ;
+        is( 'KEY1: VAL1_KEY1', header_construct( $mysync, $head, 'Host1', '1' ),  'header_construct: key1 val1_key1 => KEY1: VAL1_KEY1' ) ;
+
+
+
+        $head = {
+                'key1' => [ 'val1_key1', 'val3_key1', 'val2_key1' ]
+        } ;
+        is( 'KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1', header_construct( $mysync, $head, 'Host1', '1' ),
+        'header_construct: key1 val1_key1 val3_key1 val2_key1                => KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1' ) ;
+
+        $head = {
+                'key1' => [ 'val1_key1', 'val3_key1', ' val2_key1' ]
+        } ;
+        is( 'KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1', header_construct( $mysync, $head, 'Host1', '1' ),
+        'header_construct: key1 val1_key1 val3_key1  val2_key1               => KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1' ) ;
+
+        $mysync->{useheader}->{ 'ALL'  } = 1 ;
+
+        is( 'KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1', header_construct( $mysync, $head, 'Host1', '1' ),
+        'header_construct: key1 val1_key1 val3_key1  val2_key1 useheader ALL => KEY1: VAL1_KEY1KEY1: VAL2_KEY1KEY1: VAL3_KEY1' ) ;
+
+        $mysync->{skipheader} = 'key1' ;
+        is( undef, header_construct( $mysync, $head, 'Host1', '1' ),
+        'header_construct: key1 val1_key1 val3_key1  val2_key1 useheader ALL => undef' ) ;
+
+        $head = {
+                'key1' => [ 'val1_key1', 'val3_key1', ' val2_key1' ],
+                'key2' => [ 'val1_key2', 'val3_key2', ' val2_key2' ]
+        } ;
+        is( 'KEY2: VAL1_KEY2KEY2: VAL2_KEY2KEY2: VAL3_KEY2', header_construct( $mysync, $head, 'Host1', '1' ),
+        'header_construct: ... useheader ALL skipheader key1 => KEY2: VAL1_KEY2KEY2: VAL2_KEY2KEY2: VAL3_KEY2' ) ;
+
+
+        note( 'Leaving  tests_header_construct()' ) ;
+        return ;
+}
+
+
+# No global in header_construct
 sub header_construct
 {
+        my( $mysync, $head, $side, $m_uid ) = @_ ;
 
-        my( $head, $side, $m_uid ) = @_ ;
-
-        my $headstr ;
+        my @headstr ;
         foreach my $h ( sort keys  %{ $head }  ) {
-                next if ( not ( exists $useheader{ uc  $h  } )
-                      and ( not exists  $useheader{ 'ALL' } )
+                next if ( not ( exists $mysync->{useheader}->{ uc  $h  } )
+                      and ( not exists $mysync->{useheader}->{ 'ALL' } )
                 ) ;
-                foreach my $val ( sort @{$head->{$h}} ) {
+                foreach my $val ( @{$head->{$h}} ) {
 
                         my $H = header_line_normalize( $h, $val ) ;
 
                         # show stuff in debug mode
-                        $sync->{ debug } and myprint( "$side uid $m_uid header [$H]", "\n" ) ;
+                        $mysync->{ debug } and myprint( "$side uid $m_uid header [$H]", "\n" ) ;
 
-                        if ($skipheader and $H =~ m/$skipheader/xi) {
-                                $sync->{ debug } and myprint( "$side uid $m_uid skipping header [$H]\n" ) ;
+                        if ( $mysync->{skipheader} and $H =~ m/$mysync->{skipheader}/xi) {
+                                $mysync->{ debug } and myprint( "$side uid $m_uid skipping header [$H]\n" ) ;
                                 next ;
                         }
-                        $headstr .= "$H" ;
+                        push @headstr, $H ;
                 }
         }
+        my $headstr = join( '', sort @headstr ) || undef ;
         return( $headstr ) ;
 }
 
@@ -12655,7 +14551,6 @@ sub tests_nthline
         is( q{}, nthline( 'W/tmp/tests/noexist.txt', 2 ), 'nthline: 2nd getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
 
         ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'nthline: mkpath W/tmp/tests/' ) ;
-
         is( "L1\nL2\nL3\nL4\n" , string_to_file( "L1\nL2\nL3\nL4\n", 'W/tmp/tests/nthline.txt' ), 'nthline: put L1\nL2\nL3\nL4\n in W/tmp/tests/nthline.txt' ) ;
         is( 'L3' , nthline( 'W/tmp/tests/nthline.txt', 3 ), 'nthline: get L3 from W/tmp/tests/nthline.txt' ) ;
 
@@ -12689,21 +14584,44 @@ sub nthline
         }
 }
 
+sub tests_file_to_array
+{
+        note( 'Entering tests_file_to_array()' ) ;
+
+        is( undef, file_to_array(  ),           'file_to_array: no args => undef' ) ;
+	is( undef, file_to_array( '/noexist' ), 'file_to_array: /noexist => undef' ) ;
+	is( undef, file_to_array( '/' ),        'file_to_array: reading a directory => undef' ) ;
+
+        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'file_to_array: mkpath W/tmp/tests/' ) ;
+        is( "L1\nL2\nL3\nL4\n" , string_to_file( "L1\nL2\nL3\nL4\n", 'W/tmp/tests/file_to_array.txt' ), 'file_to_array: put L1\nL2\nL3\nL4\n in W/tmp/tests/file_to_array.txt' ) ;
+        is_deeply( [ "L1\n", "L2\n", "L3\n", "L4\n" ] , [ file_to_array( 'W/tmp/tests/file_to_array.txt' ) ], 'file_to_array: get back L1\n L2\n L3\n L4\n from W/tmp/tests/file_to_array.txt' ) ;
+
+        note( 'Leaving  tests_file_to_array()' ) ;
+        return ;
+}
 
-# Should be unit tested and then be used by file_to_string, refactoring file_to_string
 sub file_to_array
 {
 
         my( $file ) = shift ;
+	if ( ! $file )    { return ; }
+	if ( ! -e $file ) { return ; }
+	if ( ! -f $file ) { return ; }
+	if ( ! -r $file ) { return ; }
+        
         my @string ;
 
-        open my $FILE, '<', $file or do {
+        if ( open my $FILE, '<', $file )
+        {
+                @string = <$FILE> ;
+                close $FILE ;
+                return( @string ) ;
+        }
+        else
+        {
 		myprint( "Error reading file $file : $OS_ERROR\n" ) ;
 		return ;
-	} ;
-        @string = <$FILE> ;
-        close $FILE ;
-        return( @string ) ;
+	}
 }
 
 
@@ -12735,15 +14653,8 @@ sub file_to_string
 	if ( ! -e $file ) { return ; }
 	if ( ! -f $file ) { return ; }
 	if ( ! -r $file ) { return ; }
-        my @string ;
-        if ( open my $FILE, '<', $file ) {
-		@string = <$FILE> ;
-		close $FILE ;
-		return( join q{}, @string ) ;
-	}else{
-		myprint( "Error reading file $file : $OS_ERROR\n" ) ;
-		return ;
-	}
+        
+        return( join q{}, file_to_array( $file ) ) ;
 }
 
 
@@ -13157,7 +15068,7 @@ sub tests_version_from_rcs
 {
 	note( 'Entering tests_version_from_rcs()' ) ;
 
-	is( undef, version_from_rcs(  ), 'version_from_rcs: no args => UNKNOWN' ) ;
+	is( undef, version_from_rcs(  ), 'version_from_rcs: no args => undef' ) ;
 	is( 1.831, version_from_rcs( q{imapsync,v 1.831 2017/08/27} ), 'version_from_rcs: imapsync,v 1.831 2017/08/27 => 1.831' ) ;
 	is( 'UNKNOWN', version_from_rcs( 1.831 ), 'version_from_rcs:  1.831  => UNKNOWN' ) ;
 
@@ -13221,47 +15132,104 @@ sub tests_cpu_number
 {
 	note( 'Entering tests_cpu_number()' ) ;
 
-        is( 1, is_an_integer( cpu_number(  ) ), "cpu_number: is_an_integer" ) ;
+        is( 1, is_integer( cpu_number(  ) ), "cpu_number: is_integer" ) ;
 	ok( 1 <= cpu_number(  ), "cpu_number: 1 or more" ) ;
         is( 1, cpu_number( 1 ), "cpu_number: 1 => 1" ) ;
         is( 1, cpu_number( $MINUS_ONE ), "cpu_number: -1 => 1" ) ;
         is( 1, cpu_number( 'lalala' ), "cpu_number: lalala => 1" ) ;
         is( $NUMBER_42, cpu_number( $NUMBER_42 ), "cpu_number: $NUMBER_42 => $NUMBER_42" ) ;
+
+        note( "cpu_number = " . cpu_number(  ) . "\n" ) ;
+        note( "hostname   = " . hostname(  ) . "\n" ) ;
+        SKIP: {
+                if ( ! ( 'i005' eq hostname() ) )
+                {
+                        skip( 'cpu_number on host != i005 (FreeBSD)', 1  ) ;
+                }
+                is( 4, cpu_number(  ), "cpu_number: on i005 (FreeBSD) => 4" ) ;
+        } ;
+ 
+        SKIP: {
+                if ( ! ( 'petite' eq hostname() ) )
+                {
+                        skip( 'cpu_number on host != petite (Linux)', 1  ) ;
+                }
+                is( 2, cpu_number(  ), "cpu_number: on petite (Linux) => 2" ) ;
+        } ;
+
+        SKIP: {
+                if ( ! ( skip_macosx(  ) ) )
+                {
+                        skip( 'cpu_number on host != polarhome macosx (Darwin MacOS X 10.7.5 Lion)', 1  ) ;
+                }
+                is( 2, cpu_number(  ), "cpu_number: on polarhome macosx (Darwin MacOS X 10.7.5 Lion) => 2" ) ;
+        } ;
+        
+        SKIP: {
+                if ( ! ( 'pcHPDV7-HP' eq hostname() ) )
+                {
+                        skip( 'cpu_number on host != pcHPDV7-HP (Windows 7, 64bits)', 1  ) ;
+                }
+                is( 2, cpu_number(  ), "cpu_number: on pcHPDV7-HP (Windows 7, 64bits) => 2" ) ;
+        } ;
+        
+        SKIP: {
+                if ( ! ( 'CUILLERE' eq hostname() ) )
+                {
+                        skip( 'cpu_number on host != CUILLERE (Windows XP, 32bits)', 1  ) ;
+                }
+                is( 1, cpu_number(  ), "cpu_number: on CUILLERE (Windows XP, 32bits) => 1" ) ;
+        } ;
+        
+
         note( 'Leaving  tests_cpu_number()' ) ;
 	return ;
 }
 
-sub cpu_number
-{
+
+sub cpu_number {
 
         my $cpu_number_forced = shift ;
 	# Well, here 1 is better than 0 or undef
 	my $cpu_number = 1 ; # Default value, erased if better found
 
         my @cpuinfo ;
-	if ( $ENV{"NUMBER_OF_PROCESSORS"} ) {
+	if ( $ENV{"NUMBER_OF_PROCESSORS"} )
+        {
 		# might be under a Windows system
 		$cpu_number = $ENV{"NUMBER_OF_PROCESSORS"} ;
-		$sync->{ debug } and myprint( "Number of processors found by env var NUMBER_OF_PROCESSORS: $cpu_number\n" ) ;
-	}elsif ( 'darwin' eq $OSNAME or 'freebsd' eq $OSNAME ) {
+		#myprint( "Number of processors found by env var NUMBER_OF_PROCESSORS: $cpu_number\n" ) ;
+	}
+        
+        if ( 'darwin' eq $OSNAME )
+        {
 		$cpu_number = backtick( "sysctl -n hw.ncpu" ) ;
 		chomp( $cpu_number ) ;
-                $sync->{ debug } and myprint( "Number of processors found by cmd 'sysctl -n hw.ncpu': $cpu_number\n" ) ;
-	}elsif ( ! -e '/proc/cpuinfo' ) {
-		$sync->{ debug } and myprint( "Number of processors not found so I might assume there is only 1\n" ) ;
-		$cpu_number = 1 ;
-	}elsif( @cpuinfo = file_to_array( '/proc/cpuinfo' ) ) {
-                $cpu_number = grep { /^processor/mxs } @cpuinfo ;
-                $sync->{ debug } and myprint( "Number of processors found via /proc/cpuinfo: $cpu_number\n" ) ;
+                #myprint( "Number of processors found by cmd 'sysctl -n hw.ncpu': $cpu_number\n" ) ;
 	}
-
-        if ( defined $cpu_number_forced ) {
+        
+        if ( 'freebsd' eq $OSNAME )
+        {
+		$cpu_number = backtick( "sysctl -n kern.smp.cpus" ) ;
+		chomp( $cpu_number ) ;
+                #myprint( "Number of processors found by cmd 'sysctl -n kern.smp.cpus': $cpu_number\n" ) ;
+	}
+        
+        if ( 'linux' eq $OSNAME && -e '/proc/cpuinfo' )
+        {
+		@cpuinfo = file_to_array( '/proc/cpuinfo' ) ;
+                $cpu_number = grep { /^processor/mxs } @cpuinfo ;
+                #myprint( "Number of processors found via /proc/cpuinfo: $cpu_number\n" ) ;
+	}
+	
+        if ( defined $cpu_number_forced )
+        {
                 $cpu_number = $cpu_number_forced ;
         }
+        
 	return( integer_or_1( $cpu_number ) ) ;
 }
 
-
 sub tests_integer_or_1
 {
         note( 'Entering tests_integer_or_1()' ) ;
@@ -13279,33 +15247,33 @@ sub tests_integer_or_1
 sub integer_or_1
 {
         my $number = shift ;
-        if ( is_an_integer( $number  ) ) {
+        if ( is_integer( $number  ) ) {
                 return $number ;
         }
         # else
         return 1 ;
 }
 
-sub tests_is_an_integer
+sub tests_is_integer
 {
-	note( 'Entering tests_is_an_integer()' ) ;
+	note( 'Entering tests_is_integer()' ) ;
 
-        is( undef, is_an_integer(  ), 'is_an_integer: no args => undef ' ) ;
-        ok( is_an_integer( 1 ), 'is_an_integer: 1 => yes ') ;
-        ok( is_an_integer( $NUMBER_42 ), 'is_an_integer: 42 => yes ') ;
-        ok( is_an_integer( "$NUMBER_42" ), 'is_an_integer: "$NUMBER_42" => yes ') ;
-        ok( is_an_integer( '42' ), 'is_an_integer: "42" => yes ') ;
-        ok( is_an_integer( $NUMBER_104_857_600 ), 'is_an_integer: 104_857_600 => yes') ;
-        ok( is_an_integer( "$NUMBER_104_857_600" ), 'is_an_integer: "$NUMBER_104_857_600" => yes') ;
-        ok( is_an_integer( '104857600' ), 'is_an_integer: 104857600 => yes') ;
-        ok( ! is_an_integer( 'blabla' ), 'is_an_integer: blabla => no' ) ;
-        ok( ! is_an_integer( q{} ), 'is_an_integer: empty string => no' ) ;
+        is( undef, is_integer(  ), 'is_integer: no args => undef ' ) ;
+        ok( is_integer( 1 ), 'is_integer: 1 => yes ') ;
+        ok( is_integer( $NUMBER_42 ), 'is_integer: 42 => yes ') ;
+        ok( is_integer( "$NUMBER_42" ), 'is_integer: "$NUMBER_42" => yes ') ;
+        ok( is_integer( '42' ), 'is_integer: "42" => yes ') ;
+        ok( is_integer( $NUMBER_104_857_600 ), 'is_integer: 104_857_600 => yes') ;
+        ok( is_integer( "$NUMBER_104_857_600" ), 'is_integer: "$NUMBER_104_857_600" => yes') ;
+        ok( is_integer( '104857600' ), 'is_integer: 104857600 => yes') ;
+        ok( ! is_integer( 'blabla' ), 'is_integer: blabla => no' ) ;
+        ok( ! is_integer( q{} ), 'is_integer: empty string => no' ) ;
 
-	note( 'Leaving  tests_is_an_integer()' ) ;
+	note( 'Leaving  tests_is_integer()' ) ;
         return ;
 }
 
-sub is_an_integer
+sub is_integer
 {
         my $number = shift ;
         if ( ! defined $number ) { return ; }
@@ -13470,48 +15438,38 @@ sub tests_load_and_delay
 	is( undef, load_and_delay(  ), 'load_and_delay: no args => undef ' ) ;
 	is( undef, load_and_delay( 1 ), 'load_and_delay: not 4 args => undef ' ) ;
 	is( undef, load_and_delay( 0, 1, 1, 1 ), 'load_and_delay: division per 0 => undef ' ) ;
-	is(  0, load_and_delay( 1, 1, 1, 1 ), 'load_and_delay: one core, loads are all 1 => ok ' ) ;
-	is(  0, load_and_delay( 1, 1, 1, 1, 'lalala' ), 'load_and_delay: five arguments is ok' ) ;
-	is(  0, load_and_delay( 2, 2, 2, 2 ), 'load_and_delay: two core, loads are all 2 => ok ' ) ;
-	is(  0, load_and_delay( 2, 2, 4, 5 ), 'load_and_delay: two core, load1m     is 2 => ok ' ) ;
 
-# Old behavior, rather strict
-        # is(  0, load_and_delay( 1, 0, 0, 0 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=0 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 0, 2 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=2 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 2, 0 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=0 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 2, 2 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-	# is(  1, load_and_delay( 1, 2, 0, 0 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-	# is(  1, load_and_delay( 1, 2, 0, 2 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-	# is(  5, load_and_delay( 1, 2, 2, 0 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-	# is( 15, load_and_delay( 1, 2, 2, 2 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
+#       ( $cpu_num, $avg_1_min, $avg_5_min, $avg_15_min )
 
-	# is(  0, load_and_delay( 4, 0, 2, 2 ), 'load_and_delay: four core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-	# is(  1, load_and_delay( 4, 8, 0, 0 ), 'load_and_delay: four core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-	# is(  1, load_and_delay( 4, 8, 0, 2 ), 'load_and_delay: four core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-	# is(  5, load_and_delay( 4, 8, 8, 0 ), 'load_and_delay: four core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-	# is( 15, load_and_delay( 4, 8, 8, 8 ), 'load_and_delay: four core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
+        is(  0, load_and_delay( 1, 1, 1, 1 ), 'load_and_delay: one core, loads are all 1 => ok ' ) ;
+        is(  0, load_and_delay( 1, 1, 1, 1, 'lalala' ), 'load_and_delay: five arguments is ok' ) ;
+        is(  0, load_and_delay( 2, 2, 2, 2 ), 'load_and_delay: two core, loads are all 2 => ok ' ) ;
+        is(  0, load_and_delay( 2, 2, 4, 5 ), 'load_and_delay: two core, load1m     is 2 => ok ' ) ;
 
-# New behavior, tolerate more load
 
-        is(  0, load_and_delay( 1, 0, 0, 0 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=0 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 0, 2 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=2 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 2, 0 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=0 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 2, 2 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 2, 0, 0 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-        is(  0, load_and_delay( 1, 2, 0, 2 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-        is(  0, load_and_delay( 1, 2, 2, 0 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-        is(  0, load_and_delay( 1, 2, 2, 2 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
+        is(  0, load_and_delay( 1, 0, 0, 0 ),       'load_and_delay: one core, load1m=0 load5m=0 load15m=0 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 0, 0, 2 ),       'load_and_delay: one core, load1m=0 load5m=0 load15m=2 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 0, 2, 0 ),       'load_and_delay: one core, load1m=0 load5m=2 load15m=0 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 0, 2, 2 ),       'load_and_delay: one core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 0, 3, 3 ),       'load_and_delay: one core, load1m=0 load5m=3 load15m=3 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 0, 4, 4 ),       'load_and_delay: one core, load1m=0 load5m=3 load15m=3 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 2, 0, 0 ),       'load_and_delay: one core, load1m=2 load5m=0 load15m=0 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 2, 0, 2 ),       'load_and_delay: one core, load1m=2 load5m=0 load15m=2 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 2, 2, 0 ),       'load_and_delay: one core, load1m=2 load5m=2 load15m=0 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 2, 2, 2 ),       'load_and_delay: one core, load1m=2   load5m=2   load15m=2   => 0 ' ) ;
+        is(  0, load_and_delay( 1, 2.9, 2.9, 2.9 ), 'load_and_delay: one core, load1m=2.9 load5m=2.9 load15m=2.9 => 0 ' ) ;
+
+        is(  0, load_and_delay( 1, 3, 0, 0 ),       'load_and_delay: one core, load1m=3 load5m=0   load15m=0   => 0 ' ) ;
+        is(  0, load_and_delay( 1, 3, 2.9, 2.9 ),   'load_and_delay: one core, load1m=3 load5m=2.9 load15m=2.9 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 3, 3, 2.9 ),     'load_and_delay: one core, load1m=3 load5m=3   load15m=2.9 => 0 ' ) ;
+        is(  0, load_and_delay( 1, 3, 3, 3 ),       'load_and_delay: one core, load1m=3 load5m=3   load15m=3   => 0 ' ) ;
+
+        is(  1, load_and_delay( 1, 6, 0, 0 ),       'load_and_delay: one core, load1m=3 load5m=0   load15m=0   => 1 ' ) ;
+        is(  1, load_and_delay( 1, 6, 5.9, 5.9 ),   'load_and_delay: one core, load1m=3 load5m=2.9 load15m=2.9 => 1 ' ) ;
+        is(  5, load_and_delay( 1, 6, 6, 5.9 ),     'load_and_delay: one core, load1m=3 load5m=3   load15m=2.9 => 5 ' ) ;
+        is(  15, load_and_delay( 1, 6, 6, 6 ),      'load_and_delay: one core, load1m=3 load5m=3   load15m=3 => 15 ' ) ;
 
-        is(  1, load_and_delay( 1, 4, 0, 0 ), 'load_and_delay: one core, load1m=4 load5m=0 load15m=0 => 1 ' ) ;
-        is(  1, load_and_delay( 1, 4, 0, 4 ), 'load_and_delay: one core, load1m=4 load5m=0 load15m=4 => 1 ' ) ;
-        is(  5, load_and_delay( 1, 4, 4, 0 ), 'load_and_delay: one core, load1m=4 load5m=4 load15m=0 => 5 ' ) ;
-        is( 15, load_and_delay( 1, 4, 4, 4 ), 'load_and_delay: one core, load1m=4 load5m=4 load15m=4 => 15 ' ) ;
 
-        is(  0, load_and_delay( 4, 0, 9, 9 ), 'load_and_delay: four core, load1m=0 load5m=9 load15m=9 => 0 ' ) ;
-        is(  1, load_and_delay( 4, 9, 0, 0 ), 'load_and_delay: four core, load1m=9 load5m=0 load15m=0 => 1 ' ) ;
-        is(  1, load_and_delay( 4, 9, 0, 9 ), 'load_and_delay: four core, load1m=9 load5m=0 load15m=9 => 1 ' ) ;
-        is(  5, load_and_delay( 4, 9, 9, 0 ), 'load_and_delay: four core, load1m=9 load5m=9 load15m=0 => 5 ' ) ;
-        is( 15, load_and_delay( 4, 9, 9, 9 ), 'load_and_delay: four core, load1m=9 load5m=9 load15m=9 => 15 ' ) ;
 
         note( 'Leaving  tests_load_and_delay()' ) ;
         return ;
@@ -13531,12 +15489,123 @@ sub load_and_delay
 	# Let divide by number of cores
 	( $avg_1_min, $avg_5_min, $avg_15_min ) = map { $_ / $cpu_num } ( $avg_1_min, $avg_5_min, $avg_15_min ) ;
 	# One of avg ok => ok, for now it is a OR
-	if ( $avg_1_min <= 2 ) { return 0 ; }
-	if ( $avg_5_min <= 2 ) { return 1 ; } # Retry in 1 minute
-	if ( $avg_15_min <= 2 ) { return 5 ; } # Retry in 5 minutes
+	if ( $avg_1_min < 6 ) { return 0 ; }
+	if ( $avg_5_min < 6 ) { return 1 ; } # Retry in 1 minute
+	if ( $avg_15_min < 6 ) { return 5 ; } # Retry in 5 minutes
 	return 15 ; # Retry in 15 minutes
 }
 
+
+sub tests_cpu_time
+{
+        note( 'Entering tests_cpu_time()' ) ;
+
+        ok( is_number( cpu_time(  ) ),  'cpu_time: no args => a number' ) ;
+
+        my $mysync = {  } ;
+        $mysync->{ debug } = 1 ;
+        ok( is_number( cpu_time( $mysync ) ),  'cpu_time: {} => a number' ) ;        
+
+        note( 'Leaving  tests_cpu_time()' ) ;
+        return ;
+}
+
+sub cpu_time
+{
+        my $mysync = shift ;
+        
+        my @cpu_times = times ;
+        if ( ! @cpu_times ) { return ; }
+        
+        my $cpu_time = 0 ;
+        # last element is the sum of all elements
+        $cpu_time = ( map { $cpu_time += $_ } @cpu_times )[ -1 ] ;
+        $mysync->{ debug } and myprint( join(' + ', @cpu_times), " = $cpu_time\n" ) ;
+
+        return $cpu_time ;
+}
+
+
+sub tests_cpu_percent
+{
+        note( 'Entering tests_cpu_percent()' ) ;
+
+        is( '0.0',  cpu_percent(  ),  'cpu_percent: no args => 0.0' ) ;
+        my $mysync = {  } ;
+        $mysync->{ debug } = 1 ;
+        is( '0.0', cpu_percent( $mysync ),   'cpu_percent: {} => 0.0' ) ;
+        is( '0.0', cpu_percent( $mysync, 0 ),     'cpu_percent: {} 0 => 0.0' ) ;
+        is( '300.0', cpu_percent( $mysync, 3 ),     'cpu_percent: {} 3 => 300.0' ) ;
+        is( '30.0', cpu_percent( $mysync, 3, 10 ), 'cpu_percent: {} 3 10 => 30.0' ) ;
+        is( '0.0', cpu_percent( $mysync, 0, 10 ), 'cpu_percent: {} 0 10 => 0.0' ) ;
+
+        note( 'Leaving  tests_cpu_percent()' ) ;
+        return ;
+}
+
+sub cpu_percent
+{
+        my $mysync   = shift ;
+        my $cpu_time = shift || 0 ;
+        my $timediff = shift || 1 ; # no division by 0
+
+        if ( $cpu_time > $timediff )
+        {
+                myprint( "Strange: cpu_time $cpu_time > timediff $timediff\n" ) ;
+        }
+        my $cpu_percent = 0 ;
+        $cpu_percent = mysprintf( '%.1f', 100 * $cpu_time / $timediff ) ;
+        $mysync->{ debug } and myprint( "cpu_percent: $cpu_percent \n" ) ;
+        
+        return $cpu_percent ;
+        
+}
+
+sub tests_cpu_percent_global
+{
+        note( 'Entering tests_cpu_percent_global()' ) ;
+
+        is( '0.0',  cpu_percent_global(  ),  'cpu_percent_global: no args => 0' ) ;
+        my $mysync = {  } ;
+        $mysync->{ debug } = 1 ;
+        is( '0.0',  cpu_percent_global( $mysync      ),     'cpu_percent_global: {} => 0' ) ;
+        is( '0.0',  cpu_percent_global( $mysync,   0 ),  'cpu_percent_global: {} 0 => 0' ) ;
+
+        SKIP: {
+                if ( ! ( 'i005' eq hostname() ) )
+                {
+                        skip( 'cpu_percent_global on host != i005', 1  ) ;
+                }
+                is( '25.0', cpu_percent_global( $mysync, 100 ), 'cpu_percent_global: {} 100 => 25 on host i005' ) ;
+        } ;
+ 
+        SKIP: {
+                if ( ! ( 'petite' eq hostname() ) )
+                {
+                        skip( 'cpu_percent_global on host != petite', 1  ) ;
+                }
+                is( '50.0', cpu_percent_global( $mysync, 100 ), 'cpu_percent_global: {} 100 => 50 on host petite' ) ;
+        } ;
+
+        note( 'Leaving  tests_cpu_percent_global()' ) ;
+        return ;
+}
+
+sub cpu_percent_global
+{
+        my $mysync      = shift ;
+        my $cpu_percent = shift || 0 ;
+        
+        my $cpu_number = cpu_number(  ) ;
+        
+        my $cpu_percent_global ;
+        $cpu_percent_global = mysprintf( '%.1f', $cpu_percent / $cpu_number ) ;
+        $mysync->{ debug } and myprint( "cpu_percent_global: $cpu_percent_global \n" ) ;
+       
+        return( $cpu_percent_global ) ;
+}
+
+
 sub ram_memory_info
 {
         # In GigaBytes so division by 1024 * 1024 * 1024
@@ -13623,7 +15692,7 @@ sub memory_consumption_of_pids
                 #myprint( "ps: @ps" ) ;
 
                 # Use IPC::Open3 from perlcrit -3
-                # It stalls on Darwin, don't understand why!
+                # But it stalls on Darwin, I don't understand why!
                 #my @ps = backtick( "ps -o vsz -p @pid" ) ;
                 #myprint( "ps: @ps" ) ;
 
@@ -13795,7 +15864,7 @@ sub check_binary_embed_all_dyn_libs
         else
         {
                 # Found only embedded dynamic lib
-                myprint( "Found nothing\n" ) ;
+                myprint( "Found only embedded dynamic lib. Good!\n" ) ;
                 return 1 ;
         }
 }
@@ -13819,22 +15888,22 @@ sub search_dyn_lib_locale
 
 sub search_dyn_lib_locale_darwin
 {
-        my $command = qq{ lsof -p $PID | grep ' REG ' | grep .dylib | grep -v '/par-' } ;
+        my $command = qq{ lsof -p $PROCESS_ID | grep ' REG ' | grep .dylib | grep -v '/par-' } ;
         myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
         return backtick( $command ) ;
 }
 
 sub search_dyn_lib_locale_linux
 {
-        my $command = qq{ lsof -p $PID | grep ' REG ' | grep -v '/tmp/par-' | grep '\.so' } ;
+        my $command = qq{ lsof -p $PROCESS_ID | grep ' REG ' | grep -v '/tmp/par-' | grep '\.so' } ;
         myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
         return backtick( $command ) ;
 }
 
 sub search_dyn_lib_locale_MSWin32
 {
-        my $command = qq{ Listdlls.exe $PID|findstr Strawberry } ;
-        # $command = qq{ Listdlls.exe $PID|findstr Strawberry } ;
+        my $command = qq{ Listdlls.exe $PROCESS_ID|findstr Strawberry } ;
+        # $command = qq{ Listdlls.exe $PROCESS_ID|findstr Strawberry } ;
         myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
         return qx( $command ) ;
 }
@@ -14229,6 +16298,8 @@ sub comment_on_final_diff_in_1_not_in_2
         {
                 myprint( "The sync is not finished, there are ",
                 $mysync->{ nb_messages_in_1_not_in_2 },
+                " among ",
+                $nb_identified_h1_messages,
                 " identified messages in host1 that are not on host2.\n" ) ;
         }
 
@@ -14242,7 +16313,7 @@ sub comment_on_final_diff_in_1_not_in_2
         }
         else
         {
-                myprint( "There is no unidentified message\n" ) ;
+                myprint( "There is no unidentified message on host1.\n" ) ;
         }
 
         return ;
@@ -14277,9 +16348,11 @@ sub comment_on_final_diff_in_2_not_in_1
         {
                 myprint( "The sync is not strict, there are ",
                         $mysync->{ nb_messages_in_2_not_in_1 },
-                        " messages in host2 that are not on host1.",
-                        " Use --delete2 to delete them and have a strict sync.",
-                        " ($nb_identified_h2_messages identified messages in host2)\n" ) ;
+                        " among ",
+                        $nb_identified_h2_messages,
+                        " identified messages in host2 that are not on host1.",
+                        " Use --delete2 and sync again to delete them and have a strict sync.\n" 
+                ) ;
         }
         return ;
 }
@@ -15053,24 +17126,25 @@ sub setlogfile
         my( $mysync ) = shift ;
 
         # When aborting another process the log file name finishes with "_abort.txt"
-        my $abort_suffix = ( $mysync->{abort} ) ? '_abort' : q{} ;
+        my $abort_suffix = ( $mysync->{ abort } ) ? '_abort' : q{} ;
+        
         # When acting as a proxy the log file name finishes with "_remote.txt"
-        # proxy mode is not done yet
-        my $remote_suffix = ( $mysync->{remote} ) ? '_remote' : q{} ;
+        # proxy mode is not done in imapsync, it is done by proximapsync
+        my $remote_suffix = ( $mysync->{ remote } ) ? '_remote' : q{} ;
 
         my $suffix = (
-                filter_forbidden_characters( slash_to_underscore( $mysync->{user1} ) ) || q{} )
+                filter_forbidden_characters( slash_to_underscore( $mysync->{ user1 } ) ) || q{} )
                 . '_'
-                . ( filter_forbidden_characters( slash_to_underscore( $mysync->{user2} ) ) || q{} )
+                . ( filter_forbidden_characters( slash_to_underscore( $mysync->{ user2 } ) ) || q{} )
                 . $remote_suffix . $abort_suffix ;
 
-        $mysync->{logdir}  = defined $mysync->{logdir}  ? $mysync->{logdir}  : $DEFAULT_LOGDIR ;
+        $mysync->{ logdir }  = defined $mysync->{ logdir }  ? $mysync->{ logdir }  : $DEFAULT_LOGDIR ;
 
-        $mysync->{logfile} = defined $mysync->{logfile}
-                ? "$mysync->{logdir}/$mysync->{logfile}"
-                : logfile( $mysync->{timestart}, $suffix, $mysync->{logdir} ) ;
+        $mysync->{ logfile } = defined $mysync->{ logfile }
+                ? "$mysync->{ logdir }/$mysync->{ logfile }"
+                : logfile( $mysync->{ timestart }, $suffix, $mysync->{ logdir } ) ;
 
-        return( $mysync->{logfile} ) ;
+        return( $mysync->{ logfile } ) ;
 }
 
 sub tests_logfile
@@ -15082,7 +17156,8 @@ sub tests_logfile
                 skip( 'Too hard to have a well known timezone on Windows', 10 ) if ( 'MSWin32' eq $OSNAME ) ;
 
                 local $ENV{TZ} = 'GMT' ;
-                { POSIX::tzset unless ('MSWin32' eq $OSNAME) ;
+                {
+                        POSIX::tzset unless ('MSWin32' eq $OSNAME) ;
                         is( '1970_01_01_00_00_00_000.txt', logfile(  ),           'logfile: no args    => 1970_01_01_00_00_00.txt' ) ;
                         is( '1970_01_01_00_00_00_000.txt', logfile( 0 ),          'logfile: 0          => 1970_01_01_00_00_00.txt' ) ;
                         is( '1970_01_01_00_01_01_000.txt', logfile( 61 ),         'logfile: 0          => 1970_01_01_00_01_01.txt' ) ;
@@ -15129,6 +17204,38 @@ sub logfile
 }
 
 
+sub tests_localtimez
+{
+        note( 'Entering tests_localtimez()' ) ;
+
+        SKIP: {
+                # Too hard to have a well known timezone on Windows
+                skip( 'Too hard to have a well known timezone on Windows', 1 ) if ( 'MSWin32' eq $OSNAME ) ;
+                local $ENV{TZ} = 'GMT' ;
+                like( localtimez( 0 ), qr'1970-01-01 00:00:00 \+0000 (GMT|UTC)', 'localtimez: 0 => match 1970-01-01 00:00:00 +0000 GMT' ) ;
+        }
+
+        is( localtimez( ), localtimez( time ), 'localtimez: undef => equals currrent' ) ;
+        note( 'Leaving  tests_localtimez()' ) ;
+        return ;
+}
+
+
+
+sub localtimez
+{
+        my $time = shift ;
+        
+        $time = defined( $time ) ? $time : time ;
+        
+        my $datetimestr = POSIX::strftime( '%A %e %B %Y-%m-%d %H:%M:%S %z %Z', localtime( $time ) ) ;
+
+        #myprint( "$datetimestr\n" ) ;
+        return $datetimestr ;        
+}
+
+
+
 
 sub tests_slash_to_underscore
 {
@@ -15227,6 +17334,8 @@ sub tests_teelaunch
         is( undef, teelaunch( $mysync ), 'teelaunch: arg empty {} => undef' ) ;
         $mysync->{logfile} = q{} ;
         is( undef, teelaunch( $mysync ), 'teelaunch: logfile empty string => undef' ) ;
+
+        # First time, learning IO::Tee intrasics
         $mysync->{logfile} = 'W/tmp/tests/tests_teelaunch.txt' ;
         isa_ok( my $tee = teelaunch( $mysync ), 'IO::Tee' , 'teelaunch: logfile W/tmp/tests/tests_teelaunch.txt' ) ;
         is( 1, print( $tee "Hi!\n" ), 'teelaunch: write Hi!') ;
@@ -15234,6 +17343,38 @@ sub tests_teelaunch
         is( 1, print( $tee "Hoo\n" ), 'teelaunch: write Hoo') ;
         is( "Hi!\nHoo\n", file_to_string( 'W/tmp/tests/tests_teelaunch.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch.txt is Hi!\nHoo\n' ) ;
 
+        # closing so tee won't be happy
+        close $mysync->{logfile_handle} ;
+        is( undef, print( $tee "Argh1\n" ), 'teelaunch: write Argh1') ;
+        is( undef, print( $tee "Argh2\n" ), 'teelaunch: write Argh2') ;
+        # write not done
+        is( "Hi!\nHoo\n", file_to_string( 'W/tmp/tests/tests_teelaunch.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch.txt is still Hi!\nHoo\n' ) ;
+        print join( ' ', $tee->handles ), "\n";
+        is( 2, scalar $tee->handles, 'teelaunch: 2 handles') ;
+        shift @{*{$tee}};
+        print join(' ', $tee->handles), "\n" ;
+        is( 1, scalar $tee->handles, 'teelaunch: 1 handle') ;
+        is( 1, print( $tee "Argh3\n" ), 'teelaunch: write Argh3 yeah') ;
+
+        shift @{*{$tee}};
+        # will not print anything now
+        is( 0, scalar $tee->handles, 'teelaunch: 0 handle') ;
+        is( 1, print( $tee "Argh 4\n" ), 'teelaunch: write Argh4 no') ;
+
+        # Second time, lesson learnt IO::Tee
+        $mysync->{logfile} = 'W/tmp/tests/tests_teelaunch2.txt' ;
+        isa_ok( $tee = teelaunch( $mysync ), 'IO::Tee' , 'teelaunch: logfile W/tmp/tests/tests_teelaunch2.txt' ) ;
+        is( 1, print( $tee "Hi!\n" ), 'teelaunch: write Hi!') ;
+        is( "Hi!\n", file_to_string( 'W/tmp/tests/tests_teelaunch2.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch2.txt is Hi!\n' ) ;
+        is( 1, print( $tee "Hoo\n" ), 'teelaunch: write Hoo') ;
+        is( "Hi!\nHoo\n", file_to_string( 'W/tmp/tests/tests_teelaunch2.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch2.txt is Hi!\nHoo\n' ) ;
+
+        is( 1, teefinish( $mysync ), 'teefinish: return 1') ;
+        is( 1, print( $tee "Argh1\n" ), 'teelaunch: write Argh1') ;
+        is( 1, print( $tee "Argh2\n" ), 'teelaunch: write Argh2') ;
+        is( "Hi!\nHoo\n", file_to_string( 'W/tmp/tests/tests_teelaunch2.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch2.txt is still Hi!\nHoo\n' ) ;
+        is( 1, teefinish( $mysync ), 'teefinish: still return 1') ;
+
         note( 'Leaving  tests_teelaunch()' ) ;
         return ;
 }
@@ -15268,6 +17409,28 @@ sub teelaunch
         return $tee ;
 }
 
+sub teefinish
+{
+        my $mysync = shift ;
+
+        if ( ! defined( $mysync ) ) { return ; }
+
+        my $tee = $mysync->{tee} ;
+
+        if ( ! defined( $tee ) ) { return ; }
+
+        if ( 2 == scalar $tee->handles )
+        {
+                shift @{*{$tee}};
+        }
+        else
+        {
+                # nothing
+        }
+        return scalar $tee->handles ;
+}
+
+
 sub getpwuid_any_os
 {
         my $uid = shift ;
@@ -15278,15 +17441,44 @@ sub getpwuid_any_os
 
 }
 
+
+
+sub abortifneeded
+{
+        my $mysync = shift ;
+        if ( -e $mysync->{ abortfile } )
+        {
+                myprint( "Asked to terminate by file $mysync->{ abortfile }\n" ) ;
+                do_and_print_stats( $mysync ) ;
+                myprint( "You should resynchronize those accounts by running a sync again,\n",
+                         "since some messages and entire folders might still be missing on host2.\n"
+                ) ;
+                exit_clean( $mysync, $EXIT_BY_FILE ) ;
+                return ;
+        }
+        else
+        {
+                return ;
+        }
+}
+
 sub simulong
 {
-	my $max_seconds = shift ;
+        my $mysync = shift ;
+
+        my $max_seconds = $mysync->{ simulong } ;
+
+        if ( ! $max_seconds ) { return ; }
+
 	my $division = 5 ;
-	my $last_count = $division * $max_seconds ;
+	my $last_count = int( $division * $max_seconds ) ;
+        $mysync->{ debug } and myprint "last_count $last_count = int( division $division * max_seconds $max_seconds)\n" ;
 	foreach my $i ( 1 .. ( $last_count ) ) {
-		 myprint( "Are you still here ETA: " . ($last_count - $i) . "/$last_count msgs left\n" ) ;
+                myprint( "Are you still here ETA: " . ( $last_count - $i ) . "/$last_count msgs left\n" ) ;
+                #this one is for testing huge page behavior
 		#myprint( "Are you still here ETA: " . ($last_count - $i) . "/$last_count  msgs left\n" . ( "Ah" x 40 . "\n") x 4000 ) ;
 		sleep( 1 / $division ) ;
+                abortifneeded( $mysync ) ;
 	}
 
 	return ;
@@ -15302,12 +17494,14 @@ sub printenv
 	return ;
 }
 
-sub testsexit
+
+sub unittestssuite
 {
         my $mysync = shift ;
         if ( ! ( $mysync->{ tests }  or $mysync->{ testsdebug } or $mysync->{ testsunit } ) ) {
                 return ;
         }
+
         my $test_builder = Test::More->builder ;
         tests( $mysync ) ;
         testsdebug( $mysync ) ;
@@ -15323,16 +17517,12 @@ sub testsexit
                 #$test_builder->reset(  ) ;
                 myprint( "Summary of tests: failed $nb_tests_failed tests, run $nb_tests_run tests, expected to run $nb_tests_expected tests.\n",
                 "List of failed tests:\n", $tests_failed ) ;
-                exit $EXIT_TESTS_FAILED ;
+                return $EXIT_TESTS_FAILED ;
         }
 
         cleanup_mess_from_tests(  ) ;
-        # Cover is larger with --tests --testslive
-        if ( ! $mysync->{ testslive } )
-        {
-                exit ;
-        }
-        return ;
+
+        return 0 ;
 }
 
 sub cleanup_mess_from_tests
@@ -15476,8 +17666,8 @@ sub gmail12
 	$mysync->{ssl1} = ( defined $mysync->{ssl1} ) ? $mysync->{ssl1} : 1 ;
 	$mysync->{host2} ||= 'imap.gmail.com' ;
 	$mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
-	$mysync->{maxbytespersecond} ||= 20_000 ; # should be 10_000 when computed from Gmail documentation
-	$mysync->{maxbytesafter} ||= 1_000_000_000 ;
+	$mysync->{maxbytespersecond} ||= 20_000 ; # should be less than 10_000 when computed from Gmail documentation
+	$mysync->{maxbytesafter} ||= 1_000_000_000 ; # In fact it is documented as half: 500_000_000
 	$mysync->{automap}   = ( defined $mysync->{automap} )  ? $mysync->{automap} : 1 ;
 	$mysync->{maxsleep}  = ( defined $mysync->{maxsleep} ) ? $mysync->{maxsleep} : $MAX_SLEEP ; ;
 	$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 0 ;
@@ -15495,8 +17685,8 @@ sub gmail1
 	# Gmail at host2
 	$mysync->{host1} ||= 'imap.gmail.com' ;
 	$mysync->{ssl1} = ( defined $mysync->{ssl1} ) ? $mysync->{ssl1} : 1 ;
-	$mysync->{maxbytespersecond} ||= 40_000 ; # should be 20_000 computed from by Gmail documentation
-	$mysync->{maxbytesafter} ||= 2_500_000_000 ;
+	$mysync->{maxbytespersecond} ||= 40_000 ;     # should be 30_000 computed from by Gmail documentation
+	$mysync->{maxbytesafter} ||= 3_000_000_000 ;  #
 	$mysync->{automap}   = ( defined $mysync->{automap} ) ? $mysync->{automap} : 1 ;
 	$mysync->{maxsleep}  = ( defined $mysync->{maxsleep} ) ? $mysync->{maxsleep} : $MAX_SLEEP ; ;
 	$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 1 ;
@@ -15513,8 +17703,8 @@ sub gmail2
 	# Gmail at host2
 	$mysync->{host2} ||= 'imap.gmail.com' ;
 	$mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
-	$mysync->{maxbytespersecond} ||= 20_000 ; # should be 10_000 computed from by Gmail documentation
-	$mysync->{maxbytesafter} ||= 1_000_000_000 ; # In fact it is documented as half: 500_000_000
+	$mysync->{maxbytespersecond} ||= 20_000 ;     # should be less than 10_000 computed from by Gmail documentation
+	$mysync->{maxbytesafter} ||= 1_000_000_000 ;  # In fact it is documented as half: 500_000_000
 
 	$mysync->{automap} = ( defined $mysync->{automap} ) ? $mysync->{automap} : 1 ;
 	#$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 1 ;
@@ -15571,7 +17761,7 @@ sub office2
         $mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
         $mysync->{ maxsize } ||= 45_000_000 ;
         $mysync->{maxmessagespersecond} ||= 4 ;
-        #push @regexflag, 's/\\\\Flagged//g' ; # No problem without! tested 2018_09_10
+        #push @{ $mysync->{ regexflag } }, 's/\\\\Flagged//g' ; # No problem without! tested 2018_09_10
         $disarmreadreceipts = ( defined $disarmreadreceipts ) ? $disarmreadreceipts : 1 ;
         # I dislike double negation but here is one
         if ( ! $mysync->{noregexmess} )
@@ -15607,7 +17797,7 @@ sub exchange2
         $disarmreadreceipts = ( defined $disarmreadreceipts ) ? $disarmreadreceipts : 1 ;
         # I dislike double negation but here are two
         if ( ! $mysync->{noregexflag} ) {
-                push @regexflag, 's/\\\\Flagged//g' ;
+                push @{ $mysync->{ regexflag } }, 's/\\\\Flagged//g' ;
         }
         if ( ! $mysync->{noregexmess} ) {
                 push @regexmess, 's,(.{10239}),$1\r\n,g' ;
@@ -15649,14 +17839,17 @@ sub tests_resolv
 	is( undef, resolv( 'hostnotexist' ), 'resolv: hostnotexist => undef' ) ;
 	is( '127.0.0.1', resolv( '127.0.0.1' ), 'resolv: 127.0.0.1 => 127.0.0.1' ) ;
 	is( '127.0.0.1', resolv( 'localhost' ), 'resolv: localhost => 127.0.0.1' ) ;
-	is( '5.135.158.182', resolv( 'imapsync.lamiral.info' ), 'resolv: imapsync.lamiral.info => 5.135.158.182' ) ;
+	is( '2001:41d0:2:84e0::1', resolv( 'imapsync.lamiral.info' ), 'resolv: imapsync.lamiral.info => 2001:41d0:2:84e0::1' ) ;
 
 	# ip6-localhost ( in /etc/hosts )
 	is( '::1', resolv( 'ip6-localhost' ), 'resolv: ip6-localhost => ::1' ) ;
 	is( '::1', resolv( '::1' ), 'resolv: ::1 => ::1' ) ;
-	# ks2
+	# ks2ipv6 now has CNAME ks6ipv6
 	is( '2001:41d0:8:d8b6::1', resolv( '2001:41d0:8:d8b6::1' ),  'resolv:  2001:41d0:8:d8b6::1 => 2001:41d0:8:d8b6::1' ) ;
-	is( '2001:41d0:8:d8b6::1', resolv( 'ks2ipv6.lamiral.info' ), 'resolv: ks2ipv6.lamiral.info => 2001:41d0:8:d8b6::1' ) ;
+	is( '2001:41d0:8:9951::1', resolv( 'ks6ipv6.lamiral.info' ), 'resolv: ks6ipv6.lamiral.info => 2001:41d0:8:9951::1' ) ;
+	# ks6
+	is( '2001:41d0:8:9951::1', resolv( '2001:41d0:8:9951::1' ),  'resolv:  2001:41d0:8:9951::1 => 2001:41d0:8:9951::1' ) ;
+	is( '2001:41d0:8:9951::1', resolv( 'ks6ipv6.lamiral.info' ), 'resolv: ks6ipv6.lamiral.info => 2001:41d0:8:9951::1' ) ;
 	# ks3
 	is( '2001:41d0:8:bebd::1', resolv( '2001:41d0:8:bebd::1' ),  'resolv:  2001:41d0:8:bebd::1 => 2001:41d0:8:bebd::1' ) ;
 	is( '2001:41d0:8:bebd::1', resolv( 'ks3ipv6.lamiral.info' ), 'resolv: ks3ipv6.lamiral.info => 2001:41d0:8:bebd::1' ) ;
@@ -15692,6 +17885,7 @@ sub resolv_with_getaddrinfo
 {
 	my $host = shift @ARG ;
 
+        $sync->{ debug } and myprint( "Entering resolv_with_getaddrinfo( $host )\n" ) ;
 	if ( ! $host ) { return ; }
 
 	my ( $err_getaddrinfo, @res ) = Socket::getaddrinfo( $host, "", { socktype => Socket::SOCK_RAW } ) ;
@@ -15706,14 +17900,17 @@ sub resolv_with_getaddrinfo
 		if ( $err_getnameinfo ) {
 			myprint( "Cannot getnameinfo of $host: $err_getnameinfo\n" ) ;
 			return ;
-		}
-		$sync->{ debug } and myprint( "$host => $ipaddr\n" ) ;
-		push @addr, $ipaddr ;
-                my $reverse ;
-		( $err_getnameinfo, $reverse ) = Socket::getnameinfo( $ai->{addr}, 0, Socket::NIx_NOSERV() ) ;
-		$sync->{ debug } and myprint( "$host => $ipaddr => $reverse\n" ) ;
-	}
+		}else{
+                        $sync->{ debug } and myprint( "$host => $ipaddr\n" ) ;
+                        push @addr, $ipaddr ;
+                        my $reverse ;
+                        ( $err_getnameinfo, $reverse ) = Socket::getnameinfo( $ai->{addr}, 0, Socket::NIx_NOSERV() ) ;
+                        $sync->{ debug } and myprint( "$host => $ipaddr => $reverse\n" ) ;
+                }
+                $sync->{ debug } and myprint( "$host => $ipaddr\n" ) ;
 
+	}
+        $sync->{ debug } and myprint( "Leaving resolv_with_getaddrinfo( $host => $addr[0])\n" ) ;
         return $addr[0] ;
 }
 
@@ -15733,8 +17930,8 @@ sub tests_resolvrev
 	is( 'ip6-localhost', resolvrev( 'ip6-localhost' ), 'resolvrev: ip6-localhost => ip6-localhost' ) ;
 	is( 'ip6-localhost', resolvrev( '::1' ), 'resolvrev: ::1 => ip6-localhost' ) ;
 	# ks2
-	is( 'ks2ipv6.lamiral.info', resolvrev( '2001:41d0:8:d8b6::1' ),  'resolvrev:  2001:41d0:8:d8b6::1 => ks2ipv6.lamiral.info' ) ;
-	is( 'ks2ipv6.lamiral.info', resolvrev( 'ks2ipv6.lamiral.info' ), 'resolvrev: ks2ipv6.lamiral.info => ks2ipv6.lamiral.info' ) ;
+	is( 'ks6ipv6.lamiral.info', resolvrev( '2001:41d0:8:d8b6::1' ),  'resolvrev:  2001:41d0:8:d8b6::1 => ks6ipv6.lamiral.info' ) ;
+	is( 'ks6ipv6.lamiral.info', resolvrev( 'ks6ipv6.lamiral.info' ), 'resolvrev: ks6ipv6.lamiral.info => ks6ipv6.lamiral.info' ) ;
 	# ks3
 	is( 'ks3ipv6.lamiral.info', resolvrev( '2001:41d0:8:bebd::1' ),  'resolvrev:  2001:41d0:8:bebd::1 => ks3ipv6.lamiral.info' ) ;
 	is( 'ks3ipv6.lamiral.info', resolvrev( 'ks3ipv6.lamiral.info' ), 'resolvrev: ks3ipv6.lamiral.info => ks3ipv6.lamiral.info' ) ;
@@ -15793,7 +17990,7 @@ sub tests_imapsping
 	is( undef, imapsping(  ), 'imapsping: no args => undef' ) ;
 	is( undef, imapsping( 'hostnotexist' ), 'imapsping: hostnotexist => undef' ) ;
 	is( 1, imapsping( 'imapsync.lamiral.info' ), 'imapsping: imapsync.lamiral.info => 1' ) ;
-        is( 1, imapsping( 'ks2ipv6.lamiral.info' ), 'imapsping: ks2ipv6.lamiral.info => 1' ) ;
+        is( 1, imapsping( 'ks6ipv6.lamiral.info' ), 'imapsping: ks6ipv6.lamiral.info => 1' ) ;
 	note( 'Leaving  tests_imapsping()' ) ;
 	return ;
 }
@@ -15873,7 +18070,7 @@ sub tests_sslcheck
 
 	$mysync = {
 		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
+		host1 => 'test1.lamiral.info',
 		tls1 => 1,
 	} ;
 
@@ -15881,32 +18078,32 @@ sub tests_sslcheck
 
 	$mysync = {
 		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
+		host1 => 'test1.lamiral.info',
 	} ;
 
 
-	is( 1, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info => 1' ) ;
-	is( 1, $mysync->{ssl1}, 'sslcheck: imapsync.lamiral.info => ssl1 1' ) ;
+	is( 1, sslcheck( $mysync ), 'sslcheck: test1.lamiral.info => 1' ) ;
+	is( 1, $mysync->{ssl1}, 'sslcheck: test1.lamiral.info => ssl1 1' ) ;
 
 	$mysync->{sslcheck} = 0 ;
 	is( undef, sslcheck( $mysync ), 'sslcheck: sslcheck off => undef' ) ;
 
 	$mysync = {
 		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
+		host1 => 'test1.lamiral.info',
                 host2 => 'test2.lamiral.info',
 	} ;
 
-        is( 2, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info + test2.lamiral.info => 2' ) ;
+        is( 2, sslcheck( $mysync ), 'sslcheck: test1.lamiral.info + test2.lamiral.info => 2' ) ;
 
 	$mysync = {
 		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
+		host1 => 'test1.lamiral.info',
                 host2 => 'test2.lamiral.info',
                 tls1  => 1,
 	} ;
 
-        is( 1, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info + test2.lamiral.info + tls1 => 1' ) ;
+        is( 1, sslcheck( $mysync ), 'sslcheck: test1.lamiral.info + test2.lamiral.info + tls1 => 1' ) ;
 
 	note( 'Leaving  tests_sslcheck()' ) ;
 	return ;
@@ -15977,10 +18174,10 @@ sub testslive_init
 sub testslive6_init
 {
         my $mysync = shift ;
-        $mysync->{host1}     ||= 'ks2ipv6.lamiral.info' ;
+        $mysync->{host1}     ||= 'ks6ipv6.lamiral.info' ;
         $mysync->{user1}     ||= 'test1' ;
         $mysync->{password1} ||= 'secret1' ;
-        $mysync->{host2}     ||= 'ks2ipv6.lamiral.info' ;
+        $mysync->{host2}     ||= 'ks6ipv6.lamiral.info' ;
         $mysync->{user2}     ||= 'test2' ;
         $mysync->{password2} ||= 'secret2' ;
         return ;
@@ -16143,7 +18340,6 @@ sub mygetppid
 }
 
 
-
 sub tests_toggle_sleep
 {
         note( 'Entering tests_toggle_sleep()' ) ;
@@ -16318,6 +18514,147 @@ EOF
         return( $usage ) ;
 }
 
+
+
+
+sub setvalfromcgikey
+{
+        my ( $mysync, $mycgi, $key, $val ) = @ARG ;
+
+        my $badthings = 0 ;
+        
+                
+        my ( $name, $type, $struct ) ;
+        if ( $key !~ m/^([\w\d\|]+)([=:][isf])?([\+!\@\%])?$/mxs )
+        {
+                $badthings++ ;
+                next ;    # Unknown item
+        }
+        else
+        {
+                $name   = [ split '|', $1, 1 ]->[0] ; # option name ab|cd|ef => keep only ab
+                $type   = $2 ; # = or : followed by i or s or f
+                $struct = $3 ; # + or ! or @ or %
+        }
+                
+        if ( ( $struct || q{} ) eq '+' )
+        {
+                ${$val} = $mycgi->param( $name ) ;    # "Incremental" integer
+        }
+        elsif ( $type )
+        {
+                my @values = $mycgi->multi_param( $name ) ;
+
+                #myprint( "type[$type]values[@values]\$struct[", $struct || q{}, "]val[$val]ref(val)[", ref($val), "]\n" ) ;
+                if ( ( $struct || q{} ) eq '%' or ref( $val ) eq 'HASH' )
+                {
+                        setvalfromhash( $val, $type, @values ) ;
+                }
+                else 
+                {
+                        setvalfromlist( $mysync, $val, $name, $type, $struct, @values ) ;
+                }
+        }
+        else
+        {
+                setvalfromcheckbox( $mysync, $mycgi, $key, $name, $val ) ;
+        }
+                
+        return $badthings ;
+}
+
+sub setvalfromlist
+{
+        my ( $mysync, $val, $name, $type, $struct, @values ) = @ARG ;
+        if ( $type =~ m/i$/mxs )
+        {
+                @values = map { q{} ne $_ ? int $_ : undef } @values ;
+        }
+        elsif ( $type =~ m/f$/mxs )
+        {
+                @values = map { 0 + $_ } @values ;
+        }
+
+        if ( ( $struct || q{} ) eq '@' )
+        {
+                @{ ${$val} } = @values ;
+                my @option = map { +( "--$name", "$_" ) } @values ;
+                push @{ $mysync->{ cmdcgi } }, @option ;
+        }
+        elsif ( ref( $val ) eq 'ARRAY' )
+        {
+                @{$val} = @values ;
+        }
+        elsif ( my $value = $values[0] )
+        {
+                ${$val} = $value ;
+                push @{ $mysync->{ cmdcgi } }, "--$name", $value ;
+        }
+        else
+        {
+        }
+        
+        return ;
+}
+sub setvalfromhash
+{
+        my ( $val, $type, @values ) = @ARG ;
+
+        my %values = map { split /=/mxs, $_ } @values ;
+
+        if ( $type =~ m/i$/mxs )
+        {
+                foreach my $k ( keys %values )
+                {
+                        $values{$k} = int $values{$k} ;
+                }
+        }
+        elsif ( $type =~ m/f$/mxs )
+        {
+                foreach my $k ( keys %values ) {
+                        $values{$k} = 0 + $values{$k};
+                }
+        }
+
+        if ( 'REF' eq ref $val )
+        {
+                %{ ${$val} } = %values ;
+        }
+        else 
+        {
+                %{$val} = %values ;
+        }
+        
+        return ;
+}
+
+
+sub setvalfromcheckbox
+{
+        my ( $mysync, $mycgi, $key, $name, $val ) = @ARG ;
+        
+        # Checkbox
+        # --noname is set by name=0 or name=
+        my $value = $mycgi->param( $name ) ;
+        if ( defined $value )
+        {
+                ${$val} = $value ;
+                if ( $value )
+                {
+                        push @{ $mysync->{ cmdcgi } }, "--$name" ;
+                }
+                else
+                {
+                        push @{ $mysync->{ cmdcgi } }, "--no$name" ;
+                }
+        }
+        else
+        {
+                ${$val} = undef ;
+        }
+        return ;
+}
+
 sub myGetOptions
 {
 
@@ -16325,6 +18662,7 @@ sub myGetOptions
         # https://metacpan.org/release/Getopt-Long-CGI
         # So this sub function is under the same license as Getopt-Long-CGI Luke Ross wants it,
         # which was Perl 5.6 or later licenses at the date of the copy.
+        # It also applies for the sub functions called from this one.
 
         my $mysync        = shift @ARG ;
         my $arguments_ref = shift @ARG ;
@@ -16345,84 +18683,10 @@ sub myGetOptions
         foreach my $key ( sort keys %options ) {
                 my $val = $options{$key} ;
 
-                if ( $key !~ m/^([\w\d\|]+)([=:][isf])?([\+!\@\%])?$/mxs ) {
-                        $badthings++ ;
-                        next ;    # Unknown item
-                }
+                $badthings += setvalfromcgikey( $mysync, $mycgi, $key, $val ) ;
 
-                my $name = [ split '|', $1, 1 ]->[0] ;
-
-                if ( ( $3 || q{} ) eq '+' ) {
-                        ${$val} = $mycgi->param( $name ) ;    # "Incremental" integer
-                }
-                elsif ( $2 ) {
-                        my @values = $mycgi->multi_param( $name ) ;
-                        my $type   = $2 ;
-
-                        #myprint( "type[$type]values[@values]\$3[", $3 || q{}, "]val[$val]ref(val)[", ref($val), "]\n" ) ;
-                        if ( ( $3 || q{} ) eq '%' or ref( $val ) eq 'HASH' ) {
-                                my %values = map { split /=/mxs, $_ } @values ;
-
-                                if ( $type =~ m/i$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = int $values{$k} ;
-                                        }
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = 0 + $values{$k};
-                                        }
-                                }
-                                if ( 'REF' eq ref $val ) {
-                                        %{ ${$val} } = %values ;
-                                }
-                                else {
-                                        %{$val} = %values ;
-                                }
-                        }
-                        else {
-                                if ( $type =~ m/i$/mxs ) {
-                                        @values = map { q{} ne $_ ? int $_ : undef } @values ;
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        @values = map { 0 + $_ } @values ;
-                                }
-                                if ( ( $3 || q{} ) eq '@' ) {
-                                        @{ ${$val} } = @values ;
-                                        my @option = map { +( "--$name", "$_" ) } @values ;
-                                        push @{ $mysync->{ cmdcgi } }, @option ;
-                                }
-                                elsif ( ref( $val ) eq 'ARRAY' ) {
-                                        @{$val} = @values ;
-                                }
-                                elsif ( my $value = $values[0] )
-                                {
-                                        ${$val} = $value ;
-                                        push @{ $mysync->{ cmdcgi } }, "--$name", $value ;
-                                }
-                                else
-                                {
-
-                                }
-                        }
-                }
-                else
-                {
-                        # Checkbox
-                        # Considers only --name
-                        # Should consider also --no-name and --noname
-                        my $value = $mycgi->param( $name ) ;
-                        if ( $value )
-                        {
-                                ${$val} = 1 ;
-                                push @{ $mysync->{ cmdcgi } }, "--$name" ;
-                        }
-                        else
-                        {
-                                ${$val} = undef ;
-                        }
-                }
         }
+        
         if ( $badthings ) {
                 return ;    # undef or ()
         }
@@ -16432,11 +18696,12 @@ sub myGetOptions
 }
 
 
-my @blabla ; # just used to check get_options_cgi() with an array
+
 
 sub tests_get_options_cgi_context
 {
-	note( 'Entering tests_get_options_cgi()' ) ;
+	note( 'Entering tests_get_options_cgi_context()' ) ;
+
 
 # Temporary, have to think harder about testing CGI context in command line --tests
 	# API:
@@ -16454,15 +18719,21 @@ sub tests_get_options_cgi_context
 	my $mysync ;
 	is( undef, get_options( $mysync ), 'get_options cgi context: no CGI module => undef' ) ;
 
-	require CGI ;
-	CGI->import( qw( -no_debug  -utf8 ) ) ;
+        # skip all next tests if the CGI module is not available
+
+        SKIP: {
+                if ( ! eval { require CGI ; }  ) {
+                        skip( "CGI Perl module is not installed", 19 ) ;
+                }
+
+                CGI->import( qw( -no_debug  -utf8 ) ) ;
 
 	is( undef, get_options( $mysync ), 'get_options cgi context: no CGI param => undef' ) ;
 	# Testing boolean
 	$mysync->{cgi} = CGI->new( 'version=on&debugenv=on' ) ;
 	local $ENV{'QUERY_STRING'} = 'version=on&debugenv=on' ;
 	is( 22,   get_options( $mysync ), 'get_options cgi context: QUERY_STRING => 22' ) ;
-	is(  1,   $mysync->{ version },        'get_options cgi context: --version => 1' ) ;
+	is(  'on',   $mysync->{ version },        'get_options cgi context: --version => on' ) ;
 	# debugenv is not allowed in cgi context
 	is(  undef,   $mysync->{debugenv},        'get_options cgi context: $mysync->{debugenv} => undef' ) ;
 
@@ -16474,14 +18745,6 @@ sub tests_get_options_cgi_context
 	is( 'test1',  $mysync->{user1},    'get_options cgi context: $mysync->{user1} => test1' ) ;
         #local $ENV{'QUERY_STRING'} = undef ;
 
-	# Testing @
-	$mysync->{cgi} = CGI->new( 'blabla=fd1' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1' ],  [ @blabla ],    'get_options cgi context: @blabla => fd1' ) ;
-	$mysync->{cgi} = CGI->new( 'blabla=fd1&blabla=fd2' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1', 'fd2' ],  [ @blabla ],    'get_options cgi context: @blabla => fd1, fd2' ) ;
-
 	# Testing s@ as ref
 	$mysync->{cgi} = CGI->new( 'folder=fd1' ) ;
 	get_options( $mysync ) ;
@@ -16522,10 +18785,21 @@ sub tests_get_options_cgi_context
         #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
 
         $mysync ={} ;
-	$mysync->{cgi} = CGI->new( 'justfoldersizes=on' ) ;
+        $mysync->{cgi} = CGI->new( 'testslive=on' ) ;
         get_options( $mysync ) ;
-	is( 1,  $mysync->{ justfoldersizes },    'get_options cgi context: --justfoldersizes=1 => justfoldersizes => 1' ) ;
-        myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
+        is( 'on',  $mysync->{ testslive },    'get_options cgi context: --testslive=on => testslive => on' ) ;
+        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
+
+                $mysync ={} ;
+                $mysync->{cgi} = CGI->new( 'log=0' ) ;
+                get_options( $mysync ) ;
+                is( 0,  $mysync->{ log },    'get_options cgi context: --log=0 => log => 0' ) ;
+                #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
+
+
+        # What is this fucked up indentation?
+        }
+
 
 	note( 'Leaving  tests_get_options_cgi_context()' ) ;
 	return ;
@@ -16545,41 +18819,43 @@ sub get_options_cgi
         my $opt_ret = myGetOptions(
 	$mysync,
 	\@arguments,
-	'abort'            => \$mysync->{abort},
+        'abort'            => \$mysync->{ abort },
+        'abortbyfile'      => \$mysync->{ abortbyfile },
         'host1=s'          => \$mysync->{ host1 },
         'host2=s'          => \$mysync->{ host2 },
         'user1=s'          => \$mysync->{ user1 },
         'user2=s'          => \$mysync->{ user2 },
-        'password1=s'      => \$mysync->{password1},
-        'password2=s'      => \$mysync->{password2},
-        'dry!'             => \$mysync->{dry},
-        'version'          => \$mysync->{version},
-        'ssl1!'            => \$mysync->{ssl1},
-        'ssl2!'            => \$mysync->{ssl2},
-        'tls1!'            => \$mysync->{tls1},
-        'tls2!'            => \$mysync->{tls2},
-        'justlogin!'       => \$mysync->{justlogin},
-        'justconnect!'     => \$mysync->{justconnect},
-        'addheader!'       => \$mysync->{addheader},
-        'automap!'         => \$mysync->{automap},
-        'justautomap!'     => \$mysync->{justautomap},
-	'gmail1'           => \$mysync->{gmail1},
-	'gmail2'           => \$mysync->{gmail2},
-	'office1'          => \$mysync->{office1},
-	'office2'          => \$mysync->{office2},
-	'exchange1'        => \$mysync->{exchange1},
-	'exchange2'        => \$mysync->{exchange2},
-	'domino1'          => \$mysync->{domino1},
-	'domino2'          => \$mysync->{domino2},
-        'f1f2=s@'          => \$mysync->{f1f2},
-        'f1f2h=s%'         => \$mysync->{f1f2h},
-        'folder=s@'        => \$mysync->{ folder },
-        'blabla=s'         => \@blabla,
-        'testslive!'       => \$mysync->{testslive},
-        'testslive6!'      => \$mysync->{testslive6},
-        'releasecheck!'    => \$mysync->{releasecheck},
-        'simulong=i'       => \$mysync->{simulong},
-        'debugsleep=f'     => \$mysync->{debugsleep},
+        'password1=s'      => \$mysync->{ password1 },
+        'password2=s'      => \$mysync->{ password2 },
+        'dry!'             => \$mysync->{ dry },
+        'dry1!'            => \$mysync->{ dry1 },
+        'version'          => \$mysync->{ version },
+        'ssl1!'            => \$mysync->{ ssl1 },
+        'ssl2!'            => \$mysync->{ ssl2 },
+        'tls1!'            => \$mysync->{ tls1 },
+        'tls2!'            => \$mysync->{ tls2 },
+        'justbanner!'      => \$mysync->{ justbanner },
+        'justlogin!'       => \$mysync->{ justlogin },
+        'justconnect!'     => \$mysync->{ justconnect },
+        'addheader!'       => \$mysync->{ addheader },
+        'automap!'         => \$mysync->{ automap },
+        'justautomap!'     => \$mysync->{ justautomap },
+	'gmail1'           => \$mysync->{ gmail1 },
+	'gmail2'           => \$mysync->{ gmail2 },
+	'office1'          => \$mysync->{ office1 },
+	'office2'          => \$mysync->{ office2 },
+	'exchange1'        => \$mysync->{ exchange1 },
+	'exchange2'        => \$mysync->{ exchange2 },
+	'domino1'          => \$mysync->{ domino1 },
+	'domino2'          => \$mysync->{ domino2 },
+        'f1f2=s@'          => \$mysync->{ f1f2 },
+        'f1f2h=s%'         => \$mysync->{ f1f2h },
+        'folder=s@'        => \$mysync->{ folder  },
+        'testslive!'       => \$mysync->{ testslive },
+        'testslive6!'      => \$mysync->{ testslive6 },
+        'releasecheck!'    => \$mysync->{ releasecheck },
+        'simulong=f'       => \$mysync->{ simulong },
+        'debugsleep=f'     => \$mysync->{ debugsleep },
         'subfolder1=s'     => \$mysync->{ subfolder1 },
         'subfolder2=s'     => \$mysync->{ subfolder2 },
         'justfolders!'     => \$mysync->{ justfolders },
@@ -16587,9 +18863,15 @@ sub get_options_cgi
         'delete1!'         => \$mysync->{ delete1 },
         'delete2!'         => \$mysync->{ delete2 },
         'delete2duplicates!'  => \$mysync->{ delete2duplicates },
-        'tail!'               => \$mysync->{tail},
+        'tail!'            => \$mysync->{ tail },
+        'tmphash=s'        => \$mysync->{ tmphash },
+        'exitwhenover=i'   => \$mysync->{ exitwhenover },
+        'syncduplicates!'  => \$mysync->{ syncduplicates },
+        'log!'             => \$mysync->{ log },
+        'loglogfile!'      => \$mysync->{ loglogfile },
+        
 
-#  blabla and f1f2h=s% could be removed but
+# f1f2h=s% could be removed but
 # tests_get_options_cgi() should be split before
 # with a sub tests_myGetOptions()
         ) ;
@@ -16624,9 +18906,9 @@ sub get_options_cmd
         'debugcontent!' => \$debugcontent,
         'debugsleep=f'  => \$mysync->{debugsleep},
         'debugflags!'   => \$debugflags,
-        'debugimap!'    => \$debugimap,
-        'debugimap1!'   => \$debugimap1,
-        'debugimap2!'   => \$debugimap2,
+        'debugimap!'    => \$mysync->{ debugimap },
+        'debugimap1!'   => \$mysync->{ acc1 }->{ debugimap },
+        'debugimap2!'   => \$mysync->{ acc2 }->{ debugimap },
         'debugdev!'     => \$debugdev,
         'debugmemory!'  => \$mysync->{debugmemory},
         'debugfolders!' => \$mysync->{debugfolders},
@@ -16635,8 +18917,11 @@ sub get_options_cmd
         'debugenv!'     => \$mysync->{debugenv},
         'debugsig!'     => \$mysync->{debugsig},
         'debuglabels!'  => \$mysync->{debuglabels},
-        'simulong=i'    => \$mysync->{simulong},
+
+        'simulong=f'    => \$mysync->{simulong},
         'abort'         => \$mysync->{abort},
+        'abortbyfile'   => \$mysync->{abortbyfile},
+
         'host1=s'       => \$mysync->{ host1 },
         'host2=s'       => \$mysync->{ host2 },
         'port1=i'       => \$mysync->{port1},
@@ -16653,8 +18938,8 @@ sub get_options_cmd
         'exchange2'   => \$mysync->{exchange2},
         'domino1'     => \$mysync->{domino1},
         'domino2'     => \$mysync->{domino2},
-        'domain1=s'   => \$domain1,
-        'domain2=s'   => \$domain2,
+        'domain1=s'   => \$mysync->{ acc1 }->{ domain },
+        'domain2=s'   => \$mysync->{ acc2 }->{ domain },
         'password1=s' => \$mysync->{password1},
         'password2=s' => \$mysync->{password2},
         'passfile1=s' => \$mysync->{ passfile1 },
@@ -16662,6 +18947,15 @@ sub get_options_cmd
         'authmd5!'    => \$authmd5,
         'authmd51!'   => \$authmd51,
         'authmd52!'   => \$authmd52,
+
+        'trylogin!'   => \$mysync->{ trylogin },
+
+        'oauthdirect1=s' => \$mysync->{ acc1 }->{ oauthdirect },
+        'oauthdirect2=s' => \$mysync->{ acc2 }->{ oauthdirect },
+
+        'oauthaccesstoken1=s' => \$mysync->{ acc1 }->{ oauthaccesstoken },
+        'oauthaccesstoken2=s' => \$mysync->{ acc2 }->{ oauthaccesstoken },
+
         'sep1=s'      => \$mysync->{ sep1 },
         'sep2=s'      => \$mysync->{ sep2 },
         'sanitize!'         => \$mysync->{ sanitize },
@@ -16687,10 +18981,11 @@ sub get_options_cmd
         'pipemess=s'        => \@pipemess,
         'pipemesscheck!'    => \$pipemesscheck,
         'disarmreadreceipts!' => \$disarmreadreceipts,
-        'regexflag=s'         => \@regexflag,
-        'noregexflag'         => \$mysync->{noregexflag},
-        'filterflags!'        => \$filterflags,
-        'flagscase!'          => \$flagscase,
+        'regexflag=s@'        => \$mysync->{ regexflag },
+        'noregexflag'         => \$mysync->{ noregexflag },
+        'filterflags!'        => \$mysync->{ filterflags },
+        'filterbuggyflags!'   => \$mysync->{ filterbuggyflags },
+        'flagscase!'          => \$mysync->{ flagscase },
         'syncflagsaftercopy!' => \$syncflagsaftercopy,
         'resyncflags!'        => \$mysync->{ resyncflags },
         'synclabels!'         => \$mysync->{ synclabels },
@@ -16703,7 +18998,7 @@ sub get_options_cmd
         'delete2foldersbutnot=s' => \$delete2foldersbutnot,
         'syncinternaldates!' => \$syncinternaldates,
         'idatefromheader!'   => \$idatefromheader,
-        'syncacls!'          => \$syncacls,
+        'syncacls!'          => \$mysync->{ syncacls },
         'maxsize=i'       => \$mysync->{ maxsize },
         'appendlimit=i'   => \$mysync->{ appendlimit },
         'truncmess=i'     => \$mysync->{ truncmess },
@@ -16716,51 +19011,52 @@ sub get_options_cmd
         'foldersizes!'      => \$mysync->{ foldersizes },
         'foldersizesatend!' => \$mysync->{ foldersizesatend },
         'dry!'              => \$mysync->{dry},
+        'dry1!'             => \$mysync->{dry1},
         'expunge1|expunge!' => \$mysync->{ expunge1 },
         'expunge2!'         => \$mysync->{ expunge2 },
         'uidexpunge2!'      => \$mysync->{ uidexpunge2 },
         'subscribed'  => \$subscribed,
         'subscribe!'  => \$subscribe,
         'subscribeall|subscribe_all!'  => \$subscribeall,
-        'justbanner!' => \$justbanner,
+        'justbanner!' => \$mysync->{ justbanner },
         'justfolders!'=> \$mysync->{ justfolders },
         'justfoldersizes!' => \$mysync->{ justfoldersizes },
         'fast!'       => \$fast,
         'version'     => \$mysync->{version},
         'help'        => \$help,
-        'timeout=i'   => \$timeout,
-        'timeout1=i'   => \$mysync->{h1}->{timeout},
-        'timeout2=i'   => \$mysync->{h2}->{timeout},
-        'skipheader=s' => \$skipheader,
+        'timeout=f'   =>  \$mysync->{timeout},
+        'timeout1=f'   => \$mysync->{ acc1 }->{timeout},
+        'timeout2=f'   => \$mysync->{ acc2 }->{timeout},
+        'skipheader=s' => \$mysync->{ skipheader },
         'useheader=s' => \@useheader,
         'wholeheaderifneeded!'   => \$wholeheaderifneeded,
         'messageidnodomain!' => \$messageidnodomain,
         'skipsize!'   => \$skipsize,
         'allowsizemismatch!' => \$allowsizemismatch,
-        'fastio1!'     => \$fastio1,
-        'fastio2!'     => \$fastio2,
+        'fastio1!'     => \$mysync->{ acc1 }->{ fastio },
+        'fastio2!'     => \$mysync->{ acc2 }->{ fastio },
         'sslcheck!'    => \$mysync->{sslcheck},
         'ssl1!'        => \$mysync->{ssl1},
         'ssl2!'        => \$mysync->{ssl2},
-        'ssl1_ssl_version=s' => \$mysync->{h1}->{sslargs}->{SSL_version},
-        'ssl2_ssl_version=s' => \$mysync->{h2}->{sslargs}->{SSL_version},
-        'sslargs1=s%'        => \$mysync->{h1}->{sslargs},
-        'sslargs2=s%'        => \$mysync->{h2}->{sslargs},
+        'ssl1_ssl_version=s' => \$mysync->{ acc1 }->{sslargs}->{SSL_version},
+        'ssl2_ssl_version=s' => \$mysync->{ acc2 }->{sslargs}->{SSL_version},
+        'sslargs1=s%'        => \$mysync->{ acc1 }->{sslargs},
+        'sslargs2=s%'        => \$mysync->{ acc2 }->{sslargs},
         'tls1!'        => \$mysync->{tls1},
         'tls2!'        => \$mysync->{tls2},
         'uid1!'        => \$uid1,
         'uid2!'        => \$uid2,
-        'authmech1=s' => \$authmech1,
-        'authmech2=s' => \$authmech2,
-        'authuser1=s' => \$authuser1,
-        'authuser2=s' => \$authuser2,
-        'proxyauth1'  => \$proxyauth1,
-        'proxyauth2'  => \$proxyauth2,
+        'authmech1=s' => \$mysync->{ acc1 }->{ authmech },
+        'authmech2=s' => \$mysync->{ acc2 }->{ authmech },
+        'authuser1=s' => \$mysync->{ acc1 }->{ authuser },
+        'authuser2=s' => \$mysync->{ acc2 }->{ authuser },
+        'proxyauth1'  => \$mysync->{ acc1 }->{ proxyauth },
+        'proxyauth2'  => \$mysync->{ acc2 }->{ proxyauth },
         'split1=i'    => \$split1,
         'split2=i'    => \$split2,
         'buffersize=i' => \$buffersize,
-        'reconnectretry1=i' => \$reconnectretry1,
-        'reconnectretry2=i' => \$reconnectretry2,
+        'reconnectretry1=i' => \$mysync->{ acc1 }->{ reconnectretry },
+        'reconnectretry2=i' => \$mysync->{ acc2 }->{ reconnectretry },
         'tests!'          => \$mysync->{ tests },
         'testsdebug|tests_debug!' => \$mysync->{ testsdebug },
         'testsunit=s@'    => \$mysync->{testsunit},
@@ -16816,15 +19112,21 @@ sub get_options_cmd
         'nof1f2'           => \$mysync->{nof1f2},
         'f1f2h=s%'         => \$mysync->{f1f2h},
         'justfolderlists!' => \$mysync->{justfolderlists},
-        'delete1emptyfolders' => \$mysync->{delete1emptyfolders},
+        'delete1emptyfolders'   => \$mysync->{delete1emptyfolders},
+        'checknoabletosearch!' => \$mysync->{checknoabletosearch},
+        'syncduplicates!'  => \$mysync->{ syncduplicates },
+
         ) ;
         #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
         $mysync->{ debug } and output( $mysync, "get options: [$opt_ret][$numopt]\n" ) ;
         my $numopt_after = scalar @arguments ;
         #myprint( "get options: [$opt_ret][$numopt][$numopt_after]\n" ) ;
-        if ( $numopt_after ) {
+
+        # The $arguments[0] test is just because parallel adds "" when it is
+        # used with {=7=} in sync_parallel_unix.sh
+        if ( $numopt_after and $arguments[0] ) {
                 myprint(
-                        "Extra arguments found: @arguments\n",
+                        "Found ", scalar( @arguments ), " extra arguments : [@arguments]\n",
                         "It usually means a quoting issue in the command line ",
                         "or some misspelling options.\n",
                 ) ;
@@ -16915,6 +19217,25 @@ sub get_options
 	return $ret ;
 }
 
+
+sub condition_to_leave_after_tests
+{
+        my $mysync = shift ;
+        if ( $mysync->{ testslive } or $mysync->{ testslive6 } )
+        {
+                return 0 ;
+        }
+
+        if ( $mysync->{ tests } 
+          or $mysync->{ testsdebug } 
+          or $mysync->{ testsunit } 
+        )
+        {
+                return 1 ;
+        }
+}
+
+
 sub testunitsession
 {
 	my $mysync = shift ;
@@ -17055,7 +19376,9 @@ sub testsdebug
                 #tests_killpid_by_brother(  ) ;
                 #tests_kill_zero(  ) ;
                 #tests_connect_socket(  ) ;
-                tests_probe_imapssl(  ) ;
+                #tests_probe_imapssl(  ) ;
+                tests_cpu_number(  ) ;
+                tests_mailimapclient_connect(  ) ;
                 #tests_always_fail(  ) ;
 
                 note( 'Leaving  testsdebug()' ) ;
@@ -17077,7 +19400,7 @@ sub tests
                 tests_compare_lists(  ) ;
                 tests_regexmess(  ) ;
                 tests_skipmess(  ) ;
-                tests_flags_regex();
+                tests_regexflags(  );
                 tests_ucsecond(  ) ;
                 tests_permanentflags();
                 tests_flags_filter(  ) ;
@@ -17186,7 +19509,7 @@ sub tests
                 tests_remove_pidfile_not_running(  ) ;
                 tests_match_a_pid_number(  ) ;
                 tests_prefix_seperator_invertion(  ) ;
-                tests_is_an_integer(  ) ;
+                tests_is_integer(  ) ;
                 tests_integer_or_1(  ) ;
                 tests_is_number(  ) ;
                 tests_sig_install(  ) ;
@@ -17232,16 +19555,36 @@ sub tests
                 tests_abort(  ) ;
                 tests_probe_imapssl(  ) ;
                 tests_mailimapclient_connect(  ) ;
+                tests_checknoabletosearch(  ) ;
+                tests_errorsdump(  ) ;
+                tests_errorsanalyse(  ) ;
+                tests_most_common_error(  ) ;
+                tests_errorclassify(  ) ;
+                tests_error_type(  ) ;
+                tests_sanitize_host(  ) ;
+                tests_hmac_sha1_hex(  ) ;
+                tests_total_bytes_max_reached(  ) ;
+                tests_header_construct(  ) ;
+                tests_remove_doublequotes_if_any(  ) ;
+                tests_login_imap(  ) ;
+                tests_login_imap_oauth(  ) ;
+                tests_skipmess_neg(  ) ;
+                tests_localtimez(  ) ;
+                tests_file_to_array(  ) ;
+                tests_cpu_time(  ) ;
+                tests_cpu_percent(  ) ;
+                tests_cpu_percent_global(  ) ;
+                tests_flags_for_host2(  ) ;
                 #tests_resolv(  ) ;
-                
-                # Those three are for later use, when webserver will be inside imapsync 
+
+                # Those three are for later use, when webserver will be inside imapsync
                 # or will be deleted them if I abandon the project.
                 #tests_killpid_by_parent(  ) ;
                 #tests_killpid_by_brother(  ) ;
                 #tests_kill_zero(  ) ;
-                
+
                 #tests_always_fail(  ) ;
-                done_testing( 1496 ) ;
+                done_testing( 1734 ) ;
                 note( 'Leaving  tests()' ) ;
         }
         return ;
@@ -17254,6 +19597,7 @@ sub tests_template
         is( undef, undef,  'template: no args => undef' ) ;
         is_deeply( {}, {}, 'template: a hash is a hash' ) ;
         is_deeply( [], [], 'template: an array is an array' ) ;
+
         note( 'Leaving  tests_template()' ) ;
         return ;
 }
diff --git a/imapsync-1.945 b/imapsync-1.945
deleted file mode 100755
index 5b408bc..0000000
--- a/imapsync-1.945
+++ /dev/null
@@ -1,15978 +0,0 @@
-#!/usr/bin/env perl
-
-# $Id: imapsync,v 1.945 2019/06/26 19:30:56 gilles Exp gilles $
-# structure
-# pod documentation
-# use pragmas
-# main program
-# global variables initialization
-# get_options(  ) ;
-# default values
-# folder loop
-# subroutines
-# sub usage
-
-
-# pod documentation
-
-=pod
-
-=head1 NAME
-
-imapsync - Email IMAP tool for syncing, copying and migrating
-email mailboxes between two imap servers, one way,
-and without duplicates.
-
-=head1 VERSION
-
-This documentation refers to Imapsync $Revision: 1.945 $
-
-=head1 USAGE
-
- To synchronize the source imap account
-   "test1" on server "test1.lamiral.info" with password "secret1"
- to the destination imap account
-   "test2" on server "test2.lamiral.info" with password "secret2"
- do:
-
-  imapsync \
-   --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-   --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-=head1 DESCRIPTION
-
-We sometimes need to transfer mailboxes from one imap server to
-one another.
-
-Imapsync command is a tool allowing incremental and
-recursive imap transfers from one mailbox to another.
-If you don't understand the previous sentence, it's normal,
-it's pedantic computer oriented jargon.
-
-All folders are transferred, recursively, meaning
-the whole folder hierarchy is taken, all messages in them,
-and all messages flags (\Seen \Answered \Flagged etc.)
-are synced too.
-
-Imapsync reduces the amount of data transferred by not transferring
-a given message if it already resides on the destination side.
-Messages that are on the destination side but not on the 
-source side stay as they are (see the --delete2 
-option to have a strict sync).
-
-How imapsync knows a message is already on both sides?
-Same specific headers and the transfer is done only once.
-By default, the identification headers are
-"Message-Id:" and "Received:" lines
-but this choice can be changed with the --useheader option.
-
-All flags are preserved, unread messages will stay unread,
-read ones will stay read, deleted will stay deleted.
-
-You can abort the transfer at any time and restart it later,
-imapsync works well with bad connections and interruptions,
-by design. On a terminal hit Ctr-c twice within two seconds
-in order to abort the program. Hit Ctr-c just once makes 
-imapsync reconnect to both imap servers.
-
-A classical scenario is synchronizing a mailbox B from another mailbox A
-in case you just want to keep a strict copy of A in B. Strict meaning
-all messages in A will be in B but no more.
-
-For this, option --delete2 has to be used, it deletes messages in host2
-folder B that are not in host1 folder A. If you also need to destroy
-host2 folders that are not in host1 then use --delete2folders. See also
---delete2foldersonly and --delete2foldersbutnot to set up exceptions
-on folders to destroy (INBOX will never be destroy, it's a mandatory
-folder in IMAP).
-
-A different scenario is to delete the messages from the source mailbox
-after a successful transfer, it can be a good feature when migrating
-mailboxes since messages will be only on one side. The source account
-will only have messages that are not on the destination yet, ie,
-messages that arrived after a sync or that failed to be copied.
-
-In that case, use the --delete1 option. Option --delete1 implies also
-option --expunge1 so all messages marked deleted on host1 will be really
-deleted. In IMAP protocol deleting a message does not really delete it,
-it marks it with the flag \Deleted, allowing an undelete. Expunging
-a folder removes, definitively, all the messages marked as \Deleted
-in this folder.
-
-You can also decide to remove empty folders once all of their messages
-have been transferred. Add --delete1emptyfolders to obtain this
-behavior.
-
-
-Imapsync is not adequate for maintaining two active imap accounts
-in synchronization when the user plays independently on both sides.
-Use offlineimap (written by John Goerzen) or mbsync (written by
-Michael R. Elkins) for a 2 ways synchronization.
-
-
-=head1 OPTIONS
-
- usage: imapsync [options]
-
-Standard options are the six values forming the credentials, 
-three on each sides, needed to log in into the IMAP servers, ie,
-a host, a username, and a password, two times.
-
-Conventions used:
-
- str means string
- int means integer
- reg means regular expression
- cmd means command
-
- --dry               : Makes imapsync doing nothing for real, just print what
-                       would be done without --dry.
-
-=head2 OPTIONS/credentials
-
-
- --host1        str  : Source or "from" imap server.
- --port1        int  : Port to connect on host1.
-                       Optional since default ports are the 
-                       well known ports 143 or 993.
- --user1        str  : User to login on host1.
- --password1    str  : Password for the user1.
-
- --host2        str  : "destination" imap server.
- --port2        int  : Port to connect on host2. Optional
- --user2        str  : User to login on host2.
- --password2    str  : Password for the user2.
-
- --showpasswords     : Shows passwords on output instead of "MASKED".
-                       Useful to restart a complete run by just reading 
-                       the command line used in the log,
-                       or to debug passwords.
-                       It's not a secure practice.
-
- --passfile1    str  : Password file for the user1. It must contain the
-                       password on the first line. This option avoids showing
-                       the password on the command line like --password1 does.
- --passfile2    str  : Password file for the user2.
-
-You can also pass the passwords in the environment variables
-IMAPSYNC_PASSWORD1 and IMAPSYNC_PASSWORD2
-
-=head2 OPTIONS/encryption
-
- --nossl1            : Do not use a SSL connection on host1.
- --ssl1              : Use a SSL connection on host1. On by default if possible.
-
- --nossl2            : Do not use a SSL connection on host2.
- --ssl2              : Use a SSL connection on host2. On by default if possible.
-
- --notls1            : Do not use a TLS connection on host1.
- --tls1              : Use a TLS connection on host1. On by default if possible.
-
- --notls2            : Do not use a TLS connection on host2.
- --tls2              : Use a TLS connection on host2. On by default if possible.
-
- --debugssl     int  : SSL debug mode from 0 to 4.
-
- --sslargs1     str  : Pass any ssl parameter for host1 ssl or tls connection. Example:
-                       --sslargs1 SSL_verify_mode=1 --sslargs1 SSL_version=SSLv3
-                       See all possibilities in the new() method of IO::Socket::SSL
-                       http://search.cpan.org/perldoc?IO::Socket::SSL#Description_Of_Methods
- --sslargs2     str  : Pass any ssl parameter for host2 ssl or tls connection.
-                       See --sslargs1
-
- --timeout1     int  : Connection timeout in seconds for host1.
-                       Default is 120 and 0 means no timeout at all.
- --timeout2     int  : Connection timeout in seconds for host2.
-                       Default is 120 and 0 means no timeout at all.
-
-
-=head2 OPTIONS/authentication
-
- --authmech1    str  : Auth mechanism to use with host1:
-                       PLAIN, LOGIN, CRAM-MD5 etc. Use UPPERCASE.
- --authmech2    str  : Auth mechanism to use with host2. See --authmech1
-
- --authuser1    str  : User to auth with on host1 (admin user).
-                       Avoid using --authmech1 SOMETHING with --authuser1.
- --authuser2    str  : User to auth with on host2 (admin user).
- --proxyauth1        : Use proxyauth on host1. Requires --authuser1.
-                       Required by Sun/iPlanet/Netscape IMAP servers to
-                       be able to use an administrative user.
- --proxyauth2        : Use proxyauth on host2. Requires --authuser2.
-
- --authmd51          : Use MD5 authentication for host1.
- --authmd52          : Use MD5 authentication for host2.
- --domain1      str  : Domain on host1 (NTLM authentication).
- --domain2      str  : Domain on host2 (NTLM authentication).
-
-
-=head2 OPTIONS/folders
-
-
- --folder       str  : Sync this folder.
- --folder       str  : and this one, etc.
- --folderrec    str  : Sync this folder recursively.
- --folderrec    str  : and this one, etc.
-
- --folderfirst  str  : Sync this folder first. --folderfirst "Work"
- --folderfirst  str  : then this one, etc.
- --folderlast   str  : Sync this folder last. --folderlast "[Gmail]/All Mail"
- --folderlast   str  : then this one, etc.
-
- --nomixfolders      : Do not merge folders when host1 is case-sensitive
-                       while host2 is not (like Exchange). Only the first
-                       similar folder is synced (example: with folders 
-                       "Sent", "SENT" and "sent"
-                       on host1 only "Sent" will be synced to host2).
-
- --skipemptyfolders  : Empty host1 folders are not created on host2.
-
- --include      reg  : Sync folders matching this regular expression
- --include      reg  : or this one, etc.
-                       If both --include --exclude options are used, then
-                       include is done before.
- --exclude      reg  : Skips folders matching this regular expression
-                       Several folders to avoid:
-                        --exclude 'fold1|fold2|f3' skips fold1, fold2 and f3.
- --exclude      reg  : or this one, etc.
-
- --automap           : guesses folders mapping, for folders well known as
-                       "Sent", "Junk", "Drafts", "All", "Archive", "Flagged".
-
- --f1f2    str1=str2 : Force folder str1 to be synced to str2,
-                       --f1f2 overrides --automap and --regextrans2.
-
- --subfolder2   str  : Syncs the whole host1 folders hierarchy under the
-                       host2 folder named str.
-                       It does it internally by adding three
-                       --regextrans2 options before all others.
-                       Add --debug to see what's really going on.
-
- --subfolder1   str  : Syncs the host1 folders hierarchy under str
-                       to the root hierarchy of host2.
-                       It's the couterpart of a sync done by --subfolder2
-                       when doing it in the reverse order. 
-                       Backup/Restore scenario:
-                       Use --subfolder2 str for a backup to the folder str
-                       on host2. Then use --subfolder1 str for restoring 
-                       from the folder str, after inverting 
-                       host1/host2 user1/user2 values.
-
-
- --subscribed        : Transfers subscribed folders.
- --subscribe         : Subscribe to the folders transferred on the
-                       host2 that are subscribed on host1. On by default.
- --subscribeall      : Subscribe to the folders transferred on the
-                       host2 even if they are not subscribed on host1.
-
- --prefix1      str  : Remove prefix str to all destination folders,
-                       usually "INBOX." or "INBOX/" or an empty string "".
-                       imapsync guesses the prefix if host1 imap server
-                       does not have NAMESPACE capability. So this option
-                       should not be used, most of the time.
- --prefix2      str  : Add prefix to all host2 folders. See --prefix1
-
- --sep1         str  : Host1 separator. This option should not be used, 
-                       most of the time.
-                       Imapsync gets the separator from the server itself,
-                       by using NAMESPACE, or it tries to guess it
-                       from the folders listing (it counts
-                       characters / . \\ \ in folder names and choose the
-                       more frequent, or finally / if nothing is found.
- --sep2         str  : Host2 separator.
-
- --regextrans2  reg  : Apply the whole regex to each destination folders.
- --regextrans2  reg  : and this one. etc.
-                       When you play with the --regextrans2 option, first
-                       add also the safe options --dry --justfolders
-                       Then, when happy, remove --dry, remove --justfolders.
-                       Have in mind that --regextrans2 is applied after 
-                       the automatic prefix and separator inversion. 
-                       For examples see:
-                       https://imapsync.lamiral.info/FAQ.d/FAQ.Folders_Mapping.txt
-
-=head2 OPTIONS/folders sizes
-
- --nofoldersizes     : Do not calculate the size of each folder at the
-                       beginning of the sync. Default is to calculate them.
- --nofoldersizesatend: Do not calculate the size of each folder at the
-                       end of the sync. Default is to calculate them.
- --justfoldersizes   : Exit after having printed the initial folder sizes.
-
-
-=head2 OPTIONS/tmp
-
-
- --tmpdir       str  : Where to store temporary files and subdirectories.
-                       Will be created if it doesn't exist.
-                       Default is system specific, Unix is /tmp but
-                       /tmp is often too small and deleted at reboot.
-                       --tmpdir /var/tmp should be better.
- --pidfile      str  : The file where imapsync pid is written,
-                       it can be dirname/filename.
-                       Default name is imapsync.pid in tmpdir.
- --pidfilelocking    : Abort if pidfile already exists. Useful to avoid
-                       concurrent transfers on the same mailbox.
-
-
-=head2 OPTIONS/log
-
- --nolog             : Turn off logging on file
- --logfile      str  : Change the default log filename (can be dirname/filename).
- --logdir       str  : Change the default log directory. Default is LOG_imapsync/
-
-
-=head2 OPTIONS/messages
-
- --skipmess     reg  : Skips messages matching the regex.
-                       Example: 'm/[\x80-ff]/' # to avoid 8bits messages.
-                       --skipmess is applied before --regexmess
- --skipmess     reg  : or this one, etc.
-
- --pipemess     cmd  : Apply this cmd command to each message content
-                       before the copy.
- --pipemess     cmd  : and this one, etc. 
-                       With several --pipemess, the output of each cmd
-                       command (STDOUT) is given to the input (STDIN) 
-                       of the next command.
-                       For example, 
-                       --pipemess cmd1 --pipemess cmd2 --pipemess cmd3
-                       is like a Unix pipe:
-                       "cat message | cmd1 | cmd2 | cmd3"
-
- --disarmreadreceipts : Disarms read receipts (host2 Exchange issue)
-
- --regexmess    reg  : Apply the whole regex to each message before transfer.
-                       Example: 's/\000/ /g' # to replace null by space.
- --regexmess    reg  : and this one, etc.
-
-
-=head2 OPTIONS/flags
-
- If you encounter flag problems see also:
- https://imapsync.lamiral.info/FAQ.d/FAQ.Flags.txt
-
- --regexflag    reg  : Apply the whole regex to each flags list.
-                       Example: 's/"Junk"//g' # to remove "Junk" flag.
- --regexflag    reg  : then this one, etc.
-
- --resyncflags       : Resync flags for already transferred messages.
-                       On by default.
- --noresyncflags     : Do not resync flags for already transferred messages.
-                       May be useful when a user has already started to play
-                       with its host2 account.
-
-=head2 OPTIONS/deletions
-
- --delete1           : Deletes messages on host1 server after a successful
-                       transfer. Option --delete1 has the following behavior:
-                       it marks messages as deleted with the IMAP flag
-                       \Deleted, then messages are really deleted with an
-                       EXPUNGE IMAP command. If expunging after each message
-                       slows down too much the sync then use
-                       --noexpungeaftereach to speed up, expunging will then be
-                       done only twice per folder, one at the beginning and 
-                       one at the end of a folder sync.
-
- --expunge1          : Expunge messages on host1 just before syncing a folder.
-                       Expunge is done per folder.
-                       Expunge aims is to really delete messages marked deleted.
-                       An expunge is also done after each message copied
-                       if option --delete1 is set (unless --noexpungeaftereach).
-
- --noexpunge1        : Do not expunge messages on host1.
-
- --delete1emptyfolders : Deletes empty folders on host1, INBOX excepted.
-                         Useful with --delete1 since what remains on host1
-                         is only what failed to be synced.
-
- --delete2           : Delete messages in host2 that are not in
-                       host1 server. Useful for backup or pre-sync.
-                       --delete2 implies --uidexpunge2
-
- --delete2duplicates : Delete messages in host2 that are duplicates.
-                       Works only without --useuid since duplicates are
-                       detected with an header part of each message.
-
- --delete2folders    : Delete folders in host2 that are not in host1 server.
-                       For safety, first try it like this (it is safe):
-                       --delete2folders --dry --justfolders --nofoldersizes
-
- --delete2foldersonly   reg : Deleted only folders matching regex.
-                              Example: --delete2foldersonly "/^Junk$|^INBOX.Junk$/"
-
- --delete2foldersbutnot reg : Do not delete folders matching regex.
-                              Example: --delete2foldersbutnot "/Tasks$|Contacts$|Foo$/"
-
- --noexpunge2        : Do not expunge messages on host2.
- --nouidexpunge2     : Do not uidexpunge messages on the host2 account
-                       that are not on the host1 account.
-
-
-=head2 OPTIONS/dates
-
- If you encounter problems with dates, see also:
- https://imapsync.lamiral.info/FAQ.d/FAQ.Dates.txt
-
- --syncinternaldates : Sets the internal dates on host2 same as host1.
-                       Turned on by default. Internal date is the date
-                       a message arrived on a host (Unix mtime).
- --idatefromheader   : Sets the internal dates on host2 same as the
-                       ones in "Date:" headers.
-                       
-
-
-=head2 OPTIONS/message selection
-
- --maxsize      int  : Skip messages larger  (or equal) than  int  bytes
- --minsize      int  : Skip messages smaller (or equal) than  int  bytes
- --maxage       int  : Skip messages older than  int days.
-                       final stats (skipped) don't count older messages
-                       see also --minage
- --minage       int  : Skip messages newer than  int  days.
-                       final stats (skipped) don't count newer messages
-                       You can do (+ are the messages selected):
-                       past|----maxage+++++++++++++++>now
-                       past|+++++++++++++++minage---->now
-                       past|----maxage+++++minage---->now (intersection)
-                       past|++++minage-----maxage++++>now (union)
-
- --search       str  : Selects only messages returned by this IMAP SEARCH
-                       command. Applied on both sides.
-                       For a complete of what can be search see
-                       https://imapsync.lamiral.info/FAQ.d/FAQ.Messages_Selection.txt
-
- --search1      str  : Same as --search but for selecting host1 messages only.
- --search2      str  : Same as --search but for selecting host2 messages only.
-                       --search CRIT equals --search1 CRIT --search2 CRIT
-
- --maxlinelength int : skip messages with a line length longer than  int  bytes.
-                       RFC 2822 says it must be no more than 1000 bytes.
-
-
- --useheader    str  : Use this header to compare messages on both sides.
-                       Ex: Message-ID or Subject or Date.
- --useheader    str    and this one, etc.
-
- --usecache          : Use cache to speed up the sync.
- --nousecache        : Do not use cache. Caveat: --useuid --nousecache creates
-                       duplicates on multiple runs.
- --useuid            : Use UIDs instead of headers as a criterion to recognize
-                       messages. Option --usecache is then implied unless
-                       --nousecache is used.
-
-
-=head2 OPTIONS/miscellaneous
-
- --syncacls          : Synchronizes acls (Access Control Lists).
- --nosyncacls        : Does not synchronize acls. This is the default.
-                       Acls in IMAP are not standardized, be careful
-                       since one acl code on one side may signify something
-                       else on the other one.
-
- --addheader         : When a message has no headers to be identified,
-                       --addheader adds a "Message-Id" header,
-                       like "Message-Id: 12345@imapsync", where 12345
-                       is the imap UID of the message on the host1 folder.
-
-
-=head2 OPTIONS/debugging
-
- --debug             : Debug mode.
- --debugfolders      : Debug mode for the folders part only.
- --debugcontent      : Debug content of the messages transferred. Huge output.
- --debugflags        : Debug mode for flags.
- --debugimap1        : IMAP debug mode for host1. Very verbose.
- --debugimap2        : IMAP debug mode for host2. Very verbose.
- --debugimap         : IMAP debug mode for host1 and host2. Twice very verbose.
- --debugmemory       : Debug mode showing memory consumption after each copy.
-
- --errorsmax     int : Exit when int number of errors is reached. Default is 50.
-
- --tests             : Run local non-regression tests. Exit code 0 means all ok.
- --testslive         : Run a live test with test1.lamiral.info imap server.
-                       Useful to check the basics. Needs internet connection.
- --testslive6        : Run a live test with ks2ipv6.lamiral.info imap server.
-                       Useful to check the ipv6 connectivity. Needs internet.
-
-
-=head2 OPTIONS/specific
-
-  --gmail1           : sets --host1 to Gmail and options from FAQ.Gmail.txt
-  --gmail2           : sets --host2 to Gmail and options from FAQ.Gmail.txt
-
-  --office1          : sets --host1 to Office365 options from FAQ.Exchange.txt
-  --office2          : sets --host2 to Office365 options from FAQ.Exchange.txt
-
-  --exchange1        : sets options from FAQ.Exchange.txt, account1 part
-  --exchange2        : sets options from FAQ.Exchange.txt, account2 part
-
-  --domino1          : sets options from FAQ.Domino.txt, account1 part
-  --domino2          : sets options from FAQ.Domino.txt, account2 part
-
-
-=head2 OPTIONS/behavior
-
- --maxmessagespersecond int : limits the number of messages transferred per second.
-
- --maxbytespersecond int : limits the average transfer rate per second.
- --maxbytesafter     int : starts --maxbytespersecond limitation only after
-                           --maxbytesafter amount of data transferred.
-
- --maxsleep      int : do not sleep more than int seconds.
-                       On by default, 2 seconds max, like --maxsleep 2
-
- --abort             : terminates a previous call still running.
-                       It uses the pidfile to know what process to abort.
-
- --exitwhenover int  : Stop syncing and exits when int total bytes 
-                       transferred is reached.
-
- --version           : Print only software version.
- --noreleasecheck    : Do not check for new imapsync release 
- --releasecheck      : Check for new imapsync release.
-                       it's an http request to
-                       http://imapsync.lamiral.info/prj/imapsync/VERSION
-
- --noid              : Do not send/receive ID command to imap servers.
-
- --justconnect       : Just connect to both servers and print useful
-                       information. Need only --host1 and --host2 options.
-                       Obsolete since "imapsync --host1 imaphost" alone
-                       implies --justconnect
-                       
- --justlogin         : Just login to both host1 and host2 with users
-                       credentials, then exit.
-
- --justfolders       : Do only things about folders (ignore messages).
-
- --help              : print this help.
-
- Example: to synchronize imap account "test1" on "test1.lamiral.info"
-                     to  imap account "test2" on "test2.lamiral.info"
-                     with test1 password "secret1"
-                     and  test2 password "secret2"
-
- imapsync \
-    --host1 test1.lamiral.info --user1 test1 --password1 secret1 \
-    --host2 test2.lamiral.info --user2 test2 --password2 secret2
-
-
-=cut
-# comment
-
-=pod
-
-
-
-=head1 SECURITY
-
-You can use --passfile1  instead of --password1 to give the
-password since it is safer. With --password1 option, on Linux,
-any user on your host can see the password by using the 'ps auxwwww'
-command. Using a variable (like IMAPSYNC_PASSWORD1) is also
-dangerous because of the 'ps auxwwwwe' command. So, saving
-the password in a well protected file (600 or rw-------) is
-the best solution.
-
-Imapsync activates ssl or tls encryption by default, if possible.
-
-What detailed behavior is under this "if possible"?
-
-Imapsync activates ssl if the well known port imaps port (993) is open
-on the imap servers. If the imaps port is closed then it open a
-normal (clear) connection on port 143 but it looks for TLS support
-in the CAPABILITY list of the servers. If TLS is supported
-then imapsync goes to encryption.
-
-If the automatic ssl/tls detection fails then imapsync will
-not protect against sniffing activities on the
-network, especially for passwords.
-
-If you want to force ssl or tls just use --ssl1 --ssl2 or --tls1 --tls2
-
-See also the document FAQ.Security.txt in the FAQ.d/ directory
-or at https://imapsync.lamiral.info/FAQ.d/FAQ.Security.txt
-
-=head1 EXIT STATUS
-
-Imapsync will exit with a 0 status (return code) if everything went good.
-Otherwise, it exits with a non-zero status.
-Here is the list of the exit code values (an integer between 0 and 255),
-the names reflects their meaning:
-
-=for comment
-egrep '^Readonly my.*\$EX' imapsync | egrep -o 'EX.*' | sed 's_^_     _'
-
-
-     EX_OK          => 0  ; #/* successful termination */
-     EX_USAGE       => 64 ; #/* command line usage error */
-     EX_NOINPUT     => 66 ; #/* cannot open input */
-     EX_UNAVAILABLE => 69 ; #/* service unavailable */
-     EX_SOFTWARE    => 70 ; #/* internal software error */
-     EXIT_CATCH_ALL              =>   1 ; # Any other error
-     EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
-     EXIT_PID_FILE_ERROR         =>   8 ;
-     EXIT_CONNECTION_FAILURE     =>  10 ;
-     EXIT_TLS_FAILURE            =>  12 ;
-     EXIT_AUTHENTICATION_FAILURE =>  16 ;
-     EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
-     EXIT_WITH_ERRORS            => 111 ;
-     EXIT_WITH_ERRORS_MAX        => 112 ;
-     EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-
-
-=head1 LICENSE AND COPYRIGHT
-
-Imapsync is free, open, public but not always gratis software
-cover by the NOLIMIT Public License.
-See the LICENSE file included in the distribution or just read this
-simple sentence as it IS the licence text:
-
- "No limits to do anything with this work and this license."
-
-In case it is not long enough, I repeat:
-
- "No limits to do anything with this work and this license."
-
-Look at https://imapsync.lamiral.info/LICENSE
-
-=head1 AUTHOR
-
-Gilles LAMIRAL <gilles@lamiral.info>
-
-Good feedback good is always welcome.
-Bad feedback is very often welcome.
-
-Gilles LAMIRAL earns his living by writing, installing,
-configuring and teaching free, open and often gratis
-software. Imapsync used to be "always gratis" but now it is
-only "often gratis" because imapsync is sold by its author,
-a good way to maintain and support free open public
-software over decades.
-
-=head1 BUGS AND LIMITATIONS
-
-See https://imapsync.lamiral.info/FAQ.d/FAQ.Reporting_Bugs.txt
-
-=head1 IMAP SERVERS supported
-
-See https://imapsync.lamiral.info/S/imapservers.shtml
-
-=head1 HUGE MIGRATION
-
-If you have many mailboxes to migrate think about a little
-shell program. Write a file called file.txt (for example)
-containing users and passwords.
-The separator used in this example is ';'
-
-The file.txt file contains:
-
-user001_1;password001_1;user001_2;password001_2
-user002_1;password002_1;user002_2;password002_2
-user003_1;password003_1;user003_2;password003_2
-user004_1;password004_1;user004_2;password004_2
-user005_1;password005_1;user005_2;password005_2
-...
-
-On Unix the shell program can be:
-
- { while IFS=';' read  u1 p1 u2 p2; do
-        imapsync --host1 imap.side1.org --user1 "$u1" --password1 "$p1" \
-                 --host2 imap.side2.org --user2 "$u2" --password2 "$p2" ...
- done ; } < file.txt
-
-On Windows the batch program can be:
-
-  FOR /F "tokens=1,2,3,4 delims=; eol=#" %%G IN (file.txt) DO imapsync ^
-  --host1 imap.side1.org --user1 %%G --password1 %%H ^
-  --host2 imap.side2.org --user2 %%I --password2 %%J ...
-
-The ... have to be replaced by nothing or any imapsync option.
-Welcome in shell or batch programming !
-
-You will find already written scripts at
-https://imapsync.lamiral.info/examples/
-
-=head1 INSTALL
-
- Imapsync works under any Unix with Perl.
-
- Imapsync works under most Windows (2000, XP, Vista, Seven, Eight, Ten
- and all Server releases 2000, 2003, 2008 and R2, 2012 and R2, 2016)
- as a standalone binary software called imapsync.exe,
- usually launched from a batch file in order to avoid always typing
- the options.
-
- Imapsync works under OS X as a standalone binary
- software called imapsync_bin_Darwin
-
- Purchase latest imapsync at
- https://imapsync.lamiral.info/
-
- You'll receive a link to a compressed tarball called imapsync-x.xx.tgz
- where x.xx is the version number. Untar the tarball where
- you want (on Unix):
-
-  tar xzvf  imapsync-x.xx.tgz
-
- Go into the directory imapsync-x.xx and read the INSTALL file.
- As mentioned at https://imapsync.lamiral.info/#install
- the INSTALL file can also be found at
- https://imapsync.lamiral.info/INSTALL.d/INSTALL.ANY.txt
- It is now split in several files for each system
- https://imapsync.lamiral.info/INSTALL.d/
-
-=head1 CONFIGURATION
-
-There is no specific configuration file for imapsync,
-everything is specified by the command line parameters
-and the default behavior.
-
-
-=head1 HACKING
-
-Feel free to hack imapsync as the NOLIMIT license permits it.
-
-
-=head1 SIMILAR SOFTWARE
-
-  See also https://imapsync.lamiral.info/S/external.shtml
-  for a better up to date list.
-
-Last updated and verified on Thu Apr 11, 2019.
-
-  imapsync         : https://github.com/imapsync/imapsync
-                     (this is an imapsync copy, sometimes delayed,
-                     with --noreleasecheck by default since release 1.592, 2014/05/22)
-  imap_tools       : https://web.archive.org/web/20161228145952/http://www.athensfbc.com/imap_tools/
-                     The imap_tools code is now at
-                     https://github.com/andrewnimmo/rick-sanders-imap-tools
-  imaputils        : https://github.com/mtsatsenko/imaputils (very old imap_tools fork)
-  Doveadm-Sync     : https://wiki2.dovecot.org/Tools/Doveadm/Sync ( Dovecot sync tool )
-  davmail          : http://davmail.sourceforge.net/
-  offlineimap      : http://offlineimap.org/
-  mbsync           : http://isync.sourceforge.net/
-  mailsync         : http://mailsync.sourceforge.net/
-  mailutil         : http://www.washington.edu/imap/ part of the UW IMAP tookit.
-  imaprepl         : https://bl0rg.net/software/ http://freecode.com/projects/imap-repl/
-  imapcopy (Pascal): http://www.ardiehl.de/imapcopy/
-  imapcopy (Java)  : https://code.google.com/archive/p/imapcopy/
-  imapsize         : http://www.broobles.com/imapsize/
-  migrationtool    : http://sourceforge.net/projects/migrationtool/
-  imapmigrate      : http://sourceforge.net/projects/cyrus-utils/
-  larch            : https://github.com/rgrove/larch (derived from wonko_imapsync, good at Gmail)
-  wonko_imapsync   : http://wonko.com/article/554 (superseded by larch)
-  pop2imap         : http://www.linux-france.org/prj/pop2imap/ (I wrote that too)
-  exchange-away    : http://exchange-away.sourceforge.net/
-  SyncBackPro      : http://www.2brightsparks.com/syncback/sbpro.html
-  ImapSyncClient   : https://github.com/ridaamirini/ImapSyncClient
-  MailStore        : https://www.mailstore.com/en/products/mailstore-home/
-  mnIMAPSync       : https://github.com/manusa/mnIMAPSync
-  imap-upload      : http://imap-upload.sourceforge.net/
-                     (a tool for uploading a local mbox file to IMAP4 server)
-
-=head1 HISTORY
-
-I initially wrote imapsync in July 2001 because an enterprise, 
-basystemes, paid me to install a new imap server 
-without losing huge old mailboxes located in a far
-away remote imap server, accessible by an 
-often broken low-bandwidth ISDN link.
-
-I had to verify every mailbox was well transferred, all folders, all messages,
-without wasting bandwidth or creating duplicates upon resyncs. The design was
-made with the beautiful rsync command in mind.
-
-Imapsync started its life as a patch of the copy_folder.pl
-script. The script copy_folder.pl comes from the Mail-IMAPClient-2.1.3 perl
-module tarball source (more precisely in the examples/ directory of the
-Mail-IMAPClient tarball).
-
-So many happened since then that I wonder
-if it remains any lines of the original 
-copy_folder.pl in imapsync source code.
-
-
-=cut
-
-
-# use pragmas
-# 
-
-use strict ;
-use warnings ;
-use Carp ;
-use Data::Dumper ;
-use Digest::HMAC_SHA1 qw( hmac_sha1 hmac_sha1_hex ) ;
-use Digest::MD5  qw( md5 md5_hex md5_base64 ) ;
-use English qw( -no_match_vars ) ;
-use Errno qw(EAGAIN EPIPE ECONNRESET) ;
-use Fcntl ;
-use File::Basename ;
-use File::Copy::Recursive ;
-use File::Glob qw( :glob ) ;
-use File::Path qw( mkpath rmtree ) ;
-use File::Spec ;
-use File::stat ;
-use Getopt::Long (  ) ;
-use IO::File ;
-use IO::Socket qw( :crlf SOL_SOCKET SO_KEEPALIVE ) ;
-use IO::Socket::INET6 ;
-use IO::Socket::SSL ;
-use IO::Tee ;
-use IPC::Open3 'open3' ;
-use Mail::IMAPClient 3.30 ;
-use MIME::Base64 ;
-use Pod::Usage qw(pod2usage) ;
-use POSIX qw(uname SIGALRM) ;
-use Sys::Hostname ;
-use Term::ReadKey ;
-use Test::More ;
-use Time::HiRes qw( time sleep ) ;
-use Time::Local ;
-use Unicode::String ;
-use Cwd ;
-use Readonly ;
-use Sys::MemInfo ;
-use Regexp::Common ;
-use Text::ParseWords;
-use File::Tail ;
-
-local $OUTPUT_AUTOFLUSH = 1 ;
-
-# constants
-
-# Let us do like sysexits.h
-# /usr/include/sysexits.h
-# and https://www.tldp.org/LDP/abs/html/exitcodes.html
-
-# Should avoid 2 126 127 128..128+64=192 255
-# Should use   0 1 3..125 193..254
-
-Readonly my $EX_OK          => 0  ; #/* successful termination */
-Readonly my $EX_USAGE       => 64 ; #/* command line usage error */
-#Readonly my $EX_DATAERR     => 65 ; #/* data format error */
-Readonly my $EX_NOINPUT     => 66 ; #/* cannot open input */
-#Readonly my $EX_NOUSER      => 67 ; #/* addressee unknown */
-#Readonly my $EX_NOHOST      => 68 ; #/* host name unknown */
-Readonly my $EX_UNAVAILABLE => 69 ; #/* service unavailable */
-Readonly my $EX_SOFTWARE    => 70 ; #/* internal software error */
-#Readonly my $EX_OSERR       => 71 ; #/* system error (e.g., can't fork) */
-#Readonly my $EX_OSFILE      => 72 ; #/* critical OS file missing */
-#Readonly my $EX_CANTCREAT   => 73 ; #/* can't create (user) output file */
-#Readonly my $EX_IOERR       => 74 ; #/* input/output error */
-#Readonly my $EX_TEMPFAIL    => 75 ; #/* temp failure; user is invited to retry */
-#Readonly my $EX_PROTOCOL    => 76 ; #/* remote error in protocol */
-#Readonly my $EX_NOPERM      => 77 ; #/* permission denied */
-#Readonly my $EX_CONFIG      => 78 ; #/* configuration error */
-
-# Mine
-Readonly my $EXIT_CATCH_ALL              =>   1 ; # Any other error
-Readonly my $EXIT_BY_SIGNAL              =>   6 ; # Should be 128+n where n is the sig_num
-Readonly my $EXIT_PID_FILE_ERROR         =>   8 ;
-Readonly my $EXIT_CONNECTION_FAILURE     =>  10 ;
-Readonly my $EXIT_TLS_FAILURE            =>  12 ;
-Readonly my $EXIT_AUTHENTICATION_FAILURE =>  16 ;
-Readonly my $EXIT_SUBFOLDER1_NO_EXISTS   =>  21 ;
-Readonly my $EXIT_WITH_ERRORS            => 111 ;
-Readonly my $EXIT_WITH_ERRORS_MAX        => 112 ;
-
-
-Readonly my $EXIT_TESTS_FAILED           => 254 ; # Like Test::More API
-
-
-Readonly my %EXIT_TXT => (
-        $EX_OK                       => 'EX_OK: successful termination',
-        $EX_USAGE                    => 'EX_USAGE: command line usage error',
-        $EX_NOINPUT                  => 'EX_NOINPUT: cannot open input',
-        $EX_UNAVAILABLE              => 'EX_UNAVAILABLE: service unavailable',
-        $EX_SOFTWARE                 => 'EX_SOFTWARE: internal software error',
-        
-        $EXIT_CATCH_ALL              => 'EXIT_CATCH_ALL',
-        $EXIT_BY_SIGNAL              => 'EXIT_BY_SIGNAL',
-        $EXIT_PID_FILE_ERROR         => 'EXIT_PID_FILE_ERROR' ,
-        $EXIT_CONNECTION_FAILURE     => 'EXIT_CONNECTION_FAILURE',
-        $EXIT_TLS_FAILURE            => 'EXIT_TLS_FAILURE',
-        $EXIT_AUTHENTICATION_FAILURE => 'EXIT_AUTHENTICATION_FAILURE',
-        $EXIT_SUBFOLDER1_NO_EXISTS   => 'EXIT_SUBFOLDER1_NO_EXISTS',
-        $EXIT_WITH_ERRORS            => 'EXIT_WITH_ERRORS',
-        $EXIT_WITH_ERRORS_MAX        => 'EXIT_WITH_ERRORS_MAX',
-        $EXIT_TESTS_FAILED           => 'EXIT_TESTS_FAILED',
-) ;
-
-
-
-
-Readonly my $DEFAULT_LOGDIR => 'LOG_imapsync' ;
-
-Readonly my $ERRORS_MAX     =>  50 ; # exit after 50 errors.
-Readonly my $ERRORS_MAX_CGI =>  20 ; # exit after 20 errors in CGI context.
-
-
-
-Readonly my $INTERVAL_TO_EXIT => 2 ; # interval max to exit instead of reconnect
-
-Readonly my $SPLIT        => 100 ; # By default, 100 at a time, not more.
-Readonly my $SPLIT_FACTOR =>  10 ; # init_imap() calls Maxcommandlength( $SPLIT_FACTOR * $split )
-                                   # which means default Maxcommandlength is 10*100 = 1000 characters ;
-
-Readonly my $IMAP_PORT     => 143 ; # Well know port for IMAP
-Readonly my $IMAP_SSL_PORT => 993 ; # Well know port for IMAP over SSL
-
-Readonly my $LAST => -1 ;
-Readonly my $MINUS_ONE => -1 ;
-Readonly my $MINUS_TWO => -2 ;
-
-Readonly my $RELEASE_NUMBER_EXAMPLE_1 => '1.351' ;
-Readonly my $RELEASE_NUMBER_EXAMPLE_2 => 42.4242 ;
-
-Readonly my $TCP_PING_TIMEOUT => 5 ;
-Readonly my $DEFAULT_TIMEOUT => 120 ;
-Readonly my $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND => 3 ;
-Readonly my $DEFAULT_UIDNEXT => 999_999 ;
-Readonly my $DEFAULT_BUFFER_SIZE => 4096 ;
-
-Readonly my $MAX_SLEEP => 2 ; # 2 seconds max for limiting too long sleeps from --maxbytespersecond and --maxmessagespersecond
-
-Readonly my $DEFAULT_EXPIRATION_TIME_OAUTH2_PK12 => 3600 ;
-
-Readonly my $PERMISSION_FILTER => 7777 ;
-
-Readonly my $KIBI => 1024 ;
-
-Readonly my $NUMBER_10 => 10 ;
-Readonly my $NUMBER_42 => 42 ;
-Readonly my $NUMBER_100 => 100 ;
-Readonly my $NUMBER_200 => 200 ;
-Readonly my $NUMBER_300 => 300 ;
-Readonly my $NUMBER_123456 => 123456 ;
-Readonly my $NUMBER_654321 => 654321 ;
-
-Readonly my $NUMBER_20_000 => 20_000 ;
-
-Readonly my $QUOTA_PERCENT_LIMIT => 90 ;
-
-Readonly my $NUMBER_104_857_600 => 104_857_600 ;
-
-Readonly my $SIZE_MAX_STR => 64 ;
-
-Readonly my $NB_SECONDS_IN_A_DAY => 86_400 ;
-
-Readonly my $STD_CHAR_PER_LINE => 80 ;
-
-Readonly my $TRUE  => 1 ;
-Readonly my $FALSE => 0 ;
-
-Readonly my $LAST_RESSORT_SEPARATOR => q{/} ;
-
-Readonly my $CGI_TMPDIR_TOP => '/var/tmp/imapsync_cgi' ;
-Readonly my $CGI_HASHFILE   => '/var/tmp/imapsync_hash' ;
-Readonly my $UMASK_PARANO   => '0077' ;
-
-Readonly my $STR_use_releasecheck => q{Check if a new imapsync release is available by adding --releasecheck} ;
-
-Readonly my $GMAIL_MAXSIZE => 35_651_584 ;
-
-
-# if ( 'MSWin32' eq $OSNAME )
-# if ( 'darwin' eq $OSNAME )
-# if ( 'linux' eq $OSNAME )
-
-
-
-# global variables
-# Currently working to finish with only $sync
-# Not finished yet...
-
-my(
-        $sync,
-        $debugimap, $debugimap1, $debugimap2, $debugcontent, $debugflags,
-        $debuglist, $debugdev, $debugmaxlinelength, $debugcgi,
-        $domain1, $domain2,
-        @include, @exclude, @folderrec,
-        @folderfirst, @folderlast,
-        $prefix1, $prefix2,
-        @regexmess, @regexflag, @skipmess, @pipemess, $pipemesscheck,
-        $flagscase, $filterflags, $syncflagsaftercopy,
-        $syncinternaldates,
-        $idatefromheader,
-        $syncacls,
-        $fastio1, $fastio2,
-        $minsize, $maxage, $minage,
-        $search, $search1, $search2,
-        $skipheader, @useheader,
-        $skipsize, $allowsizemismatch, $foldersizes, $foldersizesatend, $buffersize,
-
-
-        $authmd5, $authmd51, $authmd52,
-        $subscribed, $subscribe, $subscribeall,
-        $help,
-        $justbanner,
-        $fast,
-
-        $nb_msg_skipped_dry_mode,
-        $h1_nb_msg_duplicate,
-        $h2_nb_msg_duplicate,
-        $h2_nb_msg_noheader,
-
-        $h2_nb_msg_deleted,
-
-        $h1_bytes_processed,
-
-        $h1_nb_msg_start, $h1_bytes_start,
-        $h2_nb_msg_start, $h2_bytes_start,
-        $h1_nb_msg_end, $h1_bytes_end,
-        $h2_nb_msg_end, $h2_bytes_end,
-
-        $timeout,
-        $timestart_int,
-        $timebefore,
-        $uid1, $uid2,
-        $authuser1, $authuser2,
-        $proxyauth1, $proxyauth2,
-        $authmech1, $authmech2,
-        $split1, $split2,
-        $reconnectretry1, $reconnectretry2,
-        $max_msg_size_in_bytes,
-        $modulesversion,
-        $delete2folders, $delete2foldersonly, $delete2foldersbutnot,
-        $usecache, $debugcache, $cacheaftercopy,
-        $wholeheaderifneeded, %h1_msgs_copy_by_uid, $useuid, $h2_uidguess,
-        $checkmessageexists,
-        $messageidnodomain,
-        $fixInboxINBOX,
-        $maxlinelength, $maxlinelengthcmd,
-        $minmaxlinelength,
-        $uidnext_default,
-        $fixcolonbug,
-        $create_folder_old,
-        $skipcrossduplicates, $debugcrossduplicates,
-        $disarmreadreceipts,
-        $mixfolders, $skipemptyfolders,
-        $fetch_hash_set,
-) ;
-
-
-# main program
-# global variables initialization
-
-# I'm currently removing all global variables except $sync
-# passing each of them under $sync->{variable_name}
-
-$sync->{timestart} = time ; # Is a float because of use Time::HiRres
-
-$sync->{rcs} = q{$Id: imapsync,v 1.945 2019/06/26 19:30:56 gilles Exp gilles $} ;
-
-$sync->{ memory_consumption_at_start } = memory_consumption(  ) || 0 ;
-
-
-my @loadavg = loadavg(  ) ;
-
-$sync->{cpu_number} = cpu_number(  ) ;
-$sync->{loaddelay} = load_and_delay( $sync->{cpu_number}, @loadavg ) ;
-$sync->{loadavg} = join( q{ }, $loadavg[ 0 ] )
-                   . " on $sync->{cpu_number} cores and "
-                   . ram_memory_info(  ) ;
-
-
-
-$sync->{ total_bytes_transferred } = 0 ;
-$sync->{ total_bytes_skipped } = 0 ;
-$sync->{ nb_msg_transferred } = 0 ;
-$sync->{ nb_msg_skipped } = $nb_msg_skipped_dry_mode = 0 ;
-$sync->{ h1_nb_msg_deleted } = 0 ;
-$h2_nb_msg_deleted  = 0 ;
-$h1_nb_msg_duplicate = 0 ;
-$h2_nb_msg_duplicate = 0 ;
-$sync->{ h1_nb_msg_noheader } = 0 ;
-$h2_nb_msg_noheader = 0 ;
-
-
-$h1_nb_msg_start  = $h1_bytes_start = 0 ;
-$h2_nb_msg_start     = $h2_bytes_start = 0 ;
-$sync->{ h1_nb_msg_processed } = $h1_bytes_processed = 0 ;
-
-$sync->{ h2_nb_msg_crossdup } = 0 ;
-
-#$h1_nb_msg_end = $h1_bytes_end = 0 ;
-#$h2_nb_msg_end = $h2_bytes_end = 0 ;
-
-$sync->{nb_errors} = 0;
-$max_msg_size_in_bytes = 0;
-
-my %month_abrev = (
-   Jan => '00',
-   Feb => '01',
-   Mar => '02',
-   Apr => '03',
-   May => '04',
-   Jun => '05',
-   Jul => '06',
-   Aug => '07',
-   Sep => '08',
-   Oct => '09',
-   Nov => '10',
-   Dec => '11',
-);
-
-
-my $cgidir ;
-
-# Just create a CGI object if under cgi context only.
-# Needed for the get_options() call
-cgibegin( $sync ) ;
-
-# In cgi context, printing must start by the header so we delay other prints by using output() storage
-my $options_good = get_options( $sync, @ARGV ) ;
-# Is it the first myprint?
-docker_context( $sync ) ;
-cgibuildheader( $sync ) ;
-
-myprint( output( $sync ) ) ;
-output_reset_with( $sync ) ;
-
-# Old place for cgiload( $sync ) ;
-
-# don't go on if options are not all known.
-if ( ! defined $options_good ) { exit $EX_USAGE ; }
-
-# If you want releasecheck not to be done by default (like the github maintainer),
-# then just uncomment the first "$sync->{releasecheck} =" line, the line ending with "0 ;",
-# the second line (ending with "1 ;") can then stay active or be commented,
-# the result will be the same: no releasecheck by default (because 0 is then the defined value).
-
-#$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 0 ;
-$sync->{releasecheck} = defined  $sync->{releasecheck}  ? $sync->{releasecheck} : 1 ;
-
-# just the version
-if ( $sync->{ version } ) {
-        myprint( imapsync_version( $sync ), "\n" ) ;
-        exit 0 ;
-}
-
-$sync->{debugenv} and printenv( $sync ) ; # if option --debugenv
-load_modules(  ) ;
-
-# after_get_options call usage and exit if --help or options were not well got
-after_get_options( $sync, $options_good ) ;
-
-
-# Under CGI environment, fix caveat emptor potential issues
-cgisetcontext( $sync ) ;
-
-# --gmail --gmail --exchange --office etc.
-easyany( $sync ) ;
-
-$sync->{ sanitize } = defined $sync->{ sanitize } ? $sync->{ sanitize } : 1 ;
-sanitize( $sync ) ;
-
-$sync->{ tmpdir } ||= File::Spec->tmpdir(  ) ;
-
-# Unit tests
-testsexit( $sync ) ;
-
-# init live varaiables
-testslive( $sync ) if ( $sync->{testslive} ) ;
-testslive6( $sync ) if ( $sync->{testslive6} )  ;
-
-#
-
-$sync->{pidfile} =  defined  $sync->{pidfile}  ? $sync->{pidfile} : $sync->{ tmpdir } . '/imapsync.pid' ;
-$sync->{pidfilelocking} = defined  $sync->{pidfilelocking}  ? $sync->{pidfilelocking} : 0 ;
-
-# old abort place
-
-# Unix signals
-@{ $sync->{ sigexit } }      = ( defined( $sync->{ sigexit } ) )      ? @{ $sync->{ sigexit } }      : ( 'QUIT', 'TERM' ) ;
-@{ $sync->{ sigreconnect } } = ( defined( $sync->{ sigreconnect } ) ) ? @{ $sync->{ sigreconnect } } : ( 'INT' ) ;
-@{ $sync->{ sigprint } }     = ( defined( $sync->{ sigprint } ) )     ? @{ $sync->{ sigprint } }     : ( 'HUP' ) ;
-@{ $sync->{ sigignore } }    = ( defined( $sync->{ sigignore } ) )    ? @{ $sync->{ sigignore } }    : ( ) ;
-
-local %SIG = %SIG ;
-sig_install( $sync, 'catch_exit',      @{ $sync->{ sigexit      } } ) ;
-sig_install( $sync, 'catch_reconnect', @{ $sync->{ sigreconnect } } ) ;
-sig_install( $sync, 'catch_print',     @{ $sync->{ sigprint     } } ) ;
-# --sigignore can override sigexit, sigreconnect and sigprint (for the same signals only)
-sig_install( $sync, 'catch_ignore',    @{ $sync->{ sigignore }  } ) ;
-
-sig_install_toggle_sleep( $sync ) ;
-
-
-$sync->{log}        = defined $sync->{log}        ? $sync->{log}        :  1 ;
-$sync->{errorsdump} = defined $sync->{errorsdump} ? $sync->{errorsdump} :  1 ;
-$sync->{errorsmax}  = defined $sync->{errorsmax}  ? $sync->{errorsmax}  : $ERRORS_MAX ;
-
-# log and output
-if ( $sync->{log} ) {
-        setlogfile( $sync ) ;
-        teelaunch( $sync ) ;
-        # now $sync->{tee} is a filehandle to STDOUT and the logfile
-}
-# STDERR goes to the same place: LOG and STDOUT (if logging is on)
-$sync->{tee} and local *STDERR = *${$sync->{tee}}{IO} ;
-
-
-
-$timestart_int = int( $sync->{timestart} ) ;
-$timebefore =    $sync->{timestart} ;
-
-
-my $timestart_str = localtime( $sync->{timestart} ) ;
-
-# The prints in the log starts here
-
-myprint( localhost_info( $sync ), "\n" ) ;
-myprint( "Transfer started at $timestart_str\n" ) ;
-myprint( "PID is $PROCESS_ID my PPID is ", mygetppid(  ), "\n" ) ;
-myprint( "Log file is $sync->{logfile} ( to change it, use --logfile path ; or use --nolog to turn off logging )\n" ) if ( $sync->{log} ) ;
-myprint( "Load is " . ( join( q{ }, loadavg(  ) ) || 'unknown' ), " on $sync->{cpu_number} cores\n" ) ;
-#myprintf( "Memory consumption so far: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ;
-myprint( 'Current directory is ' . getcwd(  ) . "\n" ) ;
-myprint( 'Real user id is ' . getpwuid_any_os( $REAL_USER_ID ) . " (uid $REAL_USER_ID)\n" ) ;
-myprint( 'Effective user id is ' . getpwuid_any_os( $EFFECTIVE_USER_ID ). " (euid $EFFECTIVE_USER_ID)\n" ) ;
-
-$modulesversion = defined  $modulesversion  ? $modulesversion : 1 ;
-
-my $warn_release = ( $sync->{releasecheck} ) ? check_last_release(  ) : $STR_use_releasecheck ;
-
-
-$wholeheaderifneeded  = defined  $wholeheaderifneeded   ? $wholeheaderifneeded  : 1;
-
-# Activate --usecache if --useuid is set and no --nousecache
-$usecache = 1 if ( $useuid and ( ! defined  $usecache   ) ) ;
-$cacheaftercopy = 1 if ( $usecache and ( ! defined  $cacheaftercopy  ) ) ;
-
-$sync->{ checkselectable } = defined $sync->{ checkselectable } ? $sync->{ checkselectable } : 1 ;
-$sync->{ checkfoldersexist } = defined $sync->{ checkfoldersexist } ? $sync->{ checkfoldersexist } : 1 ;
-$checkmessageexists = defined  $checkmessageexists  ? $checkmessageexists : 0 ;
-$sync->{ expungeaftereach }   = defined  $sync->{ expungeaftereach }  ? $sync->{ expungeaftereach } : 1 ;
-
-# abletosearch is on by default
-$sync->{abletosearch}    = defined  $sync->{abletosearch}   ? $sync->{abletosearch} : 1 ;
-$sync->{abletosearch1}   = defined  $sync->{abletosearch1}  ? $sync->{abletosearch1} : $sync->{abletosearch} ;
-$sync->{abletosearch2}   = defined  $sync->{abletosearch2}  ? $sync->{abletosearch2} : $sync->{abletosearch} ;
-$checkmessageexists      = 0 if ( not $sync->{abletosearch1} ) ;
-
-
-$sync->{showpasswords}   = defined  $sync->{showpasswords}  ? $sync->{showpasswords} : 0 ;
-$sync->{ fixslash2 }     = defined  $sync->{ fixslash2 }  ? $sync->{ fixslash2 } : 1 ;
-$fixInboxINBOX      = defined  $fixInboxINBOX  ? $fixInboxINBOX : 1 ;
-$create_folder_old  = defined  $create_folder_old  ? $create_folder_old : 0 ;
-$mixfolders         = defined  $mixfolders  ? $mixfolders : 1 ;
-$sync->{automap}    = defined  $sync->{automap}  ? $sync->{automap} : 0 ;
-
-$sync->{ delete2duplicates } = 1 if ( $sync->{ delete2 } and ( ! defined  $sync->{ delete2duplicates }  ) ) ;
-
-$sync->{maxmessagespersecond} = defined  $sync->{maxmessagespersecond}  ? $sync->{maxmessagespersecond} : 0 ;
-$sync->{maxbytespersecond}    = defined  $sync->{maxbytespersecond}     ? $sync->{maxbytespersecond}    : 0 ;
-
-$sync->{sslcheck} = defined $sync->{sslcheck} ? $sync->{sslcheck} : 1 ;
-
-myprint( banner_imapsync( $sync, @ARGV ) ) ;
-
-myprint( "Temp directory is $sync->{ tmpdir } ( to change it use --tmpdir dirpath )\n" ) ;
-
-myprint( output( $sync ) ) ;
-output_reset_with( $sync ) ;
-
-do_valid_directory( $sync->{ tmpdir } ) || croak "Error creating tmpdir $sync->{ tmpdir } : $OS_ERROR" ;
-
-remove_pidfile_not_running( $sync->{pidfile} ) ;
-
-# if another imapsync is running then tail -f its logfile and exit
-# useful in cgi context
-if ( $sync->{tail} and tail( $sync ) )
-{
-        myprint( "Tail -f finished. Now finishing myself processus $PROCESS_ID\n" ) ;
-        exit_clean( $sync, $EX_OK ) ;
-        exit $EX_OK ;
-}
-
-if ( ! write_pidfile( $sync ) ) {
-        myprint( "Exiting with return value $EXIT_PID_FILE_ERROR ($EXIT_TXT{$EXIT_PID_FILE_ERROR})\n" ) ;
-        exit $EXIT_PID_FILE_ERROR ;
-}
-
-
-# New place for abort
-# abort before simulong in order to be able to abort a simulong sync
-if ( $sync->{ abort } )
-{
-        abort( $sync ) ;
-}
-
-# simulong is just a loop printing some lines for xx seconds with option "--simulong xx".
-if ( $sync->{ simulong } )
-{
-        simulong( $sync->{ simulong } ) ;
-}
-
-
-# New place for cgiload 2019_03_03
-# because I want to log it
-# Can break here if load is too heavy
-cgiload( $sync ) ;
-
-
-$fixcolonbug = defined  $fixcolonbug  ? $fixcolonbug : 1 ;
-
-if ( $usecache and $fixcolonbug ) { tmpdir_fix_colon_bug( $sync ) } ;
-
-$modulesversion and myprint( "Modules version list:\n", modulesversion(), "( use --no-modulesversion to turn off printing this Perl modules list )\n" ) ;
-
-
-check_lib_version( $sync ) or
-  croak "imapsync needs perl lib Mail::IMAPClient release 3.30 or superior.\n";
-
-
-exit_clean( $sync, $EX_OK ) if ( $justbanner ) ;
-
-# turn on RFC standard flags correction like \SEEN -> \Seen
-$flagscase = defined  $flagscase  ? $flagscase : 1 ;
-
-# Use PERMANENTFLAGS if available
-$filterflags = defined  $filterflags  ? $filterflags : 1 ;
-
-# sync flags just after an APPEND, some servers ignore the flags given in the APPEND
-# like MailEnable IMAP server.
-# Off by default since it takes time.
-$syncflagsaftercopy = defined  $syncflagsaftercopy   ? $syncflagsaftercopy : 0 ;
-
-# update flags on host2 for already transferred messages
-$sync->{resyncflags} = defined  $sync->{resyncflags} ? $sync->{resyncflags} : 1 ;
-if ( $sync->{resyncflags} ) {
-        myprint( "Info: will resync flags for already transferred messages. Use --noresyncflags to not resync flags.\n" ) ;
-}else{
-        myprint( "Info: will not resync flags for already transferred messages. Use --resyncflags to resync flags.\n" ) ;
-}
-
-
-sslcheck( $sync ) ;
-#print Data::Dumper->Dump( [ \$sync ] ) ;
-
-$split1 ||= $SPLIT ;
-$split2 ||= $SPLIT ;
-
-#$sync->{host1} || missing_option( $sync, '--host1' ) ;
-$sync->{port1} ||= ( $sync->{ssl1} ) ? $IMAP_SSL_PORT : $IMAP_PORT ;
-
-#$sync->{host2} || missing_option( $sync, '--host2' ) ;
-$sync->{port2} ||= ( $sync->{ssl2} ) ? $IMAP_SSL_PORT : $IMAP_PORT ;
-
-$debugimap1 = $debugimap2 = 1 if ( $debugimap ) ;
-$sync->{ debug } = 1 if ( $debugimap1 or $debugimap2 ) ;
-
-# By default, don't take size to compare
-$skipsize = (defined $skipsize) ? $skipsize : 1;
-
-$uid1 = defined $uid1 ? $uid1 : 1;
-$uid2 = defined $uid2 ? $uid2 : 1;
-
-$subscribe = defined $subscribe ? $subscribe : 1;
-
-# Allow size mismatch by default
-$allowsizemismatch = defined $allowsizemismatch ? $allowsizemismatch : 1;
-
-
-if ( defined  $delete2foldersbutnot  or defined  $delete2foldersonly  ) {
-	$delete2folders = 1 ;
-}
-
-
-my $SSL_VERIFY_POLICY ;
-my %SSL_VERIFY_STR ;
-
-Readonly $SSL_VERIFY_POLICY => IO::Socket::SSL::SSL_VERIFY_NONE(  ) ;
-Readonly %SSL_VERIFY_STR => (
-	IO::Socket::SSL::SSL_VERIFY_NONE(  ) => 'SSL_VERIFY_NONE, ie, do not check the certificate server.' ,
-	IO::Socket::SSL::SSL_VERIFY_PEER(  ) => 'SSL_VERIFY_PEER, ie, check the certificate server' ,
-) ;
-
-$IO::Socket::SSL::DEBUG = defined( $sync->{debugssl} ) ? $sync->{debugssl} : 1 ;
-
-
-if ( $sync->{ssl1} or $sync->{ssl2} or $sync->{tls1} or $sync->{tls2}) {
-        myprint( "SSL debug mode level is --debugssl $IO::Socket::SSL::DEBUG (can be set from 0 meaning no debug to 4 meaning max debug)\n" ) ;
-}
-
-if ( $sync->{ssl1} ) {
-        myprint( qq{Host1: SSL default mode is like --sslargs1 "SSL_verify_mode=$SSL_VERIFY_POLICY", meaning for host1 $SSL_VERIFY_STR{$SSL_VERIFY_POLICY}\n} ) ;
-        myprint( 'Host1: Use --sslargs1 SSL_verify_mode=' . IO::Socket::SSL::SSL_VERIFY_PEER(  ) . " to have $SSL_VERIFY_STR{IO::Socket::SSL::SSL_VERIFY_PEER(  )} of host1\n" ) ;
-}
-
-if ( $sync->{ssl2} ) {
-        myprint( qq{Host2: SSL default mode is like --sslargs2 "SSL_verify_mode=$SSL_VERIFY_POLICY", meaning for host2 $SSL_VERIFY_STR{$SSL_VERIFY_POLICY}\n} ) ;
-        myprint( 'Host2: Use --sslargs2 SSL_verify_mode=' . IO::Socket::SSL::SSL_VERIFY_PEER(  ) . " to have $SSL_VERIFY_STR{IO::Socket::SSL::SSL_VERIFY_PEER(  )} of host2\n" ) ;
-}
-
-
-if ( $sync->{justconnect} 
-        or not $sync->{user1} 
-        or not $sync->{user2}
-        or not $sync->{host1}
-        or not $sync->{host2}
-        )
-{
-        my $justconnect = justconnect( $sync ) ;
-        myprint( debugmemory( $sync, " after justconnect() call" ) ) ;
-        exit_clean( $sync, $EX_OK, "Exiting after a justconnect on host(s): $justconnect\n" ) ;
-}
-
-
-#$sync->{user1} || missing_option( $sync, '--user1' ) ;
-#$sync->{user2} || missing_option( $sync, '--user2' ) ;
-
-$syncinternaldates = defined $syncinternaldates ? $syncinternaldates : 1;
-
-# Turn on expunge if there is not explicit option --noexpunge1 and option
-# --delete1 is given.
-# Done because --delete1 --noexpunge1 is very dangerous on the second run:
-# the Deleted flag is then synced to all previously transferred messages.
-# So --delete1 implies --expunge1 is a better usability default behavior.
-if ( $sync->{ delete1 } ) {
-        if ( ! defined  $sync->{ expunge1 }  ) {
-                myprint( "Info: turning on --expunge1 because --delete1 --noexpunge1 is very dangerous on the second run.\n" ) ;
-                $sync->{ expunge1 } = 1 ;
-        }
-                myprint( "Info: if expunging after each message slows down too much the sync then use --noexpungeaftereach to speed up\n" ) ;
-}
-
-if ( $sync->{ uidexpunge2 } and not Mail::IMAPClient->can( 'uidexpunge' ) ) {
-        myprint( "Failure: uidexpunge not supported (IMAPClient release < 3.17), use nothing or --expunge2 instead\n" ) ;
-        exit_clean( $sync, $EX_SOFTWARE ) ;
-}
-
-if ( ( $sync->{ delete2 } or $sync->{ delete2duplicates } ) and not defined  $sync->{ uidexpunge2 }  ) {
-        if ( Mail::IMAPClient->can( 'uidexpunge' ) ) {
-                myprint( "Info: will act as --uidexpunge2\n" ) ;
-                $sync->{ uidexpunge2 } = 1 ;
-        }elsif ( not defined  $sync->{ expunge2 }  ) {
-                 myprint( "Info: will act as --expunge2 (no uidexpunge support)\n" ) ;
-                $sync->{ expunge2 } = 1 ;
-        }
-}
-
-if ( $sync->{ delete1 } and $sync->{ delete2 } ) {
-        myprint( "Warning: using --delete1 and --delete2 together is almost always a bad idea, exiting imapsync\n" ) ;
-        exit_clean( $sync, $EX_USAGE ) ;
-}
-
-if ( $idatefromheader ) {
-        myprint( 'Turned ON idatefromheader, ',
-              "will set the internal dates on host2 from the 'Date:' header line.\n" ) ;
-        $syncinternaldates = 0 ;
-}
-
-if ( $syncinternaldates ) {
-        myprint( 'Info: turned ON syncinternaldates, ',
-              "will set the internal dates (arrival dates) on host2 same as host1.\n" ) ;
-}else{
-        myprint( "Info: turned OFF syncinternaldates\n" ) ;
-}
-
-if ( defined $authmd5 and $authmd5 ) {
-        $authmd51 = 1 ;
-        $authmd52 = 1 ;
-}
-
-if ( defined $authmd51 and $authmd51 ) {
-        $authmech1 ||= 'CRAM-MD5';
-}
-else{
-        $authmech1 ||= $authuser1 ? 'PLAIN' : 'LOGIN';
-}
-
-if ( defined $authmd52 and $authmd52 ) {
-        $authmech2 ||= 'CRAM-MD5';
-}
-else{
-        $authmech2 ||= $authuser2 ? 'PLAIN' : 'LOGIN';
-}
-
-$authmech1 = uc $authmech1;
-$authmech2 = uc $authmech2;
-
-if (defined $proxyauth1 && !$authuser1) {
-        missing_option( $sync, 'With --proxyauth1, --authuser1' ) ;
-}
-
-if (defined $proxyauth2 && !$authuser2) {
-        missing_option( $sync, 'With --proxyauth2, --authuser2' ) ;
-}
-
-$authuser1 ||= $sync->{user1};
-$authuser2 ||= $sync->{user2};
-
-myprint( "Host1: will try to use $authmech1 authentication on host1\n") ;
-myprint( "Host2: will try to use $authmech2 authentication on host2\n") ;
-
-$timeout = defined  $timeout  ? $timeout : $DEFAULT_TIMEOUT ;
-
-$sync->{h1}->{timeout} = defined  $sync->{h1}->{timeout}  ? $sync->{h1}->{timeout} : $timeout ;
-myprint( "Host1: imap connection timeout is $sync->{h1}->{timeout} seconds\n") ;
-$sync->{h2}->{timeout} = defined  $sync->{h2}->{timeout}  ? $sync->{h2}->{timeout} : $timeout ;
-myprint( "Host2: imap connection timeout is $sync->{h2}->{timeout} seconds\n" ) ;
-
-$syncacls = defined  $syncacls  ? $syncacls : 0 ;
-
-# No folders sizes if --justfolders, unless really wanted.
-if ( $sync->{ justfolders } and not defined  $foldersizes and not $sync->{ justfoldersizes } ) { $foldersizes = 0 ; $foldersizesatend = 1 ; }
-
-$foldersizes      = ( defined  $foldersizes       ) ? $foldersizes      : 1 ;
-$foldersizesatend = ( defined  $foldersizesatend  ) ? $foldersizesatend : $foldersizes ;
-
-$fastio1 = defined  $fastio1  ? $fastio1 : 0 ;
-$fastio2 = defined  $fastio2  ? $fastio2 : 0 ;
-
-$reconnectretry1 = defined  $reconnectretry1  ? $reconnectretry1 : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
-$reconnectretry2 = defined  $reconnectretry2  ? $reconnectretry2 : $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
-
-# Since select_msgs() returns no messages when uidnext does not return something
-# then $uidnext_default is never used. So I have to remove it.
-$uidnext_default = $DEFAULT_UIDNEXT ;
-
-if ( ! @useheader ) { @useheader = qw( Message-Id Received )  ; }
-
-my %useheader ;
-
-# Make a hash %useheader of each --useheader 'key' in uppercase
-for ( @useheader ) { $useheader{ uc  $_  } = undef } ;
-
-#myprint( Data::Dumper->Dump( [ \%useheader ] )  ) ;
-#exit ;
-
-myprint( "Host1: IMAP server [$sync->{host1}] port [$sync->{port1}] user [$sync->{user1}]\n" ) ;
-myprint( "Host2: IMAP server [$sync->{host2}] port [$sync->{port2}] user [$sync->{user2}]\n" ) ;
-
-get_password1( $sync ) ;
-get_password2( $sync ) ;
-
-
-$sync->{dry_message} = q{} ;
-if( $sync->{dry} ) {
-        $sync->{dry_message} = "\t(not really since --dry mode)" ;
-}
-
-$search1 ||= $search if ( $search ) ;
-$search2 ||= $search if ( $search ) ;
-
-if ( $disarmreadreceipts ) {
-        push @regexmess, q{s{\A((?:[^\n]+\r\n)+|)(^Disposition-Notification-To:[^\n]*\n)(\r?\n|.*\n\r?\n)}{$1X-$2$3}ims} ;
-}
-
-$pipemesscheck = ( defined  $pipemesscheck  ) ? $pipemesscheck : 1 ;
-
-if ( @pipemess and $pipemesscheck ) {
-        myprint( 'Checking each --pipemess command, '
-                . join( q{, }, @pipemess )
-                . ", with an space string. ( Can avoid this check with --nopipemesscheck )\n" ) ;
-        my $string = pipemess( q{ }, @pipemess ) ;
-        # string undef means something was bad.
-        if ( not ( defined  $string  ) ) {
-                exit_clean( $sync, $EX_USAGE, "Error: one of --pipemess command is bad, check it\n" ) ;
-        }
-        myprint( "Ok with each --pipemess @pipemess\n"  ) ;
-}
-
-if ( $maxlinelengthcmd ) {
-        myprint( "Checking --maxlinelengthcmd command,  $maxlinelengthcmd, with an space string.\n"  ) ;
-        my $string = pipemess( q{ }, $maxlinelengthcmd ) ;
-        # string undef means something was bad.
-        if ( not ( defined  $string  ) ) {
-                exit_clean( $sync, $EX_USAGE, "Error: --maxlinelengthcmd command is bad, check it\n" ) ;
-        }
-        myprint( "Ok with --maxlinelengthcmd $maxlinelengthcmd\n"  ) ;
-}
-
-if ( @regexmess ) {
-        my $string = regexmess( q{ } ) ;
-        myprint( "Checking each --regexmess command with an space string.\n"  ) ;
-        # string undef means one of the eval regex was bad.
-        if ( not ( defined  $string  ) ) {
-                exit_clean( $sync, $EX_USAGE, 'Error: one of --regexmess option is bad, check it' ) ;
-        }
-        myprint( "Ok with each --regexmess\n"  ) ;
-}
-
-if ( @skipmess ) {
-        myprint( "Checking each --skipmess command with an space string.\n"  ) ;
-        my $match = skipmess( q{ } ) ;
-        # match undef means one of the eval regex was bad.
-        if ( not ( defined  $match  ) ) {
-                exit_clean( $sync, $EX_USAGE, 'Error: one of --skipmess option is bad, check it' ) ;
-        }
-        myprint( "Ok with each --skipmess\n"  ) ;
-}
-
-if ( @regexflag ) {
-        myprint( "Checking each --regexflag command with an space string.\n"  ) ;
-        my $string = flags_regex( q{ } ) ;
-        # string undef means one of the eval regex was bad.
-        if ( not ( defined  $string  ) ) {
-                exit_clean( $sync, $EX_USAGE, 'Error: one of --regexflag option is bad, check it' ) ;
-        }
-        myprint( "Ok with each --regexflag\n"  ) ;
-}
-
-$sync->{imap1} = login_imap( $sync->{host1}, $sync->{port1}, $sync->{user1}, $domain1, $sync->{password1},
-                   $debugimap1, $sync->{h1}->{timeout}, $fastio1, $sync->{ssl1}, $sync->{tls1},
-                   $authmech1, $authuser1, $reconnectretry1,
-                   $proxyauth1, $uid1, $split1, 'Host1', $sync->{h1}, $sync ) ;
-
-$sync->{imap2} = login_imap( $sync->{host2}, $sync->{port2}, $sync->{user2}, $domain2, $sync->{password2},
-                 $debugimap2, $sync->{h2}->{timeout}, $fastio2, $sync->{ssl2}, $sync->{tls2},
-                 $authmech2, $authuser2, $reconnectretry2,
-                 $proxyauth2, $uid2, $split2, 'Host2', $sync->{h2}, $sync ) ;
-
-
-$sync->{ debug } and myprint( 'Host1 Buffer I/O: ', $sync->{imap1}->Buffer(), "\n" ) ;
-$sync->{ debug } and myprint( 'Host2 Buffer I/O: ', $sync->{imap2}->Buffer(), "\n" ) ;
-
-
-if ( ! $sync->{imap1}->IsAuthenticated( ) ) { exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, 'Not authenticated on host1' )  ; }
-myprint( "Host1: state Authenticated\n" ) ;
-if ( ! $sync->{imap2}->IsAuthenticated( ) ) { exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, 'Not authenticated on host2' )  ; }
-myprint( "Host2: state Authenticated\n" ) ;
-
-myprint( 'Host1 capability once authenticated: ', join(q{ }, @{ $sync->{imap1}->capability() || [] }), "\n" ) ;
-
-#myprint( Data::Dumper->Dump( [ $sync->{imap1} ] )  ) ;
-#myprint( "imap4rev1: " . $sync->{imap1}->imap4rev1() . "\n" ) ;
-
-myprint( 'Host2 capability once authenticated: ', join(q{ }, @{ $sync->{imap2}->capability() || [] }), "\n" ) ;
-
-
-# ID on by default since 1.832
-$sync->{id} = defined  $sync->{id}  ? $sync->{id} : 1 ;
-imap_id_stuff( $sync ) ;
-
-#quota( $sync, $sync->{imap1}, 'h1' ) ; # quota on host1 is useless and pollute host2 output.
-quota( $sync, $sync->{imap2}, 'h2' )  ;
-
-maxsize_setting( $sync ) ;
-
-if ( $sync->{ justlogin } ) {
-        $sync->{imap1}->logout(  ) ;
-        $sync->{imap2}->logout(  ) ;
-        myprint( "Exiting because of --justlogin\n" ) ;
-        exit_clean( $sync, $EX_OK ) ;
-}
-
-
-#
-# Folder stuff
-#
-
-my (
-        @h1_folders_all , %h1_folders_all , @h1_folders_wanted , %requested_folder ,
-        %h1_subscribed_folder , %h2_subscribed_folder ,
-        @h2_folders_all , %h2_folders_all , %h2_folders_all_UPPER ,
-        @h2_folders_from_1_wanted , %h2_folders_from_1_wanted ,
-        %h2_folders_from_1_several ,
-        %h2_folders_from_1_all ,
-) ;
-
-my $h1_folders_wanted_nb = 0 ;
-my $h1_folders_wanted_ct = 0 ; # counter of folders done.
-
-# All folders on host1 and host2
-
-@h1_folders_all = sort $sync->{imap1}->folders(  ) ;
-@h2_folders_all = sort $sync->{imap2}->folders(  ) ;
-
-myprint( 'Host1: found ', scalar  @h1_folders_all , " folders.\n"  ) ;
-myprint( 'Host2: found ', scalar  @h2_folders_all , " folders.\n"  ) ;
-
-foreach my $f ( @h1_folders_all ) {
-	$h1_folders_all{ $f } = 1
-}
-foreach my $f ( @h2_folders_all ) {
-        $h2_folders_all{ $f } = 1 ;
-        $h2_folders_all_UPPER{ uc  $f  } = 1 ;
-}
-
-$sync->{h1_folders_all} = \%h1_folders_all ;
-$sync->{h2_folders_all} = \%h2_folders_all ;
-$sync->{h2_folders_all_UPPER} = \%h2_folders_all_UPPER ;
-
-private_folders_separators_and_prefixes(  ) ;
-
-
-# Make a hash of subscribed folders in both servers.
-
-for ( $sync->{imap1}->subscribed(  ) ) { $h1_subscribed_folder{ $_ } = 1 } ;
-for ( $sync->{imap2}->subscribed(  ) ) { $h2_subscribed_folder{ $_ } = 1 } ;
-
-
-if ( defined $sync->{ subfolder1 } ) {
-        subfolder1( $sync ) ;
-}
-
-
-
-
-if ( defined  $sync->{ subfolder2 } ) {
-        subfolder2(  $sync ) ;
-}
-
-if ( $fixInboxINBOX and ( my $reg = fix_Inbox_INBOX_mapping( \%h1_folders_all, \%h2_folders_all ) ) ) {
-        push @{ $sync->{ regextrans2 } }, $reg ;
-}
-
-
-
-if ( ( $sync->{ folder } and scalar @{ $sync->{ folder } } )
-     or $subscribed
-     or scalar @folderrec )
-{
-        # folders given by option --folder
-        if ( $sync->{ folder } and scalar @{ $sync->{ folder } } ) {
-                add_to_requested_folders( @{ $sync->{ folder } } ) ;
-        }
-
-        # option --subscribed
-        if ( $subscribed ) {
-                add_to_requested_folders( keys  %h1_subscribed_folder  ) ;
-        }
-
-        # option --folderrec
-        if ( scalar @folderrec ) {
-                foreach my $folderrec ( @folderrec ) {
-                        add_to_requested_folders( $sync->{imap1}->folders( $folderrec ) ) ;
-                }
-        }
-}
-else
-{
-        # no include, no folder/subscribed/folderrec options => all folders
-        if ( not scalar @include ) {
-                myprint( "Including all folders found by default. Use --subscribed or --folder or --folderrec or --include to select specific folders. Use --exclude to unselect specific folders.\n"  ) ;
-                add_to_requested_folders( @h1_folders_all ) ;
-        }
-}
-
-
-# consider (optional) includes and excludes
-if ( scalar  @include  ) {
-        foreach my $include ( @include ) {
-                my @included_folders = grep { /$include/ } @h1_folders_all ;
-                add_to_requested_folders( @included_folders ) ;
-                myprint( "Including folders matching pattern $include\n" . jux_utf8_list( @included_folders )  . "\n"  ) ;
-        }
-}
-
-if ( scalar  @exclude  ) {
-        foreach my $exclude ( @exclude ) {
-                my @requested_folder = sort keys %requested_folder ;
-                my @excluded_folders = grep { /$exclude/ } @requested_folder ;
-                remove_from_requested_folders( @excluded_folders ) ;
-                myprint( "Excluding folders matching pattern $exclude\n" . jux_utf8_list( @excluded_folders ) . "\n"  ) ;
-        }
-}
-
-
-# sort before is not very powerful
-# it adds --folderfirst and --folderlast even if they don't exist on host1
-@h1_folders_wanted = sort_requested_folders(  ) ;
-
-# Remove no selectable folders
-
-
-if ( $sync->{ checkfoldersexist } ) {
-        my @h1_folders_wanted_exist ;
-        myprint( "Host1: Checking wanted folders exist. Use --nocheckfoldersexist to avoid this check (shared of public namespace targeted).\n"  ) ;
-        foreach my $folder ( @h1_folders_wanted ) {
-                ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "Checking $folder exists on host1\n"  ) ;
-                if ( ! exists  $h1_folders_all{ $folder }  ) {
-                        myprint( "Host1: warning! ignoring folder $folder because it is not in host1 whole folders list.\n" ) ;
-                        next ;
-                }else{
-                        push  @h1_folders_wanted_exist, $folder  ;
-                }
-        }
-        @h1_folders_wanted = @h1_folders_wanted_exist ;
-}else{
-        myprint( "Host1: Not checking that wanted folders exist. Remove --nocheckfoldersexist to get this check.\n"  ) ;
-}
-
-
-if ( $sync->{ checkselectable } ) {
-        my @h1_folders_wanted_selectable ;
-        myprint( "Host1: Checking wanted folders are selectable. Use --nocheckselectable to avoid this check.\n"  ) ;
-        foreach my $folder ( @h1_folders_wanted ) {
-                ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "Checking $folder is selectable on host1\n"  ) ;
-                # It does an imap command  LIST "" $folder and then search for no \Noselect
-                if ( ! $sync->{imap1}->selectable( $folder ) ) {
-                                myprint( "Host1: warning! ignoring folder $folder because it is not selectable\n" ) ;
-                }else{
-                        push  @h1_folders_wanted_selectable, $folder  ;
-                }
-        }
-        @h1_folders_wanted = @h1_folders_wanted_selectable ;
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( 'Host1: checking folders took ', timenext(  ), " s\n"  ) ;
-}else{
-        myprint( "Host1: Not checking that wanted folders are selectable. Remove --nocheckselectable to get this check.\n"  ) ;
-}
-
-$sync->{h1_folders_wanted} = \@h1_folders_wanted ;
-
-
-# Old place of private_folders_separators_and_prefixes(  ) call.
-#private_folders_separators_and_prefixes(  ) ;
-
-
-# this hack is because LWP post does not pass well a hash in the $form parameter
-# but it does pass well an array
-%{ $sync->{f1f2h} } = split_around_equal( @{ $sync->{f1f2} } ) ;
-
-automap( $sync ) ;
-
-
-foreach my $h1_fold ( @h1_folders_wanted ) {
-        my $h2_fold ;
-        $h2_fold = imap2_folder_name( $sync, $h1_fold ) ;
-        $h2_folders_from_1_wanted{ $h2_fold }++ ;
-        if ( 1 < $h2_folders_from_1_wanted{ $h2_fold } ) {
-                $h2_folders_from_1_several{ $h2_fold }++ ;
-        }
-}
-@h2_folders_from_1_wanted = sort keys %h2_folders_from_1_wanted;
-
-foreach my $h1_fold ( @h1_folders_all ) {
-        my $h2_fold ;
-        $h2_fold = imap2_folder_name( $sync, $h1_fold ) ;
-        $h2_folders_from_1_all{ $h2_fold }++ ;
-}
-
-
-
-myprint( << 'END_LISTING'  ) ;
-
-++++ Listing folders
-All foldernames are presented between brackets like [X] where X is the foldername.
-When a foldername contains non-ASCII characters it is presented in the form
-[X] = [Y] where
-X is the imap foldername you have to use in command line options and
-Y is the utf8 output just printed for convenience, to recognize it.
-
-END_LISTING
-
-myprint(
-  "Host1: folders list (first the raw imap format then the [X] = [Y]):\n",
-  $sync->{imap1}->list(  ),
-  "\n",
-  jux_utf8_list( @h1_folders_all ),
-  "\n",
-  "Host2: folders list (first the raw imap format then the [X] = [Y]):\n",
-  $sync->{imap2}->list(  ),
-  "\n",
-  jux_utf8_list( @h2_folders_all ),
-  "\n",
-  q{}
-) ;
-
-if ( $subscribed ) {
-        myprint(
-                'Host1 subscribed folders list: ',
-                jux_utf8_list( sort keys  %h1_subscribed_folder  ), "\n",
-        ) ;
-}
-
-
-my @h2_folders_not_in_1;
-@h2_folders_not_in_1 = list_folders_in_2_not_in_1(  ) ;
-
-if ( @h2_folders_not_in_1 ) {
-        myprint( "Folders in host2 not in host1:\n",
-        jux_utf8_list( @h2_folders_not_in_1 ), "\n" ) ;
-}
-
-
-if ( keys %{ $sync->{f1f2auto} } ) {
-        myprint( "Folders mapping from --automap feature (use --f1f2 to override any mapping):\n"  ) ;
-        foreach my $h1_fold ( keys %{ $sync->{f1f2auto} } ) {
-                my $h2_fold = $sync->{f1f2auto}{$h1_fold} ;
-                myprintf( "%-40s -> %-40s\n",
-                       jux_utf8( $h1_fold ), jux_utf8( $h2_fold ) ) ;
-        }
-        myprint( "\n"  ) ;
-}
-
-if ( keys %{ $sync->{f1f2h} } ) {
-        myprint( "Folders mapping from --f1f2 options, it overrides --automap:\n"  ) ;
-        foreach my $h1_fold ( keys %{ $sync->{f1f2h} } ) {
-                my $h2_fold = $sync->{f1f2h}{$h1_fold} ;
-                my $warn = q{} ;
-                if ( not exists  $h1_folders_all{ $h1_fold }  ) {
-                        $warn = "BUT $h1_fold does NOT exist on host1!" ;
-                }
-                myprintf( "%-40s -> %-40s %s\n",
-                       jux_utf8( $h1_fold ), jux_utf8( $h2_fold ), $warn ) ;
-        }
-        myprint( "\n"  ) ;
-}
-
-exit_clean( $sync, $EX_OK ) if ( $sync->{justfolderlists} ) ;
-exit_clean( $sync, $EX_OK ) if ( $sync->{justautomap} ) ;
-
-debugsleep( $sync ) ;
-
-if ( $foldersizes ) {
-        foldersizes_on_h1h2( $sync ) ;
-}
-
-
-
-if ( $sync->{ justfoldersizes } )
-{
-        myprint( "Exiting because of --justfoldersizes\n" ) ;
-        exit_clean( $sync, $EX_OK ) ;
-}
-
-$sync->{stats} = 1 ;
-
-if ( $sync->{ delete1emptyfolders } ) {
-        delete1emptyfolders( $sync ) ;
-}
-
-delete_folders_in_2_not_in_1(  ) if $delete2folders ;
-
-# folder loop
-$h1_folders_wanted_nb = scalar  @h1_folders_wanted  ;
-
-myprint( "++++ Looping on each one of $h1_folders_wanted_nb folders to sync\n" ) ;
-
-$sync->{begin_transfer_time} = time ;
-
-my %uid_candidate_for_deletion ;
-my %uid_candidate_no_deletion ;
-
-$sync->{ h2_folders_of_md5 } = {  } ;
-
-FOLDER: foreach my $h1_fold ( @h1_folders_wanted ) {
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        my $h2_fold = imap2_folder_name( $sync, $h1_fold ) ;
-
-        $h1_folders_wanted_ct++ ;
-        myprintf( "Folder %7s %-35s -> %-35s\n", "$h1_folders_wanted_ct/$h1_folders_wanted_nb",
-                jux_utf8( $h1_fold ), jux_utf8( $h2_fold ) ) ;
-        myprint( debugmemory( $sync, " at folder loop" ) ) ;
-
-        # host1 can not be fetched read only, select is needed because of expunge.
-        select_folder( $sync, $sync->{imap1}, $h1_fold, 'Host1' ) or next FOLDER ;
-
-        debugsleep( $sync ) ;
-
-        my $h1_fold_nb_messages = count_from_select( $sync->{imap1}->History ) ;
-        myprint( "Host1: folder [$h1_fold] has $h1_fold_nb_messages messages in total (mentioned by SELECT)\n" ) ;
-
-        if ( $skipemptyfolders and 0 == $h1_fold_nb_messages ) {
-                myprint( "Host1: skipping empty host1 folder [$h1_fold]\n"  ) ;
-                next FOLDER ;
-        }
-
-        # Code added from https://github.com/imapsync/imapsync/issues/95
-        # Thanks jh1995
-        if ( $skipemptyfolders ) {
-                my $h1_msgs_all_hash_ref_tmp = {  } ;
-                my @h1_msgs_tmp = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref_tmp, $search1, $h1_fold ) ;
-                my $h1_fold_nb_messages_tmp = scalar( @h1_msgs_tmp ) ;
-                if ( 0 == $h1_fold_nb_messages_tmp ) {
-                        myprint( "Host1: skipping empty host1 folder [$h1_fold] (0 message found by SEARCH)\n"  ) ;
-                        next FOLDER ;
-                }
-        }
-
-        if ( ! exists  $h2_folders_all{ $h2_fold }  ) {
-                create_folder( $sync, $sync->{imap2}, $h2_fold, $h1_fold ) or next FOLDER ;
-        }
-
-        acls_sync( $h1_fold, $h2_fold ) ;
-
-        # Sometimes the folder on host2 is listed (it exists) but is
-        # not selectable but becomes selectable by a create (Gmail)
-        select_folder( $sync, $sync->{imap2}, $h2_fold, 'Host2' )
-        or ( create_folder( $sync, $sync->{imap2}, $h2_fold, $h1_fold )
-             and select_folder( $sync, $sync->{imap2}, $h2_fold, 'Host2' ) )
-        or next FOLDER ;
-        my @select_results = $sync->{imap2}->Results(  ) ;
-
-        my $h2_fold_nb_messages = count_from_select( @select_results ) ;
-        myprint( "Host2: folder [$h2_fold] has $h2_fold_nb_messages messages in total (mentioned by SELECT)\n" ) ;
-
-        my $permanentflags2 = permanentflags( @select_results ) ;
-        myprint( "Host2: folder [$h2_fold] permanentflags: $permanentflags2\n"  ) ;
-
-        if ( $sync->{ expunge1 } )
-        {
-                myprint( "Host1: Expunging $h1_fold $sync->{dry_message}\n"  ) ;
-                if ( ! $sync->{dry} ) { $sync->{imap1}->expunge(  ) } ;
-        }
-
-        if ( ( ( $subscribe and exists $h1_subscribed_folder{ $h1_fold } ) or $subscribeall )
-             and not exists  $h2_subscribed_folder{ $h2_fold }  )
-        {
-                myprint( "Host2: Subscribing to folder $h2_fold\n"  ) ;
-                if ( ! $sync->{dry} ) { $sync->{imap2}->subscribe( $h2_fold ) } ;
-        }
-
-        next FOLDER if ( $sync->{ justfolders } ) ;
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        my $h1_msgs_all_hash_ref = {  } ;
-        my @h1_msgs = select_msgs( $sync->{imap1}, $h1_msgs_all_hash_ref, $search1, $sync->{abletosearch1}, $h1_fold );
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        my $h1_msgs_nb = scalar  @h1_msgs  ;
-
-        myprint( "Host1: folder [$h1_fold] considering $h1_msgs_nb messages\n"  ) ;
-        ( $sync->{ debug } or $debuglist ) and myprint( "Host1: folder [$h1_fold] considering $h1_msgs_nb messages, LIST gives: @h1_msgs\n" ) ;
-        $sync->{ debug } and myprint( "Host1: selecting messages of folder [$h1_fold] took ", timenext(), " s\n" ) ;
-
-        my $h2_msgs_all_hash_ref = {  } ;
-        my @h2_msgs = select_msgs( $sync->{imap2}, $h2_msgs_all_hash_ref, $search2, $sync->{abletosearch2}, $h2_fold ) ;
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        my $h2_msgs_nb = scalar  @h2_msgs  ;
-
-        myprint( "Host2: folder [$h2_fold] considering $h2_msgs_nb messages\n" ) ;
-        ( $sync->{ debug } or $debuglist ) and myprint( "Host2: folder [$h2_fold] considering $h2_msgs_nb messages, LIST gives: @h2_msgs\n" ) ;
-        $sync->{ debug } and myprint( "Host2: selecting messages of folder [$h2_fold] took ", timenext(), " s\n" ) ;
-
-        my $cache_base = "$sync->{ tmpdir }/imapsync_cache/" ;
-        my $cache_dir = cache_folder( $cache_base, "$sync->{host1}/$sync->{user1}/$sync->{host2}/$sync->{user2}", $h1_fold, $h2_fold ) ;
-        my ( $cache_1_2_ref, $cache_2_1_ref ) = ( {}, {} ) ;
-
-        my $h1_uidvalidity = $sync->{imap1}->uidvalidity(  ) || q{} ;
-        my $h2_uidvalidity = $sync->{imap2}->uidvalidity(  ) || q{} ;
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        if ( $usecache ) {
-                myprint( "Local cache directory: $cache_dir ( " . length( $cache_dir  )  . " characters long )\n"  ) ;
-                mkpath( "$cache_dir" ) ;
-                ( $cache_1_2_ref, $cache_2_1_ref )
-                = get_cache( $cache_dir, \@h1_msgs, \@h2_msgs, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-                myprint( 'CACHE h1 h2: ', scalar  keys %{ $cache_1_2_ref } , " files\n"  ) ;
-                $sync->{ debug } and myprint( '[',
-                    map ( { "$_->$cache_1_2_ref->{$_} " } keys %{ $cache_1_2_ref } ), " ]\n" ) ;
-        }
-
-        my %h1_hash = (  ) ;
-        my %h2_hash = (  ) ;
-
-        my ( %h1_msgs, %h2_msgs ) ;
-        @h1_msgs{ @h1_msgs } = (  ) ;
-        @h2_msgs{ @h2_msgs } = (  ) ;
-
-        my @h1_msgs_in_cache = sort { $a <=> $b } keys %{ $cache_1_2_ref } ;
-        my @h2_msgs_in_cache = keys %{ $cache_2_1_ref } ;
-
-        my ( %h1_msgs_not_in_cache, %h2_msgs_not_in_cache ) ;
-        %h1_msgs_not_in_cache = %h1_msgs ;
-        %h2_msgs_not_in_cache = %h2_msgs ;
-        delete @h1_msgs_not_in_cache{ @h1_msgs_in_cache } ;
-        delete @h2_msgs_not_in_cache{ @h2_msgs_in_cache } ;
-
-        my @h1_msgs_not_in_cache = keys %h1_msgs_not_in_cache ;
-        #myprint( "h1_msgs_not_in_cache: [@h1_msgs_not_in_cache]\n"  ) ;
-        my @h2_msgs_not_in_cache = keys %h2_msgs_not_in_cache ;
-
-        my @h2_msgs_delete2_not_in_cache = () ;
-        %h1_msgs_copy_by_uid = (  ) ;
-
-        if ( $useuid ) {
-                # use uid so we have to avoid getting header
-                @h1_msgs_copy_by_uid{ @h1_msgs_not_in_cache } = (  ) ;
-                @h2_msgs_delete2_not_in_cache = @h2_msgs_not_in_cache if $usecache ;
-                @h1_msgs_not_in_cache = (  ) ;
-                @h2_msgs_not_in_cache = (  ) ;
-
-                #myprint( "delete2: @h2_msgs_delete2_not_in_cache\n" ) ;
-        }
-
-        $sync->{ debug } and myprint( "Host1: parsing headers of folder [$h1_fold]\n" ) ;
-
-        my ($h1_heads_ref, $h1_fir_ref) = ({}, {});
-        $h1_heads_ref = $sync->{imap1}->parse_headers([@h1_msgs_not_in_cache], @useheader) if (@h1_msgs_not_in_cache);
-        $sync->{ debug } and myprint( "Host1: parsing headers of folder [$h1_fold] took ", timenext(), " s\n" ) ;
-
-        @{ $h1_fir_ref }{@h1_msgs} = ( undef ) ;
-
-        $sync->{ debug } and myprint( "Host1: getting flags idate and sizes of folder [$h1_fold]\n"  ) ;
-
-        my @h1_common_fetch_param = ( 'FLAGS', 'INTERNALDATE', 'RFC822.SIZE' ) ;
-        if ( $sync->{ synclabels } or $sync->{ resynclabels } ) { push @h1_common_fetch_param, 'X-GM-LABELS' ; }
-
-        if ( $sync->{abletosearch1} )
-        {
-                $h1_fir_ref = $sync->{imap1}->fetch_hash( \@h1_msgs, @h1_common_fetch_param, $h1_fir_ref )
-                if ( @h1_msgs ) ;
-        }
-        else
-        {
-                my $uidnext = $sync->{imap1}->uidnext( $h1_fold ) || $uidnext_default ;
-                my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
-                $h1_fir_ref = $sync->{imap1}->fetch_hash( $fetch_hash_uids, @h1_common_fetch_param, $h1_fir_ref )
-                if ( @h1_msgs ) ;
-        }
-
-        $sync->{ debug } and myprint( "Host1: getting flags idate and sizes of folder [$h1_fold] took ", timenext(), " s\n"  ) ;
-        if ( ! $h1_fir_ref )
-        {
-                my $error = join( q{}, "Host1: folder $h1_fold : Could not fetch_hash ",
-                        scalar @h1_msgs, ' msgs: ', $sync->{imap1}->LastError || q{}, "\n" ) ;
-                errors_incr( $sync, $error ) ;
-                next FOLDER ;
-        }
-
-        my @h1_msgs_duplicate;
-        foreach my $m ( @h1_msgs_not_in_cache )
-        {
-                my $rc = parse_header_msg( $sync, $sync->{imap1}, $m, $h1_heads_ref, $h1_fir_ref, 'Host1', \%h1_hash ) ;
-                if ( ! defined $rc )
-                {
-                        my $h1_size = $h1_fir_ref->{$m}->{'RFC822.SIZE'} || 0;
-                        myprint( "Host1: $h1_fold/$m size $h1_size ignored (no wanted headers so we ignore this message. To solve this: use --addheader)\n"  ) ;
-                        $sync->{ total_bytes_skipped } += $h1_size ;
-                        $sync->{ nb_msg_skipped } += 1 ;
-                        $sync->{ h1_nb_msg_noheader }  +=1 ;
-                        $sync->{ h1_nb_msg_processed } +=1 ;
-                } elsif(0 == $rc)
-                {
-                        # duplicate
-                        push @h1_msgs_duplicate, $m;
-                        # duplicate, same id same size?
-                        my $h1_size = $h1_fir_ref->{$m}->{'RFC822.SIZE'} || 0;
-                        $sync->{ nb_msg_skipped } += 1;
-                        $h1_nb_msg_duplicate += 1;
-                        $sync->{ h1_nb_msg_processed } +=1 ;
-                }
-        }
-        my $h1_msgs_duplicate_nb = scalar  @h1_msgs_duplicate  ;
-
-        myprint( "Host1: folder [$h1_fold] selected $h1_msgs_nb messages, duplicates $h1_msgs_duplicate_nb\n" ) ;
-
-        $sync->{ debug } and myprint( 'Host1: whole time parsing headers took ', timenext(), " s\n"  ) ;
-        # Getting headers and metada can be so long that host2 might be disconnected here
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-
-        $sync->{ debug } and myprint( "Host2: parsing headers of folder [$h2_fold]\n" ) ;
-
-        my ($h2_heads_ref, $h2_fir_ref) = ( {}, {} );
-        $h2_heads_ref =   $sync->{imap2}->parse_headers([@h2_msgs_not_in_cache], @useheader) if (@h2_msgs_not_in_cache);
-        $sync->{ debug } and myprint( "Host2: parsing headers of folder [$h2_fold] took ", timenext(), " s\n"  ) ;
-
-        $sync->{ debug } and myprint( "Host2: getting flags idate and sizes of folder [$h2_fold]\n"  ) ;
-        @{ $h2_fir_ref }{@h2_msgs} = (  ); # fetch_hash can select by uid with last arg as ref
-
-
-        my @h2_common_fetch_param = ( 'FLAGS', 'INTERNALDATE', 'RFC822.SIZE' ) ;
-        if ( $sync->{ synclabels } or $sync->{ resynclabels } ) { push @h2_common_fetch_param, 'X-GM-LABELS' ; }
-
-        if ( $sync->{abletosearch2} and scalar( @h2_msgs ) ) {
-                $h2_fir_ref = $sync->{imap2}->fetch_hash( \@h2_msgs, @h2_common_fetch_param, $h2_fir_ref) ;
-        }else{
-                my $uidnext = $sync->{imap2}->uidnext( $h2_fold ) || $uidnext_default ;
-                my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
-                $h2_fir_ref = $sync->{imap2}->fetch_hash( $fetch_hash_uids, @h2_common_fetch_param, $h2_fir_ref )
-                if ( @h2_msgs ) ;
-        }
-
-        $sync->{ debug } and myprint( "Host2: getting flags idate and sizes of folder [$h2_fold] took ", timenext(), " s\n"  ) ;
-
-        my @h2_msgs_duplicate;
-        foreach my $m (@h2_msgs_not_in_cache) {
-                my $rc = parse_header_msg( $sync, $sync->{imap2}, $m, $h2_heads_ref, $h2_fir_ref, 'Host2', \%h2_hash ) ;
-                my $h2_size = $h2_fir_ref->{$m}->{'RFC822.SIZE'} || 0 ;
-                if (! defined  $rc  ) {
-                        myprint( "Host2: $h2_fold/$m size $h2_size ignored (no wanted headers so we ignore this message)\n"  ) ;
-                        $h2_nb_msg_noheader += 1 ;
-                } elsif( 0 == $rc ) {
-                        # duplicate
-                        $h2_nb_msg_duplicate += 1 ;
-                        push  @h2_msgs_duplicate, $m  ;
-                }
-        }
-
-        # %h2_folders_of_md5
-        foreach my $md5 (  keys  %h2_hash  ) {
-                $sync->{ h2_folders_of_md5 }->{ $md5 }->{ $h2_fold } ++ ;
-        }
-        # %h1_folders_of_md5
-        foreach my $md5 (  keys  %h1_hash  ) {
-                $sync->{ h1_folders_of_md5 }->{ $md5 }->{ $h2_fold } ++ ;
-        }
-
-
-        my $h2_msgs_duplicate_nb = scalar  @h2_msgs_duplicate  ;
-
-        myprint( "Host2: folder [$h2_fold] selected $h2_msgs_nb messages, duplicates $h2_msgs_duplicate_nb\n" ) ;
-
-        $sync->{ debug } and myprint( 'Host2 whole time parsing headers took ', timenext(  ), " s\n"  ) ;
-
-        $sync->{ debug } and myprint( "++++ Verifying [$h1_fold] -> [$h2_fold]\n" ) ;
-        # messages in host1 that are not in host2
-
-        my @h1_hash_keys_sorted_by_uid
-          = sort {$h1_hash{$a}{'m'} <=> $h1_hash{$b}{'m'}} keys %h1_hash;
-
-        #myprint( map { $h1_hash{$_}{'m'} . q{ }} @h1_hash_keys_sorted_by_uid ) ;
-
-        my @h2_hash_keys_sorted_by_uid
-          = sort {$h2_hash{$a}{'m'} <=> $h2_hash{$b}{'m'}} keys %h2_hash;
-
-        # Deletions on account2.
-
-        if( $sync->{ delete2duplicates } and not exists  $h2_folders_from_1_several{ $h2_fold }  ) {
-                my @h2_expunge ;
-
-                foreach my $h2_msg ( @h2_msgs_duplicate ) {
-                        myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted [duplicate] on host2 $sync->{dry_message}\n"  ) ;
-                        push  @h2_expunge, $h2_msg  if $sync->{ uidexpunge2 } ;
-                        if ( ! $sync->{dry} ) {
-                                $sync->{imap2}->delete_message( $h2_msg ) ;
-                                $h2_nb_msg_deleted += 1 ;
-                        }
-                }
-                my $cnt = scalar @h2_expunge ;
-                if( @h2_expunge and not $sync->{ expunge2 } ) {
-                        myprint( "Host2: UidExpunging $cnt message(s) in folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->uidexpunge( \@h2_expunge ) if ! $sync->{dry} ;
-                }
-                if ( $sync->{ expunge2 } ){
-                        myprint( "Host2: Expunging folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->expunge(  ) if ! $sync->{dry} ;
-                }
-        }
-
-        if( $sync->{ delete2 } and not exists  $h2_folders_from_1_several{ $h2_fold }  ) {
-                # No host1 folders f1a f1b ... going all to same f2 (via --regextrans2)
-                my @h2_expunge;
-                foreach my $m_id (@h2_hash_keys_sorted_by_uid) {
-                        #myprint( "$m_id " ) ;
-                        if ( ! exists $h1_hash{$m_id} ) {
-                                my $h2_msg  = $h2_hash{$m_id}{'m'};
-                                my $h2_flags  = $h2_hash{$m_id}{'F'} || q{};
-                                my $isdel  = $h2_flags =~ /\B\\Deleted\b/x ? 1 : 0;
-                                myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted on host2 [$m_id] $sync->{dry_message}\n" )
-                                  if ! $isdel;
-                                push @h2_expunge, $h2_msg if $sync->{ uidexpunge2 };
-                                if ( ! ( $sync->{dry} or $isdel ) ) {
-                                        $sync->{imap2}->delete_message($h2_msg);
-                                        $h2_nb_msg_deleted += 1;
-                                }
-                        }
-                }
-                foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-                        myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted [not in cache] on host2 $sync->{dry_message}\n" ) ;
-                        push @h2_expunge, $h2_msg if $sync->{ uidexpunge2 };
-                        if ( ! $sync->{dry} ) {
-                                $sync->{imap2}->delete_message($h2_msg);
-                                $h2_nb_msg_deleted += 1;
-                        }
-                }
-                my $cnt = scalar @h2_expunge ;
-
-                if( @h2_expunge and not $sync->{ expunge2 } ) {
-                        myprint( "Host2: UidExpunging $cnt message(s) in folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->uidexpunge( \@h2_expunge ) if ! $sync->{dry} ;
-                }
-                if ( $sync->{ expunge2 } ) {
-                        myprint( "Host2: Expunging folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->expunge(  ) if ! $sync->{dry} ;
-                }
-        }
-
-        if( $sync->{ delete2 } and exists  $h2_folders_from_1_several{ $h2_fold }  ) {
-                myprint( "Host2: folder $h2_fold $h2_folders_from_1_several{ $h2_fold } folders left to sync there\n"  ) ;
-                my @h2_expunge;
-                foreach my $m_id ( @h2_hash_keys_sorted_by_uid ) {
-                        my $h2_msg  = $h2_hash{ $m_id }{ 'm' } ;
-                        if ( ! exists  $h1_hash{ $m_id }  ) {
-                                my $h2_flags  = $h2_hash{ $m_id }{ 'F' } || q{} ;
-                                my $isdel  = $h2_flags =~ /\B\\Deleted\b/x ? 1 : 0 ;
-                                if ( ! $isdel ) {
-                                        $sync->{ debug } and myprint( "Host2: msg $h2_fold/$h2_msg candidate for deletion [$m_id]\n"  ) ;
-                                        $uid_candidate_for_deletion{ $h2_fold }{ $h2_msg }++ ;
-                                }
-                        }else{
-                                $sync->{ debug } and myprint( "Host2: msg $h2_fold/$h2_msg will cancel deletion [$m_id]\n"  ) ;
-                                $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                        }
-                }
-                foreach my $h2_msg ( @h2_msgs_delete2_not_in_cache ) {
-                        myprint( "Host2: msg $h2_fold/$h2_msg candidate for deletion [not in cache]\n" ) ;
-                        $uid_candidate_for_deletion{ $h2_fold }{ $h2_msg }++ ;
-                }
-
-                foreach my $h2_msg ( @h2_msgs_in_cache ) {
-                        myprint( "Host2: msg $h2_fold/$h2_msg will cancel deletion [in cache]\n" ) ;
-                        $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                }
-
-
-                if ( 0 == $h2_folders_from_1_several{ $h2_fold } ) {
-                        # last host1 folder going to $h2_fold
-                        myprint( "Last host1 folder going to $h2_fold\n"  ) ;
-                        foreach my $h2_msg ( keys %{ $uid_candidate_for_deletion{ $h2_fold } } ) {
-                                $sync->{ debug } and myprint( "Host2: msg $h2_fold/$h2_msg candidate for deletion\n"  ) ;
-                                if ( exists  $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }  ) {
-                                        $sync->{ debug } and myprint( "Host2: msg $h2_fold/$h2_msg canceled deletion\n"  ) ;
-                                }else{
-                                        myprint( "Host2: msg $h2_fold/$h2_msg marked \\Deleted $sync->{dry_message}\n" ) ;
-                                        push  @h2_expunge, $h2_msg  if $sync->{ uidexpunge2 } ;
-                                        if ( ! $sync->{dry} ) {
-                                                $sync->{imap2}->delete_message( $h2_msg ) ;
-                                                $h2_nb_msg_deleted += 1 ;
-                                        }
-                                }
-                        }
-                }
-
-                my $cnt = scalar @h2_expunge ;
-                if( @h2_expunge and not $sync->{ expunge2 } ) {
-                        myprint( "Host2: UidExpunging $cnt message(s) in folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->uidexpunge( \@h2_expunge ) if ! $sync->{dry} ;
-                }
-                if ( $sync->{ expunge2 } ) {
-                        myprint( "Host2: Expunging host2 folder $h2_fold $sync->{dry_message}\n"  ) ;
-                        $sync->{imap2}->expunge(  ) if ! $sync->{dry} ;
-                }
-
-                $h2_folders_from_1_several{ $h2_fold }-- ;
-        }
-
-        my $h2_uidnext = $sync->{imap2}->uidnext( $h2_fold ) ;
-        $sync->{ debug } and myprint( "Host2: uidnext is $h2_uidnext\n"  ) ;
-        $h2_uidguess = $h2_uidnext ;
-
-	# Getting host2 headers, metada and delete2 stuff can be so long that host1 might be disconnected here
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        my @h1_msgs_to_delete ;
-        MESS: foreach my $m_id (@h1_hash_keys_sorted_by_uid) {
-		if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-                #myprint( "h1_nb_msg_processed: $sync->{ h1_nb_msg_processed }\n"  ) ;
-                my $h1_size  = $h1_hash{$m_id}{'s'};
-                my $h1_msg   = $h1_hash{$m_id}{'m'};
-                my $h1_idate = $h1_hash{$m_id}{'D'};
-
-                #my $labels = labels( $sync->{imap1}, $h1_msg ) ;
-                #print "LABELS: $labels\n" ;
-
-                if ( ( not exists  $h2_hash{ $m_id }  )
-                        and ( not ( exists $sync->{ h2_folders_of_md5 }->{ $m_id } )
-                              or not $skipcrossduplicates ) )
-                {
-                        # copy
-                        my $h2_msg = copy_message( $sync, $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                        if ( $h2_msg and $sync->{ delete1 } and not $sync->{ expungeaftereach } ) {
-                                # not  expunged
-                                push @h1_msgs_to_delete, $h1_msg ;
-                        }
-
-                        # A bug here with imapsync 1.920, fixed in 1.921
-                        # Added $h2_msg in the condition. Errors of APPEND were not counted as missing messages on host2!
-                        if ( $h2_msg and not $sync->{ dry } )
-                        {
-                                $sync->{ h2_folders_of_md5 }->{ $m_id }->{ $h2_fold } ++ ;
-                        }
-
-                        #
-                        if( $sync->{ delete2 } and ( exists $h2_folders_from_1_several{ $h2_fold } ) and $h2_msg ) {
-                                myprint( "Host2: msg $h2_fold/$h2_msg will cancel deletion [fresh copy] on host2\n"  ) ;
-                                $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                        }
-
-                        if ( total_bytes_max_reached( $sync ) ) {
-                                # a bug when using --delete1 --noexpungeaftereach
-                                # same thing below on all total_bytes_max_reached!
-                                last FOLDER ;
-                        }
-                        next MESS;
-                }
-                else
-                {
-                        # already on host2
-                        if ( exists  $h2_hash{ $m_id }  )
-                        {
-                                my $h2_msg   = $h2_hash{$m_id}{'m'} ;
-                                $sync->{ debug } and myprint( "Host1: found that msg $h1_fold/$h1_msg equals Host2 $h2_fold/$h2_msg\n"  ) ;
-                                if ( $usecache )
-                                {
-                                        $debugcache and myprint( "touch $cache_dir/${h1_msg}_$h2_msg\n"  ) ;
-                                        touch( "$cache_dir/${h1_msg}_$h2_msg" )
-                                        or croak( "Couldn't touch $cache_dir/${h1_msg}_$h2_msg" ) ;
-                                }
-                        }
-                        elsif( exists  $sync->{ h2_folders_of_md5 }->{ $m_id }  )
-                        {
-                                my @folders_dup = keys  %{ $sync->{ h2_folders_of_md5 }->{ $m_id } }  ;
-                                ( $sync->{ debug } or $debugcrossduplicates ) and myprint( "Host1: found that msg $h1_fold/$h1_msg is also in Host2 folders @folders_dup\n"  ) ;
-                                $sync->{ h2_nb_msg_crossdup } +=1 ;
-                        }
-                        $sync->{ total_bytes_skipped } += $h1_size ;
-                        $sync->{ nb_msg_skipped } += 1 ;
-                        $sync->{ h1_nb_msg_processed } +=1 ;
-                }
-
-                if ( exists  $h2_hash{ $m_id }  ) {
-                        #$debug and myprint( "MESSAGE $m_id\n" ) ;
-                        my $h2_msg  = $h2_hash{$m_id}{'m'};
-                        if ( $sync->{resyncflags} ) {
-                                sync_flags_fir( $sync, $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-                        }
-                        # Good
-                        my $h2_size = $h2_hash{$m_id}{'s'};
-                        $sync->{ debug } and myprint(
-                        "Host1: size msg $h1_fold/$h1_msg = $h1_size <> $h2_size = Host2 $h2_fold/$h2_msg\n" ) ;
-
-                        if ( $sync->{ resynclabels } )
-                        {
-                                resynclabels( $sync, $h1_msg, $h2_msg, $h1_fir_ref, $h2_fir_ref, $h1_fold )
-                        }
-                }
-
-		if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-                if ( $sync->{ delete1 } ) {
-                        push @h1_msgs_to_delete, $h1_msg ;
-                }
-        }
-        # END MESS: loop
-
-        delete_message_on_host1( $sync, $h1_fold, $sync->{ expunge1 }, @h1_msgs_to_delete, @h1_msgs_in_cache ) ;
-
-	if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        # MESS_IN_CACHE:
-        if ( ! $sync->{ delete1 } )
-        {
-                foreach my $h1_msg ( @h1_msgs_in_cache )
-                {
-                        my $h2_msg = $cache_1_2_ref->{ $h1_msg } ;
-                        $debugcache and myprint( "cache messages update flags $h1_msg->$h2_msg\n" ) ;
-                        if ( $sync->{resyncflags} )
-                        {
-                                sync_flags_fir( $sync, $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) ;
-                        }
-                        my $h1_size = $h1_fir_ref->{ $h1_msg }->{ 'RFC822.SIZE' } || 0 ;
-                        $sync->{ total_bytes_skipped } += $h1_size;
-                        $sync->{ nb_msg_skipped } += 1;
-                        $sync->{ h1_nb_msg_processed } +=1 ;
-                }
-        }
-
-        if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-        @h1_msgs_to_delete = (  ) ;
-        #myprint( "Messages by uid: ", map { "$_ " } keys %h1_msgs_copy_by_uid, "\n"  ) ;
-        # MESS_BY_UID:
-        foreach my $h1_msg ( sort { $a <=> $b } keys %h1_msgs_copy_by_uid )
-        {
-                $sync->{ debug } and myprint( "Copy by uid $h1_fold/$h1_msg\n"  ) ;
-                if ( ! reconnect_12_if_needed( $sync ) ) { last FOLDER ; }
-
-                my $h2_msg = copy_message( $sync, $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) ;
-                if( $sync->{ delete2 } and exists  $h2_folders_from_1_several{ $h2_fold }  and $h2_msg ) {
-                        myprint( "Host2: msg $h2_fold/$h2_msg will cancel deletion [fresh copy] on host2\n"  ) ;
-                        $uid_candidate_no_deletion{ $h2_fold }{ $h2_msg }++ ;
-                }
-                last FOLDER if total_bytes_max_reached( $sync ) ;
-        }
-
-        if ( $sync->{ expunge1 } ){
-                myprint( "Host1: Expunging folder $h1_fold $sync->{dry_message}\n"  ) ;
-                if ( ! $sync->{dry} ) { $sync->{imap1}->expunge(  ) } ;
-        }
-        if ( $sync->{ expunge2 } ){
-                myprint( "Host2: Expunging folder $h2_fold $sync->{dry_message}\n"  ) ;
-                if ( ! $sync->{dry} ) { $sync->{imap2}->expunge(  ) } ;
-        }
-        $sync->{ debug } and myprint( 'Time: ', timenext(  ), " s\n"  ) ;
-}
-
-
-myprint( "++++ End looping on each folder\n"  ) ;
-
-if ( $sync->{ delete1 } and $sync->{ delete1emptyfolders } ) {
-	delete1emptyfolders( $sync ) ;
-}
-
-( $sync->{ debug } or $sync->{debugfolders} ) and myprint( 'Time: ', timenext(  ), " s\n"  ) ;
-
-
-if ( $foldersizesatend ) {
-        myprint( << 'END_SIZE'  ) ;
-
-Folders sizes after the synchronization.
-You can remove this foldersizes listing by using  "--nofoldersizesatend"
-END_SIZE
-
-        foldersizesatend( $sync ) ;
-}
-
-if ( ! lost_connection( $sync, $sync->{imap1}, "for host1 [$sync->{host1}]" ) ) { $sync->{imap1}->logout(  )  ; }
-if ( ! lost_connection( $sync, $sync->{imap2}, "for host2 [$sync->{host2}]" ) ) { $sync->{imap2}->logout(  )  ; }
-
-stats( $sync ) ;
-myprint( errorsdump( $sync->{nb_errors}, errors_log( $sync ) ) ) if ( $sync->{errorsdump} ) ;
-tests_live_result( $sync->{nb_errors} ) if ( $sync->{testslive} or $sync->{testslive6} ) ;
-
-
-exit_clean( $sync, $EXIT_WITH_ERRORS ) if ( $sync->{nb_errors} ) ;
-exit_clean( $sync, $EX_OK ) ;
-
-# END of main program
-
-
-# subroutines
-sub myprint
-{
-        #print @ARG ;
-        print { $sync->{ tee } || \*STDOUT } @ARG ;
-        return ;
-}
-
-sub myprintf
-{
-        printf { $sync->{ tee } || \*STDOUT } @ARG ;
-        return ;
-}
-
-sub mysprintf
-{
-        my( $format, @list ) = @ARG ;
-        return sprintf $format, @list ;
-}
-
-sub output_start
-{
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } = join( q{}, @output ) . ( $mysync->{ output } || q{} ) ;
-	return $mysync->{ output } ;
-}
-
-
-sub tests_output_start
-{
-	note( 'Entering tests_output_start()' ) ;
-
-	my $mysync = { } ;
-
-	is( undef, output_start(  ), 'output_start: no args => undef' ) ;
-	is( q{}, output_start( $mysync ), 'output_start: one arg => ""' ) ;
-	is( 'rrrr', output_start( $mysync, 'rrrr' ), 'output_start: rrrr => rrrr' ) ;
-	is( 'aaaarrrr', output_start( $mysync, 'aaaa' ), 'output_start: aaaa => aaaarrrr' ) ;
-	is( "\naaaarrrr", output_start( $mysync, "\n" ), 'output_start: \n => \naaaarrrr' ) ;
-	is( "ABC\naaaarrrr", output_start( $mysync, 'A', 'B', 'C' ), 'output_start: A B C => ABC\naaaarrrr' ) ;
-
-	note( 'Leaving  tests_output_start()' ) ;
-	return ;
-}
-
-sub tests_output
-{
-	note( 'Entering tests_output()' ) ;
-
-	my $mysync = { } ;
-
-	is( undef, output(  ), 'output: no args => undef' ) ;
-	is( q{}, output( $mysync ), 'output: one arg => ""' ) ;
-	is( 'rrrr', output( $mysync, 'rrrr' ), 'output: rrrr => rrrr' ) ;
-	is( 'rrrraaaa', output( $mysync, 'aaaa' ), 'output: aaaa => rrrraaaa' ) ;
-	is( "rrrraaaa\n", output( $mysync, "\n" ), 'output: \n => rrrraaaa\n' ) ;
-	is( "rrrraaaa\nABC", output( $mysync, 'A', 'B', 'C' ), 'output: A B C => rrrraaaaABC\n' ) ;
-
-	note( 'Leaving  tests_output()' ) ;
-	return ;
-}
-
-sub output
-{
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } .= join( q{}, @output ) ;
-	return $mysync->{ output } ;
-}
-
-
-
-sub tests_output_reset_with
-{
-	note( 'Entering tests_output_reset_with()' ) ;
-
-	my $mysync = { } ;
-
-	is( undef,  output_reset_with(  ), 'output_reset_with: no args => undef' ) ;
-	is( q{},    output_reset_with( $mysync ), 'output_reset_with: one arg => ""' ) ;
-	is( 'rrrr', output_reset_with( $mysync, 'rrrr' ), 'output_reset_with: rrrr => rrrr' ) ;
-	is( 'aaaa', output_reset_with( $mysync, 'aaaa' ), 'output_reset_with: aaaa => aaaa' ) ;
-	is( "\n",   output_reset_with( $mysync, "\n" ), 'output_reset_with: \n => \n' ) ;
-
-	note( 'Leaving  tests_output_reset_with()' ) ;
-	return ;
-}
-
-sub output_reset_with
-{
-	my $mysync = shift @ARG ;
-
-	if ( not $mysync ) { return ; }
-
-	my @output = @ARG ;
-	$mysync->{ output } = join( q{}, @output ) ;
-	return $mysync->{ output } ;
-}
-
-
-
-sub abort
-{
-	my $mysync = shift @ARG ;
-	if ( ! -r $mysync->{pidfile} ) {
-		myprint( "Can not read pidfile $mysync->{pidfile}. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}
-	my $pidtokill = firstline( $mysync->{pidfile} ) ;
-	if ( ! $pidtokill ) {
-		myprint( "No process to abort. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}
-	# First ask for suicide
-	if ( kill 'ZERO', $pidtokill ) {
-		myprint( "Sending signal QUIT to PID $pidtokill \n" ) ;
-		kill 'QUIT', $pidtokill ;
-		sleep 1 ;
-	}else{
-		myprint( "Can not send signal to PID $pidtokill. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}
-	# Then murder
-	if ( kill 'ZERO', $pidtokill ) {
-		myprint( "Sending signal KILL to PID $pidtokill \n" ) ;
-		kill 'KILL', $pidtokill ;
-		sleep 1 ;
-	}else{
-		myprint( "Process PID $pidtokill ended. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}
-	# Well ...
-	if ( kill 'ZERO', $pidtokill ) {
-		myprint( "Process PID $pidtokill still there. Can not do much. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}else{
-		myprint( "Process PID $pidtokill ended. Exiting.\n" ) ;
-		exit $EX_OK ;
-	}
-        # well abort job done anyway
-
-        exit $EX_OK ;
-}
-
-
-
-sub docker_context
-{
-	my $mysync = shift ;
-	-e '/.dockerenv'  || return ;
-	myprint( "Docker context detected with /.dockerenv\n" ) ;
-	# No pidfile
-	$mysync->{pidfile} = q{} ;
-	# No log
-	$mysync->{log} = 0 ;
-	# In case
-	myprint( "Changing current directory to /var/tmp/\n" ) ;
-	chdir '/var/tmp/' ;
-
-	return ;
-}
-
-sub cgibegin
-{
-	my $mysync = shift ;
-	if ( ! under_cgi_context( $mysync ) ) { return ; }
-	require CGI ;
-	CGI->import( qw( -no_debug ) ) ;
-	require CGI::Carp ;
-	CGI::Carp->import( qw( fatalsToBrowser ) ) ;
-	$mysync->{cgi} = CGI->new( ) ;
-	return ;
-}
-
-sub tests_under_cgi_context
-{
-	note( 'Entering tests_under_cgi_context()' ) ;
-
-	# $ENV{SERVER_SOFTWARE} = 'under imapsync' ;
-	do {
-		# Not in cgi context
-		delete local $ENV{SERVER_SOFTWARE} ;
-		is( undef, under_cgi_context(  ), 'under_cgi_context: SERVER_SOFTWARE unset => not in cgi context' ) ;
-	} ;
-	do {
-		# In cgi context
-		local $ENV{SERVER_SOFTWARE} = 'under imapsync' ;
-		is( 1, under_cgi_context(  ), 'under_cgi_context: SERVER_SOFTWARE set => in cgi context' ) ;
-	} ;
-	do {
-		# Not in cgi context
-		delete local $ENV{SERVER_SOFTWARE} ;
-		is( undef, under_cgi_context(  ), 'under_cgi_context: SERVER_SOFTWARE unset => not in cgi context' ) ;
-	} ;
-	do {
-		# In cgi context
-		local $ENV{SERVER_SOFTWARE} = 'under imapsync' ;
-		is( 1, under_cgi_context(  ), 'under_cgi_context: SERVER_SOFTWARE set => in cgi context' ) ;
-	} ;
-	note( 'Leaving  tests_under_cgi_context()' ) ;
-	return ;
-}
-
-
-sub under_cgi_context
-{
-        my $mysync = shift ;
-	# Under cgi context
-	if ( $ENV{SERVER_SOFTWARE} ) {
-		return 1 ;
-	}
-	# Not in cgi context
-	return ;
-}
-
-sub cgibuildheader
-{
-	my $mysync = shift ;
-	if ( ! under_cgi_context( $mysync ) ) { return ; }
-
-	my $imapsync_runs = $mysync->{cgi}->cookie( 'imapsync_runs' ) || 0 ;
-	my $cookie = $mysync->{cgi}->cookie(
-			-name => 'imapsync_runs',
-			-value => 1 + $imapsync_runs,
-			-expires => '+20y',
-			-path    => '/cgi-bin/imapsync',
-		) ;
-	my $httpheader ;
-	if ( $mysync->{ abort } ) {
-		$httpheader = $mysync->{cgi}->header(
-			-type   => 'text/plain',
-			-status => '200 OK to abort syncing IMAP boxes' . ". Here is " . hostname(),
-		) ;
-	}elsif( $mysync->{ loaddelay } ) {
-# https://tools.ietf.org/html/rfc2616#section-10.5.4
-# 503 Service Unavailable
-# The server is currently unable to handle the request due to a temporary overloading or maintenance of the server.
-		$httpheader = $mysync->{cgi}->header(
-			-type   => 'text/plain',
-			-status => '503 Service Unavailable' . ". Be back in $mysync->{ loaddelay } min. Load on " . hostname() . " is $mysync->{ loadavg }",
-		) ;
-	}else{
-		$httpheader = $mysync->{cgi}->header(
-		-type   => 'text/plain',
-		-status => '200 OK to sync IMAP boxes' . ". Load on " . hostname() . " is $mysync->{ loadavg }",
-		-cookie => $cookie,
-		) ;
-	}
-	output_start( $mysync, $httpheader ) ;
-
-	return ;
-}
-
-sub cgiload
-{
-        # Exit on heavy load in CGI context
-        my $mysync = shift ;
-        if ( ! under_cgi_context( $mysync ) ) { return ; }
-        if ( $mysync->{ abort } ) { return ; } # keep going to abort since some ressources will be free soon
-        if ( $mysync->{ loaddelay } )
-        {
-                myprint( "Server is on heavy load. Be back in $mysync->{ loaddelay } min. Load is $mysync->{ loadavg }\n") ;
-                exit_clean( $mysync, $EX_UNAVAILABLE ) ;
-        }
-        return ;
-}
-
-sub tests_set_umask
-{
-	note( 'Entering tests_set_umask()' ) ;
-
-	my $save_umask = umask ;
-
-	my $mysync = {} ;
-	if ( 'MSWin32' eq $OSNAME ) {
-		is( undef, set_umask( $mysync ), "set_umask: set failure to $UMASK_PARANO on MSWin32" ) ;
-	}else{
-		is( 1, set_umask( $mysync ), "set_umask: set to $UMASK_PARANO" ) ;
-	}
-
-	umask $save_umask ;
-	note( 'Leaving  tests_set_umask()' ) ;
-	return ;
-}
-
-sub set_umask
-{
-	my $mysync = shift ;
-	my $previous_umask = umask_str(  ) ;
-	my $new_umask = umask_str( $UMASK_PARANO ) ;
-	output( $mysync, "Umask set with $new_umask (was $previous_umask)\n" ) ;
-	if ( $new_umask eq $UMASK_PARANO ) {
-		return 1 ;
-	}
-	return ;
-}
-
-sub tests_umask_str
-{
-	note( 'Entering tests_umask_str()' ) ;
-
-	my $save_umask = umask ;
-
-	is( umask_str(  ), umask_str(  ),  'umask_str: no parameters => idopotent' ) ;
-	is( my $save_umask_str = umask_str(  ), umask_str(  ),  'umask_str: no parameters => idopotent + save' ) ;
-	is( '0000', umask_str(    q{ } ),  'umask_str:  q{ } => 0000' ) ;
-	is( '0000', umask_str(     q{} ),  'umask_str:   q{} => 0000' ) ;
-	is( '0000', umask_str(  '0000' ),  'umask_str:  0000 => 0000' ) ;
-	is( '0000', umask_str(     '0' ),  'umask_str:     0 => 0000' ) ;
-	is( '0200', umask_str(  '0200' ),  'umask_str:  0200 => 0200' ) ;
-	is( '0400', umask_str(  '0400' ),  'umask_str:  0400 => 0400' ) ;
-	is( '0600', umask_str(  '0600' ),  'umask_str:  0600 => 0600' ) ;
-
-	SKIP: {
-	if ( 'MSWin32' eq $OSNAME ) { skip( 'Tests success only for Unix', 6 ) ; }
-	is( '0100', umask_str(  '0100' ),  'umask_str:  0100 => 0100' ) ;
-	is( '0001', umask_str(  '0001' ),  'umask_str:  0001 => 0001' ) ;
-	is( '0777', umask_str(  '0777' ),  'umask_str:  0777 => 0777' ) ;
-	is( '0777', umask_str( '00777' ),  'umask_str: 00777 => 0777' ) ;
-	is( '0777', umask_str( ' 777 ' ),  'umask_str:  777  => 0777' ) ;
-	is( "$UMASK_PARANO", umask_str( $UMASK_PARANO ),   "umask_str: UMASK_PARANO $UMASK_PARANO => $UMASK_PARANO" ) ;
-	}
-
-	is( $save_umask_str, umask_str( $save_umask_str ),  'umask_str: restore with str' ) ;
-	is( $save_umask, umask, 'umask_str: umask is restored, controlled by direct umask' ) ;
-	is( $save_umask, umask $save_umask, 'umask_str: umask is restored by direct umask' ) ;
-	is( $save_umask, umask, 'umask_str: umask initial controlled by direct umask' ) ;
-
-	note( 'Leaving  tests_umask_str()' ) ;
-	return ;
-}
-
-sub umask_str
-{
-	my $value = shift ;
-
-	if ( defined $value ) {
-		umask oct( $value ) ;
-	}
-	my $current = umask ;
-
-	return( sprintf( '%#04o', $current ) ) ;
-}
-
-sub tests_umask
-{
-	note( 'Entering tests_umask()' ) ;
-
-	my $save_umask ;
-	is( umask, umask, 'umask: umask is umask' ) ;
-	is( $save_umask = umask, umask, "umask: umask is umask again + save it: $save_umask" ) ;
-	is( $save_umask, umask oct(0000), 'umask: umask 0000' ) ;
-	is( oct(0000), umask, 'umask: umask is now 0000' ) ;
-	is( oct(0000), umask oct(777), 'umask: umask 0777 call, previous 0000' ) ;
-
-	SKIP: {
-	if ( 'MSWin32' eq $OSNAME ) { skip( 'Tests success only for Unix', 2 ) ; }
-	is( oct(777), umask, 'umask: umask is now  0777' ) ;
-	is( oct(777), umask $save_umask, "umask: umask $save_umask restore inital value, previous 0777" ) ;
-	}
-
-	ok( defined umask $save_umask, "umask: umask $save_umask restore inital value, previous defined" ) ;
-	is( $save_umask, umask, 'umask: umask is umask restored' ) ;
-	note( 'Leaving  tests_umask()' ) ;
-
-	return ;
-}
-
-sub  cgisetcontext
-{
-	my $mysync = shift ;
-	if ( ! under_cgi_context( $mysync ) ) { return ; }
-
-	output( $mysync, "Under cgi context\n" ) ;
-	set_umask( $mysync ) ;
-
-        # Remove all content in unsafe evaled options
-        @{ $mysync->{ regextrans2 } } = (  ) ;
-        @regexflag   = (  ) ;
-        @regexmess   = (  ) ;
-        @skipmess    = (  ) ;
-        @pipemess    = (  ) ;
-        $delete2foldersonly   = undef ;
-        $delete2foldersbutnot = undef ;
-	$maxlinelengthcmd     = undef ;
-
-	# Set safe default values (I hope...)
-
-	$mysync->{pidfile} =  'imapsync.pid' ;
-	$mysync->{pidfilelocking} = 1 ;
-	$mysync->{errorsmax} = $ERRORS_MAX_CGI ;
-	$modulesversion = 0 ;
-	$mysync->{releasecheck} = defined  $mysync->{releasecheck}  ? $mysync->{releasecheck} : 1 ;
-	$usecache = 0 ;
-	$mysync->{showpasswords} = 0 ;
-	$debugimap1 = $debugimap2 = $debugimap = 0 ;
-	$reconnectretry1 = $reconnectretry2 = $DEFAULT_NB_RECONNECT_PER_IMAP_COMMAND ;
-	$pipemesscheck = 0 ;
-
-	$mysync->{hashfile} = $CGI_HASHFILE ;
-	my $hashsynclocal = hashsynclocal( $mysync ) || die "Can not get hashsynclocal. Exiting\n" ;
-	$cgidir = $CGI_TMPDIR_TOP . '/' . $hashsynclocal ;
-
-        -d $cgidir or mkpath $cgidir or die "Can not create $cgidir: $OS_ERROR\n" ;
-        chdir  $cgidir or die "Can not cd to $cgidir: $OS_ERROR\n" ;
-	$mysync->{ tmpdir } = $cgidir ;
-	cgioutputenvcontext( $mysync ) ;
-        $mysync->{ debug } and output( $mysync, 'Current directory is ' . getcwd(  ) . "\n" ) ;
-        $mysync->{ debug } and output( $mysync, 'Real user id is ' . getpwuid_any_os( $REAL_USER_ID ) . " (uid $REAL_USER_ID)\n" ) ;
-        $mysync->{ debug } and output( $mysync, 'Effective user id is ' . getpwuid_any_os( $EFFECTIVE_USER_ID ). " (euid $EFFECTIVE_USER_ID)\n" ) ;
-
-        $skipemptyfolders = defined  $skipemptyfolders  ? $skipemptyfolders : 1 ;
-
-        # Out of memory with messages over 1 GB ?
-        $mysync->{ maxsize } = defined  $mysync->{ maxsize }  ? $mysync->{ maxsize } : 1_000_000_000 ;
-
-        # tail -f behaviour on by default
-        $mysync->{ tail } = defined  $mysync->{ tail }  ? $mysync->{ tail } : 1 ;
-        
-        # not sure it's for good
-        @useheader = qw( Message-Id ) ;
-
-        # addheader on by default
-        $mysync->{ addheader } = defined  $mysync->{ addheader }  ? $mysync->{ addheader } : 1 ;
-        
-        return ;
-}
-
-sub cgioutputenvcontext
-{
-	my $mysync = shift @ARG ;
-
-	for my $envvar ( qw( REMOTE_ADDR REMOTE_HOST HTTP_REFERER HTTP_USER_AGENT SERVER_SOFTWARE SERVER_PORT HTTP_COOKIE ) ) {
-
-		my $envval = $ENV{ $envvar } || q{} ;
-		if ( $envval ) { output( $mysync, "$envvar is $envval\n" ) } ;
-	}
-
-	return ;
-}
-
-
-
-
-
-sub debugsleep
-{
-        my $mysync = shift @ARG ;
-        if ( defined $mysync->{debugsleep} ) {
-                myprint( "Info: sleeping $mysync->{debugsleep}s\n" ) ;
-                sleep $mysync->{debugsleep} ;
-        }
-        return ;
-}
-
-sub foldersizes_on_h1h2
-{
-        my $mysync = shift ;
-
-        myprint( << 'END_SIZE'  ) ;
-
-Folders sizes before the synchronization.
-You can remove foldersizes listings by using "--nofoldersizes" and "--nofoldersizesatend"
-but then you will also lose the ETA (Estimation Time of Arrival) given after each message copy.
-END_SIZE
-
-        ( $h1_nb_msg_start, $h1_bytes_start ) = foldersizes( 'Host1', $mysync->{imap1}, $search1, $mysync->{abletosearch1}, @h1_folders_wanted        ) ;
-        ( $h2_nb_msg_start, $h2_bytes_start ) = foldersizes( 'Host2', $mysync->{imap2}, $search2, $mysync->{abletosearch2}, @h2_folders_from_1_wanted ) ;
-
-        if ( not all_defined( $h1_nb_msg_start, $h1_bytes_start, $h2_nb_msg_start, $h2_bytes_start ) ) {
-                my $error = "Failure getting foldersizes, ETA and final diff will not be displayed\n" ;
-                errors_incr( $mysync, $error ) ;
-                $foldersizes = 0 ;
-                $foldersizesatend = 0 ;
-                return ;
-        }
-
-        my $h2_bytes_limit = $mysync->{h2}->{quota_limit_bytes} || 0 ;
-        if ( $h2_bytes_limit and ( $h2_bytes_limit < $h1_bytes_start ) ) {
-                my $quota_percent = mysprintf( '%.0f', $NUMBER_100 * $h1_bytes_start / $h2_bytes_limit ) ;
-                my $error = "Host2: Quota limit will be exceeded! Over $quota_percent % ( $h1_bytes_start bytes / $h2_bytes_limit bytes )\n" ;
-                errors_incr( $mysync, $error ) ;
-        }
-        return ;
-}
-
-
-sub total_bytes_max_reached
-{
-        my $mysync = shift ;
-
-        if ( ! $mysync->{ exitwhenover } ) {
-                return( 0 ) ;
-        }
-        if ( $mysync->{ total_bytes_transferred } >= $mysync->{ exitwhenover } ) {
-                myprint( "Maximum bytes transferred reached, $mysync->{total_bytes_transferred} >= $mysync->{ exitwhenover }, ending sync\n"  ) ;
-                return( 1 ) ;
-        }
-        return ;
-}
-
-
-sub tests_mock_capability
-{
-        note( 'Entering tests_mock_capability()' ) ;
-
-        my $myimap ;
-        ok( $myimap = mock_capability(  ),
-            'mock_capability: (1) no args => a Test::MockObject'
-        ) ;
-        ok( $myimap->isa( 'Test::MockObject' ),
-            'mock_capability: (2) no args => a Test::MockObject'
-        ) ;
-
-        is( undef, $myimap->capability(  ),
-            'mock_capability: (3) no args => capability undef'
-        ) ;
-
-        ok( mock_capability( $myimap ),
-            'mock_capability: (1) one arg  => MockObject'
-        ) ;
-
-        is( undef, $myimap->capability(  ),
-            'mock_capability: (2) one arg OO style => capability undef'
-        ) ;
-
-        ok( mock_capability( $myimap, $NUMBER_123456 ),
-            'mock_capability: (1) two args 123456 => capability 123456'
-        ) ;
-
-        is( $NUMBER_123456, $myimap->capability(  ),
-            'mock_capability: (2) two args 123456 => capability 123456'
-        ) ;
-
-        ok( mock_capability( $myimap, 'ABCD' ),
-            'mock_capability: (1) two args ABCD => capability ABCD'
-        ) ;
-        is( 'ABCD', $myimap->capability(  ),
-            'mock_capability: (2) two args ABCD => capability ABCD'
-        ) ;
-
-        ok( mock_capability( $myimap, [ 'ABCD' ] ),
-            'mock_capability: (1) two args [ ABCD ] => capability [ ABCD ]'
-        ) ;
-        is_deeply( [ 'ABCD' ], $myimap->capability(  ),
-            'mock_capability: (2) two args [ ABCD ] => capability [ ABCD ]'
-        ) ;
-
-        ok( mock_capability( $myimap, [ 'ABC', 'DEF' ] ),
-            'mock_capability: (1) two args [ ABC, DEF ] => capability [ ABC, DEF ]'
-        ) ;
-        is_deeply( [ 'ABC', 'DEF' ], $myimap->capability(  ),
-            'mock_capability: (2) two args [ ABC, DEF ] => capability capability [ ABC, DEF ]'
-        ) ;
-
-        ok( mock_capability( $myimap, 'ABC', 'DEF' ),
-            'mock_capability: (1) two args ABC, DEF => capability [ ABC, DEF ]'
-        ) ;
-        is_deeply( [ 'ABC', 'DEF' ], [ $myimap->capability(  ) ],
-            'mock_capability: (2) two args ABC, DEF => capability capability [ ABC, DEF ]'
-        ) ;
-
-        ok( mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=123456' ),
-            'mock_capability: (1) two args IMAP4rev1, APPENDLIMIT=123456 => capability [ IMAP4rev1, APPENDLIMIT=123456 ]'
-        ) ;
-        is_deeply( [ 'IMAP4rev1', 'APPENDLIMIT=123456' ], [ $myimap->capability(  ) ],
-            'mock_capability: (2) two args IMAP4rev1, APPENDLIMIT=123456 => capability capability [ IMAP4rev1, APPENDLIMIT=123456 ]'
-        ) ;
-
-        note( 'Leaving  tests_mock_capability()' ) ;
-        return ;
-}
-
-sub sig_install_toggle_sleep
-{
-        my $mysync = shift ;
-        if ( 'MSWin32' ne $OSNAME ) {
-                #myprint( "sig_install( $mysync, \&toggle_sleep, 'USR1' )\n" ) ;
-                sig_install( $mysync, 'toggle_sleep', 'USR1' ) ;
-        }
-        #myprint( "Leaving sig_install_toggle_sleep\n" ) ;
-        return ;
-}
-
-
-sub mock_capability
-{
-        my $myimap = shift ;
-        my @has_capability_value = @ARG ;
-        my ( $has_capability_value ) = @has_capability_value ;
-
-        if ( ! $myimap )
-        {
-                require_ok( "Test::MockObject" ) ;
-                $myimap = Test::MockObject->new(  ) ;
-        }
-
-        $myimap->mock(
-                'capability',
-                sub { return  wantarray ?
-                                @has_capability_value
-                                : $has_capability_value ;
-                }
-        ) ;
-
-        return $myimap ;
-}
-
-
-sub tests_capability_of
-{
-        note( 'Entering tests_capability_of()' ) ;
-
-        is( undef, capability_of(  ),
-            'capability_of: no args => undef' ) ;
-
-        my $myimap ;
-        is( undef, capability_of( $myimap ),
-            'capability_of: undef => undef' ) ;
-
-
-        $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=123456' ) ;
-
-        is( undef, capability_of( $myimap, 'CACA' ),
-            'capability_of: two args unknown capability => undef' ) ;
-
-
-        is( $NUMBER_123456, capability_of( $myimap, 'APPENDLIMIT' ),
-            'capability_of: two args APPENDLIMIT 123456 => 123456 yeah!' ) ;
-
-        note( 'Leaving  tests_capability_of()' ) ;
-        return ;
-}
-
-
-sub capability_of
-{
-        my $imap = shift || return ;
-        my $capability_keyword = shift || return ;
-
-        my @capability = $imap->capability ;
-
-        if ( ! @capability ) { return ; }
-        my $capability_value = search_in_array( $capability_keyword, @capability ) ;
-
-        return $capability_value ;
-}
-
-
-sub tests_search_in_array
-{
-        note( 'Entering tests_search_in_array()' ) ;
-
-        is( undef, search_in_array( 'KA' ),
-                'search_in_array: no array => undef ' ) ;
-
-        is( 'VA', search_in_array( 'KA', ( 'KA=VA' ) ),
-                'search_in_array: KA KA=VA => VA ' ) ;
-
-        is( 'VA', search_in_array( 'KA', ( 'KA=VA', 'KB=VB' ) ),
-                'search_in_array: KA KA=VA KB=VB => VA ' ) ;
-
-        is( 'VB', search_in_array( 'KB', ( 'KA=VA', 'KB=VB' ) ),
-                'search_in_array: KA=VA KB=VB => VB ' ) ;
-
-        note( 'Leaving  tests_search_in_array()' ) ;
-        return ;
-}
-
-sub search_in_array
-{
-        my ( $key, @array ) = @ARG ;
-
-        foreach my $item ( @array )
-        {
-
-        if ( $item =~ /([^=]+)=(.*)/ )
-                {
-                        if ( $1 eq $key )
-                        {
-                                return $2 ;
-                        }
-                }
-        }
-
-        return ;
-}
-
-
-
-
-sub tests_appendlimit_from_capability
-{
-        note( 'Entering tests_appendlimit_from_capability()' ) ;
-
-        is( undef, appendlimit_from_capability(  ),
-            'appendlimit_from_capability: no args => undef'
-        ) ;
-
-        my $myimap ;
-        is( undef, appendlimit_from_capability( $myimap ),
-            'appendlimit_from_capability: undef arg => undef'
-        ) ;
-
-
-        $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=123456' ) ;
-
-        # Normal behavior
-        is( $NUMBER_123456, appendlimit_from_capability( $myimap ),
-            'appendlimit_from_capability: APPENDLIMIT=123456 => 123456'
-        ) ;
-
-        # Not a number
-        $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=ABC' ) ;
-
-        is( undef, appendlimit_from_capability( $myimap ),
-            'appendlimit_from_capability: not a number => undef'
-        ) ;
-
-        note( 'Leaving  tests_appendlimit_from_capability()' ) ;
-        return ;
-}
-
-
-sub appendlimit_from_capability
-{
-        my $myimap = shift ;
-        if ( ! $myimap )
-        {
-                myprint( "Warn: no imap with call to appendlimit_from_capability\n" ) ;
-                return ;
-        }
-
-        #myprint( Data::Dumper->Dump( [ \$myimap ] )  ) ;
-        my $appendlimit = capability_of( $myimap, 'APPENDLIMIT' ) ;
-        #myprint( "has_capability APPENDLIMIT $appendlimit\n" ) ;
-        if ( is_an_integer( $appendlimit ) )
-        {
-                return $appendlimit ;
-        }
-        return ;
-}
-
-
-sub tests_appendlimit
-{
-        note( 'Entering tests_appendlimit()' ) ;
-
-        is( undef, appendlimit(  ),
-            'appendlimit: no args => undef'
-        ) ;
-
-        my $mysync = {  } ;
-
-        is( undef, appendlimit( $mysync ),
-            'appendlimit: no imap2 => undef'
-        ) ;
-
-        my $myimap ;
-        $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=123456' ) ;
-
-        $mysync->{ imap2 } = $myimap ;
-
-        is( 123456, appendlimit( $mysync ),
-            'appendlimit: imap2 with APPENDLIMIT=123456 => 123456'
-        ) ;
-
-        note( 'Leaving  tests_appendlimit()' ) ;
-        return ;
-}
-
-sub appendlimit
-{
-        my $mysync = shift || return ;
-        my $myimap = $mysync->{ imap2 } ;
-
-        my $appendlimit = appendlimit_from_capability( $myimap ) ;
-        if ( defined $appendlimit )
-        {
-                myprint( "Host2: found APPENDLIMIT=$appendlimit in CAPABILITY (use --appendlimit xxxx to override this automatic setting)\n" ) ;
-                return $appendlimit ;
-        }
-        return ;
-
-}
-
-
-sub  tests_maxsize_setting
-{
-        note( 'Entering tests_maxsize_setting()' ) ;
-
-        is( undef, maxsize_setting(  ),
-           'maxsize_setting: no args => undef'
-        ) ;
-
-        my $mysync ;
-
-        is( undef, maxsize_setting( $mysync  ),
-           'maxsize_setting: undef arg => undef'
-        ) ;
-
-        $mysync = {  } ;
-        $mysync->{ maxsize } = $NUMBER_123456 ;
-
-        #  --maxsize alone
-        is( $NUMBER_123456, maxsize_setting( $mysync ),
-                'maxsize_setting: --maxsize 123456 alone => 123456'
-        ) ;
-
-
-        $mysync = {  } ;
-        my $myimap ;
-
-        $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=654321' ) ;
-        $mysync->{ imap2 } = $myimap ;
-
-        # APPENDLIMIT alone
-        is( $NUMBER_654321, maxsize_setting( $mysync ),
-                'maxsize_setting: APPENDLIMIT 654321 alone => 654321'
-        ) ;
-
-        is( $NUMBER_654321, $mysync->{ maxsize },
-                'maxsize_setting: APPENDLIMIT 654321 alone => maxsize 654321'
-        ) ;
-
-        # APPENDLIMIT with --appendlimit => --appendlimit wins
-        $mysync->{ appendlimit } = $NUMBER_123456 ;
-        
-        is( $NUMBER_123456, maxsize_setting( $mysync ),
-                'maxsize_setting: APPENDLIMIT 654321 + --appendlimit 123456 => 123456'
-        ) ;
-
-        is( $NUMBER_123456, $mysync->{ maxsize },
-                'maxsize_setting: APPENDLIMIT 654321 + --appendlimit 123456 => maxsize 123456'
-        ) ;
-
-        # Fresh
-        $mysync = {  } ;
-        $mysync->{ imap2 } = $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=654321' ) ;
-        
-        # Case: "APPENDLIMIT >= --maxsize" => maxsize.
-        $mysync->{ maxsize } = $NUMBER_123456 ;
-
-        is( $NUMBER_123456, maxsize_setting( $mysync ),
-                'maxsize_setting: APPENDLIMIT 654321 --maxsize 123456 => 123456'
-        ) ;
-
-        # Case: "APPENDLIMIT < --maxsize" => APPENDLIMIT.
-        
-        
-        # Fresh
-        $mysync = {  } ;
-        $mysync->{ imap2 } = $myimap = mock_capability( $myimap, 'IMAP4rev1', 'APPENDLIMIT=123456' ) ;
-        $mysync->{ maxsize } = $NUMBER_654321 ;
-
-        is( $NUMBER_123456, maxsize_setting( $mysync ),
-                'maxsize_setting: APPENDLIMIT 123456 --maxsize 654321  => 123456 '
-        ) ;
-
-        # Now --truncmess stuff
-        
-        
-        
-        note( 'Leaving  tests_maxsize_setting()' ) ;
-
-        return ;
-}
-
-# Three variables to take account of
-# appendlimit (given by --appendlimit or CAPABILITY...)
-# maxsize
-# truncmess
-
-sub maxsize_setting
-{
-        my $mysync = shift || return ;
-
-        if ( defined $mysync->{ appendlimit } )
-        {
-                myprint( "Host2: Getting appendlimit from --appendlimit $mysync->{ appendlimit }\n" ) ;
-        }
-        else
-        {
-                $mysync->{ appendlimit } = appendlimit( $mysync ) ;
-        }
-
-
-        if ( all_defined( $mysync->{ appendlimit },  $mysync->{ maxsize } ) )
-        {
-                my $min_maxsize_appendlimit = min( $mysync->{ maxsize }, $mysync->{ appendlimit } ) ;
-                myprint( "Host2: Setting maxsize to $min_maxsize_appendlimit (min of --maxsize $mysync->{ maxsize } and appendlimit $mysync->{ appendlimit }\n" ) ;
-                $mysync->{ maxsize } = $min_maxsize_appendlimit ;
-                return $mysync->{ maxsize } ;
-        }
-        elsif ( defined $mysync->{ appendlimit } )
-        {
-                myprint( "Host2: Setting maxsize to appendlimit $mysync->{ appendlimit }\n" ) ;
-                $mysync->{ maxsize } = $mysync->{ appendlimit } ;
-                return $mysync->{ maxsize } ;
-        }elsif ( defined $mysync->{ maxsize } )
-        {
-                return $mysync->{ maxsize } ;
-        }else
-        {
-                return ;
-        }
-}
-
-
-
-
-sub all_defined
-{
-        if ( not @ARG ) {
-                return 0 ;
-        }
-        foreach my $elem ( @ARG ) {
-                if ( not defined $elem ) {
-                        return 0 ;
-                }
-        }
-        return 1 ;
-}
-
-sub tests_all_defined
-{
-	note( 'Entering tests_all_defined()' ) ;
-
-        is( 0, all_defined(  ),             'all_defined: no param  => 0' ) ;
-        is( 0, all_defined( () ),           'all_defined: void list => 0' ) ;
-        is( 0, all_defined( undef ),        'all_defined: undef     => 0' ) ;
-        is( 0, all_defined( undef, undef ), 'all_defined: undef     => 0' ) ;
-        is( 0, all_defined( 1, undef ),     'all_defined: 1 undef   => 0' ) ;
-        is( 0, all_defined( undef, 1 ),     'all_defined: undef 1   => 0' ) ;
-        is( 1, all_defined( 1, 1 ),         'all_defined: 1 1   => 1' ) ;
-        is( 1, all_defined( (1, 1) ),       'all_defined: (1 1) => 1' ) ;
-
-	note( 'Leaving  tests_all_defined()' ) ;
-        return ;
-}
-
-
-sub tests_hashsynclocal
-{
-	note( 'Entering tests_hashsynclocal()' ) ;
-
-	my $mysync = {
-		host1 => '',
-		user1 => '',
-		password1 => '',
-		host2 => '',
-		user2 => '',
-		password2 => '',
-	} ;
-
-	is( undef, hashsynclocal( $mysync ), 'hashsynclocal: no hashfile name' ) ;
-
-	$mysync->{ hashfile } = '' ;
-	is( undef, hashsynclocal( $mysync ), 'hashsynclocal: empty hashfile name' ) ;
-
-	$mysync->{ hashfile } = './noexist/rrr' ;
-	is( undef, hashsynclocal( $mysync ), 'hashsynclocal: no exists hashfile dir' ) ;
-
-	SKIP: {
-		if ( 'MSWin32' eq $OSNAME or '0' eq $EFFECTIVE_USER_ID ) { skip( 'Tests only for non-root Unix', 1 ) ; }
-		$mysync->{ hashfile } = '/rrr' ;
-		is( undef, hashsynclocal( $mysync ), 'hashsynclocal: permission denied' ) ;
-	}
-	ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'hashsynclocal: mkpath W/tmp/tests/' ) ;
-	$mysync->{ hashfile } = 'W/tmp/tests/imapsync_hash' ;
-
-	ok( ! -e 'W/tmp/tests/imapsync_hash' || unlink 'W/tmp/tests/imapsync_hash', 'hashsynclocal: unlink W/tmp/tests/imapsync_hash' ) ;
-	ok( ! -e 'W/tmp/tests/imapsync_hash', 'hashsynclocal: verify there is no W/tmp/tests/imapsync_hash' ) ;
-	is( 'ecdeb4ede672794d173da4e08c52b8ee19b7d252', hashsynclocal( $mysync, 'mukksyhpmbixkxkpjlqivmlqsulpictj' ), 'hashsynclocal: creating/reading W/tmp/tests/imapsync_hash' ) ;
-	# A second time now
-	is( 'ecdeb4ede672794d173da4e08c52b8ee19b7d252', hashsynclocal( $mysync ), 'hashsynclocal: reading W/tmp/tests/imapsync_hash second time => same' ) ;
-
-	note( 'Leaving  tests_hashsynclocal()' ) ;
-	return ;
-}
-
-sub hashsynclocal
-{
-	my $mysync = shift ;
-	my $hashkey = shift ; # Optional, only there for tests
-	my $hashfile = $mysync->{ hashfile } ;
-	$hashfile = createhashfileifneeded( $hashfile, $hashkey ) ;
-	if ( ! $hashfile ) {
-		return ;
-	}
-	$hashkey = firstline( $hashfile ) ;
-	if ( ! $hashkey ) {
-		myprint( "No hashkey!\n" ) ;
-		return ;
-	}
-	my $hashsynclocal = hashsync( $mysync, $hashkey ) ;
-	return( $hashsynclocal ) ;
-
-}
-
-sub tests_hashsync
-{
-	note( 'Entering tests_hashsync()' ) ;
-
-
-	is( 'fbdb1d1b18aa6c08324b7d64b71fb76370690e1d', hashsync( {}, q{} ), 'hashsync: empty args' ) ;
-	my $mysync ;
-	$mysync->{ host1 } = 'zzz' ;
-	is( 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe', hashsync( $mysync, q{} ), 'hashsync: host1 zzz => ' ) ;
-	is( 'e86a28a3611c1e7bbaf8057cd00ae122781a11fe', hashsync( $mysync, q{} ), 'hashsync: host1 zzz => ' ) ;
-	$mysync->{ host2 } = 'zzz' ;
-	is( '15959573e4a86763253a7aedb1a2b0c60d133dc2', hashsync( $mysync, q{} ), 'hashsync: + host2 zzz => ' ) ;
-	is( 'b8d4ab541b209c75928528020ca28ee43488bd8f', hashsync( $mysync, 'A' ), 'hashsync: + hashkey A => ' ) ;
-
-	note( 'Leaving  tests_hashsync()' ) ;
-	return ;
-}
-
-sub hashsync
-{
-	my $mysync  = shift ;
-	my $hashkey = shift ;
-
-	my $mystring = join( q{},
-		$mysync->{ host1 }     || q{},
-		$mysync->{ user1 }     || q{},
-		$mysync->{ password1 } || q{},
-		$mysync->{ host2 }     || q{},
-		$mysync->{ user2 }     || q{},
-		$mysync->{ password2 } || q{},
-	) ;
-	my $hashsync = hmac_sha1_hex( $mystring, $hashkey ) ;
-	#myprint( "$hashsync\n" ) ;
-	return( $hashsync ) ;
-}
-
-
-sub tests_createhashfileifneeded
-{
-	note( 'Entering tests_createhashfileifneeded()' ) ;
-
-	is( undef, createhashfileifneeded(  ), 'createhashfileifneeded: no parameters => undef' ) ;
-
-	note( 'Leaving  tests_createhashfileifneeded()' ) ;
-	return ;
-}
-
-sub createhashfileifneeded
-{
-	my $hashfile = shift ;
-	my $hashkey  = shift || rand32(  ) ;
-
-	# no name
-	if ( ! $hashfile ) {
-		return ;
-	}
-	# already there
-	if ( -e -r $hashfile ) {
-		return $hashfile ;
-	}
-	# not creatable
-	if ( ! -w dirname( $hashfile ) ) {
-		return ;
-	}
-	# creatable
-	open my $FILE_HANDLE, '>', $hashfile
-                or do {
-                        myprint( "Could not open $hashfile for writing. Check permissions or disk space."  ) ;
-                return ;
-        } ;
-        myprint( "Writing random hashkey in $hashfile, once for all times\n"  ) ;
-        print $FILE_HANDLE $hashkey ;
-        close $FILE_HANDLE ;
-	# Should be there now
-	if ( -e -r $hashfile ) {
-		return $hashfile ;
-	}
-	# unknown failure
-	return ;
-}
-
-sub tests_rand32
-{
-	note( 'Entering tests_rand32()' ) ;
-
-	my $string = rand32(  ) ;
-	myprint( "$string\n" ) ;
-	is( 32, length( $string ),    'rand32: 32 characters long' ) ;
-	is( 32, length( rand32(  ) ), 'rand32: 32 characters long, another one' ) ;
-
-	note( 'Leaving  tests_rand32()' ) ;
-	return ;
-}
-
-sub rand32
-{
-	my @chars = ( "a".."z" ) ;
-	my $string;
-	$string .= $chars[rand @chars] for 1..32 ;
-	return $string ;
-}
-
-sub imap_id_stuff
-{
-        my $mysync = shift ;
-
-        if ( not $mysync->{id} ) { return ; } ;
-
-        $mysync->{h1_imap_id} = imap_id( $mysync, $mysync->{imap1}, 'Host1' ) ;
-        #myprint( 'Host1: ' . $mysync->{h1_imap_id}  ) ;
-        $mysync->{h2_imap_id} = imap_id( $mysync, $mysync->{imap2}, 'Host2' ) ;
-        #myprint( 'Host2: ' . $mysync->{h2_imap_id}  ) ;
-
-        return ;
-}
-
-sub imap_id
-{
-        my ( $mysync, $imap, $Side ) = @_ ;
-
-        $Side ||= q{} ;
-        my $imap_id_response = q{} ;
-
-        if ( not $imap->has_capability( 'ID' ) ) {
-                 $imap_id_response = 'No ID capability' ;
-                 myprint( "$Side: No ID capability\n"  ) ;
-        }else{
-                my $id_inp = imapsync_id( $mysync, { side => lc $Side } ) ;
-                myprint( "\n$Side: found ID capability. Sending/receiving ID, presented in raw IMAP for now.\n"
-                . "In order to avoid sending/receiving ID, use option --noid\n" ) ;
-                my $debug_before = $imap->Debug(  ) ;
-                $imap->Debug( 1 ) ;
-                my $id_out = $imap->tag_and_run( 'ID ' . $id_inp ) ;
-                #my $id_out = $imap->tag_and_run( 'ID NIL' ) ;
-                myprint( "\n"  ) ;
-                $imap->Debug( $debug_before ) ;
-                #$imap_id_response = Data::Dumper->Dump( [ $id_out ], [ 'IMAP_ID' ] ) ;
-        }
-        return( $imap_id_response ) ;
-}
-
-sub imapsync_id
-{
-        my $mysync = shift ;
-        my $overhashref = shift ;
-        # See http://tools.ietf.org/html/rfc2971.html
-
-        my $imapsync_id = { } ;
-
-        my $imapsync_id_lamiral = {
-                name          => 'imapsync',
-                version       => imapsync_version( $mysync ),
-                os            => $OSNAME,
-                vendor        => 'Gilles LAMIRAL',
-                'support-url' => 'https://imapsync.lamiral.info/',
-                # Example of date-time:  19-Sep-2015 08:56:07
-                date          => date_from_rcs( q{$Date: 2019/06/26 19:30:56 $ } ),
-        } ;
-
-        my $imapsync_id_github  = {
-                name          => 'imapsync',
-                version       => imapsync_version( $mysync ),
-                os            => $OSNAME,
-                vendor        => 'github',
-                'support-url' => 'https://github.com/imapsync/imapsync',
-                date          => date_from_rcs( q{$Date: 2019/06/26 19:30:56 $ } ),
-        } ;
-
-        $imapsync_id = $imapsync_id_lamiral ;
-        #$imapsync_id = $imapsync_id_github ;
-        my %mix = ( %{ $imapsync_id }, %{ $overhashref } ) ;
-        my $imapsync_id_str = format_for_imap_arg( \%mix ) ;
-        #myprint( "$imapsync_id_str\n"  ) ;
-        return( $imapsync_id_str ) ;
-}
-
-sub tests_imapsync_id
-{
-	note( 'Entering tests_imapsync_id()' ) ;
-
-        my $mysync ;
-        ok( '("name" "imapsync" "version" "111" "os" "beurk" "vendor" "Gilles LAMIRAL" "support-url" "https://imapsync.lamiral.info/" "date" "22-12-1968" "side" "host1")'
-                eq imapsync_id( $mysync,
-                        {
-                        version => 111,
-                        os => 'beurk',
-                        date => '22-12-1968',
-                        side => 'host1'
-                        }
-                ),
-                'tests_imapsync_id override'
-        ) ;
-
-	note( 'Leaving  tests_imapsync_id()' ) ;
-        return ;
-}
-
-sub format_for_imap_arg
-{
-        my $ref = shift ;
-
-        my $string = q{} ;
-        my %terms = %{ $ref } ;
-        my @terms = (  ) ;
-        if ( not ( %terms ) ) { return( 'NIL' ) } ;
-        # sort like in RFC then add extra key/values
-        foreach my $key ( qw( name version os os-version vendor support-url address date command arguments environment) ) {
-                if ( $terms{ $key } ) {
-                        push  @terms, $key, $terms{ $key }  ;
-                        delete $terms{ $key } ;
-                }
-        }
-        push  @terms, %terms  ;
-        $string = '(' . ( join q{ }, map { '"' . $_ . '"' } @terms )  . ')' ;
-        return( $string ) ;
-}
-
-
-
-sub tests_format_for_imap_arg
-{
-	note( 'Entering tests_format_for_imap_arg()' ) ;
-
-        ok( 'NIL' eq format_for_imap_arg( { } ), 'format_for_imap_arg empty hash ref' ) ;
-        ok( '("name" "toto")' eq format_for_imap_arg( { name => 'toto' } ), 'format_for_imap_arg { name => toto }' ) ;
-        ok( '("name" "toto" "key" "val")' eq format_for_imap_arg( { name => 'toto', key => 'val' } ), 'format_for_imap_arg 2 x key val' ) ;
-
-	note( 'Leaving  tests_format_for_imap_arg()' ) ;
-        return ;
-}
-
-sub quota
-{
-        my ( $mysync, $imap, $side ) = @_ ;
-
-	my %side = (
-		h1 => 'Host1',
-		h2 => 'Host2',
-	) ;
-        my $Side = $side{ $side } ;
-        my $debug_before = $imap->Debug(  ) ;
-        $imap->Debug( 1 ) ;
-        if ( not $imap->has_capability( 'QUOTA' ) ) {
-                $imap->Debug( $debug_before ) ;
-                return ;
-        } ;
-        myprint( "\n$Side: found quota, presented in raw IMAP\n"  ) ;
-        my $getquotaroot = $imap->getquotaroot( 'INBOX' ) ;
-        # Gmail INBOX quotaroot is "" but with it Mail::IMAPClient does a literal GETQUOTA {2} \n ""
-        #$imap->quota( 'ROOT' ) ;
-        #$imap->quota( '""' ) ;
-        myprint( "\n"  ) ;
-        $imap->Debug( $debug_before ) ;
-        my $quota_limit_bytes   = quota_extract_storage_limit_in_bytes( $mysync, $getquotaroot ) ;
-        my $quota_current_bytes = quota_extract_storage_current_in_bytes( $mysync, $getquotaroot ) ;
-        $mysync->{$side}->{quota_limit_bytes}   = $quota_limit_bytes ;
-        $mysync->{$side}->{quota_current_bytes} = $quota_current_bytes ;
-        my $quota_percent ;
-        if ( $quota_limit_bytes > 0 ) {
-                $quota_percent = mysprintf( '%.2f', $NUMBER_100 * $quota_current_bytes / $quota_limit_bytes ) ;
-        }else{
-                $quota_percent = 0 ;
-        }
-        myprint( "$Side: Quota current storage is $quota_current_bytes bytes. Limit is $quota_limit_bytes bytes. So $quota_percent % full\n"  ) ;
-        if ( $QUOTA_PERCENT_LIMIT < $quota_percent ) {
-                my $error = "$Side: $quota_percent % full: it is time to find a bigger place! ( $quota_current_bytes bytes / $quota_limit_bytes bytes )\n" ;
-                errors_incr( $mysync, $error ) ;
-        }
-        return ;
-}
-
-sub tests_quota_extract_storage_limit_in_bytes
-{
-        note( 'Entering tests_quota_extract_storage_limit_in_bytes()' ) ;
-
-        my $mysync = {} ;
-        my $imap_output = [
-        '* QUOTAROOT "INBOX" "Storage quota" "Messages quota"',
-        '* QUOTA "Storage quota" (STORAGE 1 104857600)',
-        '* QUOTA "Messages quota" (MESSAGE 2 100000)',
-        '5 OK Getquotaroot completed.'
-        ] ;
-        ok( $NUMBER_104_857_600 * $KIBI == quota_extract_storage_limit_in_bytes( $mysync, $imap_output ), 'quota_extract_storage_limit_in_bytes ') ;
-
-        note( 'Leaving  tests_quota_extract_storage_limit_in_bytes()' ) ;
-        return ;
-}
-
-sub quota_extract_storage_limit_in_bytes
-{
-        my $mysync = shift ;
-        my $imap_output = shift ;
-
-        my $limit_kb ;
-        $limit_kb = ( map { /.*\(\s*STORAGE\s+\d+\s+(\d+)\s*\)/x ? $1 : () } @{ $imap_output } )[0] ;
-        $limit_kb ||= 0 ;
-        $mysync->{ debug } and myprint( "storage_limit_kb = $limit_kb\n"  ) ;
-        return( $KIBI * $limit_kb ) ;
-}
-
-
-sub tests_quota_extract_storage_current_in_bytes
-{
-	note( 'Entering tests_quota_extract_storage_current_in_bytes()' ) ;
-
-        my $mysync = {} ;
-        my $imap_output = [
-        '* QUOTAROOT "INBOX" "Storage quota" "Messages quota"',
-        '* QUOTA "Storage quota" (STORAGE 1 104857600)',
-        '* QUOTA "Messages quota" (MESSAGE 2 100000)',
-        '5 OK Getquotaroot completed.'
-        ] ;
-        ok( 1*$KIBI == quota_extract_storage_current_in_bytes( $mysync, $imap_output ), 'quota_extract_storage_current_in_bytes: 1 => 1024 ') ;
-
-	note( 'Leaving  tests_quota_extract_storage_current_in_bytes()' ) ;
-        return ;
-}
-
-sub quota_extract_storage_current_in_bytes
-{
-        my $mysync = shift ;
-        my $imap_output = shift ;
-
-        my $current_kb ;
-        $current_kb = ( map { /.*\(\s*STORAGE\s+(\d+)\s+\d+\s*\)/x ? $1 : () } @{ $imap_output } )[0] ;
-        $current_kb ||= 0 ;
-        $mysync->{ debug } and myprint( "storage_current_kb = $current_kb\n"  ) ;
-        return( $KIBI * $current_kb ) ;
-
-}
-
-
-sub automap
-{
-        my ( $mysync ) = @_ ;
-
-        if ( $mysync->{automap} ) {
-                myprint( "Turned on automapping folders ( use --noautomap to turn off automapping )\n"  ) ;
-        }else{
-                myprint( "Turned off automapping folders ( use --automap to turn on automapping )\n"  ) ;
-                return ;
-        }
-
-        $mysync->{h1_special} = special_from_folders_hash( $mysync, $mysync->{imap1}, 'Host1' ) ;
-        $mysync->{h2_special} = special_from_folders_hash( $mysync, $mysync->{imap2}, 'Host2' ) ;
-
-        build_possible_special( $mysync ) ;
-        build_guess_special(  $mysync ) ;
-        build_automap( $mysync ) ;
-
-        return ;
-}
-
-
-
-
-sub build_guess_special
-{
-        my ( $mysync ) = shift ;
-
-        foreach my $h1_fold ( sort keys  %{ $mysync->{h1_folders_all} }  ) {
-                my $special = guess_special( $h1_fold, $mysync->{possible_special}, $mysync->{h1_prefix} ) ;
-                if ( $special ) {
-                        $mysync->{h1_special_guessed}{$h1_fold} = $special ;
-                        my $already_guessed = $mysync->{h1_special_guessed}{$special} ;
-                        if ( $already_guessed ) {
-                                myprint( "Host1: $h1_fold not $special because set to $already_guessed\n"  ) ;
-                        }else{
-                                $mysync->{h1_special_guessed}{$special} = $h1_fold ;
-                        }
-                }
-        }
-        foreach my $h2_fold ( sort keys  %{ $mysync->{h2_folders_all} }  ) {
-                my $special = guess_special( $h2_fold, $mysync->{possible_special}, $mysync->{h2_prefix} ) ;
-                if ( $special ) {
-                        $mysync->{h2_special_guessed}{$h2_fold} = $special ;
-                        my $already_guessed = $mysync->{h2_special_guessed}{$special} ;
-                        if ( $already_guessed ) {
-                                myprint( "Host2: $h2_fold not $special because set to $already_guessed\n"  ) ;
-                        }else{
-                                $mysync->{h2_special_guessed}{$special} = $h2_fold ;
-                        }
-                }
-        }
-        return ;
-}
-
-sub guess_special
-{
-        my( $folder, $possible_special_ref, $prefix ) = @_ ;
-
-        my $folder_no_prefix = $folder ;
-        $folder_no_prefix =~ s/\Q${prefix}\E//xms ;
-        #$debug and myprint( "folder_no_prefix: $folder_no_prefix\n"  ) ;
-
-        my $guess_special = $possible_special_ref->{ $folder }
-                || $possible_special_ref->{ $folder_no_prefix }
-                || q{} ;
-
-        return( $guess_special ) ;
-}
-
-sub tests_guess_special
-{
-	note( 'Entering tests_guess_special()' ) ;
-
-        my $possible_special_ref = build_possible_special( my $mysync ) ;
-        ok( '\Sent' eq guess_special( 'Sent', $possible_special_ref, q{} ) ,'guess_special: Sent => \Sent' ) ;
-        ok( q{} eq guess_special( 'Blabla', $possible_special_ref, q{} ) ,'guess_special: Blabla => q{}' ) ;
-        ok( '\Sent' eq guess_special( 'INBOX.Sent', $possible_special_ref, 'INBOX.' ) ,'guess_special: INBOX.Sent => \Sent' ) ;
-        ok( '\Sent' eq guess_special( 'IN BOX.Sent', $possible_special_ref, 'IN BOX.' ) ,'guess_special: IN BOX.Sent => \Sent' ) ;
-
-	note( 'Leaving  tests_guess_special()' ) ;
-        return ;
-}
-
-sub build_automap
-{
-        my $mysync = shift ;
-	$mysync->{ debug } and myprint( "Entering build_automap\n" ) ;
-        foreach my $h1_fold ( @{ $mysync->{h1_folders_wanted} } ) {
-                my $h2_fold ;
-                my $h1_special = $mysync->{h1_special}{$h1_fold} ;
-                my $h1_special_guessed = $mysync->{h1_special_guessed}{$h1_fold} ;
-
-                # Case 1: special on both sides.
-                if ( $h1_special
-                     and exists  $mysync->{h2_special}{$h1_special}  ) {
-                        $h2_fold = $mysync->{h2_special}{$h1_special} ;
-                        $mysync->{f1f2auto}{ $h1_fold } = $h2_fold ;
-                        next ;
-                }
-                # Case 2: special on host1, not on host2
-                if ( $h1_special
-                     and ( not exists  $mysync->{h2_special}{$h1_special}  )
-                     and ( exists  $mysync->{h2_special_guessed}{$h1_special}  )
-                   ) {
-                        # special_guessed on host2
-                        $h2_fold = $mysync->{h2_special_guessed}{$h1_special} ;
-                        $mysync->{f1f2auto}{ $h1_fold } = $h2_fold ;
-                        next ;
-                }
-                # Case 3: no special on host1, special on host2
-                if ( ( not $h1_special )
-                     and ( $h1_special_guessed )
-                     and ( exists  $mysync->{h2_special}{$h1_special_guessed}  )
-                ) {
-                        $h2_fold = $mysync->{h2_special}{$h1_special_guessed} ;
-                        $mysync->{f1f2auto}{ $h1_fold } = $h2_fold ;
-                        next ;
-                }
-                # Case 4: no special on both sides.
-                if ( ( not $h1_special )
-                     and ( $h1_special_guessed )
-                     and ( not exists  $mysync->{h2_special}{$h1_special_guessed}  )
-                     and ( exists  $mysync->{h2_special_guessed}{$h1_special_guessed}  )
-                ) {
-                        $h2_fold = $mysync->{h2_special_guessed}{$h1_special_guessed} ;
-                        $mysync->{f1f2auto}{ $h1_fold } = $h2_fold ;
-                        next ;
-                }
-        }
-        return( $mysync->{f1f2auto} ) ;
-}
-
-# I will not add what there is at:
-# http://stackoverflow.com/questions/2185391/localized-gmail-imap-folders/2185548#2185548
-# because it works well without
-sub build_possible_special
-{
-        my $mysync = shift ;
-        my $possible_special = { } ;
-        # All|Archive|Drafts|Flagged|Junk|Sent|Trash
-
-        $possible_special->{'\All'}     = [ 'All', 'All Messages', '&BBIEQQQ1-' ] ;
-        $possible_special->{'\Archive'} = [ 'Archive', 'Archives', '&BBAEQARFBDgEMg-' ] ;
-        $possible_special->{'\Drafts'}  = [ 'Drafts', 'DRAFTS', '&BCcENQRABD0EPgQyBDgEOgQ4-', 'Szkice', 'Wersje robocze' ] ;
-        $possible_special->{'\Flagged'} = [ 'Flagged', 'Starred', '&BB8EPgQ8BDUERwQ1BD0EPQRLBDU-' ] ;
-        $possible_special->{'\Junk'}    = [ 'Junk', 'junk', 'Spam', 'SPAM', '&BCEEPwQwBDw-', 
-                                            'Potwierdzony spam', 'Wiadomo&AVs-ci-&AVs-mieci',
-                                            'Junk E-Mail', 'Junk Email'] ;
-        $possible_special->{'\Sent'}    = [ 'Sent', 'Sent Messages', 'Sent Items',
-                                            'Gesendete Elemente', 'Gesendete Objekte',
-                                            '&AMk-l&AOk-ments envoy&AOk-s', 'Envoy&AOk-', 'Objets envoy&AOk-s',
-                                            'Elementos enviados',
-                                            '&kAFP4W4IMH8wojCkMMYw4A-',
-                                            '&BB4EQgQ,BEAEMAQyBDsENQQ9BD0ESwQ1-',
-                                            'Elementy wys&AUI-ane'] ;
-        $possible_special->{'\Trash'}   = [ 'Trash', 'TRASH',
-                                            '&BCMENAQwBDsENQQ9BD0ESwQ1-', '&BBoEPgRABDcEOAQ9BDA-', 
-                                            'Kosz',
-                                            'Deleted Items', 'Deleted Messages' ] ;
-
-
-        foreach my $special ( qw( \All \Archive \Drafts \Flagged \Junk \Sent \Trash ) ){
-                foreach my $possible_folder ( @{ $possible_special->{$special} } ) {
-                        $possible_special->{ $possible_folder } = $special ;
-                } ;
-        }
-        $mysync->{possible_special} = $possible_special ;
-        $mysync->{ debug } and myprint( Data::Dumper->Dump( [ $possible_special ], [ 'possible_special' ] )  ) ;
-        return( $possible_special ) ;
-}
-
-sub tests_special_from_folders_hash
-{
-	note( 'Entering tests_special_from_folders_hash()' ) ;
-
-        my $mysync = {} ;
-        require_ok( "Test::MockObject" ) ;
-        my $imapT = Test::MockObject->new(  ) ;
-
-        is( undef, special_from_folders_hash(  ), 'special_from_folders_hash: no args' ) ;
-        is( undef, special_from_folders_hash( $mysync ), 'special_from_folders_hash: undef args' ) ;
-        is_deeply( {}, special_from_folders_hash( $mysync, $imapT ), 'special_from_folders_hash: $imap void' ) ;
-
-        $imapT->mock( 'folders_hash', sub { return( [ { name => 'Sent', attrs => [ '\Sent' ] } ] ) } ) ;
-
-        is_deeply( { Sent => '\Sent', '\Sent' => 'Sent' },
-                special_from_folders_hash( $mysync, $imapT ), 'special_from_folders_hash: $imap \Sent' ) ;
-
-	note( 'Leaving  tests_special_from_folders_hash()' ) ;
-        return(  ) ;
-}
-
-sub special_from_folders_hash
-{
-        my ( $mysync, $imap, $side ) = @_ ;
-        my %special = (  ) ;
-
-        if ( ! defined $imap  ) { return ; }
-        $side = defined $side ? $side : 'Host?' ;
-
-        if ( ! $imap->can( 'folders_hash' ) ) {
-                my $error =  "$side: To have automagic rfc6154 folder mapping, upgrade Mail::IMAPClient >= 3.34\n" ;
-                errors_incr( $mysync, $error ) ;
-                return( \%special ) ; # empty hash ref
-        }
-        my $folders_hash = $imap->folders_hash(  ) ;
-        foreach my $fhash (@{ $folders_hash } ) {
-                        my @special =  grep { /\\(?:All|Archive|Drafts|Flagged|Junk|Sent|Trash)/x } @{ $fhash->{attrs} }  ;
-                        if ( @special ) {
-                                my $special = $special[0] ; # keep first one. Could be not very good.
-                                if ( exists  $special{ $special }  ) {
-                                        myprintf( "%s: special %-20s = %s already assigned to %s\n",
-                                                $side, $fhash->{name}, join( q{ }, @special ), $special{ $special } ) ;
-                                }else{
-                                        myprintf( "%s: special %-20s = %s\n",
-                                                $side, $fhash->{name}, join( q{ }, @special ) ) ;
-                                        $special{ $special } = $fhash->{name} ;
-                                        $special{ $fhash->{name} } = $special ; # double entry value => key
-                                }
-                        }
-                }
-        myprint( "\n" ) if ( %special ) ;
-        return( \%special ) ;
-}
-
-sub errors_incr
-{
-        my ( $mysync, @error ) = @ARG ;
-        $mysync->{nb_errors}++ ;
-
-        if ( @error ) {
-                errors_log( $mysync, @error ) ;
-                myprint( @error ) ;
-        }
-
-        $mysync->{errorsmax} ||= $ERRORS_MAX ;
-        if ( $mysync->{nb_errors} >= $mysync->{errorsmax} ) {
-                myprint( "Maximum number of errors $mysync->{errorsmax} reached ( you can change $mysync->{errorsmax} to any value, for example 100 with --errorsmax 100 ). Exiting.\n"  ) ;
-                if ( $mysync->{errorsdump} ) {
-                        myprint( errorsdump( $mysync->{nb_errors}, errors_log( $mysync ) ) ) ;
-                        # again since errorsdump(  ) can be very verbose and masquerade previous warning
-                        myprint( "Maximum number of errors $mysync->{errorsmax} reached ( you can change $mysync->{errorsmax} to any value, for example 100 with --errorsmax 100 ). Exiting.\n"  ) ;
-                }
-                exit_clean( $mysync, $EXIT_WITH_ERRORS_MAX ) ;
-        }
-        return ;
-}
-
-sub tests_errors_log
-{
-        note( 'Entering tests_errors_log()' ) ;
-        is( undef, errors_log(  ), 'errors_log: no args => undef' ) ;
-        my $mysync = {} ;
-        is( undef, errors_log( $mysync ), 'errors_log: empty => undef' ) ;
-        is_deeply( [ 'aieaie' ], [ errors_log( $mysync, 'aieaie' ) ], 'errors_log: aieaie => aieaie' ) ;
-        # cumulative
-        is_deeply( [ 'aieaie' ], [ errors_log( $mysync ) ], 'errors_log: nothing more => aieaie' ) ;
-        is_deeply( [ 'aieaie', 'ouille' ], [ errors_log( $mysync, 'ouille' ) ], 'errors_log: ouille => aieaie ouille' ) ;
-        is_deeply( [ 'aieaie', 'ouille' ], [ errors_log( $mysync ) ], 'errors_log: nothing more => aieaie ouille' ) ;
-        note( 'Leaving  tests_errors_log()' ) ;
-        return ;
-}
-
-sub errors_log
-{
-        my ( $mysync, @error ) = @ARG ;
-
-        if ( ! $mysync->{errors_log} ) {
-                $mysync->{errors_log} = [] ;
-        }
-
-        if ( @error ) {
-                push  @{ $mysync->{errors_log} }, join( q{}, @error  ) ;
-        }
-        if ( @{ $mysync->{errors_log} } ) {
-                return @{ $mysync->{errors_log} } ;
-        }
-        else {
-                return ;
-        }
-}
-
-
-sub errorsdump
-{
-        my( $nb_errors, @errors_log ) = @ARG ;
-        my $error_num = 0 ;
-        my $errors_list = q{} ;
-        if ( @errors_log ) {
-                $errors_list = "++++ Listing $nb_errors errors encountered during the sync ( avoid this listing with --noerrorsdump ).\n" ;
-                foreach my $error ( @errors_log ) {
-                        $error_num++ ;
-                        $errors_list .= "Err $error_num/$nb_errors: $error" ;
-                }
-        }
-        return( $errors_list ) ;
-}
-
-
-sub tests_live_result
-{
-	note( 'Entering tests_live_result()' ) ;
-
-        my $nb_errors = shift ;
-        if ( $nb_errors  ) {
-                myprint( "Live tests failed with $nb_errors errors\n"  ) ;
-        } else {
-                myprint( "Live tests ended successfully\n"  ) ;
-        }
-	note( 'Leaving  tests_live_result()' ) ;
-        return ;
-}
-
-sub foldersizesatend
-{
-        my $mysync = shift ;
-        timenext(  ) ;
-        return if ( $mysync->{imap1}->IsUnconnected(  ) ) ;
-        return if ( $mysync->{imap2}->IsUnconnected(  ) ) ;
-        # Get all folders on host2 again since new were created
-        @h2_folders_all = sort $mysync->{imap2}->folders();
-        for ( @h2_folders_all ) {
-                $h2_folders_all{ $_ } = 1 ;
-                $h2_folders_all_UPPER{ uc  $_  } = 1 ;
-        } ;
-        ( $h1_nb_msg_end, $h1_bytes_end ) = foldersizes( 'Host1', $mysync->{imap1}, $search1, $mysync->{abletosearch1}, @h1_folders_wanted ) ;
-        ( $h2_nb_msg_end, $h2_bytes_end ) = foldersizes( 'Host2', $mysync->{imap2}, $search2, $mysync->{abletosearch2}, @h2_folders_from_1_wanted ) ;
-        if ( not all_defined( $h1_nb_msg_end, $h1_bytes_end, $h2_nb_msg_end, $h2_bytes_end ) ) {
-                my $error = "Failure getting foldersizes, final differences will not be calculated\n" ;
-                errors_incr( $mysync, $error ) ;
-        }
-        return ;
-}
-
-sub size_filtered_flag
-{
-        my $mysync = shift ;
-        my $h1_size = shift ;
-
-        if ( defined $mysync->{ maxsize } and $h1_size >= $mysync->{ maxsize } ) {
-                return( 1 ) ;
-        }
-        if ( defined $minsize and $h1_size <= $minsize ) {
-                return( 1 ) ;
-        }
-        return( 0 ) ;
-}
-
-sub sync_flags_fir
-{
-        my ( $mysync, $h1_fold, $h1_msg, $h2_fold, $h2_msg, $permanentflags2, $h1_fir_ref, $h2_fir_ref ) = @_ ;
-
-        if ( not defined  $h1_msg  ) { return } ;
-        if ( not defined  $h2_msg  ) { return } ;
-
-        my $h1_size = $h1_fir_ref->{$h1_msg}->{'RFC822.SIZE'} ;
-        return if size_filtered_flag( $mysync, $h1_size ) ;
-
-        # used cached flag values for efficiency
-        my $h1_flags = $h1_fir_ref->{ $h1_msg }->{ 'FLAGS' } || q{} ;
-        my $h2_flags = $h2_fir_ref->{ $h2_msg }->{ 'FLAGS' } || q{} ;
-
-        sync_flags( $mysync, $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) ;
-
-        return ;
-}
-
-sub sync_flags_after_copy
-{
-        # Activated with option --syncflagsaftercopy
-        my( $mysync, $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $permanentflags2 ) = @_ ;
-
-        if ( my @h2_flags = $mysync->{imap2}->flags( $h2_msg ) ) {
-                my $h2_flags = "@h2_flags" ;
-                ( $mysync->{ debug } or $debugflags ) and myprint( "Host2: msg $h2_fold/$h2_msg flags before sync flags after copy ( $h2_flags )\n"  ) ;
-                sync_flags( $mysync, $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) ;
-        }else{
-                myprint( "Host2: msg $h2_fold/$h2_msg could not get its flags for sync flags after copy\n"  ) ;
-        }
-        return ;
-}
-
-# Globals
-# $debug
-# $debugflags
-# $permanentflags2
-
-
-sub sync_flags
-{
-        my( $mysync, $h1_fold, $h1_msg, $h1_flags, $h2_fold, $h2_msg, $h2_flags, $permanentflags2 ) = @_ ;
-
-        ( $mysync->{ debug } or $debugflags ) and
-        myprint( "Host1: flags init msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 msg $h2_fold/$h2_msg flags( $h2_flags )\n"  ) ;
-
-        $h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
-
-        $h2_flags = flagscase( $h2_flags ) ;
-
-        ( $mysync->{ debug } or $debugflags ) and
-        myprint( "Host1: flags filt msg $h1_fold/$h1_msg flags( $h1_flags ) Host2 msg $h2_fold/$h2_msg flags( $h2_flags )\n"  ) ;
-
-
-        # compare flags - set flags if there a difference
-        my @h1_flags = sort split(q{ }, $h1_flags );
-        my @h2_flags = sort split(q{ }, $h2_flags );
-        my $diff = compare_lists( \@h1_flags, \@h2_flags );
-
-        $diff and ( $mysync->{ debug } or $debugflags )
-              and myprint( "Host2: flags msg $h2_fold/$h2_msg replacing h2 flags( $h2_flags ) with h1 flags( $h1_flags )\n" ) ;
-
-        # This sets flags exactly. So flags can be removed with this.
-        # When you remove a \Seen flag on host1 you want it
-        # to be removed on host2. Just add flags is not what
-        # we need most of the time, so no + like in "+FLAGS.SILENT".
-
-        if ( not $mysync->{dry} and $diff and not $mysync->{imap2}->store( $h2_msg, "FLAGS.SILENT (@h1_flags)" ) ) {
-                my $error_msg = join q{}, "Host2: flags msg $h2_fold/$h2_msg could not add flags [@h1_flags]: ",
-                  $mysync->{imap2}->LastError || q{}, "\n" ;
-                errors_incr( $mysync, $error_msg ) ;
-        }
-
-        return ;
-}
-
-
-
-sub _filter
-{
-        my $mysync = shift ;
-        my $str = shift or return q{} ;
-        my $sz  = $SIZE_MAX_STR ;
-        my $len = length $str ;
-        if ( not $mysync->{ debug } and $len > $sz*2 ) {
-                my $beg = substr $str, 0, $sz ;
-                my $end = substr $str, -$sz, $sz ;
-                $str = $beg . '...' . $end ;
-        }
-        $str =~ s/\012?\015$//x ;
-        return "(len=$len) " . $str ;
-}
-
-
-
-sub lost_connection
-{
-        my( $mysync, $imap, $error_message ) = @_;
-        if ( $imap->IsUnconnected(  ) ) {
-                $mysync->{nb_errors}++ ;
-                my $lcomm = $imap->LastIMAPCommand || q{} ;
-                my $einfo = $imap->LastError || @{$imap->History}[$LAST] || q{} ;
-
-                # if string is long try reduce to a more reasonable size
-                $lcomm = _filter( $mysync, $lcomm ) ;
-                $einfo = _filter( $mysync, $einfo ) ;
-                myprint( "Failure: last command: $lcomm\n") if ( $mysync->{ debug } && $lcomm) ;
-                myprint( "Failure: lost connection $error_message: ", $einfo, "\n") ;
-                return( 1 ) ;
-        }
-        else{
-                return( 0 ) ;
-        }
-}
-
-sub tests_max
-{
-	note( 'Entering tests_max()' ) ;
-
-        is( 0, max( 0 ),  'max 0 => 0' ) ;
-        is( 1, max( 1 ),  'max 1 => 1' ) ;
-        is( $MINUS_ONE, max( $MINUS_ONE ), 'max -1 => -1') ;
-        is( undef, max(  ), 'max no arg => undef' ) ;
-        is( $NUMBER_100, max( 1, $NUMBER_100 ), 'max 1 100 => 100' ) ;
-        is( $NUMBER_100, max( $NUMBER_100, 1 ), 'max 100 1 => 100' ) ;
-        is( $NUMBER_100, max( $NUMBER_100, $NUMBER_42, 1 ), 'max 100 42 1 => 100' ) ;
-        is( $NUMBER_100, max( $NUMBER_100, '42', 1 ), 'max 100 42 1 => 100' ) ;
-        is( $NUMBER_100, max( '100', '42', 1 ), 'max 100 42 1 => 100' ) ;
-        is( $NUMBER_100, max( $NUMBER_100, 'haha', 1 ), 'max 100 haha 1 => 100') ;
-        is( $NUMBER_100, max( 'bb', $NUMBER_100, 'haha' ), 'max bb 100 haha => 100') ;
-        is( $MINUS_ONE, max( q{}, $MINUS_ONE, 'haha' ), 'max "" -1 haha => -1') ;
-        is( $MINUS_ONE, max( q{}, $MINUS_ONE, $MINUS_TWO ), 'max "" -1 -2 => -1') ;
-        is( $MINUS_ONE, max( 'haha', $MINUS_ONE, $MINUS_TWO ), 'max haha -1 -2 => -1') ;
-	is( 1, max( $MINUS_ONE, 1 ), 'max -1 1 => 1') ;
-	is( 1, max( undef, 1 ), 'max undef 1 => 1' ) ;
-	is( 0, max( undef, 0 ), 'max undef 0 => 0' ) ;
-        is( 'haha', max( 'haha' ), 'max haha => haha') ;
-        is( 'bb', max( 'aa', 'bb' ), 'max aa bb => bb') ;
-        is( 'bb', max( 'bb', 'aa' ), 'max bb aa => bb') ;
-        is( 'bb', max( 'bb', 'aa', 'bb' ), 'max bb aa bb => bb') ;
-	note( 'Leaving  tests_max()' ) ;
-        return ;
-}
-
-sub max
-{
-        my @list = @_ ;
-        return( undef ) if ( 0 == scalar  @list  ) ;
-
-        my( @numbers, @notnumbers ) ;
-        foreach my $item ( @list ) {
-                if ( is_number( $item ) ) {
-                        push @numbers, $item ;
-                }else{
-                        push @notnumbers, $item ;
-                }
-        }
-
-        my @sorted ;
-        if ( @numbers ) {
-                @sorted = sort { $a <=> $b } @numbers ;
-        }elsif( @notnumbers ) {
-                @sorted = sort { $a cmp $b } @notnumbers ;
-        }else{
-                return ;
-        }
-
-        return( pop @sorted ) ;
-}
-
-sub tests_is_number
-{
-        note( 'Entering tests_is_number()' ) ;
-
-        ok( ! is_number( ),    'is_number: no args => undef ' ) ;
-        ok( is_number( 1 ),    'is_number:  1 => 1' ) ;
-        ok( is_number( 1.1 ),  'is_number:  1.1 => 1' ) ;
-        ok( is_number( 0 ),    'is_number:  0 => 1' ) ;
-        ok( is_number( -1 ),   'is_number: -1 => 1' ) ;
-        ok( ! is_number( 1.1.1 ),   'is_number: 1.1.1 => no' ) ;
-        ok( ! is_number( q{} ),     'is_number:   q{} => no' ) ;
-        ok( ! is_number( 'haha' ),  'is_number:  haha => no' ) ;
-        ok( ! is_number( '0haha' ), 'is_number: 0haha => no' ) ;
-        ok( ! is_number( '2haha' ), 'is_number: 2haha => no' ) ;
-        ok( ! is_number( 'haha2' ), 'is_number: haha2 => no' ) ;
-
-        note( 'Leaving  tests_is_number()' ) ;
-        return ;
-}
-
-
-
-sub is_number
-{
-        my $item = shift ;
-
-        if ( ! defined $item ) { return ; }
-
-        if ( $item =~ /\A$RE{num}{real}\Z/ ) {
-                return 1 ;
-        }
-        return ;
-}
-
-sub tests_min
-{
-	note( 'Entering tests_min()' ) ;
-
-        is( 0, min( 0 ),  'min 0 => 0' ) ;
-        is( 1, min( 1 ),  'min 1 => 1' ) ;
-        is( $MINUS_ONE, min( $MINUS_ONE ), 'min -1 => -1' ) ;
-        is( undef, min(  ), 'min no arg => undef' ) ;
-        is( 1, min( 1, $NUMBER_100 ), 'min 1 100 => 1' ) ;
-        is( 1, min( $NUMBER_100, 1 ), 'min 100 1 => 1' ) ;
-        is( 1, min( $NUMBER_100, $NUMBER_42, 1 ), 'min 100 42 1 => 1' ) ;
-        is( 1, min( $NUMBER_100, '42', 1 ), 'min 100 42 1 => 1' ) ;
-        is( 1, min( '100', '42', 1 ), 'min 100 42 1 => 1' ) ;
-        is( 1, min( $NUMBER_100, 'haha', 1 ), 'min 100 haha 1 => 1') ;
-	is( $MINUS_ONE, min( $MINUS_ONE, 1 ), 'min -1 1 => -1') ;
-
-	is( 1, min( undef, 1 ), 'min undef 1 => 1' ) ;
-	is( 0, min( undef, 0 ), 'min undef 0 => 0' ) ;
-	is( 1, min( undef, 1 ), 'min undef 1 => 1' ) ;
-	is( 0, min( undef, 2, 0, 1 ), 'min undef, 2, 0, 1 => 0' ) ;
-
-        is( 'haha', min( 'haha' ), 'min haha => haha') ;
-        is( 'aa', min( 'aa', 'bb' ), 'min aa bb => aa') ;
-        is( 'aa', min( 'bb', 'aa' ), 'min bb aa bb => aa') ;
-        is( 'aa', min( 'bb', 'aa', 'bb' ), 'min bb aa bb => aa') ;
-
-	note( 'Leaving  tests_min()' ) ;
-        return ;
-}
-
-
-sub min
-{
-        my @list = @_ ;
-        return( undef ) if ( 0 == scalar  @list  ) ;
-
-        my( @numbers, @notnumbers ) ;
-        foreach my $item ( @list ) {
-                if ( is_number( $item ) ) {
-                        push @numbers, $item ;
-                }else{
-                        push @notnumbers, $item ;
-                }
-        }
-
-        my @sorted ;
-        if ( @numbers ) {
-                @sorted = sort { $a <=> $b } @numbers ;
-        }elsif( @notnumbers ) {
-                @sorted = sort { $a cmp $b } @notnumbers ;
-        }else{
-                return ;
-        }
-
-        return( shift @sorted ) ;
-}
-
-
-sub check_lib_version
-{
-        my $mysync = shift ;
-        $mysync->{ debug } and myprint( "IMAPClient $Mail::IMAPClient::VERSION\n"  ) ;
-        if ( '2.2.9' eq $Mail::IMAPClient::VERSION ) {
-                myprint( "imapsync no longer supports Mail::IMAPClient 2.2.9, upgrade it\n"  ) ;
-                return 0 ;
-        }
-        else{
-                # 3.x.x is no longer buggy with imapsync.
-                # 3.30 or currently superior is imposed in the Perl "use Mail::IMAPClient line".
-                return 1 ;
-        }
-        return ;
-}
-
-sub module_version_str
-{
-        my( $module_name, $module_version ) = @_ ;
-        my $str = mysprintf( "%-20s %s\n", $module_name, $module_version ) ;
-        return( $str ) ;
-}
-
-sub modulesversion
-{
-
-        my @list_version;
-
-        my %modulesversion = (
-                'Authen::NTLM'          => sub { $Authen::NTLM::VERSION },
-                'CGI'                   => sub { $CGI::VERSION },
-                'Compress::Zlib'        => sub { $Compress::Zlib::VERSION },
-                'Crypt::OpenSSL::RSA'   => sub { $Crypt::OpenSSL::RSA::VERSION },
-                'Data::Uniqid'          => sub { $Data::Uniqid::VERSION },
-                'Digest::HMAC_MD5'      => sub { $Digest::HMAC_MD5::VERSION },
-                'Digest::HMAC_SHA1'     => sub { $Digest::HMAC_SHA1::VERSION },
-                'Digest::MD5'           => sub { $Digest::MD5::VERSION },
-                'File::Copy::Recursive' => sub { $File::Copy::Recursive::VERSION },
-                'File::Spec'            => sub { $File::Spec::VERSION },
-                'Getopt::Long'          => sub { $Getopt::Long::VERSION },
-                'HTML::Entities'        => sub { $HTML::Entities::VERSION },
-                'IO::Socket'            => sub { $IO::Socket::VERSION },
-                'IO::Socket::INET'      => sub { $IO::Socket::INET::VERSION },
-                'IO::Socket::INET6'     => sub { $IO::Socket::INET6::VERSION },
-                'IO::Socket::IP'        => sub { $IO::Socket::IP::VERSION },
-                'IO::Socket::SSL'       => sub { $IO::Socket::SSL::VERSION },
-                'IO::Tee'               => sub { $IO::Tee::VERSION },
-                'JSON'                  => sub { $JSON::VERSION },
-                'JSON::WebToken'        => sub { $JSON::WebToken::VERSION },
-                'LWP'                   => sub { $LWP::VERSION },
-                'Mail::IMAPClient'      => sub { $Mail::IMAPClient::VERSION },
-                'Net::Ping'             => sub { $Net::Ping::VERSION },
-                'Net::SSLeay'           => sub { $Net::SSLeay::VERSION },
-                'Term::ReadKey'         => sub { $Term::ReadKey::VERSION },
-                'Test::MockObject'      => sub { $Test::MockObject::VERSION },
-                'Time::HiRes'           => sub { $Time::HiRes::VERSION },
-                'Unicode::String'       => sub { $Unicode::String::VERSION },
-                'URI::Escape'           => sub { $URI::Escape::VERSION },
-                #'Lalala'                => sub { $Lalala::VERSION },
-        ) ;
-
-        foreach my $module_name ( sort keys %modulesversion ) {
-                # trick from http://www.perlmonks.org/?node_id=152122
-                my $file_name = $module_name . '.pm' ;
-                $file_name =~s,::,/,xmgs; # Foo::Bar::Baz => Foo/Bar/Baz.pm
-                my $v ;
-                eval {
-                        require $file_name ;
-                        $v = defined $modulesversion{ $module_name } ? $modulesversion{ $module_name }->() : q{?} ;
-                } or $v = q{Not installed} ;
-
-                push  @list_version, module_version_str( $module_name, $v )  ;
-        }
-        return( @list_version ) ;
-}
-
-
-sub tests_command_line_nopassword
-{
-        note( 'Entering tests_command_line_nopassword()' ) ;
-
-        ok( q{} eq command_line_nopassword(), 'command_line_nopassword void' );
-        my $mysync = {} ;
-        ok( '--blabla' eq command_line_nopassword( $mysync, '--blabla' ), 'command_line_nopassword --blabla' );
-        #myprint( command_line_nopassword((qw{ --password1 secret1 })), "\n" ) ;
-        ok( '--password1 MASKED' eq command_line_nopassword( $mysync, qw{ --password1 secret1}), 'command_line_nopassword --password1' );
-        ok( '--blabla --password1 MASKED --blibli'
-        eq command_line_nopassword( $mysync, qw{ --blabla --password1 secret1 --blibli } ), 'command_line_nopassword --password1 --blibli' );
-        $mysync->{showpasswords} = 1 ;
-        ok( q{} eq command_line_nopassword(), 'command_line_nopassword void' );
-        ok( '--blabla' eq command_line_nopassword( $mysync, '--blabla'), 'command_line_nopassword --blabla' );
-        #myprint( command_line_nopassword((qw{ --password1 secret1 })), "\n" ) ;
-        ok( '--password1 secret1' eq command_line_nopassword( $mysync, qw{ --password1 secret1} ), 'command_line_nopassword --password1' );
-        ok( '--blabla --password1 secret1 --blibli'
-        eq command_line_nopassword( $mysync, qw{ --blabla --password1 secret1 --blibli } ), 'command_line_nopassword --password1 --blibli' );
-
-	note( 'Leaving  tests_command_line_nopassword()' ) ;
-        return ;
-}
-
-# Construct a command line copy with passwords replaced by MASKED.
-sub command_line_nopassword
-{
-        my $mysync = shift @ARG ;
-        my @argv = @ARG ;
-        my @argv_nopassword ;
-
-        if ( $mysync->{ cmdcgi } ) {
-                @argv_nopassword = mask_password_value( @{ $mysync->{ cmdcgi } } ) ;
-                return( "@argv_nopassword" ) ;
-        }
-
-        if ( $mysync->{showpasswords} )
-        {
-                return( "@argv" ) ;
-        }
-
-        @argv_nopassword = mask_password_value( @argv ) ;
-        return("@argv_nopassword") ;
-}
-
-sub mask_password_value
-{
-        my @argv = @ARG ;
-        my @argv_nopassword ;
-        while ( @argv ) {
-                my $arg = shift @argv ; # option name or value
-                if ( $arg =~ m/-password[12]/x ) {
-                        shift @argv ; # password value
-                        push  @argv_nopassword, $arg, 'MASKED'  ; # option name and fake value
-                }else{
-                        push  @argv_nopassword, $arg ; # same option or value
-                }
-        }
-        return @argv_nopassword ;
-}
-
-
-sub tests_get_stdin_masked
-{
-        note( 'Entering tests_get_stdin_masked()' ) ;
-
-        is( q{}, get_stdin_masked(  ), 'get_stdin_masked: no args' ) ;
-        is( q{}, get_stdin_masked( 'Please ENTER: ' ), 'get_stdin_masked: ENTER' ) ;
-
-        note( 'Leaving  tests_get_stdin_masked()' ) ;
-        return ;
-}
-
-#######################################################
-# The issue is that prompt() does not prompt the prompt
-# when the program is used like
-# { sleep 2 ; echo blablabla ; } | ./imapsync ...--host1 lo --user1 tata --host2 lo --user2 titi
-
-# use IO::Prompter ;
-sub get_stdin_masked
-{
-        my $prompt = shift || 'Say something: ' ;
-        local @ARGV = () ;
-        my $input = prompt(
-                -prompt => $prompt,
-                -echo => '*',
-        ) ;
-        #myprint( "You said: $input\n" ) ;
-        return $input ;
-}
-
-sub ask_for_password_new
-{
-        my $prompt = shift ;
-        my $password = get_stdin_masked( $prompt ) ;
-        return $password ;
-}
-#########################################################
-
-
-sub ask_for_password
-{
-        my $prompt = shift ;
-        myprint( $prompt  ) ;
-        Term::ReadKey::ReadMode( 2 ) ;
-        ## no critic (InputOutput::ProhibitExplicitStdin)
-        my $password = <STDIN> ;
-        chomp $password ;
-        myprint( "\nGot it\n" ) ;
-        Term::ReadKey::ReadMode( 0 ) ;
-        return $password ;
-}
-
-# Have to refactor get_password1() get_password2()
-# to have only get_password() and two calls
-sub get_password1
-{
-
-	my $mysync = shift ;
-
-	$mysync->{password1}
-	|| $mysync->{ passfile1 }
-	|| 'PREAUTH' eq $authmech1
-	|| 'EXTERNAL' eq $authmech1
-	|| $ENV{IMAPSYNC_PASSWORD1}
-	|| do
-        {
-                myprint( << 'FIN_PASSFILE'  ) ;
-
-If you are afraid of giving password on the command line arguments, you can put the
-password of user1 in a file named file1 and use "--passfile1 file1" instead of typing it.
-Then give this file restrictive permissions with the command "chmod 600 file1".
-An other solution is to set the environment variable IMAPSYNC_PASSWORD1
-FIN_PASSFILE
-                my $user = $authuser1 || $mysync->{user1} ;
-                my $host =  $mysync->{host1} ;
-                my $prompt = "What's the password for $user" . ' at ' . "$host? (not visible while you type, then enter RETURN) " ;
-                $mysync->{password1} = ask_for_password( $prompt ) ;
-        } ;
-
-	if ( defined  $mysync->{ passfile1 }  ) {
-		if ( ! -e -r $mysync->{ passfile1 } ) {
-			myprint( "Failure: file from parameter --passfile1 $mysync->{ passfile1 } does not exist or is not readable\n" ) ;
-			exit_clean( $mysync, $EX_NOINPUT ) ;
-		}
-		# passfile1 readable
-		$mysync->{password1} = firstline ( $mysync->{ passfile1 } ) ;
-		return ;
-	}
-	if ( $ENV{IMAPSYNC_PASSWORD1} ) {
-		$mysync->{password1} = $ENV{IMAPSYNC_PASSWORD1} ;
-		return ;
-	}
-	return ;
-}
-
-sub get_password2
-{
-
-	my $mysync = shift ;
-
-	$mysync->{password2}
-	|| $mysync->{ passfile2 }
-	|| 'PREAUTH' eq $authmech2
-	|| 'EXTERNAL' eq $authmech2
-	|| $ENV{IMAPSYNC_PASSWORD2}
-	|| do
-        {
-                myprint( << 'FIN_PASSFILE'  ) ;
-
-If you are afraid of giving password on the command line arguments, you can put the
-password of user2 in a file named file2 and use "--passfile2 file2" instead of typing it.
-Then give this file restrictive permissions with the command "chmod 600 file2".
-An other solution is to set the environment variable IMAPSYNC_PASSWORD2
-FIN_PASSFILE
-                my $user = $authuser2 || $mysync->{user2} ;
-                my $host =  $mysync->{host2} ;
-                my $prompt = "What's the password for $user" . ' at ' . "$host? (not visible while you type, then enter RETURN) " ;
-                $mysync->{password2} = ask_for_password( $prompt ) ;
-        } ;
-
-
-	if ( defined  $mysync->{ passfile2 }  ) {
-		if ( ! -e -r $mysync->{ passfile2 } ) {
-			myprint( "Failure: file from parameter --passfile2 $mysync->{ passfile2 } does not exist or is not readable\n" ) ;
-			exit_clean( $mysync, $EX_NOINPUT ) ;
-		}
-		# passfile2 readable
-		$mysync->{password2} = firstline ( $mysync->{ passfile2 } ) ;
-		return ;
-	}
-	if ( $ENV{IMAPSYNC_PASSWORD2} ) {
-		$mysync->{password2} = $ENV{IMAPSYNC_PASSWORD2} ;
-		return ;
-	}
-	return ;
-}
-
-
-
-
-sub remove_tmp_files
-{
-        my $mysync = shift or return ;
-        $mysync->{pidfile} or return ;
-        if ( -e $mysync->{pidfile} ) {
-                unlink $mysync->{pidfile} ;
-        }
-        return ;
-}
-
-sub cleanup_before_exit
-{
-        my $mysync = shift ;
-        remove_tmp_files( $mysync ) ;
-        if ( $mysync->{imap1} and $mysync->{imap1}->IsConnected() )
-        {
-                myprint( "Disconnecting from host1 $mysync->{ host1 } user1 $mysync->{ user1 }\n" ) ;
-                $mysync->{imap1}->logout(  ) ;
-        }
-        if ( $mysync->{imap2} and $mysync->{imap2}->IsConnected() )
-        {
-                myprint( "Disconnecting from host2 $mysync->{ host2 } user2 $mysync->{ user2 }\n" ) ;
-                $mysync->{imap2}->logout(  ) ;
-        }
-        if ( $mysync->{log} ) {
-                myprint( "Log file is $mysync->{logfile} ( to change it, use --logfile filepath ; or use --nolog to turn off logging )\n" ) ;
-        }
-        if ( $mysync->{log} and $mysync->{logfile_handle} ) {
-                #myprint( "Closing $mysync->{ logfile }\n" ) ;
-                close $mysync->{logfile_handle} ;
-        }
-        return ;
-}
-
-
-
-sub exit_clean
-{
-        my $mysync = shift @ARG ;
-        my $status = shift @ARG ;
-        my @messages = @ARG ;
-        if ( @messages )
-        {
-                myprint( @messages ) ;
-        }
-        myprint( "Exiting with return value $status ($EXIT_TXT{$status})\n" ) ;
-        cleanup_before_exit( $mysync ) ;
-
-        exit $status ;
-}
-
-sub missing_option
-{
-        my $mysync = shift ;
-        my $option  = shift ;
-        exit_clean( $mysync, $EX_USAGE, "$option option is mandatory, for help run $PROGRAM_NAME --help\n" ) ;
-        return ;
-}
-
-
-sub catch_ignore
-{
-        my $mysync = shift ;
-        my $signame = shift ;
-
-        my $sigcounter = ++$mysync->{ sigcounter }{ $signame } ;
-        myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ),
-                 "). Received $sigcounter $signame signals so far. Thanks!\n" ) ;
-        stats( $mysync ) ;
-        return ;
-}
-
-
-sub catch_exit
-{
-        my $mysync = shift ;
-        my $signame = shift || q{} ;
-        if ( $signame ) {
-                myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ),
-                         "). Asked to terminate\n" ) ;
-                if ( $mysync->{stats} ) {
-                        myprint( "Here are the final stats of this sync not completely finished so far\n" ) ;
-                        stats( $mysync ) ;
-                        myprint( "Ended by a signal $signame (my PID is $PROCESS_ID my PPID is ",
-                        getppid(  ), "). I am asked to terminate immediately.\n" ) ;
-                        myprint( "You should resynchronize those accounts by running a sync again,\n",
-                        "since some messages and entire folders might still be missing on host2.\n" ) ;
-                }
-                ## no critic (RequireLocalizedPunctuationVars)
-                $SIG{ $signame }  = 'DEFAULT'; # restore default action
-                # kill myself with $signame
-                # https://www.cons.org/cracauer/sigint.html
-                myprint( "Killing myself with signal $signame\n" ) ;
-                cleanup_before_exit( $mysync ) ;
-                kill( $signame, $PROCESS_ID ) ;
-        }
-        else
-        {
-                exit_clean( $mysync, $EXIT_BY_SIGNAL ) ;
-        }
-        return ;
-}
-
-
-sub catch_print
-{
-        my $mysync = shift ;
-        my $signame = shift ;
-
-        my $sigcounter = ++$mysync->{ sigcounter }{ $signame } ;
-        myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ),
-                 "). Received $sigcounter $signame signals so far. Thanks!\n" ) ;
-        return ;
-}
-
-
-sub catch_reconnect
-{
-        my $mysync = shift ;
-        my $signame = shift ;
-        if ( here_twice( $mysync ) ) {
-                myprint( "Got two signals $signame within $INTERVAL_TO_EXIT seconds. Exiting...\n" ) ;
-                catch_exit( $mysync, $signame ) ;
-        }else{
-                myprint( "\nGot a signal $signame (my PID is $PROCESS_ID my PPID is ", getppid(  ), ")\n",
-                        "Hit 2 ctr-c within 2 seconds to exit the program\n",
-                        "Hit only 1 ctr-c to reconnect to both imap servers\n",
-                ) ;
-                myprint( "For now only one signal $signame within $INTERVAL_TO_EXIT seconds.\n" ) ;
-
-                if ( ! defined $mysync->{imap1} ) { return ; }
-                if ( ! defined $mysync->{imap2} ) { return ; }
-
-                myprint( "Info: reconnecting to host1 imap server $mysync->{host1}\n" ) ;
-                $mysync->{imap1}->State( Mail::IMAPClient::Unconnected ) ;
-                $mysync->{imap1}->{IMAPSYNC_RECONNECT_COUNT} += 1 ;
-                if ( $mysync->{imap1}->reconnect(  ) )
-                {
-                        myprint( "Info: reconnected to host1 imap server $mysync->{host1}\n" ) ;
-                }
-                else
-                {
-                        exit_clean( $mysync, $EXIT_CONNECTION_FAILURE ) ;
-                }
-                myprint( "Info: reconnecting to host2 imap server\n" ) ;
-                $mysync->{imap2}->State( Mail::IMAPClient::Unconnected ) ;
-                $mysync->{imap2}->{IMAPSYNC_RECONNECT_COUNT} += 1 ;
-                if ( $mysync->{imap2}->reconnect(  ) )
-                {
-                        myprint( "Info: reconnected to host2 imap server $mysync->{host2}\n" ) ;
-                }
-                else
-                {
-                        exit_clean( $mysync, $EXIT_CONNECTION_FAILURE ) ;
-                }
-                myprint( "Info: reconnected to both imap servers\n" ) ;
-        }
-        return ;
-}
-
-sub tests_reconnect_12_if_needed
-{
-	note( 'Entering tests_reconnect_12_if_needed()' ) ;
-
-	my $mysync ;
-
-	$mysync->{imap1} = Mail::IMAPClient->new(  ) ;
-	$mysync->{imap2} = Mail::IMAPClient->new(  ) ;
-	$mysync->{imap1}->Server( 'test1.lamiral.info' ) ;
-	$mysync->{imap2}->Server( 'test2.lamiral.info' ) ;
-	is( 2, reconnect_12_if_needed( $mysync ), 'reconnect_12_if_needed: test1&test2 .lamiral.info => 1' ) ;
-	is( 1, $mysync->{imap1}->{IMAPSYNC_RECONNECT_COUNT}, 'reconnect_12_if_needed: test1.lamiral.info IMAPSYNC_RECONNECT_COUNT => 1' ) ;
-	is( 1, $mysync->{imap2}->{IMAPSYNC_RECONNECT_COUNT}, 'reconnect_12_if_needed: test2.lamiral.info IMAPSYNC_RECONNECT_COUNT => 1' ) ;
-
-	note( 'Leaving  tests_reconnect_12_if_needed()' ) ;
-	return ;
-}
-
-sub reconnect_12_if_needed
-{
-        my $mysync = shift ;
-	#return 2 ;
-	if ( ! reconnect_if_needed( $mysync->{imap1} ) ) {
-		return ;
-	}
-	if ( ! reconnect_if_needed( $mysync->{imap2} ) ) {
-		return ;
-	}
-	# both were good
-	return 2 ;
-}
-
-
-sub tests_reconnect_if_needed
-{
-	note( 'Entering tests_reconnect_if_needed()' ) ;
-
-
-	my $myimap ;
-
-	is( undef, reconnect_if_needed( ), 'reconnect_if_needed: no args => undef' ) ;
-	is( undef, reconnect_if_needed( $myimap ), 'reconnect_if_needed: undef arg => undef' ) ;
-
-	$myimap = Mail::IMAPClient->new(  ) ;
-        $myimap->Debug( 1 ) ;
-	is( undef, reconnect_if_needed( $myimap ), 'reconnect_if_needed: empty new Mail::IMAPClient => undef' ) ;
-	$myimap->Server( 'test.lamiral.info' ) ;
-	is( 1, reconnect_if_needed( $myimap ), 'reconnect_if_needed: test.lamiral.info => 1' ) ;
-	is( 1, $myimap->{IMAPSYNC_RECONNECT_COUNT}, 'reconnect_if_needed: test.lamiral.info IMAPSYNC_RECONNECT_COUNT => 1' ) ;
-
-	note( 'Leaving  tests_reconnect_if_needed()' ) ;
-	return ;
-}
-
-sub reconnect_if_needed
-{
-	# return undef upon failure.
-	# return 1 upon connection success, with or without reconnection.
-
-        my $imap = shift ;
-
-	if ( ! defined $imap ) { return ; }
-	if ( ! $imap->Server(  ) ) { return ; }
-
-	if ( $imap->IsUnconnected(  ) ) {
-		$imap->{IMAPSYNC_RECONNECT_COUNT} += 1 ;
-		if ( $imap->reconnect( ) )  {
-			return 1 ;
-		}
-	}else{
-		return 1 ;
-	}
-
-	# A last forced one
-	$imap->State( Mail::IMAPClient::Unconnected ) ;
-	$imap->reconnect(  ) ;
-	$imap->{IMAPSYNC_RECONNECT_COUNT} += 1 ;
-	if ( $imap->noop ) {
-		# NOOP is ok
-		return 1 ;
-	}
-
-	return ;
-}
-
-
-
-sub here_twice
-{
-        my $mysync = shift ;
-        my $now = time ;
-        my $previous = $mysync->{lastcatch} || 0 ;
-        $mysync->{lastcatch} = $now ;
-
-        if ( $INTERVAL_TO_EXIT >= $now - $previous ) {
-                return $TRUE ;
-        }else{
-                return $FALSE ;
-        }
-}
-
-
-sub justconnect 
-{
-        my $mysync = shift ;
-        my $justconnect1 = justconnect1( $sync ) ;
-        my $justconnect2 = justconnect2( $sync ) ;
-        return "$justconnect1 $justconnect2";
-}
-
-sub justconnect1
-{
-        my $mysync = shift ;
-        if ( $mysync->{host1} ) 
-        {
-                myprint( "Host1: Will just connect to $mysync->{host1} without login\n" ) ;
-                $mysync->{imap1} = connect_imap(
-                        $mysync->{host1}, $mysync->{port1}, $debugimap1,
-                        $mysync->{ssl1}, $mysync->{tls1}, 'Host1', 
-                        $mysync->{h1}->{timeout}, $mysync->{h1} ) ;
-
-                $mysync->{imap1}->logout(  ) ;
-                return $mysync->{host1} ;
-        }
-        
-        return '' ;
-}
-
-sub justconnect2
-{
-        my $mysync = shift ;
-        if ( $mysync->{host2} )
-        {
-                myprint( "Host2: Will just connect to $mysync->{host2} without login\n" ) ;
-                $mysync->{imap2} = connect_imap( 
-                        $mysync->{host2}, $mysync->{port2}, $debugimap2,
-                        $mysync->{ssl2}, $mysync->{tls2}, 'Host2',
-                        $mysync->{h2}->{timeout}, $mysync->{h2} ) ;
-
-                $mysync->{imap2}->logout(  ) ;
-                return $mysync->{host2} ;
-        }
-        
-        return '' ;
-}
-
-sub skip_macosx
-{
-        return ;
-        # return( 'macosx.polarhome.com' eq hostname() ) ;
-}
-
-sub tests_mailimapclient_connect
-{
-        note( 'Entering tests_mailimapclient_connect()' ) ;
-
-        my $imap ;
-        # ipv4
-        ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect ipv4: new' ) ;
-        is( 'Mail::IMAPClient', ref( $imap ), 'mailimapclient_connect ipv4: ref is Mail::IMAPClient' ) ;
-
-        # Mail::IMAPClient 3.40 die on this... So we skip it, thanks to "mature" IO::Socket::IP
-        # Mail::IMAPClient 3.42 is ok so this test is back.
-        is( undef, $imap->connect(  ), 'mailimapclient_connect ipv4: connect with no server => failure' ) ;
-
-
-        is( 'test.lamiral.info', $imap->Server( 'test.lamiral.info' ), 'mailimapclient_connect ipv4: setting Server(test.lamiral.info)' ) ;
-        is( 1, $imap->Debug( 1 ), 'mailimapclient_connect ipv4: setting Debug( 1 )' ) ;
-        is( 143, $imap->Port( 143 ), 'mailimapclient_connect ipv4: setting Port( 143 )' ) ;
-        is( 3, $imap->Timeout( 3 ), 'mailimapclient_connect ipv4: setting Timout( 30 )' ) ;
-        like( ref( $imap->connect(  ) ), qr/IO::Socket::INET|IO::Socket::IP/, 'mailimapclient_connect ipv4: connect to test.lamiral.info' ) ;
-        like( $imap->logout( ), qr/Mail::IMAPClient/, 'mailimapclient_connect ipv4: logout' ) ;
-        is( undef, undef $imap, 'mailimapclient_connect ipv4: free variable' ) ;
-
-        # ipv4 + ssl
-        ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect ipv4 + ssl: new' ) ;
-        is( 'test.lamiral.info', $imap->Server( 'test.lamiral.info' ), 'mailimapclient_connect ipv4 + ssl: setting Server(test.lamiral.info)' ) ;
-        is( 1, $imap->Debug( 1 ), 'mailimapclient_connect ipv4 + ssl: setting Debug( 1 )' ) ;
-        ok( $imap->Ssl( [ SSL_verify_mode => SSL_VERIFY_NONE ] ), 'mailimapclient_connect ipv4 + ssl: setting Ssl( SSL_VERIFY_NONE )' ) ;
-        is( 993, $imap->Port( 993 ), 'mailimapclient_connect ipv4 + ssl: setting Port( 993 )' ) ;
-        like( ref( $imap->connect(  ) ), qr/IO::Socket::SSL/, 'mailimapclient_connect ipv4 + ssl: connect to test.lamiral.info' ) ;
-        is( $imap->logout( ), undef, 'mailimapclient_connect ipv4 + ssl: logout in ssl causes failure' ) ;
-        is( undef, undef $imap, 'mailimapclient_connect ipv4 + ssl: free variable' ) ;
-
-        # ipv6 + ssl
-        ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect ipv6 + ssl: new' ) ;
-        is( 'ks2ipv6.lamiral.info', $imap->Server( 'ks2ipv6.lamiral.info' ), 'mailimapclient_connect ipv6 + ssl: setting Server(ks2ipv6.lamiral.info)' ) ;
-        ok( $imap->Ssl( [ SSL_verify_mode => SSL_VERIFY_NONE ] ), 'mailimapclient_connect ipv6 + ssl: setting Ssl( SSL_VERIFY_NONE )' ) ;
-        is( 993, $imap->Port( 993 ), 'mailimapclient_connect ipv6 + ssl: setting Port( 993 )' ) ;
-        SKIP: {
-        if (
-                'CUILLERE' eq hostname()
-                or
-                skip_macosx()
-                or
-                -e '/.dockerenv'
-                )
-        {
-                skip( 'Tests avoided on CUILLERE can not do ipv6', 2 ) ;
-        }
-        like( ref( $imap->connect(  ) ), qr/IO::Socket::SSL/, 'mailimapclient_connect ipv6 + ssl: connect to ks2ipv6.lamiral.info' ) ;
-        is( $imap->logout( ), undef, 'mailimapclient_connect ipv6 + ssl: logout in ssl causes failure' ) ;
-        }
-        is( undef, undef $imap, 'mailimapclient_connect ipv6 + ssl: free variable' ) ;
-
-
-        note( 'Leaving  tests_mailimapclient_connect()' ) ;
-        return ;
-}
-
-
-sub tests_mailimapclient_connect_bug
-{
-        note( 'Entering tests_mailimapclient_connect_bug()' ) ;
-
-        my $imap ;
-
-        # ipv6
-        ok( $imap = Mail::IMAPClient->new(  ), 'mailimapclient_connect_bug ipv6: new' ) ;
-        is( 'ks2ipv6.lamiral.info', $imap->Server( 'ks2ipv6.lamiral.info' ), 'mailimapclient_connect_bug ipv6: setting Server(ks2ipv6.lamiral.info)' ) ;
-        is( 143, $imap->Port( 143 ), 'mailimapclient_connect_bug ipv6: setting Port( 993 )' ) ;
-
-        SKIP: {
-                if (
-                        'CUILLERE' eq hostname()
-                or
-                        skip_macosx()
-                or
-                        -e '/.dockerenv'
-                )
-                {
-                        skip( 'Tests avoided on CUILLERE can not do ipv6', 1 ) ;
-                }
-                like( ref( $imap->connect(  ) ), qr/IO::Socket::INET/, 'mailimapclient_connect_bug ipv6: connect to ks2ipv6.lamiral.info' )
-                or diag( 'mailimapclient_connect_bug ipv6: ', $imap->LastError(  ), $!,  ) ;
-        }
-        #is( $imap->logout( ), undef, 'mailimapclient_connect_bug ipv6: logout in ssl causes failure' ) ;
-        is( undef, undef $imap, 'mailimapclient_connect_bug ipv6: free variable' ) ;
-
-        note( 'Leaving  tests_mailimapclient_connect_bug()' ) ;
-        return ;
-}
-
-
-
-sub tests_connect_socket
-{
-        note( 'Entering tests_connect_socket()' ) ;
-
-	is( undef, connect_socket(  ), 'connect_socket: no args' ) ;
-
-        my $socket ;
-        my $imap ;
-        SKIP: {
-                if (
-                        'CUILLERE' eq hostname()
-                or
-                        skip_macosx()
-                or
-                        -e '/.dockerenv'
-                )
-                {
-                        skip( 'Tests avoided on CUILLERE/macosx.polarhome.com/docker cannot do ipv6', 2 ) ;
-                }
-
-                $socket = IO::Socket::INET6->new(
-                        PeerAddr => 'ks2ipv6.lamiral.info',
-                        PeerPort => 143,
-                ) ;
-
-
-                ok( $imap = connect_socket( $socket ), 'connect_socket: ks2ipv6.lamiral.info port 143 IO::Socket::INET6' ) ;
-                #$imap->Debug( 1 ) ;
-                # myprint( $imap->capability(  ) ) ;
-                if ( $imap ) {
-                        $imap->logout(  ) ;
-                }
-
-                #$IO::Socket::SSL::DEBUG = 4 ;
-                $socket = IO::Socket::SSL->new(
-                        PeerHost => 'ks2ipv6.lamiral.info',
-                        PeerPort => 993,
-                        SSL_verify_mode => SSL_VERIFY_NONE,
-                ) ;
-                # myprint( $socket ) ;
-                ok( $imap = connect_socket( $socket ), 'connect_socket: ks2ipv6.lamiral.info port 993 IO::Socket::SSL' ) ;
-                #$imap->Debug( 1 ) ;
-                # myprint( $imap->capability(  ) ) ;
-                # $socket->close(  ) ;
-                if ( $imap ) {
-                        $socket->close(  ) ;
-                }
-                #$socket->close(SSL_no_shutdown => 1) ;
-                #$imap->logout(  ) ;
-                #myprint( "\n" ) ;
-                #$imap->logout(  ) ;
-        }
-        note( 'Leaving  tests_connect_socket()' ) ;
-        return ;
-}
-
-sub connect_socket
-{
-	my( $socket ) = @ARG ;
-
-	if ( ! defined $socket ) { return ; }
-
-	my $host = $socket->peerhost(  ) ;
-	my $port = $socket->peerport(  ) ;
-	#print "socket->peerhost: ", $socket->peerhost(  ), "\n" ;
-	#print "socket->peerport: ", $socket->peerport(  ), "\n" ;
-	my $imap = Mail::IMAPClient->new(  ) ;
-	$imap->Socket( $socket ) ;
-	my $banner = $imap->Results()->[0] ;
-	#myprint( "banner: $banner"  ) ;
-	return $imap ;
-}
-
-
-sub tests_probe_imapssl
-{
-        note( 'Entering tests_probe_imapssl()' ) ;
-
-        is( undef, probe_imapssl(  ),          'probe_imapssl: no args => undef' ) ;
-        is( undef, probe_imapssl( 'unknown' ), 'probe_imapssl: unknown => undef' ) ;
-
-	SKIP: {
-                if (
-                        'CUILLERE' eq hostname()
-                or
-                        skip_macosx()
-                or
-                        -e '/.dockerenv'
-                )
-                {
-                        skip( 'Tests avoided on CUILLERE/macosx.polarhome.com/docker cannot do ipv6', 2 ) ;
-                }
-                like( probe_imapssl( 'ks2ipv6.lamiral.info' ), qr/^\* OK/, 'probe_imapssl: ks2ipv6.lamiral.info matches "* OK"' ) ;
-                like( probe_imapssl( 'imap.gmail.com' ),       qr/^\* OK/, 'probe_imapssl: imap.gmail.com matches "* OK"' ) ;
-        } ;
-
-        like( probe_imapssl( 'test1.lamiral.info' ),   qr/^\* OK/, 'probe_imapssl: test1.lamiral.info matches "* OK"' ) ;
-
-        note( 'Leaving  tests_probe_imapssl()' ) ;
-        return ;
-}
-
-sub probe_imapssl
-{
-        my $host = shift ;
-
-        if ( ! $host ) { return ; }
-
-  	my $socket = IO::Socket::SSL->new(
-		PeerHost => $host,
-		PeerPort => $IMAP_SSL_PORT,
-                SSL_verify_mode => SSL_VERIFY_NONE,
-	) ;
-        #print "$socket\n" ;
-        if ( ! $socket ) { return ; }
-
-        my $banner ;
-        $socket->sysread( $banner, 65_536 ) ;
-        #print "$banner" ;
-        $socket->close(  ) ;
-        return $banner ;
-
-}
-
-sub connect_imap
-{
-        my( $host, $port, $mydebugimap, $ssl, $tls, $Side, $mytimeout, $h ) = @_ ;
-        my $imap = Mail::IMAPClient->new(  ) ;
-        if ( $ssl ) { set_ssl( $imap, $h ) }
-        $imap->Server( $host ) ;
-        $imap->Port( $port ) ;
-        $imap->Debug( $mydebugimap ) ;
-        $imap->Timeout( $mytimeout ) ;
-
-        my $side = lc $Side ;
-        myprint( "$Side: connecting on $side [$host] port [$port]\n"  ) ;
-
-        $imap->connect(  )
-          or exit_clean( $sync, $EXIT_CONNECTION_FAILURE, "$Side: Can not open imap connection on [$host]: " . $imap->LastError . " $OS_ERROR\n" ) ;
-		myprint( "$Side IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
-        my $banner = $imap->Results()->[0] ;
-
-        myprint( "$Side banner: $banner"  ) ;
-        myprint( "$Side capability: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
-
-        if ( $tls ) {
-                set_tls( $imap, $h ) ;
-                $imap->starttls(  )
-                or exit_clean( $sync, $EXIT_TLS_FAILURE, "$Side: Can not go to tls encryption on $side [$host]:", $imap->LastError, "\n" ) ;
-                myprint( "$Side: Socket successfuly converted to SSL\n"  ) ;
-        }
-        return( $imap ) ;
-}
-
-
-sub login_imap
-{
-
-        my @allargs = @_ ;
-        my(
-                $host, $port, $user, $domain, $password,
-                $mydebugimap, $mytimeout, $fastio,
-                $ssl, $tls, $authmech, $authuser, $reconnectretry,
-                $proxyauth, $uid, $split, $Side, $h, $mysync ) = @allargs ;
-
-        my $side = lc $Side ;
-        myprint( "$Side: connecting and login on $side [$host] port [$port] with user [$user]\n"  ) ;
-
-        my $imap = init_imap( @allargs ) ;
-
-        $imap->connect()
-          or exit_clean( $mysync, $EXIT_CONNECTION_FAILURE, "$Side failure: can not open imap connection on $side [$host] with user [$user]: " . $imap->LastError . " $OS_ERROR\n" ) ;
-		myprint( "$Side IP address: ", $imap->Socket->peerhost(), "\n"  ) ;
-        my $banner = $imap->Results()->[0] ;
-
-        myprint( "$Side banner: $banner"  ) ;
-	myprint( "$Side capability before authentication: ", join(q{ }, @{ $imap->capability() || [] }), "\n" ) ;
-
-	if ( (! $ssl) and (! defined $tls ) and $imap->has_capability( 'STARTTLS' ) ) {
-		myprint( "$Side: going to ssl because STARTTLS is in CAPABILITY. Use --notls1 or --notls2 to avoid that behavior\n" ) ;
-		$tls = 1 ;
-	}
-
-        if ( $authmech eq 'PREAUTH' ) {
-                if ( $imap->IsAuthenticated( ) ) {
-                        $imap->Socket ;
-                        myprintf("%s: Assuming PREAUTH for %s\n", $Side, $imap->Server ) ;
-                }else{
-                        exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE, "$Side failure: error login on $side [$host] with user [$user] auth [PREAUTH]" ) ;
-                }
-        }
-
-        if ( $tls ) {
-                set_tls( $imap, $h ) ;
-                $imap->starttls(  )
-                or exit_clean( $mysync, $EXIT_TLS_FAILURE, "$Side failure: Can not go to tls encryption on $side [$host]:", $imap->LastError, "\n" ) ;
-                myprint( "$Side: Socket successfuly converted to SSL\n"  ) ;
-        }
-
-        authenticate_imap( $imap, @allargs ) ;
-
-        myprint( "$Side: success login on [$host] with user [$user] auth [$authmech]\n"  ) ;
-        return( $imap ) ;
-}
-
-
-sub authenticate_imap
-{
-        my( $imap,
-           $host, $port, $user, $domain, $password,
-           $mydebugimap, $mytimeout, $fastio,
-           $ssl, $tls, $authmech, $authuser, $reconnectretry,
-           $proxyauth, $uid, $split, $Side, $h, $mysync ) = @_ ;
-
-        check_capability( $imap, $authmech, $Side ) ;
-        $imap->User( $user ) ;
-        $imap->Domain( $domain ) if ( defined $domain ) ;
-        $imap->Authuser( $authuser ) ;
-        $imap->Password( $password ) ;
-
-        if ( 'X-MASTERAUTH' eq $authmech )
-        {
-                xmasterauth( $imap ) ;
-                return ;
-        }
-
-        if ( $proxyauth ) {
-                $imap->Authmechanism(q{}) ;
-                $imap->User( $authuser ) ;
-        } else {
-                $imap->Authmechanism( $authmech ) unless ( $authmech eq 'LOGIN'  or $authmech eq 'PREAUTH' ) ;
-        }
-
-        $imap->Authcallback(\&xoauth)  if ( 'XOAUTH'  eq $authmech ) ;
-        $imap->Authcallback(\&xoauth2) if ( 'XOAUTH2' eq $authmech ) ;
-        $imap->Authcallback(\&plainauth) if ( ( 'PLAIN' eq $authmech ) or ( 'EXTERNAL' eq $authmech )  ) ;
-
-
-        unless ( $authmech eq 'PREAUTH' or $authmech eq 'X-MASTERAUTH' or $imap->login( ) ) {
-                my $info  = "$Side failure: Error login on [$host] with user [$user] auth" ;
-                my $einfo = $imap->LastError || @{$imap->History}[$LAST] ;
-                chomp $einfo ;
-                my $error = "$info [$authmech]: $einfo\n" ;
-                if ( $authmech eq 'LOGIN' or $imap->IsUnconnected(  ) or $authuser ) {
-                        exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE, $error ) ;
-                }else{
-                        myprint( $error ) ;
-                }
-                myprint( "$Side info: trying LOGIN Auth mechanism on [$host] with user [$user]\n"  ) ;
-                $imap->Authmechanism(q{}) ;
-                $imap->login() or
-                  exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE, "$info [LOGIN]: ", $imap->LastError, "\n") ;
-        }
-
-        if ( $proxyauth ) {
-                if ( ! $imap->proxyauth( $user ) ) {
-                        my $info  = "$Side failure: Error doing proxyauth as user [$user] on [$host] using proxy-login as [$authuser]" ;
-                        my $einfo = $imap->LastError || @{$imap->History}[$LAST] ;
-                        chomp $einfo ;
-                        exit_clean( $mysync, $EXIT_AUTHENTICATION_FAILURE, "$info: $einfo\n" ) ;
-                }
-        }
-
-        return ;
-}
-
-sub check_capability
-{
-
-        my( $imap, $authmech, $Side ) = @_ ;
-
-
-        if ( $imap->has_capability( "AUTH=$authmech" )
-                or $imap->has_capability( $authmech ) )
-        {
-                myprintf("%s: %s says it has CAPABILITY for AUTHENTICATE %s\n",
-                        $Side, $imap->Server, $authmech) ;
-                return ;
-        }
-
-        if ( $authmech eq 'LOGIN' )
-        {
-                # Well, the warning is so common and useless that I prefer to remove it
-                # No more "... says it has NO CAPABILITY for AUTHENTICATE LOGIN"
-                return ;
-        }
-
-
-        myprintf( "%s: %s says it has NO CAPABILITY for AUTHENTICATE %s\n",
-                $Side, $imap->Server, $authmech ) ;
-
-        if ( $authmech eq 'PLAIN' )
-        {
-                myprint( "$Side: frequently PLAIN is only supported with SSL, try --ssl or --tls options\n" ) ;
-        }
-
-        return ;
-}
-
-sub set_ssl
-{
-        my ( $imap, $h ) = @_ ;
-        # SSL_version can be
-        #    SSLv3 SSLv2 SSLv23 SSLv23:!SSLv2 (last one is the default in IO-Socket-SSL-1.953)
-        #
-
-        my $sslargs_hash = $h->{sslargs} ;
-
-        my $sslargs_default = {
-                SSL_verify_mode => $SSL_VERIFY_POLICY,
-                SSL_verifycn_scheme => 'imap',
-		SSL_cipher_list => 'DEFAULT:!DH',
-        } ;
-
-        # initiate with default values
-        my %sslargs_mix = %{ $sslargs_default } ;
-        # now override with passed values
-        @sslargs_mix{ keys %{ $sslargs_hash } } = values %{ $sslargs_hash } ;
-        # remove keys with undef values
-        foreach my $key ( keys %sslargs_mix ) {
-                delete $sslargs_mix{ $key } if ( not defined  $sslargs_mix{ $key }  ) ;
-        }
-        # back to an ARRAY
-        my @sslargs_mix = %sslargs_mix ;
-        #myprint( Data::Dumper->Dump( [ $sslargs_hash, $sslargs_default, \%sslargs_mix, \@sslargs_mix ] )  ) ;
-        $imap->Ssl( \@sslargs_mix ) ;
-        return ;
-}
-
-sub set_tls
-{
-        my ( $imap, $h ) = @_ ;
-
-        my $sslargs_hash = $h->{sslargs} ;
-
-        my $sslargs_default = {
-                SSL_verify_mode => $SSL_VERIFY_POLICY,
-		SSL_cipher_list => 'DEFAULT:!DH',
-        } ;
-
-        # initiate with default values
-        my %sslargs_mix = %{ $sslargs_default } ;
-        # now override with passed values
-        @sslargs_mix{ keys %{ $sslargs_hash } } = values %{ $sslargs_hash } ;
-        # remove keys with undef values
-        foreach my $key ( keys %sslargs_mix ) {
-                delete $sslargs_mix{ $key } if ( not defined  $sslargs_mix{ $key } ) ;
-        }
-        # back to an ARRAY
-        my @sslargs_mix = %sslargs_mix ;
-
-        $imap->Starttls( \@sslargs_mix ) ;
-        return ;
-}
-
-
-
-
-sub init_imap
-{
-        my(
-           $host, $port, $user, $domain, $password,
-           $mydebugimap, $mytimeout, $fastio,
-           $ssl, $tls, $authmech, $authuser, $reconnectretry,
-           $proxyauth, $uid, $split, $Side, $h, $mysync ) = @_ ;
-
-        my ( $imap ) ;
-
-        $imap = Mail::IMAPClient->new() ;
-
-        if ( $ssl ) { set_ssl( $imap, $h ) }
-        if ( $tls ) {  } # can not do set_tls() here because connect() will directly do a STARTTLS
-        $imap->Clear(1);
-        $imap->Server($host);
-        $imap->Port($port);
-        $imap->Fast_io($fastio);
-        $imap->Buffer($buffersize || $DEFAULT_BUFFER_SIZE);
-        $imap->Uid($uid);
-
-
-        $imap->Peek(1);
-        $imap->Debug($mydebugimap);
-	if ( $mysync->{ showpasswords } ) {
-		$imap->Showcredentials( 1 ) ;
-	}
-        defined  $mytimeout  and $imap->Timeout( $mytimeout ) ;
-
-        $imap->Reconnectretry( $reconnectretry ) if ( $reconnectretry ) ;
-	$imap->{IMAPSYNC_RECONNECT_COUNT} = 0 ;
-        $imap->Ignoresizeerrors( $allowsizemismatch ) ;
-        $split and $imap->Maxcommandlength( $SPLIT_FACTOR * $split ) ;
-
-
-        return( $imap ) ;
-
-}
-
-sub plainauth
-{
-        my $code = shift;
-        my $imap = shift;
-
-        my $string = mysprintf("%s\x00%s\x00%s", $imap->User,
-                            $imap->Authuser, $imap->Password);
-        return encode_base64("$string", q{});
-}
-
-# Copy from https://github.com/imapsync/imapsync/pull/25/files
-# Changes "use" pragmas to "require".
-# The openssl system call shall be replaced by pure Perl and
-# https://metacpan.org/pod/Crypt::OpenSSL::PKCS12
-
-# Now the Joaquin Lopez code:
-#
-# Used this as an example: https://gist.github.com/gsainio/6322375
-#
-# And this as a reference: https://developers.google.com/accounts/docs/OAuth2ServiceAccount
-# (note there is an http/rest tab, where the real info is hidden away... went on a witch hunt
-# until I noticed that...)
-#
-# This is targeted at gmail to maintain compatibility after google's oauth1 service is deactivated
-# on May 5th, 2015: https://developers.google.com/gmail/oauth_protocol
-# If there are other oauth2 implementations out there, this would need to be modified to be
-# compatible
-#
-# This is a good guide on setting up the google api/apps side of the equation:
-# http://www.limilabs.com/blog/oauth2-gmail-imap-service-account
-#
-# 2016/05/27: Updated to support oauth/key data in the .json files Google now defaults to
-# when creating gmail service accounts. They're easier to work with since they neither
-# requiring decrypting nor specifying the oauth2 client id separately.
-#
-# If the password arg ends in .json, it will assume this new json method, otherwise it
-# will fallback to the "oauth client id;.p12" format it was previously using.
-sub xoauth2
-{
-        require JSON::WebToken ;
-        require LWP::UserAgent ;
-        require HTML::Entities ;
-        require JSON ;
-        require JSON::WebToken::Crypt::RSA ;
-        require Crypt::OpenSSL::RSA ;
-        require Encode::Byte ;
-        require IO::Socket::SSL ;
-
-        my $code = shift;
-        my $imap = shift;
-
-        my ($iss,$key);
-
-        if( $imap->Password =~ /^(.*\.json)$/x ) {
-            my $json = JSON->new( ) ;
-            my $filename = $1;
-            $sync->{ debug } and myprint( "XOAUTH2 json file: $filename\n" ) ;
-            open( my $FILE, '<', $filename ) or exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "error [$filename]: $OS_ERROR " ) ;
-            my $jsonfile = $json->decode( join q{}, <$FILE> ) ;
-            close $FILE ;
-
-            $iss = $jsonfile->{client_id};
-            $key = $jsonfile->{private_key};
-            $sync->{ debug } and myprint( "Service account: $iss\n");
-            $sync->{ debug } and myprint( "Private key:\n$key\n");
-        }
-        else {
-            # Get iss (service account address), keyfile name, and keypassword if necessary
-            ( $iss, my $keyfile, my $keypass ) = $imap->Password =~ /([\-\d\w\@\.]+);([a-zA-Z0-9 \_\-\.\/]+);?(.*)?/x ;
-
-            # Assume key password is google default if not provided
-            $keypass = 'notasecret' if not $keypass;
-
-            $sync->{ debug } and myprint( "Service account: $iss\nKey file: $keyfile\nKey password: $keypass\n");
-
-            # Get private key from p12 file (would be better in perl...)
-            $key = `openssl pkcs12 -in "$keyfile" -nodes -nocerts -passin pass:$keypass -nomacver`;
-
-            $sync->{ debug } and myprint( "Private key:\n$key\n");
-        }
-
-        # Create jwt of oauth2 request
-        my $time = time ;
-        my $jwt = JSON::WebToken->encode( {
-        'iss' => $iss, # service account
-        'scope' => 'https://mail.google.com/',
-        'aud' => 'https://www.googleapis.com/oauth2/v3/token',
-        'exp' => $time + $DEFAULT_EXPIRATION_TIME_OAUTH2_PK12,
-        'iat' => $time,
-        'prn' => $imap->User # user to auth as
-        },
-        $key, 'RS256', {'typ' => 'JWT'} ); # Crypt::OpenSSL::RSA needed here.
-
-        # Post oauth2 request
-        my $ua = LWP::UserAgent->new(  ) ;
-        $ua->env_proxy(  ) ;
-
-        my $response = $ua->post('https://www.googleapis.com/oauth2/v3/token',
-        { grant_type => HTML::Entities::encode_entities('urn:ietf:params:oauth:grant-type:jwt-bearer'),
-        assertion => $jwt } ) ;
-
-        unless( $response->is_success(  ) ) {
-                exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, $response->code, "\n", $response->content, "\n" ) ;
-        }else{
-                $sync->{ debug } and myprint( $response->content  ) ;
-        }
-
-        # access_token in response is what we need
-        my $data = JSON::decode_json( $response->content ) ;
-
-        # format as oauth2 auth data
-        my $xoauth2_string = encode_base64( 'user=' . $imap->User . "\1auth=Bearer " . $data->{access_token} . "\1\1", q{} ) ;
-
-        $sync->{ debug } and myprint( "XOAUTH2 String: $xoauth2_string\n");
-        return($xoauth2_string);
-}
-
-
-
-
-# xoauth() thanks to Eduardo Bortoluzzi Junior
-sub xoauth
-{
-        require URI::Escape  ;
-        require Data::Uniqid ;
-
-        my $code = shift;
-        my $imap = shift;
-
-        # The base information needed to construct the OAUTH authentication
-        my $method = 'GET' ;
-        my $url = mysprintf( 'https://mail.google.com/mail/b/%s/imap/', $imap->User ) ;
-        my $urlparm = mysprintf( 'xoauth_requestor_id=%s', URI::Escape::uri_escape( $imap->User ) ) ;
-
-        # For Google Apps, the consumer key is the primary domain
-        # TODO: create a command line argument to define the consumer key
-        my @user_parts = split /@/x, $imap->User ;
-        $sync->{ debug } and myprint( "XOAUTH: consumer key: $user_parts[1]\n" ) ;
-
-        # All the parameters needed to be signed on the XOAUTH
-        my %hash = ();
-        $hash { 'xoauth_requestor_id' } = URI::Escape::uri_escape($imap->User);
-        $hash { 'oauth_consumer_key' } = $user_parts[1];
-        $hash { 'oauth_nonce' } = md5_hex(Data::Uniqid::uniqid(rand(), 1==1));
-        $hash { 'oauth_signature_method' } = 'HMAC-SHA1';
-        $hash { 'oauth_timestamp' } = time ;
-        $hash { 'oauth_version' } = '1.0';
-
-        # Base will hold the string to be signed
-        my $base = "$method&" . URI::Escape::uri_escape( $url ) . q{&} ;
-
-        # The parameters must be in dictionary order before signing
-        my $baseparms = q{} ;
-        foreach my $key ( sort keys %hash ) {
-                if ( length( $baseparms ) > 0 ) {
-                        $baseparms .= q{&} ;
-                }
-
-                $baseparms .= "$key=$hash{$key}" ;
-        }
-
-        $base .= URI::Escape::uri_escape($baseparms);
-        $sync->{ debug } and myprint( "XOAUTH: base request to sign: $base\n" ) ;
-        # Sign it with the consumer secret, informed on the command line (password)
-        my $digest = hmac_sha1( $base, URI::Escape::uri_escape( $imap->Password ) . q{&} ) ;
-
-        # The parameters signed become a parameter and...
-        $hash { 'oauth_signature' } = URI::Escape::uri_escape( substr encode_base64( $digest ), 0, $MINUS_ONE ) ;
-
-        # ... we don't need the requestor_id anymore.
-        delete $hash{'xoauth_requestor_id'} ;
-
-        # Create the final authentication string
-        my $string = $method . q{ } . $url . q{?} . $urlparm .q{ } ;
-
-        # All the parameters must be sorted
-        $baseparms = q{};
-        foreach my $key (sort keys %hash) {
-                if(length($baseparms)>0) {
-                        $baseparms .= q{,} ;
-                }
-
-                $baseparms .= "$key=\"$hash{$key}\"";
-        }
-
-        $string .= $baseparms;
-
-        $sync->{ debug } and myprint( "XOAUTH: authentication string: $string\n" ) ;
-
-       # It must be base64 encoded
-        return encode_base64("$string", q{});
-}
-
-
-sub xmasterauth
-{
-        # This is Kerio auth admin
-        # This code comes from
-        # https://github.com/imapsync/imapsync/pull/53/files
-
-        my $imap = shift ;
-
-        my $user     = $imap->User(  ) ;
-        my $password = $imap->Password(  ) ;
-        my $authmech = 'X-MASTERAUTH' ;
-
-        my @challenge = $imap->tag_and_run( $authmech, "+" ) ;
-        if ( not defined $challenge[0] )
-        {
-                exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "Failure authenticate with $authmech: ", $imap->LastError, "\n") ;
-                return ; # hahaha!
-        }
-        $sync->{ debug } and myprint( "X-MASTERAUTH challenge: [@challenge]\n" ) ;
-
-        $challenge[1] =~ s/^\+ |^\s+|\s+$//g ;
-        $imap->_imap_command( { addcrlf => 1, addtag => 0, tag => $imap->Count }, md5_hex( $challenge[1] . $password ) )
-                or exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "Failure authenticate with $authmech: ", $imap->LastError, "\n") ;
-
-        $imap->tag_and_run( 'X-SETUSER ' . $user )
-                or exit_clean( $sync, $EXIT_AUTHENTICATION_FAILURE, "Failure authenticate with $authmech: ", "X-SETUSER ", $imap->LastError, "\n") ;
-
-                $imap->State( Mail::IMAPClient::Authenticated ) ;
-        # I comment this state because "Selected" state is usually done by SELECT or EXAMINE imap commands
-        # $imap->State( Mail::IMAPClient::Selected ) ;
-
-        return ;
-}
-
-
-sub tests_do_valid_directory
-{
-	note( 'Entering tests_do_valid_directory()' ) ;
-
-        Readonly my $NB_UNIX_tests_do_valid_directory => 2 ;
-        SKIP: {
-                skip( 'Tests only for Unix', $NB_UNIX_tests_do_valid_directory ) if ( 'MSWin32' eq $OSNAME ) ;
-                ok( 1 == do_valid_directory( '.'), 'do_valid_directory: . good' ) ;
-                ok( 1 == do_valid_directory( './W/tmp/tests/valid/sub'), 'do_valid_directory: ./W/tmp/tests/valid/sub good' ) ;
-        }
-        Readonly my $NB_UNIX_tests_do_valid_directory_non_root => 2 ;
-        SKIP: {
-                skip( 'Tests only for Unix', $NB_UNIX_tests_do_valid_directory_non_root ) if ( 'MSWin32' eq $OSNAME or '0' eq $EFFECTIVE_USER_ID ) ;
-                diag( 'Error / not writable is on purpose' ) ;
-                ok( 0 == do_valid_directory( '/'), 'do_valid_directory: / bad' ) ;
-                diag( 'Error permission denied on /noway is on purpose' ) ;
-                ok( 0 == do_valid_directory( '/noway'), 'do_valid_directory: /noway bad' ) ;
-        }
-
-
-	note( 'Leaving  tests_do_valid_directory()' ) ;
-        return ;
-}
-
-sub banner_imapsync
-{
-        my $mysync = shift @ARG ;
-        my @argv = @ARG ;
-
-        my $banner_imapsync = join q{},
-                q{$RCSfile: imapsync,v $ },
-                q{$Revision: 1.945 $ },
-                q{$Date: 2019/06/26 19:30:56 $ },
-                "\n",
-                "Command line used, run by $EXECUTABLE_NAME:\n",
-                "$PROGRAM_NAME ", command_line_nopassword( $mysync, @argv ), "\n" ;
-
-        return( $banner_imapsync ) ;
-}
-
-sub do_valid_directory
-{
-        my $dir = shift @ARG ;
-
-        # all good => return ok.
-        return( 1 ) if ( -d $dir and -r _ and -w _ ) ;
-
-        # exist but bad
-        if ( -e $dir and not -d _ ) {
-                myprint( "Error: $dir exists but is not a directory\n"  ) ;
-                return( 0 ) ;
-        }
-        if ( -e $dir and not -w _ ) {
-                my $sb = stat $dir ;
-                myprintf( "Error: directory %s is not writable for user %s, permissions are %04o and owner is %s ( uid %s )\n",
-                         $dir, getpwuid_any_os( $EFFECTIVE_USER_ID ), ($sb->mode & oct($PERMISSION_FILTER) ), getpwuid_any_os( $sb->uid ), $sb->uid(  ) ) ;
-                return( 0 ) ;
-        }
-        # Trying to create it
-        myprint( "Creating directory $dir\n"  ) ;
-        if ( ! eval { mkpath( $dir ) } ) {
-                myprint( "$EVAL_ERROR" ) if ( $EVAL_ERROR )  ;
-        }
-        return( 1 ) if ( -d $dir and -r _ and -w _ ) ;
-        return( 0 ) ;
-}
-
-
-sub tests_match_a_pid_number
-{
-        note( 'Entering tests_match_a_pid_number()' ) ;
-
-        is( undef, match_a_pid_number(  ), 'match_a_pid_number: no args => undef' ) ;
-        is( undef, match_a_pid_number( '' ), 'match_a_pid_number: "" => undef' ) ;
-        is( undef, match_a_pid_number( 'lalala' ), 'match_a_pid_number: lalala => undef' ) ;
-        is( 1, match_a_pid_number( 1 ), 'match_a_pid_number: 1 => 1' ) ;
-        is( 1, match_a_pid_number( 123 ), 'match_a_pid_number: 123 => 1' ) ;
-        is( 1, match_a_pid_number( '123' ), 'match_a_pid_number: "123" => 1' ) ;
-        is( undef, match_a_pid_number( 'a123' ), 'match_a_pid_number: a123 => undef' ) ;
-        is( 1, match_a_pid_number( 99999 ), 'match_a_pid_number: 99999 => 1' ) ;
-        is( undef, match_a_pid_number( 0 ), 'match_a_pid_number: 0 => undef' ) ;
-        is( undef, match_a_pid_number( 100000 ), 'match_a_pid_number: 100000 => undef' ) ;
-        is( undef, match_a_pid_number( 123456 ), 'match_a_pid_number: 123456 => undef' ) ;
-
-        note( 'Leaving  tests_match_a_pid_number()' ) ;
-        return ;
-}
-
-sub match_a_pid_number
-{
-        my $pid = shift @ARG ;
-        if ( ! $pid ) { return ; }
-        if ( ! match( $pid, '^\d+$' ) ) { return ; }
-        if ( 0 > $pid ) { return ; }
-        #if ( 65535 < $pid ) { return ; }
-        if ( 99999 < $pid ) { return ; }
-        return 1 ;
-}
-
-sub tests_remove_pidfile_not_running
-{
-        note( 'Entering tests_remove_pidfile_not_running()' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'remove_pidfile_not_running: mkpath W/tmp/tests/' ) ;
-        is( undef, remove_pidfile_not_running(  ), 'remove_pidfile_not_running: no args => undef' ) ;
-        is( undef, remove_pidfile_not_running( './W' ), 'remove_pidfile_not_running: a dir => undef' ) ;
-        is( undef, remove_pidfile_not_running( 'noexists' ), 'remove_pidfile_not_running: noexists => undef' ) ;
-        is( 1, touch( 'W/tmp/tests/empty.pid' ), 'remove_pidfile_not_running: prepa empty W/tmp/tests/empty.pid' ) ;
-        is( undef, remove_pidfile_not_running( 'W/tmp/tests/empty.pid' ), 'remove_pidfile_not_running: W/tmp/tests/empty.pid => undef' ) ;
-        is( 'lalala', string_to_file( 'lalala', 'W/tmp/tests/lalala.pid' ), 'remove_pidfile_not_running: prepa W/tmp/tests/lalala.pid' ) ;
-        is( undef, remove_pidfile_not_running( 'W/tmp/tests/lalala.pid' ), 'remove_pidfile_not_running: W/tmp/tests/lalala.pid => undef' ) ;
-        is( '55555', string_to_file( '55555', 'W/tmp/tests/notrunning.pid' ), 'remove_pidfile_not_running: prepa W/tmp/tests/notrunning.pid' ) ;
-        is( 1, remove_pidfile_not_running( 'W/tmp/tests/notrunning.pid' ), 'remove_pidfile_not_running: W/tmp/tests/notrunning.pid => 1' ) ;
-        is( $PROCESS_ID, string_to_file( $PROCESS_ID, 'W/tmp/tests/running.pid' ), 'remove_pidfile_not_running: prepa W/tmp/tests/running.pid' ) ;
-        is( undef, remove_pidfile_not_running( 'W/tmp/tests/running.pid' ), 'remove_pidfile_not_running: W/tmp/tests/running.pid => undef' ) ;
-
-        note( 'Leaving  tests_remove_pidfile_not_running()' ) ;
-        return ;
-}
-
-sub remove_pidfile_not_running
-{
-        #
-        my $pid_filename = shift @ARG ;
-
-        if ( ! $pid_filename )    { myprint( "No variable pid_filename\n" ) ; return } ;
-        if ( ! -e $pid_filename ) { myprint( "File $pid_filename does not exist\n" ) ; return } ;
-        if ( ! -f $pid_filename ) { myprint( "File $pid_filename is not a file\n" ) ; return } ;
-
-        my $pid = firstline( $pid_filename ) ;
-        if ( ! match_a_pid_number( $pid ) ) { myprint( "pid $pid in $pid_filename is not a number\n" ) ; return } ;
-        # can't kill myself => do nothing
-        if ( ! kill 'ZERO', $PROCESS_ID  ) { myprint( "Can not kill ZERO myself $PROCESS_ID\n" ) ; return } ;
-
-        # can't kill ZERO the pid => it is gone or own by another user => remove pidfile
-        if ( ! kill 'ZERO', $pid ) {
-                myprint( "Removing old $pid_filename since its PID $pid is not running anymore (oo-killed?)\n" ) ;
-                if ( unlink $pid_filename ) {
-                        myprint( "Removed old $pid_filename\n" ) ;
-                        return 1 ;
-                }else{
-                        myprint( "Could not remove old $pid_filename because $!\n" ) ;
-                        return ;
-                }
-        }
-        myprint( "Another imapsync process $pid is running as says pidfile $pid_filename\n" ) ;
-        return ;
-}
-
-
-sub tests_tail
-{
-        note( 'Entering tests_tail()' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'tail: mkpath W/tmp/tests/' ) ;
-        ok( ( ! -e 'W/tmp/tests/tail.pid' || unlink 'W/tmp/tests/tail.pid' ), 'tail: unlink W/tmp/tests/tail.pid' ) ;
-        ok( ( ! -e 'W/tmp/tests/tail.txt' || unlink 'W/tmp/tests/tail.txt' ), 'tail: unlink W/tmp/tests/tail.txt' ) ;
-
-        is( undef, tail(  ),  'tail: no args => undef' ) ;
-        my $mysync ;
-        is( undef, tail( $mysync ),  'tail: no pidfile => undef' ) ;
-
-        $mysync->{pidfile} = 'W/tmp/tests/tail.pid' ;
-        is( undef, tail( $mysync ),  'tail: no pidfilelocking => undef' ) ;
-
-        $mysync->{pidfilelocking} = 1 ;
-        is( undef, tail( $mysync ),  'tail: pidfile no exists => undef' ) ;
-
-
-        my $pidandlog = "33333\nW/tmp/tests/tail.txt\n" ;
-        is( $pidandlog, string_to_file( $pidandlog, $mysync->{pidfile} ), 'tail: put pid 33333 and tail.txt in pidfile' ) ;
-        is( undef, tail( $mysync ), 'tail: logfile to tail no exists => undef' ) ;
-
-        my $tailcontent = "L1\nL2\nL3\nL4\nL5\n" ;
-        is( $tailcontent, string_to_file( $tailcontent, 'W/tmp/tests/tail.txt' ),
-            'tail: put L1\nL2\nL3\nL4\nL5\n in W/tmp/tests/tail.txt' ) ;
-
-        is( undef, tail( $mysync ),  'tail: fake pid in pidfile + tail off => 1' ) ;
-
-        $mysync->{ tail } = 1 ;
-        is( 1, tail( $mysync ),  'tail: fake pid in pidfile + tail on=> 1' ) ;
-
-        # put my own pid, won't do tail
-        $pidandlog = "$PROCESS_ID\nW/tmp/tests/tail.txt\n" ;
-        is( $pidandlog, string_to_file( $pidandlog, $mysync->{pidfile} ),  'tail: put my own PID in pidfile' ) ;
-        is( undef, tail( $mysync ),  'tail: my own pid in pidfile => undef' ) ;
-
-        note( 'Leaving  tests_tail()' ) ;
-        return ;
-}
-
-
-
-sub tail
-{
-        # return undef on failures
-        # return 1 on success
-
-        my $mysync = shift ;
-
-        # no tail when aborting!
-        if ( $mysync->{ abort } ) { return ; }
-
-        my $pidfile = $mysync->{pidfile} ;
-        my $lock    = $mysync->{pidfilelocking} ;
-        my $tail    = $mysync->{tail} ;
-
-        if ( ! $pidfile ) { return ; }
-        if ( ! $lock )    { return ; }
-        if ( ! $tail )    { return ; }
-
-        my $pidtotail = firstline( $pidfile ) ;
-        if ( ! $pidtotail ) { return ; }
-
-
-
-        # It should not happen but who knows...
-        if ( $pidtotail eq $PROCESS_ID ) { return ; }
-
-
-        my $filetotail = secondline( $pidfile ) ;
-        if ( ! $filetotail ) { return ; }
-
-        if ( ! -r $filetotail )
-        {
-                #myprint( "Error: can not read $filetotail\n" ) ;
-                return ;
-        }
-
-        myprint( "Doing a tail -f on $filetotail for processus pid $pidtotail until it is finished.\n" ) ;
-        my $file = File::Tail->new(
-                name        => $filetotail,
-                nowait      => 1,
-                interval    => 1,
-                tail        => 1,
-                adjustafter => 2
-        );
-
-        my $moretimes = 200 ;
-        # print one line at least
-        my $line = $file->read ;
-        myprint( $line ) ;
-        while ( isrunning( $pidtotail, \$moretimes )  and defined( $line = $file->read ) )
-        {
-                myprint( $line );
-                sleep( 0.02 ) ;
-        }
-
-        return 1 ;
-}
-
-sub isrunning
-{
-        my $pidtocheck    = shift ;
-        my $moretimes_ref = shift ;
-
-        if ( kill 'ZERO', $pidtocheck )
-        {
-                #myprint( "$pidtocheck running\n" ) ;
-                return 1 ;
-        }
-        elsif ( $$moretimes_ref >= 0 )
-        {
-                # continue to consider it running
-                $$moretimes_ref-- ;
-                return 1 ;
-        }
-        else
-        {
-                myprint( "Tailed processus $pidtocheck ended\n" ) ;
-                return ;
-        }
-}
-
-sub tests_write_pidfile
-{
-        note( 'Entering tests_write_pidfile()' ) ;
-
-        my $mysync ;
-
-        is( 1, write_pidfile(  ), 'write_pidfile: no args => 1' ) ;
-
-        # no pidfile => ok
-        $mysync->{pidfile} = q{} ;
-        is( 1, write_pidfile( $mysync ), 'write_pidfile: no pidfile => undef' ) ;
-
-        # The pidfile path is bad => failure
-        $mysync->{pidfile} = '/no/no/no.pid' ;
-        is( undef, write_pidfile( $mysync ), 'write_pidfile: no permission for /no/no/no.pid, no lock => undef' ) ;
-
-        $mysync->{pidfilelocking} = 1 ;
-        is( undef, write_pidfile( $mysync ), 'write_pidfile: no permission for /no/no/no.pid + lock => undef' ) ;
-
-        $mysync->{pidfile} = 'W/tmp/tests/test.pid' ;
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'write_pidfile: mkpath W/tmp/tests/' ) ;
-        is( 1, touch( $mysync->{pidfile} ), 'write_pidfile: lock prepa' ) ;
-
-        $mysync->{pidfilelocking} = 0 ;
-        is( 1, write_pidfile( $mysync ), 'write_pidfile: W/tmp/tests/test.pid + no lock => 1' ) ;
-        is( $PROCESS_ID, firstline( 'W/tmp/tests/test.pid' ), "write_pidfile: W/tmp/tests/test.pid contains $PROCESS_ID" ) ;
-        is( q{}, secondline( 'W/tmp/tests/test.pid' ), "write_pidfile: W/tmp/tests/test.pid contains no second line" ) ;
-
-        $mysync->{pidfilelocking} = 1 ;
-        is( undef, write_pidfile( $mysync ), 'write_pidfile: W/tmp/tests/test.pid + lock => undef' ) ;
-
-
-        $mysync->{pidfilelocking} = 0 ;
-        $mysync->{ logfile } = 'rrrr.txt' ;
-        is( 1, write_pidfile( $mysync ), 'write_pidfile: W/tmp/tests/test.pid + no lock + logfile => 1' ) ;
-        is( $PROCESS_ID, firstline( 'W/tmp/tests/test.pid' ),  "write_pidfile: + no lock + logfile W/tmp/tests/test.pid contains $PROCESS_ID" ) ;
-        is( q{rrrr.txt}, secondline( 'W/tmp/tests/test.pid' ), "write_pidfile: + no lock + logfile W/tmp/tests/test.pid contains rrrr.txt" ) ;
-
-
-        note( 'Leaving  tests_write_pidfile()' ) ;
-        return ;
-}
-
-
-
-sub write_pidfile
-{
-        # returns undef if something is considered fatal
-        # returns 1 otherwise
-
-        if ( ! @ARG ) { return 1 ; }
-
-        my $mysync = shift @ARG ;
-
-        # Do not write the pid file if this process goal is to abort the process designed by the pid file
-        if ( $mysync->{abort} ) { return 1 ; }
-
-        #
-        my $pid_filename = $mysync->{ pidfile } ;
-        my $lock         = $mysync->{ pidfilelocking } ;
-
-        if ( ! $pid_filename )
-        {
-                myprint( "PID file is unset ( to set it, use --pidfile filepath ; to avoid it use --pidfile \"\" )\n" ) ;
-                return( 1 ) ;
-        }
-
-        myprint( "PID file is $pid_filename ( to change it, use --pidfile filepath ; to avoid it use --pidfile \"\" )\n" ) ;
-        if ( -e $pid_filename and $lock ) {
-                myprint( "$pid_filename already exists, another imapsync may be curently running. Aborting imapsync.\n"  ) ;
-                return ;
-
-        }
-
-        if ( -e $pid_filename ) {
-                myprint( "$pid_filename already exists, overwriting it ( use --pidfilelocking to avoid concurrent runs )\n"  ) ;
-        }
-
-        my $pid_string = "$PROCESS_ID\n" ;
-        my $pid_message = "Writing my PID $PROCESS_ID in $pid_filename\n" ;
-
-        if ( $mysync->{ logfile } )
-        {
-                $pid_string  .= "$mysync->{ logfile }\n" ;
-                $pid_message .= "Writing also my logfile name in $pid_filename : $mysync->{ logfile }\n" ;
-        }
-
-        if ( open my $FILE_HANDLE, '>', $pid_filename ) {
-                myprint( $pid_message ) ;
-                print $FILE_HANDLE $pid_string ;
-                close $FILE_HANDLE ;
-                return( 1 ) ;
-        }
-        else
-        {
-                myprint( "Could not open $pid_filename for writing. Check permissions or disk space: $OS_ERROR\n"  ) ;
-                return ;
-        }
-}
-
-
-sub fix_Inbox_INBOX_mapping
-{
-        my( $h1_all, $h2_all ) = @_ ;
-
-        my $regex = q{} ;
-        SWITCH: {
-                if ( exists  $h1_all->{INBOX}  and exists  $h2_all->{INBOX}  ) { $regex = q{} ; last SWITCH ; } ;
-                if ( exists  $h1_all->{Inbox}  and exists  $h2_all->{Inbox}  ) { $regex = q{} ; last SWITCH ; } ;
-                if ( exists  $h1_all->{INBOX}  and exists  $h2_all->{Inbox}  ) { $regex = q{s/^INBOX$/Inbox/x} ; last SWITCH ; } ;
-                if ( exists  $h1_all->{Inbox}  and exists  $h2_all->{INBOX}  ) { $regex = q{s/^Inbox$/INBOX/x} ; last SWITCH ; } ;
-        } ;
-        return( $regex ) ;
-}
-
-sub tests_fix_Inbox_INBOX_mapping
-{
-	note( 'Entering tests_fix_Inbox_INBOX_mapping()' ) ;
-
-
-        my( $h1_all, $h2_all ) ;
-
-        $h1_all = { 'INBOX' => q{} } ;
-        $h2_all = { 'INBOX' => q{} } ;
-        ok( q{} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX INBOX' ) ;
-
-        $h1_all = { 'Inbox' => q{} } ;
-        $h2_all = { 'Inbox' => q{} } ;
-        ok( q{} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: Inbox Inbox' ) ;
-
-        $h1_all = { 'INBOX' => q{} } ;
-        $h2_all = { 'Inbox' => q{} } ;
-        ok( q{s/^INBOX$/Inbox/x} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX Inbox' ) ;
-
-        $h1_all = { 'Inbox' => q{} } ;
-        $h2_all = { 'INBOX' => q{} } ;
-        ok( q{s/^Inbox$/INBOX/x} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: Inbox INBOX' ) ;
-
-        $h1_all = { 'INBOX' => q{} } ;
-        $h2_all = { 'rrrrr' => q{} } ;
-        ok( q{} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: INBOX rrrrrr' ) ;
-
-        $h1_all = { 'rrrrr' => q{} } ;
-        $h2_all = { 'Inbox' => q{} } ;
-        ok( q{} eq fix_Inbox_INBOX_mapping( $h1_all, $h2_all ), 'fix_Inbox_INBOX_mapping: rrrrr Inbox' ) ;
-
-	note( 'Leaving  tests_fix_Inbox_INBOX_mapping()' ) ;
-        return ;
-}
-
-
-sub jux_utf8_list
-{
-        my @s_inp = @_ ;
-        my $s_out = q{} ;
-        foreach my $s ( @s_inp ) {
-                $s_out .= jux_utf8( $s ) . "\n" ;
-        }
-        return( $s_out ) ;
-}
-
-sub tests_jux_utf8_list
-{
-	note( 'Entering tests_jux_utf8_list()' ) ;
-
-        ok( q{} eq jux_utf8_list(  ), 'jux_utf8_list: void' ) ;
-        ok( "[]\n" eq jux_utf8_list( q{} ), 'jux_utf8_list: empty string' ) ;
-        ok( "[INBOX]\n" eq jux_utf8_list( 'INBOX' ), 'jux_utf8_list: INBOX' ) ;
-        ok( "[&ANY-] = [Ö]\n" eq jux_utf8_list( '&ANY-' ), 'jux_utf8_list: &ANY-' ) ;
-
-	note( 'Leaving  tests_jux_utf8_list()' ) ;
-        return( 0 ) ;
-}
-
-sub jux_utf8
-{
-        # juxtapose utf8 at the right if different
-        my ( $s_utf7 ) =  shift ;
-        my ( $s_utf8 ) =  imap_utf7_decode( $s_utf7 ) ;
-
-        if ( $s_utf7 eq $s_utf8 ) {
-                #myprint( "[$s_utf7]\n"  ) ;
-                return( "[$s_utf7]" ) ;
-        }else{
-                #myprint( "[$s_utf7] = [$s_utf8]\n"  ) ;
-                return( "[$s_utf7] = [$s_utf8]" ) ;
-        }
-}
-
-# editing utf8 can be tricky without an utf8 editor
-sub tests_jux_utf8
-{
-	note( 'Entering tests_jux_utf8()' ) ;
-
-        ok( '[INBOX]' eq jux_utf8( 'INBOX'), 'jux_utf8: INBOX => [INBOX]' ) ;
-        ok( '[&ZTZO9nux-] = [收件箱]' eq jux_utf8( '&ZTZO9nux-'), 'jux_utf8: => [&ZTZO9nux-] = [收件箱]' ) ;
-        ok( '[&ANY-] = [Ö]' eq jux_utf8( '&ANY-'), 'jux_utf8: &ANY- => [&ANY-] = [Ö]' ) ;
-        ok( '[]' eq jux_utf8( q{} ), 'jux_utf8: void => []' ) ;
-        ok( '[+BD8EQAQ1BDQEOwQ+BDM-] = [предлог]' eq jux_utf8( '+BD8EQAQ1BDQEOwQ+BDM-' ), 'jux_utf8: => [+BD8EQAQ1BDQEOwQ+BDM-] = [предлог]' ) ;
-        ok( '[&BB8EQAQ+BDUEOgRC-] = [Проект]'      eq jux_utf8( '&BB8EQAQ+BDUEOgRC-' ),    'jux_utf8: => [&BB8EQAQ+BDUEOgRC-] = [Проект]' ) ;
-
-	note( 'Leaving  tests_jux_utf8()' ) ;
-        return ;
-}
-
-# Copied from http://cpansearch.perl.org/src/FABPOT/Unicode-IMAPUtf7-2.01/lib/Unicode/IMAPUtf7.pm
-# and then fixed with
-# https://rt.cpan.org/Public/Bug/Display.html?id=11172
-sub imap_utf7_decode
-{
-        my ( $s ) = shift ;
-
-        # Algorithm
-        # On remplace , par / dans les BASE 64 (, entre & et -)
-        # On remplace les &, non suivi d'un - par +
-        # On remplace les &- par &
-        $s =~ s/&([^,&\-]*),([^,\-&]*)\-/&$1\/$2\-/xg ;
-        $s =~ s/&(?!\-)/\+/xg ;
-        $s =~ s/&\-/&/xg ;
-        return( Unicode::String::utf7( $s )->utf8 ) ;
-}
-
-sub imap_utf7_encode
-{
-        my ( $s ) = @_ ;
-
-        $s = Unicode::String::utf8( $s )->utf7 ;
-
-        $s =~ s/\+([^\/&\-]*)\/([^\/\-&]*)\-/\+$1,$2\-/xg ;
-        $s =~ s/&/&\-/xg ;
-        $s =~ s/\+([^+\-]+)?\-/&$1\-/xg ;
-        return( $s ) ;
-}
-
-
-
-
-sub select_folder
-{
-        my ( $mysync, $imap, $folder, $hostside ) = @_ ;
-        if ( ! $imap->select( $folder ) ) {
-                my $error = join q{},
-                        "$hostside folder $folder: Could not select: ",
-                        $imap->LastError,  "\n" ;
-                errors_incr( $mysync, $error ) ;
-                return( 0 ) ;
-        }else{
-                # ok select succeeded
-                return( 1 ) ;
-        }
-}
-
-sub examine_folder
-{
-        my ( $mysync, $imap, $folder, $hostside ) = @_ ;
-        if ( ! $imap->examine( $folder ) ) {
-                my $error = join q{},
-                        "$hostside folder $folder: Could not examine: ",
-                        $imap->LastError,  "\n" ;
-                errors_incr( $mysync, $error ) ;
-                return( 0 ) ;
-        }else{
-                # ok select succeeded
-                return( 1 ) ;
-        }
-}
-
-
-sub count_from_select
-{
-        my @lines = @ARG ;
-        my $count ;
-        foreach my $line ( @lines ) {
-                #myprint( "line = [$line]\n"  ) ;
-                if ( $line =~ m/^\*\s+(\d+)\s+EXISTS/x ) {
-                        $count = $1 ;
-                        return( $count ) ;
-                }
-        }
-        return( undef ) ;
-}
-
-
-
-sub create_folder_old
-{
-        my $mysync = shift @ARG ;
-        my( $imap, $h2_fold, $h1_fold ) = @ARG ;
-
-        myprint( "Creating (old way) folder [$h2_fold] on host2\n" ) ;
-        if ( ( 'INBOX' eq uc  $h2_fold )
-         and ( $imap->exists( $h2_fold ) ) ) {
-                myprint( "Folder [$h2_fold] already exists\n"  ) ;
-                return( 1 ) ;
-        }
-        if ( ! $mysync->{dry} ){
-                if ( ! $imap->create( $h2_fold ) ) {
-                        my $error = join q{},
-                                "Could not create folder [$h2_fold] from [$h1_fold]: ",
-                                $imap->LastError(  ), "\n" ;
-                        errors_incr( $mysync, $error ) ;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $imap->exists( $h2_fold ) ;
-                        # failure since create failed
-                        return( 0 ) ;
-                }else{
-                        #create succeeded
-                        myprint( "Created ( the old way ) folder [$h2_fold] on host2\n"  ) ;
-                        return( 1 ) ;
-                }
-        }else{
-                # dry mode, no folder so many imap will fail, assuming failure
-                myprint( "Created ( the old way ) folder [$h2_fold] on host2 $mysync->{dry_message}\n"  ) ;
-                return( 0 ) ;
-        }
-}
-
-
-sub create_folder
-{
-        my $mysync = shift @ARG ;
-        my( $myimap2 , $h2_fold , $h1_fold ) = @ARG ;
-        my( @parts , $parent ) ;
-
-        if ( $myimap2->IsUnconnected(  ) ) {
-                myprint( "Host2: Unconnected state\n"  ) ;
-                return( 0 ) ;
-        }
-
-        if ( $create_folder_old ) {
-                return( create_folder_old( $mysync, $myimap2 , $h2_fold , $h1_fold ) ) ;
-        }
-        myprint( "Creating folder [$h2_fold] on host2\n"  ) ;
-        if ( ( 'INBOX' eq uc  $h2_fold  )
-         and ( $myimap2->exists( $h2_fold ) ) ) {
-                myprint( "Folder [$h2_fold] already exists\n"  ) ;
-                return( 1 ) ;
-        }
-
-        if ( $mixfolders and $myimap2->exists( $h2_fold ) ) {
-                myprint( "Folder [$h2_fold] already exists (--nomixfolders is not set)\n"  ) ;
-                return( 1 ) ;
-        }
-
-
-        if ( ( not $mixfolders ) and ( $myimap2->exists( $h2_fold ) ) ) {
-                myprint( "Folder [$h2_fold] already exists and --nomixfolders is set\n"  ) ;
-                return( 0 ) ;
-        }
-
-        @parts = split /\Q$mysync->{ h2_sep }\E/x, $h2_fold ;
-        pop @parts ;
-        $parent = join $mysync->{ h2_sep }, @parts ;
-        $parent =~ s/^\s+|\s+$//xg ;
-        if ( ( $parent ne q{} ) and ( ! $myimap2->exists( $parent ) ) ) {
-                create_folder( $mysync, $myimap2 , $parent , $h1_fold ) ;
-        }
-
-        if ( ! $mysync->{dry} ) {
-                if ( ! $myimap2->create( $h2_fold ) ) {
-                        my $error = join q{},
-                                "Could not create folder [$h2_fold] from [$h1_fold]: " ,
-                                $myimap2->LastError(  ), "\n" ;
-                        errors_incr( $mysync, $error ) ;
-                        # success if folder exists ("already exists" error)
-                        return( 1 ) if $myimap2->exists( $h2_fold ) ;
-                        # failure since create failed
-                        return( 0 ) ;
-                }else{
-                        #create succeeded
-                        myprint( "Created folder [$h2_fold] on host2\n"  ) ;
-                        return( 1 ) ;
-                }
-        }else{
-                # dry mode, no folder so many imap will fail, assuming failure
-                myprint( "Created folder [$h2_fold] on host2 $mysync->{dry_message}\n"  ) ;
-                if ( ! $mysync->{ justfolders } ) {
-                        myprint( "Since --dry mode is on and folder [$h2_fold] on host2 does not exist yet, syncing messages will not be simulated.\n"
-                        . "To simulate message syncing, use --justfolders without --dry to first create the missing folders then rerun the --dry sync.\n" ) ;
-                }
-                return( 0 ) ;
-        }
-}
-
-
-
-sub tests_folder_routines
-{
-	note( 'Entering tests_folder_routines()' ) ;
-
-        ok( !is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 1'               );
-        ok(  add_to_requested_folders('folder_foo'), 'add_to_requested_folders folder_foo'       );
-        ok(  is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 2'               );
-        ok( !is_requested_folder('folder_NO_EXIST'), 'is_requested_folder folder_NO_EXIST'       );
-
-        is_deeply( [ 'folder_foo' ], [ remove_from_requested_folders( 'folder_foo' ) ], 'removed folder_foo => folder_foo' ) ;
-        ok( !is_requested_folder('folder_foo'), 'is_requested_folder folder_foo 3'               );
-        my @f ;
-        ok(  @f = add_to_requested_folders('folder_bar', 'folder_toto'), "add result: @f"        );
-        ok(  is_requested_folder('folder_bar'), 'is_requested_folder 4'                          );
-        ok(  is_requested_folder('folder_toto'), 'is_requested_folder 5'                         );
-        ok(  remove_from_requested_folders('folder_toto'), 'remove_from_requested_folders: '       );
-        ok( !is_requested_folder('folder_toto'), 'is_requested_folder 6'                         );
-
-        is_deeply( [ 'folder_bar' ], [ remove_from_requested_folders('folder_bar') ], 'remove_from_requested_folders: empty' ) ;
-
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [] ), 'sort_requested_folders: all empty' ) ;
-        ok(  add_to_requested_folders( 'A_99', 'M_55', 'Z_11' ), 'add_to_requested_folders M_55 Z_11'       );
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [ 'A_99', 'M_55', 'Z_11' ] ), 'sort_requested_folders: middle' ) ;
-
-
-        @folderfirst = ( 'Z_11' ) ;
-
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [ 'Z_11', 'A_99', 'M_55' ] ), 'sort_requested_folders: first+middle' ) ;
-
-        is_deeply( [ 'Z_11', 'A_99', 'M_55' ], [ sort_requested_folders(  ) ], 'sort_requested_folders: first+middle is_deeply' ) ;
-
-        @folderlast = ( 'A_99' ) ;
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [ 'Z_11', 'M_55', 'A_99' ] ), 'sort_requested_folders: first+middle+last 1' ) ;
-
-        ok(  add_to_requested_folders('M_55', 'M_44',), 'add_to_requested_folders M_55 M_44'       ) ;
-
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [ 'Z_11', 'M_44', 'M_55', 'A_99'] ), 'sort_requested_folders: first+middle+last 2' ) ;
-
-
-        ok(  add_to_requested_folders('A_88', 'Z_22',), 'add_to_requested_folders A_88 Z_22'       ) ;
-        @folderfirst = qw( Z_22  Z_11 ) ;
-        @folderlast  = qw( A_99  A_88 ) ;
-        ok( 0 == compare_lists( [ sort_requested_folders(  ) ], [  'Z_22', 'Z_11', 'M_44', 'M_55', 'A_99', 'A_88' ] ), 'sort_requested_folders: first+middle+last 3' ) ;
-        undef @folderfirst ;
-        undef @folderlast ;
-
-	note( 'Leaving  tests_folder_routines()' ) ;
-        return ;
-}
-
-
-sub sort_requested_folders
-{
-        my @requested_folders_sorted = () ;
-
-        #myprint "folderfirst: @folderfirst\n" ;
-        my @folderfirst_requested = remove_from_requested_folders( @folderfirst ) ;
-        #myprint "folderfirst_requested: @folderfirst_requested\n" ;
-
-        my @folderlast_requested  = remove_from_requested_folders( @folderlast ) ;
-
-        my @middle = sort keys %requested_folder ;
-
-        @requested_folders_sorted = ( @folderfirst_requested, @middle, @folderlast_requested ) ;
-        #myprint "requested_folders_sorted: @requested_folders_sorted\n" ;
-        add_to_requested_folders( @requested_folders_sorted ) ;
-
-        return( @requested_folders_sorted ) ;
-}
-
-sub is_requested_folder
-{
-        my ( $folder ) = @_;
-
-        return( defined $requested_folder{ $folder } ) ;
-}
-
-
-sub add_to_requested_folders
-{
-        my @wanted_folders = @_ ;
-
-        foreach my $folder ( @wanted_folders ) {
-                ++$requested_folder{ $folder } ;
-        }
-        return( keys  %requested_folder  ) ;
-}
-
-sub tests_remove_from_requested_folders
-{
-        note( 'Entering tests_remove_from_requested_folders()' ) ;
-
-        is( undef, undef,  'remove_from_requested_folders: undef is undef' ) ;
-        is_deeply( [], [ remove_from_requested_folders(  ) ], 'remove_from_requested_folders: no args' ) ;
-        %requested_folder = (
-                'F1' => 1,
-        ) ;
-        is_deeply( [], [ remove_from_requested_folders(  ) ], 'remove_from_requested_folders: remove nothing among F1 => nothing' ) ;
-        is_deeply( [], [ remove_from_requested_folders( 'Fno' ) ], 'remove_from_requested_folders: remove Fno among F1 => nothing' ) ;
-        is_deeply( [ 'F1' ], [ remove_from_requested_folders( 'F1' ) ], 'remove_from_requested_folders: remove F1 among F1 => F1' ) ;
-        is_deeply( { }, { %requested_folder }, 'remove_from_requested_folders: remove F1 among F1 => %requested_folder emptied' ) ;
-
-        %requested_folder = (
-                'F1' => 1,
-                'F2' => 1,
-        ) ;
-        is_deeply( [], [ remove_from_requested_folders(  ) ], 'remove_from_requested_folders: remove nothing among F1 F2 => nothing' ) ;
-        is_deeply( [], [ remove_from_requested_folders( 'Fno' ) ], 'remove_from_requested_folders: remove Fno among F1 F2 => nothing' ) ;
-        is_deeply( [ 'F1' ], [ remove_from_requested_folders( 'F1' ) ], 'remove_from_requested_folders: remove F1 among F1 F2 => F1' ) ;
-        is_deeply( { 'F2' => 1 }, { %requested_folder }, 'remove_from_requested_folders: remove F1 among F1 F2 => %requested_folder F2' ) ;
-
-        is_deeply( [], [ remove_from_requested_folders( 'F1' ) ], 'remove_from_requested_folders: remove F1 among F2 => nothing' ) ;
-        is_deeply( [ 'F2' ], [ remove_from_requested_folders( 'F1', 'F2' ) ], 'remove_from_requested_folders: remove F1 F2 among F2 => F2' ) ;
-        is_deeply( {}, { %requested_folder }, 'remove_from_requested_folders: remove F1 among F1 F2 => %requested_folder F2' ) ;
-
-        %requested_folder = (
-                'F1' => 1,
-                'F2' => 1,
-                'F3' => 1,
-        ) ;
-        is_deeply( [ 'F1', 'F2' ], [ remove_from_requested_folders( 'F1', 'F2' ) ], 'remove_from_requested_folders: remove F1 F2 among F1 F2 F3 => F1 F2' ) ;
-        is_deeply( { 'F3' => 1 }, { %requested_folder }, 'remove_from_requested_folders: remove F1 F2 among F1 F2 F3 => %requested_folder F3' ) ;
-
-
-
-        note( 'Leaving  tests_remove_from_requested_folders()' ) ;
-        return ;
-}
-
-
-sub remove_from_requested_folders
-{
-        my @unwanted_folders = @_ ;
-
-        my @removed_folders = () ;
-        foreach my $folder ( @unwanted_folders ) {
-                if ( exists $requested_folder{ $folder } )
-                {
-                        delete $requested_folder{ $folder } ;
-                        push @removed_folders, $folder ;
-                }
-        }
-        return( @removed_folders ) ;
-}
-
-sub compare_lists
-{
-        my ($list_1_ref, $list_2_ref) = @_;
-
-        return($MINUS_ONE) if ((not defined $list_1_ref) and defined $list_2_ref);
-        return(0)  if ((not defined $list_1_ref) and not defined $list_2_ref); # end if no list
-        return(1)  if (not defined $list_2_ref); # end if only one list
-
-        if (not ref $list_1_ref ) {$list_1_ref = [$list_1_ref]};
-        if (not ref $list_2_ref ) {$list_2_ref = [$list_2_ref]};
-
-
-        my $last_used_indice = $MINUS_ONE;
-
-
-        ELEMENT:
-        foreach my $indice ( 0 .. $#{ $list_1_ref } ) {
-                $last_used_indice = $indice ;
-
-                # End of list_2
-                return 1 if ($indice > $#{ $list_2_ref } ) ;
-
-                my $element_list_1 = $list_1_ref->[$indice] ;
-                my $element_list_2 = $list_2_ref->[$indice] ;
-                my $balance = $element_list_1 cmp $element_list_2 ;
-                next ELEMENT if ($balance == 0) ;
-                return $balance ;
-        }
-        # each element equal until last indice of list_1
-        return $MINUS_ONE if ($last_used_indice < $#{ $list_2_ref } ) ;
-
-        # same size, each element equal
-        return 0 ;
-}
-
-sub tests_compare_lists
-{
-	note( 'Entering tests_compare_lists()' ) ;
-
-        my $empty_list_ref = [];
-
-        ok( 0 == compare_lists()               , 'compare_lists, no args');
-        ok( 0 == compare_lists(undef)          , 'compare_lists, undef = nothing');
-        ok( 0 == compare_lists(undef, undef)   , 'compare_lists, undef = undef');
-        ok($MINUS_ONE == compare_lists(undef , [])     , 'compare_lists, undef < []');
-        ok($MINUS_ONE == compare_lists(undef , [1])    , 'compare_lists, undef < [1]');
-        ok($MINUS_ONE == compare_lists(undef , [0])    , 'compare_lists, undef < [0]');
-        ok(+1 == compare_lists([])             , 'compare_lists, [] > nothing');
-        ok(+1 == compare_lists([], undef)      , 'compare_lists, [] > undef');
-        ok( 0 == compare_lists([] , [])        , 'compare_lists, [] = []');
-
-        ok($MINUS_ONE == compare_lists([] , [1])        , 'compare_lists, [] < [1]');
-        ok(+1 == compare_lists([1] , [])        , 'compare_lists, [1] > []');
-
-
-        ok( 0 == compare_lists([1],  1 )          , 'compare_lists, [1] =  1 ') ;
-        ok( 0 == compare_lists( 1 , [1])          , 'compare_lists,  1  = [1]') ;
-        ok( 0 == compare_lists( 1 ,  1 )          , 'compare_lists,  1  =  1 ') ;
-        ok($MINUS_ONE == compare_lists( 0 ,  1 )          , 'compare_lists,  0  <  1 ') ;
-        ok($MINUS_ONE == compare_lists($MINUS_ONE ,  0 )          , 'compare_lists, -1  <  0 ') ;
-        ok($MINUS_ONE == compare_lists( 1 ,  2 )          , 'compare_lists,  1  <  2 ') ;
-        ok(+1 == compare_lists( 2 ,  1 )          , 'compare_lists,  2  >  1 ') ;
-
-
-        ok( 0 == compare_lists([1,2], [1,2])   , 'compare_lists,  [1,2] = [1,2]' ) ;
-        ok($MINUS_ONE == compare_lists([1], [1,2])     , 'compare_lists,    [1] < [1,2]' ) ;
-        ok(+1 == compare_lists([2], [1,2])     , 'compare_lists,    [2] > [1,2]' ) ;
-        ok($MINUS_ONE == compare_lists([1], [1,1])     , 'compare_lists,    [1] < [1,1]' ) ;
-        ok(+1 == compare_lists([1, 1], [1])    , 'compare_lists, [1, 1] >   [1]' ) ;
-        ok( 0 == compare_lists([1 .. $NUMBER_20_000] , [1 .. $NUMBER_20_000])
-                                               , 'compare_lists, [1..20_000] = [1..20_000]' ) ;
-        ok($MINUS_ONE == compare_lists([1], [2])       , 'compare_lists, [1] < [2]') ;
-        ok( 0 == compare_lists([2], [2])       , 'compare_lists, [0] = [2]') ;
-        ok(+1 == compare_lists([2], [1])       , 'compare_lists, [2] > [1]') ;
-
-        ok($MINUS_ONE == compare_lists(['a'],  ['b'])   , 'compare_lists, ["a"] < ["b"]') ;
-        ok( 0 == compare_lists(['a'],  ['a'])   , 'compare_lists, ["a"] = ["a"]') ;
-        ok( 0 == compare_lists(['ab'], ['ab']) , 'compare_lists, ["ab"] = ["ab"]') ;
-        ok(+1 == compare_lists(['b'],  ['a'])   , 'compare_lists, ["b"] > ["a"]') ;
-        ok($MINUS_ONE == compare_lists(['a'],  ['aa'])  , 'compare_lists, ["a"] < ["aa"]') ;
-        ok($MINUS_ONE == compare_lists(['a'],  ['a', 'a']), 'compare_lists, ["a"] < ["a", "a"]') ;
-        ok( 0 == compare_lists([split q{ }, 'a b' ], ['a', 'b']), 'compare_lists, split') ;
-        ok( 0 == compare_lists([sort split q{ }, 'b a' ], ['a', 'b']), 'compare_lists, sort split') ;
-
-	note( 'Leaving  tests_compare_lists()' ) ;
-        return ;
-}
-
-
-sub guess_prefix
-{
-        my @foldernames = @_ ;
-
-        my $prefix_guessed = q{} ;
-        foreach my $folder ( @foldernames ) {
-                next if ( $folder =~ m{^INBOX$}xi ) ; # no guessing from INBOX
-                if ( $folder !~ m{^INBOX}xi ) {
-                        $prefix_guessed = q{} ; # prefix empty guessed
-                        last ;
-                }
-                if ( $folder =~ m{^(INBOX(?:\.|\/))}xi ) {
-                        $prefix_guessed = $1 ;  # prefix Inbox/ or INBOX. guessed
-                }
-        }
-        return( $prefix_guessed ) ;
-}
-
-sub tests_guess_prefix
-{
-	note( 'Entering tests_guess_prefix()' ) ;
-
-        is( guess_prefix(  ), q{}, 'guess_prefix: no args => empty string' ) ;
-        is( q{} , guess_prefix( 'INBOX' ), 'guess_prefix: INBOX alone' ) ;
-        is( q{} , guess_prefix( 'Inbox' ), 'guess_prefix: Inbox alone' ) ;
-        is( q{} , guess_prefix( 'INBOX' ), 'guess_prefix: INBOX alone' ) ;
-        is( 'INBOX/' , guess_prefix( 'INBOX', 'INBOX/Junk' ), 'guess_prefix: INBOX INBOX/Junk' ) ;
-        is( 'INBOX.' , guess_prefix( 'INBOX', 'INBOX.Junk' ), 'guess_prefix: INBOX INBOX.Junk' ) ;
-        is( 'Inbox/' , guess_prefix( 'Inbox', 'Inbox/Junk' ), 'guess_prefix: Inbox Inbox/Junk' ) ;
-        is( 'Inbox.' , guess_prefix( 'Inbox', 'Inbox.Junk' ), 'guess_prefix: Inbox Inbox.Junk' ) ;
-        is( 'INBOX/' , guess_prefix( 'INBOX', 'INBOX/Junk', 'INBOX/rrr' ), 'guess_prefix: INBOX INBOX/Junk INBOX/rrr' ) ;
-        is( q{} , guess_prefix( 'INBOX', 'INBOX/Junk', 'INBOX/rrr', 'zzz' ), 'guess_prefix: INBOX INBOX/Junk INBOX/rrr zzz' ) ;
-        is( q{} , guess_prefix( 'INBOX', 'Junk' ), 'guess_prefix: INBOX Junk' ) ;
-        is( q{} , guess_prefix( 'INBOX', 'Junk' ), 'guess_prefix: INBOX Junk' ) ;
-
-	note( 'Leaving  tests_guess_prefix()' ) ;
-        return ;
-}
-
-sub get_prefix
-{
-        my( $imap, $prefix_in, $prefix_opt, $Side, $folders_ref ) = @_ ;
-        my( $prefix_out, $prefix_guessed ) ;
-
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "$Side: Getting prefix\n"  ) ;
-        $prefix_guessed = guess_prefix( @{ $folders_ref } ) ;
-        myprint( "$Side: guessing prefix from folder listing: [$prefix_guessed]\n"  ) ;
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "$Side: Calling namespace capability\n"  ) ;
-        if ( $imap->has_capability( 'namespace' ) ) {
-                my $r_namespace = $imap->namespace(  ) ;
-                $prefix_out = $r_namespace->[0][0][0] ;
-                myprint( "$Side: prefix given by NAMESPACE: [$prefix_out]\n"  ) ;
-                if ( defined  $prefix_in  ) {
-                        myprint( "$Side: but using [$prefix_in] given by $prefix_opt\n"  ) ;
-                        $prefix_out = $prefix_in ;
-                        return( $prefix_out ) ;
-                }else{
-                        # all good
-                        return( $prefix_out ) ;
-                }
-        }
-        else{
-                if ( defined  $prefix_in  ) {
-                        myprint( "$Side: using [$prefix_in] given by $prefix_opt\n"  ) ;
-                        $prefix_out = $prefix_in ;
-                        return( $prefix_out ) ;
-                }else{
-                        myprint(
-                          "$Side: No NAMESPACE capability so using guessed prefix [$prefix_guessed]\n",
-                          help_to_guess_prefix( $imap, $prefix_opt ) ) ;
-                        return( $prefix_guessed ) ;
-                }
-        }
-        return ;
-}
-
-
-sub guess_separator
-{
-        my @foldernames = @_ ;
-
-        #return( undef ) unless ( @foldernames ) ;
-
-        my $sep_guessed ;
-        my %counter ;
-        foreach my $folder ( @foldernames ) {
-                $counter{'/'}++  while ( $folder =~ m{/}xg ) ;  # count /
-                $counter{'.'}++  while ( $folder =~ m{\.}xg ) ; # count .
-                $counter{'\\\\'}++ while ( $folder =~ m{(\\){2}}xg ) ; # count \\
-                $counter{'\\'}++ while ( $folder =~ m{[^\\](\\){1}(?=[^\\])}xg ) ; # count \
-        }
-        my @race_sorted = sort { $counter{ $b } <=> $counter{ $a } } keys  %counter  ;
-        $sync->{ debug } and myprint( "@foldernames\n@race_sorted\n", %counter, "\n"  ) ;
-        $sep_guessed = shift @race_sorted || $LAST_RESSORT_SEPARATOR ; # / when nothing found.
-        return( $sep_guessed ) ;
-}
-
-sub tests_guess_separator
-{
-	note( 'Entering tests_guess_separator()' ) ;
-
-        ok( '/' eq  guess_separator(  ), 'guess_separator: no args' ) ;
-        ok( '/' eq guess_separator( 'abcd' ), 'guess_separator: abcd' ) ;
-        ok( '/' eq guess_separator( 'a/b/c.d' ), 'guess_separator: a/b/c.d' ) ;
-        ok( '.' eq guess_separator( 'a.b/c.d' ), 'guess_separator: a.b/c.d' ) ;
-        ok( '\\\\' eq guess_separator( 'a\\\\b\\\\c.c\\\\d/e/f' ), 'guess_separator: a\\\\b\\\\c.c\\\\d/e/f' ) ;
-        ok( '\\' eq guess_separator( 'a\\b\\c.c\\d/e/f' ), 'guess_separator: a\\b\\c.c\\d/e/f' ) ;
-        ok( '\\' eq guess_separator( 'a\\b' ), 'guess_separator: a\\b' ) ;
-        ok( '\\' eq guess_separator( 'a\\b\\c' ), 'guess_separator: a\\b\\c' ) ;
-
-	note( 'Leaving  tests_guess_separator()' ) ;
-        return ;
-}
-
-sub get_separator
-{
-        my( $imap, $sep_in, $sep_opt, $Side, $folders_ref ) = @_ ;
-        my( $sep_out, $sep_guessed ) ;
-
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "$Side: Getting separator\n"  ) ;
-        $sep_guessed = guess_separator( @{ $folders_ref } ) ;
-        myprint( "$Side: guessing separator from folder listing: [$sep_guessed]\n"  ) ;
-
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "$Side: calling namespace capability\n"  ) ;
-        if ( $imap->has_capability( 'namespace' ) )
-        {
-                $sep_out = $imap->separator(  ) ;
-                if ( defined  $sep_out  ) {
-                        myprint( "$Side: separator given by NAMESPACE: [$sep_out]\n"  ) ;
-                        if ( defined  $sep_in  ) {
-                                myprint( "$Side: but using [$sep_in] given by $sep_opt\n"  ) ;
-                                $sep_out = $sep_in ;
-                                return( $sep_out ) ;
-                        }else{
-                                return( $sep_out ) ;
-                        }
-                }else{
-                        if ( defined  $sep_in  ) {
-                                myprint( "$Side: NAMESPACE request failed but using [$sep_in] given by $sep_opt\n"  ) ;
-                                $sep_out = $sep_in ;
-                                return( $sep_out ) ;
-                        }else{
-                                myprint(
-                                "$Side: NAMESPACE request failed so using guessed separator [$sep_guessed]\n",
-                                help_to_guess_sep( $imap, $sep_opt ) ) ;
-                                return( $sep_guessed ) ;
-                        }
-                }
-        }
-        else
-        {
-                if ( defined  $sep_in  ) {
-                        myprint( "$Side: No NAMESPACE capability but using [$sep_in] given by $sep_opt\n"  ) ;
-                        $sep_out = $sep_in ;
-                        return( $sep_out ) ;
-                }else{
-                        myprint(
-                        "$Side: No NAMESPACE capability, so using guessed separator [$sep_guessed]\n",
-                        help_to_guess_sep( $imap, $sep_opt ) ) ;
-                        return( $sep_guessed ) ;
-                }
-        }
-        return ;
-}
-
-sub help_to_guess_sep
-{
-        my( $imap, $sep_opt ) = @_ ;
-
-        my $help_to_guess_sep = "You can set the separator character with the $sep_opt option,\n"
-        . "the complete listing of folders may help you to find it\n"
-        . folders_list_to_help( $imap ) ;
-
-        return( $help_to_guess_sep ) ;
-}
-
-sub help_to_guess_prefix
-{
-        my( $imap, $prefix_opt ) = @_ ;
-
-        my $help_to_guess_prefix = "You can set the prefix namespace with the $prefix_opt option,\n"
-        . "the folowing listing of folders may help you to find it:\n"
-        . folders_list_to_help( $imap ) ;
-
-        return( $help_to_guess_prefix ) ;
-}
-
-
-sub folders_list_to_help
-{
-        my( $imap ) = shift ;
-
-        my @folders = $imap->folders ;
-        my $listing = join q{}, map { "[$_]\n" } @folders ;
-        return( $listing ) ;
-}
-
-sub private_folders_separators_and_prefixes
-{
-# what are the private folders separators and prefixes for each server ?
-
-        ( $sync->{ debug } or $sync->{debugfolders} ) and myprint( "Getting separators\n"  ) ;
-        $sync->{ h1_sep } = get_separator( $sync->{imap1}, $sync->{ sep1 }, '--sep1', 'Host1', \@h1_folders_all ) ;
-        $sync->{ h2_sep } = get_separator( $sync->{imap2}, $sync->{ sep2 }, '--sep2', 'Host2', \@h2_folders_all ) ;
-
-
-        $sync->{ h1_prefix } = get_prefix( $sync->{imap1}, $prefix1, '--prefix1', 'Host1', \@h1_folders_all ) ;
-        $sync->{ h2_prefix } = get_prefix( $sync->{imap2}, $prefix2, '--prefix2', 'Host2', \@h2_folders_all ) ;
-
-        myprint( "Host1: separator and prefix: [$sync->{ h1_sep }][$sync->{ h1_prefix }]\n"  ) ;
-        myprint( "Host2: separator and prefix: [$sync->{ h2_sep }][$sync->{ h2_prefix }]\n"  ) ;
-        return ;
-}
-
-
-sub subfolder1
-{
-        my $mysync = shift ;
-        my $subfolder1 = sanitize_subfolder( $mysync->{ subfolder1 } ) ;
-
-        if ( $subfolder1 )
-        {
-                # turns off automap
-                myprint( "Turning off automapping folders because of --subfolder1\n"  ) ;
-                $mysync->{ automap } = undef ;
-                myprint( "Sanitizing subfolder1: [$mysync->{ subfolder1 }] => [$subfolder1]\n" ) ;
-                $mysync->{ subfolder1 } = $subfolder1 ;
-                add_subfolder1_to_folderrec( $mysync ) || exit_clean( $mysync, $EXIT_SUBFOLDER1_NO_EXISTS ) ;
-        }
-        else
-        {
-                $mysync->{ subfolder1 } = undef ;
-        }
-
-        return ;
-}
-
-sub subfolder2
-{
-        my $mysync = shift ;
-        my $subfolder2 = sanitize_subfolder( $mysync->{ subfolder2 } ) ;
-        if ( $subfolder2 )
-        {
-                # turns off automap
-                myprint( "Turning off automapping folders because of --subfolder2\n"  ) ;
-                $mysync->{ automap } = undef ;
-                myprint( "Sanitizing subfolder2: [$mysync->{ subfolder2 }] => [$subfolder2]\n" ) ;
-                $mysync->{ subfolder2 } = $subfolder2 ;
-                set_regextrans2_for_subfolder2( $mysync ) ;
-        }
-        else
-        {
-                $mysync->{ subfolder2 } = undef ;
-        }
-
-        return ;
-}
-
-sub tests_sanitize_subfolder
-{
-        note( 'Entering tests_sanitize_subfolder()' ) ;
-
-        is( undef, sanitize_subfolder(  ),  'sanitize_subfolder: no args => undef' ) ;
-        is( undef, sanitize_subfolder( '' ),  'sanitize_subfolder: empty => undef' ) ;
-        is( undef, sanitize_subfolder( ' ' ),  'sanitize_subfolder: blank => undef' ) ;
-        is( undef, sanitize_subfolder( '  ' ),  'sanitize_subfolder: blanks => undef' ) ;
-        is( 'abcd', sanitize_subfolder( 'abcd' ),  'sanitize_subfolder: abcd => abcd' ) ;
-        is( 'ab cd', sanitize_subfolder( ' ab cd ' ),  'sanitize_subfolder: " ab cd " => "ab cd"' ) ;
-        is( 'abcd', sanitize_subfolder( q{a&~b#\\c[]=d;} ),  'sanitize_subfolder: "a&~b#\\c[]=d;" => "abcd"' ) ;
-        is( 'aA.b-_ 8c/dD', sanitize_subfolder( 'aA.b-_ 8c/dD' ),  'sanitize_subfolder: aA.b-_ 8c/dD => aA.b-_ 8c/dD' ) ;
-        note( 'Leaving  tests_sanitize_subfolder()' ) ;
-        return ;
-}
-
-
-sub sanitize_subfolder
-{
-        my $subfolder = shift ;
-
-        if ( ! $subfolder )
-        {
-                return ;
-        }
-        # Remove edging blanks
-        $subfolder =~ s,^ +| +$,,g ;
-        # Keep only abcd...ABCD...0123... and -_./
-        $subfolder =~ tr,-_a-zA-Z0-9./ ,,cd ;
-
-        # A blank subfolder is not a subfolder
-        if ( ! $subfolder )
-        {
-                return ;
-        }
-        else
-        {
-                return $subfolder ;
-        }
-}
-
-
-
-
-
-sub tests_add_subfolder1_to_folderrec
-{
-        note( 'Entering tests_add_subfolder1_to_folderrec()' ) ;
-
-        is( undef, add_subfolder1_to_folderrec(  ),  'add_subfolder1_to_folderrec: undef => undef' ) ;
-        is_deeply( [], [ add_subfolder1_to_folderrec(  ) ], 'add_subfolder1_to_folderrec: no args => empty array' ) ;
-        @folderrec = () ;
-        my $mysync = {} ;
-        is_deeply( [  ], [ add_subfolder1_to_folderrec( $mysync ) ], 'add_subfolder1_to_folderrec: empty => empty array' ) ;
-        is_deeply( [  ], [ @folderrec ], 'add_subfolder1_to_folderrec: empty => empty folderrec' ) ;
-        $mysync->{ subfolder1 } = 'SUBI' ;
-        $h1_folders_all{ 'SUBI' } = 1 ;
-        $mysync->{ h1_prefix } = 'INBOX/' ;
-        is_deeply( [ 'SUBI' ], [ add_subfolder1_to_folderrec( $mysync ) ], 'add_subfolder1_to_folderrec: SUBI => SUBI' ) ;
-        is_deeply( [ 'SUBI' ], [ @folderrec ], 'add_subfolder1_to_folderrec: SUBI => folderrec SUBI ' ) ;
-
-        @folderrec = () ;
-        $mysync->{ subfolder1 } = 'SUBO' ;
-        is_deeply( [  ], [ add_subfolder1_to_folderrec( $mysync ) ], 'add_subfolder1_to_folderrec: SUBO no exists => empty array' ) ;
-        is_deeply( [  ], [ @folderrec ], 'add_subfolder1_to_folderrec: SUBO no exists => empty folderrec' ) ;
-        $h1_folders_all{ 'INBOX/SUBO' } = 1 ;
-        is_deeply( [ 'INBOX/SUBO' ], [ add_subfolder1_to_folderrec( $mysync ) ], 'add_subfolder1_to_folderrec: SUBO + INBOX/SUBO exists => INBOX/SUBO' ) ;
-        is_deeply( [ 'INBOX/SUBO' ], [ @folderrec ], 'add_subfolder1_to_folderrec: SUBO + INBOX/SUBO exists => INBOX/SUBO folderrec' ) ;
-
-        note( 'Leaving  tests_add_subfolder1_to_folderrec()' ) ;
-        return ;
-}
-
-
-sub add_subfolder1_to_folderrec
-{
-        my $mysync = shift ;
-        if ( ! $mysync || ! $mysync->{ subfolder1 } )
-        {
-                return ;
-        }
-
-        my $subfolder1 = $mysync->{ subfolder1 } ;
-        my $subfolder1_extended = $mysync->{ h1_prefix } . $subfolder1 ;
-
-        if ( exists  $h1_folders_all{ $subfolder1 }  )
-        {
-                myprint( qq{Acting like --folderrec "$subfolder1"\n} ) ;
-                push @folderrec, $subfolder1 ;
-        }
-        elsif ( exists  $h1_folders_all{ $subfolder1_extended } )
-        {
-                myprint( qq{Acting like --folderrec "$subfolder1_extended"\n} ) ;
-                push @folderrec, $subfolder1_extended ;
-        }
-        else
-        {
-                myprint( qq{Nor folder "$subfolder1" nor "$subfolder1_extended" exists on host1\n} ) ;
-        }
-        return @folderrec ;
-}
-
-sub set_regextrans2_for_subfolder2
-{
-        my $mysync = shift ;
-
-
-        unshift @{ $mysync->{ regextrans2 } },
-                q(s,^$mysync->{ h2_prefix }(.*),$mysync->{ h2_prefix }$mysync->{ subfolder2 }$mysync->{ h2_sep }$1,),
-                q(s,^INBOX$,$mysync->{ h2_prefix }$mysync->{ subfolder2 }$mysync->{ h2_sep }INBOX,),
-                q(s,^($mysync->{ h2_prefix }){2},$mysync->{ h2_prefix },);
-
-        #myprint( "@{ $mysync->{ regextrans2 } }\n" ) ;
-        return ;
-}
-
-
-
-# Looks like no globals here
-
-sub tests_imap2_folder_name
-{
-        note( 'Entering tests_imap2_folder_name()' ) ;
-
-        my $mysync = {} ;
-        $mysync->{ h1_prefix } = q{} ;
-        $mysync->{ h2_prefix } = q{} ;
-        $mysync->{ h1_sep } = '/';
-        $mysync->{ h2_sep } = '.';
-
-        $mysync->{ debug } and myprint( <<"EOS"
-prefix1: [$mysync->{ h1_prefix }]
-prefix2: [$mysync->{ h2_prefix }]
-sep1:    [$sync->{ h1_sep }]
-sep2:    [$sync->{ h2_sep }]
-EOS
-) ;
-
-        $mysync->{ fixslash2 } = 0 ;
-        is( q{INBOX}, imap2_folder_name( $mysync, q{} ), 'imap2_folder_name: empty string' ) ;
-        is( 'blabla', imap2_folder_name( $mysync, 'blabla' ), 'imap2_folder_name: blabla' ) ;
-        is('spam.spam', imap2_folder_name( $mysync, 'spam/spam' ), 'imap2_folder_name: spam/spam' ) ;
-
-        is( 'spam/spam', imap2_folder_name( $mysync, 'spam.spam' ), 'imap2_folder_name: spam.spam') ;
-        is( 'spam.spam/spam', imap2_folder_name( $mysync, 'spam/spam.spam' ), 'imap2_folder_name: spam/spam.spam' ) ;
-        is( 's pam.spam/sp  am', imap2_folder_name( $mysync, 's pam/spam.sp  am' ), 'imap2_folder_name: s pam/spam.sp  am' ) ;
-
-        $mysync->{f1f2h}{ 'auto' } = 'moto' ;
-        is( 'moto', imap2_folder_name( $mysync, 'auto' ), 'imap2_folder_name: auto' ) ;
-        $mysync->{f1f2h}{ 'auto/auto' } = 'moto x 2' ;
-        is( 'moto x 2', imap2_folder_name( $mysync, 'auto/auto' ), 'imap2_folder_name: auto/auto' ) ;
-
-        @{ $mysync->{ regextrans2 } } = ( 's,/,X,g' ) ;
-        is( q{INBOX}, imap2_folder_name( $mysync, q{} ), 'imap2_folder_name: empty string [s,/,X,g]' ) ;
-        is( 'blabla', imap2_folder_name( $mysync, 'blabla' ), 'imap2_folder_name: blabla [s,/,X,g]' ) ;
-        is('spam.spam', imap2_folder_name( $mysync, 'spam/spam'), 'imap2_folder_name: spam/spam [s,/,X,g]');
-        is('spamXspam', imap2_folder_name( $mysync, 'spam.spam'), 'imap2_folder_name: spam.spam [s,/,X,g]');
-        is('spam.spamXspam', imap2_folder_name( $mysync, 'spam/spam.spam'), 'imap2_folder_name: spam/spam.spam [s,/,X,g]');
-
-        @{ $mysync->{ regextrans2 } } = ( 's, ,_,g' ) ;
-        is('blabla', imap2_folder_name( $mysync, 'blabla'), 'imap2_folder_name: blabla [s, ,_,g]');
-        is('bla_bla', imap2_folder_name( $mysync, 'bla bla'), 'imap2_folder_name: blabla [s, ,_,g]');
-
-        @{ $mysync->{ regextrans2 } } = ( q{s,(.*),\U$1,} ) ;
-        is( 'BLABLA', imap2_folder_name( $mysync, 'blabla' ), q{imap2_folder_name: blabla [s,\U(.*)\E,$1,]} ) ;
-
-        $mysync->{ fixslash2 } = 1 ;
-        @{ $mysync->{ regextrans2 } } = (  ) ;
-        is(q{INBOX}, imap2_folder_name( $mysync, q{}), 'imap2_folder_name: empty string');
-        is('blabla', imap2_folder_name( $mysync, 'blabla'), 'imap2_folder_name: blabla');
-        is('spam.spam', imap2_folder_name( $mysync, 'spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-        is('spam_spam', imap2_folder_name( $mysync, 'spam.spam'), 'imap2_folder_name: spam.spam -> spam_spam');
-        is('spam.spam_spam', imap2_folder_name( $mysync, 'spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam_spam');
-        is('s pam.spam_spa  m', imap2_folder_name( $mysync, 's pam/spam.spa  m'), 'imap2_folder_name: s pam/spam.spa m -> s pam.spam_spa  m');
-
-        $mysync->{ h1_sep } = '.';
-        $mysync->{ h2_sep } = '/';
-        is( q{INBOX}, imap2_folder_name( $mysync, q{}), 'imap2_folder_name: empty string');
-        is('blabla', imap2_folder_name( $mysync, 'blabla'), 'imap2_folder_name: blabla');
-        is('spam.spam', imap2_folder_name( $mysync, 'spam/spam'), 'imap2_folder_name: spam/spam -> spam.spam');
-        is('spam/spam', imap2_folder_name( $mysync, 'spam.spam'), 'imap2_folder_name: spam.spam -> spam/spam');
-        is('spam.spam/spam', imap2_folder_name( $mysync, 'spam/spam.spam'), 'imap2_folder_name: spam/spam.spam -> spam.spam/spam');
-
-
-
-        $mysync->{ fixslash2 } = 0 ;
-        $mysync->{ h1_prefix } = q{ };
-
-        is( 'spam.spam/spam', imap2_folder_name( $mysync, 'spam/spam.spam' ), 'imap2_folder_name: spam/spam.spam -> spam.spam/spam' ) ;
-        is( 'spam.spam/spam', imap2_folder_name( $mysync, ' spam/spam.spam' ), 'imap2_folder_name:  spam/spam.spam -> spam.spam/spam' ) ;
-
-        $mysync->{ h1_sep } = '.' ;
-        $mysync->{ h2_sep } = '/' ;
-        $mysync->{ h1_prefix } = 'INBOX.' ;
-        $mysync->{ h2_prefix } = q{} ;
-        @{ $mysync->{ regextrans2 } } = ( q{s,(.*),\U$1,} ) ;
-        is( 'BLABLA', imap2_folder_name( $mysync, 'blabla' ), 'imap2_folder_name: blabla' ) ;
-        is( 'TEST/TEST/TEST/TEST', imap2_folder_name( $mysync, 'INBOX.TEST.test.Test.tesT' ), 'imap2_folder_name: INBOX.TEST.test.Test.tesT' ) ;
-        @{ $mysync->{ regextrans2 } } = ( q{s,(.*),\L$1,} ) ;
-        is( 'test/test/test/test', imap2_folder_name( $mysync, 'INBOX.TEST.test.Test.tesT' ), 'imap2_folder_name: INBOX.TEST.test.Test.tesT' ) ;
-
-        # INBOX
-        $mysync = {} ;
-        $mysync->{ h1_prefix } = q{Pf1.} ;
-        $mysync->{ h2_prefix } = q{Pf2/} ;
-        $mysync->{ h1_sep } = '.';
-        $mysync->{ h2_sep } = '/';
-
-        #
-        #$mysync->{ debug } = 1 ;
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'F1.F2.F3' ), 'imap2_folder_name: F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-        is( 'Pf2/F1/INBOX', imap2_folder_name( $mysync, 'F1.INBOX' ), 'imap2_folder_name: F1.INBOX -> Pf2/F1/INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'INBOX' ), 'imap2_folder_name: INBOX -> INBOX' ) ;
-
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'Pf1.F1.F2.F3' ), 'imap2_folder_name: Pf1.F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-        is( 'Pf2/F1/INBOX', imap2_folder_name( $mysync, 'Pf1.F1.INBOX' ), 'imap2_folder_name: Pf1.F1.INBOX -> Pf2/F1/INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.INBOX' ), 'imap2_folder_name: Pf1.INBOX -> INBOX' ) ; # not Pf2/INBOX: Yes I can!
-
-
-
-        # subfolder2
-        $mysync = {} ;
-        $mysync->{ h1_prefix } = q{} ;
-        $mysync->{ h2_prefix } = q{} ;
-        $mysync->{ h1_sep } = '/';
-        $mysync->{ h2_sep } = '.';
-
-
-        set_regextrans2_for_subfolder2( $mysync ) ;
-        $mysync->{ subfolder2 } = 'S1.S2' ;
-        is( 'S1.S2.F1.F2.F3', imap2_folder_name( $mysync, 'F1/F2/F3' ), 'imap2_folder_name: F1/F2/F3 -> S1.S2.F1.F2.F3' ) ;
-        is( 'S1.S2.INBOX', imap2_folder_name( $mysync, 'INBOX' ), 'imap2_folder_name: F1/F2/F3 -> S1.S2.INBOX' ) ;
-
-        $mysync = {} ;
-        $mysync->{ h1_prefix } = q{Pf1/} ;
-        $mysync->{ h2_prefix } = q{Pf2.} ;
-        $mysync->{ h1_sep } = '/';
-        $mysync->{ h2_sep } = '.';
-        #$mysync->{ debug } = 1 ;
-
-        set_regextrans2_for_subfolder2( $mysync ) ;
-        $mysync->{ subfolder2 } = 'Pf2.S1.S2' ;
-        is( 'Pf2.S1.S2.F1.F2.F3', imap2_folder_name( $mysync, 'F1/F2/F3' ),     'imap2_folder_name: F1/F2/F3 -> Pf2.S1.S2.F1.F2.F3' ) ;
-        is( 'Pf2.S1.S2.INBOX',    imap2_folder_name( $mysync, 'INBOX' ),        'imap2_folder_name: INBOX -> Pf2.S1.S2.INBOX' ) ;
-        is( 'Pf2.S1.S2.F1.F2.F3', imap2_folder_name( $mysync, 'Pf1/F1/F2/F3' ), 'imap2_folder_name: F1/F2/F3 -> Pf2.S1.S2.F1.F2.F3' ) ;
-        is( 'Pf2.S1.S2.INBOX',    imap2_folder_name( $mysync, 'Pf1/INBOX' ),    'imap2_folder_name: INBOX -> Pf2.S1.S2.INBOX' ) ;
-
-        # subfolder1
-        # scenario as the reverse of the previous tests, separators point of vue
-        $mysync = {} ;
-        $mysync->{ h1_prefix } = q{Pf1.} ;
-        $mysync->{ h2_prefix } = q{Pf2/} ;
-        $mysync->{ h1_sep } = '.';
-        $mysync->{ h2_sep } = '/';
-        #$mysync->{ debug } = 1 ;
-
-        $mysync->{ subfolder1 } = 'S1.S2' ;
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'S1.S2.F1.F2.F3' ), 'imap2_folder_name: S1.S2.F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'Pf1.S1.S2.F1.F2.F3' ), 'imap2_folder_name: Pf1.S1.S2.F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2.INBOX' ), 'imap2_folder_name: S1.S2.INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2' ),  'imap2_folder_name: S1.S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2.' ), 'imap2_folder_name: S1.S2. -> INBOX' ) ;
-
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2.INBOX' ), 'imap2_folder_name: Pf1.S1.S2.INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2' ),  'imap2_folder_name: Pf1.S1.S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2.' ), 'imap2_folder_name: Pf1.S1.S2. -> INBOX' ) ;
-
-
-        $mysync->{ subfolder1 } = 'S1.S2.' ;
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'S1.S2.F1.F2.F3' ), 'imap2_folder_name: S1.S2.F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-        is( 'Pf2/F1/F2/F3', imap2_folder_name( $mysync, 'Pf1.S1.S2.F1.F2.F3' ), 'imap2_folder_name: Pf1.S1.S2.F1.F2.F3 -> Pf2/F1/F2/F3' ) ;
-
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2.INBOX' ), 'imap2_folder_name: S1.S2.INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2' ),  'imap2_folder_name: S1.S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1.S2.' ), 'imap2_folder_name: S1.S2. -> INBOX' ) ;
-
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2.INBOX' ), 'imap2_folder_name: Pf1.S1.S2.INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2' ),  'imap2_folder_name: Pf1.S1.S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'Pf1.S1.S2.' ), 'imap2_folder_name: Pf1.S1.S2. -> INBOX' ) ;
-
-
-        # subfolder1
-        # scenario as Gmail
-        $mysync = {} ;
-        $mysync->{ h1_prefix } = q{} ;
-        $mysync->{ h2_prefix } = q{} ;
-        $mysync->{ h1_sep } = '/';
-        $mysync->{ h2_sep } = '/';
-        #$mysync->{ debug } = 1 ;
-
-        $mysync->{ subfolder1 } = 'S1/S2' ;
-        is( 'F1/F2/F3', imap2_folder_name( $mysync, 'S1/S2/F1/F2/F3' ), 'imap2_folder_name: S1/S2/F1/F2/F3 -> F1/F2/F3' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2/INBOX' ), 'imap2_folder_name: S1/S2/INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2' ),  'imap2_folder_name: S1/S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2/' ), 'imap2_folder_name: S1/S2/ -> INBOX' ) ;
-
-        $mysync->{ subfolder1 } = 'S1/S2/' ;
-        is( 'F1/F2/F3', imap2_folder_name( $mysync, 'S1/S2/F1/F2/F3' ), 'imap2_folder_name: S1/S2/F1/F2/F3 -> F1/F2/F3' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2/INBOX' ), 'imap2_folder_name: S1/S2/INBOX -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2' ),  'imap2_folder_name: S1/S2 -> INBOX' ) ;
-        is( 'INBOX', imap2_folder_name( $mysync, 'S1/S2/' ), 'imap2_folder_name: S1/S2/ -> INBOX' ) ;
-
-
-        note( 'Leaving  tests_imap2_folder_name()' ) ;
-        return ;
-}
-
-
-# Global variables to remove:
-#
-
-
-sub imap2_folder_name
-{
-        my $mysync = shift ;
-        my ( $h1_fold ) = shift ;
-        my ( $h2_fold ) ;
-        if ( $mysync->{f1f2h}{ $h1_fold } ) {
-                $h2_fold = $mysync->{f1f2h}{ $h1_fold } ;
-                ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "f1f2 [$h1_fold] -> [$h2_fold]\n"  ) ;
-                return( $h2_fold ) ;
-        }
-        if ( $mysync->{f1f2auto}{ $h1_fold } ) {
-                $h2_fold = $mysync->{f1f2auto}{ $h1_fold } ;
-                ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "automap [$h1_fold] -> [$h2_fold]\n"  ) ;
-                return( $h2_fold ) ;
-        }
-
-        if ( $mysync->{ subfolder1 } )
-        {
-                my $esc_h1_sep = "\\" . $mysync->{ h1_sep } ;
-                # case where subfolder1 has the sep1 at the end, then remove it
-                my $part_to_removed = remove_last_char_if_is( $mysync->{ subfolder1 }, $mysync->{ h1_sep } ) ;
-                # remove the subfolder1 part and the sep1 if present after
-                $h1_fold =~ s{$part_to_removed($esc_h1_sep)?}{} ;
-                #myprint( "h1_fold=$h1_fold\n" ) ;
-        }
-
-        if ( ( '' eq $h1_fold ) or ( $mysync->{ h1_prefix } eq $h1_fold ) )
-        {
-                $h1_fold = 'INBOX' ;
-        }
-
-        $h2_fold = prefix_seperator_invertion( $mysync, $h1_fold ) ;
-        $h2_fold = regextrans2( $mysync, $h2_fold ) ;
-        return( $h2_fold ) ;
-}
-
-
-sub tests_remove_last_char_if_is
-{
-        note( 'Entering tests_remove_last_char_if_is()' ) ;
-
-        is( undef, remove_last_char_if_is(  ),  'remove_last_char_if_is: no args => undef' ) ;
-        is( '', remove_last_char_if_is( '' ),  'remove_last_char_if_is: empty => empty' ) ;
-        is( '', remove_last_char_if_is( '', 'Z' ),  'remove_last_char_if_is: empty Z => empty' ) ;
-        is( '', remove_last_char_if_is( 'Z', 'Z' ),  'remove_last_char_if_is: Z Z => empty' ) ;
-        is( 'abc', remove_last_char_if_is( 'abcZ', 'Z' ),  'remove_last_char_if_is: abcZ Z => abc' ) ;
-        is( 'abcY', remove_last_char_if_is( 'abcY', 'Z' ),  'remove_last_char_if_is: abcY Z => abcY' ) ;
-        note( 'Leaving  tests_remove_last_char_if_is()' ) ;
-        return ;
-}
-
-
-
-
-sub remove_last_char_if_is
-{
-        my $string = shift ;
-        my $char   = shift ;
-
-        if ( ! defined $string )
-        {
-                return ;
-        }
-
-        if ( ! defined $char )
-        {
-                return $string ;
-        }
-
-        my $last_char = substr $string, -1 ;
-        if ( $char eq $last_char )
-        {
-                chop $string ;
-                return $string ;
-        }
-        else
-        {
-                return $string ;
-        }
-}
-
-sub tests_prefix_seperator_invertion
-{
-        note( 'Entering tests_prefix_seperator_invertion()' ) ;
-
-        is( undef, prefix_seperator_invertion(  ),                     'prefix_seperator_invertion: no args => undef' ) ;
-        is( q{}, prefix_seperator_invertion( undef, q{} ),             'prefix_seperator_invertion: empty string => empty string' ) ;
-        is( 'lalala', prefix_seperator_invertion( undef, 'lalala' ),   'prefix_seperator_invertion: lalala => lalala' ) ;
-        is( 'lal/ala', prefix_seperator_invertion( undef, 'lal/ala' ), 'prefix_seperator_invertion: lal/ala => lal/ala' ) ;
-        is( 'lal.ala', prefix_seperator_invertion( undef, 'lal.ala' ), 'prefix_seperator_invertion: lal.ala => lal.ala' ) ;
-        is( '////', prefix_seperator_invertion( undef, '////' ),       'prefix_seperator_invertion: //// => ////' ) ;
-        is( '.....', prefix_seperator_invertion( undef, '.....' ),     'prefix_seperator_invertion: ..... => .....' ) ;
-
-        my $mysync  = {
-                h1_prefix => '',
-                h2_prefix => '',
-                h1_sep    => '/',
-                h2_sep    => '/',
-        } ;
-
-        is( q{}, prefix_seperator_invertion( $mysync, q{} ),             'prefix_seperator_invertion: $mysync empty string => empty string' ) ;
-        is( 'lalala', prefix_seperator_invertion( $mysync, 'lalala' ),   'prefix_seperator_invertion: $mysync lalala => lalala' ) ;
-        is( 'lal/ala', prefix_seperator_invertion( $mysync, 'lal/ala' ), 'prefix_seperator_invertion: $mysync lal/ala => lal/ala' ) ;
-        is( 'lal.ala', prefix_seperator_invertion( $mysync, 'lal.ala' ), 'prefix_seperator_invertion: $mysync lal.ala => lal.ala' ) ;
-        is( '////', prefix_seperator_invertion( $mysync, '////' ),       'prefix_seperator_invertion: $mysync //// => ////' ) ;
-        is( '.....', prefix_seperator_invertion( $mysync, '.....' ),     'prefix_seperator_invertion: $mysync ..... => .....' ) ;
-
-        $mysync  = {
-                h1_prefix => 'PPP',
-                h2_prefix => 'QQQ',
-                h1_sep    => 's',
-                h2_sep    => 't',
-        } ;
-
-        is( q{QQQ}, prefix_seperator_invertion( $mysync, q{} ),           'prefix_seperator_invertion: PPPQQQst empty string => QQQ' ) ;
-        is( 'QQQlalala', prefix_seperator_invertion( $mysync, 'lalala' ), 'prefix_seperator_invertion: PPPQQQst lalala => QQQlalala' ) ;
-        is( 'QQQlal/ala', prefix_seperator_invertion( $mysync, 'lal/ala' ),  'prefix_seperator_invertion: PPPQQQst lal/ala => QQQlal/ala' ) ;
-        is( 'QQQlal.ala', prefix_seperator_invertion( $mysync, 'lal.ala' ),  'prefix_seperator_invertion: PPPQQQst lal.ala => QQQlal.ala' ) ;
-        is( 'QQQ////', prefix_seperator_invertion( $mysync, '////' ),        'prefix_seperator_invertion: PPPQQQst //// => QQQ////' ) ;
-        is( 'QQQ.....', prefix_seperator_invertion( $mysync, '.....' ),      'prefix_seperator_invertion: PPPQQQst ..... => QQQ.....' ) ;
-
-        is( 'QQQPlalala', prefix_seperator_invertion( $mysync, 'PPPPlalala' ),   'prefix_seperator_invertion: PPPQQQst PPPPlalala => QQQPlalala' ) ;
-        is( 'QQQ', prefix_seperator_invertion( $mysync, 'PPP' ),                 'prefix_seperator_invertion: PPPQQQst PPP => QQQ' ) ;
-        is( 'QQQttt', prefix_seperator_invertion( $mysync, 'sss' ),              'prefix_seperator_invertion: PPPQQQst sss => QQQttt' ) ;
-        is( 'QQQt', prefix_seperator_invertion( $mysync, 's' ),                  'prefix_seperator_invertion: PPPQQQst s => QQQt' ) ;
-        is( 'QQQtAAAtBBB', prefix_seperator_invertion( $mysync, 'PPPsAAAsBBB' ), 'prefix_seperator_invertion: PPPQQQst PPPsAAAsBBB => QQQtAAAtBBB' ) ;
-
-        note( 'Leaving  tests_prefix_seperator_invertion()' ) ;
-        return ;
-}
-
-# Global variables to remove:
-
-
-sub prefix_seperator_invertion
-{
-        my $mysync  = shift ;
-        my $h1_fold = shift ;
-        my $h2_fold ;
-
-        if ( not defined $h1_fold ) { return ; }
-
-        my $my_h1_prefix =  $mysync->{ h1_prefix } || q{} ;
-        my $my_h2_prefix =  $mysync->{ h2_prefix } || q{} ;
-        my $my_h1_sep    = $mysync->{ h1_sep } || '/' ;
-        my $my_h2_sep    = $mysync->{ h2_sep } || '/' ;
-
-        # first we remove the prefix
-        $h1_fold =~ s/^\Q$my_h1_prefix\E//x ;
-        ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "removed host1 prefix: [$h1_fold]\n"  ) ;
-        $h2_fold = separator_invert( $mysync, $h1_fold, $my_h1_sep, $my_h2_sep ) ;
-        ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "inverted separators: [$h2_fold]\n"  ) ;
-
-        # Adding the prefix supplied by namespace or the --prefix2 option
-        # except for INBOX or Inbox
-        if ( $h2_fold !~ m/^INBOX$/xi )
-        {
-                $h2_fold = $my_h2_prefix . $h2_fold ;
-        }
-
-        ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "added host2 prefix: [$h2_fold]\n"  ) ;
-        return( $h2_fold ) ;
-}
-
-sub tests_separator_invert
-{
-	note( 'Entering tests_separator_invert()' ) ;
-
-        my $mysync = {} ;
-        $mysync->{ fixslash2 } = 0 ;
-        ok( not( defined separator_invert(  )  ), 'separator_invert: no args' ) ;
-        ok( not( defined separator_invert( q{} ) ), 'separator_invert: not enough args' ) ;
-        ok( not( defined separator_invert( q{}, q{} ) ), 'separator_invert: not enough args' ) ;
-
-        ok( q{} eq separator_invert( $mysync, q{}, q{}, q{} ), 'separator_invert: 3 empty strings' ) ;
-        ok( 'lalala' eq separator_invert( $mysync, 'lalala', q{}, q{} ), 'separator_invert: empty separator' ) ;
-        ok( 'lalala' eq separator_invert( $mysync, 'lalala', '/', '/' ), 'separator_invert: same separator /' ) ;
-        ok( 'lal/ala' eq separator_invert( $mysync, 'lal/ala', '/', '/' ), 'separator_invert: same separator / 2' ) ;
-        ok( 'lal.ala' eq separator_invert( $mysync, 'lal/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-        ok( 'lal/ala' eq separator_invert( $mysync, 'lal.ala', '.', '/' ), 'separator_invert: separators ./' ) ;
-        ok( 'la.l/ala' eq separator_invert( $mysync, 'la/l.ala', '.', '/' ), 'separator_invert: separators ./' ) ;
-
-        ok( 'l/al.ala' eq separator_invert( $mysync, 'l.al/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-        $mysync->{ fixslash2 } = 1 ;
-        ok( 'l_al.ala' eq separator_invert( $mysync, 'l.al/ala', '/', '.' ), 'separator_invert: separators /.' ) ;
-
-	note( 'Leaving  tests_separator_invert()' ) ;
-        return ;
-}
-
-# Global variables to remove:
-#
-sub separator_invert
-{
-        my( $mysync, $h1_fold, $h1_separator, $h2_separator ) = @_ ;
-
-        return( undef ) if ( not all_defined( $mysync, $h1_fold, $h1_separator, $h2_separator ) ) ;
-        # The separator we hope we'll never encounter: 00000000 == 0x00
-        my $o_sep = "\000" ;
-
-        my $h2_fold = $h1_fold ;
-        $h2_fold =~ s,\Q$h2_separator,$o_sep,xg ;
-        $h2_fold =~ s,\Q$h1_separator,$h2_separator,xg ;
-        $h2_fold =~ s,\Q$o_sep,$h1_separator,xg ;
-        $h2_fold =~ s,/,_,xg if( $mysync->{ fixslash2 } and '/' ne $h2_separator and '/' eq $h1_separator ) ;
-        return( $h2_fold ) ;
-}
-
-
-sub regextrans2
-{
-        my( $mysync, $h2_fold ) = @_ ;
-        # Transforming the folder name by the --regextrans2 option(s)
-        foreach my $regextrans2 ( @{ $mysync->{ regextrans2 } } ) {
-                my $h2_fold_before = $h2_fold ;
-                my $ret = eval "\$h2_fold =~ $regextrans2 ; 1 " ;
-                ( $mysync->{ debug } or $mysync->{debugfolders} ) and myprint( "[$h2_fold_before] -> [$h2_fold] using regextrans2 [$regextrans2]\n"  ) ;
-                if ( not ( defined  $ret  ) or $EVAL_ERROR ) {
-                        exit_clean( $mysync, $EX_USAGE, "error: eval regextrans2 '$regextrans2': $EVAL_ERROR\n" ) ;
-                }
-        }
-        return( $h2_fold ) ;
-}
-
-
-sub tests_decompose_regex
-{
-	note( 'Entering tests_decompose_regex()' ) ;
-
-        ok( 1, 'decompose_regex 1' ) ;
-        ok( 0 == compare_lists( [ q{}, q{} ], [ decompose_regex( q{} ) ] ), 'decompose_regex empty string' ) ;
-        ok( 0 == compare_lists( [ '.*', 'lala' ], [ decompose_regex( 's/.*/lala/' ) ] ), 'decompose_regex s/.*/lala/' ) ;
-
-	note( 'Leaving  tests_decompose_regex()' ) ;
-        return ;
-}
-
-sub decompose_regex
-{
-        my $regex = shift ;
-        my( $left_part, $right_part ) ;
-
-        ( $left_part, $right_part ) = $regex =~ m{^s/((?:[^/]|\\/)+)/((?:[^/]|\\/)+)/}x;
-        return( q{}, q{} ) if not $left_part ;
-        return( $left_part, $right_part ) ;
-}
-
-
-sub foldersizes
-{
-
-        my ( $side, $imap, $search_cmd, $abletosearch, @folders ) = @_ ;
-        my $total_size = 0 ;
-        my $total_nb = 0 ;
-        my $biggest_in_all = 0 ;
-
-        my $nb_folders = scalar  @folders  ;
-        my $ct_folders = 0 ; # folder counter.
-        myprint( "++++ Calculating sizes of $nb_folders folders on $side\n"  ) ;
-        foreach my $folder ( @folders )     {
-                my $stot = 0 ;
-                my $nb_msgs = 0 ;
-                $ct_folders++ ;
-                myprintf( "$side folder %7s %-35s", "$ct_folders/$nb_folders", jux_utf8( $folder ) ) ;
-                if ( 'Host2' eq $side and not exists  $h2_folders_all_UPPER{ uc  $folder  }  ) {
-                        myprint( " does not exist yet\n") ;
-                        next ;
-                }
-                if ( 'Host1' eq $side and not exists  $h1_folders_all{ $folder }  ) {
-                        myprint( " does not exist\n" ) ;
-                        next ;
-                }
-
-                last if $imap->IsUnconnected(  ) ;
-                # FTGate is RFC buggy with EXAMINE it does not act as SELECT
-                #unless ( $imap->examine( $folder ) ) {
-                unless ( $imap->select( $folder ) ) {
-                        my $error = join q{},
-                                "$side Folder $folder: Could not select: ",
-                                $imap->LastError,  "\n"  ;
-                        errors_incr( $sync, $error ) ;
-                        next ;
-                }
-                last if $imap->IsUnconnected(  ) ;
-
-                my $hash_ref = { } ;
-                my @msgs = select_msgs( $imap, undef, $search_cmd, $abletosearch, $folder ) ;
-                $nb_msgs = scalar  @msgs  ;
-                my $biggest_in_folder = 0 ;
-                @{ $hash_ref }{ @msgs } = ( undef ) if @msgs ;
-
-                last if $imap->IsUnconnected(  ) ;
-                if ( $nb_msgs > 0 and @msgs ) {
-                        if ( $abletosearch ) {
-                                if ( ! $imap->fetch_hash( \@msgs, 'RFC822.SIZE', $hash_ref) ) {
-                                        my $error = "$side failure with fetch_hash: $EVAL_ERROR\n" ;
-                                        errors_incr( $sync, $error ) ;
-                                        return ;
-                                }
-                        }else{
-                                my $uidnext = $imap->uidnext( $folder ) || $uidnext_default ;
-                                my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
-                                if ( ! $imap->fetch_hash( $fetch_hash_uids, 'RFC822.SIZE', $hash_ref ) ) {
-                                        my $error = "$side failure with fetch_hash: $EVAL_ERROR\n" ;
-                                        errors_incr( $sync, $error ) ;
-                                        return ;
-                                }
-                        }
-                        for ( keys %{ $hash_ref } ) {
-                                my $size =  $hash_ref->{ $_ }->{ 'RFC822.SIZE' } ;
-                                $stot    += $size ;
-                                $biggest_in_folder =  max( $biggest_in_folder, $size ) ;
-                        }
-                }
-
-                myprintf( ' Size: %9s', $stot ) ;
-                myprintf( ' Messages: %5s', $nb_msgs ) ;
-                myprintf( " Biggest: %9s\n", $biggest_in_folder ) ;
-                $total_size += $stot ;
-                $total_nb += $nb_msgs ;
-                $biggest_in_all =  max( $biggest_in_all, $biggest_in_folder ) ;
-        }
-        myprintf( "%s Nb folders:      %11s folders\n",    $side, $nb_folders ) ;
-        myprintf( "%s Nb messages:     %11s messages\n",   $side, $total_nb ) ;
-        myprintf( "%s Total size:      %11s bytes (%s)\n", $side, $total_size, bytes_display_string( $total_size ) ) ;
-        myprintf( "%s Biggest message: %11s bytes (%s)\n", $side, $biggest_in_all, bytes_display_string( $biggest_in_all ) ) ;
-        myprintf( "%s Time spent:      %11.1f seconds\n",  $side, timenext(  ) ) ;
-        return( $total_nb, $total_size ) ;
-}
-
-sub timenext
-{
-        my ( $timenow, $timediff ) ;
-        # $timebefore is global, beurk !
-        $timenow    = time ;
-        $timediff   = $timenow - $timebefore ;
-        $timebefore = $timenow ;
-        return( $timediff ) ;
-}
-
-sub timesince
-{
-        my $timeinit = shift || 0 ;
-        my ( $timenow, $timediff ) ;
-        $timenow    = time ;
-        $timediff   = $timenow - $timeinit ;
-	# Often used in a division so no 0
-        return( max( 1, $timediff) ) ;
-}
-
-
-
-
-sub tests_flags_regex
-{
-	note( 'Entering tests_flags_regex()' ) ;
-
-        ok( q{} eq flags_regex(q{} ), 'flags_regex, null string q{}' ) ;
-        ok( q{\Seen NonJunk $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, nothing to do} ) ;
-
-        @regexflag = ('I am BAD' ) ;
-        ok( not ( defined flags_regex( q{} ) ), 'flags_regex, bad regex' ) ;
-
-        @regexflag = ( 's/NonJunk//g' ) ;
-        ok( q{\Seen  $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove NonJunk: 's/NonJunk//g'} ) ;
-        @regexflag = ( q{s/\$Spam//g} ) ;
-        ok( q{\Seen NonJunk } eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove $Spam: 's/\$Spam//g'} ) ;
-
-        @regexflag = ( 's/\\\\Seen//g' ) ;
-
-        ok( q{ NonJunk $Spam} eq flags_regex( q{\Seen NonJunk $Spam} ), q{flags_regex, remove \Seen: 's/\\\\\\\\Seen//g'} ) ;
-
-        @regexflag = ( 's/(\s|^)[^\\\\]\w+//g' ) ;
-        ok( q{\Seen \Middle \End}   eq flags_regex( q{\Seen NonJunk \Middle $Spam \End} ), q{flags_regex: only \word among \Seen NonJunk \Middle $Spam \End} ) ;
-        ok( q{ \Seen \Middle \End1} eq flags_regex( q{Begin \Seen NonJunk \Middle $Spam \End1 End} ),
-                     q{flags_regex: only \word among Begin \Seen NonJunk \Middle $Spam \End1 End} ) ;
-
-        @regexflag = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g} ) ;
-        ok( 'Keep1 Keep2  ReB' eq flags_regex('ReA Keep1 REM Keep2 ReB'), 'Keep only regex' ) ;
-
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'REM REM Keep1 Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 REM REM Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'REM Keep1 REM REM  Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 ' eq flags_regex( 'REM Keep1'), 'Keep only regex' ) ;
-
-        @regexflag = ( q{s/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g} ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2 ReB'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex( 'Keep1 Keep2 REM REM  REM'), 'Keep only regex' ) ;
-        ok( 'Keep2 ' eq flags_regex('Keep2 REM REM  REM'), 'Keep only regex' ) ;
-
-
-        @regexflag = ( q{s/.*?(Keep1|Keep2|Keep3)/$1 /g},
-           's/(Keep1|Keep2|Keep3) (?!(Keep1|Keep2|Keep3)).*/$1 /g' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('Keep1 REM Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 Keep2 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 ' eq flags_regex('REM Keep1 REM Keep2'), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep2 Keep3 ' eq flags_regex('REM Keep1 REM Keep2 REM REM Keep3 REM'), 'Keep only regex' ) ;
-        ok( 'Keep1 ' eq flags_regex('REM  REM Keep1 REM REM REM '), 'Keep only regex' ) ;
-        ok( 'Keep1 Keep3 ' eq flags_regex('RE1 Keep1 RE2 Keep3 RE3 RE4 RE5 '), 'Keep only regex' ) ;
-
-        @regexflag = ( 's/(.*)/$1 jrdH8u/' ) ;
-        ok('REM  REM  REM REM REM jrdH8u' eq flags_regex('REM  REM  REM REM REM'), q{Add jrdH8u 's/(.*)/\$1 jrdH8u/'} ) ;
-        @regexflag = ('s/jrdH8u *//');
-        ok('REM  REM  REM REM REM ' eq flags_regex('REM  REM  REM REM REM jrdH8u'), q{Remove jrdH8u s/jrdH8u *//} ) ;
-
-        @regexflag = (
-        's/.*?(?:(\\\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg'
-        );
-
-        ok( '\\Deleted \\Answered '
-        eq flags_regex('Blabla \$Junk \\Deleted machin \\Answered truc'),
-        'Keep only regex: Exchange case (Phil)' ) ;
-
-        ok( q{} eq flags_regex( q{} ), 'Keep only regex: Exchange case, null string (Phil)' ) ;
-
-        ok( q{}
-        eq flags_regex('Blabla $Junk  machin  truc'),
-        'Keep only regex: Exchange case, no accepted flags (Phil)' ) ;
-
-        ok('\\Deleted \\Answered \\Draft \\Flagged '
-        eq flags_regex('\\Deleted    \\Answered  \\Draft \\Flagged '),
-        'Keep only regex: Exchange case (Phil)' ) ;
-
-        @regexflag = ( 's/\\\\Flagged//g' ) ;
-
-        is('\Deleted \Answered \Draft  ',
-        flags_regex('\\Deleted \\Answered \\Draft \\Flagged '),
-        'flags_regex: remove \Flagged 1' ) ;
-        is('\\Deleted  \\Answered \\Draft',
-        flags_regex('\\Deleted \\Flagged \\Answered \\Draft'),
-        'flags_regex: remove \Flagged 2' ) ;
-
-        # I didn't understand why it gives \F
-        # https://perldoc.perl.org/perlrebackslash.html
-        # \F                Foldcase till \E.  Not in [].
-        # https://perldoc.perl.org/functions/fc.html
-
-        # \F Not available in old Perl so I comment the test
-
-        # @regexflag = ( 's/\\Flagged/X/g' ) ;
-        #is('\Deleted FX \Answered \FX \Draft \FX',
-        #flags_regex( '\Deleted Flagged \Answered \Flagged \Draft \Flagged' ),
-        # 'flags_regex: remove \Flagged 3 mistery...' ) ;
-
-	note( 'Leaving  tests_flags_regex()' ) ;
-        return ;
-}
-
-sub flags_regex
-{
-        my ( $h1_flags ) = @_ ;
-        foreach my $regexflag ( @regexflag ) {
-                my $h1_flags_orig = $h1_flags ;
-                $debugflags and myprint( "eval \$h1_flags =~ $regexflag\n"  ) ;
-                my $ret = eval "\$h1_flags =~ $regexflag ; 1 " ;
-                $debugflags and myprint( "regexflag $regexflag [$h1_flags_orig] -> [$h1_flags]\n"  ) ;
-                if( not ( defined $ret ) or $EVAL_ERROR ) {
-                        myprint( "Error: eval regexflag '$regexflag': $EVAL_ERROR\n"  ) ;
-                        return( undef ) ;
-                }
-        }
-        return( $h1_flags ) ;
-}
-
-sub acls_sync
-{
-        my($h1_fold, $h2_fold) = @_ ;
-        if ( $syncacls ) {
-                my $h1_hash = $sync->{imap1}->getacl($h1_fold)
-                  or myprint( "Could not getacl for $h1_fold: $EVAL_ERROR\n" ) ;
-                my $h2_hash = $sync->{imap2}->getacl($h2_fold)
-                  or myprint( "Could not getacl for $h2_fold: $EVAL_ERROR\n" ) ;
-                my %users = map { ($_, 1) } ( keys  %{ $h1_hash} , keys %{ $h2_hash }  ) ;
-                foreach my $user (sort keys %users ) {
-                        my $acl = $h1_hash->{$user} || 'none' ;
-                        myprint( "acl $user: [$acl]\n" ) ;
-                        next if ($h1_hash->{$user} && $h2_hash->{$user} &&
-                                 $h1_hash->{$user} eq $h2_hash->{$user});
-                        unless ($sync->{dry}) {
-                                myprint( "setting acl $h2_fold $user $acl\n" ) ;
-                                $sync->{imap2}->setacl($h2_fold, $user, $acl)
-                                  or myprint( "Could not set acl: $EVAL_ERROR\n" ) ;
-                        }
-                }
-        }
-        return ;
-}
-
-
-sub tests_permanentflags
-{
-	note( 'Entering tests_permanentflags()' ) ;
-
-        my $string;
-        ok(q{} eq permanentflags(' * OK [PERMANENTFLAGS (\* \Draft \Answered)] Limited'),
-           'permanentflags \*');
-        ok('\Draft \Answered' eq permanentflags(' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited'),
-           'permanentflags \Draft \Answered');
-        ok('\Draft \Answered'
-           eq permanentflags('Blabla',
-                             ' * OK [PERMANENTFLAGS (\Draft \Answered)] Limited',
-                             'Blabla'),
-           'permanentflags \Draft \Answered'
-        );
-        ok(q{} eq permanentflags('Blabla'), 'permanentflags nothing');
-
-	note( 'Leaving  tests_permanentflags()' ) ;
-        return ;
-}
-
-sub permanentflags
-{
-        my @lines = @_ ;
-
-        foreach my $line (@lines) {
-                if ( $line =~ m{\[PERMANENTFLAGS\s\(([^)]+?)\)\]}x ) {
-                        ( $debugflags or $sync->{ debug } ) and myprint( "permanentflags: $line"  ) ;
-                        my $permanentflags = $1 ;
-                        if ( $permanentflags =~ m{\\\*}x ) {
-                                $permanentflags = q{} ;
-                        }
-                        return($permanentflags) ;
-                } ;
-        }
-        return( q{} ) ;
-}
-
-sub tests_flags_filter
-{
-	note( 'Entering tests_flags_filter()' ) ;
-
-        ok( '\Seen' eq flags_filter('\Seen', '\Draft \Seen \Answered'), 'flags_filter ' );
-        ok( q{} eq flags_filter('\Seen', '\Draft  \Answered'), 'flags_filter ' );
-        ok( '\Seen' eq flags_filter('\Seen', '\Seen'), 'flags_filter ' );
-        ok( '\Seen' eq flags_filter('\Seen', ' \Seen '), 'flags_filter ' );
-        ok( '\Seen \Draft'
-           eq flags_filter('\Seen \Draft', '\Draft \Seen \Answered'), 'flags_filter ' );
-        ok( '\Seen \Draft'
-           eq flags_filter('\Seen \Draft', ' \Draft \Seen \Answered '), 'flags_filter ' );
-
-	note( 'Leaving  tests_flags_filter()' ) ;
-	return ;
-}
-
-sub flags_filter
-{
-        my( $flags, $allowed_flags ) = @_ ;
-
-        my @flags = split  /\s+/x, $flags ;
-        my %allowed_flags = map { $_ => 1 } split q{ }, $allowed_flags ;
-        my @flags_out     = map { exists $allowed_flags{$_} ? $_ : () } @flags ;
-
-        my $flags_out = join q{ }, @flags_out ;
-
-        return( $flags_out ) ;
-}
-
-sub flagscase
-{
-        my $flags = shift ;
-
-        my @flags = split /\s+/x, $flags ;
-        my %rfc_flags = map { $_ => 1 } split q{ }, '\Answered \Flagged \Deleted \Seen \Draft' ;
-        my @flags_out = map { exists $rfc_flags{ ucsecond( lc $_ ) } ? ucsecond( lc $_ ) : $_ } @flags ;
-
-        my $flags_out = join q{ }, @flags_out ;
-
-        return( $flags_out ) ;
-}
-
-sub tests_flagscase
-{
-	note( 'Entering tests_flagscase()' ) ;
-
-        ok( '\Seen' eq flagscase( '\Seen' ), 'flagscase: \Seen -> \Seen' ) ;
-        ok( '\Seen' eq flagscase( '\SEEN' ), 'flagscase: \SEEN -> \Seen' ) ;
-
-        ok( '\Seen \Draft' eq flagscase( '\SEEN \DRAFT' ), 'flagscase: \SEEN \DRAFT -> \Seen \Draft' ) ;
-        ok( '\Draft \Seen' eq flagscase( '\DRAFT \SEEN' ), 'flagscase: \DRAFT \SEEN -> \Draft \Seen' ) ;
-
-        ok( '\Draft LALA \Seen' eq flagscase( '\DRAFT  LALA \SEEN' ), 'flagscase: \DRAFT  LALA \SEEN -> \Draft LALA \Seen' ) ;
-        ok( '\Draft lala \Seen' eq flagscase( '\DRAFT  lala \SEEN' ), 'flagscase: \DRAFT  lala \SEEN -> \Draft lala \Seen' ) ;
-
-	note( 'Leaving  tests_flagscase()' ) ;
-        return ;
-}
-
-
-
-sub ucsecond
-{
-        my $string = shift ;
-        my $output ;
-
-        return( $string )  if ( 1 >= length $string ) ;
-
-        $output = ( substr( $string, 0, 1) ) . ( uc substr $string, 1, 1 ) . ( substr $string, 2 ) ;
-        #myprint( "UUU $string -> $output\n"  ) ;
-        return( $output ) ;
-}
-
-
-sub tests_ucsecond
-{
-	note( 'Entering tests_ucsecond()' ) ;
-
-        ok( 'aBcde' eq ucsecond( 'abcde' ), 'ucsecond: abcde -> aBcde' ) ;
-        ok( 'ABCDE' eq ucsecond( 'ABCDE' ), 'ucsecond: ABCDE -> ABCDE'  ) ;
-        ok( 'ABCDE' eq ucsecond( 'AbCDE' ), 'ucsecond: AbCDE -> ABCDE'  ) ;
-        ok( 'ABCde' eq ucsecond( 'AbCde' ), 'ucsecond: AbCde -> ABCde'  ) ;
-        ok( 'A'     eq ucsecond( 'A' ),     'ucsecond: A  -> A'  ) ;
-        ok( 'AB'    eq ucsecond( 'Ab' ),    'ucsecond: Ab -> AB' ) ;
-        ok( '\B'    eq ucsecond( '\b' ),    'ucsecond: \b -> \B' ) ;
-        ok( '\Bcde' eq ucsecond( '\bcde' ), 'ucsecond: \bcde -> \Bcde' ) ;
-
-	note( 'Leaving  tests_ucsecond()' ) ;
-        return ;
-}
-
-
-sub select_msgs
-{
-        my ( $imap, $msgs_all_hash_ref, $search_cmd, $abletosearch, $folder ) = @_ ;
-        my ( @msgs ) ;
-
-        if ( $abletosearch ) {
-                @msgs = select_msgs_by_search( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) ;
-        }else{
-                @msgs = select_msgs_by_fetch( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) ;
-        }
-        return(  @msgs ) ;
-
-}
-
-sub select_msgs_by_search
-{
-        my ( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) = @_ ;
-        my ( @msgs, @msgs_all ) ;
-
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-        # Need all messages list to avoid deleting useful cache part
-        # in case of --search or --minage or --maxage
-
-        if ( ( defined  $msgs_all_hash_ref  and $usecache )
-        or ( not defined  $maxage  and not defined  $minage  and not defined  $search_cmd  )
-        ) {
-
-                $debugdev and myprint( "Calling messages()\n"  ) ;
-                @msgs_all = $imap->messages(  ) ;
-
-                return if ( $#msgs_all == 0 && !defined  $msgs_all[0]  ) ;
-
-                if ( defined  $msgs_all_hash_ref  ) {
-                        @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-                }
-                # return all messages
-                if ( not defined  $maxage  and not defined  $minage  and not defined  $search_cmd  ) {
-                        return( @msgs_all ) ;
-                }
-        }
-
-        if ( defined  $search_cmd  ) {
-                @msgs = $imap->search( $search_cmd ) ;
-                return( @msgs ) ;
-        }
-
-        # we are here only if $maxage or $minage is defined
-        @msgs = select_msgs_by_age( $imap ) ;
-        return( @msgs );
-}
-
-
-sub select_msgs_by_fetch
-{
-        my ( $imap, $msgs_all_hash_ref, $search_cmd, $folder ) = @_ ;
-        my ( @msgs, @msgs_all, %fetch ) ;
-
-        # Need to have the whole list in msgs_all_hash_ref
-        # without calling messages() several times.
-        # Need all messages list to avoid deleting useful cache part
-        # in case of --search or --minage or --maxage
-
-
-        $debugdev and myprint( "Calling fetch_hash()\n"  ) ;
-        my $uidnext = $imap->uidnext( $folder ) || $uidnext_default ;
-        my $fetch_hash_uids = $fetch_hash_set || "1:$uidnext" ;
-        %fetch = %{$imap->fetch_hash( $fetch_hash_uids, 'INTERNALDATE' ) } ;
-
-        @msgs_all = sort { $a <=> $b } keys  %fetch  ;
-        $debugdev and myprint( "Done fetch_hash()\n"  ) ;
-
-        return if ( $#msgs_all == 0 && !defined  $msgs_all[0]  ) ;
-
-        if ( defined  $msgs_all_hash_ref  ) {
-                 @{ $msgs_all_hash_ref }{ @msgs_all } =  () ;
-        }
-        # return all messages
-        if ( not defined  $maxage  and not defined  $minage  and not defined  $search_cmd  ) {
-                return( @msgs_all ) ;
-        }
-
-        if ( defined  $search_cmd  ) {
-                myprint( "Warning: strange to see --search with --noabletosearch, an error can happen\n"  ) ;
-                @msgs = $imap->search( $search_cmd ) ;
-                return( @msgs ) ;
-        }
-
-        # we are here only if $maxage or $minage is defined
-        my( @max, @min, $maxage_epoch, $minage_epoch ) ;
-        if ( defined  $maxage  ) { $maxage_epoch = $timestart_int - $NB_SECONDS_IN_A_DAY * $maxage ; }
-        if ( defined  $minage  ) { $minage_epoch = $timestart_int - $NB_SECONDS_IN_A_DAY * $minage ; }
-        foreach my $msg ( @msgs_all ) {
-                my $idate = $fetch{ $msg }->{'INTERNALDATE'} ;
-                #myprint( "$idate\n"  ) ;
-                if ( defined  $maxage  and ( epoch( $idate ) >= $maxage_epoch ) ) {
-                        push  @max, $msg  ;
-                }
-                if ( defined  $minage  and ( epoch( $idate ) <= $minage_epoch ) ) {
-                        push  @min, $msg  ;
-                }
-        }
-        @msgs = msgs_from_maxmin( \@max, \@min ) ;
-        return( @msgs ) ;
-}
-
-sub select_msgs_by_age
-{
-        my( $imap ) = @_ ;
-
-        my( @max, @min, @msgs, @inter, @union ) ;
-
-        if ( defined  $maxage  ) {
-                @max = $imap->sentsince( $timestart_int - $NB_SECONDS_IN_A_DAY * $maxage ) ;
-        }
-        if ( defined  $minage  ) {
-                @min = $imap->sentbefore( $timestart_int - $NB_SECONDS_IN_A_DAY * $minage ) ;
-        }
-
-        @msgs = msgs_from_maxmin( \@max, \@min ) ;
-        return( @msgs ) ;
-}
-
-sub msgs_from_maxmin
-{
-        my( $max_ref, $min_ref ) = @_ ;
-        my( @max, @min, @msgs, @inter, @union ) ;
-
-        @max = @{ $max_ref } ;
-        @min = @{ $min_ref } ;
-
-        SWITCH: {
-                unless( defined  $minage  ) { @msgs = @max ; last SWITCH } ;
-                unless( defined  $maxage  ) { @msgs = @min ; last SWITCH } ;
-                my ( %union, %inter ) ;
-                foreach my $m ( @min, @max ) { $union{ $m }++ && $inter{ $m }++ }
-                @inter = sort { $a <=> $b } keys  %inter  ;
-                @union = sort { $a <=> $b } keys  %union  ;
-                # normal case
-                if ( $minage <= $maxage )  { @msgs = @inter ; last SWITCH } ;
-                # just exclude messages between
-                if ( $minage > $maxage )  { @msgs = @union ; last SWITCH } ;
-
-        }
-        return( @msgs ) ;
-}
-
-sub tests_msgs_from_maxmin
-{
-	note( 'Entering tests_msgs_from_maxmin()' ) ;
-
-        my @msgs ;
-        $maxage = $NUMBER_200 ;
-        @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '1', '2' ], \@msgs ), 'msgs_from_maxmin: maxage++' ) ;
-        $minage = $NUMBER_100 ;
-        @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '2' ], \@msgs ), 'msgs_from_maxmin:  -maxage++minage-' ) ;
-        $minage = $NUMBER_300 ;
-        @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '1', '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++maxage-minage++' ) ;
-        $maxage = undef ;
-        @msgs = msgs_from_maxmin( [ '1', '2' ], [ '2', '3' ] ) ;
-        ok( 0 == compare_lists( [ '2', '3' ], \@msgs ), 'msgs_from_maxmin:  ++minage-' ) ;
-
-	note( 'Leaving  tests_msgs_from_maxmin()' ) ;
-        return ;
-}
-
-sub tests_info_date_from_uid
-{
-        note( 'Entering tests_info_date_from_uid()' ) ;
-        note( 'Leaving  tests_info_date_from_uid()' ) ;
-
-        return ;
-}
-
-sub info_date_from_uid
-{
-
-        #my $first_uid   = $msgs_all[ 0 ] ;
-        #my $first_idate = $fetch{ $first_uid }->{'INTERNALDATE'} ;
-        #my $first_epoch = epoch( $first_idate ) ;
-        #my $first_days  = ( $timestart_int - $first_epoch ) / $NB_SECONDS_IN_A_DAY ;
-        #myprint( "\nOldest msg has UID $first_uid INTERNALDATE $first_idate EPOCH $first_epoch DAYS AGO $first_days\n" ) ;
-}
-
-
-sub lastuid
-{
-        my $imap   = shift ;
-        my $folder = shift ;
-        my $lastuid_guess  = shift ;
-        my $lastuid ;
-
-        # rfc3501: The only reliable way to identify recent messages is to
-        #          look at message flags to see which have the \Recent flag
-        #          set, or to do a SEARCH RECENT.
-        # SEARCH RECENT doesn't work this way on courrier.
-
-        my @recent_messages ;
-        # SEARCH RECENT for each transfer can be expensive with a big folder
-        # Call commented for now
-        #@recent_messages = $imap->recent(  ) ;
-        #myprint( "Recent: @recent_messages\n" ) ;
-
-        my $max_recent ;
-        $max_recent = max( @recent_messages ) ;
-
-        if ( defined  $max_recent  and ($lastuid_guess <= $max_recent ) ) {
-                $lastuid = $max_recent ;
-        }else{
-                $lastuid = $lastuid_guess
-        }
-        return( $lastuid ) ;
-}
-
-sub size_filtered
-{
-        my( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) = @_ ;
-
-        $h1_size = 0 if ( ! $h1_size ) ; # null if empty or undef
-        if ( defined $sync->{ maxsize } and $h1_size > $sync->{ maxsize } ) {
-                myprint( "msg $h1_fold/$h1_msg skipped ($h1_size exceeds maxsize limit $sync->{ maxsize } bytes)\n" ) ;
-                $sync->{ total_bytes_skipped } += $h1_size;
-                $sync->{ nb_msg_skipped } += 1;
-                return( 1 ) ;
-        }
-        if ( defined $minsize and $h1_size <= $minsize ) {
-                myprint( "msg $h1_fold/$h1_msg skipped ($h1_size smaller than minsize $minsize bytes)\n" ) ;
-                $sync->{ total_bytes_skipped } += $h1_size;
-                $sync->{ nb_msg_skipped } += 1;
-                return( 1 ) ;
-        }
-        return( 0 ) ;
-}
-
-sub message_exists
-{
-        my( $imap, $msg ) = @_ ;
-        return( 1 ) if not $imap->Uid(  ) ;
-
-        my $search_uid ;
-        ( $search_uid ) = $imap->search( "UID $msg" ) ;
-        #myprint( "$search ? $msg\n"  ) ;
-        return( 1 ) if ( $search_uid eq $msg ) ;
-        return( 0 ) ;
-}
-
-
-# Globals
-# $sync->{ total_bytes_skipped }
-# $sync->{ nb_msg_skipped }
-# $mysync->{ h1_nb_msg_processed }
-sub stats_update_skip_message
-{
-        my $mysync  = shift ; # to be used
-        my $h1_size = shift ;
-
-        $mysync->{ total_bytes_skipped } += $h1_size ;
-        $mysync->{ nb_msg_skipped } += 1 ;
-        $mysync->{ h1_nb_msg_processed } +=1 ;
-        return ;
-}
-
-sub copy_message
-{
-        # copy
-
-        my ( $mysync, $h1_msg, $h1_fold, $h2_fold, $h1_fir_ref, $permanentflags2, $cache_dir ) = @_ ;
-        ( $mysync->{ debug } or $mysync->{dry}) and myprint( "msg $h1_fold/$h1_msg copying to $h2_fold $mysync->{dry_message}\n" ) ;
-
-        my $h1_size  = $h1_fir_ref->{$h1_msg}->{'RFC822.SIZE'}  || 0 ;
-        my $h1_flags = $h1_fir_ref->{$h1_msg}->{'FLAGS'}        || q{} ;
-        my $h1_idate = $h1_fir_ref->{$h1_msg}->{'INTERNALDATE'} || q{} ;
-
-
-        if ( size_filtered( $h1_size, $h1_msg, $h1_fold, $h2_fold  ) ) {
-                $mysync->{ h1_nb_msg_processed } +=1 ;
-                return ;
-        }
-
-        debugsleep( $mysync ) ;
-        myprint( "- msg $h1_fold/$h1_msg S[$h1_size] F[$h1_flags] I[$h1_idate] has RFC822.SIZE null!\n" ) if ( ! $h1_size )   ;
-
-        if ( $checkmessageexists and not message_exists( $mysync->{imap1}, $h1_msg ) ) {
-                stats_update_skip_message( $mysync, $h1_size ) ;
-                return ;
-        }
-        myprint( debugmemory( $mysync, " at C1" ) ) ;
-
-        my ( $string, $string_len ) ;
-        ( $string_len ) = message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, \$string ) ;
-
-        myprint( debugmemory( $mysync, " at C2" ) ) ;
-
-        # not defined or empty $string
-        if ( ( not $string ) or ( not $string_len ) ) {
-                myprint( "- msg $h1_fold/$h1_msg skipped.\n"  ) ;
-                stats_update_skip_message( $mysync, $h1_size ) ;
-                return ;
-        }
-
-        # Lines too long (or not enough) => do no copy or fix
-        if ( ( defined $maxlinelength ) or ( defined $minmaxlinelength ) ) {
-                $string = linelengthstuff( $string, $h1_fold, $h1_msg, $string_len, $h1_size, $h1_flags, $h1_idate ) ;
-                if ( not defined  $string  ) {
-                        stats_update_skip_message( $mysync, $h1_size ) ;
-                        return ;
-                }
-        }
-
-        my $h1_date = date_for_host2( $h1_msg, $h1_idate ) ;
-
-        ( $mysync->{ debug } or $debugflags ) and
-        myprint( "Host1: flags init msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n"  ) ;
-
-        $h1_flags = flags_for_host2( $h1_flags, $permanentflags2 ) ;
-
-        ( $mysync->{ debug } or $debugflags ) and
-        myprint( "Host1: flags filt msg $h1_fold/$h1_msg date [$h1_date] flags [$h1_flags] size [$h1_size]\n"  ) ;
-
-        $h1_date = undef if ( $h1_date eq q{} ) ;
-
-        my $new_id = append_message_on_host2( $mysync, \$string, $h1_fold, $h1_msg, $string_len, $h2_fold, $h1_size, $h1_flags, $h1_date, $cache_dir ) ;
-
-
-
-        if ( $new_id and $syncflagsaftercopy ) {
-                sync_flags_after_copy( $mysync, $h1_fold, $h1_msg, $h1_flags, $h2_fold, $new_id, $permanentflags2 ) ;
-        }
-
-        myprint( debugmemory( $mysync, " at C3" ) ) ;
-
-        return $new_id ;
-}
-
-
-
-sub linelengthstuff
-{
-        my( $string, $h1_fold, $h1_msg, $string_len, $h1_size, $h1_flags, $h1_idate  ) = @_ ;
-        my $maxlinelength_string = max_line_length( $string ) ;
-        $debugmaxlinelength and myprint( "msg $h1_fold/$h1_msg maxlinelength: $maxlinelength_string\n"  ) ;
-
-        if ( ( defined $minmaxlinelength )  and ( $maxlinelength_string <= $minmaxlinelength ) ) {
-                my $subject = subject( $string ) ;
-                $debugdev and myprint( "- msg $h1_fold/$h1_msg skipped S[$h1_size] F[$h1_flags] I[$h1_idate] "
-                        . "(Subject:[$subject]) (max line length under minmaxlinelength $minmaxlinelength bytes)\n" ) ;
-                return ;
-        }
-
-        if ( ( defined $maxlinelength )  and ( $maxlinelength_string > $maxlinelength ) ) {
-                my $subject = subject( $string ) ;
-                if ( $maxlinelengthcmd ) {
-                        $string = pipemess( $string, $maxlinelengthcmd ) ;
-                        # string undef means something was bad.
-                        if ( not ( defined  $string  ) ) {
-                                myprint( "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate] "
-                                      . "(Subject:[$subject]) could not be successfully transformed by --maxlinelengthcmd option\n" ) ;
-                                return ;
-                        }else{
-                                return $string ;
-                        }
-                }
-                myprint( "- msg $h1_fold/$h1_msg skipped S[$h1_size] F[$h1_flags] I[$h1_idate] "
-                      . "(Subject:[$subject]) (line length exceeds maxlinelength $maxlinelength bytes)\n" ) ;
-                return ;
-        }
-        return $string ;
-}
-
-
-sub message_for_host2
-{
-
-# global variable list:
-# @skipmess
-# @regexmess
-# @pipemess
-# $debugcontent
-# $debug
-#
-# API current
-#
-# at failure:
-#   * return nothing ( will then be undef or () )
-#   * $string_ref content is undef or empty
-# at success:
-#   * return string length ($string_ref content length)
-#   * $string_ref content filled with message
-
-# API future
-#
-#
-        my ( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ) = @_ ;
-
-        # abort when missing a parameter
-        if ( ( ! $mysync ) or  ( ! $h1_msg ) or ( ! $h1_fold ) or ( ! defined $h1_size )
-             or ( ! defined $h1_flags) or ( ! defined $h1_idate )
-             or ( ! $h1_fir_ref) or ( ! $string_ref ) )
-        {
-                return ;
-        }
-
-        myprint( debugmemory( $mysync, " at M1" ) ) ;
-
-
-        my $string_ok = $mysync->{imap1}->message_to_file( $string_ref, $h1_msg ) ;
-
-        myprint( debugmemory( $mysync, " at M2" ) ) ;
-
-        my $string_len = length_ref( $string_ref  ) ;
-
-
-        unless ( defined  $string_ok  and $string_len ) {
-                # undef or 0 length
-                my $error = join q{},
-                        "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate] could not be fetched: ",
-                        $mysync->{imap1}->LastError || q{}, "\n"  ;
-                errors_incr( $mysync, $error ) ;
-                $mysync->{ h1_nb_msg_processed } +=1 ;
-                return ;
-        }
-
-        if ( @skipmess ) {
-                my $match = skipmess( ${ $string_ref } ) ;
-                # string undef means the eval regex was bad.
-                if ( not ( defined  $match  ) ) {
-                        myprint(
-                        "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate]"
-                        . " could not be skipped by --skipmess option, bad regex\n" ) ;
-                        return ;
-                }
-                if ( $match ) {
-                        my $subject = subject( ${ $string_ref } ) ;
-                        myprint( "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate]"
-                            . " (Subject:[$subject]) skipped by --skipmess\n" ) ;
-                        return ;
-                }
-        }
-
-        if ( @regexmess ) {
-                ${ $string_ref } = regexmess( ${ $string_ref } ) ;
-                # string undef means the eval regex was bad.
-                if ( not ( defined  ${ $string_ref }  ) ) {
-                        myprint(
-                        "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate]"
-                        . " could not be transformed by --regexmess\n" ) ;
-                        return ;
-                }
-        }
-
-        if ( @pipemess ) {
-                ${ $string_ref } = pipemess( ${ $string_ref }, @pipemess ) ;
-                # string undef means something was bad.
-                if ( not ( defined  ${ $string_ref }  ) ) {
-                        myprint(
-                        "- msg $h1_fold/$h1_msg {$string_len} S[$h1_size] F[$h1_flags] I[$h1_idate]"
-                        . " could not be successfully transformed by --pipemess option\n" ) ;
-                        return ;
-                }
-        }
-
-        if ( $mysync->{addheader} and defined $h1_fir_ref->{$h1_msg}->{'NO_HEADER'} ) {
-                my $header = add_header( $h1_msg ) ;
-                $mysync->{ debug } and myprint( "msg $h1_fold/$h1_msg adding custom header [$header]\n"  ) ;
-                ${ $string_ref } = $header . "\r\n" . ${ $string_ref } ;
-        }
-        
-        if ( ( defined $mysync->{ truncmess } ) and is_an_integer( $mysync->{ truncmess } ) )
-        {
-                ${ $string_ref } = truncmess( ${ $string_ref }, $mysync->{ truncmess } ) ;
-        }
-
-        $string_len = length_ref( $string_ref  ) ;
-
-        $debugcontent and myprint(
-                q{=} x $STD_CHAR_PER_LINE, "\n",
-                "F message content begin next line ($string_len characters long)\n",
-                ${ $string_ref },
-                "\nF message content ended on previous line\n", q{=} x $STD_CHAR_PER_LINE, "\n" ) ;
-
-        myprint( debugmemory( $mysync, " at M3" ) ) ;
-
-        return $string_len ;
-}
-
-sub tests_truncmess
-{
-        note( 'Entering tests_truncmess()' ) ;
-
-        is( undef, truncmess(  ),  'truncmess: no args => undef' ) ;
-        is( 'abc', truncmess( 'abc' ),  'truncmess: abc => abc' ) ;
-        is( 'ab', truncmess( 'abc', 2 ),  'truncmess: abc 2 => ab' ) ;
-        is( 'abc', truncmess( 'abc', 3 ),  'truncmess: abc 3 => abc' ) ;
-        is( 'abc', truncmess( 'abc', 4 ),  'truncmess: abc 4 => abc' ) ;
-        is( '12345', truncmess( "123456789\n", 5 ),  'truncmess: "123456789\n", 5 => 12345' ) ;
-        is( "123456789\n" x 5000, truncmess( "123456789\n" x 100000, 50000 ),  'truncmess: "123456789\n" x 100000, 50000 => "123456789\n" x 5000' ) ;
-        note( 'Leaving  tests_truncmess()' ) ;
-        return ;
-}
-
-sub truncmess
-{
-        my $string = shift ;
-        my $length = shift ;
-        
-        if ( not defined $string ) { return ; }
-        if ( not defined $length ) { return $string ; }
-        
-        $string = substr $string, 0,  $length ;
-        return $string ;
-}
-
-sub tests_message_for_host2
-{
-	note( 'Entering tests_message_for_host2()' ) ;
-
-
-        my ( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ) ;
-
-        is( undef, message_for_host2(  ), q{message_for_host2: no args} ) ;
-        is( undef, message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ), q{message_for_host2: undef args} ) ;
-
-        require_ok( "Test::MockObject" ) ;
-        my $imapT = Test::MockObject->new(  ) ;
-        $mysync->{imap1} = $imapT ;
-        my $string ;
-
-        $h1_msg = 1 ;
-        $h1_fold = 'FoldFoo';
-        $h1_size =  9 ;
-        $h1_flags = '' ;
-        $h1_idate = '10-Jul-2015 09:00:00 +0200' ;
-        $h1_fir_ref = {} ;
-        $string_ref = \$string ;
-        $imapT->mock( 'message_to_file',
-                sub {
-                        my ( $imap, $mystring_ref, $msg ) = @_ ;
-                        ${$mystring_ref} = 'blablabla' ;
-                        return length ${$mystring_ref} ;
-                }
-        ) ;
-        is( 9, message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ),
-        q{message_for_host2: msg 1 == "blablabla", length} ) ;
-        is( 'blablabla', $string, q{message_for_host2: msg 1 == "blablabla", value} ) ;
-
-        # so far so good
-        # now the --pipemess stuff
-
-        SKIP: {
-                Readonly my $NB_WIN_tests_message_for_host2 => 0 ;
-                skip( 'Not on MSWin32', $NB_WIN_tests_message_for_host2 ) if ('MSWin32' ne $OSNAME) ;
-                # Windows
-                # "type" command does not accept redirection of STDIN with <
-                # "sort" does
-
-        } ;
-
-        SKIP: {
-                Readonly my $NB_UNX_tests_message_for_host2 => 6 ;
-                skip( 'Not on Unix', $NB_UNX_tests_message_for_host2 ) if ('MSWin32' eq $OSNAME) ;
-                # Unix
-
-                # no change by cat
-                @pipemess = ( 'cat' ) ;
-                is( 9, message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ),
-                q{message_for_host2: --pipemess 'cat', length} ) ;
-                is( 'blablabla', $string, q{message_for_host2: --pipemess 'cat', value} ) ;
-
-
-                # failure by false
-                @pipemess = ( 'false' ) ;
-                is( undef, message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ),
-                q{message_for_host2: --pipemess 'false', length} ) ;
-                is( undef, $string, q{message_for_host2: --pipemess 'false', value} ) ;
-
-                # failure by true since no output
-                @pipemess = ( 'true' ) ;
-                is( undef, message_for_host2( $mysync, $h1_msg, $h1_fold, $h1_size, $h1_flags, $h1_idate, $h1_fir_ref, $string_ref ),
-                q{message_for_host2: --pipemess 'true', length} ) ;
-                is( undef, $string, q{message_for_host2: --pipemess 'true', value} ) ;
-        }
-
-	note( 'Leaving  tests_message_for_host2()' ) ;
-        return ;
-}
-
-sub tests_labels_remove_subfolder1
-{
-        note( 'Entering tests_labels_remove_subfolder1()' ) ;
-        is( undef, labels_remove_subfolder1(  ), 'labels_remove_subfolder1: no parameters => undef' ) ;
-        is( 'Blabla', labels_remove_subfolder1( 'Blabla' ), 'labels_remove_subfolder1: one parameter Blabla => Blabla' ) ;
-        is( 'Blan blue', labels_remove_subfolder1( 'Blan blue' ), 'labels_remove_subfolder1: one parameter Blan blue => Blan blue' ) ;
-        is( '\Bla "Blan blan" Blabla', labels_remove_subfolder1( '\Bla "Blan blan" Blabla' ),
-                'labels_remove_subfolder1: one parameter \Bla "Blan blan" Blabla => \Bla "Blan blan" Blabla' ) ;
-
-        is( 'Bla', labels_remove_subfolder1( 'Subf/Bla', 'Subf' ), 'labels_remove_subfolder1: Subf/Bla Subf => "Bla"' ) ;
-
-
-        is( '"\\\\Bla"', labels_remove_subfolder1( '"\\\\Bla"', 'Subf' ), 'labels_remove_subfolder1: "\\\\Bla" Subf => "\\\\Bla"' ) ;
-
-        is( 'Bla Kii', labels_remove_subfolder1( 'Subf/Bla Subf/Kii', 'Subf' ),
-                'labels_remove_subfolder1: Subf/Bla Subf/Kii, Subf => "Bla" "Kii"' ) ;
-
-        is( '"\\\\Bla" Kii', labels_remove_subfolder1( '"\\\\Bla" Subf/Kii', 'Subf' ),
-                'labels_remove_subfolder1: "\\\\Bla" Subf/Kii Subf => "\\\\Bla" Kii' ) ;
-
-        is( '"Blan blan"', labels_remove_subfolder1( '"Subf/Blan blan"', 'Subf' ),
-                'labels_remove_subfolder1: "Subf/Blan blan" Subf => "Blan blan"' ) ;
-
-        is( '"\\\\Loo" "Blan blan" Kii', labels_remove_subfolder1( '"\\\\Loo" "Subf/Blan blan" Subf/Kii', 'Subf' ),
-                'labels_remove_subfolder1: "\\\\Loo" "Subf/Blan blan" Subf/Kii + Subf => "\\\\Loo" "Blan blan" Kii' ) ;
-
-        is( '"\\\\Inbox"', labels_remove_subfolder1( 'Subf/INBOX', 'Subf' ),
-                'labels_remove_subfolder1: Subf/INBOX + Subf => "\\\\Inbox"' ) ;
-
-        is( '"\\\\Loo" "Blan blan" Kii "\\\\Inbox"', labels_remove_subfolder1( '"\\\\Loo" "Subf/Blan blan" Subf/Kii Subf/INBOX', 'Subf' ),
-                'labels_remove_subfolder1: "\\\\Loo" "Subf/Blan blan" Subf/Kii Subf/INBOX + Subf => "\\\\Loo" "Blan blan" Kii "\\\\Inbox"' ) ;
-
-
-        note( 'Leaving  tests_labels_remove_subfolder1()' ) ;
-        return ;
-}
-
-
-
-sub labels_remove_subfolder1
-{
-        my $labels = shift ;
-        my $subfolder1 = shift ;
-
-        if ( not defined $labels ) { return ; }
-        if ( not defined $subfolder1  ) { return $labels ; }
-
-        my @labels = quotewords('\s+', 1, $labels ) ;
-        #myprint( "@labels\n" ) ;
-        my @labels_subfolder2 ;
-
-        foreach my $label ( @labels )
-        {
-                if ( $label =~ m{zzzzzzzzzz} )
-                {
-                        # \Seen \Deleted ... stay the same
-                        push @labels_subfolder2, $label ;
-                }
-                else
-                {
-                        # Remove surrounding quotes if any, to add them again in case of space
-                        $label = join( '', quotewords('\s+', 0, $label ) ) ;
-                        $label =~ s{$subfolder1/?}{} ;
-                        if ( 'INBOX' eq $label )
-                        {
-                                push @labels_subfolder2, q{"\\\\Inbox"} ;
-                        }
-                        elsif ( $label =~ m{\\} )
-                        {
-                                push @labels_subfolder2, qq{"\\$label"} ;
-                        }
-                        elsif ( $label =~ m{ } )
-                        {
-                                push @labels_subfolder2, qq{"$label"} ;
-                        }
-                        else
-                        {
-                                push @labels_subfolder2, $label ;
-                        }
-                }
-        }
-
-        my $labels_subfolder2 = join( ' ', sort uniq( @labels_subfolder2 ) ) ;
-
-        return $labels_subfolder2 ;
-}
-
-sub tests_labels_remove_special
-{
-        note( 'Entering tests_labels_remove_special()' ) ;
-
-        is( undef, labels_remove_special(  ), 'labels_remove_special: no parameters => undef' ) ;
-        is( '', labels_remove_special( '' ), 'labels_remove_special: empty string => empty string' ) ;
-        is( '', labels_remove_special( '"\\\\Inbox"' ), 'labels_remove_special:"\\\\Inbox" => empty string' ) ;
-        is( '', labels_remove_special( '"\\\\Inbox" "\\\\Starred"' ), 'labels_remove_special:"\\\\Inbox" "\\\\Starred" => empty string' ) ;
-        is( 'Bar Foo', labels_remove_special( 'Foo Bar' ), 'labels_remove_special:Foo Bar => Bar Foo' ) ;
-        is( 'Bar Foo', labels_remove_special( 'Foo Bar "\\\\Inbox"' ), 'labels_remove_special:Foo Bar "\\\\Inbox" => Bar Foo' ) ;
-        note( 'Leaving  tests_labels_remove_special()' ) ;
-        return ;
-}
-
-
-
-
-sub labels_remove_special
-{
-        my $labels = shift ;
-
-        if ( not defined $labels ) { return ; }
-
-        my @labels = quotewords('\s+', 1, $labels ) ;
-        myprint( "labels before remove_non_folded: @labels\n" ) ;
-        my @labels_remove_special ;
-
-        foreach my $label ( @labels )
-        {
-                if ( $label =~ m{^\"\\\\} )
-                {
-                        # not kept
-                }
-                else
-                {
-                        push @labels_remove_special, $label ;
-                }
-        }
-
-        my $labels_remove_special = join( ' ', sort @labels_remove_special ) ;
-
-        return $labels_remove_special ;
-}
-
-
-sub tests_labels_add_subfolder2
-{
-        note( 'Entering tests_labels_add_subfolder2()' ) ;
-        is( undef, labels_add_subfolder2(  ), 'labels_add_subfolder2: no parameters => undef' ) ;
-        is( 'Blabla', labels_add_subfolder2( 'Blabla' ), 'labels_add_subfolder2: one parameter Blabla => Blabla' ) ;
-        is( 'Blan blue', labels_add_subfolder2( 'Blan blue' ), 'labels_add_subfolder2: one parameter Blan blue => Blan blue' ) ;
-        is( '\Bla "Blan blan" Blabla', labels_add_subfolder2( '\Bla "Blan blan" Blabla' ),
-                'labels_add_subfolder2: one parameter \Bla "Blan blan" Blabla => \Bla "Blan blan" Blabla' ) ;
-
-        is( 'Subf/Bla', labels_add_subfolder2( 'Bla', 'Subf' ), 'labels_add_subfolder2: Bla Subf => "Subf/Bla"' ) ;
-
-
-        is( 'Subf/\Bla', labels_add_subfolder2( '\\\\Bla', 'Subf' ), 'labels_add_subfolder2: \Bla Subf => \Bla' ) ;
-
-        is( 'Subf/Bla Subf/Kii', labels_add_subfolder2( 'Bla Kii', 'Subf' ),
-                'labels_add_subfolder2: Bla Kii Subf => "Subf/Bla" "Subf/Kii"' ) ;
-
-        is( 'Subf/Kii Subf/\Bla', labels_add_subfolder2( '\\\\Bla Kii', 'Subf' ),
-                'labels_add_subfolder2: \Bla Kii Subf => \Bla Subf/Kii' ) ;
-
-        is( '"Subf/Blan blan"', labels_add_subfolder2( '"Blan blan"', 'Subf' ),
-                'labels_add_subfolder2: "Blan blan" Subf => "Subf/Blan blan"' ) ;
-
-        is( '"Subf/Blan blan" Subf/Kii Subf/\Loo', labels_add_subfolder2( '\\\\Loo "Blan blan" Kii', 'Subf' ),
-                'labels_add_subfolder2: \Loo "Blan blan" Kii + Subf => "Subf/Blan blan" Subf/Kii Subf/\Loo' ) ;
-
-        # "\\Inbox" is special, add to subfolder INBOX also because Gmail will but ...
-        is( '"Subf/\\\\Inbox" Subf/INBOX', labels_add_subfolder2( '"\\\\Inbox"', 'Subf' ),
-                'labels_add_subfolder2: "\\\\Inbox" Subf => "Subf/\\\\Inbox" Subf/INBOX' ) ;
-
-        # but not with INBOX folder
-        is( '"Subf/\\\\Inbox"', labels_add_subfolder2( '"\\\\Inbox"', 'Subf', 'INBOX' ),
-                'labels_add_subfolder2: "\\\\Inbox" Subf INBOX => "Subf/\\\\Inbox"' ) ;
-
-        # two times => one time
-        is( '"Subf/\\\\Inbox" Subf/INBOX', labels_add_subfolder2( '"\\\\Inbox" "\\\\Inbox"', 'Subf' ),
-                'labels_add_subfolder2: "\\\\Inbox" "\\\\Inbox" Subf => "Subf/\\\\Inbox"' ) ;
-
-        is( '"Subf/\\\\Starred"', labels_add_subfolder2( '"\\\\Starred"', 'Subf' ),
-                'labels_add_subfolder2: "\\\\Starred" Subf => "Subf/\\\\Starred"' ) ;
-
-        note( 'Leaving  tests_labels_add_subfolder2()' ) ;
-        return ;
-}
-
-sub labels_add_subfolder2
-{
-        my $labels = shift ;
-        my $subfolder2 = shift ;
-        my $h1_folder = shift || q{} ;
-
-        if ( not defined $labels ) { return ; }
-        if ( not defined $subfolder2  ) { return $labels ; }
-
-        # Isn't it messy?
-        if ( 'INBOX' eq $h1_folder )
-        {
-                $labels .= ' "\\\\Inbox"' ;
-        }
-
-        my @labels = uniq( quotewords('\s+', 1, $labels ) ) ;
-        myprint( "labels before subfolder2: @labels\n" ) ;
-        my @labels_subfolder2 ;
-
-
-        foreach my $label ( @labels )
-        {
-                # Isn't it more messy?
-                if ( ( q{"\\\\Inbox"} eq $label ) and ( 'INBOX' ne $h1_folder ) )
-                {
-                        if ( $subfolder2 =~ m{ } )
-                        {
-                                push @labels_subfolder2, qq{"$subfolder2/INBOX"} ;
-                        }
-                        else
-                        {
-                                push @labels_subfolder2, "$subfolder2/INBOX" ;
-                        }
-                }
-                if ( $label =~ m{^\"\\\\} )
-                {
-                        # \Seen \Deleted ... stay the same
-                        #push @labels_subfolder2, $label ;
-                        # Remove surrounding quotes if any, to add them again
-                        $label = join( '', quotewords('\s+', 0, $label ) ) ;
-                        push @labels_subfolder2, qq{"$subfolder2/\\$label"} ;
-
-                }
-                else
-                {
-                        # Remove surrounding quotes if any, to add them again in case of space
-                        $label = join( '', quotewords('\s+', 0, $label ) ) ;
-                        if ( $label =~ m{ } )
-                        {
-                                push @labels_subfolder2, qq{"$subfolder2/$label"} ;
-                        }
-                        else
-                        {
-                                push @labels_subfolder2, "$subfolder2/$label" ;
-                        }
-                }
-        }
-
-        my $labels_subfolder2 = join( ' ', sort @labels_subfolder2 ) ;
-
-        return $labels_subfolder2 ;
-}
-
-sub tests_labels
-{
-        note( 'Entering tests_labels()' ) ;
-
-        is( undef, labels(  ),      'labels: no parameters => undef' ) ;
-        is( undef, labels( undef ), 'labels: undef => undef' ) ;
-        require_ok( "Test::MockObject" ) ;
-        my $myimap = Test::MockObject->new(  ) ;
-
-        $myimap->mock( 'fetch_hash',
-                sub {
-                        return(
-                                { '1' => {
-                                        'X-GM-LABELS' => '\Seen Blabla'
-                                        }
-                                }
-                        ) ;
-                }
-        ) ;
-        $myimap->mock( 'Debug'   , sub { } ) ;
-        $myimap->mock( 'Unescape', sub { return Mail::IMAPClient::Unescape( @_ ) } ) ; # real one
-
-        is( undef, labels( $myimap ), 'labels: one parameter => undef' ) ;
-        is( '\Seen Blabla', labels( $myimap, '1' ), 'labels: $mysync UID_1 => \Seen Blabla' ) ;
-
-        note( 'Leaving  tests_labels()' ) ;
-        return ;
-}
-
-sub labels
-{
-        my ( $myimap, $uid ) = @ARG ;
-
-        if ( not all_defined( $myimap, $uid ) ) {
-                return ;
-        }
-
-        my $hash = $myimap->fetch_hash( [ $uid ], 'X-GM-LABELS' ) ;
-
-        my $labels = $hash->{ $uid }->{ 'X-GM-LABELS' } ;
-        #$labels = $myimap->Unescape( $labels ) ;
-        return $labels ;
-}
-
-sub tests_synclabels
-{
-        note( 'Entering tests_synclabels()' ) ;
-
-        is( undef, synclabels(  ), 'synclabels: no parameters => undef' ) ;
-        is( undef, synclabels( undef ), 'synclabels: undef => undef' ) ;
-        my $mysync ;
-        is( undef, synclabels( $mysync ), 'synclabels: var undef => undef' ) ;
-
-        require_ok( "Test::MockObject" ) ;
-        $mysync = {} ;
-
-        my $myimap1 = Test::MockObject->new(  ) ;
-        $myimap1->mock( 'fetch_hash',
-                sub {
-                        return(
-                                { '1' => {
-                                        'X-GM-LABELS' => '\Seen Blabla'
-                                        }
-                                }
-                        ) ;
-                }
-        ) ;
-        $myimap1->mock( 'Debug',    sub { } ) ;
-        $myimap1->mock( 'Unescape', sub { return Mail::IMAPClient::Unescape( @_ ) } ) ; # real one
-
-        my $myimap2 = Test::MockObject->new(  ) ;
-
-        $myimap2->mock( 'store',
-                sub {
-                        return 1 ;
-                }
-        ) ;
-
-
-        $mysync->{imap1} = $myimap1 ;
-        $mysync->{imap2} = $myimap2 ;
-
-        is( undef, synclabels( $mysync ), 'synclabels: fresh $mysync => undef' ) ;
-
-        is( undef, synclabels( $mysync, '1' ),  'synclabels: $mysync UID_1 alone => undef' )  ;
-        is( 1,     synclabels( $mysync, '1', '2' ), 'synclabels: $mysync UID_1 UID_2 => 1' ) ;
-
-        note( 'Leaving  tests_synclabels()' ) ;
-        return ;
-}
-
-
-sub synclabels
-{
-        my( $mysync, $uid1, $uid2 ) = @ARG ;
-
-        if ( not all_defined( $mysync, $uid1, $uid2 ) ) {
-                return ;
-        }
-        my $myimap1 = $mysync->{ 'imap1' } || return ;
-        my $myimap2 = $mysync->{ 'imap2' } || return ;
-
-        $mysync->{debuglabels} and $myimap1->Debug( 1 ) ;
-        my $labels1 = labels( $myimap1, $uid1 ) ;
-        $mysync->{debuglabels} and $myimap1->Debug( 0 ) ;
-        $mysync->{debuglabels} and myprint( "Host1 labels: $labels1\n" ) ;
-
-
-
-        if ( $mysync->{ subfolder1 } and $labels1 )
-        {
-                $labels1 = labels_remove_subfolder1( $labels1, $mysync->{ subfolder1 } ) ;
-                $mysync->{debuglabels} and myprint( "Host1 labels with subfolder1: $labels1\n" ) ;
-        }
-
-        if ( $mysync->{ subfolder2 } and $labels1 )
-        {
-                $labels1 = labels_add_subfolder2( $labels1, $mysync->{ subfolder2 } ) ;
-                $mysync->{debuglabels} and myprint( "Host1 labels with subfolder2: $labels1\n" ) ;
-        }
-
-        my $store ;
-        if ( $labels1 and not $mysync->{ dry } )
-        {
-                $mysync->{ debuglabels } and $myimap2->Debug( 1 ) ;
-                $store = $myimap2->store( $uid2, "X-GM-LABELS ($labels1)" ) ;
-                $mysync->{ debuglabels } and $myimap2->Debug( 0 ) ;
-        }
-        return $store ;
-}
-
-
-sub tests_resynclabels
-{
-        note( 'Entering tests_resynclabels()' ) ;
-
-        is( undef, resynclabels(  ), 'resynclabels: no parameters => undef' ) ;
-        is( undef, resynclabels( undef ), 'resynclabels: undef => undef' ) ;
-        my $mysync ;
-        is( undef, resynclabels( $mysync ), 'resynclabels: var undef => undef' ) ;
-
-        my ( $h1_fir_ref, $h2_fir_ref ) ;
-
-        $mysync->{ debuglabels } = 1 ;
-        $h1_fir_ref->{ 11 }->{ 'X-GM-LABELS' } = '\Seen Baa Kii' ;
-        $h2_fir_ref->{ 22 }->{ 'X-GM-LABELS' } = '\Seen Baa Kii' ;
-
-        # labels are equal
-        is( 1,     resynclabels( $mysync, 11, 22, $h1_fir_ref, $h2_fir_ref ),
-                'resynclabels: $mysync UID_1 UID_2 labels are equal => 1' ) ;
-
-        # labels are different
-        $h2_fir_ref->{ 22 }->{ 'X-GM-LABELS' } = '\Seen Zuu' ;
-        require_ok( "Test::MockObject" ) ;
-        my $myimap2 = Test::MockObject->new(  ) ;
-        $myimap2->mock( 'store',
-                sub {
-                        return 1 ;
-                }
-        ) ;
-        $myimap2->mock( 'Debug',    sub { } ) ;
-        $mysync->{imap2} = $myimap2 ;
-
-        is( 1,     resynclabels( $mysync, 11, 22, $h1_fir_ref, $h2_fir_ref ),
-                'resynclabels: $mysync UID_1 UID_2 labels are not equal => store => 1' ) ;
-
-        note( 'Leaving  tests_resynclabels()' ) ;
-        return ;
-}
-
-
-
-sub resynclabels
-{
-        my( $mysync, $uid1, $uid2, $h1_fir_ref, $h2_fir_ref, $h1_folder ) = @ARG ;
-
-        if ( not all_defined( $mysync, $uid1, $uid2, $h1_fir_ref, $h2_fir_ref ) ) {
-                return ;
-        }
-
-        my $labels1 = $h1_fir_ref->{ $uid1 }->{ 'X-GM-LABELS' } || q{} ;
-        my $labels2 = $h2_fir_ref->{ $uid2 }->{ 'X-GM-LABELS' } || q{} ;
-
-        if ( $mysync->{ subfolder1 } and $labels1 )
-        {
-                $labels1 = labels_remove_subfolder1( $labels1, $mysync->{ subfolder1 } ) ;
-        }
-
-        if ( $mysync->{ subfolder2 } and $labels1 )
-        {
-                $labels1 = labels_add_subfolder2( $labels1, $mysync->{ subfolder2 }, $h1_folder ) ;
-                $labels2 = labels_remove_special( $labels2 ) ;
-        }
-        $mysync->{ debuglabels } and myprint( "Host1 labels fixed: $labels1\n" ) ;
-        $mysync->{ debuglabels } and myprint( "Host2 labels      : $labels2\n" ) ;
-
-        my $store ;
-        if ( $labels1 eq $labels2 )
-        {
-                # no sync needed
-                $mysync->{ debuglabels } and myprint( "Labels are already equal\n" ) ;
-                return 1 ;
-        }
-        elsif ( not $mysync->{ dry } )
-        {
-                # sync needed
-                $mysync->{debuglabels} and $mysync->{imap2}->Debug( 1 ) ;
-                $store = $mysync->{imap2}->store( $uid2, "X-GM-LABELS ($labels1)" ) ;
-                $mysync->{debuglabels} and $mysync->{imap2}->Debug( 0 ) ;
-        }
-
-        return $store ;
-}
-
-sub tests_uniq
-{
-        note( 'Entering tests_uniq()' ) ;
-
-        is( 0, uniq(  ),  'uniq: undef => 0' ) ;
-        is_deeply( [ 'one' ], [ uniq( 'one' ) ],  'uniq: one => one' ) ;
-        is_deeply( [ 'one' ], [ uniq( 'one', 'one' ) ],  'uniq: one one => one' ) ;
-        is_deeply( [ 'one', 'two' ], [ uniq( 'one', 'one', 'two', 'one', 'two' ) ],  'uniq: one one two one two => one two' ) ;
-        note( 'Leaving  tests_uniq()' ) ;
-        return ;
-}
-
-sub uniq
-{
-        my @list = @ARG ;
-        my %seen = (  ) ;
-        my @uniq = (  ) ;
-        foreach my $item ( @list ) {
-        if ( ! $seen{ $item } ) {
-                $seen{ $item } = 1 ;
-        push( @uniq, $item ) ;
-                }
-        }
-        return @uniq ;
-}
-
-
-sub length_ref
-{
-        my $string_ref = shift ;
-        my $string_len = defined  ${ $string_ref }  ? length( ${ $string_ref } ) : q{} ; # length or empty string
-        return $string_len ;
-}
-
-sub tests_length_ref
-{
-	note( 'Entering tests_length_ref()' ) ;
-
-        my $notdefined ;
-        is( q{}, length_ref( \$notdefined ), q{length_ref: value not defined} ) ;
-        my $notref ;
-        is( q{}, length_ref( $notref ), q{length_ref: param not a ref} ) ;
-
-        my $lala = 'lala' ;
-        is( 4, length_ref( \$lala ), q{length_ref: lala length == 4} ) ;
-        is( 4, length_ref( \'lili' ), q{length_ref: lili length == 4} ) ;
-
-	note( 'Leaving  tests_length_ref()' ) ;
-        return ;
-}
-
-sub date_for_host2
-{
-        my( $h1_msg, $h1_idate ) = @_ ;
-
-        my $h1_date = q{} ;
-
-        if ( $syncinternaldates ) {
-                $h1_date = $h1_idate ;
-                $sync->{ debug } and myprint( "internal date from host1: [$h1_date]\n"  ) ;
-                $h1_date = good_date( $h1_date ) ;
-                $sync->{ debug } and myprint( "internal date from host1: [$h1_date] (fixed)\n"  ) ;
-        }
-
-        if ( $idatefromheader ) {
-                $h1_date = $sync->{imap1}->get_header( $h1_msg, 'Date' ) ;
-                $sync->{ debug } and myprint( "header date from host1: [$h1_date]\n"  ) ;
-                $h1_date = good_date( $h1_date ) ;
-                $sync->{ debug } and myprint( "header date from host1: [$h1_date] (fixed)\n"  ) ;
-        }
-
-        return( $h1_date ) ;
-}
-
-sub flags_for_host2
-{
-        my( $h1_flags, $permanentflags2 ) = @_ ;
-        # RFC 2060: This flag can not be altered by any client
-        $h1_flags =~ s@\\Recent\s?@@xgi ;
-        my $h1_flags_re ;
-        if ( @regexflag and defined( $h1_flags_re = flags_regex( $h1_flags ) ) ) {
-                $h1_flags = $h1_flags_re ;
-        }
-        $h1_flags = flagscase( $h1_flags ) if $flagscase ;
-        $h1_flags = flags_filter( $h1_flags, $permanentflags2) if ( $permanentflags2 and $filterflags ) ;
-
-        return( $h1_flags ) ;
-}
-
-sub subject
-{
-        my $string = shift ;
-        my $subject = q{} ;
-
-        my $header = extract_header( $string ) ;
-
-        if( $header =~ m/^Subject:\s*([^\n\r]*)\r?$/msx ) {
-                #myprint( "MMM[$1]\n"  ) ;
-                $subject = $1 ;
-        }
-        return( $subject ) ;
-}
-
-sub tests_subject
-{
-	note( 'Entering tests_subject()' ) ;
-
-        ok( q{} eq subject( q{} ), 'subject: null') ;
-        ok( 'toto le hero' eq subject( 'Subject: toto le hero' ), 'subject: toto le hero') ;
-        ok( 'toto le hero' eq subject( 'Subject:toto le hero' ), 'subject: toto le hero blank') ;
-        ok( 'toto le hero' eq subject( "Subject:toto le hero\r\n" ), 'subject: toto le hero\r\n') ;
-
-        my $MESS ;
-        $MESS = <<'EOF';
-From: lalala
-Subject: toto le hero
-Date: zzzzzz
-
-Boogie boogie
-EOF
-        ok( 'toto le hero' eq subject( $MESS ), 'subject: toto le hero 2') ;
-
-        $MESS = <<'EOF';
-Subject: toto le hero
-From: lalala
-Date: zzzzzz
-
-Boogie boogie
-EOF
-        ok( 'toto le hero' eq subject( $MESS ), 'subject: toto le hero 3') ;
-
-
-        $MESS = <<'EOF';
-From: lalala
-Subject: cuicui
-Date: zzzzzz
-
-Subject: toto le hero
-EOF
-        ok( 'cuicui' eq subject( $MESS ), 'subject: cuicui') ;
-
-        $MESS = <<'EOF';
-From: lalala
-Date: zzzzzz
-
-Subject: toto le hero
-EOF
-        ok( q{} eq subject( $MESS ), 'subject: null but body could') ;
-
-	note( 'Leaving  tests_subject()' ) ;
-        return ;
-}
-
-
-# GlobVar
-# $max_msg_size_in_bytes
-# $h2_uidguess
-# ...
-#
-#
-sub append_message_on_host2
-{
-        my( $mysync, $string_ref, $h1_fold, $h1_msg, $string_len, $h2_fold, $h1_size, $h1_flags, $h1_date, $cache_dir ) = @_ ;
-        myprint( debugmemory( $mysync, " at A1" ) ) ;
-
-        my $new_id ;
-        if ( ! $mysync->{dry} ) {
-                $max_msg_size_in_bytes = max( $string_len, $max_msg_size_in_bytes ) ;
-                $new_id = $mysync->{imap2}->append_string( $h2_fold, ${ $string_ref }, $h1_flags, $h1_date ) ;
-                myprint( debugmemory( $mysync, " at A2" ) ) ;
-                if ( ! $new_id){
-                        my $subject = subject( ${ $string_ref } ) ;
-                        my $error_imap = $mysync->{imap2}->LastError || q{} ;
-                        my $error = "- msg $h1_fold/$h1_msg {$string_len} could not append ( Subject:[$subject], Date:[$h1_date], Size:[$h1_size], Flags:[$h1_flags] ) to folder $h2_fold: $error_imap\n" ;
-                        errors_incr( $mysync, $error ) ;
-                        $mysync->{ h1_nb_msg_processed } +=1 ;
-                        return ;
-                }
-                else{
-                        # good
-                        # $new_id is an id if the IMAP server has the
-                        # UIDPLUS capability else just a ref
-                        if ( $new_id !~ m{^\d+$}x ) {
-                                $new_id = lastuid( $mysync->{imap2}, $h2_fold, $h2_uidguess ) ;
-                        }
-                        if ( $mysync->{ synclabels } ) { synclabels( $mysync, $h1_msg, $new_id ) }
-                        $h2_uidguess += 1 ;
-                        $mysync->{total_bytes_transferred} += $string_len ;
-                        $mysync->{nb_msg_transferred} += 1 ;
-                        $mysync->{ h1_nb_msg_processed } +=1 ;
-
-                        my $time_spent = timesince( $mysync->{begin_transfer_time} ) ;
-                        my $rate = bytes_display_string( $mysync->{total_bytes_transferred} / $time_spent ) ;
-                        my $eta = eta( $time_spent,
-                                       $mysync->{ h1_nb_msg_processed }, $h1_nb_msg_start, $mysync->{nb_msg_transferred} ) ;
-                        my $amount_transferred = bytes_display_string( $mysync->{total_bytes_transferred} ) ;
-                        myprintf( "msg %s/%-19s copied to %s/%-10s %.2f msgs/s  %s/s %s copied %s\n",
-                        $h1_fold, "$h1_msg {$string_len}", $h2_fold, $new_id, $mysync->{nb_msg_transferred}/$time_spent, $rate,
-                        $amount_transferred,
-                        $eta );
-                        sleep_if_needed( $mysync ) ;
-                        if ( $usecache and $cacheaftercopy and $new_id =~ m{^\d+$}x ) {
-                                $debugcache and myprint( "touch $cache_dir/${h1_msg}_$new_id\n"  ) ;
-                                touch( "$cache_dir/${h1_msg}_$new_id" )
-                                or croak( "Couldn't touch $cache_dir/${h1_msg}_$new_id" ) ;
-                        }
-                        if ( $mysync->{ delete1 } ) {
-                                delete_message_on_host1( $mysync, $h1_fold, $mysync->{ expungeaftereach }, $h1_msg ) ;
-                        }
-                        #myprint( "PRESS ENTER" ) and my $a = <> ;
-
-                        return( $new_id ) ;
-                }
-        }
-        else{
-                $nb_msg_skipped_dry_mode += 1 ;
-                $mysync->{ h1_nb_msg_processed } +=1 ;
-        }
-
-        return ;
-}
-
-sub tests_sleep_if_needed
-{
-	note( 'Entering tests_sleep_if_needed()' ) ;
-
-	is( undef, sleep_if_needed(  ), 'sleep_if_needed: no args => undef' ) ;
-	my $mysync ;
-	is( undef, sleep_if_needed( $mysync ), 'sleep_if_needed: arg undef => undef' ) ;
-
-	$mysync->{maxbytespersecond} = 1000 ;
-	is( 0, sleep_if_needed( $mysync ), 'sleep_if_needed: maxbytespersecond only => no sleep => 0' ) ;
-	$mysync->{begin_transfer_time} = time ; # now
-	is( 0, sleep_if_needed( $mysync ), 'sleep_if_needed: begin_transfer_time now => no sleep => 0' ) ;
-	$mysync->{begin_transfer_time} = time - 2 ; # 2 s before
-	is( 0, sleep_if_needed( $mysync ), 'sleep_if_needed: total_bytes_transferred == 0 => no sleep => 0' ) ;
-
-	$mysync->{total_bytes_transferred} = 2200 ;
-	$mysync->{begin_transfer_time} = time - 2 ; # 2 s before
-	is( '0.20', sleep_if_needed( $mysync ), 'sleep_if_needed: total_bytes_transferred == 2200 since 2s => sleep 0.2s' ) ;
-	is( '0',  sleep_if_needed( $mysync ),   'sleep_if_needed: total_bytes_transferred == 2200 since 2+2 == 4s => no sleep' ) ;
-
-	$mysync->{maxsleep} = 0.1 ;
-	$mysync->{begin_transfer_time} = time - 2 ; # 2 s before again
-	is( '0.10', sleep_if_needed( $mysync ), 'sleep_if_needed: total_bytes_transferred == 4000 since 2s but maxsleep 0.1s => sleep 0.1s' ) ;
-
-	$mysync->{maxbytesafter} = 4000 ;
-	$mysync->{begin_transfer_time} = time - 2 ; # 2 s before again
-	is( 0, sleep_if_needed( $mysync ), 'sleep_if_needed: maxbytesafter == total_bytes_transferred => no sleep => 0' ) ;
-
-	note( 'Leaving  tests_sleep_if_needed()' ) ;
-	return ;
-}
-
-
-sub sleep_if_needed
-{
-        my( $mysync ) = shift ;
-
-	if ( ! $mysync ) {
-		return ;
-	}
-	# No need to go further if there is no limit set
-	if (  not ( $mysync->{maxmessagespersecond}
-		or $mysync->{maxbytespersecond} )
-	) {
-		return ;
-	}
-
-	$mysync->{maxsleep} = defined $mysync->{maxsleep} ? $mysync->{maxsleep} : $MAX_SLEEP ;
-        # Must be positive
-        $mysync->{maxsleep} = max( 0, $mysync->{maxsleep} ) ;
-
-	my $time_spent = timesince( $mysync->{begin_transfer_time} ) ;
-        my $sleep_max_messages = sleep_max_messages( $mysync->{nb_msg_transferred}, $time_spent, $mysync->{maxmessagespersecond} ) ;
-
-	my $maxbytesafter = $mysync->{maxbytesafter} || 0 ;
-	my $total_bytes_transferred = $mysync->{total_bytes_transferred} || 0 ;
-	my $total_bytes_to_consider = $total_bytes_transferred - $maxbytesafter ;
-
-	#myprint( "maxbytesafter:$maxbytesafter\n" ) ;
-	#myprint( "total_bytes_to_consider:$total_bytes_to_consider\n" ) ;
-
-        my $sleep_max_bytes = sleep_max_bytes( $total_bytes_to_consider, $time_spent, $mysync->{maxbytespersecond}  ) ;
-        my $sleep_max = min( $mysync->{maxsleep}, max( $sleep_max_messages, $sleep_max_bytes ) ) ;
-	$sleep_max = mysprintf( "%.2f", $sleep_max ) ; # round with 2 decimals.
-        if ( $sleep_max > 0 ) {
-                myprint( "sleeping $sleep_max s\n" ) ;
-                sleep $sleep_max ;
-		# Slept
-		return $sleep_max ;
-        }
-	# No sleep
-        return 0 ;
-}
-
-sub sleep_max_messages
-{
-        # how long we have to sleep to go under max_messages_per_second
-        my( $nb_msg_transferred, $time_spent, $maxmessagespersecond ) = @_ ;
-        if ( ( not defined  $maxmessagespersecond  ) or $maxmessagespersecond <= 0 ) { return( 0 ) } ;
-        my $sleep = ( $nb_msg_transferred / $maxmessagespersecond ) - $time_spent ;
-        # the sleep must be positive
-        return( max( 0, $sleep ) ) ;
-}
-
-
-sub tests_sleep_max_messages
-{
-	note( 'Entering tests_sleep_max_messages()' ) ;
-
-        ok( 0 == sleep_max_messages( 4, 2, undef ),  'sleep_max_messages: maxmessagespersecond = undef') ;
-        ok( 0 == sleep_max_messages( 4, 2, 0 ),  'sleep_max_messages: maxmessagespersecond = 0') ;
-        ok( 0 == sleep_max_messages( 4, 2, $MINUS_ONE ), 'sleep_max_messages: maxmessagespersecond = -1') ;
-        ok( 0 == sleep_max_messages( 4, 2, 2 ),  'sleep_max_messages: maxmessagespersecond = 2 max reached') ;
-        ok( 2 == sleep_max_messages( 8, 2, 2 ),  'sleep_max_messages: maxmessagespersecond = 2 max over') ;
-        ok( 0 == sleep_max_messages( 2, 2, 2 ),  'sleep_max_messages: maxmessagespersecond = 2 max not reached') ;
-
-	note( 'Leaving  tests_sleep_max_messages()' ) ;
-        return ;
-}
-
-
-sub sleep_max_bytes
-{
-        # how long we have to sleep to go under max_bytes_per_second
-        my( $total_bytes_to_consider, $time_spent, $maxbytespersecond ) = @_ ;
-	$total_bytes_to_consider ||= 0 ;
-	$time_spent ||= 0 ;
-
-        if ( ( not defined  $maxbytespersecond  ) or $maxbytespersecond <= 0 ) { return( 0 ) } ;
-	#myprint( "total_bytes_to_consider:$total_bytes_to_consider\n" ) ;
-        my $sleep = ( $total_bytes_to_consider / $maxbytespersecond ) - $time_spent ;
-        # the sleep must be positive
-        return( max( 0, $sleep ) ) ;
-}
-
-
-sub tests_sleep_max_bytes
-{
-	note( 'Entering tests_sleep_max_bytes()' ) ;
-
-        ok( 0 == sleep_max_bytes( 4000, 2, undef ),  'sleep_max_bytes: maxbytespersecond == undef => sleep 0' ) ;
-        ok( 0 == sleep_max_bytes( 4000, 2, 0 ),  'sleep_max_bytes: maxbytespersecond = 0 => sleep 0') ;
-        ok( 0 == sleep_max_bytes( 4000, 2, $MINUS_ONE ), 'sleep_max_bytes: maxbytespersecond = -1 => sleep 0') ;
-        ok( 0 == sleep_max_bytes( 4000, 2, 2000 ),  'sleep_max_bytes: maxbytespersecond = 2k max reached sharp => sleep 0') ;
-        ok( 2 == sleep_max_bytes( 8000, 2, 2000 ),  'sleep_max_bytes: maxbytespersecond = 2k max over => sleep a little') ;
-        ok( 0 == sleep_max_bytes( -8000, 2, 2000 ), 'sleep_max_bytes: maxbytespersecond = 2k max not reached => sleep 0') ;
-        ok( 0 == sleep_max_bytes( 2000, 2, 2000 ),  'sleep_max_bytes: maxbytespersecond = 2k max not reached => sleep 0') ;
-        ok( 0 == sleep_max_bytes( -2000, 2, 1000 ), 'sleep_max_bytes: maxbytespersecond = 1k max not reached => sleep 0') ;
-
-	note( 'Leaving  tests_sleep_max_bytes()' ) ;
-        return ;
-}
-
-
-sub delete_message_on_host1
-{
-        my( $mysync, $h1_fold, $expunge, @h1_msg ) = @_ ;
-        if ( ! $mysync->{ delete1 } ) { return ; }
-        if ( ! @h1_msg ) { return ; }
-        delete_messages_on_any(
-                $mysync,
-                $mysync->{imap1},
-                "Host1: $h1_fold",
-                $expunge,
-                $split1,
-                @h1_msg ) ;
-        return ;
-}
-
-sub tests_operators_and_exclam_precedence
-{
-        note( 'Entering tests_operators_and_exclam_precedence()' ) ;
-
-        is(  1, ! 0, 'tests_operators_and_exclam_precedence: ! 0 => 1' ) ;
-        is( "", ! 1, 'tests_operators_and_exclam_precedence: ! 1 => ""' ) ;
-        is(  1, not( 0 ), 'tests_operators_and_exclam_precedence: not( 0 ) => 1' ) ;
-        is( "", not( 1 ), 'tests_operators_and_exclam_precedence: not( 1 ) => ""' ) ;
-
-        # I wrote those tests to avoid perlcrit "Mixed high and low-precedence booleans"
-        # and change sub delete_messages_on_any() but got 4 more warnings... So now commented.
-
-        #is(  0, ( ! 0 and 0 ), 'tests_operators_and_exclam_precedence: ! 0 and 0 ) =>  0' ) ;
-        #is(  1, ( ! 0 and 1 ), 'tests_operators_and_exclam_precedence: ! 0 and 1 ) =>  1' ) ;
-        #is( "", ( ! 1 and 0 ), 'tests_operators_and_exclam_precedence: ! 1 and 0 ) => ""' ) ;
-        #is( "", ( ! 1 and 1 ), 'tests_operators_and_exclam_precedence: ! 1 and 1 ) => ""' ) ;
-
-        is(  0, ( ! 0 && 0 ), 'tests_operators_and_exclam_precedence: ! 0 && 0 ) =>  0' ) ;
-        is(  1, ( ! 0 && 1 ), 'tests_operators_and_exclam_precedence: ! 0 && 1 ) =>  1' ) ;
-        is( "", ( ! 1 && 0 ), 'tests_operators_and_exclam_precedence: ! 1 && 0 ) => ""' ) ;
-        is( "", ( ! 1 && 1 ), 'tests_operators_and_exclam_precedence: ! 1 && 1 ) => ""' ) ;
-
-        is(  2, ( ! 0 && 2 ), 'tests_operators_and_exclam_precedence: ! 0 && 2 ) =>  1' ) ;
-
-        note( 'Leaving  tests_operators_and_exclam_precedence()' ) ;
-        return ;
-}
-
-sub delete_messages_on_any
-{
-        my( $mysync, $imap, $hostX_folder, $expunge, $split, @messages  ) = @_ ;
-        my $expunge_message = q{} ;
-
-        my $dry_message = $mysync->{ dry_message } ;
-        $expunge_message = 'and expunged' if ( $expunge ) ;
-        # "Host1: msg "
-
-        $imap->Debug( 1 ) ;
-
-        while ( my @messages_part = splice @messages, 0, $split )
-        {
-                foreach my $message ( @messages_part )
-                {
-                        myprint( "$hostX_folder/$message marking deleted $expunge_message $dry_message\n"  ) ;
-                }
-                if ( ! $mysync->{dry} && @messages_part )
-                {
-                        my $nb_deleted = $imap->delete_message( $imap->Range( @messages_part ) ) ;
-                        if ( defined $nb_deleted )
-                        {
-                                # $nb_deleted is not accurate
-                                $mysync->{ h1_nb_msg_deleted } += scalar @messages_part ;
-                        }
-                        else
-                        {
-                                my $error_imap = $imap->LastError || q{} ;
-                                my $error = join( q{}, "$hostX_folder folder, could not delete ",
-                                        scalar @messages_part, ' messages: ', $error_imap, "\n" ) ;
-                                errors_incr( $mysync, $error ) ;
-                        }
-                }
-        }
-
-        if ( $expunge ) {
-                uidexpunge_or_expunge( $mysync, $imap, @messages ) ;
-        }
-
-        $imap->Debug( 0 ) ;
-
-        return ;
-}
-
-
-sub tests_uidexpunge_or_expunge
-{
-        note( 'Entering tests_uidexpunge_or_expunge()' ) ;
-
-
-        is( undef, uidexpunge_or_expunge(  ), 'uidexpunge_or_expunge: no args => undef' ) ;
-        my $mysync ;
-        is( undef, uidexpunge_or_expunge( $mysync ), 'uidexpunge_or_expunge: undef args => undef' ) ;
-        $mysync = {} ;
-        is( undef, uidexpunge_or_expunge( $mysync ), 'uidexpunge_or_expunge: arg empty => undef' ) ;
-        my $imap ;
-        is( undef, uidexpunge_or_expunge( $mysync, $imap ), 'uidexpunge_or_expunge: undef Mail-IMAPClient instance => undef' ) ;
-
-        require_ok( "Test::MockObject" ) ;
-        $imap = Test::MockObject->new(  ) ;
-        is( undef, uidexpunge_or_expunge( $mysync, $imap ), 'uidexpunge_or_expunge: no message (1) to uidexpunge => undef' ) ;
-
-        my @messages = (  ) ;
-        is( undef, uidexpunge_or_expunge( $mysync, $imap, @messages ), 'uidexpunge_or_expunge: no message (2) to uidexpunge => undef' ) ;
-
-        @messages = ( '2', '1' ) ;
-        $imap->mock( 'uidexpunge', sub { return ; } ) ;
-        $imap->mock( 'expunge',    sub { return ; } ) ;
-        is( undef, uidexpunge_or_expunge( $mysync, $imap, @messages ), 'uidexpunge_or_expunge: uidexpunge failure => expunge failure => undef' ) ;
-
-        $imap->mock( 'expunge',    sub { return 1 ; } ) ;
-        is( 1, uidexpunge_or_expunge( $mysync, $imap, @messages ), 'uidexpunge_or_expunge: uidexpunge failure => expunge ok => 1' ) ;
-
-        $imap->mock( 'uidexpunge',    sub { return 1 ; } ) ;
-        is( 1, uidexpunge_or_expunge( $mysync, $imap, @messages ), 'uidexpunge_or_expunge: messages to uidexpunge ok => 1' ) ;
-
-        note( 'Leaving  tests_uidexpunge_or_expunge()' ) ;
-        return ;
-}
-
-sub uidexpunge_or_expunge
-{
-        my $mysync = shift ;
-        my $imap = shift ;
-        my @messages = @ARG ;
-
-        if ( ! $imap ) { return ; } ;
-        if ( ! @messages ) { return ; } ;
-
-        # Doing uidexpunge
-        my @uidexpunge_result = $imap->uidexpunge( @messages ) ;
-        if ( @uidexpunge_result ) {
-                return 1 ;
-        }
-        # Failure so doing expunge
-        my $expunge_result = $imap->expunge(  ) ;
-        if ( $expunge_result ) {
-                return 1 ;
-        }
-        # bad trip
-        return ;
-}
-
-
-sub eta
-{
-        my( $my_time_spent, $h1_nb_processed, $my_h1_nb_msg_start, $nb_transferred ) = @_ ;
-        return( q{} ) if not $foldersizes ;
-
-        my $time_remaining = time_remaining( $my_time_spent, $h1_nb_processed, $my_h1_nb_msg_start, $nb_transferred ) ;
-        my $nb_msg_remaining = $my_h1_nb_msg_start - $h1_nb_processed ;
-        my $eta_date = localtime( time + $time_remaining ) ;
-        return( mysprintf( 'ETA: %s  %1.0f s  %s/%s msgs left', $eta_date, $time_remaining, $nb_msg_remaining, $my_h1_nb_msg_start ) ) ;
-}
-
-sub time_remaining
-{
-
-        my( $my_time_spent, $h1_nb_processed, $my_h1_nb_msg_start, $nb_transferred ) = @_ ;
-
-        my $time_remaining = ( $my_time_spent / $nb_transferred ) * ( $my_h1_nb_msg_start - $h1_nb_processed ) ;
-        return( $time_remaining ) ;
-}
-
-
-sub tests_time_remaining
-{
-	note( 'Entering tests_time_remaining()' ) ;
-
-
-        ok( 1 == time_remaining( 1, 1,  2, 1 ), 'time_remaining: 1, 1, 2, 1 -> 1'  ) ;
-        ok( 1 == time_remaining( 9, 9, 10, 9 ), 'time_remaining: 9, 9, 10, 9 -> 1' ) ;
-        ok( 9 == time_remaining( 1, 1, 10, 1 ), 'time_remaining: 1, 1, 10, 1 -> 1' ) ;
-
-	note( 'Leaving  tests_time_remaining()' ) ;
-        return ;
-}
-
-
-sub cache_map
-{
-        my ( $cache_files_ref, $h1_msgs_ref, $h2_msgs_ref ) = @_;
-        my ( %map1_2, %map2_1, %done2 ) ;
-
-        my $h1_msgs_hash_ref = {  } ;
-        my $h2_msgs_hash_ref = {  } ;
-
-        @{ $h1_msgs_hash_ref }{ @{ $h1_msgs_ref } } = (  ) ;
-        @{ $h2_msgs_hash_ref }{ @{ $h2_msgs_ref } } = (  ) ;
-
-        foreach my $file ( sort @{ $cache_files_ref } ) {
-                $debugcache and myprint( "C12: $file\n"  ) ;
-                ( $uid1, $uid2 ) = match_a_cache_file( $file ) ;
-
-                if (  exists( $h1_msgs_hash_ref->{ defined  $uid1  ? $uid1 : q{} } )
-                  and exists( $h2_msgs_hash_ref->{ defined  $uid2  ? $uid2 : q{} } ) ) {
-                        # keep only the greatest uid2
-                        # 130_2301 and
-                        # 130_231  => keep only 130 -> 2301
-
-                        # keep only the greatest uid1
-                        # 1601_260 and
-                        #  161_260 => keep only 1601 -> 260
-                        my $max_uid2 = max( $uid2, $map1_2{ $uid1 } || $MINUS_ONE ) ;
-                        if ( exists $done2{ $max_uid2 } ) {
-                                if ( $done2{ $max_uid2 } < $uid1 )  {
-                                        $map1_2{ $uid1 } = $max_uid2 ;
-                                        delete $map1_2{ $done2{ $max_uid2 } } ;
-                                        $done2{ $max_uid2 } = $uid1 ;
-                                }
-                        }else{
-                                $map1_2{ $uid1 } = $max_uid2 ;
-                                $done2{ $max_uid2 } = $uid1 ;
-                        }
-                };
-
-        }
-        %map2_1 = reverse %map1_2 ;
-        return( \%map1_2, \%map2_1) ;
-}
-
-sub tests_cache_map
-{
-	note( 'Entering tests_cache_map()' ) ;
-
-        #$debugcache = 1 ;
-        my @cache_files = qw (
-        100_200
-        101_201
-        120_220
-        142_242
-        143_243
-        177_277
-        177_278
-        177_279
-        155_255
-        180_280
-        181_280
-        182_280
-        130_231
-        130_2301
-        161_260
-        1601_260
-        ) ;
-
-        my $msgs_1 = [120, 142, 143, 144, 161, 1601,           177,      182, 130 ];
-        my $msgs_2 = [     242, 243,       260,      299, 377, 279, 255, 280, 231, 2301 ];
-
-        my( $c12, $c21 ) ;
-        ok( ( $c12, $c21 ) = cache_map( \@cache_files, $msgs_1, $msgs_2 ), 'cache_map: 02' );
-        my $a1 = [ sort { $a <=> $b } keys %{ $c12 } ] ;
-        my $a2 = [ sort { $a <=> $b } keys %{ $c21 } ] ;
-        ok( 0 == compare_lists( [ 130, 142, 143,      177, 182, 1601      ], $a1 ), 'cache_map: 03' );
-        ok( 0 == compare_lists( [      242, 243, 260, 279, 280,      2301 ], $a2 ), 'cache_map: 04' );
-        ok( ! $c12->{161},        'cache_map: ! 161 ->  260' );
-        ok( 260  == $c12->{1601}, 'cache_map:  1601 ->  260' );
-        ok( 2301 == $c12->{130},  'cache_map:   130 -> 2301' );
-        #myprint( $c12->{1601}, "\n" ) ;
-
-	note( 'Leaving  tests_cache_map()' ) ;
-        return ;
-
-}
-
-sub cache_dir_fix
-{
-        my $cache_dir = shift ;
-        $cache_dir =~ s/([;<>\*\|`&\$!#\(\)\[\]\{\}:'"\\])/\\$1/xg ;
-        #myprint( "cache_dir_fix: $cache_dir\n"  ) ;
-        return( $cache_dir ) ;
-}
-
-sub tests_cache_dir_fix
-{
-	note( 'Entering tests_cache_dir_fix()' ) ;
-
-        ok( 'lalala' eq  cache_dir_fix('lalala'),  'cache_dir_fix: lalala -> lalala' );
-        ok( 'ii\\\\ii' eq  cache_dir_fix('ii\ii'), 'cache_dir_fix: ii\ii -> ii\\\\ii' );
-        ok( 'ii@ii' eq  cache_dir_fix('ii@ii'),  'cache_dir_fix: ii@ii -> ii@ii' );
-        ok( 'ii@ii\\:ii' eq  cache_dir_fix('ii@ii:ii'), 'cache_dir_fix: ii@ii:ii -> ii@ii\\:ii' );
-        ok( 'i\\\\i\\\\ii' eq  cache_dir_fix('i\i\ii'), 'cache_dir_fix: i\i\ii -> i\\\\i\\\\ii' );
-        ok( 'i\\\\ii' eq  cache_dir_fix('i\\ii'), 'cache_dir_fix: i\\ii -> i\\\\\\\\ii' );
-        ok( '\\\\ ' eq  cache_dir_fix('\\ '), 'cache_dir_fix: \\  -> \\\\\ ' );
-        ok( '\\\\ ' eq  cache_dir_fix('\ '), 'cache_dir_fix: \  -> \\\\\ ' );
-        ok( '\[bracket\]' eq  cache_dir_fix('[bracket]'), 'cache_dir_fix: [bracket] -> \[bracket\]' );
-
-	note( 'Leaving  tests_cache_dir_fix()' ) ;
-        return ;
-}
-
-sub cache_dir_fix_win
-{
-        my $cache_dir = shift ;
-        $cache_dir =~ s/(\[|\])/[$1]/xg ;
-        #myprint( "cache_dir_fix_win: $cache_dir\n"  ) ;
-        return( $cache_dir ) ;
-}
-
-sub tests_cache_dir_fix_win
-{
-	note( 'Entering tests_cache_dir_fix_win()' ) ;
-
-        ok( 'lalala' eq  cache_dir_fix_win('lalala'),  'cache_dir_fix_win: lalala -> lalala' );
-        ok( '[[]bracket[]]' eq  cache_dir_fix_win('[bracket]'), 'cache_dir_fix_win: [bracket] -> [[]bracket[]]' );
-
-	note( 'Leaving  tests_cache_dir_fix_win()' ) ;
-        return ;
-}
-
-
-
-
-sub get_cache
-{
-        my ( $cache_dir, $h1_msgs_ref, $h2_msgs_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) = @_;
-
-        $debugcache and myprint( "Entering get_cache\n" ) ;
-
-        -d $cache_dir or return( undef ); # exit if cache directory doesn't exist
-        $debugcache and myprint( "cache_dir : $cache_dir\n" ) ;
-
-
-        if ( 'MSWin32' ne $OSNAME ) {
-                $cache_dir = cache_dir_fix( $cache_dir ) ;
-        }else{
-                $cache_dir = cache_dir_fix_win( $cache_dir ) ;
-        }
-
-        $debugcache and myprint( "cache_dir_fix: $cache_dir\n"  ) ;
-
-        my @cache_files = bsd_glob( "$cache_dir/*" ) ;
-        #$debugcache and myprint( "cache_files: [@cache_files]\n"  ) ;
-
-        $debugcache and myprint( 'cache_files: ', scalar  @cache_files , " files found\n" ) ;
-
-        my( $cache_1_2_ref, $cache_2_1_ref )
-          = cache_map( \@cache_files, $h1_msgs_ref, $h2_msgs_ref ) ;
-
-        clean_cache( \@cache_files, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref ) ;
-
-        $debugcache and myprint( "Exiting get_cache\n" ) ;
-        return( $cache_1_2_ref, $cache_2_1_ref ) ;
-}
-
-
-sub tests_get_cache
-{
-	note( 'Entering tests_get_cache()' ) ;
-
-        ok( not( get_cache('/cache_no_exist') ), 'get_cache: /cache_no_exist' );
-        ok( ( not -d 'W/tmp/cache/F1/F2' or rmtree( 'W/tmp/cache/F1/F2' ) ), 'get_cache: rmtree W/tmp/cache/F1/F2' ) ;
-        ok( mkpath( 'W/tmp/cache/F1/F2' ), 'get_cache: mkpath W/tmp/cache/F1/F2' ) ;
-
-        my @test_files_cache = ( qw(
-        W/tmp/cache/F1/F2/100_200
-        W/tmp/cache/F1/F2/101_201
-        W/tmp/cache/F1/F2/120_220
-        W/tmp/cache/F1/F2/142_242
-        W/tmp/cache/F1/F2/143_243
-        W/tmp/cache/F1/F2/177_277
-        W/tmp/cache/F1/F2/177_377
-        W/tmp/cache/F1/F2/177_777
-        W/tmp/cache/F1/F2/155_255
-        ) ) ;
-        ok( touch( @test_files_cache ), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-
-
-        # on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-        # on live:
-        my $msgs_1 = [120, 142, 143, 144,          177      ];
-        my $msgs_2 = [     242, 243,     299, 377, 777, 255 ];
-
-        my $msgs_all_1 = { 120 => 0, 142 => 0, 143 => 0, 144 => 0, 177 => 0 } ;
-        my $msgs_all_2 = { 242 => 0, 243 => 0, 299 => 0, 377 => 0, 777 => 0, 255 => 0 } ;
-
-        my( $c12, $c21 ) ;
-        ok( ( $c12, $c21 ) = get_cache( 'W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-        my $a1 = [ sort { $a <=> $b } keys %{ $c12 } ] ;
-        my $a2 = [ sort { $a <=> $b } keys %{ $c21 } ] ;
-        ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: 03' );
-        ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: 04' );
-        ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-        ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-        ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file removed 100_200');
-        ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file removed 101_201');
-
-        # test clean_cache executed
-        $maxage = 2 ;
-        ok( touch(@test_files_cache), 'get_cache: touch W/tmp/cache/F1/F2/...' ) ;
-        ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/F1/F2', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2 ), 'get_cache: 02' );
-        ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 142_242');
-        ok( -f 'W/tmp/cache/F1/F2/142_242', 'get_cache: file kept 143_243');
-        ok( ! -f 'W/tmp/cache/F1/F2/100_200', 'get_cache: file NOT removed 100_200');
-        ok( ! -f 'W/tmp/cache/F1/F2/101_201', 'get_cache: file NOT removed 101_201');
-
-
-        # strange files
-        #$debugcache = 1 ;
-        $maxage = undef ;
-        ok( ( not -d 'W/tmp/cache/rr\uee' or rmtree( 'W/tmp/cache/rr\uee' )), 'get_cache: rmtree W/tmp/cache/rr\uee' ) ;
-        ok( mkpath( 'W/tmp/cache/rr\uee' ), 'get_cache: mkpath W/tmp/cache/rr\uee' ) ;
-
-        @test_files_cache = ( qw(
-        W/tmp/cache/rr\uee/100_200
-        W/tmp/cache/rr\uee/101_201
-        W/tmp/cache/rr\uee/120_220
-        W/tmp/cache/rr\uee/142_242
-        W/tmp/cache/rr\uee/143_243
-        W/tmp/cache/rr\uee/177_277
-        W/tmp/cache/rr\uee/177_377
-        W/tmp/cache/rr\uee/177_777
-        W/tmp/cache/rr\uee/155_255
-        ) ) ;
-        ok( touch(@test_files_cache), 'get_cache: touch strange W/tmp/cache/...' ) ;
-
-        # on cache: 100_200 101_201 142_242 143_243 177_277 177_377 177_777 155_255
-        # on live:
-        $msgs_1 = [120, 142, 143, 144,          177      ] ;
-        $msgs_2 = [     242, 243,     299, 377, 777, 255 ] ;
-
-        $msgs_all_1 = { 120 => q{}, 142 => q{}, 143 => q{}, 144 => q{}, 177 => q{} } ;
-        $msgs_all_2 = { 242 => q{}, 243 => q{}, 299 => q{}, 377 => q{}, 777 => q{}, 255 => q{} } ;
-
-        ok( ( $c12, $c21 ) = get_cache('W/tmp/cache/rr\uee', $msgs_1, $msgs_2, $msgs_all_1, $msgs_all_2), 'get_cache: strange path 02' );
-        $a1 = [ sort { $a <=> $b } keys %{ $c12 } ] ;
-        $a2 = [ sort { $a <=> $b } keys %{ $c21 } ] ;
-        ok( 0 == compare_lists( [ 142, 143, 177 ], $a1 ), 'get_cache: strange path 03' );
-        ok( 0 == compare_lists( [ 242, 243, 777 ], $a2 ), 'get_cache: strange path 04' );
-        ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 142_242');
-        ok( -f 'W/tmp/cache/rr\uee/142_242', 'get_cache: strange path file kept 143_243');
-        ok( ! -f 'W/tmp/cache/rr\uee/100_200', 'get_cache: strange path file removed 100_200');
-        ok( ! -f 'W/tmp/cache/rr\uee/101_201', 'get_cache: strange path file removed 101_201');
-
-	note( 'Leaving  tests_get_cache()' ) ;
-        return ;
-}
-
-sub match_a_cache_file
-{
-        my $file = shift ;
-        my ( $cache_uid1, $cache_uid2 ) ;
-
-        return( ( undef, undef ) ) if ( ! $file ) ;
-        if ( $file =~ m{(?:^|/)(\d+)_(\d+)$}x ) {
-                $cache_uid1 = $1 ;
-                $cache_uid2 = $2 ;
-        }
-        return( $cache_uid1, $cache_uid2 ) ;
-}
-
-sub tests_match_a_cache_file
-{
-	note( 'Entering tests_match_a_cache_file()' ) ;
-
-        my ( $tuid1, $tuid2 ) ;
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file(  ), 'match_a_cache_file: no arg' ) ;
-        ok( ! defined  $tuid1 , 'match_a_cache_file: no arg 1' ) ;
-        ok( ! defined  $tuid2 , 'match_a_cache_file: no arg 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( q{} ), 'match_a_cache_file: empty arg' ) ;
-        ok( ! defined  $tuid1 , 'match_a_cache_file: empty arg 1' ) ;
-        ok( ! defined  $tuid2 , 'match_a_cache_file: empty arg 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '000_000' ), 'match_a_cache_file: 000_000' ) ;
-        ok( '000' eq $tuid1, 'match_a_cache_file: 000_000 1' ) ;
-        ok( '000' eq $tuid2, 'match_a_cache_file: 000_000 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '123_456' ), 'match_a_cache_file: 123_456' ) ;
-        ok( '123' eq $tuid1, 'match_a_cache_file: 123_456 1' ) ;
-        ok( '456' eq $tuid2, 'match_a_cache_file: 123_456 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '/tmp/truc/123_456' ), 'match_a_cache_file: /tmp/truc/123_456' ) ;
-        ok( '123' eq $tuid1, 'match_a_cache_file: /tmp/truc/123_456 1' ) ;
-        ok( '456' eq $tuid2, 'match_a_cache_file: /tmp/truc/123_456 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( '/lala123_456' ), 'match_a_cache_file: NO /lala123_456' ) ;
-        ok( ! $tuid1, 'match_a_cache_file: /lala123_456 1' ) ;
-        ok( ! $tuid2, 'match_a_cache_file: /lala123_456 2' ) ;
-
-        ok( ( $tuid1, $tuid2 ) = match_a_cache_file( 'la123_456' ), 'match_a_cache_file: NO la123_456' ) ;
-        ok( ! $tuid1, 'match_a_cache_file: la123_456 1' ) ;
-        ok( ! $tuid2, 'match_a_cache_file: la123_456 2' ) ;
-
-	note( 'Leaving  tests_match_a_cache_file()' ) ;
-        return ;
-}
-
-sub clean_cache
-{
-        my ( $cache_files_ref, $cache_1_2_ref, $h1_msgs_all_hash_ref, $h2_msgs_all_hash_ref )  = @_ ;
-
-        $debugcache and myprint( "Entering clean_cache\n" ) ;
-
-        $debugcache and myprint( map { "$_ -> " . $cache_1_2_ref->{ $_ } . "\n" } keys %{ $cache_1_2_ref }  ) ;
-        foreach my $file ( @{ $cache_files_ref } ) {
-                $debugcache and myprint( "$file\n"  ) ;
-                my ( $cache_uid1, $cache_uid2 ) = match_a_cache_file( $file ) ;
-                $debugcache and myprint( "u1: $cache_uid1 u2: $cache_uid2 c12: ", $cache_1_2_ref->{ $cache_uid1 } || q{}, "\n") ;
-#                 or ( ! exists( $cache_1_2_ref->{ $cache_uid1 } ) )
-#                 or ( ! ( $cache_uid2 == $cache_1_2_ref->{ $cache_uid1 } ) )
-                if ( ( not defined  $cache_uid1  )
-                  or ( not defined  $cache_uid2  )
-                  or ( not exists  $h1_msgs_all_hash_ref->{ $cache_uid1 }  )
-                  or ( not exists  $h2_msgs_all_hash_ref->{ $cache_uid2 }  )
-                ) {
-                        $debugcache and myprint( "remove $file\n"  ) ;
-                        unlink $file or myprint( "$OS_ERROR"  ) ;
-                }
-        }
-
-        $debugcache and myprint( "Exiting clean_cache\n" ) ;
-        return( 1 ) ;
-}
-
-sub tests_clean_cache
-{
-	note( 'Entering tests_clean_cache()' ) ;
-
-        ok( ( not -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache: rmtree W/tmp/cache/G1/G2' ) ;
-        ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache: mkpath W/tmp/cache/G1/G2' ) ;
-
-        my @test_files_cache = ( qw(
-        W/tmp/cache/G1/G2/100_200
-        W/tmp/cache/G1/G2/101_201
-        W/tmp/cache/G1/G2/120_220
-        W/tmp/cache/G1/G2/142_242
-        W/tmp/cache/G1/G2/143_243
-        W/tmp/cache/G1/G2/177_277
-        W/tmp/cache/G1/G2/177_377
-        W/tmp/cache/G1/G2/177_777
-        W/tmp/cache/G1/G2/155_255
-        ) ) ;
-        ok( touch(@test_files_cache), 'clean_cache: touch W/tmp/cache/G1/G2/...' ) ;
-
-        ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 before' );
-        ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 before' );
-        ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 before' );
-
-        my $cache = {
-                142 => 242,
-                177 => 777,
-        } ;
-
-        my $all_1 = {
-                142 => q{},
-                177 => q{},
-        } ;
-
-        my $all_2 = {
-                200 => q{},
-                242 => q{},
-                777 => q{},
-        } ;
-        ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache: ' ) ;
-
-        ok( ! -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache: 100_200 after' );
-        ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache: 142_242 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache: 177_277 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache: 177_377 after' );
-        ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache: 177_777 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache: 155_255 after' );
-
-	note( 'Leaving  tests_clean_cache()' ) ;
-        return ;
-}
-
-sub tests_clean_cache_2
-{
-	note( 'Entering tests_clean_cache_2()' ) ;
-
-        ok( ( not -d  'W/tmp/cache/G1/G2' or rmtree( 'W/tmp/cache/G1/G2' )), 'clean_cache_2: rmtree W/tmp/cache/G1/G2' ) ;
-        ok( mkpath( 'W/tmp/cache/G1/G2' ), 'clean_cache_2: mkpath W/tmp/cache/G1/G2' ) ;
-
-        my @test_files_cache = ( qw(
-        W/tmp/cache/G1/G2/100_200
-        W/tmp/cache/G1/G2/101_201
-        W/tmp/cache/G1/G2/120_220
-        W/tmp/cache/G1/G2/142_242
-        W/tmp/cache/G1/G2/143_243
-        W/tmp/cache/G1/G2/177_277
-        W/tmp/cache/G1/G2/177_377
-        W/tmp/cache/G1/G2/177_777
-        W/tmp/cache/G1/G2/155_255
-        ) ) ;
-        ok( touch(@test_files_cache), 'clean_cache_2: touch W/tmp/cache/G1/G2/...' ) ;
-
-        ok( -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 before' );
-        ok( -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 before' );
-        ok( -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 before' );
-        ok( -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 before' );
-
-        my $cache = {
-                142 => 242,
-                177 => 777,
-        } ;
-
-        my $all_1 = {
-                $NUMBER_100 => q{},
-                142 => q{},
-                177 => q{},
-        } ;
-
-        my $all_2 = {
-                200 => q{},
-                242 => q{},
-                777 => q{},
-        } ;
-
-
-
-        ok( clean_cache( \@test_files_cache, $cache, $all_1, $all_2 ), 'clean_cache_2: ' ) ;
-
-        ok(   -f 'W/tmp/cache/G1/G2/100_200', 'clean_cache_2: 100_200 after' );
-        ok(   -f 'W/tmp/cache/G1/G2/142_242', 'clean_cache_2: 142_242 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/177_277', 'clean_cache_2: 177_277 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/177_377', 'clean_cache_2: 177_377 after' );
-        ok(   -f 'W/tmp/cache/G1/G2/177_777', 'clean_cache_2: 177_777 after' );
-        ok( ! -f 'W/tmp/cache/G1/G2/155_255', 'clean_cache_2: 155_255 after' );
-
-	note( 'Leaving  tests_clean_cache_2()' ) ;
-        return ;
-}
-
-
-
-sub tests_mkpath
-{
-	note( 'Entering tests_mkpath()' ) ;
-
-	ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' )), 'mkpath: mkpath W/tmp/tests/' ) ;
-
-        SKIP: {
-                skip( 'Tests only for Unix', 10   ) if ( 'MSWin32' eq $OSNAME ) ;
-                my $long_path_unix = '123456789/' x 30 ;
-                ok( ( -d "W/tmp/tests/long/$long_path_unix" or mkpath( "W/tmp/tests/long/$long_path_unix" ) ), 'mkpath: mkpath 300 char' ) ;
-		ok( -d "W/tmp/tests/long/$long_path_unix", 'mkpath: mkpath > 300 char verified' ) ;
-                ok( ( -d "W/tmp/tests/long/$long_path_unix" and rmtree( 'W/tmp/tests/long/' ) ), 'mkpath: rmtree 300 char' ) ;
-		ok( ! -d "W/tmp/tests/long/$long_path_unix", 'mkpath: rmtree 300 char verified' ) ;
-
-		ok( ( -d 'W/tmp/tests/trailing_dots...' or  mkpath( 'W/tmp/tests/trailing_dots...' ) ), 'mkpath: mkpath trailing_dots...' ) ;
-		ok( -d 'W/tmp/tests/trailing_dots...', 'mkpath: mkpath trailing_dots... verified' ) ;
-		ok( ( -d 'W/tmp/tests/trailing_dots...' and rmtree( 'W/tmp/tests/trailing_dots...' ) ), 'mkpath: rmtree trailing_dots...' ) ;
-		ok( ! -d 'W/tmp/tests/trailing_dots...', 'mkpath: rmtree trailing_dots... verified' ) ;
-
-		eval { ok( 1 / 0, 'mkpath: divide by 0' ) ; } or ok( 1, 'mkpath: can not divide by 0' ) ;
-		ok( 1, 'mkpath: still alive' ) ;
-        } ;
-
-        SKIP: {
-                skip( 'Tests only for MSWin32', 13  ) if ( 'MSWin32' ne $OSNAME ) ;
-                my $long_path_2_prefix =  ".\\imapsync_tests" || '\\\?\\E:\\TEMP\\imapsync_tests'  ;
-                myprint( "long_path_2_prefix: $long_path_2_prefix\n"  ) ;
-
-                my $long_path_100   = $long_path_2_prefix . '\\' . '123456789\\' x 10 . 'END' ;
-                my $long_path_300 = $long_path_2_prefix . '\\' . '123456789\\' x 30 . 'END' ;
-
-                #myprint( "$long_path_100\n"  ) ;
-
-                ok( ( -d $long_path_2_prefix or mkpath( $long_path_2_prefix ) ), 'mkpath: -d mkpath small path' ) ;
-                ok( ( -d $long_path_2_prefix ), 'mkpath: -d mkpath small path done' ) ;
-                ok( ( -d $long_path_100        or mkpath( $long_path_100 ) ),        'mkpath: mkpath > 100 char' ) ;
-                ok( ( -d $long_path_100 ), 'mkpath: -d mkpath > 200 char done' ) ;
-                ok( ( -d $long_path_2_prefix and rmtree( $long_path_2_prefix ) ), 'mkpath: rmtree > 100 char' ) ;
-                ok( (! -d $long_path_2_prefix ), 'mkpath: ! -d rmtree done' ) ;
-
-                # Without the eval the following mkpath 300 just kill the whole process without a whisper
-                #myprint( "$long_path_300\n"  ) ;
-                eval { ok( ( -d $long_path_300 or mkpath( $long_path_300 ) ),  'mkpath: create a path with 300 characters' ) ; }
-			or ok( 1, 'mkpath: can not create a path with 300 characters' ) ;
-                ok( ( ( ! -d $long_path_300 ) or -d $long_path_300 and rmtree( $long_path_300 ) ), 'mkpath: rmtree the 300 character path' ) ;
-		ok( 1, 'mkpath: still alive' ) ;
-
-		ok( ( -d 'W/tmp/tests/trailing_dots...' or  mkpath( 'W/tmp/tests/trailing_dots...' ) ), 'mkpath: mkpath trailing_dots...' ) ;
-		ok( -d 'W/tmp/tests/trailing_dots...', 'mkpath: mkpath trailing_dots... verified' ) ;
-		ok( ( -d 'W/tmp/tests/trailing_dots...' and rmtree( 'W/tmp/tests/trailing_dots...' ) ), 'mkpath: rmtree trailing_dots...' ) ;
-		ok( ! -d 'W/tmp/tests/trailing_dots...', 'mkpath: rmtree trailing_dots... verified' ) ;
-
-
-        } ;
-
-	note( 'Leaving  tests_mkpath()' ) ;
-	# Keep this because of the eval used by the caller (failed badly?)
-        return 1 ;
-}
-
-sub tests_touch
-{
-	note( 'Entering tests_touch()' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' )), 'touch: mkpath W/tmp/tests/' ) ;
-        ok( 1 == touch( 'W/tmp/tests/lala'), 'touch: W/tmp/tests/lala') ;
-        ok( 1 == touch( 'W/tmp/tests/\y'), 'touch: W/tmp/tests/\y') ;
-        ok( 0 == touch( '/no/no/no/aaa'), 'touch: not /aaa') ;
-        ok( 1 == touch( 'W/tmp/tests/lili', 'W/tmp/tests/lolo'), 'touch: 2 files') ;
-        ok( 0 == touch( 'W/tmp/tests/\y', '/no/no/aaa'), 'touch: 2 files, 1 fails' ) ;
-
-	note( 'Leaving  tests_touch()' ) ;
-        return ;
-}
-
-
-sub touch
-{
-        my @files = @_ ;
-        my $failures = 0 ;
-
-        foreach my $file ( @files ) {
-                my  $fh = IO::File->new ;
-                if ( $fh->open(">> $file" ) ) {
-                        $fh->close ;
-                }else{
-                        myprint( "Could not open file $file in write/append mode\n"  ) ;
-                        $failures++ ;
-                }
-        }
-        return( ! $failures );
-}
-
-
-sub tests_tmpdir_has_colon_bug
-{
-	note( 'Entering tests_tmpdir_has_colon_bug()' ) ;
-
-        ok( 0 == tmpdir_has_colon_bug( q{} ),        'tmpdir_has_colon_bug: ' ) ;
-        ok( 0 == tmpdir_has_colon_bug( '/tmp' ),    'tmpdir_has_colon_bug: /tmp' ) ;
-        ok( 1 == tmpdir_has_colon_bug( 'C:' ),      'tmpdir_has_colon_bug: C:' ) ;
-        ok( 1 == tmpdir_has_colon_bug( 'C:\temp' ), 'tmpdir_has_colon_bug: C:\temp' ) ;
-
-	note( 'Leaving  tests_tmpdir_has_colon_bug()' ) ;
-        return ;
-}
-
-sub tmpdir_has_colon_bug
-{
-        my $path = shift ;
-
-        my $path_filtered = filter_forbidden_characters( $path ) ;
-        if ( $path_filtered ne $path ) {
-                ( -d $path_filtered ) and myprint( "Path $path was previously mistakely changed to $path_filtered\n"  ) ;
-                return( 1 ) ;
-        }
-        return( 0 ) ;
-}
-
-sub tmpdir_fix_colon_bug
-{
-        my $mysync = shift ;
-        my $err = 0 ;
-        if ( not (-d $mysync->{ tmpdir } and -r _ and -w _) ) {
-                myprint( "tmpdir $mysync->{ tmpdir } is not valid\n"  ) ;
-                return( 0 ) ;
-        }
-        my $cachedir_new = "$mysync->{ tmpdir }/imapsync_cache" ;
-
-        if ( not tmpdir_has_colon_bug( $cachedir_new ) ) { return( 0 ) } ;
-
-        # check if old cache directory already exists
-        my $cachedir_old = filter_forbidden_characters( $cachedir_new ) ;
-        if ( not ( -d $cachedir_old ) ) {
-                myprint( "Old cache directory $cachedir_new no exists, nothing to do\n"  ) ;
-                return( 1 ) ;
-        }
-        # check if new cache directory already exists
-        if ( -d $cachedir_new ) {
-                myprint( "New fixed cache directory $cachedir_new already exists, not moving the old one $cachedir_old. Fix this manually.\n"  ) ;
-                return( 0 ) ;
-        }else{
-                # move the old one to the new place
-                myprint( "Moving $cachedir_old to $cachedir_new Do not interrupt this task.\n"  ) ;
-                File::Copy::Recursive::rmove( $cachedir_old, $cachedir_new )
-                or do {
-                        myprint( "Could not move $cachedir_old to $cachedir_new\n"  ) ;
-                        $err++ ;
-                } ;
-                # check it succeeded
-                if ( -d $cachedir_new and -r _ and -w _ ) {
-                        myprint( "New fixed cache directory $cachedir_new ok\n"  ) ;
-                }else{
-                        myprint( "New fixed cache directory $cachedir_new does not exist\n"  ) ;
-                        $err++ ;
-                }
-                if ( -d $cachedir_old ) {
-                        myprint( "Old cache directory $cachedir_old still exists\n"  ) ;
-                        $err++ ;
-                }else{
-                        myprint( "Old cache directory $cachedir_old successfuly moved\n"  ) ;
-                }
-        }
-        return( not $err ) ;
-}
-
-
-sub tests_cache_folder
-{
-	note( 'Entering tests_cache_folder()' ) ;
-
-        ok( '/path/fold1/fold2' eq cache_folder( q{}, '/path', 'fold1', 'fold2'), 'cache_folder: /path, fold1, fold2 -> /path/fold1/fold2' ) ;
-        ok( '/pa_th/fold1/fold2' eq cache_folder( q{}, '/pa*th', 'fold1', 'fold2'), 'cache_folder: /pa*th, fold1, fold2 -> /path/fold1/fold2' ) ;
-        ok( '/_p_a__th/fol_d1/fold2' eq cache_folder( q{}, '/>p<a|*th', 'fol*d1', 'fold2'), 'cache_folder: />p<a|*th, fol*d1, fold2 -> /path/fol_d1/fold2' ) ;
-
-        ok( 'D:/path/fold1/fold2' eq cache_folder( 'D:', '/path', 'fold1', 'fold2'), 'cache_folder: /path, fold1, fold2 -> /path/fold1/fold2' ) ;
-        ok( 'D:/pa_th/fold1/fold2' eq cache_folder( 'D:', '/pa*th', 'fold1', 'fold2'), 'cache_folder: /pa*th, fold1, fold2 -> /path/fold1/fold2' ) ;
-        ok( 'D:/_p_a__th/fol_d1/fold2' eq cache_folder( 'D:', '/>p<a|*th', 'fol*d1', 'fold2'), 'cache_folder: />p<a|*th, fol*d1, fold2 -> /path/fol_d1/fold2' ) ;
-        ok( '//' eq cache_folder( q{}, q{}, q{}, q{}), 'cache_folder:  -> //' ) ;
-        ok( '//_______' eq cache_folder( q{}, q{}, q{}, '*|?:"<>'), 'cache_folder: *|?:"<> -> //_______' ) ;
-
-	note( 'Leaving  tests_cache_folder()' ) ;
-        return ;
-}
-
-sub cache_folder
-{
-        my( $cache_base, $cache_dir, $h1_fold, $h2_fold ) = @_ ;
-
-        my $sep_1 = $sync->{ h1_sep } || '/';
-        my $sep_2 = $sync->{ h2_sep } || '/';
-
-        #myprint( "$cache_dir h1_fold $h1_fold sep1 $sep_1 h2_fold $h2_fold sep2 $sep_2\n" ) ;
-        $h1_fold = convert_sep_to_slash( $h1_fold, $sep_1 ) ;
-        $h2_fold = convert_sep_to_slash( $h2_fold, $sep_2 ) ;
-
-        my $cache_folder = "$cache_base" . filter_forbidden_characters( "$cache_dir/$h1_fold/$h2_fold" ) ;
-        #myprint( "cache_folder [$cache_folder]\n"  ) ;
-        return( $cache_folder ) ;
-}
-
-sub tests_filter_forbidden_characters
-{
-	note( 'Entering tests_filter_forbidden_characters()' ) ;
-
-        ok( 'a_b' eq filter_forbidden_characters( 'a_b' ), 'filter_forbidden_characters: a_b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a*b' ), 'filter_forbidden_characters: a*b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a|b' ), 'filter_forbidden_characters: a|b -> a_b' ) ;
-        ok( 'a_b' eq filter_forbidden_characters( 'a?b' ), 'filter_forbidden_characters: a?b -> a_b' ) ;
-        ok( 'a_______b' eq filter_forbidden_characters( 'a*|?:"<>b' ), 'filter_forbidden_characters: a*|?:"<>b -> a_______b' ) ;
-
-        SKIP: {
-                skip( 'Not on MSWin32', 1 ) if ( 'MSWin32' eq $OSNAME ) ;
-                ok( ( 'a b ' eq filter_forbidden_characters( 'a b ' ) ), 'filter_forbidden_characters: "a b " -> "a b "' ) ;
-        } ;
-
-        SKIP: {
-                skip( 'Only on MSWin32', 2 ) if ( 'MSWin32' ne $OSNAME ) ;
-                ok( ( ' a b_' eq filter_forbidden_characters( ' a b ' ) ), 'filter_forbidden_characters: "a b " -> "a b_"' ) ;
-                ok( ( ' a b_/ c d_' eq filter_forbidden_characters( ' a b / c d ' ) ), 'filter_forbidden_characters: " a b / c d " -> "a b_/ c d_"' ) ;
-        } ;
-
-        ok( 'a_b' eq filter_forbidden_characters( "a\tb" ), 'filter_forbidden_characters: a\tb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\rb" ), 'filter_forbidden_characters: a\rb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\nb" ), 'filter_forbidden_characters: a\nb -> a_b' ) ;
-        ok( "a_b" eq filter_forbidden_characters( "a\\b" ), 'filter_forbidden_characters: a\b -> a_b' ) ;
-
-	note( 'Leaving  tests_filter_forbidden_characters()' ) ;
-        return ;
-}
-
-sub filter_forbidden_characters
-{
-        my $string = shift ;
-
-	if ( ! defined $string ) { return ; }
-
-        if ( 'MSWin32' eq $OSNAME ) {
-                # Move trailing whitespace to _ " a b /c d " -> " a b_/c d_"
-                $string =~ s{\ (/|$)}{_$1}xg ;
-        }
-        $string =~ s{[\Q*|?:"<>\E\t\r\n\\]}{_}xg ;
-        #myprint( "[$string]\n"  ) ;
-        return( $string ) ;
-}
-
-sub tests_convert_sep_to_slash
-{
-	note( 'Entering tests_convert_sep_to_slash()' ) ;
-
-
-        ok(q{} eq convert_sep_to_slash(q{}, '/'), 'convert_sep_to_slash: no folder');
-        ok('INBOX' eq convert_sep_to_slash('INBOX', '/'), 'convert_sep_to_slash: INBOX');
-        ok('INBOX/foo' eq convert_sep_to_slash('INBOX/foo', '/'), 'convert_sep_to_slash: INBOX/foo');
-        ok('INBOX/foo' eq convert_sep_to_slash('INBOX_foo', '_'), 'convert_sep_to_slash: INBOX_foo');
-        ok('INBOX/foo/zob' eq convert_sep_to_slash('INBOX_foo_zob', '_'), 'convert_sep_to_slash: INBOX_foo_zob');
-        ok('INBOX/foo' eq convert_sep_to_slash('INBOX.foo', '.'), 'convert_sep_to_slash: INBOX.foo');
-        ok('INBOX/foo/hi' eq convert_sep_to_slash('INBOX.foo.hi', '.'), 'convert_sep_to_slash: INBOX.foo.hi');
-
-	note( 'Leaving  tests_convert_sep_to_slash()' ) ;
-        return ;
-}
-
-sub convert_sep_to_slash
-{
-        my ( $folder, $sep ) = @_ ;
-
-        $folder =~ s{\Q$sep\E}{/}xg ;
-        return( $folder ) ;
-}
-
-
-sub tests_regexmess
-{
-	note( 'Entering tests_regexmess()' ) ;
-
-        ok( 'blabla' eq regexmess( 'blabla' ), 'regexmess, no regexmess, nothing to do' ) ;
-
-        @regexmess = ( 'lalala' ) ;
-        ok( not( defined regexmess( 'popopo' ) ), 'regexmess, bad regex lalala' ) ;
-
-        @regexmess = ( 's/p/Z/g' ) ;
-        ok( 'ZoZoZo' eq regexmess( 'popopo' ), 'regexmess, s/p/Z/g' ) ;
-
-        @regexmess = ( 's{c}{C}gxms' ) ;
-        ok("H1: abC\nH2: Cde\n\nBody abC"
-                   eq regexmess( "H1: abc\nH2: cde\n\nBody abc"),
-           'regexmess, c->C');
-
-        @regexmess = ( 's{\AFrom\ }{From:}gxms' ) ;
-        ok(          q{}
-        eq regexmess(q{}),
-        'From mbox 1 add colon blank');
-
-        ok(          'From:<tartanpion@machin.truc>'
-        eq regexmess('From <tartanpion@machin.truc>'),
-        'From mbox 2 add colo');
-
-        ok(          "\n" . 'From <tartanpion@machin.truc>'
-        eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 3 add colo') ;
-
-        ok(          "From: zzz\n" . 'From <tartanpion@machin.truc>'
-        eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 4 add colo') ;
-
-        @regexmess = ( 's{\AFrom\ [^\n]*(\n)?}{}gxms' ) ;
-        ok(          q{}
-        eq regexmess(q{}),
-        'From mbox 1 remove, blank');
-
-        ok(          q{}
-        eq regexmess('From <tartanpion@machin.truc>'),
-        'From mbox 2 remove');
-
-        ok(          "\n" . 'From <tartanpion@machin.truc>'
-        eq regexmess("\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 3 remove');
-
-        #myprint( "[", regexmess("From zzz\n" . 'From <tartanpion@machin.truc>'), "]" ) ;
-        ok(          q{}            . 'From <tartanpion@machin.truc>'
-        eq regexmess("From  zzz\n" . 'From <tartanpion@machin.truc>'),
-        'From mbox 4 remove');
-
-
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-From  zzz
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-), 'From mbox 5 remove');
-
-
-@regexmess = ( 's{\A((?:[^\n]+\n)+|)^Disposition-Notification-To:[^\n]*\n(\r?\n|.*\n\r?\n)}{$1$2}xms' ) ; # SUPER SUPER BEST!
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        ),
-        'regexmess: 1 Delete header Disposition-Notification-To:');
-
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Hello,
-Bye.
-EOM
-),
-        'regexmess: 2 Delete header Disposition-Notification-To:');
-
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-),
-        'regexmess: 3 Delete header Disposition-Notification-To:');
-
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-),
-        'regexmess: 4 Delete header Disposition-Notification-To:');
-
-
-        ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-),
-        'regexmess: 5 Delete header Disposition-Notification-To:');
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-),
-        'regexmess: 6 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-),
-        'regexmess: 7 Delete header Disposition-Notification-To:');
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Bye.
-EOM
-),
-        'regexmess: 8 Delete header Disposition-Notification-To:');
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Bye.
-EOM
-),
-        'regexmess: 9 Delete header Disposition-Notification-To:');
-
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-
-Bye.
-EOM
-),
-        'regexmess: 10 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-),
-        'regexmess: 11 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-),
-        'regexmess: 12 Delete header Disposition-Notification-To:');
-
-
-@regexmess = ( 's{\A(.*?(?! ^$))^Disposition-Notification-To:(.*?)$}{$1X-Disposition-Notification-To:$2}igxms' ) ; # BAD!
-@regexmess = ( 's{\A((?:[^\n]+\n)+|)(^Disposition-Notification-To:[^\n]*\n)(\r?\n|.*\n\r?\n)}{$1X-$2$3}ims' ) ;
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-),
-        'regexmess: 13 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Bye.
-EOM
-),
-        'regexmess: 14 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Bye.
-EOM
-),
-        'regexmess: 15 Delete header Disposition-Notification-To:');
-
-
-ok(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Hello,
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-
-Hello,
-
-Bye.
-EOM
-),
-        'regexmess: 16 Delete header Disposition-Notification-To:');
-
-ok(
-<<'EOM'
-X-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Bye.
-EOM
-        eq regexmess(
-<<'EOM'
-Disposition-Notification-To: Gilles LAMIRAL <gilles@lamiral.info>
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello,
-
-Bye.
-EOM
-),
-        'regexmess: 17 Delete header Disposition-Notification-To:');
-
-        @regexmess = ( 's/.{11}\K.*//gs' ) ;
-        is( "0123456789\n", regexmess( "0123456789\n" x 100 ), 'regexmess, truncate whole message after 11 characters' ) ;
-        is( "0123456789\n", regexmess( "0123456789\n" x 100_000 ), 'regexmess, truncate whole message after 11 characters ~ 1MB' ) ;
-
-        @regexmess = ( 's/.{10000}\K.*//gs' ) ;
-        is( "123456789\n" x 1000, regexmess( "123456789\n" x 100_000 ), 'regexmess, truncate whole message after 10000 characters ~ 1MB' ) ;
-
-
-
-# regex to play with Date: from the FAQ
-#@regexmess = 's{\A(.*?(?! ^$))^Date:(.*?)$}{$1Date:$2\nX-Date:$2}gxms'
-
-	note( 'Leaving  tests_regexmess()' ) ;
-	return ;
-
-}
-
-sub regexmess
-{
-        my ( $string ) = @_ ;
-        foreach my $regexmess ( @regexmess ) {
-                $sync->{ debug } and myprint( "eval \$string =~ $regexmess\n" ) ;
-                my $ret = eval "\$string =~ $regexmess ; 1" ;
-                #myprint( "eval [$ret]\n" ) ;
-                if ( ( not $ret ) or $EVAL_ERROR ) {
-                        myprint( "Error: eval regexmess '$regexmess': $EVAL_ERROR" ) ;
-                        return( undef ) ;
-                }
-        }
-        $sync->{ debug } and myprint( "$string\n" ) ;
-        return( $string ) ;
-}
-
-
-sub tests_skipmess
-{
-	note( 'Entering tests_skipmess()' ) ;
-
-        ok( not( defined skipmess( 'blabla' ) ), 'skipmess, no skipmess, no skip' ) ;
-
-        @skipmess = ('[') ;
-        ok( not( defined skipmess( 'popopo' ) ), 'skipmess, bad regex [' ) ;
-
-        @skipmess = ('lalala') ;
-        ok( not( defined skipmess( 'popopo' ) ), 'skipmess, bad regex lalala' ) ;
-
-        @skipmess = ('/popopo/') ;
-        ok( 1 == skipmess( 'popopo' ), 'skipmess, popopo match regex /popopo/' ) ;
-
-        @skipmess = ('/popopo/') ;
-        ok( 0 == skipmess( 'rrrrrr' ), 'skipmess, rrrrrr does not match regex /popopo/' ) ;
-
-        @skipmess = ('m{^$}') ;
-        ok( 1 == skipmess( q{} ),    'skipmess: empty string yes' ) ;
-        ok( 0 == skipmess( 'Hi!' ), 'skipmess: empty string no' ) ;
-
-        @skipmess = ('m{i}') ;
-        ok( 1 == skipmess( 'Hi!' ),  'skipmess: i string yes' ) ;
-        ok( 0 == skipmess( 'Bye!' ), 'skipmess: i string no' ) ;
-
-        @skipmess = ('m{[\x80-\xff]}') ;
-        ok( 0 == skipmess( 'Hi!' ),  'skipmess: i 8bit no' ) ;
-        ok( 1 == skipmess( "\xff" ), 'skipmess: \xff 8bit yes' ) ;
-
-        @skipmess = ('m{A}', 'm{B}') ;
-        ok( 0 == skipmess( 'Hi!' ),  'skipmess: A or B no' ) ;
-        ok( 0 == skipmess( 'lala' ), 'skipmess: A or B no' ) ;
-        ok( 0 == skipmess( "\xff" ), 'skipmess: A or B no' ) ;
-        ok( 1 == skipmess( 'AB' ),   'skipmess: A or B yes' ) ;
-        ok( 1 == skipmess( 'BA' ),   'skipmess: A or B yes' ) ;
-        ok( 1 == skipmess( 'AA' ),   'skipmess: A or B yes' ) ;
-        ok( 1 == skipmess( 'Ok Bye' ), 'skipmess: A or B yes' ) ;
-
-
-        @skipmess = ( 'm#\A((?:[^\n]+\n)+|)^Content-Type: Message/Partial;[^\n]*\n(?:\n|.*\n\n)#ism' ) ; # SUPER BEST!
-
-
-
-        ok( 1 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Content-Type: Message/Partial; blabla
-From:<tartanpion@machin.truc>
-
-Hello!
-Bye.
-EOM
-),
-    'skipmess: 1 match Content-Type: Message/Partial' ) ;
-
-        ok( 0 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello!
-Bye.
-EOM
-),
-    'skipmess: 2 not match Content-Type: Message/Partial' ) ;
-
-
-        ok( 1 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-Content-Type: Message/Partial; blabla
-
-Hello!
-Bye.
-EOM
-),
-    'skipmess: 3 match Content-Type: Message/Partial' ) ;
-
-        ok( 0 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello!
-Content-Type: Message/Partial; blabla
-Bye.
-EOM
-),
-    'skipmess: 4 not match Content-Type: Message/Partial' ) ;
-
-
-        ok( 0 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-From:<tartanpion@machin.truc>
-
-Hello!
-Content-Type: Message/Partial; blabla
-
-Bye.
-EOM
-),
-    'skipmess: 5 not match Content-Type: Message/Partial' ) ;
-
-
-        ok( 1 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Content-Type: Message/Partial; blabla
-From:<tartanpion@machin.truc>
-
-Hello!
-
-Content-Type: Message/Partial; blabla
-
-Bye.
-EOM
-),
-    'skipmess: 6 match Content-Type: Message/Partial' ) ;
-
-        ok( 1 == skipmess(
-<<'EOM'
-Date: Sat, 10 Jul 2010 05:34:45 -0700
-Content-Type: Message/Partial;
-From:<tartanpion@machin.truc>
-
-Hello!
-Bye.
-EOM
-),
-    'skipmess: 7 match Content-Type: Message/Partial' ) ;
-
-        ok( 1 == skipmess(
-<<'EOM'
-Date: Wed, 2 Jul 2014 02:26:40 +0000
-MIME-Version: 1.0
-Content-Type: message/partial;
-        id="TAN_U_P<1404267997.00007489ed17>";
-        number=3;
-        total=3
-
-6HQ6Hh3CdXj77qEGixerQ6zHx0OnQ/Cf5On4W0Y6vtU2crABZQtD46Hx1EOh8dDz4+OnTr1G
-
-
-Hello!
-Bye.
-EOM
-),
-    'skipmess: 8 match Content-Type: Message/Partial' ) ;
-
-
-ok( 1 == skipmess(
-<<'EOM'
-Return-Path: <gilles@lamiral.info>
-Received: by lamiral.info (Postfix, from userid 1000)
-        id 21EB12443BF; Mon,  2 Mar 2015 15:38:35 +0100 (CET)
-Subject: test: aethaecohngiexao
-To: <tata@petite.lamiral.info>
-X-Mailer: mail (GNU Mailutils 2.2)
-Message-Id: <20150302143835.21EB12443BF@lamiral.info>
-Content-Type: message/partial;
-        id="TAN_U_P<1404267997.00007489ed17>";
-        number=3;
-        total=3
-Date: Mon,  2 Mar 2015 15:38:34 +0100 (CET)
-From: gilles@lamiral.info (Gilles LAMIRAL)
-
-test: aethaecohngiexao
-EOM
-),
-    'skipmess: 9 match Content-Type: Message/Partial' ) ;
-
-ok( 1 == skipmess(
-<<'EOM'
-Date: Mon,  2 Mar 2015 15:38:34 +0100 (CET)
-From: gilles@lamiral.info (Gilles LAMIRAL)
-Content-Type: message/partial;
-        id="TAN_U_P<1404267997.00007489ed17>";
-        number=3;
-        total=3
-
-test: aethaecohngiexao
-EOM
-. "lalala\n" x 3_000_000
-),
-    'skipmess: 10 match Content-Type: Message/Partial' ) ;
-
-ok( 0 == skipmess(
-<<'EOM'
-Date: Mon,  2 Mar 2015 15:38:34 +0100 (CET)
-From: gilles@lamiral.info (Gilles LAMIRAL)
-
-test: aethaecohngiexao
-EOM
-. "lalala\n" x 3_000_000
-),
-    'skipmess: 11 match Content-Type: Message/Partial' ) ;
-
-
-ok( 0 == skipmess(
-<<"EOM"
-From: fff\r
-To: fff\r
-Subject: Testing imapsync --skipmess\r
-Date: Mon, 22 Aug 2011 08:40:20 +0800\r
-Mime-Version: 1.0\r
-Content-Type: text/plain; charset=iso-8859-1\r
-Content-Transfer-Encoding: 7bit\r
-\r
-EOM
-. qq{!#"d%&'()*+,-./0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefg\r\n } x 32_730
-),
-    'skipmess: 12 not match Content-Type: Message/Partial' ) ;
-        # Complex regular subexpression recursion limit (32766) exceeded with more lines
-        # exit;
-
-	note( 'Leaving  tests_skipmess()' ) ;
-        return ;
-}
-
-sub skipmess
-{
-        my ( $string ) = @_ ;
-        my $match ;
-        #myprint( "$string\n" ) ;
-        foreach my $skipmess ( @skipmess ) {
-                $sync->{ debug } and myprint( "eval \$match = \$string =~ $skipmess\n" ) ;
-                my $ret = eval "\$match = \$string =~ $skipmess ; 1" ;
-                #myprint( "eval [$ret]\n" ) ;
-                $sync->{ debug } and myprint( "match [$match]\n" ) ;
-                if ( ( not $ret ) or $EVAL_ERROR ) {
-                        myprint( "Error: eval skipmess '$skipmess': $EVAL_ERROR" ) ;
-                        return( undef ) ;
-                }
-                return( $match ) if ( $match ) ;
-        }
-        return( $match ) ;
-}
-
-
-
-
-sub tests_bytes_display_string
-{
-	note( 'Entering tests_bytes_display_string()' ) ;
-
-
-        is(    'NA', bytes_display_string(       ), 'bytes_display_string: no args => NA' ) ;
-        is(    'NA', bytes_display_string( undef ), 'bytes_display_string: undef   => NA' ) ;
-        is(    'NA', bytes_display_string( 'blabla' ), 'bytes_display_string: blabla   => NA' ) ;
-
-        ok(    '0.000 KiB' eq bytes_display_string(       0 ), 'bytes_display_string:       0' ) ;
-        ok(    '0.001 KiB' eq bytes_display_string(       1 ), 'bytes_display_string:       1' ) ;
-        ok(    '0.010 KiB' eq bytes_display_string(      10 ), 'bytes_display_string:      10' ) ;
-        ok(    '1.000 MiB' eq bytes_display_string( 1_048_575 ), 'bytes_display_string: 1_048_575' ) ;
-        ok(    '1.000 MiB' eq bytes_display_string( 1_048_576 ), 'bytes_display_string: 1_048_576' ) ;
-
-        ok(    '1.000 GiB' eq bytes_display_string( 1_073_741_823 ), 'bytes_display_string: 1_073_741_823 ' ) ;
-        ok(    '1.000 GiB' eq bytes_display_string( 1_073_741_824 ), 'bytes_display_string: 1_073_741_824 ' ) ;
-
-        ok(    '1.000 TiB' eq bytes_display_string( 1_099_511_627_775 ), 'bytes_display_string: 1_099_511_627_775' ) ;
-        ok(    '1.000 TiB' eq bytes_display_string( 1_099_511_627_776 ), 'bytes_display_string: 1_099_511_627_776' ) ;
-
-        ok(    '1.000 PiB' eq bytes_display_string( 1_125_899_906_842_623 ), 'bytes_display_string: 1_125_899_906_842_623' ) ;
-        ok(    '1.000 PiB' eq bytes_display_string( 1_125_899_906_842_624 ), 'bytes_display_string: 1_125_899_906_842_624' ) ;
-
-        ok( '1024.000 PiB' eq bytes_display_string( 1_152_921_504_606_846_975 ), 'bytes_display_string: 1_152_921_504_606_846_975' ) ;
-        ok( '1024.000 PiB' eq bytes_display_string( 1_152_921_504_606_846_976 ), 'bytes_display_string: 1_152_921_504_606_846_976' ) ;
-
-        ok( '1048576.000 PiB' eq bytes_display_string( 1_180_591_620_717_411_303_424 ), 'bytes_display_string: 1_180_591_620_717_411_303_424' ) ;
-
-        #myprint(  bytes_display_string( 1_180_591_620_717_411_303_424 ), "\n" ) ;
-	note( 'Leaving  tests_bytes_display_string()' ) ;
-
-        return ;
-}
-
-sub bytes_display_string
-{
-        my ( $bytes ) = @_ ;
-
-        my $readable_value = q{} ;
-
-        if ( ! defined( $bytes ) ) {
-                return( 'NA' ) ;
-        }
-
-        if ( not match_number( $bytes ) ) {
-                return( 'NA' ) ;
-        }
-
-
-
-        SWITCH: {
-                if ( abs( $bytes ) < ( 1000 * $KIBI ) ) {
-                        $readable_value = mysprintf( '%.3f KiB', $bytes / $KIBI) ;
-                        last SWITCH ;
-                }
-                if ( abs( $bytes ) < ( 1000 * $KIBI * $KIBI ) ) {
-                        $readable_value = mysprintf( '%.3f MiB', $bytes / ($KIBI * $KIBI) ) ;
-                        last SWITCH ;
-                }
-                if ( abs( $bytes ) < ( 1000 * $KIBI * $KIBI * $KIBI) ) {
-                        $readable_value = mysprintf( '%.3f GiB', $bytes / ($KIBI * $KIBI * $KIBI) ) ;
-                        last SWITCH ;
-                }
-                if ( abs( $bytes ) < ( 1000 * $KIBI * $KIBI * $KIBI * $KIBI) ) {
-                        $readable_value = mysprintf( '%.3f TiB', $bytes / ($KIBI * $KIBI * $KIBI * $KIBI) ) ;
-                        last SWITCH ;
-                } else {
-                        $readable_value = mysprintf( '%.3f PiB', $bytes / ($KIBI * $KIBI * $KIBI * $KIBI * $KIBI) ) ;
-                }
-                # if you have exabytes (EiB) of email to transfer, you have too much email!
-        }
-        #myprint( "$bytes = $readable_value\n" ) ;
-        return( $readable_value ) ;
-}
-
-
-sub tests_useheader_suggestion
-{
-        note( 'Entering tests_useheader_suggestion()' ) ;
-
-        is( undef, useheader_suggestion(  ), 'useheader_suggestion: no args => undef' ) ;
-        my $mysync = {} ;
-
-        $mysync->{ h1_nb_msg_noheader } = 0 ;
-        is( q{}, useheader_suggestion( $mysync ), 'useheader_suggestion: h1_nb_msg_noheader count null => no suggestion' ) ;
-        $mysync->{ h1_nb_msg_noheader } = 2 ;
-        is( q{in order to sync those 2 unidentified messages, add option --addheader}, useheader_suggestion( $mysync ),
-        'useheader_suggestion: h1_nb_msg_noheader count 2 => suggestion of --addheader' ) ;
-
-        note( 'Leaving  tests_useheader_suggestion()' ) ;
-        return ;
-}
-
-sub useheader_suggestion
-{
-        my $mysync = shift ;
-        if ( ! defined $mysync->{ h1_nb_msg_noheader } )
-        {
-                return ;
-        }
-        elsif ( 1 <= $mysync->{ h1_nb_msg_noheader } )
-        {
-                return qq{in order to sync those $mysync->{ h1_nb_msg_noheader } unidentified messages, add option --addheader} ;
-        }
-        else
-        {
-                return q{} ;
-        }
-        return ;
-}
-
-sub stats
-{
-        my $mysync = shift ;
-
-        if ( ! $mysync->{stats} ) {
-                return ;
-        }
-
-        my $timeend = time ;
-        my $timediff = $timeend - $mysync->{timestart} ;
-
-        my $timeend_str   = localtime $timeend ;
-
-        my $memory_consumption_at_end = memory_consumption(  ) || 0 ;
-        my $memory_consumption_at_start = $mysync->{ memory_consumption_at_start } || 0 ;
-        my $memory_ratio = ($max_msg_size_in_bytes) ?
-                mysprintf('%.1f', $memory_consumption_at_end / $max_msg_size_in_bytes) : 'NA' ;
-
-        # my $useheader_suggestion = useheader_suggestion( $mysync ) ;
-        myprint(  "++++ Statistics\n" ) ;
-        myprint(  "Transfer started on                     : $timestart_str\n" ) ;
-        myprint(  "Transfer ended on                       : $timeend_str\n" ) ;
-        myprintf( "Transfer time                           : %.1f sec\n", $timediff ) ;
-        myprint(  "Folders synced                          : $h1_folders_wanted_ct/$h1_folders_wanted_nb synced\n" ) ;
-        myprint(  "Messages transferred                    : $mysync->{nb_msg_transferred} " ) ;
-        myprint(  "(could be $nb_msg_skipped_dry_mode without dry mode)" ) if ( $mysync->{dry} ) ;
-        myprint(  "\n" ) ;
-        myprint(  "Messages skipped                        : $mysync->{ nb_msg_skipped }\n" ) ;
-        myprint(  "Messages found duplicate on host1       : $h1_nb_msg_duplicate\n" ) ;
-        myprint(  "Messages found duplicate on host2       : $h2_nb_msg_duplicate\n" ) ;
-        myprint(  "Messages found crossduplicate on host2  : $mysync->{ h2_nb_msg_crossdup }\n" ) ;
-        myprint(  "Messages void (noheader) on host1       : $mysync->{ h1_nb_msg_noheader }  ", useheader_suggestion( $mysync ), "\n" ) ;
-        myprint(  "Messages void (noheader) on host2       : $h2_nb_msg_noheader\n" ) ;
-        nb_messages_in_1_not_in_2( $mysync ) ;
-        nb_messages_in_2_not_in_1( $mysync ) ;
-        myprintf( "Messages found in host1 not in host2    : %s messages\n", $mysync->{ nb_messages_in_1_not_in_2 } ) ;
-        myprintf( "Messages found in host2 not in host1    : %s messages\n", $mysync->{ nb_messages_in_2_not_in_1 } ) ;
-        myprint(  "Messages deleted on host1               : $mysync->{ h1_nb_msg_deleted }\n" ) ;
-        myprint(  "Messages deleted on host2               : $h2_nb_msg_deleted\n" ) ;
-        myprintf( "Total bytes transferred                 : %s (%s)\n",
-                $mysync->{total_bytes_transferred},
-                bytes_display_string( $mysync->{total_bytes_transferred} ) ) ;
-        myprintf( "Total bytes skipped                     : %s (%s)\n",
-                $mysync->{ total_bytes_skipped },
-                bytes_display_string( $mysync->{ total_bytes_skipped } ) ) ;
-        $timediff ||= 1 ; # No division per 0
-        myprintf("Message rate                            : %.1f messages/s\n", $mysync->{nb_msg_transferred} / $timediff ) ;
-        myprintf("Average bandwidth rate                  : %.1f KiB/s\n", $mysync->{total_bytes_transferred} / $KIBI / $timediff ) ;
-        myprint( "Reconnections to host1                  : $mysync->{imap1}->{IMAPSYNC_RECONNECT_COUNT}\n" ) ;
-        myprint( "Reconnections to host2                  : $mysync->{imap2}->{IMAPSYNC_RECONNECT_COUNT}\n" ) ;
-        myprintf("Memory consumption at the end           : %.1f MiB (started with %.1f MiB)\n",
-                 $memory_consumption_at_end / $KIBI / $KIBI,
-                 $memory_consumption_at_start / $KIBI / $KIBI ) ;
-        myprint( "Load end is                             : " . ( join( q{ }, loadavg(  ) ) || 'unknown' ), " on $mysync->{cpu_number} cores\n" ) ;
-
-        myprintf("Biggest message                         : %s bytes (%s)\n",
-                $max_msg_size_in_bytes,
-                bytes_display_string( $max_msg_size_in_bytes) ) ;
-        myprint(  "Memory/biggest message ratio            : $memory_ratio\n" ) ;
-        if ( $foldersizesatend and $foldersizes ) {
-
-
-        my $nb_msg_start_diff = diff_or_NA( $h2_nb_msg_start, $h1_nb_msg_start ) ;
-        my $bytes_start_diff  = diff_or_NA( $h2_bytes_start,  $h1_bytes_start  ) ;
-
-        myprintf("Start difference host2 - host1          : %s messages, %s bytes (%s)\n", $nb_msg_start_diff,
-                                                        $bytes_start_diff,
-                                                        bytes_display_string( $bytes_start_diff ) ) ;
-
-        my $nb_msg_end_diff = diff_or_NA( $h2_nb_msg_end, $h1_nb_msg_end ) ;
-        my $bytes_end_diff  = diff_or_NA( $h2_bytes_end,  $h1_bytes_end  ) ;
-
-        myprintf("Final difference host2 - host1          : %s messages, %s bytes (%s)\n", $nb_msg_end_diff,
-                                                        $bytes_end_diff,
-                                                        bytes_display_string( $bytes_end_diff ) ) ;
-        }
-
-        comment_on_final_diff_in_1_not_in_2( $mysync ) ;
-        comment_on_final_diff_in_2_not_in_1( $mysync ) ;
-        myprint( "Detected $mysync->{nb_errors} errors\n\n" ) ;
-
-        myprint(  $warn_release, "\n" ) ;
-        myprint(  homepage(  ), "\n" ) ;
-        return ;
-}
-
-sub diff_or_NA
-{
-        my( $n1, $n2 ) = @ARG ;
-
-        if ( not defined $n1 or not defined $n2 ) {
-                return 'NA' ;
-        }
-
-        if ( not match_number( $n1 )
-          or not match_number( $n2 ) ) {
-                 return 'NA' ;
-        }
-
-        return( $n1 - $n2 ) ;
-}
-
-sub match_number
-{
-        my $n = shift @ARG ;
-
-        if ( not defined $n ) {
-                return 0 ;
-        }
-        if ( $n =~  /[0-9]+\.?[0-9]?/x ) {
-                return 1 ;
-        }
-        else {
-                return 0 ;
-        }
-}
-
-
-sub tests_match_number
-{
-	note( 'Entering tests_match_number()' ) ;
-
-
-        is( 0, match_number(   ),        'match_number: no parameters => 0' ) ;
-        is( 0, match_number( undef ),    'match_number:         undef => 0' ) ;
-        is( 0, match_number( 'blabla' ), 'match_number:        blabla => 0' ) ;
-        is( 1, match_number( 0 ),        'match_number:             0 => 1' ) ;
-        is( 1, match_number( 1 ),        'match_number:             1 => 1' ) ;
-        is( 1, match_number( 1.0 ),      'match_number:           1.0 => 1' ) ;
-        is( 1, match_number( 0.0 ),      'match_number:           0.0 => 1' ) ;
-
-	note( 'Leaving  tests_match_number()' ) ;
-        return ;
-}
-
-
-
-sub tests_diff_or_NA
-{
-	note( 'Entering tests_diff_or_NA()' ) ;
-
-
-        is( 'NA', diff_or_NA(  ),             'diff_or_NA: no parameters => NA' ) ;
-        is( 'NA', diff_or_NA( undef ),        'diff_or_NA: undef         => NA' ) ;
-        is( 'NA', diff_or_NA( undef, undef ), 'diff_or_NA: undef  undef  => NA' ) ;
-        is( 'NA', diff_or_NA( undef, 1 ),     'diff_or_NA: undef  1      => NA' ) ;
-        is( 'NA', diff_or_NA( 1, undef ),     'diff_or_NA: 1      undef  => NA' ) ;
-        is( 'NA', diff_or_NA( 'blabla', 1 ),  'diff_or_NA: blabla 1      => NA' ) ;
-        is( 'NA', diff_or_NA( 1, 'blabla' ),  'diff_or_NA: 1      blabla => NA' ) ;
-        is( 0, diff_or_NA( 1, 1 ),            'diff_or_NA: 1      1      =>  0' ) ;
-        is( 1, diff_or_NA( 1, 0 ),            'diff_or_NA: 1      0      =>  1' ) ;
-        is( -1, diff_or_NA( 0, 1 ),           'diff_or_NA: 0      1      => -1' ) ;
-        is( 0, diff_or_NA( 1.0, 1 ),          'diff_or_NA: 1.0    1      =>  0' ) ;
-        is( 1, diff_or_NA( 1.0, 0 ),          'diff_or_NA: 1.0    0      =>  1' ) ;
-        is( -1, diff_or_NA( 0, 1.0 ),         'diff_or_NA: 0      1.0    => -1' ) ;
-
-	note( 'Leaving  tests_diff_or_NA()' ) ;
-        return ;
-}
-
-sub homepage
-{
-        return( 'Homepage: https://imapsync.lamiral.info/' ) ;
-}
-
-
-sub load_modules
-{
-        if ( $sync->{ssl1}
-	  or $sync->{ssl2}
-	  or $sync->{tls1}
-	  or $sync->{tls2}) {
-                if ( $sync->{inet4} ) {
-                        IO::Socket::SSL->import( 'inet4' ) ;
-                }
-                if ( $sync->{inet6} ) {
-                        IO::Socket::SSL->import( 'inet6' ) ;
-                }
-        }
-        return ;
-}
-
-
-
-sub parse_header_msg
-{
-        my ( $mysync, $imap, $m_uid, $s_heads, $s_fir, $side, $s_hash ) = @_ ;
-
-        my $head = $s_heads->{$m_uid} ;
-        my $headnum =  scalar keys  %{ $head }   ;
-        $mysync->{ debug } and myprint( "$side: uid $m_uid number of headers, pass one: ", $headnum, "\n" ) ;
-
-        if ( ( ! $headnum ) and ( $wholeheaderifneeded ) ){
-                $mysync->{ debug } and myprint( "$side: uid $m_uid no header by parse_headers so taking whole header with BODY.PEEK[HEADER]\n" ) ;
-                $imap->fetch($m_uid, 'BODY.PEEK[HEADER]' ) ;
-                my $whole_header = $imap->_transaction_literals ;
-
-                #myprint( $whole_header ) ;
-                $head = decompose_header( $whole_header ) ;
-
-                $headnum =  scalar  keys  %{ $head }   ;
-                $mysync->{ debug } and myprint( "$side: uid $m_uid number of headers, pass two: ", $headnum, "\n" ) ;
-        }
-
-        #myprint( Data::Dumper->Dump( [ $head, \%useheader ] )  ) ;
-
-        my $headstr ;
-
-        $headstr = header_construct( $head, $side, $m_uid ) ;
-
-        if ( ( ! $headstr ) and ( $mysync->{addheader} ) and ( $side eq 'Host1' ) ) {
-                my $header = add_header( $m_uid ) ;
-                $mysync->{ debug } and myprint( "$side: uid $m_uid no header found so adding our own [$header]\n" ) ;
-                $headstr .= uc  $header  ;
-                $s_fir->{$m_uid}->{NO_HEADER} = 1;
-        }
-
-        return if ( ! $headstr ) ;
-
-        my $size  = $s_fir->{$m_uid}->{'RFC822.SIZE'} ;
-        my $flags = $s_fir->{$m_uid}->{'FLAGS'} ;
-        my $idate = $s_fir->{$m_uid}->{'INTERNALDATE'} ;
-        $size = length $headstr  unless ( $size ) ;
-        my $m_md5 = md5_base64( $headstr ) ;
-        $mysync->{ debug } and myprint( "$side: uid $m_uid sig $m_md5 size $size idate $idate\n" ) ;
-        my $key ;
-        if ($skipsize) {
-                $key = "$m_md5";
-        }
-        else {
-                $key = "$m_md5:$size";
-        }
-        # 0 return code is used to identify duplicate message hash
-        return 0 if exists $s_hash->{"$key"};
-        $s_hash->{"$key"}{'5'} = $m_md5;
-        $s_hash->{"$key"}{'s'} = $size;
-        $s_hash->{"$key"}{'D'} = $idate;
-        $s_hash->{"$key"}{'F'} = $flags;
-        $s_hash->{"$key"}{'m'} = $m_uid;
-
-        return( 1 ) ;
-}
-
-sub header_construct
-{
-
-        my( $head, $side, $m_uid ) = @_ ;
-
-        my $headstr ;
-        foreach my $h ( sort keys  %{ $head }  ) {
-                next if ( not ( exists $useheader{ uc  $h  } )
-                      and ( not exists  $useheader{ 'ALL' } )
-                ) ;
-                foreach my $val ( sort @{$head->{$h}} ) {
-
-                        my $H = header_line_normalize( $h, $val ) ;
-
-                        # show stuff in debug mode
-                        $sync->{ debug } and myprint( "$side uid $m_uid header [$H]", "\n" ) ;
-
-                        if ($skipheader and $H =~ m/$skipheader/xi) {
-                                $sync->{ debug } and myprint( "$side uid $m_uid skipping header [$H]\n" ) ;
-                                next ;
-                        }
-                        $headstr .= "$H" ;
-                }
-        }
-        return( $headstr ) ;
-}
-
-
-sub header_line_normalize
-{
-        my( $header_key,  $header_val ) = @_ ;
-
-        # no 8-bit data in headers !
-        $header_val =~ s/[\x80-\xff]/X/xog;
-
-        # change tabulations to space (Gmail bug on with "Received:" on multilines)
-        $header_val =~ s/\t/\ /xgo ;
-
-        # remove the first blanks ( dbmail bug? )
-        $header_val =~ s/^\s*//xo;
-
-        # remove the last blanks ( Gmail bug )
-        $header_val =~ s/\s*$//xo;
-
-        # remove successive blanks ( Mailenable does it )
-        $header_val =~ s/\s+/ /xgo;
-
-        # remove Message-Id value domain part ( Mailenable changes it )
-        if ( ( $messageidnodomain ) and ( 'MESSAGE-ID' eq uc  $header_key  ) ) { $header_val =~ s/^([^@]+).*$/$1/xo ; }
-
-        # and uppercase header line
-        # (dbmail and dovecot)
-
-        my $header_line = uc "$header_key: $header_val" ;
-
-        return( $header_line ) ;
-}
-
-sub tests_header_line_normalize
-{
-	note( 'Entering tests_header_line_normalize()' ) ;
-
-
-        ok( ': ' eq header_line_normalize( q{}, q{} ), 'header_line_normalize: empty args' ) ;
-        ok( 'HHH: VVV' eq header_line_normalize( 'hhh', 'vvv' ), 'header_line_normalize: hhh vvv ' ) ;
-        ok( 'HHH: VVV' eq header_line_normalize( 'hhh', '  vvv' ), 'header_line_normalize: remove first blancs' ) ;
-        ok( 'HHH: AA BB CCC D' eq header_line_normalize( 'hhh', 'aa  bb   ccc d' ), 'header_line_normalize: remove succesive blanks' ) ;
-        ok( 'HHH: AA BB CCC' eq header_line_normalize( 'hhh', 'aa  bb   ccc   ' ), 'header_line_normalize: remove last blanks' ) ;
-        ok( 'HHH: VVV XX YY' eq header_line_normalize( 'hhh', "vvv\t\txx\tyy" ), 'header_line_normalize: tabs' ) ;
-        ok( 'HHH: XABX' eq header_line_normalize( 'hhh', "\x80AB\xff" ), 'header_line_normalize: 8bit' ) ;
-
-	note( 'Leaving  tests_header_line_normalize()' ) ;
-        return ;
-}
-
-
-sub tests_firstline
-{
-        note( 'Entering tests_firstline()' ) ;
-
-        is( q{}, firstline( 'W/tmp/tests/noexist.txt' ), 'firstline: getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'firstline: mkpath W/tmp/tests/' ) ;
-
-        is( "blabla\n" , string_to_file( "blabla\n", 'W/tmp/tests/firstline.txt' ), 'firstline: put blabla in W/tmp/tests/firstline.txt' ) ;
-        is( 'blabla' , firstline( 'W/tmp/tests/firstline.txt' ), 'firstline: get blabla from W/tmp/tests/firstline.txt' ) ;
-
-        is( q{} , string_to_file( q{}, 'W/tmp/tests/firstline2.txt' ), 'firstline: put empty string in W/tmp/tests/firstline2.txt' ) ;
-        is( q{} , firstline( 'W/tmp/tests/firstline2.txt' ), 'firstline: get empty string from W/tmp/tests/firstline2.txt' ) ;
-
-        is( "\n" , string_to_file( "\n", 'W/tmp/tests/firstline3.txt' ), 'firstline: put CR in W/tmp/tests/firstline3.txt' ) ;
-        is( q{} , firstline( 'W/tmp/tests/firstline3.txt' ), 'firstline: get empty string from W/tmp/tests/firstline3.txt' ) ;
-
-        is( "blabla\nTiti\n" , string_to_file( "blabla\nTiti\n", 'W/tmp/tests/firstline4.txt' ), 'firstline: put blabla\nTiti\n in W/tmp/tests/firstline4.txt' ) ;
-        is( 'blabla' , firstline( 'W/tmp/tests/firstline4.txt' ), 'firstline: get blabla from W/tmp/tests/firstline4.txt' ) ;
-
-        note( 'Leaving  tests_firstline()' ) ;
-        return ;
-}
-
-sub firstline
-{
-        # extract the first line of a file (without \n)
-        # return empty string if error or empty string
-
-        my $file = shift ;
-        my $line ;
-
-        $line = nthline( $file, 1 ) ;
-        return $line ;
-}
-
-
-
-sub tests_secondline
-{
-        note( 'Entering tests_secondline()' ) ;
-
-        is( q{}, secondline( 'W/tmp/tests/noexist.txt' ), 'secondline: getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
-        is( q{}, secondline( 'W/tmp/tests/noexist.txt', 2 ), 'secondline: 2nd getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'secondline: mkpath W/tmp/tests/' ) ;
-
-        is( "L1\nL2\nL3\nL4\n" , string_to_file( "L1\nL2\nL3\nL4\n", 'W/tmp/tests/secondline.txt' ), 'secondline: put L1\nL2\nL3\nL4\n in W/tmp/tests/secondline.txt' ) ;
-        is( 'L2' , secondline( 'W/tmp/tests/secondline.txt' ), 'secondline: get L2 from W/tmp/tests/secondline.txt' ) ;
-
-
-        note( 'Leaving  tests_secondline()' ) ;
-        return ;
-}
-
-
-sub secondline
-{
-        # extract the second line of a file (without \n)
-        # return empty string if error or empty string
-
-        my $file = shift ;
-        my $line ;
-
-        $line = nthline( $file, 2 ) ;
-        return $line ;
-}
-
-
-
-
-sub tests_nthline
-{
-        note( 'Entering tests_nthline()' ) ;
-
-        is( q{}, nthline( 'W/tmp/tests/noexist.txt' ), 'nthline: getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
-        is( q{}, nthline( 'W/tmp/tests/noexist.txt', 2 ), 'nthline: 2nd getting empty string from inexisting W/tmp/tests/noexist.txt' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'nthline: mkpath W/tmp/tests/' ) ;
-
-        is( "L1\nL2\nL3\nL4\n" , string_to_file( "L1\nL2\nL3\nL4\n", 'W/tmp/tests/nthline.txt' ), 'nthline: put L1\nL2\nL3\nL4\n in W/tmp/tests/nthline.txt' ) ;
-        is( 'L3' , nthline( 'W/tmp/tests/nthline.txt', 3 ), 'nthline: get L3 from W/tmp/tests/nthline.txt' ) ;
-
-
-        note( 'Leaving  tests_nthline()' ) ;
-        return ;
-}
-
-
-sub nthline
-{
-        # extract the nth line of a file (without \n)
-        # return empty string if error or empty string
-
-        my $file = shift ;
-        my $num  = shift ;
-
-        if ( ! all_defined( $file, $num ) ) { return q{} ; }
-
-        my $line ;
-
-        $line = ( file_to_array( $file ) )[$num - 1] ;
-        if ( ! defined $line )
-        {
-                return q{} ;
-        }
-        else
-        {
-                chomp $line ;
-                return $line ;
-        }
-}
-
-
-# Should be unit tested and then be used by file_to_string, refactoring file_to_string
-sub file_to_array
-{
-
-        my( $file ) = shift ;
-        my @string ;
-
-        open my $FILE, '<', $file or do {
-		myprint( "Error reading file $file : $OS_ERROR\n" ) ;
-		return ;
-	} ;
-        @string = <$FILE> ;
-        close $FILE ;
-        return( @string ) ;
-}
-
-
-sub tests_file_to_string
-{
-	note( 'Entering tests_file_to_string()' ) ;
-
-	is( undef, file_to_string(  ), 'file_to_string: no args => undef' ) ;
-	is( undef, file_to_string( '/noexist' ), 'file_to_string: /noexist => undef' ) ;
-	is( undef, file_to_string( '/' ), 'file_to_string: reading a directory => undef' ) ;
-	ok( file_to_string( $PROGRAM_NAME ), 'file_to_string: reading myself' ) ;
-
-        ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'file_to_string: mkpath W/tmp/tests/' ) ;
-
-	is( 'lilili', string_to_file( 'lilili', 'W/tmp/tests/canbewritten' ), 'file_to_string: string_to_file filling W/tmp/tests/canbewritten with lilili' ) ;
-	is( 'lilili', file_to_string( 'W/tmp/tests/canbewritten' ), 'file_to_string: reading W/tmp/tests/canbewritten is lilili' ) ;
-
-	is( q{}, string_to_file( q{}, 'W/tmp/tests/empty' ), 'file_to_string: string_to_file filling W/tmp/tests/empty with empty string' ) ;
-	is( q{}, file_to_string( 'W/tmp/tests/empty' ), 'file_to_string: reading W/tmp/tests/empty is empty' ) ;
-
-	note( 'Leaving  tests_file_to_string()' ) ;
-	return ;
-}
-
-sub file_to_string
-{
-        my  $file  = shift ;
-	if ( ! $file ) { return ; }
-	if ( ! -e $file ) { return ; }
-	if ( ! -f $file ) { return ; }
-	if ( ! -r $file ) { return ; }
-        my @string ;
-        if ( open my $FILE, '<', $file ) {
-		@string = <$FILE> ;
-		close $FILE ;
-		return( join q{}, @string ) ;
-	}else{
-		myprint( "Error reading file $file : $OS_ERROR\n" ) ;
-		return ;
-	}
-}
-
-
-sub tests_string_to_file
-{
-	note( 'Entering tests_string_to_file()' ) ;
-
-	is( undef, string_to_file(  ),         'string_to_file: no args => undef' ) ;
-	is( undef, string_to_file( 'lalala' ), 'string_to_file: one arg => undef' ) ;
-	is( undef, string_to_file( 'lalala', '.' ), 'string_to_file: writing a directory => undef' ) ;
-	ok( (-d 'W/tmp/tests/' or  mkpath( 'W/tmp/tests/' ) ), 'string_to_file: mkpath W/tmp/tests/' ) ;
-	is( 'lalala', string_to_file( 'lalala', 'W/tmp/tests/canbewritten' ), 'string_to_file: W/tmp/tests/canbewritten with lalala' ) ;
-	is( q{}, string_to_file( q{}, 'W/tmp/tests/empty' ), 'string_to_file: W/tmp/tests/empty with empty string' ) ;
-
-	SKIP: {
-                Readonly my $NB_UNX_tests_string_to_file => 1 ;
-                skip( 'Not on Unix non-root', $NB_UNX_tests_string_to_file ) if ('MSWin32' eq $OSNAME or '0' eq $EFFECTIVE_USER_ID ) ;
-		is( undef, string_to_file( 'lalala', '/cantouch' ), 'string_to_file: /cantouch denied => undef' ) ;
-	}
-
-	note( 'Leaving  tests_string_to_file()' ) ;
-	return ;
-}
-
-sub string_to_file
-{
-        my( $string, $file ) = @_ ;
-	if( ! defined $string ) { return ; }
-	if( ! defined $file )   { return ; }
-
-	if ( ! -e $file && ! -w dirname( $file ) ) {
-		myprint( "string_to_file: directory of $file is not writable\n" ) ;
-		return ;
-	}
-
-        if ( ! sysopen( FILE, $file, O_WRONLY|O_TRUNC|O_CREAT, 0600) ) {
-		myprint( "string_to_file: failure writing to $file with error: $OS_ERROR\n" ) ;
-		return ;
-	}
-        print FILE $string ;
-        close FILE ;
-        return $string ;
-}
-
-0 and <<'MULTILINE_COMMENT' ;
-This is a multiline comment.
-Based on David Carter discussion, to do:
-* Call parameters stay the same.
-* Now always "return( $string, $error )". Descriptions below.
-OK * Still    capture STDOUT via "1> $output_tmpfile" to finish in $string and "return( $string, $error )"
-OK * Now also capture STDERR via "2> $error_tmpfile"  to finish in $error  and "return( $string, $error )"
-OK * in case of CHILD_ERROR, return( undef, $error )
-  and print $error, with folder/UID/maybeSubject context,
-  on console and at the end with the final error listing. Count this as a sync error.
-* in case of good command, take final $string as is, unless void. In case $error with value then print it.
-* in case of good command and final $string empty, consider it like CHILD_ERROR =>
-  return( undef, $error ) and print $error, with folder/UID/maybeSubject context,
-  on console and at the end with the final error listing. Count this as a sync error.
-MULTILINE_COMMENT
-# End of multiline comment.
-
-sub pipemess
-{
-        my ( $string, @commands ) = @_ ;
-        my $error = q{} ;
-        foreach my $command ( @commands ) {
-                my $input_tmpfile  = "$sync->{ tmpdir }/imapsync_tmp_file.$PROCESS_ID.inp.txt" ;
-                my $output_tmpfile = "$sync->{ tmpdir }/imapsync_tmp_file.$PROCESS_ID.out.txt" ;
-                my $error_tmpfile  = "$sync->{ tmpdir }/imapsync_tmp_file.$PROCESS_ID.err.txt" ;
-                string_to_file( $string, $input_tmpfile  ) ;
-                ` $command < $input_tmpfile 1> $output_tmpfile 2> $error_tmpfile ` ;
-                my $is_command_ko = $CHILD_ERROR ;
-                my $error_cmd = file_to_string( $error_tmpfile ) ;
-                chomp( $error_cmd ) ;
-                $string = file_to_string( $output_tmpfile ) ;
-                my $string_len = length( $string ) ;
-                unlink $input_tmpfile, $output_tmpfile, $error_tmpfile ;
-
-                if ( $is_command_ko or ( ! $string_len ) ) {
-                        my $cmd_exit_value = $CHILD_ERROR >> 8 ;
-                        my $cmd_end_signal = $CHILD_ERROR & 127 ;
-                        my $signal_log = ( $cmd_end_signal ) ? " signal $cmd_end_signal and" : q{} ;
-                        my $error_log = qq{Failure: --pipemess command "$command" ended with$signal_log "$string_len" characters exit value "$cmd_exit_value" and STDERR "$error_cmd"\n} ;
-                        myprint( $error_log ) ;
-                        if ( wantarray ) {
-                                return @{ [ undef, $error_log ] }
-                        }else{
-                                return ;
-                        }
-                }
-                if ( $error_cmd ) {
-                        $error .= qq{STDERR of --pipemess "$command": $error_cmd\n} ;
-                        myprint(  qq{STDERR of --pipemess "$command": $error_cmd\n} ) ;
-                }
-        }
-        #myprint( "[$string]\n" ) ;
-        if ( wantarray ) {
-                return ( $string, $error ) ;
-        }else{
-                return $string ;
-        }
-}
-
-
-
-sub tests_pipemess
-{
-	note( 'Entering tests_pipemess()' ) ;
-
-
-        SKIP: {
-                Readonly my $NB_WIN_tests_pipemess => 3 ;
-                skip( 'Not on MSWin32', $NB_WIN_tests_pipemess ) if ('MSWin32' ne $OSNAME) ;
-                # Windows
-                # "type" command does not accept redirection of STDIN with <
-                # "sort" does
-                ok( "nochange\n" eq pipemess( 'nochange', 'sort' ), 'pipemess: nearly no change by sort' ) ;
-                ok( "nochange2\n" eq pipemess( 'nochange2', qw( sort sort ) ), 'pipemess: nearly no change by sort,sort' ) ;
-                # command not found
-                #diag( 'Warning and failure about cacaprout are on purpose' ) ;
-                ok( ! defined( pipemess( q{}, 'cacaprout' ) ), 'pipemess: command not found' ) ;
-
-        } ;
-
-        my ( $stringT, $errorT ) ;
-
-        SKIP: {
-                Readonly my $NB_UNX_tests_pipemess => 25 ;
-                skip( 'Not on Unix', $NB_UNX_tests_pipemess ) if ('MSWin32' eq $OSNAME) ;
-                # Unix
-                ok( 'nochange' eq pipemess( 'nochange', 'cat' ), 'pipemess: no change by cat' ) ;
-
-                ok( 'nochange2' eq pipemess( 'nochange2', 'cat', 'cat' ), 'pipemess: no change by cat,cat' ) ;
-
-                ok( "     1\tnumberize\n" eq pipemess( "numberize\n", 'cat -n' ), 'pipemess: numberize by cat -n' ) ;
-                ok( "     1\tnumberize\n     2\tnumberize\n" eq pipemess( "numberize\nnumberize\n", 'cat -n' ), 'pipemess: numberize by cat -n' ) ;
-
-                ok( "A\nB\nC\n" eq pipemess( "A\nC\nB\n", 'sort' ), 'pipemess: sort' ) ;
-
-                # command not found
-                #diag( 'Warning and failure about cacaprout are on purpose' ) ;
-                is( undef, pipemess( q{}, 'cacaprout' ), 'pipemess: command not found' ) ;
-
-                # success with true but no output at all
-                is( undef, pipemess( q{blabla}, 'true' ), 'pipemess: true but no output' ) ;
-
-                # failure with false and no output at all
-                is( undef, pipemess( q{blabla}, 'false' ), 'pipemess: false and no output' ) ;
-
-                # Failure since pipemess is not a real pipe, so first cat wait for standard input
-                is( q{blabla}, pipemess( q{blabla}, '( cat|cat ) ' ), 'pipemess: ok by ( cat|cat )' ) ;
-
-
-                ( $stringT, $errorT ) = pipemess( 'nochange', 'cat' ) ;
-                is( $stringT, 'nochange', 'pipemess: list context, no change by cat, string' ) ;
-                is( $errorT, q{}, 'pipemess: list context, no change by cat, no error' ) ;
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', 'true' ) ;
-                is( $stringT, undef, 'pipemess: list context, true but no output, string' ) ;
-                like( $errorT, qr{\QFailure: --pipemess command "true" ended with "0" characters exit value "0" and STDERR ""\E}xm, 'pipemess: list context, true but no output, error' ) ;
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', 'false' ) ;
-                is( $stringT, undef, 'pipemess: list context, false and no output, string' ) ;
-                like( $errorT, qr{\QFailure: --pipemess command "false" ended with "0" characters exit value "1" and STDERR ""\E}xm,
-		'pipemess: list context, false and no output, error' ) ;
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', '/bin/echo -n blablabla' ) ;
-                is( $stringT, q{blablabla}, 'pipemess: list context, "echo -n blablabla", string' ) ;
-                is( $errorT, q{},  'pipemess: list context, "echo blablabla", error' ) ;
-
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', '( echo -n blablabla 3>&1 1>&2 2>&3 )' ) ;
-                is( $stringT, undef, 'pipemess: list context, "no output STDERR blablabla", string' ) ;
-                like( $errorT,  qr{blablabla"}xm, 'pipemess: list context, "no output STDERR blablabla", error' ) ;
-
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', '( echo -n blablabla 3>&1 1>&2 2>&3 )', 'false' ) ;
-                is( $stringT, undef, 'pipemess: list context, "no output STDERR blablabla then false", string' ) ;
-                like( $errorT,  qr{blablabla"}xm, 'pipemess: list context, "no output STDERR blablabla then false", error' ) ;
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', 'false', '( echo -n blablabla 3>&1 1>&2 2>&3 )' ) ;
-                is( $stringT, undef, 'pipemess: list context, "false then STDERR blablabla", string' ) ;
-                like( $errorT,  qr{\QFailure: --pipemess command "false" ended with "0" characters exit value "1" and STDERR ""\E}xm,
-		'pipemess: list context, "false then STDERR blablabla", error' ) ;
-
-                ( $stringT, $errorT ) = pipemess( 'dontcare', '( echo rrrrr ; echo -n error_blablabla 3>&1 1>&2 2>&3 )' ) ;
-                like( $stringT, qr{rrrrr}xm, 'pipemess: list context, "STDOUT rrrrr STDERR error_blablabla", string' ) ;
-                like( $errorT,  qr{STDERR.*error_blablabla}xm,  'pipemess: list context, "STDOUT rrrrr STDERR error_blablabla", error' ) ;
-
-        }
-
-        ( $stringT, $errorT ) = pipemess( 'dontcare', 'cacaprout' ) ;
-        is( $stringT, undef, 'pipemess: list context, cacaprout not found, string' ) ;
-        like( $errorT, qr{\QFailure: --pipemess command "cacaprout" ended with "0" characters exit value\E}xm,
-	'pipemess: list context, cacaprout not found, error' ) ;
-
-	note( 'Leaving  tests_pipemess()' ) ;
-        return ;
-}
-
-
-
-sub tests_is_a_release_number
-{
-	note( 'Entering tests_is_a_release_number()' ) ;
-
-        is( undef, is_a_release_number(  ), 'is_a_release_number: no args => undef' ) ;
-        ok( is_a_release_number( $RELEASE_NUMBER_EXAMPLE_1 ), 'is_a_release_number 1.351' ) ;
-        ok( is_a_release_number( $RELEASE_NUMBER_EXAMPLE_2 ), 'is_a_release_number 42.4242' ) ;
-        ok( is_a_release_number( imapsync_version( $sync ) ), 'is_a_release_number imapsync_version(  )' ) ;
-        ok( ! is_a_release_number( 'blabla' ), '! is_a_release_number blabla' ) ;
-
-	note( 'Leaving  tests_is_a_release_number()' ) ;
-        return ;
-}
-
-sub is_a_release_number
-{
-        my $number = shift ;
-        if ( ! defined $number ) { return ; }
-        return( $number =~ m{^\d+\.\d+$}xo ) ;
-}
-
-
-
-sub imapsync_version_public
-{
-
-        my $local_version = imapsync_version( $sync ) ;
-        my $imapsync_basename = imapsync_basename(  ) ;
-        my $agent_info = "$OSNAME system, perl "
-                . mysprintf( '%vd', $PERL_VERSION)
-                . ", Mail::IMAPClient $Mail::IMAPClient::VERSION"
-                . " $imapsync_basename" ;
-        my $sock = IO::Socket::INET->new(
-                PeerAddr => 'imapsync.lamiral.info',
-                PeerPort => 80,
-                Proto    => 'tcp',
-                ) ;
-        return( 'unknown' ) if not $sock ;
-        print $sock
-                "GET /prj/imapsync/VERSION HTTP/1.0\r\n",
-                "User-Agent: imapsync/$local_version ($agent_info)\r\n",
-                "Host: ks.lamiral.info\r\n\r\n" ;
-        my @line = <$sock> ;
-        close $sock ;
-        my $last_release = $line[$LAST] ;
-        chomp $last_release ;
-        return( $last_release ) ;
-}
-
-sub not_long_imapsync_version_public
-{
-        #myprint( "Entering not_long_imapsync_version_public\n" ) ;
-
-	my $fake = shift ;
-	if ( $fake ) { return $fake }
-
-        my $val ;
-
-        # Doesn't work with gethostbyname (see perlipc)
-        #local $SIG{ALRM} = sub { die "alarm\n" } ;
-
-        if ('MSWin32' eq $OSNAME) {
-                local $SIG{ALRM} = sub { die "alarm\n" } ;
-        }else{
-
-                POSIX::sigaction(SIGALRM,
-                         POSIX::SigAction->new(sub { croak 'alarm' } ) )
-                        or myprint( "Error setting SIGALRM handler: $OS_ERROR\n" ) ;
-        }
-
-        my $ret = eval {
-                alarm 3 ;
-                {
-                        $val = imapsync_version_public(  ) ;
-                        #sleep 4 ;
-                        #myprint( "End of imapsync_version_public\n" ) ;
-                }
-                alarm 0 ;
-                1 ;
-        } ;
-        #myprint( "eval [$ret]\n" ) ;
-        if ( ( not $ret ) or $EVAL_ERROR ) {
-                #myprint( "$EVAL_ERROR" ) ;
-                if ($EVAL_ERROR =~ /alarm/) {
-                # timed out
-                        return('timeout') ;
-                }else{
-                        alarm 0 ;
-                        return( 'unknown' ) ; # propagate unexpected errors
-                }
-        }else {
-        # Good!
-                return( $val ) ;
-        }
-}
-
-sub tests_not_long_imapsync_version_public
-{
-	note( 'Entering tests_not_long_imapsync_version_public()' ) ;
-
-
-	is( 1, is_a_release_number( not_long_imapsync_version_public(  ) ),
-		'not_long_imapsync_version_public: public release is a number' ) ;
-
-	note( 'Leaving  tests_not_long_imapsync_version_public()' ) ;
-	return ;
-}
-
-sub check_last_release
-{
-	my $fake = shift ;
-        my $public_release = not_long_imapsync_version_public( $fake ) ;
-        $sync->{ debug } and myprint( "check_last_release: [$public_release]\n" ) ;
-        my $inline_help_when_on = '( Use --noreleasecheck to avoid this release check. )' ;
-
-        if ( $public_release eq 'unknown' ) {
-                return( 'Imapsync public release is unknown.' . $inline_help_when_on ) ;
-        }
-
-        if ( $public_release eq 'timeout' ) {
-                return( 'Imapsync public release is unknown (timeout).' . $inline_help_when_on )  ;
-        }
-
-        if ( ! is_a_release_number( $public_release ) ) {
-                return( "Imapsync public release is unknown ($public_release)." . $inline_help_when_on ) ;
-        }
-
-        my $imapsync_here  = imapsync_version( $sync ) ;
-
-        if ( $public_release > $imapsync_here ) {
-                return( 'This imapsync is not up to date. ' . "( local $imapsync_here < official $public_release )" . $inline_help_when_on ) ;
-        }else{
-                return( 'This imapsync is up to date. ' . "( local $imapsync_here >= official $public_release )" . $inline_help_when_on ) ;
-        }
-
-	return( 'really unknown' ) ; # Should never arrive here
-}
-
-sub tests_check_last_release
-{
-	note( 'Entering tests_check_last_release()' ) ;
-
-	diag( check_last_release( 1.1 ) ) ;
-        # \Q \E here to avoid putting \ before each space
-	like( check_last_release( 1.1 ), qr/\Qis up to date\E/mxs, 'check_last_release: up to date' ) ;
-	like( check_last_release( 1.1 ), qr/1\.1/mxs, 'check_last_release: up to date, include number' ) ;
-	diag( check_last_release( 999.999 ) ) ;
-	like( check_last_release( 999.999 ), qr/\Qnot up to date\E/mxs, 'check_last_release: not up to date' ) ;
-	like( check_last_release( 999.999 ), qr/999\.999/mxs, 'check_last_release: not up to date, include number' ) ;
-	like( check_last_release( 'unknown' ), qr/\QImapsync public release is unknown\E/mxs,           'check_last_release: unknown' ) ;
-	like( check_last_release( 'timeout' ), qr/\QImapsync public release is unknown (timeout)\E/mxs, 'check_last_release: timeout' ) ;
-	like( check_last_release( 'lalala' ),  qr/\QImapsync public release is unknown (lalala)\E/mxs,  'check_last_release: lalala' ) ;
-	diag( check_last_release(  ) ) ;
-
-	note( 'Leaving  tests_check_last_release()' ) ;
-	return ;
-}
-
-sub imapsync_version
-{
-        my $mysync = shift ;
-        my $rcs = $mysync->{rcs} ;
-        my $version ;
-
-        $version = version_from_rcs( $rcs ) ;
-        return( $version ) ;
-}
-
-
-sub tests_version_from_rcs
-{
-	note( 'Entering tests_version_from_rcs()' ) ;
-
-	is( undef, version_from_rcs(  ), 'version_from_rcs: no args => UNKNOWN' ) ;
-	is( 1.831, version_from_rcs( q{imapsync,v 1.831 2017/08/27} ), 'version_from_rcs: imapsync,v 1.831 2017/08/27 => 1.831' ) ;
-	is( 'UNKNOWN', version_from_rcs( 1.831 ), 'version_from_rcs:  1.831  => UNKNOWN' ) ;
-
-	note( 'Leaving  tests_version_from_rcs()' ) ;
-	return ;
-}
-
-
-sub version_from_rcs
-{
-
-        my $rcs = shift ;
-        if ( ! $rcs ) { return ; }
-
-        my $version = 'UNKNOWN' ;
-
-        if ( $rcs =~ m{,v\s+(\d+\.\d+)}mxso ) {
-                $version = $1
-        }
-
-        return( $version ) ;
-}
-
-
-sub tests_imapsync_basename
-{
-	note( 'Entering tests_imapsync_basename()' ) ;
-
-        ok( imapsync_basename() =~ m/imapsync/, 'imapsync_basename: match imapsync');
-        ok( 'blabla'   ne imapsync_basename(), 'imapsync_basename: do not equal blabla');
-
-	note( 'Leaving  tests_imapsync_basename()' ) ;
-        return ;
-}
-
-sub imapsync_basename
-{
-
-        return basename( $PROGRAM_NAME ) ;
-
-}
-
-
-sub localhost_info
-{
-        my $mysync = shift ;
-        my( $infos ) = join( q{},
-                "Here is imapsync ", imapsync_version( $mysync ),
-                " on host " . hostname(),
-                ", a $OSNAME system with ",
-                ram_memory_info(  ),
-                "\n",
-                'with Perl ',
-                mysprintf( '%vd ', $PERL_VERSION),
-                "and Mail::IMAPClient $Mail::IMAPClient::VERSION",
-             ) ;
-        return( $infos ) ;
-}
-
-sub tests_cpu_number
-{
-	note( 'Entering tests_cpu_number()' ) ;
-
-        is( 1, is_an_integer( cpu_number(  ) ), "cpu_number: is_an_integer" ) ;
-	ok( 1 <= cpu_number(  ), "cpu_number: 1 or more" ) ;
-        is( 1, cpu_number( 1 ), "cpu_number: 1 => 1" ) ;
-        is( 1, cpu_number( $MINUS_ONE ), "cpu_number: -1 => 1" ) ;
-        is( 1, cpu_number( 'lalala' ), "cpu_number: lalala => 1" ) ;
-        is( $NUMBER_42, cpu_number( $NUMBER_42 ), "cpu_number: $NUMBER_42 => $NUMBER_42" ) ;
-        note( 'Leaving  tests_cpu_number()' ) ;
-	return ;
-}
-
-sub cpu_number
-{
-
-        my $cpu_number_forced = shift ;
-	# Well, here 1 is better than 0 or undef
-	my $cpu_number = 1 ; # Default value, erased if better found
-
-        my @cpuinfo ;
-	if ( $ENV{"NUMBER_OF_PROCESSORS"} ) {
-		# might be under a Windows system
-		$cpu_number = $ENV{"NUMBER_OF_PROCESSORS"} ;
-		$sync->{ debug } and myprint( "Number of processors found by env var NUMBER_OF_PROCESSORS: $cpu_number\n" ) ;
-	}elsif ( 'darwin' eq $OSNAME or 'freebsd' eq $OSNAME ) {
-		$cpu_number = backtick( "sysctl -n hw.ncpu" ) ;
-		chomp( $cpu_number ) ;
-                $sync->{ debug } and myprint( "Number of processors found by cmd 'sysctl -n hw.ncpu': $cpu_number\n" ) ;
-	}elsif ( ! -e '/proc/cpuinfo' ) {
-		$sync->{ debug } and myprint( "Number of processors not found so I might assume there is only 1\n" ) ;
-		$cpu_number = 1 ;
-	}elsif( @cpuinfo = file_to_array( '/proc/cpuinfo' ) ) {
-                $cpu_number = grep { /^processor/mxs } @cpuinfo ;
-                $sync->{ debug } and myprint( "Number of processors found via /proc/cpuinfo: $cpu_number\n" ) ;
-	}
-
-        if ( defined $cpu_number_forced ) {
-                $cpu_number = $cpu_number_forced ;
-        }
-	return( integer_or_1( $cpu_number ) ) ;
-}
-
-
-sub tests_integer_or_1
-{
-        note( 'Entering tests_integer_or_1()' ) ;
-
-        is( 1, integer_or_1(  ), 'integer_or_1: no args => 1' ) ;
-        is( 1, integer_or_1( undef ), 'integer_or_1: undef => 1' ) ;
-        is( $NUMBER_10, integer_or_1( $NUMBER_10 ), 'integer_or_1: 10 => 10' ) ;
-        is( 1, integer_or_1( q{} ), 'integer_or_1: empty string => 1' ) ;
-        is( 1, integer_or_1( 'lalala' ), 'integer_or_1: lalala => 1' ) ;
-
-        note( 'Leaving  tests_integer_or_1()' ) ;
-        return ;
-}
-
-sub integer_or_1
-{
-        my $number = shift ;
-        if ( is_an_integer( $number  ) ) {
-                return $number ;
-        }
-        # else
-        return 1 ;
-}
-
-sub tests_is_an_integer
-{
-	note( 'Entering tests_is_an_integer()' ) ;
-
-        is( undef, is_an_integer(  ), 'is_an_integer: no args => undef ' ) ;
-        ok( is_an_integer( 1 ), 'is_an_integer: 1 => yes ') ;
-        ok( is_an_integer( $NUMBER_42 ), 'is_an_integer: 42 => yes ') ;
-        ok( is_an_integer( "$NUMBER_42" ), 'is_an_integer: "$NUMBER_42" => yes ') ;
-        ok( is_an_integer( '42' ), 'is_an_integer: "42" => yes ') ;
-        ok( is_an_integer( $NUMBER_104_857_600 ), 'is_an_integer: 104_857_600 => yes') ;
-        ok( is_an_integer( "$NUMBER_104_857_600" ), 'is_an_integer: "$NUMBER_104_857_600" => yes') ;
-        ok( is_an_integer( '104857600' ), 'is_an_integer: 104857600 => yes') ;
-        ok( ! is_an_integer( 'blabla' ), 'is_an_integer: blabla => no' ) ;
-        ok( ! is_an_integer( q{} ), 'is_an_integer: empty string => no' ) ;
-
-	note( 'Leaving  tests_is_an_integer()' ) ;
-        return ;
-}
-
-sub is_an_integer
-{
-        my $number = shift ;
-        if ( ! defined $number ) { return ; }
-        return( $number =~ m{^\d+$}xo ) ;
-}
-
-
-
-
-sub tests_loadavg
-{
-	note( 'Entering tests_loadavg()' ) ;
-
-
-	SKIP: {
-		skip( 'Tests for darwin', 2 ) if ('darwin' ne $OSNAME) ;
-		is( undef, loadavg( '/noexist' ), 'loadavg: /noexist => undef' ) ;
-		is_deeply( [ '0.11', '0.22', '0.33' ],
-		[ loadavg( 'W/t/loadavg.out' ) ],
-		'loadavg W/t/loadavg.out => 0.11 0.22 0.33' ) ;
-	} ;
-
-	SKIP: {
-		skip( 'Tests for linux', 3 ) if ('linux' ne $OSNAME) ;
-		is( undef, loadavg( '/noexist' ), 'loadavg: /noexist => undef' ) ;
-		ok( loadavg( ), 'loadavg: no args' ) ;
-
-		is_deeply( [ '0.39', '0.30', '0.37', '1/602' ],
-		[ loadavg( '0.39 0.30 0.37 1/602 6073' ) ],
-		'loadavg 0.39 0.30 0.37 1/602 6073 => [0.39, 0.30, 0.37, 1/602]' ) ;
-	} ;
-
-	SKIP: {
-		skip( 'Tests for Windows', 1 ) if ('MSWin32' ne $OSNAME) ;
-		is_deeply( [ 0 ],
-		[ loadavg( ) ],
-		'loadavg on MSWin32 => 0' ) ;
-
-	} ;
-
-	note( 'Leaving  tests_loadavg()' ) ;
-	return ;
-}
-
-
-sub loadavg
-{
-	if ( 'linux' eq $OSNAME ) {
-		return ( loadavg_linux( @ARG ) ) ;
-	}
-	if ( 'freebsd' eq $OSNAME ) {
-		return ( loadavg_freebsd( @ARG ) ) ;
-	}
-	if ( 'darwin' eq $OSNAME ) {
-		return ( loadavg_darwin( @ARG ) ) ;
-	}
-	if ( 'MSWin32' eq $OSNAME ) {
-		return ( loadavg_windows( @ARG ) ) ;
-	}
-	return( 'unknown' ) ;
-
-}
-
-sub loadavg_linux
-{
-	my $line = shift ;
-
-	if ( ! $line ) {
-                $line = firstline( '/proc/loadavg'  ) or return ;
-	}
-
-	my ( $avg_1_min, $avg_5_min, $avg_15_min, $current_runs ) = split /\s/mxs, $line ;
-	if ( all_defined( $avg_1_min, $avg_5_min, $avg_15_min ) ) {
-		$sync->{ debug } and myprint( "System load: $avg_1_min $avg_5_min $avg_15_min $current_runs\n" ) ;
-		return ( $avg_1_min, $avg_5_min, $avg_15_min, $current_runs ) ;
-	}
-	return ;
-}
-
-sub loadavg_freebsd
-{
-	my $file = shift ;
-	# Example of output of command "sysctl vm.loadavg":
-	# vm.loadavg: { 0.15 0.08 0.08 }
-	my $loadavg ;
-
-	if ( ! defined $file ) {
-		eval {
-			$loadavg = `/sbin/sysctl vm.loadavg` ;
-			#myprint( "LOADAVG FREEBSD: $loadavg\n" ) ;
-		} ;
-		if ( $EVAL_ERROR ) { myprint( "[$EVAL_ERROR]\n" ) ; return ; }
-	}else{
-		$loadavg = firstline( $file ) or return ;
-	}
-
-	my ( $avg_1_min, $avg_5_min, $avg_15_min )
-	= $loadavg =~ /vm\.loadavg\s*[:=]\s*\{?\s*(\d+\.?\d*)\s+(\d+\.?\d*)\s+(\d+\.?\d*)/mxs ;
-	$sync->{ debug } and myprint( "System load: $avg_1_min $avg_5_min $avg_15_min\n" ) ;
-	return ( $avg_1_min, $avg_5_min, $avg_15_min ) ;
-}
-
-sub loadavg_darwin
-{
-	my $file = shift ;
-	# Example of output of command "sysctl vm.loadavg":
-	# vm.loadavg: { 0.15 0.08 0.08 }
-	my $loadavg ;
-
-	if ( ! defined $file ) {
-		eval {
-			$loadavg = `/usr/sbin/sysctl vm.loadavg` ;
-			#myprint( "LOADAVG DARWIN: $loadavg\n" ) ;
-		} ;
-		if ( $EVAL_ERROR ) { myprint( "[$EVAL_ERROR]\n" ) ; return ; }
-	}else{
-		$loadavg = firstline( $file ) or return ;
-	}
-
-	my ( $avg_1_min, $avg_5_min, $avg_15_min )
-	= $loadavg =~ /vm\.loadavg\s*[:=]\s*\{?\s*(\d+\.?\d*)\s+(\d+\.?\d*)\s+(\d+\.?\d*)/mxs ;
-	$sync->{ debug } and myprint( "System load: $avg_1_min $avg_5_min $avg_15_min\n" ) ;
-	return ( $avg_1_min, $avg_5_min, $avg_15_min ) ;
-}
-
-sub loadavg_windows
-{
-	my $file = shift ;
-	# Example of output of command "wmic cpu get loadpercentage":
-	# LoadPercentage
-        # 12
-	my $loadavg ;
-
-	if ( ! defined $file ) {
-		eval {
-			#$loadavg = `CMD wmic cpu get loadpercentage` ;
-			$loadavg = "LoadPercentage\n0\n" ;
-			#myprint( "LOADAVG WIN: $loadavg\n" ) ;
-		} ;
-		if ( $EVAL_ERROR ) { myprint( "[$EVAL_ERROR]\n" ) ; return ; }
-	}else{
-		$loadavg = file_to_string( $file ) or return ;
-		#myprint( "$loadavg" ) ;
-	}
-	$loadavg =~ /LoadPercentage\n(\d+)/xms ;
-	my $num = $1 ;
-	$num /= 100 ;
-
-	$sync->{ debug } and myprint( "System load: $num\n" ) ;
-	return ( $num ) ;
-}
-
-
-
-
-
-
-sub tests_load_and_delay
-{
-	note( 'Entering tests_load_and_delay()' ) ;
-
-	is( undef, load_and_delay(  ), 'load_and_delay: no args => undef ' ) ;
-	is( undef, load_and_delay( 1 ), 'load_and_delay: not 4 args => undef ' ) ;
-	is( undef, load_and_delay( 0, 1, 1, 1 ), 'load_and_delay: division per 0 => undef ' ) ;
-	is(  0, load_and_delay( 1, 1, 1, 1 ), 'load_and_delay: one core, loads are all 1 => ok ' ) ;
-	is(  0, load_and_delay( 1, 1, 1, 1, 'lalala' ), 'load_and_delay: five arguments is ok' ) ;
-	is(  0, load_and_delay( 2, 2, 2, 2 ), 'load_and_delay: two core, loads are all 2 => ok ' ) ;
-	is(  0, load_and_delay( 2, 2, 4, 5 ), 'load_and_delay: two core, load1m     is 2 => ok ' ) ;
-
-# Old behavior, rather strict
-        # is(  0, load_and_delay( 1, 0, 0, 0 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=0 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 0, 2 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=2 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 2, 0 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=0 => 0 ' ) ;
-	# is(  0, load_and_delay( 1, 0, 2, 2 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-	# is(  1, load_and_delay( 1, 2, 0, 0 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-	# is(  1, load_and_delay( 1, 2, 0, 2 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-	# is(  5, load_and_delay( 1, 2, 2, 0 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-	# is( 15, load_and_delay( 1, 2, 2, 2 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
-
-	# is(  0, load_and_delay( 4, 0, 2, 2 ), 'load_and_delay: four core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-	# is(  1, load_and_delay( 4, 8, 0, 0 ), 'load_and_delay: four core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-	# is(  1, load_and_delay( 4, 8, 0, 2 ), 'load_and_delay: four core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-	# is(  5, load_and_delay( 4, 8, 8, 0 ), 'load_and_delay: four core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-	# is( 15, load_and_delay( 4, 8, 8, 8 ), 'load_and_delay: four core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
-
-# New behavior, tolerate more load
-
-        is(  0, load_and_delay( 1, 0, 0, 0 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=0 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 0, 2 ), 'load_and_delay: one core, load1m=0 load5m=0 load15m=2 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 2, 0 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=0 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 0, 2, 2 ), 'load_and_delay: one core, load1m=0 load5m=2 load15m=2 => 0 ' ) ;
-        is(  0, load_and_delay( 1, 2, 0, 0 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=0 => 1 ' ) ;
-        is(  0, load_and_delay( 1, 2, 0, 2 ), 'load_and_delay: one core, load1m=2 load5m=0 load15m=2 => 1 ' ) ;
-        is(  0, load_and_delay( 1, 2, 2, 0 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=0 => 5 ' ) ;
-        is(  0, load_and_delay( 1, 2, 2, 2 ), 'load_and_delay: one core, load1m=2 load5m=2 load15m=2 => 15 ' ) ;
-
-        is(  1, load_and_delay( 1, 4, 0, 0 ), 'load_and_delay: one core, load1m=4 load5m=0 load15m=0 => 1 ' ) ;
-        is(  1, load_and_delay( 1, 4, 0, 4 ), 'load_and_delay: one core, load1m=4 load5m=0 load15m=4 => 1 ' ) ;
-        is(  5, load_and_delay( 1, 4, 4, 0 ), 'load_and_delay: one core, load1m=4 load5m=4 load15m=0 => 5 ' ) ;
-        is( 15, load_and_delay( 1, 4, 4, 4 ), 'load_and_delay: one core, load1m=4 load5m=4 load15m=4 => 15 ' ) ;
-
-        is(  0, load_and_delay( 4, 0, 9, 9 ), 'load_and_delay: four core, load1m=0 load5m=9 load15m=9 => 0 ' ) ;
-        is(  1, load_and_delay( 4, 9, 0, 0 ), 'load_and_delay: four core, load1m=9 load5m=0 load15m=0 => 1 ' ) ;
-        is(  1, load_and_delay( 4, 9, 0, 9 ), 'load_and_delay: four core, load1m=9 load5m=0 load15m=9 => 1 ' ) ;
-        is(  5, load_and_delay( 4, 9, 9, 0 ), 'load_and_delay: four core, load1m=9 load5m=9 load15m=0 => 5 ' ) ;
-        is( 15, load_and_delay( 4, 9, 9, 9 ), 'load_and_delay: four core, load1m=9 load5m=9 load15m=9 => 15 ' ) ;
-
-        note( 'Leaving  tests_load_and_delay()' ) ;
-        return ;
-}
-
-sub load_and_delay
-{
-	# Basically return 0 if load is not heavy, ie <= 1 per processor
-
-        # Not enough arguments
-	if ( 4 > scalar @ARG ) { return ; }
-
-	my ( $cpu_num, $avg_1_min, $avg_5_min, $avg_15_min ) = @ARG ;
-
-	if ( 0 == $cpu_num ) { return ; }
-
-	# Let divide by number of cores
-	( $avg_1_min, $avg_5_min, $avg_15_min ) = map { $_ / $cpu_num } ( $avg_1_min, $avg_5_min, $avg_15_min ) ;
-	# One of avg ok => ok, for now it is a OR
-	if ( $avg_1_min <= 2 ) { return 0 ; }
-	if ( $avg_5_min <= 2 ) { return 1 ; } # Retry in 1 minute
-	if ( $avg_15_min <= 2 ) { return 5 ; } # Retry in 5 minutes
-	return 15 ; # Retry in 15 minutes
-}
-
-sub ram_memory_info
-{
-        # In GigaBytes so division by 1024 * 1024 * 1024
-	#
-	return(
-		sprintf( "%.1f/%.1f free GiB of RAM",
-                Sys::MemInfo::get("freemem") / ( $KIBI ** 3 ),
-                Sys::MemInfo::get("totalmem") / ( $KIBI ** 3 ),
-                )
-	) ;
-}
-
-
-
-sub tests_memory_stress
-{
-        note( 'Entering tests_memory_stress()' ) ;
-
-        is( undef, memory_stress(  ), 'memory_stress: => undef' ) ;
-
-        note( 'Leaving  tests_memory_stress()' ) ;
-        return ;
-}
-
-sub memory_stress
-{
-
-        my $total_ram_in_MB = Sys::MemInfo::get("totalmem") / ( $KIBI * $KIBI ) ;
-        my $i = 1 ;
-
-        myprintf("Stress memory consumption before: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ;
-        while ( $i < $total_ram_in_MB / 1.7 ) { $a .= "A" x 1000_000; $i++ } ;
-        myprintf("Stress memory consumption after: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ;
-        return ;
-
-}
-
-sub tests_memory_consumption
-{
-	note( 'Entering tests_memory_consumption()' ) ;
-
-        like( memory_consumption(  ),  qr{\d+}xms,'memory_consumption no args') ;
-        like( memory_consumption( 1 ), qr{\d+}xms,'memory_consumption 1') ;
-        like( memory_consumption( $PROCESS_ID ), qr{\d+}xms,"memory_consumption_of_pids $PROCESS_ID") ;
-
-        like( memory_consumption_ratio(), qr{\d+}xms,   'memory_consumption_ratio' ) ;
-        like( memory_consumption_ratio(1), qr{\d+}xms,  'memory_consumption_ratio 1' ) ;
-        like( memory_consumption_ratio(10), qr{\d+}xms, 'memory_consumption_ratio 10' ) ;
-
-        like( memory_consumption(), qr{\d+}xms, "memory_consumption\n" ) ;
-
-	note( 'Leaving  tests_memory_consumption()' ) ;
-        return ;
-}
-
-sub memory_consumption
-{
-        # memory consumed by imapsync until now in bytes
-        return( ( memory_consumption_of_pids(  ) )[0] );
-}
-
-sub debugmemory
-{
-        my $mysync = shift ;
-        if ( ! $mysync->{debugmemory} ) { return q{} ; }
-
-        my $precision = shift ;
-        return( mysprintf( "Memory consumption$precision: %.1f MiB\n", memory_consumption(  ) / $KIBI / $KIBI ) ) ;
-}
-
-sub memory_consumption_of_pids
-{
-
-        my @pid = @_;
-        @pid = ( @pid ) ? @pid : ( $PROCESS_ID ) ;
-
-        $sync->{ debug } and myprint( "memory_consumption_of_pids PIDs: @pid\n" ) ;
-        my @val ;
-        if ( ( 'MSWin32' eq $OSNAME ) or ( 'cygwin' eq $OSNAME ) ) {
-                @val = memory_consumption_of_pids_win32( @pid ) ;
-        }else{
-                # Unix
-                my @ps = qx{ ps -o vsz -p @pid } ;
-                #myprint( "ps: @ps" ) ;
-
-                # Use IPC::Open3 from perlcrit -3
-                # It stalls on Darwin, don't understand why!
-                #my @ps = backtick( "ps -o vsz -p @pid" ) ;
-                #myprint( "ps: @ps" ) ;
-
-                shift @ps; # First line is column name "VSZ"
-                chomp @ps;
-                # convert to octets
-
-                @val = map { $_ * $KIBI } @ps ;
-        }
-        $sync->{ debug } and myprint( "@val\n" ) ;
-        return( @val ) ;
-}
-
-sub memory_consumption_of_pids_win32
-{
-        # Windows
-        my @PID = @_;
-        my %PID;
-        # hash of pids as key values
-        map { $PID{$_}++ } @PID;
-
-        # Does not work but should work reading the tasklist documentation
-        #@ps = qx{ tasklist /FI "PID eq @PID" };
-
-        my @ps = qx{ tasklist /NH /FO CSV } ;
-        #my @ps = backtick( 'tasklist /NH /FO CSV' ) ;
-        #myprint( "-" x $STD_CHAR_PER_LINE, "\n", @ps, "-" x $STD_CHAR_PER_LINE, "\n" ) ;
-        my @val;
-        foreach my $line (@ps) {
-                my($name, $pid, $mem) = (split ',', $line )[0,1,4];
-                next if (! $pid);
-                #myprint( "[$name][$pid][$mem]" ) ;
-                if ($PID{remove_qq($pid)}) {
-                        #myprint( "MATCH !\n" ) ;
-                        chomp $mem ;
-                        $mem = remove_qq($mem);
-                        $mem = remove_Ko($mem);
-                        $mem = remove_not_num($mem);
-                        #myprint( "[$mem]\n" ) ;
-                        push @val, $mem * $KIBI;
-                }
-        }
-        return(@val);
-}
-
-
-sub tests_backtick
-{
-	note( 'Entering tests_backtick()' ) ;
-
-	is( undef, backtick( ), 'backtick: no args' ) ;
-	is( undef, backtick( q{} ), 'backtick: empty command' ) ;
-
-        SKIP: {
-                skip( 'test for MSWin32', 5 ) if ('MSWin32' ne $OSNAME) ;
-                my @output ;
-                @output = backtick( 'echo Hello World!' ) ;
-                # Add \r on Windows.
-                ok( "Hello World!\r\n" eq $output[0], 'backtick: echo Hello World!' ) ;
-                $sync->{ debug } and myprint( "[@output]" ) ;
-                @output = backtick( 'echo Hello & echo World!' ) ;
-                ok( "Hello \r\n" eq $output[0], 'backtick: echo Hello & echo World! line 1' ) ;
-                ok( "World!\r\n" eq $output[1], 'backtick: echo Hello & echo World! line 2' ) ;
-                $sync->{ debug } and myprint( "[@output][$output[0]][$output[1]]" ) ;
-		# Scalar context
-		ok( "Hello World!\r\n" eq backtick( 'echo Hello World!' ),
-		'backtick: echo Hello World! scalar' ) ;
-		ok( "Hello \r\nWorld!\r\n" eq backtick( 'echo Hello & echo World!' ),
-		'backtick: echo Hello & echo World! scalar 2 lines' ) ;
-        } ;
-        SKIP: {
-                skip( 'test for Unix', 7 ) if ('MSWin32' eq $OSNAME) ;
-		is( undef, backtick( 'aaaarrrg' ), 'backtick: aaaarrrg command not found' ) ;
-		# Array context
-                my @output ;
-                @output = backtick( 'echo Hello World!' ) ;
-                ok( "Hello World!\n" eq $output[0], 'backtick: echo Hello World!' ) ;
-                $sync->{ debug } and myprint( "[@output]" ) ;
-                @output = backtick( "echo Hello\necho World!" ) ;
-                ok( "Hello\n" eq $output[0], 'backtick: echo Hello; echo World! line 1' ) ;
-                ok( "World!\n" eq $output[1], 'backtick: echo Hello; echo World! line 2' ) ;
-                $sync->{ debug } and myprint( "[@output]" ) ;
-		# Scalar context
-		ok( "Hello World!\n" eq backtick( 'echo Hello World!' ),
-		'backtick: echo Hello World! scalar' ) ;
-		ok( "Hello\nWorld!\n" eq backtick( "echo Hello\necho World!" ),
-		'backtick: echo Hello; echo World! scalar 2 lines' ) ;
-		# Return error positive value, that's ok
-		is( undef, backtick( 'false' ), 'backtick: false returns no output' ) ;
-                my $mem = backtick( "ps -o vsz -p $PROCESS_ID" ) ;
-                $sync->{ debug } and myprint( "MEM=$mem\n" ) ;
-
-        }
-
-	note( 'Leaving  tests_backtick()' ) ;
-        return ;
-}
-
-
-sub backtick
-{
-        my $command = shift ;
-
-	if ( ! $command ) { return ; }
-
-        my ( $writer, $reader, $err ) ;
-        my @output ;
-        my $pid ;
-	my $eval = eval {
-		$pid = IPC::Open3::open3( $writer, $reader, $err, $command ) ;
-	} ;
-        if ( $EVAL_ERROR  ) {
-                myprint( $EVAL_ERROR ) ;
-                return ;
-        }
-        if ( ! $eval  ) { return ; }
-	if ( ! $pid  )  { return ; }
-	waitpid( $pid, 0 ) ;
-        @output = <$reader>;  # Output here
-	#
-        #my @errors = <$err>;    #Errors here, instead of the console
-	if ( not @output ) { return ; }
-        #myprint( @output  ) ;
-
-	if ( $output[0] =~ /\Qopen3: exec of $command failed\E/mxs ) { return ; }
-	if ( wantarray ) {
-		return( @output ) ;
-	} else {
-		return( join( q{}, @output) ) ;
-	}
-}
-
-
-
-sub tests_check_binary_embed_all_dyn_libs
-{
-        note( 'Entering tests_check_binary_embed_all_dyn_libs()' ) ;
-
-        is( 1, check_binary_embed_all_dyn_libs(  ),  'check_binary_embed_all_dyn_libs: no args => 1' ) ;
-
-        note( 'Leaving  tests_check_binary_embed_all_dyn_libs()' ) ;
-
-        return ;
-}
-
-
-sub check_binary_embed_all_dyn_libs
-{
-        my @search_dyn_lib_locale = search_dyn_lib_locale(  ) ;
-
-        if ( @search_dyn_lib_locale )
-        {
-                myprint( "Found myself $PROGRAM_NAME pid $PROCESS_ID using locale dynamic libraries that seems out of myself:\n" ) ;
-                myprint( @search_dyn_lib_locale ) ;
-                if ( $PROGRAM_NAME =~ m{imapsync_bin_Darwin} )
-                {
-                        return 0 ;
-                }
-                elsif ( $PROGRAM_NAME =~ m{imapsync.*\.exe} )
-                {
-                        return 0 ;
-                }
-                else
-                {
-                        # is always ok for non binary
-                        return 1 ;
-                }
-        }
-        else
-        {
-                # Found only embedded dynamic lib
-                myprint( "Found nothing\n" ) ;
-                return 1 ;
-        }
-}
-
-sub search_dyn_lib_locale
-{
-        if ( 'darwin' eq $OSNAME )
-        {
-                return search_dyn_lib_locale_darwin(  ) ;
-        }
-        if ( 'linux' eq $OSNAME )
-        {
-                return search_dyn_lib_locale_linux(  ) ;
-        }
-        if ( 'MSWin32' eq $OSNAME )
-        {
-                return search_dyn_lib_locale_MSWin32(  ) ;
-        }
-}
-
-sub search_dyn_lib_locale_darwin
-{
-        my $command = qq{ lsof -p $PID | grep ' REG ' | grep .dylib | grep -v '/par-' } ;
-        myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
-        return backtick( $command ) ;
-}
-
-sub search_dyn_lib_locale_linux
-{
-        my $command = qq{ lsof -p $PID | grep ' REG ' | grep -v '/tmp/par-' | grep '\.so' } ;
-        myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
-        return backtick( $command ) ;
-}
-
-sub search_dyn_lib_locale_MSWin32
-{
-        my $command = qq{ Listdlls.exe $PID|findstr Strawberry } ;
-        # $command = qq{ Listdlls.exe $PID|findstr Strawberry } ;
-        myprint( "Search non embeded dynamic libs with the command: $command\n" ) ;
-        return qx( $command ) ;
-}
-
-
-
-sub remove_not_num
-{
-
-        my $string = shift ;
-        $string =~ tr/0-9//cd ;
-        #myprint( "tr [$string]\n" ) ;
-        return( $string ) ;
-}
-
-sub tests_remove_not_num
-{
-	note( 'Entering tests_remove_not_num()' ) ;
-
-        ok( '123' eq remove_not_num( 123 ), 'remove_not_num( 123 )' ) ;
-        ok( '123' eq remove_not_num( '123' ), q{remove_not_num( '123' )} ) ;
-        ok( '123' eq remove_not_num( '12 3' ), q{remove_not_num( '12 3' )} ) ;
-        ok( '123' eq remove_not_num( 'a 12 3 Ko' ), q{remove_not_num( 'a 12 3 Ko' )} ) ;
-
-	note( 'Leaving  tests_remove_not_num()' ) ;
-        return ;
-}
-
-sub remove_Ko
-{
-        my $string = shift;
-        if ($string =~ /^(.*)\sKo$/xo) {
-                return($1);
-        }else{
-                return($string);
-        }
-}
-
-sub remove_qq
-{
-        my $string = shift;
-        if ($string =~ /^"(.*)"$/xo) {
-                return($1);
-        }else{
-                return($string);
-        }
-}
-
-sub memory_consumption_ratio
-{
-
-        my ($base) = @_;
-        $base ||= 1;
-        my $consu = memory_consumption();
-        return($consu / $base);
-}
-
-
-sub date_from_rcs
-{
-        my $d = shift ;
-
-        my %num2mon = qw( 01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec ) ;
-        if ($d =~ m{(\d{4})/(\d{2})/(\d{2})\s(\d{2}):(\d{2}):(\d{2})}xo ) {
-                # Handles the following format
-                # 2015/07/10 11:05:59 -- Generated by RCS Date tag.
-                #myprint( "$d\n" ) ;
-                #myprint( "header: [$1][$2][$3][$4][$5][$6]\n" ) ;
-                my ($year, $month, $day, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6) ;
-                $month = $num2mon{$month} ;
-                $d = "$day-$month-$year $hour:$min:$sec +0000" ;
-                #myprint( "$d\n" ) ;
-        }
-        return( $d ) ;
-}
-
-sub tests_date_from_rcs
-{
-	note( 'Entering tests_date_from_rcs()' ) ;
-
-        ok('19-Sep-2015 16:11:07 +0000'
-        eq date_from_rcs('Date: 2015/09/19 16:11:07 '), 'date_from_rcs from RCS date' ) ;
-
-	note( 'Leaving  tests_date_from_rcs()' ) ;
-        return ;
-}
-
-sub good_date
-{
-        # two incoming formats:
-        # header    Tue, 24 Aug 2010 16:00:00 +0200
-        # internal       24-Aug-2010 16:00:00 +0200
-
-        # outgoing format: internal date format
-        #   24-Aug-2010 16:00:00 +0200
-
-    my $d = shift ;
-    return(q{}) if not defined $d;
-
-        SWITCH: {
-        if ( $d =~ m{(\d?)(\d-...-\d{4})(\s\d{2}:\d{2}:\d{2})(\s(?:\+|-)\d{4})?}xo ) {
-                #myprint( "internal: [$1][$2][$3][$4]\n" ) ;
-                my ($day_1, $date_rest, $hour, $zone) = ($1,$2,$3,$4) ;
-                $day_1 = '0' if ($day_1 eq q{}) ;
-                $zone  = ' +0000'  if not defined $zone ;
-                $d = $day_1 . $date_rest . $hour . $zone ;
-                last SWITCH ;
-        }
-
-        if ($d =~ m{(?:\w{3,},\s)?(\d{1,2}),?\s+(\w{3,})\s+(\d{2,4})\s+(\d{1,2})(?::|\.)(\d{1,2})(?:(?::|\.)(\d{1,2}))?\s*((?:\+|-)\d{4})?}xo ) {
-                # Handles any combination of following formats
-                # Tue, 24 Aug 2010 16:00:00 +0200 -- Standard
-                # 24 Aug 2010 16:00:00 +0200 -- Missing Day of Week
-                # Tue, 24 Aug 97 16:00:00 +0200 -- Two digit year
-                # Tue, 24 Aug 1997 16.00.00 +0200 -- Periods instead of colons
-                # Tue, 24 Aug 1997  16:00:00 +0200 -- Extra whitespace between year and hour
-                # Tue, 24 Aug 1997 6:5:2 +0200 -- Single digit hour, min, or second
-                # Tue, 24, Aug 1997 16:00:00 +0200 -- Extra comma
-
-                #myprint( "header: [$1][$2][$3][$4][$5][$6][$7][$8]\n" ) ;
-                my ($day, $month, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7,$8);
-                $year = '19' . $year if length($year) == 2 && $year =~ m/^[789]/xo;
-                $year = '20' . $year if length($year) == 2;
-
-                $month = substr $month, 0, 3 if length($month) > 4;
-                $day  = mysprintf( '%02d', $day);
-                $hour = mysprintf( '%02d', $hour);
-                $min  = mysprintf( '%02d', $min);
-                $sec  = '00' if not defined  $sec  ;
-                $sec  = mysprintf( '%02d', $sec ) ;
-                $zone = '+0000' if not defined  $zone  ;
-                $d    = "$day-$month-$year $hour:$min:$sec $zone" ;
-                last SWITCH ;
-        }
-
-        if ($d =~ m{(?:.{3})\s(...)\s+(\d{1,2})\s(\d{1,2}):(\d{1,2}):(\d{1,2})\s(?:\w{3})?\s?(\d{4})}xo ) {
-                # Handles any combination of following formats
-                # Sun Aug 20 11:55:09 2006
-                # Wed Jan 24 11:58:38 MST 2007
-                # Wed Jan  2 08:40:57 2008
-
-                #myprint( "header: [$1][$2][$3][$4][$5][$6]\n" ) ;
-                my ($month, $day, $hour, $min, $sec, $year) = ($1,$2,$3,$4,$5,$6);
-                $day  = mysprintf( '%02d', $day  ) ;
-                $hour = mysprintf( '%02d', $hour ) ;
-                $min  = mysprintf( '%02d', $min  ) ;
-                $sec  = mysprintf( '%02d', $sec  ) ;
-                $d    = "$day-$month-$year $hour:$min:$sec +0000" ;
-                last SWITCH ;
-        }
-        my %num2mon = qw( 01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec ) ;
-
-        if ($d =~ m{(\d{4})/(\d{2})/(\d{2})\s(\d{2}):(\d{2}):(\d{2})}xo ) {
-                # Handles the following format
-                # 2015/07/10 11:05:59 -- Generated by RCS Date tag.
-                #myprint( "$d\n" ) ;
-                #myprint( "header: [$1][$2][$3][$4][$5][$6]\n" ) ;
-                my ($year, $month, $day, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6) ;
-                $month = $num2mon{$month} ;
-                $d = "$day-$month-$year $hour:$min:$sec +0000" ;
-                #myprint( "$d\n" ) ;
-                last SWITCH ;
-        }
-
-        if ($d =~ m{(\d{2})/(\d{2})/(\d{2})\s(\d{2}):(\d{2}):(\d{2})}xo ) {
-                # Handles the following format
-                # 02/06/09 22:18:08 -- Generated by AVTECH TemPageR devices
-
-                #myprint( "header: [$1][$2][$3][$4][$5][$6]\n" ) ;
-                my ($month, $day, $year, $hour, $min, $sec) = ($1,$2,$3,$4,$5,$6);
-                $year = '20' . $year;
-                $month = $num2mon{$month};
-                $d = "$day-$month-$year $hour:$min:$sec +0000";
-                last SWITCH ;
-        }
-
-        if ($d =~ m{\w{6,},\s(\w{3})\w+\s+(\d{1,2}),\s(\d{4})\s(\d{2}):(\d{2})\s(AM|PM)}xo ) {
-                # Handles the following format
-                # Saturday, December 14, 2002 05:00 PM - KBtoys.com order confirmations
-
-                my ($month, $day, $year, $hour, $min, $apm) = ($1,$2,$3,$4,$5,$6);
-
-                $hour += 12 if $apm eq 'PM' ;
-                $day = mysprintf( '%02d', $day ) ;
-                $d = "$day-$month-$year $hour:$min:00 +0000" ;
-                last SWITCH ;
-        }
-
-        if ($d =~ m{(\w{3})\s(\d{1,2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})\s((?:\+|-)\d{4})}xo ) {
-                # Handles the following format
-                # Saturday, December 14, 2002 05:00 PM - jr.com order confirmations
-
-                my ($month, $day, $year, $hour, $min, $sec, $zone) = ($1,$2,$3,$4,$5,$6,$7);
-
-                $day = mysprintf( '%02d', $day ) ;
-                $d = "$day-$month-$year $hour:$min:$sec $zone";
-                last SWITCH ;
-        }
-
-        if ($d =~ m{(\d{1,2})-(\w{3})-(\d{4})}xo ) {
-                # Handles the following format
-                # 21-Jun-2001 - register.com domain transfer email circa 2001
-
-                my ($day, $month, $year) = ($1,$2,$3);
-                $day = mysprintf( '%02d', $day);
-                $d = "$day-$month-$year 11:11:11 +0000";
-                last SWITCH ;
-        }
-
-        # unknown or unmatch => return same string
-        return($d);
-    }
-
-    $d = qq("$d") ;
-    return( $d ) ;
-}
-
-
-sub tests_good_date
-{
-	note( 'Entering tests_good_date()' ) ;
-
-        ok(q{} eq good_date(), 'good_date no arg');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24-Aug-2010 16:00:00 +0200'), 'good_date internal 2digit zone');
-        ok('"24-Aug-2010 16:00:00 +0000"' eq good_date('24-Aug-2010 16:00:00'), 'good_date internal 2digit no zone');
-        ok('"01-Sep-2010 16:00:00 +0200"' eq good_date( '1-Sep-2010 16:00:00 +0200'), 'good_date internal SP 1digit');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('Tue, 24 Aug 2010 16:00:00 +0200'), 'good_date header 2digit zone');
-        ok('"01-Sep-2010 16:00:00 +0000"' eq good_date('Wed, 1 Sep 2010 16:00:00'), 'good_date header SP 1digit zone');
-        ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200'), 'good_date header SP 1digit zone');
-        ok('"01-Sep-2010 16:00:00 +0200"' eq good_date('Wed, 1 Sep 2010 16:00:00 +0200 (CEST)'), 'good_date header SP 1digit zone');
-        ok('"06-Feb-2009 22:18:08 +0000"' eq good_date('02/06/09 22:18:08'), 'good_date header TemPageR');
-        ok('"02-Jan-2008 08:40:57 +0000"' eq good_date('Wed Jan  2 08:40:57 2008'), 'good_date header dice.com support 1digit day');
-        ok('"20-Aug-2006 11:55:09 +0000"' eq good_date('Sun Aug 20 11:55:09 2006'), 'good_date header dice.com support 2digit day');
-        ok('"24-Jan-2007 11:58:38 +0000"' eq good_date('Wed Jan 24 11:58:38 MST 2007'), 'good_date header status-now.com');
-        ok('"24-Aug-2010 16:00:00 +0200"' eq good_date('24 Aug 2010 16:00:00 +0200'), 'good_date header missing date of week');
-        ok('"24-Aug-2067 16:00:00 +0200"' eq good_date('Tue, 24 Aug 67 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1977 16:00:00 +0200"' eq good_date('Tue, 24 Aug 77 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1987 16:00:00 +0200"' eq good_date('Tue, 24 Aug 87 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 97 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-2004 16:00:00 +0200"' eq good_date('Tue, 24 Aug 04 16:00:00 +0200'), 'good_date header 2digit year');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997 16.00.00 +0200'), 'good_date header period time sep');
-        ok('"24-Aug-1997 16:00:00 +0200"' eq good_date('Tue, 24 Aug 1997 16:00:00 +0200'), 'good_date header extra white space type1');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24 Aug 1997 5:6:2 +0200'), 'good_date header 1digit time vals');
-        ok('"24-Aug-1997 05:06:02 +0200"' eq good_date('Tue, 24, Aug 1997 05:06:02 +0200'), 'good_date header extra commas');
-        ok('"01-Oct-2003 12:45:24 +0000"' eq good_date('Wednesday, 01 October 2003 12:45:24 CDT'), 'good_date header no abbrev');
-        ok('"11-Jan-2005 17:58:27 -0500"' eq good_date('Tue,  11 Jan 2005 17:58:27 -0500'), 'good_date extra white space');
-        ok('"18-Dec-2002 15:07:00 +0000"' eq good_date('Wednesday, December 18, 2002 03:07 PM'), 'good_date kbtoys.com orders');
-        ok('"16-Dec-2004 02:01:49 -0500"' eq good_date('Dec 16 2004 02:01:49 -0500'), 'good_date jr.com orders');
-        ok('"21-Jun-2001 11:11:11 +0000"' eq good_date('21-Jun-2001'), 'good_date register.com domain transfer');
-        ok('"18-Nov-2012 18:34:38 +0100"' eq good_date('Sun, 18 Nov 2012 18:34:38 +0100'), 'good_date pop2imap bug (Westeuropäische Normalzeit)');
-        ok('"19-Sep-2015 16:11:07 +0000"' eq good_date('Date: 2015/09/19 16:11:07 '), 'good_date from RCS date' ) ;
-
-	note( 'Leaving  tests_good_date()' ) ;
-        return ;
-}
-
-
-sub tests_list_keys_in_2_not_in_1
-{
-	note( 'Entering tests_list_keys_in_2_not_in_1()' ) ;
-
-
-        my @list;
-        ok( ! list_keys_in_2_not_in_1( {}, {}), 'list_keys_in_2_not_in_1: {} {}');
-        ok( 0 == compare_lists( [], [ list_keys_in_2_not_in_1( {}, {} ) ] ), 'list_keys_in_2_not_in_1: {} {}');
-        ok( 0 == compare_lists( ['a','b'], [ list_keys_in_2_not_in_1( {}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {} {a, b}');
-        ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a} {a, b}');
-        ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b} {a, b}');
-        ok( 0 == compare_lists( [],        [ list_keys_in_2_not_in_1( {'a' => 1, 'b' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-        ok( 0 == compare_lists( ['b'],     [ list_keys_in_2_not_in_1( {'a' => 1, 'c' => 1}, {'a' => 1, 'b' => 1}) ]), 'list_keys_in_2_not_in_1: {a, b, c} {a, b}');
-
-	note( 'Leaving  tests_list_keys_in_2_not_in_1()' ) ;
-        return ;
-}
-
-sub list_keys_in_2_not_in_1
-{
-        my $hash_1_ref = shift;
-        my $hash_2_ref = shift;
-        my @list;
-
-        foreach my $key ( sort keys %{ $hash_2_ref } ) {
-                #$debug and print "$folder\n" ;
-                next if exists $hash_1_ref->{$key} ;
-                push @list, $key ;
-        }
-        #$debug and print "@list\n" ;
-        return( @list ) ;
-}
-
-
-sub list_folders_in_2_not_in_1
-{
-
-        my ( @h2_folders_not_in_h1, %h2_folders_not_in_h1 ) ;
-        @h2_folders_not_in_h1 = list_keys_in_2_not_in_1( \%h1_folders_all, \%h2_folders_all ) ;
-        map { $h2_folders_not_in_h1{$_} = 1} @h2_folders_not_in_h1 ;
-        @h2_folders_not_in_h1 = list_keys_in_2_not_in_1( \%h2_folders_from_1_all, \%h2_folders_not_in_h1 ) ;
-
-        return( reverse @h2_folders_not_in_h1 ) ;
-}
-
-sub tests_nb_messages_in_2_not_in_1
-{
-        note( 'Entering tests_stats_across_folders()' ) ;
-        is( undef, nb_messages_in_2_not_in_1(  ), 'nb_messages_in_2_not_in_1: no args => undef' ) ;
-
-        my $mysync->{ h1_folders_of_md5 }->{ 'some_id_01' }->{ 'some_folder_01' } = 1 ;
-        is( 0, nb_messages_in_2_not_in_1( $mysync ), 'nb_messages_in_2_not_in_1: no messages in 2 => 0' ) ;
-
-        $mysync->{ h1_folders_of_md5 }->{ 'some_id_in_1_and_2' }->{ 'some_folder_01' } = 2 ;
-        $mysync->{ h2_folders_of_md5 }->{ 'some_id_in_1_and_2' }->{ 'some_folder_02' } = 4 ;
-
-        is( 0, nb_messages_in_2_not_in_1( $mysync ), 'nb_messages_in_2_not_in_1: a common message => 0' ) ;
-
-        $mysync->{ h2_folders_of_md5 }->{ 'some_id_in_2_not_in_1' }->{ 'some_folder_02' } = 1 ;
-        is( 1, nb_messages_in_2_not_in_1( $mysync ), 'nb_messages_in_2_not_in_1: one message in_2_not_in_1 => 1' ) ;
-
-        $mysync->{ h2_folders_of_md5 }->{ 'some_other_id_in_2_not_in_1' }->{ 'some_folder_02' } = 3 ;
-        is( 2, nb_messages_in_2_not_in_1( $mysync ), 'nb_messages_in_2_not_in_1: two messages in_2_not_in_1 => 2' ) ;
-
-        note( 'Leaving  tests_stats_across_folders()' ) ;
-        return ;
-}
-
-sub nb_messages_in_2_not_in_1
-{
-        my $mysync = shift ;
-        if ( not defined $mysync ) { return ; }
-
-        $mysync->{ nb_messages_in_2_not_in_1 } = scalar(
-                list_keys_in_2_not_in_1(
-                        $mysync->{ h1_folders_of_md5 },
-                        $mysync->{ h2_folders_of_md5 } ) ) ;
-
-        return $mysync->{ nb_messages_in_2_not_in_1 } ;
-}
-
-
-sub nb_messages_in_1_not_in_2
-{
-        my $mysync = shift ;
-        if ( not defined $mysync ) { return ; }
-
-        $mysync->{ nb_messages_in_1_not_in_2 }  = scalar(
-                list_keys_in_2_not_in_1(
-                        $mysync->{ h2_folders_of_md5 },
-                        $mysync->{ h1_folders_of_md5 } ) ) ;
-
-        return $mysync->{ nb_messages_in_1_not_in_2 }  ;
-}
-
-
-
-sub comment_on_final_diff_in_1_not_in_2
-{
-        my $mysync = shift ;
-
-        if ( not defined $mysync
-             or $mysync->{ justfolders }
-             or $mysync->{ useuid }
-        )
-        {
-                return ;
-        }
-
-        my $nb_identified_h1_messages = scalar( keys %{ $mysync->{ h1_folders_of_md5 } } ) ;
-        my $nb_identified_h2_messages = scalar( keys %{ $mysync->{ h2_folders_of_md5 } } ) ;
-        $mysync->{ debug } and myprint( "nb_keys h1_folders_of_md5 $nb_identified_h1_messages\n" ) ;
-        $mysync->{ debug } and myprint( "nb_keys h2_folders_of_md5 $nb_identified_h2_messages\n" ) ;
-
-        if ( 0 == $nb_identified_h1_messages ) { return ; }
-
-        # Calculate if not yet done
-        if ( not defined $mysync->{ nb_messages_in_1_not_in_2 } )
-        {
-                nb_messages_in_1_not_in_2( $mysync ) ;
-        }
-
-
-        if ( 0 == $mysync->{ nb_messages_in_1_not_in_2 } )
-        {
-                myprint( "The sync looks good, all $nb_identified_h1_messages identified messages in host1 are on host2.\n" ) ;
-        }
-        else
-        {
-                myprint( "The sync is not finished, there are $mysync->{ nb_messages_in_1_not_in_2 } identified messages in host1 that are not on host2.\n" ) ;
-        }
-
-        if ( 1 <= $mysync->{ h1_nb_msg_noheader } )
-        {
-                myprint( "There are $mysync->{ h1_nb_msg_noheader } unidentified messages (usually Sent or Draft messages). To sync them add option --addheader\n" ) ;
-        }
-
-        return ;
-}
-
-sub comment_on_final_diff_in_2_not_in_1
-{
-        my $mysync = shift ;
-
-        if ( not defined $mysync
-             or $mysync->{ justfolders }
-             or $mysync->{ useuid }
-        )
-        {
-                return ;
-        }
-
-        my $nb_identified_h2_messages = scalar( keys %{ $mysync->{ h2_folders_of_md5 } } ) ;
-        # Calculate if not yet done
-        if ( not defined $mysync->{ nb_messages_in_2_not_in_1 } )
-        {
-                nb_messages_in_2_not_in_1( $mysync ) ;
-        }
-
-        if ( 0 == $mysync->{ nb_messages_in_2_not_in_1 } )
-        {
-                myprint( "The sync is strict,  all $nb_identified_h2_messages identified messages in host2 are on host1.\n" ) ;
-        }
-        else
-        {
-                myprint( "The sync is not strict, there are ",
-                        $mysync->{ nb_messages_in_2_not_in_1 },
-                        " messages in host2 that are not on host1.",
-                        " Use --delete2 to delete them and have a strict sync.\n" ) ;
-        }
-        return ;
-}
-
-
-sub tests_match
-{
-        note( 'Entering tests_match()' ) ;
-
-        # undef serie
-        is( undef, match(  ), 'match: no args => undef' ) ;
-        is( undef, match( 'lalala' ), 'match: one args => undef' ) ;
-
-        # This one gives 0 under a binary made by pp
-        # but 1 under "normal" Perl interpreter. So a PAR bug?
-        #is( 1, match( q{}, q{} ),                'match: q{}      =~ q{}      => 1' ) ;
-
-        is( 'lalala', match( 'lalala', 'lalala' ),      'match: lalala   =~ lalala => lalala' ) ;
-        is( 'lalala', match( 'lalala', '^lalala' ),     'match: lalala   =~ ^lalala  => lalala' ) ;
-        is( 'lalala', match( 'lalala',  'lalala$' ),    'match: lalala   =~ lalala$  => lalala' ) ;
-        is( 'lalala', match( 'lalala', '^lalala$' ),    'match: lalala   =~ ^lalala$ => lalala' ) ;
-        is( '_lalala_', match( '_lalala_', 'lalala' ),    'match: _lalala_ =~ lalala   => _lalala_' ) ;
-        is( 'lalala', match( 'lalala', '.*' ),          'match: lalala   =~ .*       => lalala' ) ;
-        is( 'lalala', match( 'lalala', '.' ),           'match: lalala   =~ .        => lalala' ) ;
-        is( '/lalala/', match( '/lalala/', '/lalala/' ),  'match: /lalala/ =~ /lalala/ => /lalala/' ) ;
-
-        is( 0, match( 'foo', 's/foo/bar/g' ),  'match: foo =~ s/foo/bar/g => 0' ) ;
-        is( 's/foo/bar/g', match( 's/foo/bar/g', 's/foo/bar/g' ),  'match: s/foo/bar/g =~ s/foo/bar/g => s/foo/bar/g' ) ;
-
-
-        is( 0, match( 'lalala', 'ooo' ),         'match: lalala   =~ ooo      => 0' ) ;
-        is( 0, match( 'lalala', 'lal_ala' ),     'match: lalala   =~ lal_ala  => 0' ) ;
-        is( 0, match( 'lalala', '\.' ),          'match: lalala   =~ \.       => 0' ) ;
-        is( 0, match( 'lalalaX', '^lalala$' ),   'match: lalalaX  =~ ^lalala$ => 0' ) ;
-        is( 0, match( 'lalala', '/lalala/' ),    'match: lalala   =~ /lalala/ => 0' ) ;
-
-	is( 'LALALA', match( 'LALALA', '(?i:lalala)' ),           'match: LALALA   =~ (?i:lalala) => 1' ) ;
-
-	is( undef, match( 'LALALA', '(?{`ls /`})' ),       'match: LALALA   =~ (?{`ls /`})       => undef' ) ;
-	is( undef, match( 'LALALA', '(?{print "CACA"})' ), 'match: LALALA   =~ (?{print "CACA"}) => undef' ) ;
-	is( undef, match( 'CACA', '(??{print "CACA"})' ),  'match: CACA     =~ (??{print "CACA"}) => undef' ) ;
-
-	note( 'Leaving  tests_match()' ) ;
-
-	return ;
-}
-
-sub match
-{
-	my( $var, $regex ) = @ARG ;
-
-	# undef cases
-	if ( ( ! defined $var ) or ( ! defined $regex ) ) { return ; }
-
-	# normal cases
-	if ( eval { $var =~ qr{$regex} } ) {
-		return $var ;
-	}elsif ( $EVAL_ERROR ) {
-		myprint( "Fatal regex $regex\n" ) ;
-		return ;
-	} else {
-		return 0 ;
-	}
-	return ;
-}
-
-
-sub tests_notmatch
-{
-	note( 'Entering tests_notmatch()' ) ;
-
-	# undef serie
-	is( undef, notmatch(  ), 'notmatch: no args => undef' ) ;
-	is( undef, notmatch( 'lalala' ), 'notmatch: one args => undef' ) ;
-
-	is( 1, notmatch( 'lalala', '/lalala/' ),   'notmatch: lalala   !~ /lalala/ => 1' ) ;
-	is( 0, notmatch( '/lalala/', '/lalala/' ), 'notmatch: /lalala/ !~ /lalala/ => 0' ) ;
-	is( 1, notmatch( 'lalala', '/ooo/' ),      'notmatch: lalala   !~ /ooo/    => 1' ) ;
-
-	# This one gives 1 under a binary made by pp
-	# but 0 under "normal" Perl interpreter. So a PAR bug, same in tests_match .
-	#is( 0, notmatch( q{}, q{} ),             'notmatch: q{}      !~ q{}      => 0' ) ;
-
-	is( 0, notmatch( 'lalala', 'lalala' ),   'notmatch: lalala   !~ lalala   => 0' ) ;
-	is( 0, notmatch( 'lalala', '^lalala' ),  'notmatch: lalala   !~ ^lalala  => 0' ) ;
-	is( 0, notmatch( 'lalala',  'lalala$' ), 'notmatch: lalala   !~ lalala$  => 0' ) ;
-	is( 0, notmatch( 'lalala', '^lalala$' ), 'notmatch: lalala   !~ ^lalala$ => 0' ) ;
-	is( 0, notmatch( '_lalala_', 'lalala' ), 'notmatch: _lalala_ !~ lalala   => 0' ) ;
-	is( 0, notmatch( 'lalala', '.*' ),       'notmatch: lalala   !~ .*       => 0' ) ;
-	is( 0, notmatch( 'lalala', '.' ),        'notmatch: lalala   !~ .        => 0' ) ;
-
-
-	is( 1, notmatch( 'lalala', 'ooo' ), 'notmatch: does not match regex => 1' ) ;
-	is( 1, notmatch( 'lalala', 'lal_ala' ), 'notmatch: does not match regex => 1' ) ;
-	is( 1, notmatch( 'lalala', '\.' ), 'notmatch: matches regex => 0' ) ;
-	is( 1, notmatch( 'lalalaX', '^lalala$' ), 'notmatch: does not match regex => 1' ) ;
-
-	note( 'Leaving  tests_notmatch()' ) ;
-
-	return ;
-}
-
-sub notmatch
-{
-	my( $var, $regex ) = @ARG ;
-
-	# undef cases
-	if ( ( ! defined $var ) or ( ! defined $regex ) ) { return ; }
-
-	# normal cases
-	if ( eval { $var !~ $regex } ) {
-		return 1 ;
-	}elsif ( $EVAL_ERROR ) {
-		myprint( "Fatal regex $regex\n" ) ;
-		return ;
-	}else{
-		return 0 ;
-	}
-	return ;
-}
-
-
-sub delete_folders_in_2_not_in_1
-{
-
-        foreach my $folder (@h2_folders_not_in_1) {
-                if ( defined  $delete2foldersonly  and eval "\$folder !~ $delete2foldersonly" ) {
-                        myprint( "Not deleting $folder because of --delete2foldersonly $delete2foldersonly\n" ) ;
-                        next ;
-                }
-                if ( defined  $delete2foldersbutnot  and eval "\$folder =~ $delete2foldersbutnot" ) {
-                        myprint( "Not deleting $folder because of --delete2foldersbutnot $delete2foldersbutnot\n" ) ;
-                        next ;
-                }
-                my $res = $sync->{dry} ; # always success in dry mode!
-                $sync->{imap2}->unsubscribe( $folder ) if ( ! $sync->{dry} ) ;
-                $res = $sync->{imap2}->delete( $folder ) if ( ! $sync->{dry} ) ;
-                if ( $res ) {
-                        myprint( "Deleted $folder", "$sync->{dry_message}", "\n" ) ;
-                }else{
-                        myprint( "Deleting $folder failed", "\n" ) ;
-                }
-        }
-        return ;
-}
-
-sub delete_folder
-{
-        my ( $mysync, $imap, $folder, $Side ) = @_ ;
-        if ( ! $mysync )   { return ; }
-        if ( ! $imap )   { return ; }
-        if ( ! $folder ) { return ; }
-        $Side ||= 'HostX' ;
-
-        my $res = $mysync->{dry} ; # always success in dry mode!
-        if ( ! $mysync->{dry} ) {
-                $imap->unsubscribe( $folder ) ;
-                $res = $imap->delete( $folder ) ;
-        }
-        if ( $res ) {
-                myprint( "$Side deleted $folder", $mysync->{dry_message}, "\n" ) ;
-                return 1 ;
-        }else{
-                myprint( "$Side deleting $folder failed", "\n" ) ;
-                return ;
-        }
-}
-
-sub delete1emptyfolders
-{
-        my $mysync = shift ;
-        if ( ! $mysync ) { return ; } # abort if no parameter
-        if ( ! $mysync->{delete1emptyfolders} ) { return ; } # abort if --delete1emptyfolders off
-        my $imap = $mysync->{imap1} ;
-        if ( ! $imap ) { return ; } # abort if no imap
-        if ( $imap->IsUnconnected(  ) ) { return ; } # abort if disconnected
-
-        my %folders_kept ;
-        myprint( qq{Host1 deleting empty folders\n} ) ;
-        foreach my $folder ( reverse sort @{ $mysync->{h1_folders_wanted} } ) {
-                my $parenthood = $imap->is_parent( $folder ) ;
-                if ( defined $parenthood and $parenthood ) {
-                        myprint( "Host1: folder $folder has subfolders\n" ) ;
-                        $folders_kept{ $folder }++ ;
-                        next ;
-                }
-                my $nb_messages_select = examine_folder_and_count( $mysync, $imap, $folder, 'Host1' ) ;
-                if ( ! defined $nb_messages_select ) { next ; } # Select failed => Neither continue nor keep this folder }
-                my $nb_messages_search = scalar( @{ $imap->messages(  ) } ) ;
-                if ( 0 != $nb_messages_select and 0 != $nb_messages_search ) {
-                        myprint( "Host1: folder $folder has messages: $nb_messages_search (search) $nb_messages_select (select)\n" ) ;
-                        $folders_kept{ $folder }++ ;
-                        next ;
-                }
-                if ( 0 != $nb_messages_select + $nb_messages_search ) {
-                        myprint( "Host1: folder $folder odd messages count: $nb_messages_search (search) $nb_messages_select (select)\n" ) ;
-                        $folders_kept{ $folder }++ ;
-                        next ;
-                }
-                # Here we must have 0 messages by messages() aka "SEARCH ALL" and also "EXAMINE"
-                if ( uc $folder eq 'INBOX' ) {
-                        myprint( "Host1: Not deleting $folder\n" ) ;
-                        $folders_kept{ $folder }++ ;
-                        next ;
-                }
-                myprint( "Host1: deleting empty folder $folder\n" ) ;
-                # can not delete a SELECTed or EXAMINEd folder so closing it
-                # could changed be SELECT INBOX
-                $imap->close(  ) ; # close after examine does not expunge; anyway expunging an empty folder...
-                if ( delete_folder( $mysync, $imap, $folder, 'Host1' ) ) {
-                        next ; # Deleted, good!
-                }else{
-                        $folders_kept{ $folder }++ ;
-                        next ; # Not deleted, bad!
-                }
-        }
-        remove_deleted_folders_from_wanted_list( $mysync, %folders_kept ) ;
-        myprint( qq{Host1 ended deleting empty folders\n} ) ;
-        return ;
-}
-
-sub remove_deleted_folders_from_wanted_list
-{
-        my ( $mysync, %folders_kept ) = @ARG ;
-
-        my @h1_folders_wanted_init = @{ $mysync->{h1_folders_wanted} } ;
-        my @h1_folders_wanted_last ;
-        foreach my $folder ( @h1_folders_wanted_init ) {
-                if ( $folders_kept{ $folder } ) {
-                        push @h1_folders_wanted_last, $folder ;
-                }
-        }
-        @{ $mysync->{h1_folders_wanted} } = @h1_folders_wanted_last ;
-        return ;
-}
-
-
-sub examine_folder_and_count
-{
-        my ( $mysync, $imap, $folder, $Side ) = @_ ;
-        $Side ||= 'HostX' ;
-
-        if ( ! examine_folder( $mysync, $imap, $folder, $Side ) ) {
-                return ;
-        }
-        my $nb_messages_select = count_from_select( $imap->History ) ;
-        return $nb_messages_select ;
-}
-
-
-sub tests_delete1emptyfolders
-{
-	note( 'Entering tests_delete1emptyfolders()' ) ;
-
-
-        is( undef, delete1emptyfolders(  ), q{delete1emptyfolders: undef} ) ;
-        my $syncT ;
-        is( undef, delete1emptyfolders( $syncT ), q{delete1emptyfolders: undef 2} ) ;
-        my $imapT ;
-        $syncT->{imap1} = $imapT ;
-        is( undef, delete1emptyfolders( $syncT ), q{delete1emptyfolders: undef imap} ) ;
-
-        require_ok( "Test::MockObject" ) ;
-        $imapT = Test::MockObject->new(  ) ;
-        $syncT->{imap1} = $imapT ;
-
-        $imapT->set_true( 'IsUnconnected' ) ;
-        is( undef, delete1emptyfolders( $syncT ), q{delete1emptyfolders: Unconnected imap} ) ;
-
-        # Now connected tests
-        $imapT->set_false( 'IsUnconnected' ) ;
-        $imapT->mock( 'LastError', sub { q{LastError mocked} } ) ;
-
-        $syncT->{delete1emptyfolders} = 0 ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX DELME1 DELME2 } ],
-                q{tests_delete1emptyfolders: --delete1emptyfolders OFF}
-        ) ;
-
-        # All are parents => no deletion at all
-        $imapT->set_true( 'is_parent' ) ;
-        $syncT->{delete1emptyfolders} = 1 ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX DELME1 DELME2 } ],
-                q{tests_delete1emptyfolders: --delete1emptyfolders ON}
-        ) ;
-
-        # No parents but examine false for all => skip all
-        $imapT->set_false( 'is_parent', 'examine' ) ;
-
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [  ],
-                q{tests_delete1emptyfolders: EXAMINE fails}
-        ) ;
-
-        # examine ok for all but History bad => skip all
-        $imapT->set_true( 'examine' ) ;
-        $imapT->mock( 'History', sub { ( q{History badly mocked} ) } ) ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [  ],
-                q{tests_delete1emptyfolders: examine ok but History badly mocked so count messages fails}
-        ) ;
-
-        # History good but some messages EXISTS == messages() => no deletion
-        $imapT->mock( 'History', sub { ( q{* 2 EXISTS} ) } ) ;
-        $imapT->mock( 'messages', sub { [ qw{ UID_1 UID_2 } ] } ) ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX DELME1 DELME2 } ],
-                q{tests_delete1emptyfolders: History EXAMINE ok, several messages}
-        ) ;
-
-        # 0 EXISTS but != messages() => no deletion
-        $imapT->mock( 'History', sub { ( q{* 0 EXISTS} ) } ) ;
-        $imapT->mock( 'messages', sub { [ qw{ UID_1 UID_2 } ] } ) ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX DELME1 DELME2 } ],
-                q{tests_delete1emptyfolders: 0 EXISTS but 2 by messages()}
-        ) ;
-
-        # 1 EXISTS but != 0 == messages() => no deletion
-        $imapT->mock( 'History', sub { ( q{* 1 EXISTS} ) } ) ;
-        $imapT->mock( 'messages', sub { [ ] } ) ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX DELME1 DELME2 } ],
-                q{tests_delete1emptyfolders: 1 EXISTS but 0 by messages()}
-        ) ;
-
-        # 0 EXISTS and 0 == messages() => deletion except INBOX
-        $imapT->mock( 'History', sub { ( q{* 0 EXISTS} ) } ) ;
-        $imapT->mock( 'messages', sub { [ ] } ) ;
-        $imapT->set_true( qw{ delete close unsubscribe } ) ;
-        $syncT->{dry_message} = q{ (not really since in a mocked test)} ;
-        tests_delete1emptyfolders_unit(
-                $syncT,
-                [ qw{ INBOX DELME1 DELME2 } ],
-                [ qw{ INBOX } ],
-                q{tests_delete1emptyfolders: 0 EXISTS 0 by messages() delete folders, keep INBOX}
-        ) ;
-
-	note( 'Leaving  tests_delete1emptyfolders()' ) ;
-        return ;
-}
-
-sub tests_delete1emptyfolders_unit
-{
-	note( 'Entering tests_delete1emptyfolders_unit()' ) ;
-
-        my $syncT  = shift ;
-        my $folders1wanted_init_ref = shift ;
-        my $folders1wanted_after_ref = shift ;
-        my $comment = shift || q{delete1emptyfolders:} ;
-
-        my @folders1wanted_init  = @{ $folders1wanted_init_ref } ;
-        my @folders1wanted_after = @{ $folders1wanted_after_ref } ;
-
-        @{ $syncT->{h1_folders_wanted} } = @folders1wanted_init ;
-
-        is_deeply( $syncT->{h1_folders_wanted}, \@folders1wanted_init, qq{$comment, init check} ) ;
-        delete1emptyfolders( $syncT ) ;
-        is_deeply( $syncT->{h1_folders_wanted}, \@folders1wanted_after, qq{$comment, after check} ) ;
-
-	note( 'Leaving  tests_delete1emptyfolders_unit()' ) ;
-        return ;
-}
-
-sub extract_header
-{
-        my $string = shift ;
-
-        my ( $header ) = split  /\n\n/x, $string ;
-        if ( ! $header ) { return( q{} ) ; }
-        #myprint( "[$header]\n" ) ;
-        return( $header ) ;
-}
-
-sub tests_extract_header
-{
-	note( 'Entering tests_extract_header()' ) ;
-
-my $h = <<'EOM';
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-EOM
-chomp $h ;
-ok( $h eq extract_header(
-<<'EOM'
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-
-body
-lalala
-EOM
-), 'extract_header: 1') ;
-
-
-
-	note( 'Leaving  tests_extract_header()' ) ;
-        return ;
-}
-
-sub decompose_header{
-        my $string = shift ;
-
-        # a hash, for a keyword header KEY value are list of strings [VAL1, VAL1_other, etc]
-        # Think of multiple "Received:" header lines.
-        my $header = {  } ;
-
-        my ($key, $val ) ;
-        my @line = split /\n|\r\n/x, $string ;
-        foreach my $line ( @line ) {
-                #myprint( "DDD $line\n" ) ;
-                # End of header
-                last if ( $line =~ m{^$}xo ) ;
-                # Key: value
-                if ( $line =~ m/(^[^:]+):\s(.*)/xo ) {
-                        $key = $1 ;
-                        $val = $2 ;
-                        $debugdev and myprint( "DDD KV [$key] [$val]\n" ) ;
-                        push  @{ $header->{ $key } }, $val  ;
-                # blanc and value => value from previous line continues
-                }elsif( $line =~ m/^(\s+)(.*)/xo ) {
-                        $val = $2 ;
-                        $debugdev and myprint( "DDD V [$val]\n" ) ;
-                        @{ $header->{ $key } }[ $LAST ] .= " $val" if $key ;
-                # dirty line?
-                }else{
-                        next ;
-                }
-        }
-
-        #myprint( Data::Dumper->Dump( [ $header ] )  ) ;
-
-        return( $header ) ;
-}
-
-
-sub tests_decompose_header{
-	note( 'Entering tests_decompose_header()' ) ;
-
-
-        my $header_dec ;
-
-        $header_dec = decompose_header(
-<<'EOH'
-KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-KEY_4: VAL_4
-        VAL_4_+
-KEY_5 BLANC:  VAL_5
-
-KEY_6_BAD_BODY: VAL_6
-EOH
-        ) ;
-
-        ok( 'VAL_3'
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: VAL_3' ) ;
-
-        ok( 'VAL_1'
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: VAL_1' ) ;
-
-        ok( 'VAL_1_other'
-        eq $header_dec->{ 'KEY_1' }[1], 'decompose_header: VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++'
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-        ok( 'VAL_4 VAL_4_+'
-        eq $header_dec->{ 'KEY_4' }[0], 'decompose_header: VAL_4 VAL_4_+' ) ;
-
-        ok( ' VAL_5'
-        eq $header_dec->{ 'KEY_5 BLANC' }[0], 'decompose_header: KEY_5 BLANC' ) ;
-
-        ok( not( defined  $header_dec->{ 'KEY_6_BAD_BODY' }[0]  ), 'decompose_header: KEY_6_BAD_BODY' ) ;
-
-
-        $header_dec = decompose_header(
-<<'EOH'
-Message-Id: <20100428101817.A66CB162474E@plume.est.belle>
-Date: Wed, 28 Apr 2010 12:18:17 +0200 (CEST)
-From: gilles@louloutte.dyndns.org (Gilles LAMIRAL)
-EOH
-        ) ;
-
-        ok( '<20100428101817.A66CB162474E@plume.est.belle>'
-        eq $header_dec->{ 'Message-Id' }[0], 'decompose_header: 1' ) ;
-
-        $header_dec = decompose_header(
-<<'EOH'
-Return-Path: <gilles@louloutte.dyndns.org>
-Received: by plume.est.belle (Postfix, from userid 1000)
-        id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)
-Subject: test:eekahceishukohpe
-EOH
-) ;
-        ok(
-'by plume.est.belle (Postfix, from userid 1000) id 120A71624742; Wed, 28 Apr 2010 01:46:40 +0200 (CEST)'
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 2' ) ;
-
-        $header_dec = decompose_header(
-<<'EOH'
-Received: from plume (localhost [127.0.0.1])
-        by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9
-        for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-Received: from plume [192.168.68.7]
-        by plume with POP3 (fetchmail-6.3.6)
-        for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)
-EOH
-        ) ;
-        ok(
-        'from plume (localhost [127.0.0.1]) by plume.est.belle (Postfix) with ESMTP id C6EB73F6C9 for <gilles@localhost>; Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[0], 'decompose_header: 3' ) ;
-        ok(
-        'from plume [192.168.68.7] by plume with POP3 (fetchmail-6.3.6) for <gilles@localhost> (single-drop); Mon, 26 Nov 2007 10:39:06 +0100 (CET)'
-        eq $header_dec->{ 'Received' }[1], 'decompose_header: 3' ) ;
-
-# Bad header beginning with a blank character
-        $header_dec = decompose_header(
-<<'EOH'
- KEY_1: VAL_1
-KEY_2: VAL_2
-  VAL_2_+
-        VAL_2_++
-KEY_3: VAL_3
-KEY_1: VAL_1_other
-EOH
-        ) ;
-
-        ok( 'VAL_3'
-        eq $header_dec->{ 'KEY_3' }[0], 'decompose_header: Bad header VAL_3' ) ;
-
-        ok( 'VAL_1_other'
-        eq $header_dec->{ 'KEY_1' }[0], 'decompose_header: Bad header VAL_1_other' ) ;
-
-        ok( 'VAL_2 VAL_2_+ VAL_2_++'
-        eq $header_dec->{ 'KEY_2' }[0], 'decompose_header: Bad header VAL_2 VAL_2_+ VAL_2_++' ) ;
-
-	note( 'Leaving  tests_decompose_header()' ) ;
-        return ;
-}
-
-sub tests_epoch
-{
-	note( 'Entering tests_epoch()' ) ;
-
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:00:00 +0200' ), 'epoch 24-Aug-2010 16:00:00 +0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:00:00 +0000' ), 'epoch 24-Aug-2010 14:00:00 +0000 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 12:00:00 -0200' ), 'epoch 24-Aug-2010 12:00:00 -0200 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 16:01:00 +0201' ), 'epoch 24-Aug-2010 16:01:00 +0201 -> 1282658400' ) ;
-        ok( '1282658400' eq epoch( '24-Aug-2010 14:01:00 +0001' ), 'epoch 24-Aug-2010 14:01:00 +0001 -> 1282658400' ) ;
-
-        ok( '1280671200' eq epoch( '1-Aug-2010 16:00:00 +0200' ), 'epoch 1-Aug-2010 16:00:00 +0200 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 14:00:00 +0000' ), 'epoch 1-Aug-2010 14:00:00 +0000 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 12:00:00 -0200' ), 'epoch 1-Aug-2010 12:00:00 -0200 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 16:01:00 +0201' ), 'epoch 1-Aug-2010 16:01:00 +0201 -> 1280671200' ) ;
-        ok( '1280671200' eq epoch( '1-Aug-2010 14:01:00 +0001' ), 'epoch 1-Aug-2010 14:01:00 +0001 -> 1280671200' ) ;
-
-        is( '1280671200', epoch( '1-Aug-2010 14:01:00 +0001' ), 'epoch 1-Aug-2010 14:01:00 +0001 -> 1280671200' ) ;
-        is( '946684800', epoch( '00-Jan-0000 00:00:00 +0000' ), 'epoch 1-Aug-2010 14:01:00 +0001 -> 1280671200' ) ;
-
-	note( 'Leaving  tests_epoch()' ) ;
-        return ;
-}
-
-sub epoch
-{
-        # incoming format:
-        # internal date 24-Aug-2010 16:00:00 +0200
-
-        # outgoing format: epoch
-
-
-        my $d = shift ;
-        return(q{}) if not defined $d;
-
-        my ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m ) ;
-        my $time ;
-
-        if ( $d =~ m{(\d{1,2})-([A-Z][a-z]{2})-(\d{4})\s(\d{2}):(\d{2}):(\d{2})\s((?:\+|-))(\d{2})(\d{2})}xo ) {
-                #myprint( "internal: [$1][$2][$3][$4][$5][$6][$7][$8][$9]\n" ) ;
-                ( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m )
-                =  ( $1,   $2,     $3,    $4,    $5,  $6,    $7,     $8,     $9 ) ;
-                #myprint( "( $mday, $month, $year, $hour, $min, $sec, $sign, $zone_h, $zone_m )\n" ) ;
-
-                $sign = +1 if ( '+' eq $sign ) ;
-                $sign = $MINUS_ONE if ( '-' eq $sign ) ;
-
-                if ( 0 == $mday ) {
-                        myprint( "buggy day in $d. Fixed to 01\n" ) ;
-                        $mday = '01' ;
-                }
-                $time = timegm( $sec, $min, $hour, $mday, $month_abrev{$month}, $year )
-                        - $sign * ( 3600 * $zone_h + 60 * $zone_m ) ;
-
-                #myprint( "$time ", scalar localtime($time), "\n");
-        }
-        return( $time ) ;
-}
-
-sub tests_add_header
-{
-	note( 'Entering tests_add_header()' ) ;
-
-        ok( 'Message-Id: <mistake@imapsync>' eq add_header(), 'add_header no arg' ) ;
-        ok( 'Message-Id: <123456789@imapsync>' eq add_header( '123456789' ), 'add_header 123456789' ) ;
-
-	note( 'Leaving  tests_add_header()' ) ;
-        return ;
-}
-
-sub add_header
-{
-        my $header_uid = shift || 'mistake' ;
-        my $header_Message_Id = 'Message-Id: <' . $header_uid . '@imapsync>' ;
-        return( $header_Message_Id ) ;
-}
-
-
-
-
-sub tests_max_line_length
-{
-	note( 'Entering tests_max_line_length()' ) ;
-
-        ok( 0 == max_line_length( q{} ), 'max_line_length: 0 == null string' ) ;
-        ok( 1 == max_line_length( "\n" ), 'max_line_length: 1 == \n' ) ;
-        ok( 1 == max_line_length( "\n\n" ), 'max_line_length: 1 == \n\n' ) ;
-        ok( 1 == max_line_length( "\n" x 500 ), 'max_line_length: 1 == 500 \n' ) ;
-        ok( 1 == max_line_length( 'a' ), 'max_line_length: 1 == a' ) ;
-        ok( 2 == max_line_length( "a\na" ), 'max_line_length: 2 == a\na' ) ;
-        ok( 2 == max_line_length( "a\na\n" ), 'max_line_length: 2 == a\na\n' ) ;
-        ok( 3 == max_line_length( "a\nab\n" ), 'max_line_length: 3 == a\nab\n' ) ;
-        ok( 3 == max_line_length( "a\nab\n" x 1_000 ), 'max_line_length: 3 == 1_000 a\nab\n' ) ;
-        ok( 3 == max_line_length( "a\nab\nabc" ), 'max_line_length: 3 == a\nab\nabc' ) ;
-
-        ok( 4 == max_line_length( "a\nab\nabc\n" ), 'max_line_length: 4 == a\nab\nabc\n' ) ;
-        ok( 5 == max_line_length( "a\nabcd\nabc\n" ), 'max_line_length: 5 == a\nabcd\nabc\n' ) ;
-        ok( 5 == max_line_length( "a\nabcd\nabc\n\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd" ), 'max_line_length: 5 == a\nabcd\nabc\n\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd\nabcd' ) ;
-
-	note( 'Leaving  tests_max_line_length()' ) ;
-        return ;
-}
-
-sub max_line_length
-{
-        my $string = shift ;
-        my $max = 0 ;
-
-        while ( $string =~ m/([^\n]*\n?)/msxg ) {
-                $max = max( $max, length $1 ) ;
-        }
-        return( $max ) ;
-}
-
-
-sub tests_setlogfile
-{
-	note( 'Entering tests_setlogfile()' ) ;
-
-	my $mysync = {} ;
-        $mysync->{logdir}  = 'vallogdir' ;
-        $mysync->{logfile} = 'vallogfile.txt' ;
-        is( 'vallogdir/vallogfile.txt', setlogfile( $mysync ),
-                'setlogfile: logdir vallogdir, logfile vallogfile.txt, vallogdir/vallogfile.txt' ) ;
-
-	SKIP: {
-	skip( 'Too hard to have a well known timezone on Windows', 9 ) if ( 'MSWin32' eq $OSNAME ) ;
-
-        local $ENV{TZ} = 'GMT' ;
-
-	$mysync = {
-                timestart => 2,
-	} ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000__.txt", setlogfile( $mysync ),
-                "setlogfile: default is like $DEFAULT_LOGDIR/1970_01_01_00_00_02_000__.txt" ) ;
-
-        $mysync = {
-                timestart => 2,
-                user1     => 'user1',
-                user2     => 'user2',
-                abort     => 1,
-        } ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_abort.txt", setlogfile( $mysync ),
-                "setlogfile: default is like $DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_abort.txt" ) ;
-
-        $mysync = {
-                timestart => 2,
-                user1     => 'user1',
-                user2     => 'user2',
-                remote    => 'zzz',
-        } ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_remote.txt", setlogfile( $mysync ),
-                "setlogfile: default is like $DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_remote.txt" ) ;
-
-        $mysync = {
-                timestart => 2,
-                user1     => 'user1',
-                user2     => 'user2',
-                remote    => 'zzz',
-                abort     => 1,
-        } ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_remote_abort.txt", setlogfile( $mysync ),
-                "setlogfile: default is like $DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2_remote_abort.txt" ) ;
-
-
-        $mysync = {
-                timestart => 2,
-                user1     => 'user1',
-                user2     => 'user2',
-        } ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2.txt", setlogfile( $mysync ),
-                "setlogfile: default is like $DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2.txt" ) ;
-
-        $mysync->{logdir}  = undef ;
-        $mysync->{logfile} = undef ;
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2.txt", setlogfile( $mysync ),
-                "setlogfile: logdir undef, $DEFAULT_LOGDIR/1970_01_01_00_00_02_000_user1_user2.txt" ) ;
-
-        $mysync->{logdir} = q{} ;
-        $mysync->{logfile} = undef ;
-        is( '1970_01_01_00_00_02_000_user1_user2.txt', setlogfile( $mysync ),
-                'setlogfile: logdir empty, 1970_01_01_00_00_02_000_user1_user2.txt' ) ;
-
-        $mysync->{logdir} = 'vallogdir' ;
-        $mysync->{logfile} = undef ;
-        is( 'vallogdir/1970_01_01_00_00_02_000_user1_user2.txt', setlogfile( $mysync ),
-                'setlogfile: logdir vallogdir, vallogdir/1970_01_01_00_00_02_000_user1_user2.txt' ) ;
-
-        $mysync = {
-                user1     => 'us/er1a*|?:"<>b',
-                user2     => 'u/ser2a*|?:"<>b',
-        } ;
-
-        is( "$DEFAULT_LOGDIR/1970_01_01_00_00_00_000_us_er1a_______b_u_ser2a_______b.txt", setlogfile( $mysync ),
-                "setlogfile: logdir undef, $DEFAULT_LOGDIR/1970_01_01_00_00_00_000_us_er1a_______b_u_ser2a_______b.txt" ) ;
-
-
-
-	} ;
-
-	note( 'Leaving  tests_setlogfile()' ) ;
-        return ;
-}
-
-sub setlogfile
-{
-        my( $mysync ) = shift ;
-
-        # When aborting another process the log file name finishes with "_abort.txt"
-        my $abort_suffix = ( $mysync->{abort} ) ? '_abort' : q{} ;
-        # When acting as a proxy the log file name finishes with "_remote.txt"
-        # proxy mode is not done yet
-        my $remote_suffix = ( $mysync->{remote} ) ? '_remote' : q{} ;
-
-	my $suffix = ( filter_forbidden_characters( move_slash( $mysync->{user1} ) ) || q{} )
-			. '_'
-                        . ( filter_forbidden_characters( move_slash( $mysync->{user2} ) ) || q{} )
-                        . $remote_suffix . $abort_suffix ;
-
-        $mysync->{logdir}  = defined $mysync->{logdir}  ? $mysync->{logdir}  : $DEFAULT_LOGDIR ;
-
-        $mysync->{logfile} = defined $mysync->{logfile}
-                ? "$mysync->{logdir}/$mysync->{logfile}"
-                : logfile( $mysync->{timestart}, $suffix, $mysync->{logdir} ) ;
-
-        return( $mysync->{logfile} ) ;
-}
-
-sub tests_logfile
-{
-	note( 'Entering tests_logfile()' ) ;
-
-        SKIP: {
-                # Too hard to have a well known timezone on Windows
-                skip( 'Too hard to have a well known timezone on Windows', 10 ) if ( 'MSWin32' eq $OSNAME ) ;
-
-                local $ENV{TZ} = 'GMT' ;
-                { POSIX::tzset unless ('MSWin32' eq $OSNAME) ;
-                        is( '1970_01_01_00_00_00_000.txt', logfile(  ),           'logfile: no args    => 1970_01_01_00_00_00.txt' ) ;
-                        is( '1970_01_01_00_00_00_000.txt', logfile( 0 ),          'logfile: 0          => 1970_01_01_00_00_00.txt' ) ;
-                        is( '1970_01_01_00_01_01_000.txt', logfile( 61 ),         'logfile: 0          => 1970_01_01_00_01_01.txt' ) ;
-                        is( '1970_01_01_00_01_01_234.txt', logfile( 61.234 ),     'logfile: 0          => 1970_01_01_00_01_01.txt' ) ;
-                        is( '2010_08_24_14_00_00_000.txt', logfile( 1_282_658_400 ), 'logfile: 1_282_658_400 => 2010_08_24_14_00_00.txt' ) ;
-                        is( '2010_08_24_14_01_01_000.txt', logfile( 1_282_658_461 ), 'logfile: 1_282_658_461 => 2010_08_24_14_01_01.txt' ) ;
-                        is( '2010_08_24_14_01_01_000_poupinette.txt', logfile( 1_282_658_461, 'poupinette' ), 'logfile: 1_282_658_461 poupinette => 2010_08_24_14_01_01_poupinette.txt' ) ;
-                        is( '2010_08_24_14_01_01_000_removeblanks.txt', logfile( 1_282_658_461, '   remove blanks  ' ), 'logfile: 1_282_658_461   remove blanks   => 2010_08_24_14_01_01_000_removeblanks' ) ;
-
-                        is( '2010_08_24_14_01_01_234_poup.txt', logfile( 1_282_658_461.2347, 'poup' ),
-                            'logfile: 1_282_658_461.2347 poup => 2010_08_24_14_01_01_234_poup.txt' ) ;
-
-                        is( 'dirdir/2010_08_24_14_01_01_234_poup.txt', logfile( 1_282_658_461.2347, 'poup', 'dirdir' ),
-                            'logfile: 1_282_658_461.2347 poup dirdir => dirdir/2010_08_24_14_01_01_234_poup.txt' ) ;
-
-
-
-                }
-                POSIX::tzset unless ('MSWin32' eq $OSNAME) ;
-        } ;
-
-	note( 'Leaving  tests_logfile()' ) ;
-        return ;
-}
-
-
-sub logfile
-{
-        my ( $time, $suffix, $dir ) = @_ ;
-
-        $time   ||= 0 ;
-        $suffix ||= q{} ;
-	$suffix =~ tr/ //ds ;
-        my $sep_suffix = ( $suffix ) ? '_' : q{} ;
-        $dir    ||= q{} ;
-        my $sep_dir = ( $dir ) ? '/' : q{} ;
-
-        my $date_str = POSIX::strftime( '%Y_%m_%d_%H_%M_%S', localtime $time ) ;
-	# Because of ab tests or web access, more than one sync withing one second is possible
-	# so we add also milliseconds
-	$date_str .= sprintf "_%03d", ($time - int( $time ) ) * 1000 ; # without rounding
-        my $logfile = "${dir}${sep_dir}${date_str}${sep_suffix}${suffix}.txt" ;
-        return( $logfile ) ;
-}
-
-
-
-sub tests_move_slash
-{
-	note( 'Entering tests_move_slash()' ) ;
-
-	is( undef, move_slash(  ), 'move_slash: no parameters => undef' ) ;
-	is( '_', move_slash( '/' ), 'move_slash: / => _' ) ;
-	is( '_abc_def_', move_slash( '/abc/def/' ), 'move_slash: /abc/def/ => _abc_def_' ) ;
-	note( 'Leaving  tests_move_slash()' ) ;
-	return ;
-}
-
-sub move_slash
-{
-	my $string = shift ;
-
-	if ( ! defined $string ) { return ; }
-
-	$string =~ tr{/}{_} ;
-
-	return(  $string ) ;
-}
-
-
-
-
-sub tests_million_folders_baby_2
-{
-	note( 'Entering tests_million_folders_baby_2()' ) ;
-
-        my %long ;
-        @long{ 1 .. 900_000 } = (1) x 900_000 ;
-        #myprint( %long, "\n" ) ;
-        my $pasglop = 0 ;
-        foreach my $elem (  1 .. 900_000 ) {
-                #$debug and myprint( "$elem " ) ;
-                if ( not exists  $long{ $elem }  ) {
-                        $pasglop++ ;
-                }
-        }
-        ok( 0 == $pasglop, 'tests_million_folders_baby_2: search among 900_000' ) ;
-        # myprint( "$pasglop\n" ) ;
-
-	note( 'Leaving  tests_million_folders_baby_2()' ) ;
-        return ;
-}
-
-
-
-sub tests_always_fail
-{
-	note( 'Entering tests_always_fail()' ) ;
-
-        is( 0, 1, 'always_fail: 0 is 1' ) ;
-
-	note( 'Leaving  tests_always_fail()' ) ;
-        return ;
-}
-
-
-sub tests_logfileprepa
-{
-        note( 'Entering tests_logfileprepa()' ) ;
-
-        is( undef, logfileprepa(  ), 'logfileprepa: no args => undef' ) ;
-        my $logfile = 'W/tmp/tests/tests_logfileprepa.txt' ;
-        is( 1, logfileprepa( $logfile ), 'logfileprepa: W/tmp/tests/tests_logfileprepa.txt => 1' ) ;
-
-        note( 'Leaving  tests_logfileprepa()' ) ;
-        return ;
-}
-
-sub logfileprepa
-{
-        my $logfile = shift ;
-
-        if ( ! defined( $logfile ) )
-        {
-                return ;
-        }else
-        {
-                #myprint( "[$logfile]\n" ) ;
-                my $dirname = dirname( $logfile ) ;
-                do_valid_directory( $dirname ) || return( 0 ) ;
-                return( 1 ) ;
-        }
-}
-
-
-sub tests_teelaunch
-{
-        note( 'Entering tests_teelaunch()' ) ;
-
-        is( undef, teelaunch(  ), 'teelaunch: no args => undef' ) ;
-        my $mysync = {} ;
-        is( undef, teelaunch( $mysync ), 'teelaunch: arg empty {} => undef' ) ;
-        $mysync->{logfile} = '' ;
-        is( undef, teelaunch( $mysync ), 'teelaunch: logfile empty string => undef' ) ;
-        $mysync->{logfile} = 'W/tmp/tests/tests_teelaunch.txt' ;
-        isa_ok( my $tee = teelaunch( $mysync ), 'IO::Tee' , 'teelaunch: logfile W/tmp/tests/tests_teelaunch.txt' ) ;
-        is( 1, print( $tee "Hi!\n" ), 'teelaunch: write Hi!') ;
-        is( "Hi!\n", file_to_string( 'W/tmp/tests/tests_teelaunch.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch.txt is Hi!\n' ) ;
-        is( 1, print( $tee "Hoo\n" ), 'teelaunch: write Hoo') ;
-        is( "Hi!\nHoo\n", file_to_string( 'W/tmp/tests/tests_teelaunch.txt' ), 'teelaunch: reading W/tmp/tests/tests_teelaunch.txt is Hi!\nHoo\n' ) ;
-
-        note( 'Leaving  tests_teelaunch()' ) ;
-        return ;
-}
-
-sub teelaunch
-{
-        my $mysync = shift ;
-
-        if ( ! defined( $mysync ) )
-        {
-                return ;
-        }
-
-        my $logfile = $mysync->{logfile} ;
-
-        if ( ! $logfile )
-        {
-                return ;
-        }
-
-        logfileprepa( $logfile ) || croak "Error no valid directory to write log file $logfile : $OS_ERROR" ;
-
-        # This is a log file opened during the whole sync
-        ## no critic (InputOutput::RequireBriefOpen)
-        open my $logfile_handle, '>', $logfile
-          or croak( "Can not open $logfile for write: $OS_ERROR" ) ;
-        my $tee = IO::Tee->new( $logfile_handle, \*STDOUT ) ;
-        $tee->autoflush( 1 ) ;
-        $mysync->{logfile_handle} = $logfile_handle ;
-        $mysync->{tee} = $tee ;
-        return $tee ;
-}
-
-sub getpwuid_any_os
-{
-        my $uid = shift ;
-
-        return( scalar  getlogin ) if ( 'MSWin32' eq $OSNAME ) ; # Windows system
-        return( scalar  getpwuid $uid ) ; # Unix system
-
-
-}
-
-sub simulong
-{
-	my $max_seconds = shift ;
-	my $division = 5 ;
-	my $last_count = $division * $max_seconds ;
-	foreach my $i ( 1 .. ( $last_count ) ) {
-		 myprint( "Are you still here ETA: " . ($last_count - $i) . "/$last_count msgs left\n" ) ;
-		#myprint( "Are you still here ETA: " . ($last_count - $i) . "/$last_count  msgs left\n" . ( "Ah" x 40 . "\n") x 4000 ) ;
-		sleep( 1 / $division ) ;
-	}
-
-	return ;
-}
-
-
-
-sub printenv
-{
-        myprint( "Environment variables listing:\n",
-		( map { "$_ => $ENV{$_}\n" } sort keys %ENV),
-		"Environment variables listing end\n"  ) ;
-	return ;
-}
-
-sub testsexit
-{
-	my $mysync = shift ;
-        if ( ! ( $mysync->{ tests }  or $mysync->{ testsdebug } or $mysync->{ testsunit } ) ) {
-		return ;
-	}
-        my $test_builder = Test::More->builder ;
-        tests( $mysync ) ;
-        testsdebug( $mysync ) ;
-	testunitsession( $mysync ) ;
-
-	my @summary = $test_builder->summary() ;
-	my @details = $test_builder->details() ;
-	my $nb_tests_run = scalar( @summary ) ;
-	my $nb_tests_expected = $test_builder->expected_tests() ;
-	my $nb_tests_failed = count_0s( @summary ) ;
-	my $tests_failed = report_failures( @details ) ;
-	if ( $nb_tests_failed or ( $nb_tests_run != $nb_tests_expected ) ) {
-		#$test_builder->reset(  ) ;
-		myprint( "Summary of tests: failed $nb_tests_failed tests, run $nb_tests_run tests, expected to run $nb_tests_expected tests.\n",
-                "List of failed tests:\n", $tests_failed ) ;
-		exit $EXIT_TESTS_FAILED ;
-	}
-
-        cleanup_mess_from_tests(  ) ;
-        # Cover is larger with --tests --testslive
-        if ( ! $mysync->{ testslive } )
-        {
-                exit ;
-        }
-        # $eeee ;
-	return ;
-}
-
-sub cleanup_mess_from_tests
-{
-        undef @pipemess ;
-        return ;
-}
-
-sub after_get_options
-{
-        my $mysync = shift ;
-	my $numopt = shift ;
-
-
-        # exit with --help option or no option at all
-        $mysync->{ debug } and myprint( "numopt:$numopt\n" ) ;
-
-        if ( $help or not $numopt ) {
-                myprint( usage( $mysync ) ) ;
-                exit ;
-        }
-
-        return ;
-}
-
-sub tests_remove_edging_blanks
-{
-        note( 'Entering tests_remove_edging_blanks()' ) ;
-
-        is( undef, remove_edging_blanks(  ),  'remove_edging_blanks: no args => undef' ) ;
-        is( 'abcd', remove_edging_blanks( 'abcd' ),  'remove_edging_blanks: abcd => abcd' ) ;
-        is( 'ab cd', remove_edging_blanks( ' ab cd ' ),  'remove_edging_blanks: " ab cd " => "ab cd"' ) ;
-
-        note( 'Leaving  tests_remove_edging_blanks()' ) ;
-        return ;
-}
-
-
-
-sub remove_edging_blanks
-{
-        my $string = shift ;
-        if ( ! defined $string )
-        {
-                return ;
-        }
-        $string =~ s,^ +| +$,,g ;
-        return $string ;
-}
-
-
-sub tests_sanitize
-{
-        note( 'Entering tests_remove_edging_blanks()' ) ;
-
-        is( undef, sanitize(  ),  'sanitize: no args => undef' ) ;
-        my $mysync = {} ;
-
-        $mysync->{ host1 } = ' example.com ' ;
-        $mysync->{ user1 } = ' to to ' ;
-        $mysync->{ password1 } = ' sex is good! ' ;
-        is( undef, sanitize( $mysync ),  'sanitize: => undef' ) ;
-        is( 'example.com', $mysync->{ host1 },        'sanitize: host1     " example.com "  => "example.com"' ) ;
-        is( 'to to', $mysync->{ user1 },             'sanitize: user1     "  to to  "      => "to to"' ) ;
-        is( 'sex is good!', $mysync->{ password1 },  'sanitize: password1 " sex is good! " => "sex is good!"' ) ;
-        note( 'Leaving  tests_remove_edging_blanks()' ) ;
-        return ;
-}
-
-
-sub sanitize
-{
-        my $mysync = shift ;
-        if ( ! defined $mysync )
-        {
-                return ;
-        }
-
-        foreach my $parameter ( qw( host1 host2 user1 user2 password1 password2 ) )
-        {
-                $mysync->{ $parameter } = remove_edging_blanks( $mysync->{ $parameter } ) ;
-        }
-        return ;
-}
-
-sub easyany
-{
-	my $mysync = shift ;
-
-	# Gmail
-	if ( $mysync->{gmail1} and $mysync->{gmail2} ) {
-		$mysync->{ debug } and myprint( "gmail1 gmail2\n") ;
-		gmail12( $mysync ) ;
-		return ;
-	}
-	if ( $mysync->{gmail1}  ) {
-		$mysync->{ debug } and myprint( "gmail1\n" ) ;
-		gmail1( $mysync ) ;
-	}
-	if ( $mysync->{gmail2} ) {
-		$mysync->{ debug } and myprint( "gmail2\n" ) ;
-		gmail2( $mysync ) ;
-	}
-	# Office 365
-	if ( $mysync->{office1} ) {
-		office1( $mysync ) ;
-	}
-
-	if ( $mysync->{office2} ) {
-		office2( $mysync ) ;
-	}
-
-	# Exchange
-	if ( $mysync->{exchange1} ) {
-		exchange1( $mysync ) ;
-	}
-
-	if ( $mysync->{exchange2} ) {
-		exchange2( $mysync ) ;
-	}
-
-
-	# Domino
-	if ( $mysync->{domino1} ) {
-		domino1( $mysync ) ;
-	}
-
-	if ( $mysync->{domino2} ) {
-		domino2( $mysync ) ;
-	}
-
-	return ;
-}
-
-# From https://imapsync.lamiral.info/FAQ.d/FAQ.Gmail.txt
-sub gmail12
-{
-	my $mysync = shift ;
-	# Gmail at host1 and host2
-	$mysync->{host1} ||= 'imap.gmail.com' ;
-	$mysync->{ssl1} = ( defined $mysync->{ssl1} ) ? $mysync->{ssl1} : 1 ;
-	$mysync->{host2} ||= 'imap.gmail.com' ;
-	$mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
-	$mysync->{maxbytespersecond} ||= 20_000 ; # should be 10_000 when computed from Gmail documentation
-	$mysync->{maxbytesafter} ||= 1_000_000_000 ;
-	$mysync->{automap}   = ( defined $mysync->{automap} )  ? $mysync->{automap} : 1 ;
-	$mysync->{maxsleep}  = ( defined $mysync->{maxsleep} ) ? $mysync->{maxsleep} : $MAX_SLEEP ; ;
-	$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 0 ;
-        $mysync->{ synclabels  }   = ( defined $mysync->{ synclabels } )  ? $mysync->{ synclabels } : 1 ;
-        $mysync->{ reynclabels }   = ( defined $mysync->{ reynclabels } )  ? $mysync->{ reynclabels } : 1 ;
-	push @exclude, '\[Gmail\]$' ;
-        push @folderlast, '[Gmail]/All Mail' ;
-	return ;
-}
-
-
-sub gmail1
-{
-	my $mysync = shift ;
-	# Gmail at host2
-	$mysync->{host1} ||= 'imap.gmail.com' ;
-	$mysync->{ssl1} = ( defined $mysync->{ssl1} ) ? $mysync->{ssl1} : 1 ;
-	$mysync->{maxbytespersecond} ||= 40_000 ; # should be 20_000 computed from by Gmail documentation
-	$mysync->{maxbytesafter} ||= 2_500_000_000 ;
-	$mysync->{automap}   = ( defined $mysync->{automap} ) ? $mysync->{automap} : 1 ;
-	$mysync->{maxsleep}  = ( defined $mysync->{maxsleep} ) ? $mysync->{maxsleep} : $MAX_SLEEP ; ;
-	$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 1 ;
-
-	push @useheader, 'X-Gmail-Received', 'Message-Id' ;
-	push @{ $mysync->{ regextrans2 } }, 's,\[Gmail\].,,' ;
-        push @folderlast, '[Gmail]/All Mail' ;
-	return ;
-}
-
-sub gmail2
-{
-	my $mysync = shift ;
-	# Gmail at host2
-	$mysync->{host2} ||= 'imap.gmail.com' ;
-	$mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
-	$mysync->{maxbytespersecond} ||= 20_000 ; # should be 10_000 computed from by Gmail documentation
-	$mysync->{maxbytesafter} ||= 1_000_000_000 ; # In fact it is documented as half: 500_000_000
-	#$mysync->{ maxsize } ||= 25_000_000 ;
-	$mysync->{automap} = ( defined $mysync->{automap} ) ? $mysync->{automap} : 1 ;
-	#$skipcrossduplicates = ( defined $skipcrossduplicates ) ? $skipcrossduplicates : 1 ;
-	$mysync->{ expunge1 }            = ( defined $mysync->{ expunge1 } )  ? $mysync->{ expunge1 }  : 1 ;
-	$mysync->{addheader} = ( defined $mysync->{addheader} ) ? $mysync->{addheader} : 1 ;
-	$mysync->{maxsleep}  = ( defined $mysync->{maxsleep} )  ? $mysync->{maxsleep} : $MAX_SLEEP ; ;
-
-        $mysync->{maxsize}  = ( defined $mysync->{maxsize} )  ? $mysync->{maxsize} : $GMAIL_MAXSIZE ;
-
-        if ( ! $mysync->{noexclude} ) {
-                push @exclude, '\[Gmail\]$' ;
-        }
-        push @useheader, 'Message-Id' ;
-        push @{ $mysync->{ regextrans2 } }, 's,\[Gmail\].,,' ;
-
-        # push @{ $mysync->{ regextrans2 } }, 's/[ ]+/_/g' ; # is now replaced
-        # by the two more specific following regexes,
-        # they remove just the beginning and trailing blanks, not all.
-        push @{ $mysync->{ regextrans2 } }, 's,^ +| +$,,g' ;
-        push @{ $mysync->{ regextrans2 } }, 's,/ +| +/,/,g' ;
-        #
-	push @{ $mysync->{ regextrans2 } }, q{s/['\\^"]/_/g} ; # Verified this
-        push @folderlast, '[Gmail]/All Mail' ;
-	return ;
-}
-
-
-# From https://imapsync.lamiral.info/FAQ.d/FAQ.Exchange.txt
-sub office1
-{
-	# Office 365 at host1
-	my $mysync = shift ;
-
-	output( $mysync, q{Option --office1 is like: --host1 outlook.office365.com --ssl1 --exclude "^Files$"} . "\n" ) ;
-        output( $mysync, "Option --office1 (cont) : unless overrided with --host1 otherhost --nossl1 --noexclude\n" ) ;
-	$mysync->{host1} ||= 'outlook.office365.com' ;
-	$mysync->{ssl1} = ( defined $mysync->{ssl1} ) ? $mysync->{ssl1} : 1 ;
-        if ( ! $mysync->{noexclude} ) {
-                push @exclude, '^Files$' ;
-        }
-	return ;
-}
-
-
-sub office2
-{
-        # Office 365 at host2
-        my $mysync = shift ;
-        output( $mysync, qq{Option --office2 is like: --host2 outlook.office365.com --ssl2 --maxsize 45_000_000 --maxmessagespersecond 4\n} ) ;
-        output( $mysync, qq{Option --office2 (cont) : --disarmreadreceipts --regexmess "wrap 10500" --f1f2 "Files=Files_renamed_by_imapsync"\n} ) ;
-        output( $mysync, qq{Option --office2 (cont) : unless overrided with --host2 otherhost --nossl2 ... --nodisarmreadreceipts --noregexmess\n} ) ;
-        output( $mysync, qq{Option --office2 (cont) : and --nof1f2 to avoid Files folder renamed to Files_renamed_by_imapsync\n} ) ;
-        $mysync->{host2} ||= 'outlook.office365.com' ;
-        $mysync->{ssl2} = ( defined $mysync->{ssl2} ) ? $mysync->{ssl2} : 1 ;
-        $mysync->{ maxsize } ||= 45_000_000 ;
-        $mysync->{maxmessagespersecond} ||= 4 ;
-        #push @regexflag, 's/\\\\Flagged//g' ; # No problem without! tested 2018_09_10
-        $disarmreadreceipts = ( defined $disarmreadreceipts ) ? $disarmreadreceipts : 1 ;
-        # I dislike double negation but here is one
-        if ( ! $mysync->{noregexmess} )
-        {
-                push @regexmess, 's,(.{10239}),$1\r\n,g' ;
-        }
-        # and another...
-        if ( ! $mysync->{nof1f2} )
-        {
-                push @{ $mysync->{f1f2} }, 'Files=Files_renamed_by_imapsync' ;
-        }
-        return ;
-}
-
-sub exchange1
-{
-        # Exchange 2010/2013 at host1
-        my $mysync = shift ;
-        output( $mysync, "Option --exchange1 does nothing (except printing this line...)\n" ) ;
-        # Well nothing to do so far
-        return ;
-}
-
-sub exchange2
-{
-        # Exchange 2010/2013 at host2
-        my $mysync = shift ;
-        output( $mysync, "Option --exchange2 is like: --maxsize 10_000_000 --maxmessagespersecond 4 --disarmreadreceipts\n" ) ;
-        output( $mysync, "Option --exchange2 (cont) : --regexflag del Flagged --regexmess wrap 10500\n" ) ;
-        output( $mysync, "Option --exchange2 (cont) : unless overrided with --maxsize xxx --nodisarmreadreceipts --noregexflag --noregexmess\n" ) ;
-        $mysync->{ maxsize } ||= 10_000_000 ;
-        $mysync->{maxmessagespersecond} ||= 4 ;
-        $disarmreadreceipts = ( defined $disarmreadreceipts ) ? $disarmreadreceipts : 1 ;
-        # I dislike double negation but here are two
-        if ( ! $mysync->{noregexflag} ) {
-                push @regexflag, 's/\\\\Flagged//g' ;
-        }
-        if ( ! $mysync->{noregexmess} ) {
-                push @regexmess, 's,(.{10239}),$1\r\n,g' ;
-        }
-        return ;
-}
-
-sub domino1
-{
-	# Domino at host1
-	my $mysync = shift ;
-
-	$mysync->{ sep1 }    = q{\\} ;
-	$prefix1 = q{} ;
-	$messageidnodomain = ( defined $messageidnodomain ) ? $messageidnodomain : 1 ;
-	return ;
-}
-
-sub domino2
-{
-	# Domino at host1
-	my $mysync = shift ;
-
-	$mysync->{ sep2 }    = q{\\} ;
-	$prefix2 = q{} ;
-	$messageidnodomain = ( defined $messageidnodomain ) ? $messageidnodomain : 1 ;
-	push @{ $mysync->{ regextrans2 } }, 's,^Inbox\\\\(.*),$1,i' ;
-	return ;
-}
-
-
-sub tests_resolv
-{
-	note( 'Entering tests_resolv()' ) ;
-
-	# is( , resolv(  ), 'resolv:  => ' ) ;
-	is( undef, resolv(  ), 'resolv: no args => undef' ) ;
-	is( undef, resolv( '' ), 'resolv: empty string => undef' ) ;
-	is( undef, resolv( 'hostnotexist' ), 'resolv: hostnotexist => undef' ) ;
-	is( '127.0.0.1', resolv( '127.0.0.1' ), 'resolv: 127.0.0.1 => 127.0.0.1' ) ;
-	is( '127.0.0.1', resolv( 'localhost' ), 'resolv: localhost => 127.0.0.1' ) ;
-	is( '5.135.158.182', resolv( 'imapsync.lamiral.info' ), 'resolv: imapsync.lamiral.info => 5.135.158.182' ) ;
-
-	# ip6-localhost ( in /etc/hosts )
-	is( '::1', resolv( 'ip6-localhost' ), 'resolv: ip6-localhost => ::1' ) ;
-	is( '::1', resolv( '::1' ), 'resolv: ::1 => ::1' ) ;
-	# ks2
-	is( '2001:41d0:8:d8b6::1', resolv( '2001:41d0:8:d8b6::1' ),  'resolv:  2001:41d0:8:d8b6::1 => 2001:41d0:8:d8b6::1' ) ;
-	is( '2001:41d0:8:d8b6::1', resolv( 'ks2ipv6.lamiral.info' ), 'resolv: ks2ipv6.lamiral.info => 2001:41d0:8:d8b6::1' ) ;
-	# ks3
-	is( '2001:41d0:8:bebd::1', resolv( '2001:41d0:8:bebd::1' ),  'resolv:  2001:41d0:8:bebd::1 => 2001:41d0:8:bebd::1' ) ;
-	is( '2001:41d0:8:bebd::1', resolv( 'ks3ipv6.lamiral.info' ), 'resolv: ks3ipv6.lamiral.info => 2001:41d0:8:bebd::1' ) ;
-
-
-	note( 'Leaving  tests_resolv()' ) ;
-        return ;
-}
-
-
-
-sub resolv
-{
-	my $host = shift @ARG ;
-
-	if ( ! $host ) { return ; }
-        my $addr ;
-	if ( defined &Socket::getaddrinfo ) {
-		$addr = resolv_with_getaddrinfo( $host ) ;
-		return( $addr ) ;
-	}
-
-
-
-        my $iaddr = inet_aton( $host ) ;
-        if ( ! $iaddr ) { return ; }
-        $addr = inet_ntoa( $iaddr ) ;
-
-	return $addr ;
-}
-
-sub resolv_with_getaddrinfo
-{
-	my $host = shift @ARG ;
-
-	if ( ! $host ) { return ; }
-
-	my ( $err_getaddrinfo, @res ) = Socket::getaddrinfo( $host, "", { socktype => Socket::SOCK_RAW } ) ;
-	if (  $err_getaddrinfo ) {
-		myprint( "Cannot getaddrinfo of $host: $err_getaddrinfo\n" ) ;
-		return ;
-	}
-
-	my @addr ;
-	while( my $ai = shift @res ) {
-		my ( $err_getnameinfo, $ipaddr ) = Socket::getnameinfo( $ai->{addr}, Socket::NI_NUMERICHOST(), Socket::NIx_NOSERV() ) ;
-		if ( $err_getnameinfo ) {
-			myprint( "Cannot getnameinfo of $host: $err_getnameinfo\n" ) ;
-			return ;
-		}
-		$sync->{ debug } and myprint( "$host => $ipaddr\n" ) ;
-		push @addr, $ipaddr ;
-                my $reverse ;
-		( $err_getnameinfo, $reverse ) = Socket::getnameinfo( $ai->{addr}, 0, Socket::NIx_NOSERV() ) ;
-		$sync->{ debug } and myprint( "$host => $ipaddr => $reverse\n" ) ;
-	}
-
-        return $addr[0] ;
-}
-
-sub tests_resolvrev
-{
-	note( 'Entering tests_resolvrev()' ) ;
-
-	# is( , resolvrev(  ), 'resolvrev:  => ' ) ;
-	is( undef, resolvrev(  ), 'resolvrev: no args => undef' ) ;
-	is( undef, resolvrev( '' ), 'resolvrev: empty string => undef' ) ;
-	is( undef, resolvrev( 'hostnotexist' ), 'resolvrev: hostnotexist => undef' ) ;
-	is( 'localhost', resolvrev( '127.0.0.1' ), 'resolvrev: 127.0.0.1 => localhost' ) ;
-	is( 'localhost', resolvrev( 'localhost' ), 'resolvrev: localhost => localhost' ) ;
-	is( 'ks.lamiral.info', resolvrev( 'imapsync.lamiral.info' ), 'resolvrev: imapsync.lamiral.info => ks.lamiral.info' ) ;
-
-	# ip6-localhost ( in /etc/hosts )
-	is( 'ip6-localhost', resolvrev( 'ip6-localhost' ), 'resolvrev: ip6-localhost => ip6-localhost' ) ;
-	is( 'ip6-localhost', resolvrev( '::1' ), 'resolvrev: ::1 => ip6-localhost' ) ;
-	# ks2
-	is( 'ks2ipv6.lamiral.info', resolvrev( '2001:41d0:8:d8b6::1' ),  'resolvrev:  2001:41d0:8:d8b6::1 => ks2ipv6.lamiral.info' ) ;
-	is( 'ks2ipv6.lamiral.info', resolvrev( 'ks2ipv6.lamiral.info' ), 'resolvrev: ks2ipv6.lamiral.info => ks2ipv6.lamiral.info' ) ;
-	# ks3
-	is( 'ks3ipv6.lamiral.info', resolvrev( '2001:41d0:8:bebd::1' ),  'resolvrev:  2001:41d0:8:bebd::1 => ks3ipv6.lamiral.info' ) ;
-	is( 'ks3ipv6.lamiral.info', resolvrev( 'ks3ipv6.lamiral.info' ), 'resolvrev: ks3ipv6.lamiral.info => ks3ipv6.lamiral.info' ) ;
-
-
-	note( 'Leaving  tests_resolvrev()' ) ;
-        return ;
-}
-
-sub resolvrev
-{
-	my $host = shift @ARG ;
-
-	if ( ! $host ) { return ; }
-
-	if ( defined &Socket::getaddrinfo ) {
-		my $name = resolvrev_with_getaddrinfo( $host ) ;
-		return( $name ) ;
-	}
-
-	return ;
-}
-
-sub resolvrev_with_getaddrinfo
-{
-	my $host = shift @ARG ;
-
-	if ( ! $host ) { return ; }
-
-	my ( $err, @res ) = Socket::getaddrinfo( $host, "", { socktype => Socket::SOCK_RAW } ) ;
-	if (  $err ) {
-		myprint( "Cannot getaddrinfo of $host: $err\n" ) ;
-		return ;
-	}
-
-	my @name ;
-	while( my $ai = shift @res ) {
-		my ( $err, $reverse ) = Socket::getnameinfo( $ai->{addr}, 0, Socket::NIx_NOSERV() ) ;
-		if ( $err ) {
-			myprint( "Cannot getnameinfo of $host: $err\n" ) ;
-			return ;
-		}
-		$sync->{ debug } and myprint( "$host => $reverse\n" ) ;
-		push @name, $reverse ;
-	}
-
-    return $name[0] ;
-}
-
-
-
-sub tests_imapsping
-{
-	note( 'Entering tests_imapsping()' ) ;
-
-	is( undef, imapsping(  ), 'imapsping: no args => undef' ) ;
-	is( undef, imapsping( 'hostnotexist' ), 'imapsping: hostnotexist => undef' ) ;
-	is( 1, imapsping( 'imapsync.lamiral.info' ), 'imapsping: imapsync.lamiral.info => 1' ) ;
-        is( 1, imapsping( 'ks2ipv6.lamiral.info' ), 'imapsping: ks2ipv6.lamiral.info => 1' ) ;
-	note( 'Leaving  tests_imapsping()' ) ;
-	return ;
-}
-
-sub imapsping
-{
-	my $host = shift ;
-	return tcpping( $host, $IMAP_SSL_PORT ) ;
-}
-
-sub tests_tcpping
-{
-	note( 'Entering tests_tcpping()' ) ;
-
-	is( undef, tcpping(  ), 'tcpping: no args => undef' ) ;
-	is( undef, tcpping( 'hostnotexist' ), 'tcpping: one arg => undef' ) ;
-	is( undef, tcpping( undef, 888 ), 'tcpping: arg undef, port => undef' ) ;
-	is( undef, tcpping( 'hostnotexist', 993 ), 'tcpping: hostnotexist 993 => undef' ) ;
-	is( undef, tcpping( 'hostnotexist', 888 ), 'tcpping: hostnotexist 888 => undef' ) ;
-	is( 1, tcpping( 'imapsync.lamiral.info', 993 ), 'tcpping: imapsync.lamiral.info 993 => 1' ) ;
-	is( 0, tcpping( 'imapsync.lamiral.info', 888 ), 'tcpping: imapsync.lamiral.info 888 => 0' ) ;
-	is( 1, tcpping( '5.135.158.182', 993 ), 'tcpping: 5.135.158.182 993 => 1' ) ;
-	is( 0, tcpping( '5.135.158.182', 888 ), 'tcpping: 5.135.158.182 888 => 0' ) ;
-
-	# Net::Ping supports ipv6 only after release 1.50
-	# http://cpansearch.perl.org/src/RURBAN/Net-Ping-2.59/Changes
-	# Anyway I plan to avoid Net-Ping for that too long standing feature
-	# Net-Ping is integrated in Perl itself, who knows ipv6 for a long time
-	is( 1, tcpping( '2001:41d0:8:d8b6::1', 993 ), 'tcpping: 2001:41d0:8:d8b6::1 993 => 1' ) ;
-	is( 0, tcpping( '2001:41d0:8:d8b6::1', 888 ), 'tcpping: 2001:41d0:8:d8b6::1 888 => 0' ) ;
-
-	note( 'Leaving  tests_tcpping()' ) ;
-	return ;
-}
-
-sub tcpping
-{
-	if ( 2 != scalar( @ARG ) ) {
-		return ;
-	}
-	my ( $host, $port ) = @ARG ;
-	if ( ! $host ) { return ; }
-	if ( ! $port ) { return ; }
-
-	my $mytimeout = $TCP_PING_TIMEOUT ;
-        require Net::Ping ;
-	#my $p = Net::Ping->new( 'tcp' ) ;
-	my $p = Net::Ping->new(  ) ;
-	$p->{port_num} = $port ;
-	$p->service_check( 1 ) ;
-	$p->hires( 1 ) ;
-	my ($ping_ok, $rtt, $ip ) = $p->ping( $host, $mytimeout ) ;
-	if ( ! defined $ping_ok ) { return ; }
-	my $rtt_approx = sprintf( "%.3f", $rtt ) ;
-	$sync->{ debug } and myprint( "Host $host timeout $mytimeout port $port ok $ping_ok ip $ip acked in $rtt_approx s\n" ) ;
-	$p->close(  ) ;
-	if( $ping_ok ) {
-		return 1 ;
-	}else{
-		return 0 ;
-	}
-}
-
-sub tests_sslcheck
-{
-	note( 'Entering tests_sslcheck()' ) ;
-
-	my $mysync ;
-
-	is( undef, sslcheck( $mysync ), 'sslcheck: no sslcheck => undef' ) ;
-
-	$mysync = {
-		sslcheck => 1,
-	} ;
-
-	is( 0, sslcheck( $mysync ), 'sslcheck: no host => 0' ) ;
-
-	$mysync = {
-		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
-		tls1 => 1,
-	} ;
-
-	is( 0, sslcheck( $mysync ), 'sslcheck: tls1 => 0' ) ;
-
-	$mysync = {
-		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
-	} ;
-
-
-	is( 1, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info => 1' ) ;
-	is( 1, $mysync->{ssl1}, 'sslcheck: imapsync.lamiral.info => ssl1 1' ) ;
-
-	$mysync->{sslcheck} = 0 ;
-	is( undef, sslcheck( $mysync ), 'sslcheck: sslcheck off => undef' ) ;
-
-	$mysync = {
-		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
-                host2 => 'test2.lamiral.info',
-	} ;
-
-        is( 2, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info + test2.lamiral.info => 2' ) ;
-
-	$mysync = {
-		sslcheck => 1,
-		host1 => 'imapsync.lamiral.info',
-                host2 => 'test2.lamiral.info',
-                tls1  => 1,
-	} ;
-
-        is( 1, sslcheck( $mysync ), 'sslcheck: imapsync.lamiral.info + test2.lamiral.info + tls1 => 1' ) ;
-
-	note( 'Leaving  tests_sslcheck()' ) ;
-	return ;
-}
-
-sub sslcheck
-{
-	my $mysync = shift ;
-
-	if ( ! $mysync->{sslcheck} ) {
-		return ;
-	}
-	my $nb_on = 0 ;
-	$mysync->{ debug } and myprint( "sslcheck\n" ) ;
-	if (
-		( ! defined $mysync->{port1} )
-		and
-		( ! defined $mysync->{tls1} )
-		and
-		( ! defined $mysync->{ssl1} )
-		and
-		( defined $mysync->{host1} )
-	) {
-                myprint( "Host1: probing ssl on port $IMAP_SSL_PORT ( use --nosslcheck to avoid this ssl probe ) \n" ) ;
-                if (  probe_imapssl( $mysync->{host1} ) ) {
-                        $mysync->{ssl1} = 1 ;
-                        myprint( "Host1: sslcheck detected open ssl port $IMAP_SSL_PORT so turning ssl on (use --nossl1 --notls1 to turn off SSL and TLS wizardry)\n" ) ;
-                        $nb_on++ ;
-                }else{
-                        myprint( "Host1: sslcheck did not detected open ssl port $IMAP_SSL_PORT. Will use standard $IMAP_PORT port.\n" ) ;
-                }
-	}
-
-	if (
-		( ! defined $mysync->{port2} )
-		and
-		( ! defined $mysync->{tls2} )
-		and
-		( ! defined $mysync->{ssl2} )
-		and
-		( defined $mysync->{host2} )
-	) {
-                myprint( "Host2: probing ssl on port $IMAP_SSL_PORT ( use --nosslcheck to avoid this ssl probe ) \n" ) ;
-                if (  probe_imapssl( $mysync->{host2} ) ) {
-                        $mysync->{ssl2} = 1 ;
-                        myprint( "Host2: sslcheck detected open ssl port $IMAP_SSL_PORT so turning ssl on (use --nossl2 --notls2 to turn off SSL and TLS wizardry)\n" ) ;
-                        $nb_on++ ;
-                }else{
-                        myprint( "Host2: sslcheck did not detected open ssl port $IMAP_SSL_PORT. Will use standard $IMAP_PORT port.\n" ) ;
-                }
-	}
-	return $nb_on ;
-}
-
-
-sub testslive
-{
-        my $mysync = shift ;
-        $mysync->{host1}     ||= 'test1.lamiral.info' ;
-        $mysync->{user1}     ||= 'test1' ;
-        $mysync->{password1} ||= 'secret1' ;
-        $mysync->{host2}     ||= 'test2.lamiral.info' ;
-        $mysync->{user2}     ||= 'test2' ;
-        $mysync->{password2} ||= 'secret2' ;
-        return ;
-}
-
-sub testslive6
-{
-        my $mysync = shift ;
-        $mysync->{host1}     ||= 'ks2ipv6.lamiral.info' ;
-        $mysync->{user1}     ||= 'test1' ;
-        $mysync->{password1} ||= 'secret1' ;
-        $mysync->{host2}     ||= 'ks2ipv6.lamiral.info' ;
-        $mysync->{user2}     ||= 'test2' ;
-        $mysync->{password2} ||= 'secret2' ;
-        return ;
-}
-
-
-sub tests_backslash_caret
-{
-        note( 'Entering tests_backslash_caret()' ) ;
-
-        is( "lalala", backslash_caret( "lalala" ), 'backslash_caret: lalala => lalala' ) ;
-        is( "lalala\n", backslash_caret( "lalala\n" ), 'backslash_caret: lalala => lalala 2nd' ) ;
-        is( '^', backslash_caret( '\\' ), 'backslash_caret: \\ => ^' ) ;
-        is( "^\n", backslash_caret( "\\\n" ), 'backslash_caret: \\ => ^' ) ;
-        is( "\\lalala", backslash_caret( "\\lalala" ), 'backslash_caret: \\lalala => \\lalala' ) ;
-        is( "\\lal\\ala", backslash_caret( "\\lal\\ala" ), 'backslash_caret: \\lal\\ala => \\lal\\ala' ) ;
-        is( "\\lalala\n", backslash_caret( "\\lalala\n" ), 'backslash_caret: \\lalala => \\lalala 2nd' ) ;
-        is( "lalala^\n", backslash_caret( "lalala\\\n" ), 'backslash_caret: lalala\\\n => lalala^\n' ) ;
-        is( "lalala^\nlalala^\n", backslash_caret( "lalala\\\nlalala\\\n" ), 'backslash_caret: lalala\\\nlalala\\\n => lalala^\nlalala^\n' ) ;
-        is( "lal\\ala^\nlalala^\n", backslash_caret( "lal\\ala\\\nlalala\\\n" ), 'backslash_caret: lal\\ala\\\nlalala\\\n => lal\\ala^\nlalala^\n' ) ;
-
-        note( 'Leaving  tests_backslash_caret()' ) ;
-        return ;
-}
-
-sub backslash_caret
-{
-        my $string = shift ;
-
-        $string =~ s{\\ $ }{^}gxms ;
-
-        return $string ;
-}
-
-sub tests_split_around_equal
-{
-        note( 'Entering tests_split_around_equal()' ) ;
-
-        is( undef, split_around_equal(  ), 'split_around_equal: no args => undef' ) ;
-        is_deeply( { toto => 'titi' }, { split_around_equal( 'toto=titi' ) }, 'split_around_equal: toto=titi => toto => titi' ) ;
-        is_deeply( { A => 'B', C => 'D' }, { split_around_equal( 'A=B=C=D' ) }, 'split_around_equal: toto=titi => toto => titi' ) ;
-        is_deeply( { A => 'B', C => 'D' }, { split_around_equal( 'A=B', 'C=D' ) }, 'split_around_equal: A=B C=D => A => B, C=>D' ) ;
-
-        note( 'Leaving  tests_split_around_equal()' ) ;
-	return ;
-}
-
-sub split_around_equal
-{
-        if ( ! @ARG ) { return ; } ;
-        return map { split /=/mxs, $_ } @ARG ;
-
-}
-
-
-
-sub tests_sig_install 
-{
-        note( 'Entering tests_sig_install()' ) ;
-
-        my $mysync ;
-        is( undef, sig_install(  ), 'sig_install: no args => undef' ) ;
-        is( undef, sig_install( $mysync ), 'sig_install: arg undef => undef' ) ;
-        $mysync = {  } ;
-        is( undef, sig_install( $mysync ), 'sig_install: empty hash => undef' ) ;
-
-        SKIP: {
-        Readonly my $SKIP_15 => 15 ;
-	if ( 'MSWin32' eq $OSNAME ) { skip( 'Tests only for Unix', $SKIP_15 ) ; }
-        # Default to ignore USR1 USR2 in case future install fails
-        local $SIG{ USR1 } = local $SIG{ USR2 } = sub {  } ;
-        kill( 'USR1', $PROCESS_ID ) ;
-
-        $mysync->{ debugsig } = 1 ;
-        # Assign USR1 to call sub tototo
-        # Surely a better value than undef should be returned when doing real signal stuff
-        is( undef, sig_install( $mysync, 'tototo', 'USR1' ), 'sig_install: USR1 tototo' ) ;
-        
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'sig_install: kill USR1 myself 1' ) ;
-        is( 1, $mysync->{ tototo_calls },   'sig_install: tototo call nb 1' ) ;
-
-        #return ;
-        # Assign USR2 to call sub tototo
-        is( undef, sig_install( $mysync, 'tototo', 'USR2' ), 'sig_install: USR2 tototo' ) ;
-
-        is( 1, kill( 'USR2', $PROCESS_ID ), 'sig_install: kill USR2 myself 1' ) ;
-        is( 2, $mysync->{ tototo_calls }, 'sig_install: tototo call nb 2' ) ;
-
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'sig_install: kill USR1 myself 2' ) ;
-        is( 3, $mysync->{ tototo_calls }, 'sig_install: tototo call nb 3' ) ;
-
-
-        local $SIG{ USR1 } = local $SIG{ USR2 } = sub {  } ;
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'sig_install: kill USR1 myself 3' ) ;
-        is( 3, $mysync->{ tototo_calls }, 'sig_install: tototo call still nb 3' ) ;
-
-        # Assign USR1 + USR2 to call sub tototo
-        is( undef, sig_install( $mysync, 'tototo', 'USR1', 'USR2' ), 'sig_install: USR1 USR2 tototo' ) ;
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'sig_install: kill USR1 myself 4' ) ;
-        is( 4, $mysync->{ tototo_calls }, 'sig_install: tototo call now nb 4' ) ;
-
-        is( 1, kill( 'USR2', $PROCESS_ID ), 'sig_install: kill USR1 myself 2' ) ;
-        is( 5, $mysync->{ tototo_calls },  'sig_install: tototo call now nb 5' ) ;
-        }
-
-
-        note( 'Leaving  tests_sig_install()' ) ;
-        return ;
-}
-
-
-#
-sub sig_install 
-{
-        my $mysync = shift ;
-        if ( ! $mysync ) { return ; }
-        my $mysubname = shift ;
-        if ( ! $mysubname ) { return ; }
-
-        if ( ! @ARG ) { return ; }
-        
-        my @signals = @ARG ;
-        
-        my $mysub = \&$mysubname ;
-        #$mysync->{ debugsig } = 1 ;
-        $mysync->{ debugsig } and myprint( "In sig_install with sub $mysubname and signal @ARG\n" ) ;
-
-        my $subsignal = sub {
-                my $signame = shift ;
-                $mysync->{ debugsig } and myprint( "In subsignal with $signame and $mysubname\n" ) ;
-                &$mysub( $mysync, $signame ) ;
-        } ;
-
-        foreach my $signal ( @signals ) {
-                $mysync->{ debugsig } and myprint(  "Installing signal $signal to call sub $mysubname\n") ;
-                output( $mysync, "kill -$signal $PROCESS_ID # special behavior: call to sub $mysubname\n" ) ;
-                ## no critic (RequireLocalizedPunctuationVars)
-                $SIG{ $signal } = $subsignal ;
-        }
-        return ;
-}
-
-
-sub tototo
-{
-        my $mysync = shift ;
-        myprint("In tototo with @ARG\n" ) ;
-        $mysync->{ tototo_calls } += 1 ;
-        return ;
-}
-
-sub mygetppid
-{
-        if ( 'MSWin32' eq $OSNAME ) {
-                return( 'unknown under MSWin32 (too complicated)'  ) ;
-        } else {
-                # Unix
-                return( getppid(  ) ) ;
-        }
-}
-
-
-
-sub tests_toggle_sleep
-{
-        note( 'Entering tests_toggle_sleep()' ) ;
-
-        is( undef, toggle_sleep(  ),  'toggle_sleep: no args => undef' ) ;
-        my $mysync ;
-        is( undef, toggle_sleep( $mysync ),  'toggle_sleep: undef => undef' ) ;
-        $mysync = {  } ;
-        is( undef, toggle_sleep( $mysync ),  'toggle_sleep: no maxsleep => undef' ) ;
-
-        $mysync->{maxsleep} = 3 ;
-        is( 0, toggle_sleep( $mysync ),  'toggle_sleep: 3 => 0' ) ;
-
-        is( $MAX_SLEEP, toggle_sleep( $mysync ),  "toggle_sleep: 0          => $MAX_SLEEP" ) ;
-        is( 0,          toggle_sleep( $mysync ),  "toggle_sleep: $MAX_SLEEP => 0" ) ;
-        is( $MAX_SLEEP, toggle_sleep( $mysync ),  "toggle_sleep: 0          => $MAX_SLEEP" ) ;
-        is( 0,          toggle_sleep( $mysync ),  "toggle_sleep: $MAX_SLEEP => 0" ) ;
-
-        SKIP: {
-        Readonly my $SKIP_9 => 9 ;
-	if ( 'MSWin32' eq $OSNAME ) { skip( 'Tests only for Unix', $SKIP_9 ) ; }
-        # Default to ignore USR1 USR2 in case future install fails
-        local $SIG{ USR1 } = sub {  } ;
-        kill( 'USR1', $PROCESS_ID ) ;
-
-        $mysync->{ debugsig } = 1 ;
-        # Assign USR1 to call sub toggle_sleep
-        is( undef, sig_install( $mysync, \&toggle_sleep, 'USR1' ), 'toggle_sleep: install USR1 toggle_sleep' ) ;
-
-
-        $mysync->{maxsleep} = 4 ;
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'toggle_sleep: kill USR1 myself' ) ;
-        is( 0, $mysync->{ maxsleep },   'toggle_sleep: toggle_sleep called => sleeps are 0s' ) ;
-
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'toggle_sleep: kill USR1 myself again' ) ;
-        is( $MAX_SLEEP, $mysync->{ maxsleep },   "toggle_sleep: toggle_sleep called => sleeps are ${MAX_SLEEP}s" ) ;
-
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'toggle_sleep: kill USR1 myself' ) ;
-        is( 0, $mysync->{ maxsleep },   'toggle_sleep: toggle_sleep called => sleeps are 0s' ) ;
-
-        is( 1, kill( 'USR1', $PROCESS_ID ), 'toggle_sleep: kill USR1 myself again' ) ;
-        is( $MAX_SLEEP, $mysync->{ maxsleep },   "toggle_sleep: toggle_sleep called => sleeps are ${MAX_SLEEP}s" ) ;
-        }
-
-        note( 'Leaving  tests_toggle_sleep()' ) ;
-	return ;
-}
-
-
-sub toggle_sleep
-{
-        my $mysync = shift ;
-
-        myprint("In toggle_sleep with @ARG\n" ) ;
-
-        if ( !defined( $mysync ) ) { return ; }
-        if ( !defined( $mysync->{maxsleep} ) ) { return ; }
-
-        $mysync->{ maxsleep } = max( 0, $MAX_SLEEP - $mysync->{maxsleep} ) ;
-        myprint("Resetting maxsleep to ", $mysync->{maxsleep}, "s\n" ) ;
-        return $mysync->{maxsleep} ;
-}
-
-sub mypod2usage
-{
-        my $fh_pod2usage = shift ;
-
-        pod2usage(
-                -exitval   => 'NOEXIT',
-                -noperldoc => 1,
-                -verbose => 99,
-                -sections => [ qw(NAME VERSION USAGE OPTIONS) ],
-                -indent => 1,
-                -loose => 1,
-                -output => $fh_pod2usage,
-        ) ;
-
-        return ;
-}
-
-sub usage
-{
-	my $mysync = shift ;
-
-        if ( ! defined $mysync ) { return ; }
-
-        my $usage = q{} ;
-        my $usage_from_pod ;
-        my $usage_footer = usage_footer( $mysync ) ;
-
-        # pod2usage writes on a filehandle only and I want a variable
-        open my $fh_pod2usage, ">", \$usage_from_pod
-                or do { warn $OS_ERROR ; return ; } ;
-        mypod2usage( $fh_pod2usage ) ;
-        close $fh_pod2usage ;
-
-        if ( 'MSWin32' eq $OSNAME ) {
-                $usage_from_pod = backslash_caret( $usage_from_pod ) ;
-        }
-        $usage = join( q{}, $usage_from_pod, $usage_footer ) ;
-
-        return( $usage ) ;
-}
-
-sub tests_usage
-{
-        note( 'Entering tests_usage()' ) ;
-
-        my $usage ;
-        like( $usage = usage( $sync ), qr/Name:/, 'usage: contains Name:' ) ;
-        myprint( $usage ) ;
-        like( $usage, qr/Version:/, 'usage: contains Version:' ) ;
-        like( $usage, qr/Usage:/, 'usage: contains Usage:' ) ;
-        like( $usage, qr/imapsync/, 'usage: contains imapsync' ) ;
-
-        is( undef, usage(  ), 'usage: no args => undef' ) ;
-
-        note( 'Leaving  tests_usage()' ) ;
-        return ;
-}
-
-
-sub usage_footer
-{
-	my $mysync = shift ;
-
-        my $footer = q{} ;
-
-        my $localhost_info = localhost_info( $mysync ) ;
-        my $rcs = $mysync->{rcs} ;
-        my $homepage = homepage(  ) ;
-
-        my $imapsync_release = $STR_use_releasecheck  ;
-
-        if ( $mysync->{releasecheck} ) {
-                $imapsync_release = check_last_release(  )  ;
-        }
-
-        $footer = qq{$localhost_info
-$rcs
-$imapsync_release
-$homepage
-} ;
-        return( $footer ) ;
-}
-
-
-
-sub usage_complete
-{
-        # Unused, I guess this function could be deleted
-        my $usage = <<'EOF' ;
---skipheader   reg     : Don't take into account header keyword
-                         matching  reg    ex: --skipheader 'X.*'
-
---skipsize             : Don't take message size into account to compare
-                         messages on both sides. On by default.
-                         Use --no-skipsize for using size comparaison.
---allowsizemismatch    : allow RFC822.SIZE != fetched msg size
-                         consider also --skipsize to avoid duplicate messages
-                         when running syncs more than one time per mailbox
-
---reconnectretry1  int : reconnect to host1 if connection is lost up to
-                          int  times per imap command (default is 3)
---reconnectretry2  int : same as --reconnectretry1 but for host2
---split1      int      : split the requests in several parts on host1.
-                          int  is the number of messages handled per request.
-                         default is like --split1 100.
---split2      int      : same thing on host2.
---nofixInboxINBOX      : Don't fix Inbox INBOX mapping.
-EOF
-        return( $usage ) ;
-}
-
-sub myGetOptions
-{
-
-        # Started as a copy of Luke Ross Getopt::Long::CGI
-        # https://metacpan.org/release/Getopt-Long-CGI
-        # So this sub function is under the same license as Getopt-Long-CGI Luke Ross wants it,
-        # which was Perl 5.6 or later licenses at the date of the copy.
-
-        my $mysync        = shift @ARG ;
-        my $arguments_ref = shift @ARG ;
-        my %options       = @ARG ;
-
-        my $mycgi = $mysync->{cgi} ;
-
-        if ( not under_cgi_context() ) {
-
-                # Not CGI - pass upstream for normal command line handling
-                return Getopt::Long::GetOptionsFromArray( $arguments_ref, %options ) ;
-        }
-
-        # We must be in CGI context now
-        if ( ! defined( $mycgi ) ) { return ; }
-
-        my $badthings = 0 ;
-        foreach my $key ( sort keys %options ) {
-                my $val = $options{$key} ;
-
-                if ( $key !~ m/^([\w\d\|]+)([=:][isf])?([\+!\@\%])?$/mxs ) {
-                        $badthings++ ;
-                        next ;    # Unknown item
-                }
-
-                my $name = [ split '|', $1, 1 ]->[0] ;
-
-                if ( ( $3 || q{} ) eq '+' ) {
-                        ${$val} = $mycgi->param( $name ) ;    # "Incremental" integer
-                }
-                elsif ( $2 ) {
-                        my @values = $mycgi->multi_param( $name ) ;
-                        my $type   = $2 ;
-
-                        #myprint( "type[$type]values[@values]\$3[", $3 || q{}, "]val[$val]ref(val)[", ref($val), "]\n" ) ;
-                        if ( ( $3 || q{} ) eq '%' or ref( $val ) eq 'HASH' ) {
-                                my %values = map { split /=/mxs, $_ } @values ;
-
-                                if ( $type =~ m/i$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = int $values{$k} ;
-                                        }
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        foreach my $k ( keys %values ) {
-                                                $values{$k} = 0 + $values{$k};
-                                        }
-                                }
-                                if ( 'REF' eq ref $val ) {
-                                        %{ ${$val} } = %values ;
-                                }
-                                else {
-                                        %{$val} = %values ;
-                                }
-                        }
-                        else {
-                                if ( $type =~ m/i$/mxs ) {
-                                        @values = map { q{} ne $_ ? int $_ : undef } @values ;
-                                }
-                                elsif ( $type =~ m/f$/mxs ) {
-                                        @values = map { 0 + $_ } @values ;
-                                }
-                                if ( ( $3 || q{} ) eq '@' ) {
-                                        @{ ${$val} } = @values ;
-                                        my @option = map { +( "--$name", "$_" ) } @values ;
-                                        push @{ $mysync->{ cmdcgi } }, @option ;
-                                }
-                                elsif ( ref( $val ) eq 'ARRAY' ) {
-                                        @{$val} = @values ;
-                                }
-                                elsif ( my $value = $values[0] )
-                                {
-                                        ${$val} = $value ;
-                                        push @{ $mysync->{ cmdcgi } }, "--$name", $value ;
-                                }
-                                else
-                                {
-
-                                }
-                        }
-                }
-                else
-                {
-                        # Checkbox
-                        # Considers only --name
-                        # Should consider also --no-name and --noname
-                        my $value = $mycgi->param( $name ) ;
-                        if ( $value )
-                        {
-                                ${$val} = 1 ;
-                                push @{ $mysync->{ cmdcgi } }, "--$name" ;
-                        }
-                        else
-                        {
-                                ${$val} = undef ;
-                        }
-                }
-        }
-        if ( $badthings ) {
-                return ;    # undef or ()
-        }
-        else {
-                return ( 1 ) ;
-        }
-}
-
-
-my @blabla ; # just used to check get_options_cgi() with an array
-
-sub tests_get_options_cgi_context
-{
-	note( 'Entering tests_get_options_cgi()' ) ;
-
-# Temporary, have to think harder about testing CGI context in command line --tests
-	# API:
-	# * input arguments: two ways, command line or CGI
-	#    * the program arguments
-	#    * QUERY_STRING env variable
-	# * return
-	#   * QUERY_STRING length
-
-	# CGI context
-	local $ENV{SERVER_SOFTWARE} = 'Votre serviteur' ;
-
-	# Real full test
-	# = 'host1=test1.lamiral.info&user1=test1&password1=secret1&host2=test2.lamiral.info&user2=test2&password2=secret2&debugenv=on'
-	my $mysync ;
-	is( undef, get_options( $mysync ), 'get_options cgi context: no CGI module => undef' ) ;
-
-	require CGI ;
-	CGI->import( qw( -no_debug ) ) ;
-
-	is( undef, get_options( $mysync ), 'get_options cgi context: no CGI param => undef' ) ;
-	# Testing boolean
-	$mysync->{cgi} = CGI->new( 'version=on&debugenv=on' ) ;
-	local $ENV{'QUERY_STRING'} = 'version=on&debugenv=on' ;
-	is( 22,   get_options( $mysync ), 'get_options cgi context: QUERY_STRING => 22' ) ;
-	is(  1,   $mysync->{ version },        'get_options cgi context: --version => 1' ) ;
-	# debugenv is not allowed in cgi context
-	is(  undef,   $mysync->{debugenv},        'get_options cgi context: $mysync->{debugenv} => undef' ) ;
-
-	# QUERY_STRING in this test is only for return value of get_options
-	# Have to think harder, GET/POST context, is this return value a good thing?
-	local $ENV{'QUERY_STRING'} = 'host1=test1.lamiral.info&user1=test1' ;
-	$mysync->{cgi} = CGI->new( 'host1=test1.lamiral.info&user1=test1' ) ;
-	is( 36,      get_options( $mysync,  ), 'get_options cgi context: QUERY_STRING => 36' ) ;
-	is( 'test1',  $mysync->{user1},    'get_options cgi context: $mysync->{user1} => test1' ) ;
-        #local $ENV{'QUERY_STRING'} = undef ;
-
-	# Testing @
-	$mysync->{cgi} = CGI->new( 'blabla=fd1' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1' ],  [ @blabla ],    'get_options cgi context: @blabla => fd1' ) ;
-	$mysync->{cgi} = CGI->new( 'blabla=fd1&blabla=fd2' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1', 'fd2' ],  [ @blabla ],    'get_options cgi context: @blabla => fd1, fd2' ) ;
-
-	# Testing s@ as ref
-	$mysync->{cgi} = CGI->new( 'folder=fd1' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1' ],  $mysync->{ folder },    'get_options cgi context: $mysync->{ folder } => fd1' ) ;
-	$mysync->{cgi} = CGI->new( 'folder=fd1&folder=fd2' ) ;
-	get_options( $mysync ) ;
-	is_deeply( [ 'fd1', 'fd2' ], $mysync->{ folder },    'get_options cgi context: $mysync->{ folder } => fd1, fd2' ) ;
-
-	# Testing %
-	$mysync->{cgi} = CGI->new( 'f1f2h=s1=d1&f1f2h=s2=d2&f1f2h=s3=d3' ) ;
-	get_options( $mysync ) ;
-
-	is_deeply( { 's1' => 'd1', 's2' => 'd2', 's3' => 'd3' },
-	$mysync->{f1f2h}, 'get_options cgi context: f1f2h => s1=d1 s2=d2 s3=d3' ) ;
-
-	# Testing boolean ! with --noxxx, doesnot work
-	$mysync->{cgi} = CGI->new( 'nodry=on' ) ;
-        get_options( $mysync ) ;
-	is( undef,  $mysync->{dry},    'get_options cgi context: --nodry => $mysync->{dry} => undef' ) ;
-
-	$mysync->{cgi} = CGI->new( 'host1=example.com' ) ;
-        get_options( $mysync ) ;
-	is( 'example.com',  $mysync->{host1},    'get_options cgi context: --host1=example.com => $mysync->{host1} => example.com' ) ;
-
-        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-	$mysync->{cgi} = CGI->new( 'simulong=' ) ;
-        get_options( $mysync ) ;
-	is( undef,  $mysync->{simulong},    'get_options cgi context: --simulong= => $mysync->{simulong} => undef' ) ;
-
-	$mysync->{cgi} = CGI->new( 'simulong' ) ;
-        get_options( $mysync ) ;
-	is( undef,  $mysync->{simulong},    'get_options cgi context: --simulong => $mysync->{simulong} => undef' ) ;
-
-	$mysync->{cgi} = CGI->new( 'simulong=4' ) ;
-        get_options( $mysync ) ;
-	is( 4,  $mysync->{simulong},    'get_options cgi context: --simulong=4 => $mysync->{simulong} => 4' ) ;
-        is( undef,  $mysync->{ folder },    'get_options cgi context: --simulong=4 => $mysync->{ folder } => undef' ) ;
-        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-
-        $mysync ={} ;
-	$mysync->{cgi} = CGI->new( 'justfoldersizes=on' ) ;
-        get_options( $mysync ) ;
-	is( 1,  $mysync->{ justfoldersizes },    'get_options cgi context: --justfoldersizes=1 => justfoldersizes => 1' ) ;
-        myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-
-	note( 'Leaving  tests_get_options_cgi_context()' ) ;
-	return ;
-}
-
-
-
-sub get_options_cgi
-{
-        # In CGI context arguments are not in @ARGV but in QUERY_STRING variable (with GET).
-	my $mysync = shift @ARG ;
-	$mysync->{cgi} || return ;
-	my @arguments = @ARG ;
-	# final 0 is used to print usage when no option is given
-        my $numopt = length $ENV{'QUERY_STRING'} || 1 ;
-	$mysync->{f1f2h} = {} ;
-        my $opt_ret = myGetOptions(
-	$mysync,
-	\@arguments,
-	'abort'            => \$mysync->{abort},
-        'host1=s'          => \$mysync->{host1},
-        'host2=s'          => \$mysync->{host2},
-        'user1=s'          => \$mysync->{user1},
-        'user2=s'          => \$mysync->{user2},
-        'password1=s'      => \$mysync->{password1},
-        'password2=s'      => \$mysync->{password2},
-        'dry!'             => \$mysync->{dry},
-        'version'          => \$mysync->{version},
-        'ssl1!'            => \$mysync->{ssl1},
-        'ssl2!'            => \$mysync->{ssl2},
-        'tls1!'            => \$mysync->{tls1},
-        'tls2!'            => \$mysync->{tls2},
-        'justlogin!'       => \$mysync->{justlogin},
-        'justconnect!'     => \$mysync->{justconnect},
-        'addheader!'       => \$mysync->{addheader},
-        'automap!'         => \$mysync->{automap},
-        'justautomap!'     => \$mysync->{justautomap},
-	'gmail1'           => \$mysync->{gmail1},
-	'gmail2'           => \$mysync->{gmail2},
-	'office1'          => \$mysync->{office1},
-	'office2'          => \$mysync->{office2},
-	'exchange1'        => \$mysync->{exchange1},
-	'exchange2'        => \$mysync->{exchange2},
-	'domino1'          => \$mysync->{domino1},
-	'domino2'          => \$mysync->{domino2},
-        'f1f2=s@'          => \$mysync->{f1f2},
-        'f1f2h=s%'         => \$mysync->{f1f2h},
-        'folder=s@'        => \$mysync->{ folder },
-        'blabla=s'         => \@blabla,
-        'testslive!'       => \$mysync->{testslive},
-        'testslive6!'      => \$mysync->{testslive6},
-        'releasecheck!'    => \$mysync->{releasecheck},
-        'simulong=i'       => \$mysync->{simulong},
-        'debugsleep=f'     => \$mysync->{debugsleep},
-        'subfolder1=s'     => \$mysync->{ subfolder1 },
-        'subfolder2=s'     => \$mysync->{ subfolder2 },
-        'justfolders!'     => \$mysync->{ justfolders },
-        'justfoldersizes!' => \$mysync->{ justfoldersizes },
-        'delete1!'         => \$mysync->{ delete1 },
-        'delete2!'         => \$mysync->{ delete2 },
-        'delete2duplicates!'  => \$mysync->{ delete2duplicates },
-        'tail!'               => \$mysync->{tail},
-
-#  blabla and f1f2h=s% could be removed but
-# tests_get_options_cgi() should be split before
-# with a sub tests_myGetOptions()
-        ) ;
-
-        $mysync->{ debug } and output( $mysync, "get options: [$opt_ret][$numopt]\n" ) ;
-
-	if ( ! $opt_ret ) {
-		return ;
-	}
-	return $numopt ;
-}
-
-sub get_options_cmd
-{
-        my $mysync = shift @ARG ;
-        my @arguments = @ARG ;
-        my $mycgi = $mysync->{cgi} ;
-        # final 0 is used to print usage when no option is given on command line
-        my $numopt = scalar  @arguments || 0 ;
-        my $argv   = join "\x00", @arguments ;
-
-        if ( $argv =~ m/-delete\x002/x ) {
-                output( $mysync, "May be you mean --delete2 instead of --delete 2\n" ) ;
-                return ;
-        }
-        $mysync->{f1f2h} = {} ;
-        my $opt_ret = myGetOptions(
-        $mysync,
-        \@arguments,
-        'debug!'        => \$mysync->{ debug },
-        'debuglist!'    => \$debuglist,
-        'debugcontent!' => \$debugcontent,
-        'debugsleep=f'  => \$mysync->{debugsleep},
-        'debugflags!'   => \$debugflags,
-        'debugimap!'    => \$debugimap,
-        'debugimap1!'   => \$debugimap1,
-        'debugimap2!'   => \$debugimap2,
-        'debugdev!'     => \$debugdev,
-        'debugmemory!'  => \$mysync->{debugmemory},
-        'debugfolders!' => \$mysync->{debugfolders},
-        'debugssl=i'    => \$mysync->{debugssl},
-        'debugcgi!'     => \$debugcgi,
-        'debugenv!'     => \$mysync->{debugenv},
-        'debugsig!'     => \$mysync->{debugsig},
-        'debuglabels!'  => \$mysync->{debuglabels},
-        'simulong=i'    => \$mysync->{simulong},
-        'abort'         => \$mysync->{abort},
-        'host1=s'       => \$mysync->{host1},
-        'host2=s'       => \$mysync->{host2},
-        'port1=i'       => \$mysync->{port1},
-        'port2=i'       => \$mysync->{port2},
-        'inet4|ipv4'    => \$mysync->{inet4},
-        'inet6|ipv6'    => \$mysync->{inet6},
-        'user1=s'     => \$mysync->{user1},
-        'user2=s'     => \$mysync->{user2},
-        'gmail1'      => \$mysync->{gmail1},
-        'gmail2'      => \$mysync->{gmail2},
-        'office1'     => \$mysync->{office1},
-        'office2'     => \$mysync->{office2},
-        'exchange1'   => \$mysync->{exchange1},
-        'exchange2'   => \$mysync->{exchange2},
-        'domino1'     => \$mysync->{domino1},
-        'domino2'     => \$mysync->{domino2},
-        'domain1=s'   => \$domain1,
-        'domain2=s'   => \$domain2,
-        'password1=s' => \$mysync->{password1},
-        'password2=s' => \$mysync->{password2},
-        'passfile1=s' => \$mysync->{ passfile1 },
-        'passfile2=s' => \$mysync->{ passfile2 },
-        'authmd5!'    => \$authmd5,
-        'authmd51!'   => \$authmd51,
-        'authmd52!'   => \$authmd52,
-        'sep1=s'      => \$mysync->{ sep1 },
-        'sep2=s'      => \$mysync->{ sep2 },
-        'sanitize!'         => \$mysync->{ sanitize },
-        'folder=s@'         => \$mysync->{ folder },
-        'folderrec=s'       => \@folderrec,
-        'include=s'         => \@include,
-        'exclude=s'         => \@exclude,
-        'noexclude'         => \$mysync->{noexclude},
-        'folderfirst=s'     => \@folderfirst,
-        'folderlast=s'      => \@folderlast,
-        'prefix1=s'         => \$prefix1,
-        'prefix2=s'         => \$prefix2,
-        'subfolder1=s'      => \$mysync->{ subfolder1 },
-        'subfolder2=s'      => \$mysync->{ subfolder2 },
-        'fixslash2!'        => \$mysync->{ fixslash2 },
-        'fixInboxINBOX!'    => \$fixInboxINBOX,
-        'regextrans2=s@'    => \$mysync->{ regextrans2 },
-        'mixfolders!'       => \$mixfolders,
-        'skipemptyfolders!' => \$skipemptyfolders,
-        'regexmess=s'       => \@regexmess,
-        'noregexmess'       => \$mysync->{noregexmess},
-        'skipmess=s'        => \@skipmess,
-        'pipemess=s'        => \@pipemess,
-        'pipemesscheck!'    => \$pipemesscheck,
-        'disarmreadreceipts!' => \$disarmreadreceipts,
-        'regexflag=s'         => \@regexflag,
-        'noregexflag'         => \$mysync->{noregexflag},
-        'filterflags!'        => \$filterflags,
-        'flagscase!'          => \$flagscase,
-        'syncflagsaftercopy!' => \$syncflagsaftercopy,
-        'resyncflags!'        => \$mysync->{ resyncflags },
-        'synclabels!'         => \$mysync->{ synclabels },
-        'resynclabels!'       => \$mysync->{ resynclabels },
-        'delete|delete1!'     => \$mysync->{ delete1 },
-        'delete2!'            => \$mysync->{ delete2 },
-        'delete2duplicates!'  => \$mysync->{ delete2duplicates },
-        'delete2folders!'     => \$delete2folders,
-        'delete2foldersonly=s'   => \$delete2foldersonly,
-        'delete2foldersbutnot=s' => \$delete2foldersbutnot,
-        'syncinternaldates!' => \$syncinternaldates,
-        'idatefromheader!'   => \$idatefromheader,
-        'syncacls!'          => \$syncacls,
-        'maxsize=i'       => \$mysync->{ maxsize },
-        'appendlimit=i'   => \$mysync->{ appendlimit },
-        'truncmess=i'     => \$mysync->{ truncmess },
-        'minsize=i'       => \$minsize,
-        'maxage=f'        => \$maxage,
-        'minage=f'        => \$minage,
-        'search=s'        => \$search,
-        'search1=s'       => \$search1,
-        'search2=s'       => \$search2,
-        'foldersizes!'      => \$foldersizes,
-        'foldersizesatend!' => \$foldersizesatend,
-        'dry!'              => \$mysync->{dry},
-        'expunge1|expunge!' => \$mysync->{ expunge1 },
-        'expunge2!'         => \$mysync->{ expunge2 },
-        'uidexpunge2!'      => \$mysync->{ uidexpunge2 },
-        'subscribed'  => \$subscribed,
-        'subscribe!'  => \$subscribe,
-        'subscribeall|subscribe_all!'  => \$subscribeall,
-        'justbanner!' => \$justbanner,
-        'justfolders!'=> \$mysync->{ justfolders },
-        'justfoldersizes!' => \$mysync->{ justfoldersizes },
-        'fast!'       => \$fast,
-        'version'     => \$mysync->{version},
-        'help'        => \$help,
-        'timeout=i'   => \$timeout,
-        'timeout1=i'   => \$mysync->{h1}->{timeout},
-        'timeout2=i'   => \$mysync->{h2}->{timeout},
-        'skipheader=s' => \$skipheader,
-        'useheader=s' => \@useheader,
-        'wholeheaderifneeded!'   => \$wholeheaderifneeded,
-        'messageidnodomain!' => \$messageidnodomain,
-        'skipsize!'   => \$skipsize,
-        'allowsizemismatch!' => \$allowsizemismatch,
-        'fastio1!'     => \$fastio1,
-        'fastio2!'     => \$fastio2,
-        'sslcheck!'    => \$mysync->{sslcheck},
-        'ssl1!'        => \$mysync->{ssl1},
-        'ssl2!'        => \$mysync->{ssl2},
-        'ssl1_ssl_version=s' => \$mysync->{h1}->{sslargs}->{SSL_version},
-        'ssl2_ssl_version=s' => \$mysync->{h2}->{sslargs}->{SSL_version},
-        'sslargs1=s%'        => \$mysync->{h1}->{sslargs},
-        'sslargs2=s%'        => \$mysync->{h2}->{sslargs},
-        'tls1!'        => \$mysync->{tls1},
-        'tls2!'        => \$mysync->{tls2},
-        'uid1!'        => \$uid1,
-        'uid2!'        => \$uid2,
-        'authmech1=s' => \$authmech1,
-        'authmech2=s' => \$authmech2,
-        'authuser1=s' => \$authuser1,
-        'authuser2=s' => \$authuser2,
-        'proxyauth1'  => \$proxyauth1,
-        'proxyauth2'  => \$proxyauth2,
-        'split1=i'    => \$split1,
-        'split2=i'    => \$split2,
-        'buffersize=i' => \$buffersize,
-        'reconnectretry1=i' => \$reconnectretry1,
-        'reconnectretry2=i' => \$reconnectretry2,
-        'tests!'          => \$mysync->{ tests },
-        'testsdebug|tests_debug!' => \$mysync->{ testsdebug },
-        'testsunit=s@'    => \$mysync->{testsunit},
-        'testslive!'      => \$mysync->{testslive},
-        'testslive6!'     => \$mysync->{testslive6},
-        'justlogin!'      => \$mysync->{justlogin},
-        'justconnect!'    => \$mysync->{justconnect},
-        'tmpdir=s'        => \$mysync->{ tmpdir },
-        'pidfile=s'       => \$mysync->{pidfile},
-        'pidfilelocking!' => \$mysync->{pidfilelocking},
-        'sigexit=s@'      => \$mysync->{ sigexit },
-        'sigreconnect=s@' => \$mysync->{ sigreconnect },
-        'sigignore=s@'    => \$mysync->{ sigignore },
-        'releasecheck!'   => \$mysync->{releasecheck},
-        'modulesversion|modules_version!' => \$modulesversion,
-        'usecache!'    => \$usecache,
-        'cacheaftercopy!' => \$cacheaftercopy,
-        'debugcache!' => \$debugcache,
-        'useuid!'     => \$useuid,
-        'addheader!'  => \$mysync->{addheader},
-        'exitwhenover=i' => \$mysync->{ exitwhenover },
-        'checkselectable!' => \$mysync->{ checkselectable },
-        'checkfoldersexist!' => \$mysync->{ checkfoldersexist },
-        'checkmessageexists!' => \$checkmessageexists,
-        'expungeaftereach!' => \$mysync->{ expungeaftereach },
-        'abletosearch!'  => \$mysync->{abletosearch},
-        'abletosearch1!' => \$mysync->{abletosearch1},
-        'abletosearch2!' => \$mysync->{abletosearch2},
-        'showpasswords!' => \$mysync->{showpasswords},
-        'maxlinelength=i'        => \$maxlinelength,
-        'maxlinelengthcmd=s'     => \$maxlinelengthcmd,
-        'minmaxlinelength=i'     => \$minmaxlinelength,
-        'debugmaxlinelength!'    => \$debugmaxlinelength,
-        'fixcolonbug!'           => \$fixcolonbug,
-        'create_folder_old!'     => \$create_folder_old,
-        'maxmessagespersecond=f' => \$mysync->{maxmessagespersecond},
-        'maxbytespersecond=i'    => \$mysync->{maxbytespersecond},
-        'maxbytesafter=i'        => \$mysync->{maxbytesafter},
-        'maxsleep=f'             => \$mysync->{maxsleep},
-        'skipcrossduplicates!'   => \$skipcrossduplicates,
-        'debugcrossduplicates!'  => \$debugcrossduplicates,
-        'log!'                   => \$mysync->{log},
-        'tail!'                  => \$mysync->{tail},
-        'logfile=s'        => \$mysync->{logfile},
-        'logdir=s'         => \$mysync->{logdir},
-        'errorsmax=i'      => \$mysync->{errorsmax},
-        'errorsdump!'      => \$mysync->{errorsdump},
-        'fetch_hash_set=s' => \$fetch_hash_set,
-        'automap!'         => \$mysync->{automap},
-        'justautomap!'     => \$mysync->{justautomap},
-        'id!'              => \$mysync->{id},
-        'f1f2=s@'          => \$mysync->{f1f2},
-        'nof1f2'           => \$mysync->{nof1f2},
-        'f1f2h=s%'         => \$mysync->{f1f2h},
-        'justfolderlists!' => \$mysync->{justfolderlists},
-        'delete1emptyfolders' => \$mysync->{delete1emptyfolders},
-        ) ;
-        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-        $mysync->{ debug } and output( $mysync, "get options: [$opt_ret][$numopt]\n" ) ;
-        my $numopt_after = scalar @arguments ;
-        #myprint( "get options: [$opt_ret][$numopt][$numopt_after]\n" ) ;
-        if ( $numopt_after ) {
-                myprint(
-                        "Extra arguments found: @arguments\n",
-                        "It usually means a quoting issue in the command line ",
-                        "or some misspelling options.\n",
-                ) ;
-                return ;
-        }
-        if ( ! $opt_ret ) {
-                return ;
-        }
-        return $numopt ;
-}
-
-
-
-sub tests_get_options
-{
-	note( 'Entering tests_get_options()' ) ;
-
-	# CAVEAT: still setting global variables, be careful
-	# with tests, the context increases! $debug stays on for example.
-	# API:
-	# * input arguments: two ways, command line or CGI
-	#    * the program arguments
-	#    * QUERY_STRING env variable
-	# * return
-	#   * undef if bad things happened like
-	#     * options not known
-	#     * --delete 2 input
-	#   * number of arguments or QUERY_STRING length
-	my $mysync = {  } ;
-	is( undef, get_options( $mysync, qw( --noexist ) ),                   'get_options: --noexist  => undef' ) ;
-        is( undef, $mysync->{ noexist },  'get_options: --noexist  => undef' ) ;
-        $mysync = {  } ;
-	is( undef, get_options( $mysync, qw( --lalala --noexist --version ) ), 'get_options: --lalala --noexist --version  => undef' ) ;
-        is( 1,     $mysync->{ version }, 'get_options: --version => 1' ) ;
-        is( undef, $mysync->{ noexist },  'get_options: --noexist  => undef' ) ;
-        $mysync = {  } ;
-	is( 1,     get_options( $mysync, qw( --delete2 ) ), 'get_options: --delete2 => 1' ) ;
-        is( 1, $mysync->{ delete2 },  'get_options: --delete2 => var delete2 = 1' ) ;
-        $mysync = {  } ;
-	is( undef, get_options( $mysync, qw( --delete 2 ) ), 'get_options: --delete 2 => var undef' ) ;
-        is( undef, $mysync->{ delete1 },  'get_options: --delete 2 => var still undef ; good!' ) ;
-        $mysync = {  } ;
-	is( undef, get_options( $mysync, "--delete  2" ), 'get_options: --delete  2 => undef' ) ;
-
-	is( 1,     get_options( $mysync, "--version" ), 'get_options: --version => 1' ) ;
-	is( 1,     get_options( $mysync, "--help" ), 'get_options: --help => 1' ) ;
-
-	is( undef, get_options( $mysync, qw( --noexist --version ) ), 'get_options: --debug --noexist --version  => undef' ) ;
-	is( 1,     get_options( $mysync, qw( --version ) ), 'get_options: --version => 1' ) ;
-	is( undef, get_options( $mysync, qw( extra ) ), 'get_options: extra => undef' ) ;
-	is( undef, get_options( $mysync, qw( extra1 --version extra2 ) ), 'get_options: extra1 --version extra2 => undef' ) ;
-
-        $mysync = {  } ;
-        is( 2, get_options( $mysync, qw( --host1 HOST_01) ), 'get_options: --host1 HOST_01 => 1' ) ;
-        is( 'HOST_01',  $mysync->{ host1 }, 'get_options: --host1 HOST_01 => HOST_01' ) ;
-        #myprint( Data::Dumper->Dump( [ $mysync ] )  ) ;
-
-	note( 'Leaving  tests_get_options()' ) ;
-	return ;
-}
-
-
-
-sub get_options
-{
-	my $mysync = shift @ARG ;
-	my @arguments = @ARG ;
-        #myprint( "1 mysync: ", Data::Dumper->Dump( [ $mysync ] ) ) ;
-        my $ret ;
-	if ( under_cgi_context(  ) ) {
-		# CGI context
-		$ret = get_options_cgi( $mysync, @arguments )  ;
-	}else{
-		# Command line context ;
-		$ret = get_options_cmd( $mysync, @arguments )  ;
-	} ;
-        #myprint( "2 mysync: ", Data::Dumper->Dump( [ $mysync ] ) ) ;
-        foreach my $key ( sort keys %{ $mysync } ) {
-                if ( ! defined $mysync->{$key} ) {
-                        delete $mysync->{$key} ;
-                        next ;
-                }
-                if ( 'ARRAY' eq ref( $mysync->{$key} )
-                     and 0 == scalar( @{ $mysync->{$key} } ) ) {
-                        delete $mysync->{$key} ;
-                }
-        }
-	return $ret ;
-}
-
-sub testunitsession
-{
-	my $mysync = shift ;
-
-	if ( ! $mysync ) { return ; }
-	if ( ! $mysync->{ testsunit } ) { return ; }
-
-	my @functions = @{ $mysync->{ testsunit } } ;
-
-	if ( ! @functions ) { return ; }
-
-	SKIP: {
-		if ( ! @functions ) { skip 'No test in normal run' ; }
-		testsunit( @functions ) ;
-                done_testing(  ) ;
-	}
-	return ;
-}
-
-sub tests_count_0s
-{
-	note( 'Entering tests_count_zeros()' ) ;
-	is( 0, count_0s(  ), 'count_0s: no parameters => 0' ) ;
-	is( 1, count_0s( 0 ), 'count_0s: 0 => 1' ) ;
-	is( 0, count_0s( 1 ), 'count_0s: 1 => 0' ) ;
-	is( 1, count_0s( 1, 0, 1 ), 'count_0s: 1, 0, 1 => 1' ) ;
-	is( 2, count_0s( 1, 0, 1, 0 ), 'count_0s: 1, 0, 1, 0 => 2' ) ;
-	note( 'Leaving  tests_count_zeros()' ) ;
-	return ;
-}
-sub count_0s
-{
-	my @array = @ARG ;
-
-	if ( ! @array ) { return 0 ; }
-	my $nb_zeros = 0 ;
-	map { $_ == 0 and $nb_zeros += 1 } @array ;
-	return $nb_zeros ;
-}
-
-sub tests_report_failures
-{
-        note( 'Entering tests_report_failures()' ) ;
-
-	is( undef, report_failures(  ), 'report_failures: no parameters => undef' ) ;
-	is( "nb 1 - first\n", report_failures( ({'ok' => 0, name => 'first'}) ), 'report_failures: "first" failed => nb 1 - first' ) ;
-	is( q{}, report_failures( ( {'ok' => 1, name => 'first'} ) ), 'report_failures: "first" success =>' ) ;
-	is( "nb 2 - second\n", report_failures( ( {'ok' => 1, name => 'second'}, {'ok' => 0, name => 'second'} ) ), 'report_failures: "second" failed => nb 2 - second' ) ;
-	is( "nb 1 - first\nnb 2 - second\n", report_failures( ( {'ok' => 0, name => 'first'}, {'ok' => 0, name => 'second'} ) ), 'report_failures: both failed => nb 1 - first nb 2 - second' ) ;
-	note( 'Leaving  tests_report_failures()' ) ;
-	return ;
-}
-
-sub report_failures
-{
-	my @details = @ARG ;
-
-	if ( ! @details ) { return ; }
-
-	my $counter = 1 ;
-	my $report  = q{} ;
-	foreach my $details ( @details ) {
-		if ( ! $details->{ 'ok' } ) {
-			my $name = $details->{ 'name' } || 'NONAME' ;
-			$report .= "nb $counter - $name\n" ;
-		}
-		$counter += 1 ;
-	}
-	return $report ;
-
-}
-
-sub tests_true
-{
-	note( 'Entering tests_true()' ) ;
-
-	is( 1, 1, 'true: 1 is 1' ) ;
-	note( 'Leaving  tests_true()' ) ;
-	return ;
-}
-
-sub tests_testsunit
-{
-	note( 'Entering tests_testunit()' ) ;
-
-	is( undef, testsunit(  ), 'testsunit: no parameters => undef' ) ;
-	is( undef, testsunit( undef ), 'testsunit: an undef parameter => undef' ) ;
-	is( undef, testsunit( q{} ), 'testsunit: an empty parameter => undef' ) ;
-	is( undef, testsunit( 'idonotexist' ), 'testsunit: a do not exist function as parameter => undef' ) ;
-	is( undef, testsunit( 'tests_true' ), 'testsunit: tests_true => undef' ) ;
-	note( 'Leaving  tests_testunit()' ) ;
-	return ;
-}
-
-sub testsunit
-{
-	my @functions = @ARG ;
-
-	if ( ! @functions ) { #
-                myprint( "testsunit warning: no argument given\n" ) ;
-                return ;
-        }
-
-	foreach my $function ( @functions ) {
-		if ( ! $function ) {
-                        myprint( "testsunit warning: argument is empty\n" ) ;
-                        next ;
-                }
-		if ( ! exists &$function ) {
-                        myprint( "testsunit warning: function $function does not exist\n" ) ;
-                        next ;
-                }
-		if ( ! defined &$function ) {
-                        myprint( "testsunit warning: function $function is not defined\n" ) ;
-                        next ;
-                }
-		my $function_ref = \&{ $function } ;
-		&$function_ref() ;
-	}
-	return ;
-}
-
-sub testsdebug
-{
-        # Now a little obsolete since there is
-        # imapsync ... --testsunit "anyfunction"
-        my $mysync = shift ;
-        if ( ! $mysync->{ testsdebug } ) { return ; }
-        SKIP: {
-                if ( ! $mysync->{ testsdebug } ) {
-                        skip 'No test in normal run' ;
-                }
-
-                note( 'Entering testsdebug()' ) ;
-                ok( ( ( not -d 'W/tmp/tests' ) or rmtree( 'W/tmp/tests/' ) ), 'testsdebug: rmtree W/tmp/tests' ) ;
-                tests_check_binary_embed_all_dyn_libs(  ) ;
-                note( 'Leaving  testsdebug()' ) ;
-                done_testing(  ) ;
-        }
-        return ;
-}
-
-
-sub tests
-{
-        my $mysync = shift ;
-        if ( ! $mysync->{ tests } ) { return ; }
-
-        SKIP: {
-                skip 'No test in normal run' if ( ! $mysync->{ tests } ) ;
-                note( 'Entering tests()' ) ;
-                tests_folder_routines(  ) ;
-                tests_compare_lists(  ) ;
-                tests_regexmess(  ) ;
-                tests_skipmess(  ) ;
-                tests_flags_regex();
-                tests_ucsecond(  ) ;
-                tests_permanentflags();
-                tests_flags_filter(  ) ;
-                tests_separator_invert(  ) ;
-                tests_imap2_folder_name(  ) ;
-                tests_command_line_nopassword(  ) ;
-                tests_good_date(  ) ;
-                tests_max(  ) ;
-                tests_remove_not_num();
-                tests_memory_consumption( ) ;
-                tests_is_a_release_number();
-                tests_imapsync_basename();
-                tests_list_keys_in_2_not_in_1();
-                tests_convert_sep_to_slash(  ) ;
-                tests_match_a_cache_file(  ) ;
-                tests_cache_map(  ) ;
-                tests_get_cache(  ) ;
-                tests_clean_cache(  ) ;
-                tests_clean_cache_2(  ) ;
-                tests_touch(  ) ;
-                tests_flagscase(  ) ;
-                tests_mkpath(  ) ;
-                tests_extract_header(  ) ;
-                tests_decompose_header(  ) ;
-                tests_epoch(  ) ;
-                tests_add_header(  ) ;
-                tests_cache_dir_fix(  ) ;
-                tests_cache_dir_fix_win(  ) ;
-                tests_filter_forbidden_characters(  ) ;
-                tests_cache_folder(  ) ;
-                tests_time_remaining(  ) ;
-                tests_decompose_regex(  ) ;
-                tests_backtick(  ) ;
-                tests_bytes_display_string(  ) ;
-                tests_header_line_normalize(  ) ;
-                tests_fix_Inbox_INBOX_mapping(  ) ;
-                tests_max_line_length(  ) ;
-                tests_subject(  ) ;
-                tests_msgs_from_maxmin(  ) ;
-                tests_tmpdir_has_colon_bug(  ) ;
-                tests_sleep_max_messages(  ) ;
-                tests_sleep_max_bytes(  ) ;
-                tests_logfile(  ) ;
-                tests_setlogfile(  ) ;
-                tests_jux_utf8(  ) ;
-                tests_pipemess(  ) ;
-                tests_jux_utf8_list(  ) ;
-                tests_guess_prefix(  ) ;
-                tests_guess_separator(  ) ;
-                tests_format_for_imap_arg(  ) ;
-                tests_imapsync_id(  ) ;
-                tests_date_from_rcs(  ) ;
-                tests_quota_extract_storage_limit_in_bytes(  ) ;
-                tests_quota_extract_storage_current_in_bytes(  ) ;
-                tests_guess_special(  ) ;
-                tests_do_valid_directory(  ) ;
-                tests_delete1emptyfolders(  ) ;
-                tests_message_for_host2(  ) ;
-                tests_length_ref(  ) ;
-                tests_firstline(  ) ;
-                tests_diff_or_NA(  ) ;
-                tests_match_number(  ) ;
-                tests_all_defined(  ) ;
-                tests_special_from_folders_hash(  ) ;
-		tests_notmatch(  ) ;
-		tests_match(  ) ;
-		tests_get_options(  ) ;
-		tests_get_options_cgi_context(  ) ;
-		tests_rand32(  ) ;
-		tests_hashsynclocal(  ) ;
-		tests_hashsync(  ) ;
-		tests_output(  ) ;
-		tests_output_reset_with(  ) ;
-		tests_output_start(  ) ;
-		tests_check_last_release(  ) ;
-		tests_loadavg(  ) ;
-		tests_cpu_number(  ) ;
-		tests_load_and_delay(  ) ;
-		#tests_imapsping(  ) ;
-		#tests_tcpping(  ) ;
-		tests_sslcheck(  ) ;
-		tests_not_long_imapsync_version_public(  ) ;
-		tests_reconnect_if_needed(  ) ;
-		tests_reconnect_12_if_needed(  ) ;
-		tests_sleep_if_needed(  ) ;
-		tests_string_to_file(  ) ;
-		tests_file_to_string(  ) ;
-		tests_under_cgi_context(  ) ;
-		tests_umask(  ) ;
-		tests_umask_str(  ) ;
-		tests_set_umask(  ) ;
-		tests_createhashfileifneeded(  ) ;
-		tests_move_slash(  ) ;
-		tests_testsunit(  ) ;
-		tests_count_0s(  ) ;
-		tests_report_failures(  ) ;
-		tests_min(  ) ;
-		#tests_resolv(  ) ;
-		#tests_resolvrev(  ) ;
-		tests_connect_socket(  ) ;
-                tests_probe_imapssl(  ) ;
-                tests_mailimapclient_connect(  ) ;
-                tests_usage(  ) ;
-                tests_version_from_rcs(  ) ;
-                tests_backslash_caret(  ) ;
-                #tests_mailimapclient_connect_bug(  ) ; # it fails with Mail-IMAPClient <= 3.39
-                tests_write_pidfile(  ) ;
-                tests_remove_pidfile_not_running(  ) ;
-                tests_match_a_pid_number(  ) ;
-                tests_prefix_seperator_invertion(  ) ;
-                tests_is_an_integer(  ) ;
-                tests_integer_or_1(  ) ;
-                tests_is_number(  ) ;
-                tests_sig_install(  ) ;
-                tests_template(  ) ;
-                tests_split_around_equal(  ) ;
-                tests_toggle_sleep(  ) ;
-                tests_labels(  ) ;
-                tests_synclabels(  ) ;
-                tests_uidexpunge_or_expunge(  ) ;
-                tests_appendlimit_from_capability(  ) ;
-                tests_maxsize_setting(  ) ;
-                tests_mock_capability(  ) ;
-                tests_appendlimit(  ) ;
-                tests_capability_of(  ) ;
-                tests_search_in_array(  ) ;
-                tests_operators_and_exclam_precedence(  ) ;
-                tests_teelaunch(  ) ;
-                tests_logfileprepa(  ) ;
-                tests_useheader_suggestion(  ) ;
-                tests_nb_messages_in_2_not_in_1(  ) ;
-                tests_labels_add_subfolder2(  ) ;
-                tests_labels_remove_subfolder1(  ) ;
-                tests_resynclabels(  ) ;
-                tests_labels_remove_special(  ) ;
-                tests_uniq(  ) ;
-                tests_remove_from_requested_folders(  ) ;
-                tests_errors_log(  ) ;
-                tests_add_subfolder1_to_folderrec(  ) ;
-                tests_sanitize_subfolder(  ) ;
-                tests_remove_edging_blanks(  ) ;
-                tests_sanitize(  ) ;
-                tests_remove_last_char_if_is(  ) ;
-                tests_check_binary_embed_all_dyn_libs(  ) ;
-                tests_nthline(  ) ;
-                tests_secondline(  ) ;
-                tests_tail(  ) ;
-                tests_truncmess(  ) ;
-                #tests_always_fail(  ) ;
-                done_testing( 1454 ) ;
-                note( 'Leaving  tests()' ) ;
-        }
-        return ;
-}
-
-sub tests_template
-{
-        note( 'Entering tests_template()' ) ;
-
-        is( undef, undef,  'template: undef is undef' ) ;
-        is_deeply( {}, {}, 'template: a hash is a hash' ) ;
-        is_deeply( [], [], 'template: an array is an array' ) ;
-        note( 'Leaving  tests_template()' ) ;
-        return ;
-}
-
-
-
-
diff --git a/index.shtml b/index.shtml
index 775293f..6e17a02 100644
--- a/index.shtml
+++ b/index.shtml
@@ -23,6 +23,7 @@
 <!--
     <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" />
 -->
+
 </head>
 
 <body>
@@ -30,19 +31,20 @@
 <div  id="left-menu">
 <ul  class="none">
    <li><a  href="#WHATIS">What is imapsync?</a></li>
-   <li><big><big><a  href="https://i005.lamiral.info/X/" title="Free full service!">Use imapsync online!</a></big></big></li>
+   <li><big><big><a  href="https://imapsync.lamiral.info/X/" title="Free online service under 3 GB">Use imapsync online 24/7! No installation! Free! ( below 3 GB )</a></big></big></li>
    <li><a  rel="author" href="#AUTHOR">Contact the author, Gilles LAMIRAL</a></li>
    <li><a  href="S/testimonial.shtml">Testimonials from users</a></li>
-   
-   <li><a  href="#buy_all" class="larger" >Buy <b>imapsync</b> and <b>support</b></a> ( Windows + Linux + OS X + Source )</li>
+   <li><a  href="#CANTDO">What imapsync can't do?</a></li>
+   <li><a  href="#buy_all" class="larger" >Buy <b>imapsync</b> and <b>support</b></a> ( Windows + Linux + Mac OS X ) </li>
    <!-- <li><big><a  href="http://imapsync.lamiral.info/S/guestbook.shtml">New! Give your feedback via the Guestbook!</a></big></li> -->
-   <li><a  href="http://imapsync.lamiral.info/S/poll.shtml">Vote for a better imapsync and better services</a></li>
+   <!-- <li><a  href="http://imapsync.lamiral.info/S/poll.shtml">Vote for a better imapsync and better services</a></li> -->
    <li><a  href="#SUPPORT">What <b>support </b></a>is given?</li>
    <li><a  href="#NUMBERS">Facts and figures</a></li>
    <li>Examples:</li>
    <li>
         <ul  class="none">
    <li><a  rel="help" href="#DOC_BASIC">How to transfer a single mailbox on Windows</a></li>
+   <li><a  rel="help" href="#DOC_BASIC_MAC">How to transfer a single mailbox on Mac OS X</a></li>
    <li><a  rel="help" href="#DOC_BASIC_UNIX">How to transfer a single mailbox on Unix</a></li>
    <li><a  rel="help" href="#DOC_MASS">How to transfer many mailboxes</a></li>
         </ul>
@@ -50,7 +52,7 @@
    <li><a rel="help" href="#install">Installation</a></li>
    <li><a rel="help" href="#doc" class="larger" >Documentation</a></li>
    <li><a  href="S/news.shtml">News about imapsync <!--#exec cmd="cat ./VERSION| tr -d '\n'" -->, previous and next releases</a></li>
-   <li><a  href="S/imapservers.shtml">List of the 81 imap software server applications <b>supported</b></a> by imapsync</li>
+   <li><a  href="S/imapservers.shtml">List of the 86 imap software server applications <b>supported</b></a> by imapsync</li>
    <li><a  href="S/external.shtml">Similar software tools and external services</a></li>
    <li><a  href="S/mailing_list.shtml">Discuss or search on the mailing-list</a></li>
    <li><a  href="S/terms_and_conditions.shtml">Imapsync Terms and Conditions</a></li>
@@ -66,7 +68,10 @@
 <img  width="486"  height="309"  alt="imapsync logo"  src="S/images/logo_imapsync.png" />
 </a>
 
-<h1>Time to copy all your emails and folders elsewhere!</h1>
+<h1>Afraid of losing all your precious emails?<br/>
+It's time to copy all of them elsewhere!<br/>
+Safely.
+</h1>
 
 <!-- I use SSI here only to pass a strict xhtml validation that facebook/twitter/coinbase can't pass -->
 <!-- remove space before #include to activate these ssi -->
@@ -91,18 +96,18 @@ Imapsync presentation by Gilles
 
 
 <p>
-Imapsync is an <b>IMAP transfers tool</b>.
+Imapsync is an <b>IMAP transfer tool</b>.
 The purpose of imapsync is to <b>migrate</b> IMAP accounts or to <b>backup</b> IMAP accounts. 
-IMAP is one of the three current standard protocols used to access mailboxes,
-the two other are POP3 and HTTP with webmails, 
-webmails are often tied to an IMAP server.   
+IMAP, IMAP4 in fact (started December 1994), is one of the three current standard protocols used to access mailboxes,
+the two other being POP3 (started November 1988) and HTTP (started May 1996) with webmails, 
+webmails are often tied to an IMAP server.
 </p>
 
-<p>Latest imapsync published release <!--#exec cmd="cat ./VERSION| tr -d '\n'" --> 
+<p>The latest imapsync published release <!--#exec cmd="cat ./VERSION| tr -d '\n'" --> 
 was written on <!--#flastmod file="VERSION" -->
 </p>
 
-<p><b>Imapsync</b> software is a command line tool that allows incremental and
+<p><b>Imapsync</b> is a command-line tool that allows incremental and
 recursive <b>IMAP</b> transfers from one mailbox to another, both anywhere on the internet
 or in your local network.  Imapsync runs on <b>Windows</b>, <b>Linux</b>, <b>Mac OS X</b>.
 
@@ -111,12 +116,16 @@ and restart it later efficiently, without generating duplicates.
 
 "<b>Recursive</b>" means the complete folders hierarchy can be copied, all folders, all subfolders etc.
 
-"<b>Command line</b>" means it's not a graphical tool, on Windows you have to run imapsync 
+"<b>Command-line</b>" means it's not a graphical tool, on Windows you have to run imapsync 
 from a <a  href="#DOC_BASIC">batch file</a>.
 Anyway there is a visual online service, 
-you can try imapsync online at <a  href="https://i005.lamiral.info/X/">https://i005.lamiral.info/X/</a>
+you can try imapsync online at <a  href="https://imapsync.lamiral.info/X/">https://imapsync.lamiral.info/X/</a>
 </p>
 
+<h2>What imapsync can't do? <a  href="#TOP"  id="CANTDO"><small>(back to menu)</small></a>
+</h2>
+
+
 <p>
 <b>Imapsync can't migrate Contacts and Calendars</b>. 
 Most email systems don't set or get Contacts or Calendars via the IMAP protocol.
@@ -127,17 +136,30 @@ or asking experts at <a  href="https://twitter.com/sumatra_dev">Sumatra company<
 </p>
 
 <p>
-<b>imapsync</b> is not suitable for maintaining a synchronization between two active imap accounts while the user
-is working on both sides.
+<b>Imapsync is not suitable</b> for maintaining a synchronization <b>between two
+active imap accounts</b> while the user is working on both sides.
+See why in the <a  href="FAQ.d/FAQ.Two_Ways_Sync.txt">Two Ways Sync</a> document.
 
 Use <a  href="http://offlineimap.org/"><b>offlineimap</b></a> (written by John Goerzen) 
 or <a  href="http://isync.sourceforge.net/"><b>mbsync</b></a> (written by Michael R. Elkins) 
-for <b>bidirectionnal (2 ways) synchronizations</b>.
+for <b>bidirectional (2 ways) synchronizations</b>.
+</p>
+
+<p>
+<b>Imapsync can't backup</b> nor <b>restore</b> email messages <b>to or from a local directory</b>.
+Imapsync works only with IMAP accounts, which always belong to some IMAP server. 
+Read the <a  href="FAQ.d/FAQ.Archiving.txt">Archiving</a> 
+document to get several solutions, at least four solutions, to this issue.
 </p>
 
 <p>Alternatives to imapsync are listed in the <a  href="S/external.shtml"><b>Similar softwares</b></a> section.
 </p>
 
+<p>Alternatives to the <a  href="https://imapsync.lamiral.info/X/" title="Free online service under 3 GB">imapsync online service</a>
+are listed in the <a  href="S/external.shtml#ONLINE_OTHERS"><b>External online services</b></a> section.
+
+</p>
+
 <!--
 <p>Imapsync used to be free, open and gratis, that was before November 2010. 
 Now imapsync is free, open and not gratis from the homepage. 
@@ -210,6 +232,11 @@ See detailed explanation and motivation here when
     <p><b>Good feedback is always welcome!</b><br/>
     and bad feedback is very often welcome</p>
 
+<p>
+It may sounds crazy but I do reply personally to every single email message 
+I receive, so don't hesitate to spend time writing to me about your email
+problems, you're sure to get my attention and my time.
+</p>
 
 <h2>Buy imapsync and support <a  href="#TOP"  id="buy_all"><small>(back to menu)</small></a>
 </h2>
@@ -245,14 +272,17 @@ See detailed explanation and motivation here when
 <ul>
 <li>Imapsync <b>full professional support</b> (that costs also &euro;120 EUR by itself, see why below).</li>
 
+<li>Access without any limit to the imapsync online service.
+</li>
+
 <li>Standalone <b>imapsync.exe</b> for win32, easy installation done by a zip extraction anywhere. 
     See <a  href="README_Windows.txt">README_Windows.txt</a> for details.</li>
     
-<li>Standalone <b>imapsync_bin_Darwin</b> for Mac OS X. (not Catalina ready because of the new signature mechanism)</li>
+<li>Standalone <b>imapsync_bin_Darwin</b> for <a  href="INSTALL.d/INSTALL.Darwin.txt">Mac OS X</a>. (Catalina ok with a permission deed)</li>
 
 <li>Imapsync Perl <b>source code</b> for any operating system, Unix, Windows, OS X.</li>
 
-<li>The <b>online visual interface</b>, like <b><a href="https://i005.lamiral.info/X/">/X</a></b>,
+<li>The <b>online visual interface</b>, like <b><a href="https://imapsync.lamiral.info/X/">/X</a></b>,
     to install the service on a <b>Linux server</b> (not working on Windows yet).</li>
     
 <li><b>Lifetime</b> of imapsync <b>updates</b> without extra payment.</li>
@@ -268,15 +298,17 @@ See detailed explanation and motivation here when
 <p>
 For <b>&euro;120 EUR</b> independently, you get imapsync <b>full professional support</b>,
 provided by the imapsync designer and developer, Gilles LAMIRAL, your servitor, who has
-been supporting imap migrations with imapsync for more than 18 years (I started in 2001).
+been supporting imap migrations with imapsync for more than 19 years (I started in 2001).
 See a detailed <a  href="#SUPPORT"><b>support description</b></a> below.
 </p>
 
 <p>
-You may wonder <b>why the support alone is the same price as imapsync+support?</b> it's 
-because when you buy both at once, I'm not sure I will have to spend some time 
-directly with you, it's possible that everything will go smoothly for you;
-but when you buy the support alone, after buying the software, 
+You may wonder <b>why the support alone is the same price as imapsync+support?</b>
+
+It's because when you buy both at once, I'm not sure I will have to spend some time 
+directly with you, it's possible that everything goes smoothly for you,
+since this aim is my daily work.
+But when you buy the support alone, after buying the software, 
 then I will surely spend time (any amount of hours) to help you. 
 Does it seem fair enough?
 </p>
@@ -289,34 +321,40 @@ Does it seem fair enough?
 <input  type="hidden"  value="H2YTURNFT4XT4"  name="hosted_button_id" />
 <input  type="hidden"  value="imapsync choice"  name="on0" />
 
-<label class="">Imapsync buying options:
-<select  name="os0">
-   <option  value="Software + Support. For professional use." class="bold">Software_+_Support. For_professional_use: &euro;120 EUR</option>
-   <option  value="Software only. For professional use." class="bold"     >Software_only.______For_professional_use:  &euro;60 EUR</option>
-   <option  value="Support only. For professional use." class=""      >Support__only.______For_professional_use:  &euro;120 EUR</option>
-   <option disabled="disabled" class=""                               >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~</option>
+<label class=""><big>Imapsync <b>buying options</b></big>, select your choice by <big><b>clicking</b></big> on it:<br /><br />
+<select  name="os0" size="4" >
+   <option selected="selected" value="Software + Support. For professional use." class="bold">Software_+_Support. For_professional_use: &euro;120 EUR</option>
+   <option  value="Software only. For professional use." class=""     >Software_only.______For_professional_use:  &euro;60 EUR</option>
+   <option  value="Support only. For professional use." class="bold"      >Support__only.______For_professional_use:  &euro;120 EUR</option>
+   <!-- <option disabled="disabled" class=""                               >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~</option> -->
    <option  value="Software only. For individual use." class=""       >Software only.______For_individual___use:  &euro;60 EUR</option>
 </select>
 </label>
-
-<br />
+</p>
+<p>
 Professionals buyers outside France are <b>VAT exempted</b>. Individuals or French buyers are <b>VAT taxed</b>.
-<br />
+</p>
+<p>
 <input  type="hidden"  value="VAT if professional in Europe"  name="on1" />
-<label>In case <b>you're a European professional</b>, please enter your <b>VAT number</b> 
+<label>In case <b>you're a European professional buyer</b>, please enter your <b>VAT number:</b> 
 <input  type="text"  maxlength="17"  size="17"  name="os1" />
 </label>
-it is for accounting and customs declaration.<br />
+It is for accounting and customs declaration.<br />
+It's ok if you don't have your VAT number right now, I'll email you later for it.<br />
 VAT is often 2 letters followed by several digits, for example mine is FR74429303332.<br />
+If you're a <b>European</b> and you <b>don't have a VAT number</b> 
+then select "Software only. For <b>individual</b> use." (it's at the bottom of the buying options, above).<br />
 
 <input  type="hidden"  value="EUR"  name="currency_code" />
 <input  type="image"  
 	alt="PayPal, a safe and easy way to pay online!"  
 	name="submit"  
-	src="https://www.paypalobjects.com/en_US/i/btn/btn_buynowCC_LG.gif" /><br />
-If you <b>can't use Paypal</b> then consider a <b><a href="#IBAN">Bank transfer</a></b>.
-or a <b><a href="#crypto">Crypto</a> payment</b>.
-
+	src="https://www.paypalobjects.com/en_US/i/btn/btn_buynowCC_LG.gif" />
+</p>
+<p>
+If you <b>can't use Paypal</b> nor <b>a credit card</b> then 
+consider a <b><a href="#IBAN">Bank transfer</a></b> (I'll give you my IBAN on demand)
+or even a <b><a href="#crypto">Crypto</a> payment</b>(very rare indeed so there is a very special offer here).
 </p>
 </form>
 
@@ -373,7 +411,7 @@ I have been supporting imap migrations with imapsync since 2001, I still enjoy i
 
 <p>If you can't pay with a credit card via Paypal then it is possible to pay via a bank transfer.
 </p>
-<p>Refund for a bank transfer is far less easy than with Paypal so drop me an email to test imapsync 
+<p>Refund for a bank transfer is less easier than with Paypal so drop me an email to test imapsync 
 and to be sure it will do what you need it to do, before any payment.<br />
 The bank account references will be given upon request.
 </p>
@@ -384,10 +422,15 @@ that is 120 EUR.
 </p>
 
 
-<h3>Payment with crypto currencies, Bitcoins, Ethereum etc. <a  href="#TOP"  id="crypto"><small>(back to menu)</small></a>
+<h3 id="bitcoin">Payment with crypto currencies, Bitcoins, Ethereum etc. <a href="#TOP" id="crypto"><small>(back to menu)</small></a>
 </h3>
 
+<p>
+The funny thing about crypto payments is that I receive very few of them, one or two per year, and in small amount, one or two dollars equivalent... 
+Maybe one day those little crypto coins will be like gold? (I would like that!)
+</p>
 
+<!-- 
 <div>
   <a class="buy-with-crypto"
      href="https://commerce.coinbase.com/checkout/5e1ad7cb-dd3d-4cda-bbf1-53d8ba94b7b6">
@@ -397,9 +440,8 @@ that is 120 EUR.
   type="text/javascript">
   </script>
 </div>
+-->
 
-
-<!-- 
 <div>
   <a class="buy-with-crypto"
      href="https://commerce.coinbase.com/checkout/d757d82d-5f54-428e-9260-90c8b032d7ce">
@@ -409,66 +451,205 @@ that is 120 EUR.
   type="text/javascript">
   </script>
 </div>
--->
+
 
 
 <h2>Facts and figures <a  href="#TOP"  id="NUMBERS"><small>(back to menu)</small></a>
 </h2>
 
+<!-- 
+gilles@i005:~/imapsync_stats 14$ date
+Tue Jan 12 12:01:08 CET 2021
+
+
+gilles@i005:~/imapsync_stats 13$ statistics_VERSION_synthesis 2020
+
+==== Nb users each month in 2020 
+    6261 stats_imapsync_2020_01.ip
+    6660 stats_imapsync_2020_02.ip
+    6727 stats_imapsync_2020_03.ip
+    6362 stats_imapsync_2020_04.ip
+    6841 stats_imapsync_2020_05.ip
+    6195 stats_imapsync_2020_06.ip
+    7025 stats_imapsync_2020_07.ip
+    6221 stats_imapsync_2020_08.ip
+    6450 stats_imapsync_2020_09.ip
+    6686 stats_imapsync_2020_10.ip
+    6929 stats_imapsync_2020_11.ip
+    6902 stats_imapsync_2020_12.ip
+   79259 total
+
+==== Nb runs each month in 2020 
+stats_imapsync_2020_01.runs :  11844697 total
+stats_imapsync_2020_02.runs :  10658279 total
+stats_imapsync_2020_03.runs :  10691171 total
+stats_imapsync_2020_04.runs :   9902899 total
+stats_imapsync_2020_05.runs :   9389412 total
+stats_imapsync_2020_06.runs :  10841772 total
+stats_imapsync_2020_07.runs :  11650852 total
+stats_imapsync_2020_08.runs :  10138316 total
+stats_imapsync_2020_10.runs :  11040092 total
+stats_imapsync_2020_11.runs :  15849476 total
+stats_imapsync_2020_12.runs :  12920080 total
+
+==== % Operating systems in 2020 
+Linux 67.96 %
+Win32 18.15 %
+Darwin 12.38 %
+FreeBSD 1.43 %
+Solaris .02 %
+OpenBSD .03 %
+Cygwin 0.00 %
+Unknown 0.00 %
+Other .01 %
+
+==== Perl releases in 2020 
+statistics_perl_from_files_cumul_percentage 48786 stats_imapsync_2020.ip
+5.10 2%
+5.12 3%
+5.14 0%
+5.16 35%
+5.18 9%
+5.20 0%
+5.22 1%
+5.24 6%
+5.26 15%
+5.28 11%
+5.30 12%
+5.31 0%
+5.32 0%
+5.8 0%
+
+
+
+==== Most releases used in 2020 
+ 230 1.957
+ 301 1.644
+ 361 1.484
+ 450 1.979
+ 745 1.997
+ 887 1.684
+1092 1.998
+1175 1.921
+1563 1.967
+1871 1.836
+2273 1.983
+2629 1.882
+3483 1.945
+11019 1.977
+17660 1.727
+
+
+
+==== Nb users each year 
+    9640 stats_imapsync_2011.ip
+   26284 stats_imapsync_2012.ip
+   43336 stats_imapsync_2013.ip
+   40209 stats_imapsync_2014.ip
+   41324 stats_imapsync_2015.ip
+   38837 stats_imapsync_2016.ip
+   46197 stats_imapsync_2017.ip
+   44116 stats_imapsync_2018.ip
+   48103 stats_imapsync_2019.ip
+   49562 stats_imapsync_2020.ip
+    3273 stats_imapsync_2021.ip
+  390881 total
+
+==== Nb runs each year : 
+2010: 0
+2011: 62268134
+2012: 73658942
+2013: 144573196
+2014: 203982027
+2015: 178711357
+2016: 98243422
+2017: 87832226
+2018: 108047481
+2019: 158971132
+2020: 135913391
+2021: 4428153
+
+2021~~134689380
+
+Done 2021/01/18 
+
+-->
+
 <ul>
-<li><b>6000 to 7000 </b>users per month (48000 users a year).</li> 
-<li>11 to 16 millions mailboxes transfers per month.</li>
-<li><b>159 millions</b> transfers for 2019, 
-that is five whole mailboxes complitely synced per second in average (159*10^6/365/24/3600), 
-and an estimation of 71 Petabytes ( 1 PiB = 2^50 bytes = 1024^5 ~ 10^15) transferred in total in 2019, 
-taking a mean of 500 Mbytes per transfer (an estimated mean given by online /X real stats).
-71 Petabytes = 500*10^6*159*10^6. The global internet traffic of 2019 was 2004 Exabytes so imapsync 
-is a very very tiny thing (35 per million).
+<li>There are <b>6000 to 7000 </b> imapsync users per month (50 000 users for the year 2021). 
+Well, if all users could be buyers!
+</li>
+
+<li>9 M to 16 M mailboxes transfers per month during 2020.</li>
+<li><b>136 M</b> transfers for 2020, 
+that is <b>4 whole mailboxes completely synced each second</b> on average (136*10^6/365/24/3600 ~ 4), 
+and an estimation of <b>60 Petabytes transferred in 2020</b> ( 1 PiB = 2^50 bytes = 1024^5 ~ 10^15), 
+taking a mean of 500 Megabytes per transfer (an estimated mean given by online /X real stats).
+60 Petabytes = 500*10^6*136*10^6. The 2020 global internet traffic was 2580 Exabytes 
+(2580 ~ <a href="https://en.wikipedia.org/wiki/Internet_traffic#Global_Internet_traffic">(174+41)</a> * 12 ) 
+(1 EiB = 2^60 bytes = 1024^6 ~ 10^18) so imapsync is a very very tiny thing (23 per million, 60/2580000).
 </li>
 <li>
-<b>159 millions</b> transfers for 2019. 
-That's nearly 717 millions email messages transferred by imapsync every day (1600*164/366)
-taking a mean of 1600 messages per transfer (an estimated mean given by online /X real stats).
+Let's see it another way, imapsync did 136 M transfers for 2020,
+that's nearly <b>492 M email messages transferred every day</b> (136*1325/366)
+taking a mean of 1325 messages per transfer (an estimated mean given by online /X real stats).
 
-The internet global estimated number of messages sent every day is 300 billions in 2019
-(10% being non-spam but that's another story...). 
-So imapsync does 0.24% of all email trafic, not that bad for a command line tool!
+The internet global estimated number of messages sent every day is 
+<a href="https://www.statista.com/statistics/456500/daily-number-of-e-mails-worldwide/">306 billions</a> in 2020
+(55% being spam but that's another story...). 
+So imapsync does 0.16% (492/306000*100) of all email traffic, not that bad for a command-line tool!
 </li>
 
-<li><b>Operating systems</b> run by imapsync users (in 2019):
+<li>
+See the Wikipedia <a href="https://en.wikipedia.org/wiki/Byte#Multiple-byte_units">Byte page</a> to learn about Petabytes and Exabytes.
+</li>
+
+
+<li><b>Operating systems</b> run by command line imapsync users (in 2020):
+
 
 <ul>
 <li><b>Linux: 68%</b></li>
 <li><b>Win32: 18%</b></li>
-<li><b>Darwin: 13%</b></li>
-<li><b>FreeBSD: 0.92%</b></li>
-<li>OpenBSD: 0.05%</li>
-<li>Solaris: 0.03%</li>
+<li><b>Darwin: 12%</b></li>
+<li><b>FreeBSD: 1.43%</b></li>
+<li>Solaris: 0.02%</li>
+<li>OpenBSD: 0.03%</li>
+<li>Other: 0.01%</li>
 <li>Cygwin: 0%</li>
 <li>Unknown: 0%</li>
-<li>Other: 0%</li>
-
 
 </ul>
 </li>
-<li><b>Highest use rate</b>: about <b>56 millions</b> of IMAP mailbox transfers by just one host.</li>
-<li><b>Biggest known account</b> migrated: <b>2.4 millions folders</b> (figure independently reported).</li>
+<li><b>Highest use rate</b>: about <b>56 M</b> IMAP mailbox transfers by just one host (it was in 2014).</li>
+<li><b>Biggest known account</b> migrated: <b>2.4 M folders</b> (figure independently reported).</li>
+
+<li><b>Operating systems</b> run by the visual /X online imapsync users:
+
+<ul>
+<li><b>Windows 70%</b></li>
+<li><b>Macintosh 23%</b></li>
+<li><b>Linux 7%</b></li>
+</ul>
+</li>
+
+<li>Do you notice the reverse statistic pattern between command-line users and visual users?</li>
 
 </ul>
 
 <p>
-The figures presented here do not include the github imapsync release usage.
+The figures presented here do not include the GitHub imapsync release usage.
 It's because --noreleasecheck is on by default since release 1.592 (2014/05/22)
-in the github release.
+in the GitHub release.
 
-Looking at the numbers before and after 2014, the figures showed here
+Looking at the numbers before and after 2014, the figures showed above
 could be doubled.
 </p>
 
 
 <p>
 Where all those numbers come from?
-To know whether a newer imapsync exists or not, imapsync does a http GET to the file
+To know whether a newer imapsync exists or not, imapsync does an http GET to the file
 <a  href="http://imapsync.lamiral.info/VERSION">VERSION</a>.
 Via the <b>User-agent</b> parameter it also sends:</p>
 <ul>
@@ -478,7 +659,7 @@ Via the <b>User-agent</b> parameter it also sends:</p>
  <li>Operating System</li>
 </ul>
 
-<p>You can <b>remove this behavior</b> by adding option <b>--noreleasecheck</b> on the command line 
+<p>You can <b>remove this behavior</b> by adding the option <b>--noreleasecheck</b> on the command line 
 (or by setting $releasecheck = 0 in the source code). 
 Check <a  href="https://nvd.nist.gov/vuln/detail/CVE-2013-4279">CVE-2013-4279</a>.
 </p>
@@ -489,25 +670,59 @@ Check <a  href="https://nvd.nist.gov/vuln/detail/CVE-2013-4279">CVE-2013-4279</a
 
 
 <p>
-After Imapsync installation, a basic (and really working) example in a DOS window is the following: </p>
-<pre>.\imapsync.exe  ^
-  --host1 test1.lamiral.info  ^
-  --user1 test1               ^
-  --password1  "secret1"      ^
-  --host2 test2.lamiral.info  ^
-  --user2 test2               ^
-  --password2  "secret2"
-</pre>
-<p>But it's better to edit a batch file and run it by a double-click.
-Take this batch file example <b><a  href="./examples/imapsync_example.bat">imapsync_example.bat</a></b> 
-and adapt with your own parameters.
+After Imapsync <a rel="help" href="#install">installation</a>, you have to edit a "ready to use" batch file 
+called <b><a  href="./examples/imapsync_example.bat">imapsync_example.bat</a></b>
+and run it by a double-click.
+This batch file is also in the zip archive so it's useless to download it.
 </p>
 
+
+<p>
+I strongly advise you to read and follow the document <a  href="README_Windows.txt">README_Windows.txt</a>
+</p>
+
+
+
+<h2>How to transfer a single mailbox on Mac <a  href="#TOP"  id="DOC_BASIC_MAC"><small>(back to menu)</small></a>
+</h2>
+
+
+<p>
+After Imapsync <a rel="help" href="#install">installation</a>, you have to edit a "ready to use" script file 
+called <b><a  href="./examples/imapsync_example_darwin.sh">imapsync_example_darwin.bat</a></b>
+and run it in a shell window.
+This script file is also in the tgz archive so it's useless to download it.
+</p>
+
+
+<p>
+I strongly advise you to read first and follow the document 
+<a  href="INSTALL.d/INSTALL.Darwin.txt">INSTALL.Darwin.txt</a>
+and then the document <a  href="doc/TUTORIAL_Unix.html">TUTORIAL_Unix</a>.
+</p>
+
+
+
 <h2>How to transfer a single mailbox on Linux/Unix <a  href="#TOP"  id="DOC_BASIC_UNIX"><small>(back to menu)</small></a>
 </h2>
 
 <p>
-After Imapsync installation, a basic (and really working) example in a shell terminal is the following: </p>
+Here after is presented a Linux imapsync command line example. You can try it on a terminal, as is. 
+Anyway, it's easier to edit a shell script with the same exact command and run this 
+script in a terminal or from a graphical desktop.
+
+Just take the Bourne shell script example <b><a href="./examples/imapsync_example.sh">imapsync_example.sh</a></b> 
+and adapt with your own parameters.
+
+This shell script file is also in the tgz archive so it can be useless to download it.
+</p>
+
+<p>
+I strongly advise you to read and follow the document <a  href="doc/TUTORIAL_Unix.html">TUTORIAL_Unix</a>.
+</p>
+
+<p>
+After Imapsync  <a rel="help" href="#install">installation</a>, a basic example in a shell terminal is the following: </p>
 <pre>./imapsync   \
   --host1 test1.lamiral.info  \
   --user1 test1               \
@@ -516,11 +731,8 @@ After Imapsync installation, a basic (and really working) example in a shell ter
   --user2 test2               \
   --password2  "secret2"
 </pre>
-<p>
-But it's better to edit a shell script and run it in a terminal.
-Take this Bourne shell script example <b><a  href="./examples/imapsync_example.sh">imapsync_example.sh</a></b> 
-and adapt with your own parameters.
-</p>
+
+
 
 <h2>How to transfer many mailboxes <a  href="#TOP"  id="DOC_MASS"><small>(back to menu)</small></a>
 </h2>
@@ -541,10 +753,23 @@ it can be used with the two previous command scripts.<br />
 All example scripts can be found in the <a  href="examples/">examples/*</a> directory.
 </p>
 
+<p>
+I strongly advise you to read also the following FAQ documents:
+</p>
 
-<h2>Installation <a  href="#TOP"  id="install"><small>(back to menu)</small></a>
+
+<ul>
+<li> <a  href="FAQ.d/FAQ.Migration_Plan.txt">Migration plan</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Massive.txt">Massive/bulk migrations</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Admin_Authentication.txt">Admin authentication</a>. </li>
+</ul>
+
+
+
+<h2>Installation, Hardware, Operating Systems <a  href="#TOP"  id="install"><small>(back to menu)</small></a>
 </h2>
 
+
 <p>
 Hardware system requirements:
 </p>
@@ -555,10 +780,25 @@ Hardware system requirements:
 <li><b>Any network link</b> is ok. The average bandwidth rate is 345 KiB/s ~ 2.8 Mbps.</li>
 </ul>
 
+<p>
+<b>Operating System</b> requirements: Imapsync is avalable on Windows, Mac and Linux.<br/>
+Which Operating System to chose? <br/>
+Use the Operating System <b>you are the most familiar with</b>.
+</p>
 
-<p>Depending on the system where you'll run imapsync:</p>
 
 
+<p>
+<b>Location</b> requirements: <br/>
+Where to place imapsync? <br/>
+<b>Any host</b> in <b>any place</b> is ok for imapsync as long as it 
+has a <b>network access to both IMAP servers</b>, the source and the destination.
+</p>
+
+
+<p>What to do next?<br/>
+Depending on the system where you will run imapsync:</p>
+
 <ul>
 <li>Windows   users, read directly <a  href="README_Windows.txt">README_Windows.txt</a>.</li>
 <li>OS X      users, read <a  href="INSTALL.d/INSTALL.Darwin.txt">INSTALL.Darwin.txt</a>.</li>
@@ -574,7 +814,7 @@ Hardware system requirements:
 <li>Docker    users, read <a  href="FAQ.d/FAQ.Docker.txt">FAQ.Docker.txt</a>
     or directly the <a href="https://hub.docker.com/r/gilleslamiral/imapsync/">Imapsync Docker page</a>.</li>
 
-<li>Online UI sysadmins, wanting their own <a href="https://i005.lamiral.info/X/">/X</a>, 
+<li>Online UI sysadmins, wanting their own <a href="https://imapsync.lamiral.info/X/">/X</a>, 
     read <a href="INSTALL.d/INSTALL.OnlineUI.txt">INSTALL.OnlineUI.txt</a></li>
 <li>Other users, read the second part of <a  href="INSTALL.d/INSTALL.ANY.txt">INSTALL.ANY.txt</a>.</li>
 <li>All installation files are located in the <a  href="INSTALL.d/">INSTALL.d/</a> directory.</li>
@@ -601,29 +841,38 @@ to understand imapsync and succeed in your migration or backup.
 
 
 <p>The <a  href="FAQ.d/">FAQ.d/*</a> files present Frequently Asked Questions 
-(and not so frequently asked ones) and their answers. Here is the main menu:</p>
+(and not so frequently asked ones) and their answers. Here is the main menu, <b>take at least the time to read the menu</b>, 
+you will certainly lose some time to read it, two minutes, but reading this menu will most likely <b>save 
+you some struggling hours later</b>, believe me. So read the three columns main menu:</p>
   
-  <div  class="list"> Tips about imap server softwares:
+  <div  class="list"><b>Specific</b> imap software <b>servers</b> tips
 
 <ul>
-<li> <a  href="FAQ.d/FAQ.Gmail.txt">Gmail accounts</a>. 
- See <a href="https://support.google.com/a/answer/1071518?hl=en">Gmail limits</a>. </li>
-<li> <a  href="FAQ.d/FAQ.Exchange.txt">Exchange 20xx and Office365</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Dovecot.txt">Dovecot</a>. </li>
+<li> <a  href="FAQ.d/FAQ.MailEnable.txt">MailEnable</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Gmail.txt">Gmail accounts</a>.
+         See <a href="https://support.google.com/a/answer/1071518?hl=en">Gmail limits</a>.
+</li>
+<li> <a  href="FAQ.d/FAQ.Office365.txt">Office365</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Exchange.txt">Exchange 20xx</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Yahoo.txt">Yahoo</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Domino.txt">Domino</a>. </li>
-<li> <a  href="FAQ.d/FAQ.Dovecot.txt">Dovecot</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Zimbra.txt">Zimbra</a>. </li>
 <li> <a  href="FAQ.d/FAQ.SmarterMail.txt">SmarterMail</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Kerio.txt">Kerio</a>. </li>
-<li> <a  href="FAQ.d/FAQ.Oracle-UCS.txt">Oracle-UCS</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Cyrus.txt">Cyrus</a>. </li>
+<li> <a  href="FAQ.d/FAQ.UCS.txt">UCS</a>. </li>
 <li> <a  href="FAQ.d/FAQ.David_Tobit.txt">David Tobit</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Yandex.txt">Yandex</a>. </li>
+<li> <a  href="FAQ.d/FAQ.IceWarp.txt">IceWarp</a>. </li>
+<li> <a  href="FAQ.d/FAQ.DBmail.txt">DBmail</a>. </li>
+<li> <a  href="FAQ.d/FAQ.FirstClass.txt">FirstClass</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Various_Software_Servers.txt">Other various imap software servers</a>. </li>
 
 </ul>
 </div>
 
-<div  class="list">Solving problems:
+<div  class="list">Solving problems (or not...)
 
 <ul>
 <li> <b><a  href="FAQ.d/FAQ.Authentication_failure.txt">Authentication failure</a>.</b> </li>
@@ -632,8 +881,10 @@ to understand imapsync and succeed in your migration or backup.
 <li> <a  href="FAQ.d/FAQ.Use_addheader.txt">Why use --addheader</a>? </li>
 <li> <a  href="FAQ.d/FAQ.Passwords_on_Windows.txt">Passwords on Windows</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Passwords_on_Unix.txt">Passwords on Unix</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Passwords_on_Mac.txt">Passwords on Mac</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Flags.txt">Flags issues</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Dates.txt">Dates issues</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Two_Ways_Sync.txt">Two Ways Sync</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Memory.txt">Memory issue</a>. </li>
 <li> <a  href="FAQ.d/FAQ.APPEND_errors.txt">Append errors</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Messages_Too_Big.txt">How to transfer too big messages</a>. </li>
@@ -645,7 +896,7 @@ to understand imapsync and succeed in your migration or backup.
 </ul>
 </div>
 
-<div  class="list">Various tips: 
+<div  class="list">Various tips
 
 <ul>
 <li> <a  href="FAQ.d/FAQ.Migration_Plan.txt">Migration plan</a>. </li>
@@ -664,8 +915,9 @@ to understand imapsync and succeed in your migration or backup.
 <li> <a  href="FAQ.d/FAQ.Security.txt">Security</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Emptying.txt">Emptying an account</a>. </li>
 <li> <a  href="FAQ.d/FAQ.XOAUTH2.txt">XOAUTH2 (Gmail)</a>. </li>
-<li> <a  href="FAQ.d/FAQ.OnlineUI.txt">Online Visual Inferface (the web GUI /X)</a>. </li>
+<li> <a  href="FAQ.d/FAQ.OnlineUI.txt">Online Visual Interface (the web GUI /X)</a>. </li>
 <li> <a  href="FAQ.d/FAQ.Principles.txt">Principles and design ideas</a>. </li>
+<li> <a  href="FAQ.d/FAQ.Bandwidth.txt">Bandwidth used by Imapsync</a>. </li>
 <li> <a  href="FAQ.d/FAQ.GDPR.txt">GDPR</a> (General Data Protection Regulation). </li>
 <li> <a  href="FAQ.d/FAQ.Docker.txt">Using Docker.</a> </li>
 </ul>
@@ -719,8 +971,13 @@ like written in the <a  href="LICENSE">https://imapsync.lamiral.info/LICENSE</a>
 <!--#config timefmt="%D" -->
 <!--#config timefmt="%A %B %d, %Y" -->
 <b>This document last modified on <!--#echo var="LAST_MODIFIED" --></b>
-($Id: index.shtml,v 1.443 2020/01/02 23:37:20 gilles Exp gilles $)<br />
+($Id: index.shtml,v 1.499 2021/06/08 09:57:27 gilles Exp gilles $)<br />
 <a  href="#TOP">Top of the page</a>
 </p>
+
+<div>
+<img src="https://static.scarf.sh/a.png?x-pxid=28b508c3-c51f-4109-9b88-29f3f6e4cf2f" alt="Scarf Tracker" />
+</div>
+
 </body>
 </html>
diff --git a/oauth2/README_OAUTH2.txt b/oauth2/README_OAUTH2.txt
new file mode 100755
index 0000000..162ab19
--- /dev/null
+++ b/oauth2/README_OAUTH2.txt
@@ -0,0 +1,79 @@
+
+# $Id: README_OAUTH2.txt,v 1.1 2021/07/06 01:45:43 gilles Exp gilles $
+
+1) Do you have a refresh_token?
+Yes: Good!
+
+No:  Get one. How? Run the commands:
+
+    cd oauth2/
+    ./generate_gmail_token  youremail@gmail.com 
+
+You will be asked to go to a long url with a browser, like this:
+
+To authorize token, visit this url and follow the directions:
+https://accounts.google.com/o/oauth2/auth?client_id=108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com&redirect_uri=urn%3Aietf%
+3Awg%3Aoauth%3A2.0%3Aoob&response_type=code&scope=https%3A%2F%2Fmail.google.com%2F
+
+
+Go to this url, the url above should be the same as presented by the script.
+Select your gmail address on the page, maybe do some 2-steps confirmation
+with your phone. Then you'll see this warning:
+
+"Google hasn’t verified this app"
+"The app is requesting access to sensitive info in your Google Account. 
+Until the developer (gilles.lamiral@gmail.com) verifies this app 
+with Google, you shouldn't use it."
+
+Well, gilles.lamiral@gmail.com is me and I haven't verify this app 
+with google yet. But it's me Gilles LAMIRAL, the imapsync author.
+
+Click on the link "Advanced". 
+It writes:
+"Continue only if you understand the risks and trust the developer (gilles.lamiral@gmail.com)."
+
+Then click on the link "Go to imapsync (unsafe)"
+
+It then shows:
+"imapsync wants to access your Google Account"
+"Make sure you trust imapsync"
+"You may be sharing sensitive info with this site or app. 
+You can always see or remove access in your Google Account."
+
+Click on the blue button "Allow"
+
+Copy/paste the code after the prompt "Enter verification code: "
+
+It will generate a refresh token, an access token, and an oauthdirect 
+token shown on the output, saved in three files, 
+one file named ./D_oauth2_refresh_token_youremail@gmail.com.txt
+another named  ./D_oauth2_access_token_youremail@gmail.com.txt
+another named  ./D_oauth2_oauthdirect_youremail@gmail.com.txt
+
+The refresh_token is just there to refresh the access_token and the
+oauthdirect token.
+
+With imapsync you can use either the oauthdirect or the access_token
+token, like this:
+
+    imapsync ... --user1 useless             --oauthdirect1      oauth2/D_oauth2_oauthdirect_youremail@gmail.com.txt
+
+    imapsync ... --user1 youremail@gmail.com --oauthaccesstoken1 oauth2/D_oauth2_access_token_youremail@gmail.com.txt
+
+With --oauthdirect1 the --user1 parameter is useless because it is already 
+coded inside the oauthdirect token.
+
+With --oauthaccesstoken1 the --user1 parameter is important because it will be 
+used by imapsync to generate the oauthdirect token.
+
+2) How to get a fresh enough access_token (less than one hour)?
+
+Run the same command:
+
+    cd oauth2/
+    ./generate_gmail_token  youremail@gmail.com 
+
+It will generate a new access_token (and the oauthdirect one) 
+without any prompt this time, because the refresh token is used for that.
+
+
diff --git a/oauth2/generate_gmail_token b/oauth2/generate_gmail_token
new file mode 100755
index 0000000..cd3fdf1
--- /dev/null
+++ b/oauth2/generate_gmail_token
@@ -0,0 +1,189 @@
+#!/bin/sh
+
+refresh_token_file()
+{
+        echo ./D_oauth2_refresh_token_"$1".txt
+}
+
+access_token_file()
+{
+        echo ./D_oauth2_access_token_"$1".txt
+}
+
+oauthdirect_file()
+{
+        echo ./D_oauth2_oauthdirect_"$1".txt
+}
+
+
+
+#echo 
+#echo "get_refresh_token youremail@gmail.com # First time, then once in a while when the refresh_token is no longer working"
+get_refresh_token()
+{
+        refresh_token_file="`refresh_token_file $1`"
+        access_token_file="`access_token_file $1`"
+        # 1 Get an access_token and a refresh_token
+        
+        ./oauth2_google.py --user="$1" \
+                --client_id="108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com" \
+                --client_secret=zAJO4PLxzeJ4yOaiJRk6f69k \
+                --generate_oauth2_token --quiet
+                
+        cat typescript | grep -i 'Refresh Token:' | tail -1 | sed -e 's/Refresh Token: *//' | tr -d '\r' | tee "$refresh_token_file"
+        cat typescript | grep -i 'Access Token:'  | tail -1 | sed -e 's/Access Token: *//'  | tr -d '\r' | tee "$access_token_file"
+        echo refresh_token saved in "$refresh_token_file"
+        echo access_token  saved in "$access_token_file"
+}
+
+#echo 
+#echo "regenerate_access_token youremail@gmail.com # 2 Regenerate an access_token if time passes too long (3600s)"
+regenerate_access_token()
+{
+        refresh_token_file="`refresh_token_file $1`"
+        access_token_file="`access_token_file $1`"
+        # 2 Regenerate an access_token if time passes too long (3600s)
+        refresh_token="`cat $refresh_token_file|tr -d '\r'`"
+        echo ./oauth2_google.py  --quiet --user="$1" \
+                --client_id="108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com" \
+                --client_secret=zAJO4PLxzeJ4yOaiJRk6f69k \
+                --refresh_token="$refresh_token"
+            
+        ./oauth2_google.py  --quiet --user="$1" \
+                --client_id="108687549524-86sjq07f3ch8otl9fnr56mjnniltdrvn.apps.googleusercontent.com" \
+                --client_secret=zAJO4PLxzeJ4yOaiJRk6f69k \
+                --refresh_token="$refresh_token" | tee "$access_token_file"
+                
+        echo access_token saved in "$access_token_file"
+}
+
+
+
+refresh_token_is_here()
+{
+        echo In refresh_token_is_here "$@"
+        # force mode
+        if test -n "$2"; then
+                return $2
+        fi
+        
+        refresh_token_file="`refresh_token_file $1`"
+        if test -f "$refresh_token_file" && test -s "$refresh_token_file" ; then
+                echo $refresh_token_file is here
+                return 0
+        else
+                echo $refresh_token_file is not here or empty
+                return 1
+        fi
+}
+
+
+#echo
+#echo 'generate_oauthdirect youremail@gmail.com'
+generate_oauthdirect()
+{
+        access_token_file="`access_token_file $1`"
+        access_token="`cat $access_token_file`"
+        oauthdirect_file="`oauthdirect_file $1`"
+        # 3 Generate oauth2_string for imap authentication
+        ./oauth2_google.py --generate_oauth2_string --user="$1" \
+                --access_token="$access_token" | tail -1 | tee "$oauthdirect_file"
+        echo oauth2_string saved in "$oauthdirect_file"
+        echo Give this to imapsync --oauthdirect1 or --oauthdirect2
+}
+
+
+#echo 
+#echo authenticate_imap youremail@gmail.com
+authenticate_imap() 
+{
+        # 4
+        access_token_file="`access_token_file $1`"
+        access_token="`cat $access_token_file`"
+        echo $access_token
+        ./oauth2_imap_from_token "$1" "$access_token"
+}
+
+
+#echo 'authenticate_imap_google_from_access_token youremail@gmail.com'
+authenticate_imap_google_from_access_token()
+{
+        # 5
+        access_token_file="`access_token_file $1`"
+        access_token="`cat $access_token_file`"
+        echo "$access_token"
+        ./oauth2_google.py --user="$1" \
+                --access_token="$access_token" --test_imap_authentication
+}
+
+#echo generate_for_imapsync_tests
+generate_for_imapsync_tests()
+{
+	regenerate_access_token imapsync.gl0@gmail.com \
+        && generate_oauthdirect imapsync.gl0@gmail.com \
+        && authenticate_imap_google_from_access_token imapsync.gl0@gmail.com \
+        && authenticate_imap imapsync.gl0@gmail.com
+}
+
+verify_email()
+{
+        test X"" != X"$1"
+}
+
+usage()
+{
+        verify_email "$1" || { 
+                echo "Please, give an email address as parameter"
+                return 1
+        }
+}
+
+
+get_refresh_token_by_script_fork()
+{
+        if test -f $0.lock; then
+                echo I am a child in script $$ 
+                get_refresh_token "$1" 
+        else
+                echo I am the parent
+                touch $0.lock
+                echo will do: script -q -f -c "$0 $1 $2" 
+                script -q -f -c "$0 $1 $2" 
+                rm $0.lock
+                regenerate_access_token "$1"
+                generate_oauthdirect "$1"
+        fi
+}
+
+I_am_interractive_or_exit()
+{
+        if test -t 0; then
+                echo Interractive 
+                return 0
+        else
+                echo Not interractive 
+                exit 1
+        fi
+}
+
+#echo "generate_token    youremail@gmail.com"
+generate_token()
+{
+        echo I am PID $$ $0 "$@"
+        #
+        usage "$1" || return 1
+        
+        if refresh_token_is_here "$1" "$2" ; then
+                regenerate_access_token "$1"
+                generate_oauthdirect "$1"
+                authenticate_imap_google_from_access_token "$1"
+                authenticate_imap "$1"
+        else
+                I_am_interractive_or_exit
+                get_refresh_token_by_script_fork "$@"
+        fi
+        
+}
+
+generate_token "$@"
+
diff --git a/oauth2/oauth2_google.py b/oauth2/oauth2_google.py
new file mode 100755
index 0000000..e0fc7fb
--- /dev/null
+++ b/oauth2/oauth2_google.py
@@ -0,0 +1,347 @@
+#!/usr/bin/python
+#
+# Copyright 2012 Google Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+     # http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+"""Performs client tasks for testing IMAP OAuth2 authentication.
+
+To use this script, you'll need to have registered with Google as an OAuth
+application and obtained an OAuth client ID and client secret.
+See https://developers.google.com/identity/protocols/OAuth2 for instructions on
+registering and for documentation of the APIs invoked by this code.
+
+This script has 3 modes of operation.
+
+1. The first mode is used to generate and authorize an OAuth2 token, the
+first step in logging in via OAuth2.
+
+  oauth2 --user=xxx@gmail.com \
+    --client_id=1038[...].apps.googleusercontent.com \
+    --client_secret=VWFn8LIKAMC-MsjBMhJeOplZ \
+    --generate_oauth2_token
+
+The script will converse with Google and generate an oauth request
+token, then present you with a URL you should visit in your browser to
+authorize the token. Once you get the verification code from the Google
+website, enter it into the script to get your OAuth access token. The output
+from this command will contain the access token, a refresh token, and some
+metadata about the tokens. The access token can be used until it expires, and
+the refresh token lasts indefinitely, so you should record these values for
+reuse.
+
+2. The script will generate new access tokens using a refresh token.
+
+  oauth2 --user=xxx@gmail.com \
+    --client_id=1038[...].apps.googleusercontent.com \
+    --client_secret=VWFn8LIKAMC-MsjBMhJeOplZ \
+    --refresh_token=1/Yzm6MRy4q1xi7Dx2DuWXNgT6s37OrP_DW_IoyTum4YA
+
+3. The script will generate an OAuth2 string that can be fed
+directly to IMAP or SMTP. This is triggered with the --generate_oauth2_string
+option.
+
+  oauth2 --generate_oauth2_string --user=xxx@gmail.com \
+    --access_token=ya29.AGy[...]ezLg
+
+The output of this mode will be a base64-encoded string. To use it, connect to a
+IMAPFE and pass it as the second argument to the AUTHENTICATE command.
+
+  a AUTHENTICATE XOAUTH2 a9sha9sfs[...]9dfja929dk==
+"""
+
+import base64
+import imaplib
+import json
+from optparse import OptionParser
+import smtplib
+import sys
+import urllib
+
+
+def SetupOptionParser():
+  # Usage message is the module's docstring.
+  parser = OptionParser(usage=__doc__)
+  parser.add_option('--generate_oauth2_token',
+                    action='store_true',
+                    dest='generate_oauth2_token',
+                    help='generates an OAuth2 token for testing')
+  parser.add_option('--generate_oauth2_string',
+                    action='store_true',
+                    dest='generate_oauth2_string',
+                    help='generates an initial client response string for '
+                         'OAuth2')
+  parser.add_option('--client_id',
+                    default=None,
+                    help='Client ID of the application that is authenticating. '
+                         'See OAuth2 documentation for details.')
+  parser.add_option('--client_secret',
+                    default=None,
+                    help='Client secret of the application that is '
+                         'authenticating. See OAuth2 documentation for '
+                         'details.')
+  parser.add_option('--access_token',
+                    default=None,
+                    help='OAuth2 access token')
+  parser.add_option('--refresh_token',
+                    default=None,
+                    help='OAuth2 refresh token')
+  parser.add_option('--scope',
+                    default='https://mail.google.com/',
+                    help='scope for the access token. Multiple scopes can be '
+                         'listed separated by spaces with the whole argument '
+                         'quoted.')
+  parser.add_option('--test_imap_authentication',
+                    action='store_true',
+                    dest='test_imap_authentication',
+                    help='attempts to authenticate to IMAP')
+  parser.add_option('--test_smtp_authentication',
+                    action='store_true',
+                    dest='test_smtp_authentication',
+                    help='attempts to authenticate to SMTP')
+  parser.add_option('--user',
+                    default=None,
+                    help='email address of user whose account is being '
+                         'accessed')
+  parser.add_option('--quiet',
+                    action='store_true',
+                    default=False,
+                    dest='quiet',
+                    help='Omit verbose descriptions and only print '
+                         'machine-readable outputs.')
+  return parser
+
+
+# The URL root for accessing Google Accounts.
+GOOGLE_ACCOUNTS_BASE_URL = 'https://accounts.google.com'
+
+
+# Hardcoded dummy redirect URI for non-web apps.
+REDIRECT_URI = 'urn:ietf:wg:oauth:2.0:oob'
+
+
+def AccountsUrl(command):
+  """Generates the Google Accounts URL.
+
+  Args:
+    command: The command to execute.
+
+  Returns:
+    A URL for the given command.
+  """
+  return '%s/%s' % (GOOGLE_ACCOUNTS_BASE_URL, command)
+
+
+def UrlEscape(text):
+  # See OAUTH 5.1 for a definition of which characters need to be escaped.
+  return urllib.quote(text, safe='~-._')
+
+
+def UrlUnescape(text):
+  # See OAUTH 5.1 for a definition of which characters need to be escaped.
+  return urllib.unquote(text)
+
+
+def FormatUrlParams(params):
+  """Formats parameters into a URL query string.
+
+  Args:
+    params: A key-value map.
+
+  Returns:
+    A URL query string version of the given parameters.
+  """
+  param_fragments = []
+  for param in sorted(params.iteritems(), key=lambda x: x[0]):
+    param_fragments.append('%s=%s' % (param[0], UrlEscape(param[1])))
+  return '&'.join(param_fragments)
+
+
+def GeneratePermissionUrl(client_id, scope='https://mail.google.com/'):
+  """Generates the URL for authorizing access.
+
+  This uses the "OAuth2 for Installed Applications" flow described at
+  https://developers.google.com/accounts/docs/OAuth2InstalledApp
+
+  Args:
+    client_id: Client ID obtained by registering your app.
+    scope: scope for access token, e.g. 'https://mail.google.com'
+  Returns:
+    A URL that the user should visit in their browser.
+  """
+  params = {}
+  params['client_id'] = client_id
+  params['redirect_uri'] = REDIRECT_URI
+  params['scope'] = scope
+  params['response_type'] = 'code'
+  return '%s?%s' % (AccountsUrl('o/oauth2/auth'),
+                    FormatUrlParams(params))
+
+
+def AuthorizeTokens(client_id, client_secret, authorization_code):
+  """Obtains OAuth access token and refresh token.
+
+  This uses the application portion of the "OAuth2 for Installed Applications"
+  flow at https://developers.google.com/accounts/docs/OAuth2InstalledApp#handlingtheresponse
+
+  Args:
+    client_id: Client ID obtained by registering your app.
+    client_secret: Client secret obtained by registering your app.
+    authorization_code: code generated by Google Accounts after user grants
+        permission.
+  Returns:
+    The decoded response from the Google Accounts server, as a dict. Expected
+    fields include 'access_token', 'expires_in', and 'refresh_token'.
+  """
+  params = {}
+  params['client_id'] = client_id
+  params['client_secret'] = client_secret
+  params['code'] = authorization_code
+  params['redirect_uri'] = REDIRECT_URI
+  params['grant_type'] = 'authorization_code'
+  request_url = AccountsUrl('o/oauth2/token')
+
+  response = urllib.urlopen(request_url, urllib.urlencode(params)).read()
+  return json.loads(response)
+
+
+def RefreshToken(client_id, client_secret, refresh_token):
+  """Obtains a new token given a refresh token.
+
+  See https://developers.google.com/accounts/docs/OAuth2InstalledApp#refresh
+
+  Args:
+    client_id: Client ID obtained by registering your app.
+    client_secret: Client secret obtained by registering your app.
+    refresh_token: A previously-obtained refresh token.
+  Returns:
+    The decoded response from the Google Accounts server, as a dict. Expected
+    fields include 'access_token', 'expires_in', and 'refresh_token'.
+  """
+  params = {}
+  params['client_id'] = client_id
+  params['client_secret'] = client_secret
+  params['refresh_token'] = refresh_token
+  params['grant_type'] = 'refresh_token'
+  request_url = AccountsUrl('o/oauth2/token')
+
+  response = urllib.urlopen(request_url, urllib.urlencode(params)).read()
+  return json.loads(response)
+
+
+def GenerateOAuth2String(username, access_token, base64_encode=True):
+  """Generates an IMAP OAuth2 authentication string.
+
+  See https://developers.google.com/google-apps/gmail/oauth2_overview
+
+  Args:
+    username: the username (email address) of the account to authenticate
+    access_token: An OAuth2 access token.
+    base64_encode: Whether to base64-encode the output.
+
+  Returns:
+    The SASL argument for the OAuth2 mechanism.
+  """
+  auth_string = 'user=%s\1auth=Bearer %s\1\1' % (username, access_token)
+  if base64_encode:
+    auth_string = base64.b64encode(auth_string)
+  return auth_string
+
+
+def TestImapAuthentication(user, auth_string):
+  """Authenticates to IMAP with the given auth_string.
+
+  Prints a debug trace of the attempted IMAP connection.
+
+  Args:
+    user: The Gmail username (full email address)
+    auth_string: A valid OAuth2 string, as returned by GenerateOAuth2String.
+        Must not be base64-encoded, since imaplib does its own base64-encoding.
+  """
+  print
+  imap_conn = imaplib.IMAP4_SSL('imap.gmail.com')
+  imap_conn.debug = 4
+  imap_conn.authenticate('XOAUTH2', lambda x: auth_string)
+  imap_conn.select('INBOX')
+
+
+def TestSmtpAuthentication(user, auth_string):
+  """Authenticates to SMTP with the given auth_string.
+
+  Args:
+    user: The Gmail username (full email address)
+    auth_string: A valid OAuth2 string, not base64-encoded, as returned by
+        GenerateOAuth2String.
+  """
+  print
+  smtp_conn = smtplib.SMTP('smtp.gmail.com', 587)
+  smtp_conn.set_debuglevel(True)
+  smtp_conn.ehlo('test')
+  smtp_conn.starttls()
+  smtp_conn.docmd('AUTH', 'XOAUTH2 ' + base64.b64encode(auth_string))
+
+
+def RequireOptions(options, *args):
+  missing = [arg for arg in args if getattr(options, arg) is None]
+  if missing:
+    print 'Missing options: %s' % ' '.join(missing)
+    sys.exit(-1)
+
+
+def main(argv):
+  options_parser = SetupOptionParser()
+  (options, args) = options_parser.parse_args()
+  if options.refresh_token:
+    RequireOptions(options, 'client_id', 'client_secret')
+    response = RefreshToken(options.client_id, options.client_secret,
+                            options.refresh_token)
+    if options.quiet:
+      print response['access_token']
+    else:
+      print 'Access Token: %s' % response['access_token']
+      print 'Access Token Expiration Seconds: %s' % response['expires_in']
+  elif options.generate_oauth2_string:
+    RequireOptions(options, 'user', 'access_token')
+    oauth2_string = GenerateOAuth2String(options.user, options.access_token)
+    if options.quiet:
+      print oauth2_string
+    else:
+      print 'OAuth2 argument:\n' + oauth2_string
+  elif options.generate_oauth2_token:
+    RequireOptions(options, 'client_id', 'client_secret')
+    print 'To authorize token, visit this url and follow the directions:'
+    print '  %s' % GeneratePermissionUrl(options.client_id, options.scope)
+    authorization_code = raw_input('Enter verification code: ')
+    response = AuthorizeTokens(options.client_id, options.client_secret,
+                                authorization_code)
+    print 'Refresh Token: %s' % response['refresh_token']
+    print 'Access Token: %s' % response['access_token']
+    print 'Access Token Expiration Seconds: %s' % response['expires_in']
+  elif options.test_imap_authentication:
+    RequireOptions(options, 'user', 'access_token')
+    TestImapAuthentication(options.user,
+        GenerateOAuth2String(options.user, options.access_token,
+                             base64_encode=False))
+  elif options.test_smtp_authentication:
+    RequireOptions(options, 'user', 'access_token')
+    TestSmtpAuthentication(options.user,
+        GenerateOAuth2String(options.user, options.access_token,
+                             base64_encode=False))
+  else:
+    options_parser.print_help()
+    print 'Nothing to do, exiting.'
+    return
+
+
+if __name__ == '__main__':
+  main(sys.argv)
diff --git a/oauth2/oauth2_imap_from_token b/oauth2/oauth2_imap_from_token
new file mode 100755
index 0000000..b49af37
--- /dev/null
+++ b/oauth2/oauth2_imap_from_token
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use Mail::IMAPClient ;
+use MIME::Base64;
+
+my $access_token ;
+
+$access_token = $ARGV[1];
+
+my $username;
+$username = $ARGV[0]; # "imapsync.gl0@gmail.com" ;
+
+
+my $oauth_string = "user=" . $username . "\x01auth=Bearer ".  $access_token . "\x01\x01" ;
+print "oauth_string: $oauth_string\n" ;
+
+
+#my $oauth_string_base64 = $access_token ;
+my $oauth_string_base64 = encode_base64( $oauth_string , '' ) ;
+
+print "oauth_string_base64: $oauth_string_base64\n" ;
+
+my $imap = Mail::IMAPClient->new(
+Server => 'imap.gmail.com',
+Port => 993,
+Ssl => 1,
+Uid => 1,
+Showcredentials => 1,
+) or die("Can't connect to imap server.");
+
+$imap->Debug(1) ;
+$imap->authenticate('XOAUTH2', sub { return $oauth_string_base64 }) or die("Auth error: ". $imap->LastError);
+
+print join(", ",$imap->folders),".\n" or die("List folders error: ". $imap->LastError);
+
diff --git a/tests.sh b/tests.sh
index b2b0309..9b2e963 100644
--- a/tests.sh
+++ b/tests.sh
@@ -1,20 +1,23 @@
 #!/bin/sh
 
-# $Id: tests.sh,v 1.353 2020/01/02 23:48:18 gilles Exp gilles $  
+# $Id: tests.sh,v 1.365 2021/07/05 20:19:12 gilles Exp gilles $  
 
-# general tests start
-# general tests end
+# To run these tests, you need a running imap server somewhere
+# with several accounts. And be on Linux or Unix.
+# 
+# Tests will break as they are home specific, they depend on the content
+# of the mailboxes, which are not given here.
+# 
+# Anyway, those tests are good as imapsync examples.
+# 
+# All mandatory tests are run with:
+# 
+# sh tests.sh
+# 
+# Specific tests can be run by using them as arguments to tests.sh:
+# 
+# sh tests.sh ll_ssl_justconnect  ll_bad_host ...
 
-# Example 1:
-# CMD_PERL='perl -I./W/Mail-IMAPClient-3.39/lib' sh -x tests.sh
-
-# Example 2:
-# To select which Mail-IMAPClient within arguments:
-# sh -x tests.sh 2 ll 3 ll
-# This runs ll() with Mail-IMAPClient-2.2.9 then
-# again with Mail-IMAPClient-3.xx
-# 2 means "use Mail-IMAPClient-2.2.9"
-# 3 means "use Mail-IMAPClient-3.xx" 
 
 
 HOST1=${HOST1:-'localhost'}
@@ -24,27 +27,27 @@ echo HOST2=$HOST2
 
 # most tests use:
 
-# few debugging tests use:
-CMD_PERL_3xx='perl -I./W/Mail-IMAPClient-3.42/lib'
+CMD_PERL='perl -I./W/Mail-IMAPClient-3.43/lib'
 
-CMD_PERL=${CMD_PERL:-$CMD_PERL_3xx}
-
-#echo $CMD_PERL
-#exit
 
 #### Shell pragmas
 
-exec 3>&2 # 
-#set -x   # debug mode. See what is running
-#set -e    # exit on first failure
+
 
 #### functions definitions
 
+# File handle 3 is redirected to STDERR so that echo3 prints 
+# on the terminal even with "sh test.sh > /dev/null"
+# I want to see the names of the tests and their count while 
+# they're running but I don't want to see their output, it's too noisy.
+
+exec 3>&2 
 echo3() {
         #echo '#####################################################' >&3
         echo "$@" >&3
 }
 
+# 
 echolog() {
         echo "`date_ymdhms` : $@" >> W/.tests.errors.txt
         echo3 Last errors listed in W/.tests.errors.txt
@@ -77,14 +80,13 @@ setxon() {
 }
 
 setxback() {
-	$setx_restore_cmd
+        $setx_restore_cmd
 }
 
 run_tests() {
         for t in "$@"; do
-                test X"$t" = X3 && CMD_PERL=$CMD_PERL_3xx && continue
                 tests_count=`expr 1 + $tests_count`
-		#
+                #
                 if ! run_test "$t"; then
                         tests_failed_count=`expr 1 + $tests_failed_count`
                         tests_failed_list="$tests_failed_list $t"
@@ -127,12 +129,12 @@ no_args() {
 # mailboxes tata -> titi used on ll()
 # mailboxes tata -> titi on most ll_*() tests
 
-# mailbox tete@est.belle used on big size tests:
+# mailbox tete@est.belle used on big folder size tests:
 #                      huge_folder()
 #                      huge_folder_sizes_only()
 #                      dprof()
 
-# mailbox big1 big2 used on bigmail tests
+# mailbox big1 big2 used on bigmail message tests
 #                      ll_bigmail()
 #                      ll_memory_consumption
 
@@ -160,7 +162,7 @@ sendtestmessage_titi() {
 can_send() {
 
     # no send at all
-    return 1
+    #return 1
 
     test X`hostname` = X"petite" && return 0;
     test X`hostname` = X"plume" && return 0;
@@ -191,18 +193,36 @@ set_return_code_variables()
         EXIT_CATCH_ALL=1             # Any other error
         
         EXIT_BY_SIGNAL=6
+        EXIT_BY_SIGQUIT=131 # 128+3
+        EXIT_BY_SIGKILL=137 # 128+9
+        EXIT_BY_SIGTERM=143 # 128+15
+        
+        EXIT_BY_FILE=7
         EXIT_PID_FILE_ERROR=8
         
         EXIT_CONNECTION_FAILURE=10
+        EXIT_CONNECTION_FAILURE_HOST1=101
+        EXIT_CONNECTION_FAILURE_HOST2=102
         EXIT_TLS_FAILURE=12
         EXIT_AUTHENTICATION_FAILURE=16
+        EXIT_AUTHENTICATION_FAILURE_USER1=161
+        EXIT_AUTHENTICATION_FAILURE_USER2=162
         EXIT_SUBFOLDER1_NO_EXISTS=21
         
         EXIT_WITH_ERRORS=111
         EXIT_WITH_ERRORS_MAX=112
+        EXIT_OVERQUOTA=113
+        EXIT_ERR_APPEND=114
+        EXIT_ERR_FETCH=115
+        EXIT_ERR_CREATE=116
+        EXIT_ERR_SELECT=117
+        EXIT_TRANSFER_EXCEEDED=118
+        EXIT_ERR_APPEND_VIRUS=119
+        
         EXIT_TESTS_FAILED=254        # Like Test::More API
 }
 
+
 # general tests start
 
 option_version() {
@@ -296,20 +316,53 @@ ll_showpasswords() {
 	 --justlogin --showpasswords --debugimap1 
 }
 
-ll_authentication_failure() {
+
+ll_dry() 
+{
+# The first is to create INBOX.dry on host2
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
-         --password1 wrong \
+         --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
-         --password2 wrong
-         test "$?" = "$EXIT_AUTHENTICATION_FAILURE"
+         --passfile2 ../../var/pass/secret.titi \
+         --folder INBOX --f1f2 INBOX=INBOX.dry --justfolders
+
+        time $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --folder INBOX --f1f2 INBOX=INBOX.dry --dry
 }
 
+ll_dry_nodry1() 
+{
+        time $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --folder INBOX --f1f2 INBOX=INBOX.dry --dry --nodry1
+}
+
+ll_dry_maxage() 
+{
+        time $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --folder INBOX --f1f2 INBOX=INBOX.dry --dry --maxage 7
+}
+
+
+# In mandatory_tests
 ll_justhost1()
 {
         $CMD_PERL  ./imapsync --host1 $HOST2
 }
 
+# In mandatory_tests
 ll_justhost2()
 {
         $CMD_PERL  ./imapsync --host2 $HOST2
@@ -362,6 +415,46 @@ ll_INBOX() {
          --folder INBOX
 }
 
+ll_acl() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --folder INBOX.few_emails --syncacl # --debugimap # --dry
+}
+
+l_office365_acl()
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
+        --passfile2 ../../var/pass/secret.outlook.com \
+        --folder INBOX.few_emails --syncacl --dry --debugimap
+}
+
+
+
+ll_namespace_debugimap() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --debugimap1 --justfolderlists
+}
+
+
+ll_host_sanitize() {
+        $CMD_PERL  ./imapsync \
+         --host1 " local /host " --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 ' loc alhost/    ' --user2 titi \
+         --passfile2 ../../var/pass/secret.titi --justlogin 
+}
+
+
 ll_skipcrossduplicates() {
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
@@ -380,7 +473,7 @@ ll_append_debugimap() {
          --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
-	 --folder INBOX --maxage 1 --debugimap1 --nofoldersizes
+	 --folder INBOX --maxage 1 --debugimap2 --nofoldersizes
 }
 
 
@@ -404,13 +497,23 @@ ll_tee() {
 #         --passfile1 ../../var/pass/secret.tata \
 }
 
-ll_minsize() {
+ll_minsize()
+{
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
-		 --minsize 1000000 --folder INBOX
+         --minsize 1000000 --folder INBOX
+}
+
+ll_nosearch()
+{
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 nosearch \
+         --passfile1 ../../var/pass/secret.nosearch \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi 
 }
 
 ll_search_larger() {
@@ -507,18 +610,37 @@ ll_sigignore_TERM() {
 # ABORT tests
 
 # In mandatory_tests
-ll_abort_pidfile_no_exist() {
+ll_abort_pidfile_no_exist()
+{
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
-	 --abort --pidfile /noexist \
-         | grep 'Can not read pidfile /noexist. Exiting.'
+         --abort --pidfile /noexist \
+         --logfile ll_abort_pidfile_no_exist.log
+         grep 'Can not read pidfile /noexist' LOG_imapsync/ll_abort_pidfile_no_exist.log
 }
 
 # In mandatory_tests
-ll_abort_noprocess() {
+ll_abort_noprocess()
+{
+# The process does not exist so the pidfile is removed so the abort is not done
+# and that is ok.
+        echo 99998 > /tmp/imapsync_fake.pid
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+        --abort --pidfile /tmp/imapsync_fake.pid \
+        --logfile ll_abort_noprocess.log
+        grep 'Removing old /tmp/imapsync_fake.pid since its PID 99998 is not running anymore' LOG_imapsync/ll_abort_noprocess.log
+}
+
+# In mandatory_tests
+ll_abort_not_a_pid_number()
+{
         echo 999999 > /tmp/imapsync_fake.pid
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
@@ -526,11 +648,15 @@ ll_abort_noprocess() {
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
         --abort --pidfile /tmp/imapsync_fake.pid \
-         | grep 'Can not send signal kill ZERO to PID 999999.'
+        --logfile ll_abort_not_a_pid_number.log
+        grep 'pid 999999 in /tmp/imapsync_fake.pid is not a pid number' LOG_imapsync/ll_abort_not_a_pid_number.log
 }
 
+
+
 # In mandatory_tests
-ll_abort() { # send QUIT signal 
+ll_abort_basic()
+{ 
         rm -f LOG_imapsync/imapsync_abortme.log
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
@@ -540,59 +666,150 @@ ll_abort() { # send QUIT signal
         --pidfile /tmp/imapsync_abortme.pid \
         --logfile imapsync_abortme.log --simulong 4 &
         
+        pid_imapsync_abortme=$!
         sleep 2
 
+        # --abort send QUIT signal 
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --abort --pidfile /tmp/imapsync_abortme.pid \
-        --logfile imapsync_aborter.log \
-        | egrep 'Process PID .* ended.' \
-        || { echo 'Look into LOG_imapsync/imapsync_aborter.log' ; return 1 ; }
-
+        --logfile imapsync_aborter.log
         
-        grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme.log
+        egrep 'Process PID .* ended.' LOG_imapsync/imapsync_aborter.log || return 1 
+
+        wait $pid_imapsync_abortme
+        STATUS_pid_imapsync_abortme="$?"
+        #test "$?" = "$EXIT_BY_SIGNAL" || return 1
+        test "$STATUS_pid_imapsync_abortme" = "$EXIT_BY_SIGQUIT" || test "$STATUS_pid_imapsync_abortme" = "$EXIT_BY_SIGKILL" || return 1
+        grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme.log || return 1
+}
+
+# In mandatory_tests
+ll_abort_byfile_hand_made()
+{
+        rm -f LOG_imapsync/imapsync_abortme.log
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --pidfile /tmp/ll_abort_byfile_hand_made.pid --pidfilelocking \
+        --logfile ll_abort_byfile_hand_made.log --simulong 4 &
+
+        pid_imapsync_background=$!
+
+        sleep 4
+        touch "/tmp/ll_abort_byfile_hand_made.pidabort$pid_imapsync_background"
+        wait $pid_imapsync_background
+        test "$?" = "$EXIT_BY_FILE" || return 1
+        ! test -f "/tmp/ll_abort_byfile_hand_made.pidabort$pid_imapsync_background" || return 1
+}
+
+# In mandatory_tests
+ll_abort_byfile_imapsync_made()
+{
+        rm -f LOG_imapsync/ll_abort_byfile_imapsync_made.log
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --pidfile /tmp/ll_abort_byfile_imapsync_made.pid --pidfilelocking \
+        --logfile ll_abort_byfile_imapsync_made.log --simulong 6 --justbanner &
+
+        pid_imapsync_background_2=$!
+
+        sleep 3
+
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --pidfile /tmp/ll_abort_byfile_imapsync_made.pid --pidfilelocking \
+        --logfile ll_abort_byfile_imapsync_made_aborter.log --abortbyfile
+
+
+        wait $pid_imapsync_background_2
+        test "$?" = "$EXIT_BY_FILE" || return 1
+        ! test -f "/tmp/imapsync_abortme_byfile.pidabort$pid_imapsync_background_2" || return 1
+}
+
+# In mandatory_tests
+ll_abort_byfile_normal_run()
+{
+        rm -f LOG_imapsync/ll_abort_byfile_normal_run.log
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --pidfile /tmp/ll_abort_byfile_normal_run.pid --pidfilelocking \
+        --logfile ll_abort_byfile_normal_run.log --folder INBOX &
+
+        pid_imapsync_background_3=$!
+
+        sleep 3
+
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --pidfile /tmp/ll_abort_byfile_normal_run.pid --pidfilelocking \
+        --logfile ll_abort_byfile_normal_run_aborter.log --abortbyfile
+
+
+        wait $pid_imapsync_background_3
+        test "$?" = "$EXIT_BY_FILE" || return 1
+        ! test -f "/tmp/imapsync_abortme_byfile.pidabort$pid_imapsync_background_3" || return 1
 }
 
 
 
 # In mandatory_tests
 ll_abort_cgi_context_tail() {
+# --tail mechanism will not be executed because --pidfile is not already created when tail is called.
         rm -f LOG_imapsync/imapsync_abortme.log
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
-        --pidfile /tmp/imapsync_abortme_cgi_context.pid --pidfilelocking --tail \
-        --logfile imapsync_abortme_cgi_context.log --simulong 4 &
+        --pidfile /tmp/ll_abort_cgi_context_tail.pid --pidfilelocking --tail \
+        --logfile ll_abort_cgi_context_tail.log --simulong 4 &
         
         sleep 2
 
+# --tail will be ignored because of --abort 
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
-        --abort --pidfile /tmp/imapsync_abortme_cgi_context.pid --pidfilelocking --tail \
-        | egrep 'Process PID .* ended.' || return 1
-
-        grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme_cgi_context.log
+        --abort --pidfile /tmp/ll_abort_cgi_context_tail.pid --pidfilelocking --tail \
+        --logfile ll_abort_cgi_context_tail_aborter.log
+        
+        egrep 'Process PID .* ended.' LOG_imapsync/ll_abort_cgi_context_tail_aborter.log  || return 1
+        grep 'Killing myself with signal QUIT' LOG_imapsync/ll_abort_cgi_context_tail.log || return 1
 }
 
 # In mandatory_tests
 ll_abort_no_pidfile_option() {
-        rm -f LOG_imapsync/imapsync_abortme.log
+        # The final grep has to be fresh
+        rm -f LOG_imapsync/ll_abort_no_pidfile_option.log
+        
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
-        --logfile imapsync_abortme_no_pidfile_option.log --simulong 4 &
+        --logfile ll_abort_no_pidfile_option.log  &
         
-        sleep 2
+        sleep 10
 
         $CMD_PERL  ./imapsync \
         --host1 $HOST1 --user1 tata \
@@ -600,9 +817,12 @@ ll_abort_no_pidfile_option() {
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --abort  \
-        | egrep 'Process PID .* ended.' || return 1
+        --logfile ll_abort_no_pidfile_option_aborter.log
+        
+        
+        egrep 'Process PID .* ended.' LOG_imapsync/ll_abort_no_pidfile_option_aborter.log || return 1
 
-        grep 'Killing myself with signal QUIT' LOG_imapsync/imapsync_abortme_no_pidfile_option.log
+        grep  'Killing myself with signal QUIT' LOG_imapsync/ll_abort_no_pidfile_option.log || return 1
 }
 
 
@@ -610,11 +830,26 @@ abort_tests()
 {
         ll_abort_pidfile_no_exist \
         && ll_abort_noprocess \
-        && ll_abort \
+        && ll_abort_not_a_pid_number \
+        && ll_abort_basic \
         && ll_abort_cgi_context_tail \
-        && ll_abort_no_pidfile_option
+        && ll_abort_no_pidfile_option \
+        && ll_abort_byfile_hand_made \
+        && ll_abort_byfile_imapsync_made \
+        && ll_abort_byfile_normal_run
+
 }
 
+ll_simulong() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --justbanner --simulong 5
+}
+
+
 ll_nouid1() {
         can_send && sendtestmessage
         $CMD_PERL  ./imapsync \
@@ -659,11 +894,12 @@ ll_with_errors() {
         --passfile2 ../../var/pass/secret.titi \
         --folder INBOX --maxage 30 \
         --regexflag 's/.*/PasGlop \\PasGlopRe/'
+        test "$EXIT_WITH_ERRORS" = "$?"
 }
 
 
 
-ll_errors() {
+ll_errorsmax() {
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
@@ -671,6 +907,8 @@ ll_errors() {
          --passfile2 ../../var/pass/secret.titi \
 	 --nofoldersizes --folder INBOX.errors --regexflag 's/.*/PasGlop \\PasGlopRe/' --errorsmax 5 --delete2 
 	 #--pipemess 'grep lalalala' --nopipemesscheck --dry  --debugcontent --debugflags
+         #test "$EXIT_WITH_ERRORS_MAX" = "$?" # no longer used since errors classification
+         test "$EXIT_WITH_ERRORS" = "$?"
 }
 
 ll_debug()
@@ -690,9 +928,21 @@ ll_debugcontent() {
          --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
-	 --debugcontent --maxage 1 --folder INBOX --dry
+	 --debugcontent --maxage 1 --folder INBOX --dry --nodry1 
 }
 
+ll_debug_FETCH_BODY() {
+        #can_send && sendtestmessage
+        $CMD_PERL  ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --debugimap1 --maxage 1 --folder INBOX --dry --nodry1 
+}
+
+
+
 
 ll_debugmemory() {
         sendtestmessage
@@ -734,9 +984,19 @@ ll_nocheckselectable()
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --nocheckselectable --justfolderlists \
-        | grep 'Not checking that wanted folders are selectable' 
+        | grep 'Not checking that .*wanted folders are selectable' 
 }
 
+ll_checkselectable_nb_folders() 
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --justfolderlists | grep 'Not checking that .* wanted folders are selectable'
+}
+        
 ll_checkfoldersexist() 
 {
         $CMD_PERL ./imapsync \
@@ -873,9 +1133,9 @@ ll_ask_password() {
 }
 
 ll_env_password() {
-		set +x
-		IMAPSYNC_PASSWORD1=`cat ../../var/pass/secret.tata` \
-		IMAPSYNC_PASSWORD2=`cat ../../var/pass/secret.titi` \
+                set +x
+                IMAPSYNC_PASSWORD1=`cat ../../var/pass/secret.tata` \
+                IMAPSYNC_PASSWORD2=`cat ../../var/pass/secret.titi` \
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1 --user1 tata \
                 --host2 $HOST2 --user2 titi --passfile2 ../../var/pass/secret.titi \
@@ -884,15 +1144,19 @@ ll_env_password() {
 
 
 ll_authmech_PREAUTH() {
-		# No PREAUTH on my box
-                ! $CMD_PERL ./imapsync \
+                # No PREAUTH on my box
+                $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata --authmech1 PREAUTH \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --justlogin
+                --justlogin --debugimap1
+                test "$?" = "$EXIT_AUTHENTICATION_FAILURE"
 }
 
 
+
+
+
 ll_unknow_option() {
                 ! $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
@@ -903,14 +1167,13 @@ ll_unknow_option() {
 }
 
 
-
 ll_timeout() {
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --folder INBOX --timeout 3 --justlogin
+                --folder INBOX --timeout 4.99 --justlogin
 }
 
 ll_timeout1_timeout2() {
@@ -919,7 +1182,7 @@ ll_timeout1_timeout2() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --folder INBOX --timeout1 4 --timeout2 5 --justlogin
+                --folder INBOX --timeout1 0.99 --timeout2 0.95 --justlogin
 }
 
 ll_timeout_timeout1() {
@@ -932,13 +1195,13 @@ ll_timeout_timeout1() {
 }
 
 
-ll_timeout_ssl() {
-                $CMD_PERL ./imapsync \
+ll_timeout_very_small() {
+                ! $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --folder INBOX --timeout 5 --ssl1 --ssl2 
+                --folder INBOX --timeout 0.001 --nossl1 --nossl2 --notls1 --notls2 --justlogin
 }
 
 
@@ -966,7 +1229,16 @@ ll_star() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --folder 'INBOX.backstar\*' --dry --justfolders --regextrans2 's,\*,_,g'
+                --folder 'INBOX.star*' --justfolders --debugimap
+}
+
+ll_star_ch() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folderrec 'INBOX.Z_ch' --justfolders --debugimap 
 }
 
 ll_tr() {
@@ -975,9 +1247,19 @@ ll_tr() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --dry --justfolders --regextrans2 'tr/a/_/'
+                --dry --justfolders --include a --regextrans2 'tr/a/_/' 
 }
 
+ll_tr_delete() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --dry --justfolders --folder INBOX.lalala --regextrans2 'tr/a//d' 
+}
+
+
 ll_regextrans2_d() {
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
@@ -1028,9 +1310,9 @@ ksks_password_doublequote() {
 ksks_empty_test1()
 {
         $CMD_PERL ./imapsync \
-                --host1 ks.lamiral.info  --user1 test1 \
+                --host1 test1.lamiral.info  --user1 test1 \
                 --password1 'secret1' \
-                --host2 ks.lamiral.info --user2 test1 \
+                --host2 test1.lamiral.info --user2 test1 \
                 --password2 'secret1' \
                 --delete1 --delete1emptyfolders
 }
@@ -1040,9 +1322,10 @@ ksks_init_test1()
         $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
-                --host2 ks.lamiral.info --user2 test1 \
+                --host2 test1.lamiral.info --user2 test1 \
                 --password2 'secret1' \
-                --folder INBOX.init --f1f2 INBOX.init=INBOX
+                --folder INBOX.init --f1f2 INBOX.init=INBOX \
+                --folderrec 'INBOX.init'
 }
 
 # In mandatory_tests
@@ -1054,9 +1337,9 @@ ksks_reset_test1()
 
 ksks_empty_test2() {
         $CMD_PERL ./imapsync \
-                --host1 ks.lamiral.info  --user1 test2 \
+                --host1 test2.lamiral.info  --user1 test2 \
                 --password1 'secret2' \
-                --host2 ks.lamiral.info --user2 test2 \
+                --host2 test2.lamiral.info --user2 test2 \
                 --password2 'secret2' \
                 --delete1 --delete1emptyfolders
 }
@@ -1190,7 +1473,7 @@ ll_debugimap() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --folder INBOX.oneemail --debugimap
+                --folder INBOX.oneemail --debugimap --justlogin
 }
 
 ll_few_emails() {
@@ -1304,12 +1587,49 @@ ll_noheader_force() {
 }
 
 ll_addheader() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.addheader --delete2  
+                
+                # destination should be empty
+                ! ls /home/vmail/titi/.addheader/cur/* || return 1
+                
+                
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
                 --folder INBOX.addheader --delete2  --addheader
+                
+                # Now it should be not empty
+                ls /home/vmail/titi/.addheader/cur/* || return 1
+}
+
+ll_addheader_minage() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.addheader --delete2  
+                
+                # destination should be empty
+                ! ls /home/vmail/titi/.addheader/cur/* || return 1
+                
+                
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.addheader --delete2  --addheader --minage 365 --debugimap
+                
+                # Now it should be not empty
+                ls /home/vmail/titi/.addheader/cur/* || return 1
 }
 
 
@@ -1334,6 +1654,15 @@ ll_folderrec() {
                 --folderrec INBOX.yop  --justfolders
 }
 
+ll_folderrec_INBOX() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folderrec INBOX  --justfolders
+}
+
 ll_folderrec_star() {
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
@@ -1662,7 +1991,7 @@ ll_prefix12() {
 
 ll_nosyncinternaldates() {
         can_send && sendtestmessage toto
-        $CMD_PERL_3xx ./imapsync \
+        $CMD_PERL ./imapsync \
          --host1 $HOST1  --user1 toto \
          --passfile1 ../../var/pass/secret.toto \
          --host2 $HOST2 --user2 titi \
@@ -1742,7 +2071,7 @@ ll_justconnect()
                 $CMD_PERL ./imapsync    \
                 --host1 $HOST1 \
                 --host2 $HOST2 \
-                --justconnect 
+                --justconnect --debugimap
 }
 
 
@@ -1872,7 +2201,7 @@ ll_reconnect_on_signal()
 
 
 
-ll_dev_reconnect() 
+ll_dev_reconnect_none()
 {
 # in another terminal:
 #
@@ -1894,9 +2223,30 @@ EOF
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
                 --folder INBOX --useuid \
-		--reconnectretry2 0 --reconnectretry1 0
+                --reconnectretry2 0 --reconnectretry1 0
 }
 
+ll_dev_reconnect_one()
+{
+# in another root terminal:
+#
+: <<'EOF'
+while read y; do 
+    killall -v -u vmail imapd
+done
+EOF
+        $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX --useuid \
+                --reconnectretry2 1 --reconnectretry1 1
+}
+
+
+
+
 ll_dev_reconnect_ssl_tls() 
 {
 # in another terminal:
@@ -2238,7 +2588,7 @@ ll_search_SENTSINCE_and_BEFORE_search2()
 	--search2 'ALL' --folder INBOX --delete2
 }
 
-ll_search_HEADER_attachment() 
+ll_search_HEADER_attachment()
 {
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
@@ -2246,9 +2596,21 @@ ll_search_HEADER_attachment()
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --search "OR HEADER Content-Disposition attachment HEADER Content-Type multipart/mixed" \
-	--folder INBOX
+        --folder INBOX
 }
 
+ll_search_NOT_HEADER_attachment()
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --search "NOT OR HEADER Content-Disposition attachment HEADER Content-Type multipart/mixed" \
+        --folder INBOX
+}
+
+
 ll_search_HEADER_attachment_multipart() 
 {
         $CMD_PERL ./imapsync \
@@ -2268,10 +2630,21 @@ ll_search_NOT_SUBJECT()
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --search "NOT SUBJECT test:" \
-	--folder INBOX
+        --folder INBOX
 }
 
 
+ll_search_UNSEEN_SENTSINCE() 
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --search "UNSEEN SENTSINCE 23-Aug-2015" \
+        --folder INBOX --dry
+}
+
 
 
 ll_maxage_nonew() 
@@ -2287,7 +2660,7 @@ ll_maxage_nonew()
 }
 
 
-ll_nosearch_hack() 
+ll_noabletosearch() 
 {
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
@@ -2298,6 +2671,32 @@ ll_nosearch_hack()
 	# --debugdev --debugimap
 }
 
+ll_fetch_hash_set() 
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX --justfoldersizes --noabletosearch --fetch_hash_set '1:*' 
+	# --debugdev --debugimap
+}
+
+ll_fetch_hash_set_abletosearch() 
+{
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX --justfoldersizes --abletosearch --fetch_hash_set '1:*' 
+	# --debugdev --debugimap
+}
+
+
+
+
+
 ll_noabletosearch1() 
 {
         $CMD_PERL ./imapsync \
@@ -2357,7 +2756,7 @@ ll_search_UID()
 
 
 
-ll_exitwhenover()
+ll_exitwhenover() 
 {
         sendtestmessage
         sendtestmessage
@@ -2367,7 +2766,8 @@ ll_exitwhenover()
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --maxage 1 --folder INBOX --nofoldersizes \
-	--exitwhenover 100
+        --exitwhenover 100
+        test "$EXIT_TRANSFER_EXCEEDED" = "$?"
 }
 
 
@@ -2523,8 +2923,9 @@ ll_skipheader()
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
+                --useheader ALL \
                 --skipheader '^X-.*|^Date' --folder INBOX.yop.yap \
-                --debug
+                --debug --dry
 }
 
 
@@ -2645,11 +3046,18 @@ ll_regextrans2()
        --folder 'INBOX.yop.yap' --debug
 }
 
-ll_regextrans2_downcase() 
+ll_regextrans2_ucfirst_downcase_last_folder() 
 {
 # lowercase the last basename part
-# [INBOX.yop.YAP] -> [INBOX.yop.yap] using re [s/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/]
-# [INBOX.yop.YAP]                     -> [INBOX.yop.yap]                    
+# [INBOX.yop.YAP] -> [INBOX.yop.Yap] using re 
+# [INBOX.yop.YAP]                     -> [INBOX.yop.Yap]                    
+
+# \l          lowercase next char (think vi)
+# \u          uppercase next char (think vi)
+# \L          lowercase till \E (think vi)
+# \U          uppercase till \E (think vi)
+# \E          end case modification (think vi)
+# \Q          quote (disable) pattern metacharacters till \E
 
        $CMD_PERL ./imapsync \
        --host1 $HOST1 --user1 tata \
@@ -2658,16 +3066,13 @@ ll_regextrans2_downcase()
        --passfile2 ../../var/pass/secret.titi \
        --justfolders \
        --nofoldersizes \
-       --regextrans2 's/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/' \
+       --regextrans2 's,(.*)\.(.+)$,$1.\u\L$2\E,' \
        --folder 'INBOX.yop.YAP' --justfolders --debug --dry
 }
 
-ll_regextrans2_ucfirst() 
+ll_regextrans2_ucfirst_downcase_all_folders()
 {
 # lowercase the last basename part
-# [INBOX.yop.YAP] -> [INBOX.yop.yap] using re [s/(.*)\Q${h1_sep}\E(.+)$/$1${h2_sep}\L$2\E/]
-# [INBOX.yop.YAP]                     -> [INBOX.yop.yap]                    
-
        $CMD_PERL ./imapsync \
        --host1 $HOST1 --user1 tata \
        --passfile1 ../../var/pass/secret.tata \
@@ -2675,7 +3080,7 @@ ll_regextrans2_ucfirst()
        --passfile2 ../../var/pass/secret.titi \
        --justfolders \
        --nofoldersizes \
-       --regextrans2 's/(.*)\Q${h1_sep}\E(.)(.+)$/$1${h2_sep}\u$2\L$3\E/' \
+       --regextrans2 's,([^.]+),\u\L$1\E,g' \
        --folder 'INBOX.yop.YAP' --justfolders --debug --dry
 }
 
@@ -2910,16 +3315,67 @@ ll_bad_login()
    
 }
 
-ll_bad_host()
+ll_authentication_failure_user1() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --password1 wrong \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi
+         test "$?" = "$EXIT_AUTHENTICATION_FAILURE_USER1"
+}
+ll_authentication_failure_user2() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --password2 wrong
+         test "$?" = "$EXIT_AUTHENTICATION_FAILURE_USER2"
+}
+
+ll_authentication_failure_user12() {
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --password1 wrong \
+         --host2 $HOST2 --user2 titi \
+         --password2 wrong
+         test "$?" = "$EXIT_AUTHENTICATION_FAILURE_USER1"
+}
+
+
+ll_bad_host1()
 {
-    ! $CMD_PERL ./imapsync \
-        --host1 badhost --user1 tata \
+    $CMD_PERL ./imapsync \
+        --host1 badhostkaka --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
-        --host2 badhost --user2 titi \
+        --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi 
+    test "$EXIT_CONNECTION_FAILURE_HOST1" = "$?"
    
 }
 
+
+ll_bad_host2()
+{
+    $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 badhostkiki --user2 titi \
+        --passfile2 ../../var/pass/secret.titi 
+    test "$EXIT_CONNECTION_FAILURE_HOST2" = "$?"
+}
+
+ll_bad_host12()
+{
+    $CMD_PERL ./imapsync \
+        --host1 badhostkaka --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 badhostkiki --user2 titi \
+        --passfile2 ../../var/pass/secret.titi 
+    test "$EXIT_CONNECTION_FAILURE_HOST1" = "$?"
+}
+
+
+
 ll_bad_host_ssl()
 {
     ! $CMD_PERL ./imapsync \
@@ -2940,7 +3396,7 @@ ll_useheader()
                 --passfile2 ../../var/pass/secret.titi \
                 --folder INBOX.yop.yap \
                 --useheader 'Message-ID' \
-                --dry --debug   
+                --dry --debug
                 echo 'rm /home/vmail/titi/.yop.yap/cur/*'
 }
 
@@ -2954,10 +3410,24 @@ ll_useheader_Received()
                 --passfile2 ../../var/pass/secret.titi \
                 --folder INBOX.yop.yap \
                 --useheader 'Received' \
-                --dry --debug   --fast
+                --dry --debug
                 echo 'rm /home/vmail/titi/.yop.yap/cur/*'
 }
 
+ll_useheader_Message_ID_Received() 
+{
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.yop.yap \
+                --useheader 'Received' --useheader 'Message-ID' \
+                --dry --debug
+                echo 'rm /home/vmail/titi/.yop.yap/cur/*'
+}
+
+
 ll_useheader_noheader() 
 {
                 $CMD_PERL ./imapsync \
@@ -3018,10 +3488,19 @@ ll_skipmess_Content_Type_Message_partial()
 	echo "sudo rm -rf /home/vmail/titi/.partial/cur/*"
 
 #        --skipmess 'm{\A((?:[^\n]+\n)+|)^Content-Type: Message/Partial;[^\n]*\n(?:\r?\n|.*\r?\n\r?\n)}ism'  --dry --addheader 
-
-
 }
 
+ll_skipmess_not_From() 
+{
+        sendtestmessage tata 
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX --nofoldersizes \
+        --skipmess 'm{\A(?!.*^From:[^\n]*tartanpion\@machin\.truc)}xms'
+}
 
 
 ll_regexmess() 
@@ -3029,7 +3508,9 @@ ll_regexmess()
         if can_send; then
                 rm -f /home/vmail/titi/.yop.yap/cur/*
         fi
-                $CMD_PERL ./imapsync \
+        
+        # \157 is octal for o
+        $CMD_PERL ./imapsync \
                 --host1 $HOST1 --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
@@ -3039,13 +3520,52 @@ ll_regexmess()
                 --regexmess 's/p/Z/g' \
                 --debug 
                 
-        if can_send; then 	
-		file=`ls -t /home/vmail/titi/.yop.yap/cur/* | tail -1`
+        if can_send; then
+                file=`ls -t /home/vmail/titi/.yop.yap/cur/* | tail -1`
                 diff ../../var/imapsync/tests/ll_regexmess/dest_01 $file
                 echo 'sudo rm -fv /home/vmail/titi/.yop.yap/cur/*'
-	fi
+        fi
 }
 
+ll_regexmess_8bit_X()
+{
+        if can_send; then
+                rm -f /home/vmail/titi/.oneemail/cur/*
+        fi
+        
+        # All f should become X
+        $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.oneemail \
+                --regexmess 'tr [f] [\x99]' \
+                --regexmess 'tr [\x80-\xff] [X]' \
+                --debug 
+}
+
+ll_regexmess_add_CRLF_if_needed()
+{
+        if can_send; then
+                rm -f /home/vmail/titi/.oneemail/cur/*
+        fi
+        
+        # The first one is to be in the case of missing the last \r\n
+        # it actually removes it. The second one is the fix.
+        $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.oneemail \
+                --regexmess "s{\r\n\z}{}gxms" \
+                --regexmess "s{(?<![\n])\z}{\r\n}gxms" \
+                --debug
+}
+
+
+
 ll_regexmess_bad_regex() 
 {
         ! $CMD_PERL ./imapsync \
@@ -3532,6 +4052,24 @@ ll_regex_flag_keep_only()
                 echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
 }
 
+ll_regex_flag_keep_only_phil() 
+{
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.yop.yap \
+                --debugflags \
+                --regexflag 's/(.*)/$1 jrdH8u/' \
+                --regexflag 's/.*?(?:(\\(?:Answered|Flagged|Deleted|Seen|Draft)\s?)|$)/defined($1)?$1:q()/eg' \
+                --regexflag 's/jrdH8u *//'
+                
+                echo 'rm -f /home/vmail/titi/.yop.yap/cur/*'
+}
+
+
+
 
 ll_tls_justconnect() {
  $CMD_PERL ./imapsync \
@@ -3688,12 +4226,25 @@ ll_ssl_justlogin_SSL_version() {
 
 ll_ssl_justlogin_sslargs() {
         $CMD_PERL ./imapsync \
-	 --host1 $HOST1 --user1 tata \
-         --passfile1 ../../var/pass/secret.tata \
-         --host2 $HOST2 --user2 titi \
-         --passfile2 ../../var/pass/secret.titi \
-         --ssl1 --ssl2 \
-         --sslargs1 SSL_version=SSLv3 --sslargs1 SSL_verify_mode=1
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --ssl1 --ssl2 \
+        --sslargs1 SSL_version=SSLv3 --sslargs1 SSL_verify_mode=1
+}
+
+
+
+ll_tls_justlogin_sslargs_failure_EXIT_TLS_FAILURE() {
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --tls1 --tls2 \
+        --sslargs1 SSL_version=SSLv2 
+        test "$?" = "$EXIT_TLS_FAILURE"
 }
 
 
@@ -3701,16 +4252,17 @@ ll_ssl_justlogin_sslargs() {
 
 ll_ssl_tls_justlogin() {
         $CMD_PERL ./imapsync \
-	 --host1 $HOST1 --user1 tata \
+        --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
          --host2 $HOST2 --user2 titi \
          --passfile2 ../../var/pass/secret.titi \
          --ssl1 --tls1  --ssl2 --tls2  \
          --justlogin --debug
+         test "$?" = "$EXIT_TLS_FAILURE"
 }
 
 ll_justlogin_devel() {
-    ll_justlogin && ll_ssl_justlogin && ll_tls_justlogin && ! ll_ssl_tls_justlogin 
+    ll_justlogin && ll_ssl_justlogin && ll_tls_justlogin && ll_ssl_tls_justlogin 
 }
 
 ll_ssl() {
@@ -3747,17 +4299,6 @@ ll_authmech_PLAIN_ssl() {
 }
 
 
-ll_authmech_XOAUTH_gmail() {
-                ! ping -c2 imap.gmail.com || $CMD_PERL ./imapsync \
-                --host1 imap.gmail.com --ssl1 --user1 imapsync@lab3.dedalusprime.com.br \
-                --passfile1 ../../var/pass/secret.xoauth \
-                --host2 imap.gmail.com --ssl2 --user2 imapsync@lab3.dedalusprime.com.br \
-                --passfile2 ../../var/pass/secret.xoauth \
-                --justfoldersizes --nofoldersizes \
-                --authmech1 XOAUTH --authmech2 XOAUTH
-}
-
-ll_authmech_xoauth_gmail() { ll_authmech_XOAUTH_gmail; }
 
 ll_authmech_XOAUTH2_gmail() {
                 ! ping -c1 imap.gmail.com || { $CMD_PERL ./imapsync \
@@ -3806,39 +4347,50 @@ ll_authmech_XOAUTH2_gmail_proxy() {
 ll_authmech_xoauth2_gmail_proxy() { ll_authmech_XOAUTH2_gmail_proxy; }
 
 
-
 ll_authmech_NTLM() {
-                $CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
-                --host1 mail.freshgrillfoods.com --user1 ktraster \
-                --passfile1 ../../var/pass/secret.ktraster \
+                # It fails since I don't have NTLM available
+                ! $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
                 --justlogin \
-                --debug --authmech1 NTLM
-
+                --debugimap1 --authmech1 NTLM --notrylogin
 }
 
 ll_authmech_NTLM_domain() {
-                $CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
-                --host1 mail.freshgrillfoods.com --user1 ktraster \
-                --passfile1 ../../var/pass/secret.ktraster \
+                # It fails since I don't have NTLM available
+                ! $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
                 --justlogin \
-                --authmech1 NTLM --domain1 freshgrillfoods.com --debugimap1
+                --authmech1 NTLM --domain1 freshgrillfoods.com --debugimap1 --notrylogin
 }
 
-ll_authmech_NTLM_2() {
-                $CMD_PERL -I./W/NTLM-1.09/blib/lib ./imapsync \
-                --host1 mail.freshgrillfoods.com --user1 ktraster \
-                --passfile1 ../../var/pass/secret.ktraster \
+ll_authmech_NTLM_trylogin_ok() {
+                # It succeeds because --trylogin is set by default (for now).
+                $CMD_PERL  ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --authmech1 NTLM --dry
-
-
+                --authmech1 NTLM --trylogin --justlogin
 }
 
+ll_authmech_NTLM_trylogin_fail() {
+                $CMD_PERL  ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 titi \
+                --password2 'cacakiki' \
+                --authmech2 NTLM --trylogin --justlogin
+                test "$?" = "$EXIT_AUTHENTICATION_FAILURE_USER2"
+}
+
+
+
 
 ll_authmech_X_MASTERAUTH()
 {
@@ -3857,22 +4409,38 @@ ll_authuser()
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-                --justfoldersizes --nofoldersizes \
-                --authuser2 titi 
+                --justlogin --authuser2 titi --debugimap2
 }
 
-ll_authuser_2()
+ll_proxyauth_missing_authuser()
 {
         $CMD_PERL ./imapsync \
                 --host1 $HOST1 --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 anything \
                 --passfile2 ../../var/pass/secret.titi \
-                --justfoldersizes \
-                --authuser2 titi --folder INBOX.lalala
+                --justlogin --proxyauth2
+                test "$?" = "$EX_USAGE"
 }
 
 
+
+ll_proxyauth_authuser()
+{
+        $CMD_PERL ./imapsync \
+                --host1 $HOST1 --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST2 --user2 anything \
+                --passfile2 ../../var/pass/secret.titi \
+                --justlogin --proxyauth2 --authuser2 titi --debugimap2
+                test "$?" = "$EXIT_AUTHENTICATION_FAILURE_USER2"
+}
+
+
+
+
+
+
 ll_authmech_LOGIN() {
 
                 $CMD_PERL ./imapsync \
@@ -3895,34 +4463,36 @@ ll_authmech_CRAMMD5() {
 }
 
 ll_delete1() {
-        # Sync done
-        test -f /home/vmail/tata/.oneemail3/cur/* || return 1
-	#test -f /home/vmail/titi/.oneemail3/cur/* || return 1
-	echo 11111111111111111111111 tata titi
+
+        # The initial state is a same message on both sides
+        ls -ld /home/vmail/tata/.oneemail3/cur/* || return 1
+        ls -ld /home/vmail/titi/.oneemail3/cur/* || return 1
+        echo 11111111111111111111111 tata titi
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
-        --folder INBOX.oneemail3 --delete1
+        --folder INBOX.oneemail3 --delete1 --debugimap
 
-	#find /home/vmail/titi/.oneemail3/ || :
-	echo After first sync, tata has none, titi has one message
+        #find /home/vmail/titi/.oneemail3/ || :
+        echo After first sync, tata has none, titi has one message
         ! test -f /home/vmail/tata/.oneemail3/cur/* || return 1
-	test -f /home/vmail/titi/.oneemail3/cur/*   || return 1
+        test -f /home/vmail/titi/.oneemail3/cur/*   || return 1
 
-	echo 222222222222222222222222 back: titi tata
+        echo 222222222222222222222222 back: titi tata
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 titi \
         --passfile1 ../../var/pass/secret.titi \
         --host2 $HOST2 --user2 tata \
         --passfile2 ../../var/pass/secret.tata \
-        --folder INBOX.oneemail3 --delete1
+        --folder INBOX.oneemail3 --delete1 --delete2duplicates
         
+        echo After second sync reverse, tata has one, titi has no message
         test -f /home/vmail/tata/.oneemail3/cur/*   || return 1
         ! test -f /home/vmail/titi/.oneemail3/cur/* || return 1
         
-	echo 3333333333333333333333333 initial state
+        echo 3333333333333333333333333 initial state
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
@@ -3930,8 +4500,8 @@ ll_delete1() {
         --passfile2 ../../var/pass/secret.titi \
         --folder INBOX.oneemail3
 
-	#find /home/vmail/titi/.oneemail3/ || :
-	echo ll_delete1 finished
+        #find /home/vmail/titi/.oneemail3/ || :
+        echo ll_delete1 finished
 }
 
 ll_delete1_twoemails()
@@ -3975,7 +4545,19 @@ ll_delete1_twoemails()
 	echo ll_delete1_twoemails finished
 }
 
+ll_delete1_twoemails_dry()
+{
+        # initial 
+        ls /home/vmail/tata/.twoemails/cur/* || return 1
 
+        echo 11111111111111111111111 tata titi
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX.twoemails --delete1 --dry --debug
+}
 
 ll_delete1_delete2() {
         ! $CMD_PERL ./imapsync \
@@ -3988,7 +4570,7 @@ ll_delete1_delete2() {
 
 
 ll_delete2() {
-        #can_send && sendtestmessage titi
+        can_send && sendtestmessage titi
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
@@ -4018,7 +4600,7 @@ ll_delete1_reverse() {
         --host2 $HOST2 --user2 tata \
         --passfile2 ../../var/pass/secret.tata \
         --folder INBOX \
-        --delete1 --minage 600 --maxage 999 # --dry
+        --delete1 --minage 10 --maxage 999 # --dry
 
 }
 
@@ -4100,19 +4682,38 @@ ll_delete2_uidexpunge2_implicit() {
         --delete2 --useuid
 }
 
+ll_delete1duplicates() {
+        can_send && sendtestmessage titi thailah9eem4iHei
+        can_send && sendtestmessage tata thailah9eem4iHei
+        can_send && sendtestmessage tata thailah9eem4iHei
+        can_send && sendtestmessage tata thailah9eem4iHei
+        can_send && sendtestmessage tata thailah9eem4iHei
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX  --maxage 1 --useheader Subject # --delete2duplicates
+}
+
+
+
 
 ll_delete2duplicates() {
-        can_send && sendtestmessage titi
-        can_send && sendtestmessage tata
+        #can_send && sendtestmessage titi "test ll_delete2duplicates"
+        #can_send && sendtestmessage tata "test ll_delete2duplicates"
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
         --folder INBOX   \
-        --delete2duplicates --uidexpunge2
+        --delete2duplicates --uidexpunge2 --useheader Subject --dry 
 }
 
+
+
+
 ll_duplicates_across_folders() {
         $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
@@ -4133,7 +4734,7 @@ ll_delete2_dev() {
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
         --passfile2 ../../var/pass/secret.titi \
-        --folder INBOX  --nofoldersizes \
+        --include zz --include ZZ  --regextrans2 's,.*,INBOX.z_merge,' \
         --delete2
 }
 
@@ -4160,6 +4761,19 @@ ll_maxbytespersecond() {
         --maxbytespersecond 2000 --nofoldersizes
 }
 
+ll_maxbytespersecond_0() {
+        ll_delete1_reverse
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 $HOST2 --user2 titi \
+        --passfile2 ../../var/pass/secret.titi \
+        --folder INBOX \
+        --maxbytespersecond 1 --nofoldersizes --maxsleep 0
+}
+
+
+
 ll_maxbytesafter() {
         ll_delete1_reverse
         $CMD_PERL ./imapsync \
@@ -4172,9 +4786,14 @@ ll_maxbytesafter() {
 }
 
 
+big2_bigmail_clean()
+{
+        echo 'sudo sh -c "rm -v /home/vmail/big2/.bigmail/cur/*"'
+        sudo sh -c "rm -v /home/vmail/big2/.bigmail/cur/*"
+}
 
 ll_bigmail() {
-        $CMD_PERL ./imapsync \
+        time -p $CMD_PERL ./imapsync \
         --host1 $HOST1  --user1 big1 \
         --passfile1 ../../var/pass/secret.big1 \
         --host2 $HOST2 --user2 big2 \
@@ -4184,15 +4803,42 @@ ll_bigmail() {
 }
 
 ll_bigmail_fastio() {
-        $CMD_PERL ./imapsync \
+        time -p $CMD_PERL ./imapsync \
         --host1 $HOST1  --user1 big1 \
         --passfile1 ../../var/pass/secret.big1 \
         --host2 $HOST2 --user2 big2 \
         --passfile2 ../../var/pass/secret.big2 \
-        --folder INBOX.bigmail --fastio1 --fastio2
+        --folder INBOX.bigmail --debugmemory --nofoldersizes --fastio1 --fastio2
         echo 'sudo sh -c "rm -v /home/vmail/big2/.bigmail/cur/*"'
 }
 
+
+ll_bigmail_fastio_profile()
+{
+        test "0" = "`id -u`" || {
+                echo Do instead
+                echo "sudo sh tests.sh ll_bigmail_fastio_profile"
+                return
+        }
+        
+        big2_bigmail_clean
+        sync 
+        echo 3 >/proc/sys/vm/drop_caches
+        free
+        ll_bigmail_fastio
+        echo End of ll_bigmail_fastio
+
+        big2_bigmail_clean
+        sync
+        echo 3 >/proc/sys/vm/drop_caches
+        free
+        ll_bigmail
+        echo End of ll_bigmail
+        free
+}
+
+
+
 # In mandatory_tests
 memory_stress() {
         free
@@ -4211,17 +4857,56 @@ ll_memory_consumption() {
 }
 
 
+ll_syncduplicates() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST1 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.duplicates --debug --syncduplicates # --dry
+}
+
+ll_syncduplicates_noskipsize() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST1 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.duplicates --debug --syncduplicates --noskipsize # --dry
+}
+
+ll_syncduplicates_usecache() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 tata \
+                --passfile1 ../../var/pass/secret.tata \
+                --host2 $HOST1 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.duplicates --debug --syncduplicates --usecache #--dry
+}
+
+ll_syncduplicates_reverse() {
+                $CMD_PERL ./imapsync \
+                --host1 $HOST1  --user1 titi \
+                --passfile1 ../../var/pass/secret.titi \
+                --host2 $HOST1 --user2 tata \
+                --passfile2 ../../var/pass/secret.tata \
+                --folder INBOX.duplicates --debug --syncduplicates # --dry
+}
+
+
 ll_remove_duplicates() {
                 $CMD_PERL ./imapsync \
                 --host1 $HOST1  --user1 tata \
                 --passfile1 ../../var/pass/secret.tata \
-                --host2 $HOST1 --user2 tata \
-                --passfile2 ../../var/pass/secret.tata \
-                --folder INBOX.duplicates --delete2 
+                --host2 $HOST1 --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --folder INBOX.duplicates --delete2duplicates # --dry
 }
 
 
 
+
+
 msw() {
 	if can_send; then
         	sendtestmessage toto
@@ -4665,15 +5350,100 @@ easygmail_gmail2() {
 }
 
 
+gmail_gl0_justlogin()
+{
+        $CMD_PERL ./imapsync \
+                --gmail1 --user1 imapsync.gl0@gmail.com --passfile1 ../../var/pass/secret.imapsync.gl0_gmail \
+                --gmail2 --user2 imapsync.gl0@gmail.com --passfile2 ../../var/pass/secret.imapsync.gl0_gmail \
+                --justlogin
+}
+
+gmail_gl0_justlogin_oauthdirect()
+{
+        cd /home/gilles/public_html/imapsync/W/learn
+        pwd
+        . ./oauth2.memo
+        regenerate_access_token
+        access_token=`cat oauth2_access_token.txt`
+        echo "$access_token"
+        
+        generate_oauth2_string_for_imap_from_access_token "$access_token"
+        oauth2_string=`cat oauth2_string_for_oauthdirect.txt`
+        echo oauth2_string="$oauth2_string"
+        cd -
+        pwd
+        echo "2oauth2_string=$oauth2_string"
+        $CMD_PERL ./imapsync \
+                --gmail1 --user1 imapsync.gl0@gmail.com --passfile1 ../../var/pass/secret.imapsync.gl0_gmail \
+                --gmail2 --user2 imapsync.gl0@gmail.com --passfile2 ../../var/pass/secret.imapsync.gl0_gmail \
+                --justlogin --oauthdirect1 "$oauth2_string" --oauthdirect2 "$oauth2_string" --debugimap --showpasswords
+        pwd
+}
+
+gmail_gl0_oauthdirect_failure_login_success()
+{
+
+        oauth2_string="kaka"
+        echo "2oauth2_string=$oauth2_string"
+        $CMD_PERL ./imapsync \
+                --gmail1 --user1 imapsync.gl0@gmail.com --passfile1 ../../var/pass/secret.imapsync.gl0_gmail \
+                --gmail2 --user2 imapsync.gl0@gmail.com --passfile2 ../../var/pass/secret.imapsync.gl0_gmail \
+                --justlogin --oauthdirect1 "$oauth2_string" --oauthdirect2 "$oauth2_string" --debugimap --showpasswords
+
+}
+
+
+all_login_tests()
+{
+        run_tests ll_authmech_PREAUTH \
+        ll_authmd5 \
+        ll_authmd51 \
+        ll_authmd52 \
+        ll_noauthmd5 \
+        gmail_gl0_justlogin \
+        gmail_gl0_justlogin_oauthdirect \
+        ll_ssl_justlogin \
+        ll_tls_justlogin \
+        ll_tls_justlogin_sslargs_failure_EXIT_TLS_FAILURE \
+        yahoo_xxxx_login \
+        yahoo_xxxx_login_tls  \
+        yahoo_xxxx_login_tls \
+        ll_justlogin \
+        ll_justlogin_notls \
+        l_office365_SSL_verify_mode \
+        office365_justlogin_ssl1_ssl2 \
+        office365_justlogin_tls \
+        office365_justlogin_tls2_office365 \
+        office365_justlogin_ssl2_tls2_office365 \
+        ll_ask_password \
+        ll_env_password \
+        
+}
+
+
+
+gmail_glX_all_justlogin()
+{
+error_list=""
+for X in "" 0 1 2 3; do
+        $CMD_PERL ./imapsync \
+                --gmail1 --user1 imapsync.gl${X}@gmail.com --passfile1 ../../var/pass/secret.imapsync.gl${X}_gmail \
+                --gmail2 --user2 imapsync.gl${X}@gmail.com --passfile2 ../../var/pass/secret.imapsync.gl${X}_gmail \
+                --justlogin || { error_list="${error_list}[imapsync.gl${X}@gmail.com] " ; }
+done
+echo3 "error_list=$error_list"
+test "X$error_list" = X;
+}
+
+
+
 
 gmail_gmail() {
                 ! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
                 --host1 imap.gmail.com \
-                --ssl1 \
                 --user1 gilles.lamiral@gmail.com \
                 --passfile1 ../../var/pass/secret.gilles_gmail \
                 --host2 imap.gmail.com \
-                --ssl2 \
                 --user2 imapsync.gl@gmail.com \
                 --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
                 --justfolders --exclude Gmail  --exclude "blanc\ $"
@@ -4752,8 +5522,6 @@ gmail_gmail_justlogin() {
 }
 
 
-
-
 gmail_gl_gl2_justfolders() {
 
                 ! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
@@ -4762,7 +5530,7 @@ gmail_gl_gl2_justfolders() {
                 --passfile1 ../../var/pass/secret.imapsync.gl_gmail \
                 --host2 imap.gmail.com \
                 --user2 imapsync.gl2@gmail.com \
-                --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
+                --passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
                 --justfolders --exclude Gmail  --exclude "blanc\ $" --dry
 }
 
@@ -4790,7 +5558,7 @@ gmail_gl_gl2_SUB() {
                 --host2 imap.gmail.com \
                 --ssl2 \
                 --user2 imapsync.gl2@gmail.com \
-                --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
+                --passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
                 --justfolders --nofoldersizes --exclude Gmail --regextrans2 "s,(.*),SUB/\$1,"
 }
 
@@ -4809,19 +5577,37 @@ gmail_gl2_gl2_selectable()
 
 
 
-gmail_gl_gl2_create_folder_old() {
+gmail_gl_gl2_create_folder_old() { 
 
                 ! ping -c1 imap.gmail.com || $CMD_PERL ./imapsync \
-                --host1 imap.gmail.com \
-                --ssl1 \
+                --gmail1 \
                 --user1 imapsync.gl@gmail.com \
                 --passfile1 ../../var/pass/secret.imapsync.gl_gmail \
-                --host2 imap.gmail.com \
-                --ssl2 \
+                --gmail2 \
                 --user2 imapsync.gl2@gmail.com \
-                --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
+                --passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
                 --justfolders --exclude Gmail  --exclude "blanc\ $" \
-		--create_folder_old --dry --nofoldersizes
+                --create_folder_old --dry --nofoldersizes
+}
+
+
+gmail_gmail_search_NOT_HEADER_attachment()
+{
+        $CMD_PERL ./imapsync \
+                --gmail1 \
+                --user1 imapsync.gl@gmail.com \
+                --passfile1 ../../var/pass/secret.imapsync.gl_gmail \
+                --gmail2 \
+                --user2 imapsync.gl2@gmail.com \
+                --passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
+        --search "NOT HEADER Content-Disposition attachment" \
+        --folder INBOX --dry 
+
+        # Also works
+        # --search 'HEADER Content-Type multipart/mixed' \
+
+        # Does not work the OR
+        # --search 'OR HEADER "Content-Disposition attachment" HEADER "Content-Type multipart/mixed"' \
 }
 
 
@@ -4848,7 +5634,7 @@ gmail_gmail_INBOX() {
                 --host2 imap.gmail.com \
                 --user2 imapsync.gl@gmail.com \
                 --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
-                --folder INBOX
+                --folder INBOX --debugflags
 		#--dry # --debug --debugimap # --authmech1 LOGIN
 }
 
@@ -4956,7 +5742,7 @@ gmail_gl_gl2_sslargs()
                 --host2 imap.gmail.com \
                 --ssl2 \
                 --user2 imapsync.gl2@gmail.com \
-                --passfile2 ../../var/pass/secret.imapsync.gl_gmail \
+                --passfile2 ../../var/pass/secret.imapsync.gl2_gmail \
                 --justlogin --sslargs1 SSL_version=SSLv3 --sslargs1 SSL_verify_mode=0
 }
 
@@ -5111,18 +5897,17 @@ yahoo_xxxx_login()
 {
                 ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
                 --host1 imap.mail.yahoo.com \
-                --ssl1 \
                 --user1 glamiral \
                 --passfile1 ../../var/pass/secret.gilles_yahoo \
                 --host2 $HOST2 \
                 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-		--justlogin 
+                --justlogin 
 }
 
 yahoo_xxxx_login_tls() {
-		# tls1 no longer works on Yahoo
-                ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                # tls1 no longer works on Yahoo
+                ! ping -c1 imap.mail.yahoo.com || ! $CMD_PERL ./imapsync \
                 --host1 imap.mail.yahoo.com \
                 --tls1 --timeout1 5 \
                 --user1 glamiral \
@@ -5130,7 +5915,7 @@ yahoo_xxxx_login_tls() {
                 --host2 $HOST2 \
                 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-		--justlogin 
+                --justlogin 
 }
 
 
@@ -5152,7 +5937,7 @@ yahoo_fail_UNAVAILABLE() {
 # Those are messages from yahoo:
 # Err 1/11: - msg Archive/470002 {0} S[12903] F[$NotJunk] I[25-Oct-2016 00:19:28 +0000] could not be fetched: 29 NO [UNAVAILABLE] UID FETCH Server error while fetching messages
 # Update 2018/5/5: it now works well on those messages
-                ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
                 --host1 imap.mail.yahoo.com \
                 --user1 glamiral \
                 --passfile1 ../../var/pass/secret.gilles_yahoo \
@@ -5162,11 +5947,97 @@ yahoo_fail_UNAVAILABLE() {
                 --addheader --folder Archive
 }
 
+yahoo_search_SENTBEFORE()
+{
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 $HOST2 \
+                --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --search "SENTBEFORE 1-Jan-2019"
+}
+
+yahoo_search_SENTAFTER()
+{
+        # SENTAFTER is plain wrong, so it should fail!
+        ! ping -c1 imap.mail.yahoo.com || ! $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 $HOST2 \
+                --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --search "SENTAFTER 1-Jan-2019" --folder Inbox --dry --debugimap1
+}
+
+yahoo_search_SENTSINCE()
+{
+        # SENTAFTER is wrong, it should fail!
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 $HOST2 \
+                --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --search "SENTSINCE 1-Jan-2019" --folder Inbox --dry --debugimap1
+}
+
+yahoo_search_ALL_Inbox()
+{
+        # SENTAFTER is wrong, it should fail!
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 $HOST2 \
+                --user2 titi \
+                --passfile2 ../../var/pass/secret.titi \
+                --search "ALL" --folder Inbox --dry 
+}
+
+
+yahoo_yahoo_Inbox()
+{
+        # SENTAFTER is wrong, it should fail!
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 imap.mail.yahoo.com \
+                --user2 glamiral \
+                --passfile2 ../../var/pass/secret.gilles_yahoo \
+                --folder Inbox --dry --debugimap1
+}
+
+yahoo_yahoo_search_ALL_Inbox()
+{
+        # SENTAFTER is wrong, it should fail!
+        ! ping -c1 imap.mail.yahoo.com || $CMD_PERL ./imapsync \
+                --host1 imap.mail.yahoo.com \
+                --user1 glamiral \
+                --passfile1 ../../var/pass/secret.gilles_yahoo \
+                --host2 imap.mail.yahoo.com \
+                --user2 glamiral \
+                --passfile2 ../../var/pass/secret.gilles_yahoo \
+                --folder Inbox --dry --debugimap1 --search "ALL" 
+}
+
+
+
+
+
 yahoo_all() {
-        ! yahoo_xxxx_login_tls || return 1
-	yahoo_xxxx_login       || return 1
-	yahoo_xxxx             || return 1
-        yahoo_fail_UNAVAILABLE || return 1
+        yahoo_xxxx_login_tls    || return 1
+        yahoo_xxxx_login        || return 1
+        yahoo_xxxx              || return 1
+        yahoo_fail_UNAVAILABLE  || return 1
+        yahoo_search_SENTSINCE  || return 1
+        yahoo_search_ALL_Inbox  || return 1
+        yahoo_yahoo_Inbox       || return 1
+        yahoo_search_SENTBEFORE || return 1
 }
 
 
@@ -5202,7 +6073,7 @@ ll_justlogin() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-		--justlogin 
+                --justlogin 
 }
 
 ll_justlogin_notls() {
@@ -5211,7 +6082,7 @@ ll_justlogin_notls() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 titi \
                 --passfile2 ../../var/pass/secret.titi \
-		--justlogin --notls1 --notls2 
+                --justlogin --notls1 --notls2 
 }
 
 
@@ -5225,7 +6096,7 @@ ll_justlogin_backslash_char() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 tptp@est.belle \
                 --passfile2 ../../var/pass/secret.tptp \
-		--justlogin 
+                --justlogin 
 }
 
 ll_justlogin_dollar_char() {
@@ -5234,7 +6105,7 @@ ll_justlogin_dollar_char() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 dollar \
                 --passfile2 ../../var/pass/secret.dollar \
-		--justlogin
+                --justlogin --showpasswords --debugimap2
 }
 
 ll_justlogin_equal_char() {
@@ -5243,17 +6114,18 @@ ll_justlogin_equal_char() {
                 --passfile1 ../../var/pass/secret.tata \
                 --host2 $HOST2 --user2 equal \
                 --passfile2 ../../var/pass/secret.equal \
-		--justlogin --debugimap2
+                --justlogin --debugimap2
 }
 
 
 
 
-ll_usecache() {
+ll_usecache()
+{
         if can_send; then
                 sendtestmessage
         fi
-	
+
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
@@ -5263,7 +6135,25 @@ ll_usecache() {
          --folder INBOX 
 }
 
-ll_usecache_all() {	
+ll_usecache_INBOX() {
+        if can_send; then
+                sendtestmessage
+        else
+                :
+        fi
+
+        $CMD_PERL  ./imapsync \
+         --host1 $HOST1 --user1 tata \
+         --passfile1 ../../var/pass/secret.tata \
+         --host2 $HOST2 --user2 titi \
+         --passfile2 ../../var/pass/secret.titi \
+         --usecache \
+         --folder INBOX 
+}
+
+
+ll_usecache_all()
+{
         $CMD_PERL  ./imapsync \
          --host1 $HOST1 --user1 tata \
          --passfile1 ../../var/pass/secret.tata \
@@ -5300,21 +6190,6 @@ ll_nousecache() {
 }
 
 
-ll_usecache_INBOX() {
-        if can_send; then
-                sendtestmessage
-        else
-                :
-        fi
-	
-        $CMD_PERL  ./imapsync \
-         --host1 $HOST1 --user1 tata \
-         --passfile1 ../../var/pass/secret.tata \
-         --host2 $HOST2 --user2 titi \
-         --passfile2 ../../var/pass/secret.titi \
-         --usecache \
-         --folder INBOX 
-}
 
 
 
@@ -5423,7 +6298,7 @@ ll_useuid_nousecache()
 
 ll_fastio() 
 {
-        $CMD_PERL ./imapsync \
+        time -p $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
@@ -5433,7 +6308,7 @@ ll_fastio()
 
 ll_nofastio() 
 {
-        $CMD_PERL ./imapsync \
+        time -p $CMD_PERL ./imapsync \
         --host1 $HOST1 --user1 tata \
         --passfile1 ../../var/pass/secret.tata \
         --host2 $HOST2 --user2 titi \
@@ -5540,6 +6415,21 @@ office1_office2()
 	--justfolders
 }
 
+office1_office2_sentbefore()
+{
+        $CMD_PERL ./imapsync \
+        --office1   \
+	--user1 gilles.lamiral@outlook.com \
+	--passfile1 ../../var/pass/secret.outlook.com \
+        --office2   \
+	--user2 gilles.lamiral@outlook.com \
+        --passfile2 ../../var/pass/secret.outlook.com \
+        --folder Sent --search "SENTBEFORE 31-Dec-2013" --debugimap
+}
+
+
+
+
 office1_office2_noexclude()
 {
         $CMD_PERL ./imapsync \
@@ -5593,18 +6483,19 @@ office365_justlogin_tls2_office365()
         --passfile1 ../../var/pass/secret.outlook.com \
         --host2 outlook.office365.com  --tls2 --user2 gilles.lamiral@outlook.com \
         --passfile2 ../../var/pass/secret.outlook.com \
-        --justlogin --ssl2 
+        --justlogin 
 }
 
 office365_justlogin_ssl2_tls2_office365()
 {
 # Should produce "BAD Command received in Invalid state."
-        ! $CMD_PERL ./imapsync \
+        $CMD_PERL ./imapsync \
         --host1 imap-mail.outlook.com  --ssl1        --user1 gilles.lamiral@outlook.com \
         --passfile1 ../../var/pass/secret.outlook.com \
         --host2 outlook.office365.com  --tls2 --ssl2 --user2 gilles.lamiral@outlook.com \
         --passfile2 ../../var/pass/secret.outlook.com \
         --justlogin 
+        test "$?" = "$EXIT_TLS_FAILURE"
 }
 
 office365_justlogin_nossl2_notls2_office365()
@@ -5794,10 +6685,10 @@ fuzz_network() {
 
 
 free_ssl() {
-	$CMD_PERL ./imapsync \
-	--host1 imap.free.fr --user1 gilles.lamiral@free.fr --passfile1 ../../var/pass/secret.gilles_free \
-	--host2 imap.free.fr --user2 gilles.lamiral@free.fr --passfile2 ../../var/pass/secret.gilles_free \
-	--justlogin --ssl1 --ssl2  
+        $CMD_PERL ./imapsync \
+        --host1 imap.free.fr --user1 gilles.lamiral@free.fr --passfile1 ../../var/pass/secret.gilles_free \
+        --host2 imap.free.fr --user2 gilles.lamiral@free.fr --passfile2 ../../var/pass/secret.gilles_free \
+        --justlogin --ssl1 --ssl2  
 }
 
 # xgenplus still ok on Wed Apr  3 15:36:09 CEST 2019
@@ -5852,6 +6743,28 @@ firstclass_fullfill() {
 }
 
 
+Alessandro_error_11()
+{
+        # $CMD_PERL  ./imapsync \
+         # --host1 $HOST1 --user1 tata \
+         # --passfile1 ../../var/pass/secret.tata \
+         # --host2 $HOST2 --user2 titi \
+         # --passfile2 ../../var/pass/secret.titi \
+        # --folder INBOX.error_11 --debugcontent --nodry --nodry1 --pipemess 'cat /g/Alessandro_error_11.txt'
+
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 tata \
+        --passfile1 ../../var/pass/secret.tata \
+        --host2 imap-mail.outlook.com --ssl2 --user2 gilles.lamiral@outlook.com \
+        --passfile2 ../../var/pass/secret.outlook.com \
+        --folder INBOX.error_11 --debugcontent --nodry --nodry1 --pipemess 'cat /g/Alessandro_error_11.txt'
+
+
+
+        #--pipemess W/tools/fix_email_for_exchange.py 
+        #--pipemess 'reformime -r7'
+
+}
 
 # End of specific tests
 
@@ -5864,7 +6777,7 @@ huge_folder()
         --host2 $HOST2 --user2 tete@est.belle \
         --passfile2 ../../var/pass/secret.tete \
         --include INBOX.Junk.2010 \
-        --usecache --tmpdir /var/tmp   || \
+        --nousecache --tmpdir /var/tmp  --debugmemory || \
     true
     }
     date2=`date`
@@ -5880,7 +6793,7 @@ huge_folder_headers_ALL()
         --host2 $HOST2 --user2 tete@est.belle \
         --passfile2 ../../var/pass/secret.tete \
         --include INBOX.Junk.2010 \
-        --tmpdir /var/tmp --useheader ALL || \
+        --tmpdir /var/tmp --useheader ALL  --debugmemory || \
     true
     }
     date2=`date`
@@ -6028,6 +6941,86 @@ dprof_justfoldersizes()
 }
 
 
+bigfolder()
+{
+        date1=`date`
+        date1epoch=`date +%s`
+         
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010 --usecache 
+        
+        date2=`date`
+        date2epoch=`date +%s`
+
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010
+        
+        date3=`date`
+        date3epoch=`date +%s`
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010 --usecache 
+        
+        date4=`date`
+        date4epoch=`date +%s`
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010
+        
+        date5=`date`
+        date5epoch=`date +%s`
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010 --usecache 
+        
+        date6=`date`
+        date6epoch=`date +%s`
+        $CMD_PERL ./imapsync \
+        --host1 $HOST1 --user1 gilles@est.belle \
+        --passfile1 ../../var/pass/secret.gilles_mbox \
+        --host2 $HOST2 --user2 tete@est.belle \
+        --passfile2 ../../var/pass/secret.tete \
+        --foldersizes  --folder INBOX.Junk.2010
+        
+        date7=`date`
+        date7epoch=`date +%s`
+        
+        diff_21=`expr $date2epoch - $date1epoch`
+        diff_32=`expr $date3epoch - $date2epoch`
+        diff_43=`expr $date4epoch - $date3epoch`
+        diff_54=`expr $date5epoch - $date4epoch`
+        diff_65=`expr $date6epoch - $date5epoch`
+        diff_76=`expr $date7epoch - $date6epoch`
+        diff_32_21=`expr $diff_32 - $diff_21`
+        diff_54_43=`expr $diff_54 - $diff_43`
+        diff_76_65=`expr $diff_76 - $diff_65`
+        echo "[$date1] [$date2] [$date3] [$date4] [$date5] [$date6] [$date7]" | tee -a bigfolder.txt
+        echo "diff [$diff_21] [$diff_32] [$diff_43] [$diff_54] [$diff_65] [$diff_76]" | tee -a bigfolder.txt
+        echo "diff cache pas cache [$diff_32_21] [$diff_54_43] [$diff_76_65]" | tee -a bigfolder.txt
+        echo >> bigfolder.txt
+}
+
+
+
+
+
 dprof_bigfolder()
 {
     date1=`date`
@@ -6124,6 +7117,107 @@ dprof2_bigmail()
     mv prof.out      W/dprof2_bigmail_tmon.out
 }
 
+curl_online_args()
+{
+        curl -v -d 'host1=test1.lamiral.info;user1=test1;password1=secret1;host2=test2.lamiral.info;user2=test2;password2=secret2;simulong=2' \
+                https://imapsync.lamiral.info/cgi-bin/imapsync
+}
+
+curl_online_args_pidfile()
+{
+        curl -v -d "host1=test1.lamiral.info;user1=test1;password1=secret1;host2=test2.lamiral.info;user2=test2;password2=secret2;pidfile=/tmp/curl_online_args_pidfile_$$.txt" \
+                https://imapsync.lamiral.info/cgi-bin/imapsync
+}
+
+curl_online_args_nolog()
+{
+        curl -v -d 'host1=test1.lamiral.info;user1=test1;password1=secret1;host2=test2.lamiral.info;user2=test2;password2=secret2;justbanner=1;log=' \
+                https://lamiral.info/cgi-bin/imapsync
+}
+
+curl_online_args_nolog_2()
+{
+        curl -v -d 'host1=test1.lamiral.info;user1=test1;password1=secret1;host2=test2.lamiral.info;user2=test2;password2=secret2;justbanner=1;log=0' \
+                https://lamiral.info/cgi-bin/imapsync
+}
+
+curl_online_justbanner()
+{
+        curl -v -d 'host1=test1.lamiral.info;user1=test1;password1=secret1;host2=test2.lamiral.info;user2=test2;password2=secret2;simulong=0.7;justbanner=1' \
+                https://lamiral.info/cgi-bin/imapsync
+}
+
+
+curl_online_file()
+{
+        cat > W/tmp/cred.txt <<EOF
+host1=test1.lamiral.info;
+user1=test1;
+password1=secret1;
+host2=test2.lamiral.info;
+user2=test2;
+password2=secret2;
+simulong=2;
+dry=1;
+
+EOF
+        curl -v -d '@W/tmp/cred.txt' \
+                https://imapsync.lamiral.info/cgi-bin/imapsync
+}
+
+curl_online_args_json()
+{
+        # DO NOT WORK AT ALL
+        ! curl -v -d '{ "testslive":"1" }' -H "Content-Type: application/json"  \
+                https://imapsync.lamiral.info/cgi-bin/imapsync
+}
+
+
+#  * 1.810 https://tools.controlpanel.si/imapsync/ CGI https://tools.controlpanel.si/cgi-bin/imapsync
+#  * 1.882 https://tools.intertune.io/imapsync/X/  CGI https://tools.intertune.io/cgi-bin/imapsync
+#  * 1.882 https://imapsync.whc.ca/                CGI https://imapsync.whc.ca/cgi-bin/imapsync
+#  * 1.925 https://imapsync.boomhost.com/          CGI https://imapsync.boomhost.com/cgi-bin/imapsync 
+#  * 1.977 https://imapcopy.webhosting4u.gr/       CGI https://imapcopy.webhosting4u.gr/cgi-bin/imapsync
+#  * 1.991 https://imapsync.nl/                    CGI https://imapsync.nl/cgi-bin/imapsync
+#  * 1.998 https://mailsync.timetakernet.info/     CGI https://mailsync.timetakernet.info/cgi-bin/imapsync
+
+#Detected by releasecheck:
+#  * 1.957 http://migracao.hahost.com.br/migrar2.html    CGI http://migracao.hahost.com.br/cgi-bin/imapsync
+#  * 1.967                                               CGI https://jcenter.nara-edu.ac.jp/cgi-bin/imapsync
+#  * 1.973 http://77.68.7.106/                           CGI http://77.68.7.106/cgi-bin/imapsync
+#  * 1.979                                               CGI http://mail2.nara-edu.ac.jp/cgi-bin/imapsync
+#  * 1.979                                               CGI https://imapsync.bepulse.com/cgi-bin/imapsync
+#  * 1.990 https://transfer.keliweb.com/X/               CGI https://transfer.keliweb.com/cgi-bin/imapsync
+#  * 1.998                                               CGI https://web-tools.na.icb.cnr.it/cgi-bin/imapsync
+#  * 1.998                                               CGI https://140.164.23.4/cgi-bin/imapsync
+
+#  * ?.??? https://app.migrationwizard.co.uk/      CGI 404, deep into https://app.migrationwizard.co.uk/sync.php
+
+curl_online_external()
+{
+# curl 
+# -v verbose
+# -s silent
+        for imapsync in \
+                https://imapsync.lamiral.info/cgi-bin/imapsync      \
+                https://tools.controlpanel.si/cgi-bin/imapsync      \
+                https://tools.intertune.io/cgi-bin/imapsync         \
+                https://imapsync.whc.ca/cgi-bin/imapsync            \
+                https://imapsync.boomhost.com/cgi-bin/imapsync      \
+                https://imapcopy.webhosting4u.gr/cgi-bin/imapsync   \
+                https://imapsync.nl/cgi-bin/imapsync                \
+                https://mailsync.timetakernet.info/cgi-bin/imapsync \
+                https://jcenter.nara-edu.ac.jp/cgi-bin/imapsync     \
+                https://imapsync.bepulse.com/cgi-bin/imapsync       \
+                https://transfer.keliweb.com/cgi-bin/imapsync       \
+                https://web-tools.na.icb.cnr.it/cgi-bin/imapsync    \
+                https://140.164.23.4/cgi-bin/imapsync               \
+                ; do
+                curl -k -s -d 'justconnect=1;host1=mail.unionstrategiesinc.com;user1=a;user2=a;host2=mail5.unionstrategiesinc.com;simulong=2' \
+                        $imapsync
+                #sleep 2
+        done 
+}
 
 
 ##########################
@@ -6132,7 +7226,8 @@ dprof2_bigmail()
 # Tests list
 
 mandatory_tests='
-no_args 
+no_args
+
 option_version
 option_tests
 option_tests_in_var_tmp
@@ -6144,38 +7239,47 @@ option_bad_delete2
 option_extra_arguments
 passfile1_noexist
 passfile2_noexist
-passwords_masked 
-passwords_not_masked 
-ll_authentication_failure
-first_sync_dry 
-first_sync 
-ll 
-pidfile_well_removed 
-pidfile_bad 
-ll_pidfilelocking 
-test_tail 
-justbanner 
+passwords_masked
+passwords_not_masked
+first_sync_dry
+first_sync
+ll
+ll_host_sanitize
+pidfile_well_removed
+pidfile_bad
+ll_pidfilelocking
+test_tail
+justbanner
 nomodules_version
 xxxxx_gmail
 gmail_xxxxx
-gmail 
-gmail_gmail 
-gmail_gmail_INBOX 
+gmail
+gmail_gmail
+gmail_gmail_INBOX
 gmail_gmail_folderfirst
-yahoo_all
+gmail_glX_all_justlogin
+
+yahoo_xxxx_login_tls
+yahoo_xxxx_login
+yahoo_xxxx
+yahoo_fail_UNAVAILABLE
+
 free_ssl
 office365_justconnect_inet4_inet6
 office365_justconnect_tls_SSL_verify_mode_1
-ll_unknow_option 
+ll_unknow_option
 ll_ask_password
 ll_env_password
-ll_bug_folder_name_with_blank 
-ll_timeout 
+ll_bug_folder_name_with_blank
+ll_timeout
+ll_timeout1_timeout2
+ll_timeout_very_small
 ll_folder
 ll_folder_noexist
 ll_folder_mixfolders
 ll_nocheckselectable
 ll_checkselectable
+ll_checkselectable_nb_folders
 ll_nocheckfoldersexist
 ll_checkfoldersexist
 ll_subfolder2
@@ -6183,42 +7287,48 @@ ll_subfolder1
 ll_subfolder1_INBOX_SUB
 ll_subfolder1_DOES_NOT_EXIST
 ll_oneemail
-ll_buffersize 
+ll_buffersize
 ll_justfolders
 ll_justfolders_delete1emptyfolders
-ll_justfolders_skipemptyfolders 
-ll_prefix12 
-ll_nosyncinternaldates 
-ll_idatefromheader 
-ll_folder_rev 
-ll_subscribed 
-ll_nosubscribe 
+ll_justfolders_skipemptyfolders
+ll_prefix12
+ll_nosyncinternaldates
+ll_idatefromheader
+ll_folder_rev
+ll_subscribed
+ll_nosubscribe
 ll_justfoldersizes
 ll_justfoldersizes_noexist
-ll_authmd5 
+ll_authmd5
 ll_authmd51
 ll_authmd52
-ll_noauthmd5 
-ll_maxage 
-ll_maxsize 
-ll_skipsize 
-ll_skipheader 
-ll_include 
-ll_exclude 
+ll_noauthmd5
+ll_maxage
+ll_maxsize
+ll_skipsize
+ll_skipheader
+ll_include
+ll_exclude
 ll_exclude_INBOX
-ll_regextrans2 
-ll_sep2 
-ll_bad_login 
-ll_bad_host 
-ll_bad_host_ssl 
-ll_useheader 
-ll_useheader_noheader 
-ll_regexmess 
+ll_regextrans2
+ll_sep2
+ll_bad_login
+ll_authentication_failure_user1
+ll_authentication_failure_user2
+ll_authentication_failure_user12
+ll_bad_host1
+ll_bad_host2
+ll_bad_host12
+ll_bad_host_ssl
+ll_useheader
+ll_useheader_noheader
+ll_regexmess
+ll_regexmess_8bit_X
 ll_regexmess_bad_regex
 ll_regexmess_add_header
 ll_regexmess_add_header_path
-ll_regexmess_scwchu 
-ll_skipmess 
+ll_regexmess_scwchu
+ll_skipmess
 ll_skipmess_8bits
 ll_skipmess_Content_Type_Message_partial
 ll_pipemess_nocmd
@@ -6230,35 +7340,42 @@ ll_flags
 ll_resyncflags
 ll_noresyncflags
 ll_syncflagsaftercopy
-ll_regex_flag 
+ll_regex_flag
 ll_regex_flag_bad
-ll_regex_flag_keep_only 
+ll_regex_flag_keep_only
 ll_justconnect
 ll_justconnect_ipv6
 ll_justconnect_ipv6_nossl
 ll_justhost1
 ll_justhost2
-ll_justlogin 
+ll_justlogin
 ll_justconnect_devel
-ll_ssl 
-ll_ssl_justconnect 
-ll_ssl_justlogin 
+ll_ssl
+ll_ssl_justconnect
+ll_ssl_justlogin
 ll_ssl_justconnect_sslargs
-ll_tls_justconnect 
-ll_tls_justlogin 
-ll_tls 
-ll_authmech_PLAIN 
+ll_tls_justconnect
+ll_tls_justlogin
+ll_tls
+ll_tls_justlogin_sslargs_failure_EXIT_TLS_FAILURE
+ll_authmech_PLAIN
 ll_authmech_xoauth2_gmail
 ll_authmech_xoauth2_json_gmail
-ll_authmech_LOGIN 
-ll_authmech_CRAMMD5 
+ll_authmech_LOGIN
+ll_authmech_CRAMMD5
 ll_authmech_PREAUTH
-ll_authuser 
+ll_authmech_NTLM
+ll_authmech_NTLM_domain
+ll_authmech_NTLM_trylogin_ok
+ll_authmech_NTLM_trylogin_fail
+ll_authuser
+ll_proxyauth_missing_authuser
+ll_proxyauth_authuser
 ll_delete1_delete2
-ll_delete2 
+ll_delete2
 ll_delete1
 ll_delete1_twoemails
-ll_folderrec 
+ll_folderrec
 ll_memory_consumption
 ll_newmessage
 ll_usecache
@@ -6278,29 +7395,39 @@ ll_noheader_force
 ll_noheader
 ll_domino1_domino2
 ll_domino2
+ll_with_errors
+ll_errorsmax
+ll_exitwhenover
 fuzz_basic
 fuzz_network
 testslive
+testslive6
 ll_abort_pidfile_no_exist
 ll_abort_noprocess
-ll_abort
+ll_abort_not_a_pid_number
+ll_abort_basic
 ll_abort_cgi_context_tail
 ll_abort_no_pidfile_option
+ll_abort_byfile_hand_made
+ll_abort_byfile_imapsync_made
+ll_abort_byfile_normal_run
 ll_sigreconnect_INT
+curl_online_args
+curl_online_file
 ksks_reset_test1
 memory_stress
 '
 
-# 2019_12 Removed 
-# ks_justconnect_ipv6_nossl testslive6 
+# 2019_12 Removed
+# ks_justconnect_ipv6_nossl
 # ks_justconnect_ipv6
 
 
 other_tests='
-archiveopteryx_1 
+archiveopteryx_1
 msw
 msw2
-ll_bigmail 
+ll_bigmail
 ll_justlogin_backslash_char
 '