fix file access error and illegal path error

Global_Indexer/frmIndex.vb

@@ -713,7 +713,7 @@ Public Class frmIndex
         End Try
 
     End Function
-    Private Function Write_Indizes()
+    Private Function Write_Indizes() As Boolean
         Try
             _Logger.NewBlock("Write_Indizes")
             _Logger.Info("Indexing file [{0}]", CURRENT_NEWFILENAME)
@@ -906,7 +906,7 @@ Public Class frmIndex
                 Dim oSubject As String = oMail.Subject
                 Dim oDateIn As Date = oMail.Date
 
-                CURRENT_MESSAGEID = oMessageFrom
+                CURRENT_MESSAGEID = oMessageId
                 CURRENT_MESSAGEDATE = oDateIn
                 CURRENT_MESSAGESUBJECT = oSubject
 
@@ -2785,33 +2785,13 @@ Public Class frmIndex
                     Me.Close()
                 End If
             End If
-
-            ' Clear all temp files after indexing
-            Clear_Tempfiles()
-            EMAIL.Clear_TempFiles()
-
         Catch ex As Exception
             MsgBox("Uncaught error while indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
-
-            ' Clear all temp files in case of an error
-            Clear_Tempfiles()
-            EMAIL.Clear_TempFiles()
         Finally
             Me.Cursor = Cursors.Default
         End Try
     End Sub
 
-    Private Sub Clear_Tempfiles()
-        'TempDateien löschen
-        For Each oFile In TEMP_FILES
-            Try
-                System.IO.File.Delete(oFile)
-            Catch ex As Exception
-                LOGGER.Error(ex)
-            End Try
-        Next
-    End Sub
-
     Private Sub checkItemPreview_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles checkItemPreview.CheckedChanged
         SetFilePreview(checkItemPreview.Checked)
         CONFIG.Config.FilePreview = checkItemPreview.Checked