Index: TECH/Mail/impl/MailAdresAanpasser.cls.xml
===================================================================
diff -u -r2719 -r2723
--- TECH/Mail/impl/MailAdresAanpasser.cls.xml	(.../MailAdresAanpasser.cls.xml)	(revision 2719)
+++ TECH/Mail/impl/MailAdresAanpasser.cls.xml	(.../MailAdresAanpasser.cls.xml)	(revision 2723)
@@ -4,13 +4,11 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="GeefVolledigVanhoeckeBeAdres">
-<FormalSpec><![CDATA[EmailAdres:%String,&IsEmailAdresGewijzigd:%Boolean]]></FormalSpec>
+<FormalSpec>EmailAdres:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set IsEmailAdresGewijzigd=0
 	If ($L(EmailAdres))&&(EmailAdres'["@") {
 		Set EmailAdres=EmailAdres_"@vanhoecke.be"
-		Set IsEmailAdresGewijzigd=1
 	}
 	Quit EmailAdres
 ]]></Implementation>
Index: TECH/Mail/impl/MailMessageAanpasser.cls.xml
===================================================================
diff -u -r2719 -r2723
--- TECH/Mail/impl/MailMessageAanpasser.cls.xml	(.../MailMessageAanpasser.cls.xml)	(revision 2719)
+++ TECH/Mail/impl/MailMessageAanpasser.cls.xml	(.../MailMessageAanpasser.cls.xml)	(revision 2723)
@@ -23,9 +23,9 @@
 <Method name="MaakEmailAdressenAtVanhoeckeBe">
 <FormalSpec><![CDATA[&MailMessage:%Net.MailMessage]]></FormalSpec>
 <Implementation><![CDATA[
-	Set MailMessage.From = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.From,1)
-	Set MailMessage.Sender = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.Sender,1)
-	Set MailMessage.ReplyTo = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.ReplyTo,1)
+	Set MailMessage.From = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.From)
+	Set MailMessage.Sender = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.Sender)
+	Set MailMessage.ReplyTo = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(MailMessage.ReplyTo)
 	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.To)
 	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.Cc)
 	Do ..MaakRecipientsAtVanhoeckeBe(MailMessage.Bcc)
@@ -41,9 +41,8 @@
 		While (Iterator.HasNext()) {
 			#dim Recipient As %String = Iterator.Next()
 			#dim Key As %String = Iterator.Key()
-			#dim IsEmailAdresGewijzigd As %Boolean = $$$True
-			Set Recipient = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(Recipient, .IsEmailAdresGewijzigd)
-			Do:(IsEmailAdresGewijzigd) ListOfRecipients.SetAt(Recipient,Key)
+			Set Recipient = ..AdresAanpasser.GeefVolledigVanhoeckeBeAdres(Recipient)
+			Do ListOfRecipients.SetAt(Recipient,Key)
 		}
 	}
 	Quit