From c7a394748ccb864872091b2eec204fa7b52ef60f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 28 Jan 2009 19:57:19 +0000
Subject: [PATCH] Fix part of registry key RecentFilters showing up in
 perspectives menu.

---
 source/main.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index f779cb35..ce1ec893 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -8400,8 +8400,13 @@ begin
   OpenRegistry;
   if MainReg.OpenKey(GetRegKeyTable, False) then begin
     MainReg.GetKeyNames(List);
-    for i := 0 to List.Count - 1 do
-      List[i] := Copy(List[i], Length(REGPREFIX_DATAVIEW)+1, Length(List[i]));
+    for i := List.Count - 1 downto 0 do begin
+      logsql(Copy(List[i], 0, Length(REGPREFIX_DATAVIEW)));
+      if Copy(List[i], 0, Length(REGPREFIX_DATAVIEW)) <> REGPREFIX_DATAVIEW then
+        List.Delete(i)
+      else
+        List[i] := Copy(List[i], Length(REGPREFIX_DATAVIEW)+1, Length(List[i]));
+    end;
   end;
 end;