Monotone-Parent: dfb85b6efa469d0ee3fba3799df2f1247332f8ed

Monotone-Revision: 48ab3ba04ae37aa55ddec9a67b39c8be57786c6d

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-09-11T19:38:57
Monotone-Branch: ca.inverse.sogo

UI/MailerUI/UIxMailSourceView.m

@@ -25,6 +25,8 @@
 #import <Foundation/NSString.h>
 #import <SoObjects/Mailer/SOGoMailObject.h>
 
+#import <UI/Common/WODirectAction+SOGo.h>
+
 #import "UIxMailSourceView.h"
 
 @implementation UIxMailSourceView
@@ -36,8 +38,7 @@
 
   source = [[self clientObject] contentAsString];
 
-  response = [context response];
-  [response setStatus: 200];
+  response = [self responseWithStatus: 200];
   [response setHeader: @"text/plain; charset=utf-8"
 	    forKey: @"content-type"];
   [response appendContentString: source];