Monotone-Parent: 2b06dc463d88e9e0940158ceccab067e7cc497f7

Monotone-Revision: 81f6f619789306a73dc061a36ac5b92bc8ecaac6

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-09-05T15:55:03
Monotone-Branch: ca.inverse.sogo

SoObjects/Mailer/SOGoMailForward.m

@@ -21,6 +21,7 @@
  */
 
 #import <NGObjWeb/WOContext+SoObjects.h>
+#import <NGExtensions/NSString+misc.h>
 
 #import <SoObjects/SOGo/SOGoDateFormatter.h>
 #import <SoObjects/SOGo/SOGoUser.h>
@@ -36,6 +37,7 @@
     {
       sourceMail = nil;
       currentValue = nil;
+      replyMode = NO;
     }
 
   return self;
@@ -53,6 +55,11 @@
   ASSIGN (sourceMail, newSourceMail);
 }
 
+- (void) setReplyMode: (BOOL) newReplyMode
+{
+  replyMode = newReplyMode;
+}
+
 - (NSString *) subject
 {
   return [sourceMail decodedSubject];
@@ -146,7 +153,15 @@
 
 - (NSString *) messageBody
 {
-  return [sourceMail contentForEditing];
+  NSString *messageBody;
+
+  if (replyMode)
+    messageBody
+      = [[sourceMail contentForEditing] stringByApplyingMailQuoting];
+  else
+    messageBody = [sourceMail contentForEditing];
+
+  return messageBody;
 }
 
 - (NSString *) signature