Monotone-Parent: 25d90ddcd05eb7c341bcb5f66062d03818381a34

Monotone-Revision: 3a355e79e6eee869bec77ad32e28a6640e81cd02

Monotone-Author: crobert@inverse.ca
Monotone-Date: 2009-07-09T15:49:45
Monotone-Branch: ca.inverse.sogo

SoObjects/Mailer/SOGoDraftObject.m

@@ -851,6 +851,9 @@ static BOOL        showTextAttachmentsInline  = NO;
   */
   NGMutableHashMap *map;
   NGMimeBodyPart   *bodyPart;
+  NSUserDefaults *ud;
+
+  ud = [[context activeUser] userDefaults];
   
   /* prepare header of body part */
 
@@ -859,7 +862,13 @@ static BOOL        showTextAttachmentsInline  = NO;
   // TODO: set charset in header!
   [map setObject: @"text/plain" forKey: @"content-type"];
   if (text)
-    [map setObject: contentTypeValue forKey: @"content-type"];
+    {
+      if ([[ud stringForKey: @"ComposeMessagesType"] isEqualToString: @"html"])
+             [map setObject: htmlContentTypeValue
+                     forKey: @"content-type"];
+      else
+        [map setObject: contentTypeValue forKey: @"content-type"];
+    }
 
 //   if ((body = text) != nil) {
 //     if ([body isKindOfClass: [NSString class]]) {