--- a/checkgmail    Tue Jan 22 10:59:36 2013 +0100
+++ b/checkgmail    Sun Feb 10 16:13:57 2013 +0100
@@ -1071,7 +1071,8 @@
    # Return if there aren't any Atom feeds in the queue ...
    return 1 unless my $atom = $request_results->dequeue_nb;

-   if ($atom =~ m/while\(1\);/) {
+   #if ($atom =~ m/while\(1\);/) {
+   if ($atom =~ s/LABEL=.*\n\)]}'//) {
        # datapack shortcircuit
        # we use this to grab the full text of messages ...

@@ -1091,7 +1092,8 @@
        # }

        # See what you've made me do, Google??  Just look at this fugly regex ...
-       while ($atom =~ m/\["ms",.*?,.*?,.*?,.*?,.*?,.*?,.*?,.*?,\[.*?"\].*?\[.*?\[.*?,.*?,.*?,.*?,.*?,"(.*?)",\[/sg) {
+       #while ($atom =~ m/\["ms",.*?,.*?,.*?,.*?,.*?,.*?,.*?,.*?,\[.*?"\].*?\[.*?\[.*?,.*?,.*?,.*?,.*?,"(.*?)",\[/sg) {
+       while ($atom =~ m/\["ms",.*?,.*?,.*?,.*?,.*?,.*?,.*?,.*?,\[.*?"\].*?\[.*?\[.*?,.*?,.*?,.*?,.*?,".*?","(.*?)",\[/sg) {
            $mb .= "$1";
        }