add temporary workaround for Mail::IMAPClient >3.25

mugenken · Mar 2, 2011 · 20077e3 · 20077e3
1 parent 8b5417f
commit 20077e3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/CiderWebmail/Model/IMAPClient.pm b/lib/CiderWebmail/Model/IMAPClient.pm
@@ -304,6 +304,8 @@ sub get_headers_hash {
         $message->{uid}     = $uid;
         $message->{mailbox} = $o->{mailbox};
 
+        #my $headers = $c->stash->{imapclient}->Unescape($entry->{"BODY[HEADER.FIELDS ($headers_to_fetch)]"});
+
         #we need to add \n to the header text because we only parse headers not a real rfc2822 message
         #otherwise it would skip the last header
         my $email = Email::Simple->new($entry->{"BODY[HEADER.FIELDS ($headers_to_fetch)]"}."\n") || croak;