Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r916 -r920
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 916)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 920)
@@ -63,19 +63,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Verzender:%String="",Ontvanger:%String="",Onderwerp:%String="",Inhoud:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..Verzender = Verzender
-	do:$length(Ontvanger) ..VoegToeOntvanger(Ontvanger)
-	set ..Onderwerp = Onderwerp
-
 	set ..MailMessage = ##class(%Net.MailMessage).%New()
-	do ..ZetInhoud(Inhoud)
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>