Pale Moon patch for zotero

--- zotero.dot.txt  2011-03-20 16:08:48.097638100 +0100
+++ zotero.dot.patched.txt  2011-03-20 16:09:38.173726000 +0100
@@ -69,12 +69,13 @@
     Dim buf(1 To 2048) As Byte

     ' Try various names for Firefox
-    Dim appNames(4)
+    Dim appNames(5)
     appNames(1) = "Firefox"
     appNames(2) = "Browser"
     appNames(3) = "Minefield"
     appNames(4) = "Namoroka"
-    For i = 1 To 4
+    appNames(5) = "Pale Moon"
+    For i = 1 To 5
         ThWnd = FindWindow(appNames(i) & "MessageWindow", vbNullString)
         If ThWnd <> 0 Then
             Exit For