+2005-07-15 Helge Hess <helge.hess@opengroupware.org>
+
+ * NGImap4: fixed a parsing bug in ACL responses (v4.5.228)
+
2005-07-14 Helge Hess <helge.hess@opengroupware.org>
* NGImap4: fixed default names of NGImap4Connection, some code reorgs
- (v.4.5.227)
+ (v4.5.227)
2005-07-13 Helge Hess <helge.hess@opengroupware.org>
return NO;
_consume(self, 4);
- if ((obj = _parseUntil(self, ' ')) != nil)
+ if ((obj = _parseBodyString(self, YES)) != nil)
[result_ setObject:obj forKey:@"mailbox"];
+ _consumeIfMatch(self, ' ');
acls = _parseUntil(self, '\n');
return NO;
_consume(self, 9);
- if ((obj = _parseUntil(self, ' ')) != nil)
+ if ((obj = _parseBodyString(self, YES)) != nil)
[result_ setObject:obj forKey:@"mailbox"];
+ _consumeIfMatch(self, ' ');
rights = _parseUntil(self, '\n');
[result_ setObject:rights forKey:@"myrights"];
return NO;
_consume(self, 11);
- if ((obj = _parseUntil(self, ' ')) != nil)
+ if ((obj = _parseBodyString(self, YES)) != nil)
[result_ setObject:obj forKey:@"mailbox"];
- if ((obj = _parseUntil(self, ' ')) != nil)
+ _consumeIfMatch(self, ' ');
+
+ if ((obj = _parseBodyString(self, YES)) != nil)
[result_ setObject:obj forKey:@"uid"];
+ _consumeIfMatch(self, ' ');
if ((obj = _parseUntil(self, ' ')) != nil) {
if ([obj isEqual:@"\"\""])
BOOL _convertString,
BOOL _decode)
{
-
NSString *str;
if (_la(self, 0) == '"') {
+ // TODO: can the " be escaped somehow?
_consume(self, 1);
str = _parseUntil(self, '"');
}
}
if (_decode) {
id d;
-
+
d = [str dataUsingEncoding:defCStringEncoding];
d = [d decodeQuotedPrintableValueOfMIMEHeaderField:nil];
-
+
if ([d isKindOfClass:StrClass])
str = d;
else {
str = [[[StrClass alloc] initWithData:d encoding:encoding]
- autorelease];
+ autorelease];
}
}
return str;