Monotone-Parent: a0e83a1784478d41763fc4ebb3eb9ee8a5142b5a

Monotone-Revision: 55595f6ee3aaa33db773a4eb60c184519b6f18fd

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2011-10-31T19:28:22
Monotone-Branch: ca.inverse.sogo

SoObjects/Mailer/SOGoMailBodyPart.m

@@ -258,7 +258,7 @@ static BOOL debugOn = NO;
 
 /* fetch */
 
-- (NSData *) fetchBLOB
+- (NSData *) fetchBLOBWithPeek: (BOOL) withPeek
 {
   // HEADER, HEADER.FIELDS, HEADER.FIELDS.NOT, MIME, TEXT
   NSString *enc;
@@ -266,7 +266,8 @@ static BOOL debugOn = NO;
   
   data = [[self imap4Connection] fetchContentOfBodyPart:
 				   [self bodyPartIdentifier]
-				 atURL:[self imap4URL]];
+				 atURL:[self imap4URL]
+                                 withPeek: withPeek];
   if (data == nil) return nil;
 
   /* check for content encodings */
@@ -299,6 +300,11 @@ static BOOL debugOn = NO;
   return data;
 }
 
+- (NSData *) fetchBLOB
+{
+  return [self fetchBLOBWithPeek: NO];
+}
+
 /* WebDAV */
 
 - (NSString *)contentTypeForBodyPartInfo:(id)_info {