Monotone-Parent: 1b59f6830523b216a3f073e483424747c8873bc8

Monotone-Revision: 1ec7a369d9d6744a61fc1193f0d873bbeb9fd414

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2006-07-11T18:08:13
Monotone-Branch: ca.inverse.sogo

UI/Contacts/UIxContactEditorBase.m

@@ -54,7 +54,16 @@
   return @"{}"; /* empty property list */
 }
 
-- (NSMutableDictionary *)snapshot {
+- (NSMutableDictionary *) snapshot
+{
+  NSString *email;
+
+  email = [self queryParameterForKey:@"contactEmail"];
+
+  if ([email length] > 0
+      && ![[self->snapshot objectForKey: @"mail"] length])
+    [self->snapshot setObject: email forKey: @"mail"];
+
   return self->snapshot;
 }
 
@@ -270,4 +279,9 @@
   return [self redirectToLocation:uri];
 }
 
+- (BOOL) isPopup
+{
+  return YES;
+}
+
 @end /* UIxContactEditorBase */