Index: svn/Helper.cls.xml
===================================================================
diff -u -r1831 -r1875
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1831)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1875)
@@ -528,7 +528,14 @@
 			while itsvnResults.HasNext() {
 				#dim svnInfo As svn.CommandResult = itsvnResults.Next()
 				if (svnInfo.Action'="P") && (svnInfo.Action'="X") {
-					do MailBody.WriteLine(svnInfo.ExternalName_" : "_svnInfo.Action)
+					#dim ExternalName As %String = svnInfo.ExternalName
+					if (##class(TECH.StringUtils).StartsWith($$$LCase(ExternalName),"gelist")) {
+						Set ExternalName = "changelist" _ $Extract(ExternalName, 7, *)
+					}
+					if (##class(TECH.StringUtils).StartsWith($$$LCase(ExternalName),"changelist")) {
+						do MailBody.WriteLine()
+					}
+					do MailBody.WriteLine(ExternalName_" : "_svnInfo.Action _ $C(9))
 				}
 			}
 		}	
@@ -639,14 +646,28 @@
 	}
 	
 	try {
-		Do ..SvnLogger.LogGetLatest(..GeefServerNaam(), Message)
+		Do ..SvnLogger.LogGetLatest(..GeefServerNaam(), Message, ..Username)
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ..LogMessage("Het loggen van GetLatest op SvnLogging is mislukt omwille van deze reden: "_Exception)
+		Do ..LogMessage("Het loggen van GetLatest op SvnLogging is mislukt omwille van deze reden: "_Exception.GeefOmschrijving())
 	}
+	
+	Do ..MailShowSynchronizeActionsAsync()
 ]]></Implementation>
 </Method>
 
+<Method name="MailShowSynchronizeActionsAsync">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Dto As svn.dto.ShowSynchronizeActionsAsync = ##class(svn.dto.ShowSynchronizeActionsAsync).%New()
+	Set Dto.IsVoorMail = $$$True
+	Set Dto.MagAutoGetLatestServerSSAADoen = $$$False
+	Set Dto.ServerNaam = ..GeefServerNaam()
+	Set Dto.Username = ..Username
+	Do ##class(svn.Synchronizer).MailShowSynchronizeActionsAsync(Dto)
+]]></Implementation>
+</Method>
+
 <Method name="VoerUitCompile">
 <Private>1</Private>
 <Implementation><![CDATA[