Bugfixes 2.4.0.9

Global_Indexer/ClassFilehandle.vb

@@ -154,17 +154,14 @@ Public Class ClassFilehandle
         Try
             filename = filename.Replace("'", "''")
 
-            Dim oHash As String
+            Dim oHash As String = String.Empty
 
             If File.Exists(filename) Then
-                Try
+                If filename.ToUpper.EndsWith(".MSG") And (handleType = "|OUTLOOK_MESSAGE|" Or handleType = "|MSGONLY|") Then
+                    oHash = FILESYSTEM.GetChecksumFromString(filename)
+                Else
                     oHash = FILESYSTEM.GetChecksum(filename)
-                Catch ex As Exception
-                    LOGGER.Error(ex)
-                    oHash = String.Empty
-                End Try
-            Else
-                oHash = String.Empty
+                End If
             End If
 
             Dim filename_only As String = Path.GetFileName(filename)