Bug 507896 - Upgrading Seamonkey changes file type icon for HTML files to mail icon, r=IanN
authorFrank Wein <mcsmurf@mcsmurf.de>
Sun, 30 Aug 2009 19:52:24 +0200
changeset 3457 e7c2a5448c9e103dd57a00fb904358248883c80c
parent 3456 7baea2266f3e99f8c681de75f4ebc7f52a1a63cd
child 3458 7b0ece4c9b5315e990227da5556ca9d54f82a21f
push idunknown
push userunknown
push dateunknown
reviewersIanN
bugs507896
Bug 507896 - Upgrading Seamonkey changes file type icon for HTML files to mail icon, r=IanN
suite/installer/windows/nsis/shared.nsh
--- a/suite/installer/windows/nsis/shared.nsh
+++ b/suite/installer/windows/nsis/shared.nsh
@@ -448,26 +448,26 @@
   WriteRegStr HKLM "Software\RegisteredApplications" "${AppRegName}" "$0\Capabilities"
 !macroend
 !define SetStartMenuInternet "!insertmacro SetStartMenuInternet"
 
 !macro FixShellIconHandler
   ; The IconHandler reference for SeaMonkeyHTML can end up in an inconsistent
   ; state due to changes not being detected by the IconHandler for side by side
   ; installs. The symptoms can be either an incorrect icon or no icon being
-  ; displayed for files associated with Firefox. By setting it here it will
+  ; displayed for files associated with SeaMonkey. By setting it here it will
   ; always reference the install referenced in the
   ; HKLM\Software\Classes\SeaMonkeyHTML registry key.
   ClearErrors
   ReadRegStr $2 HKLM "Software\Classes\SeaMonkeyHTML\ShellEx\IconHandler" ""
   ${Unless} ${Errors}
     ClearErrors
     ReadRegStr $3 HKLM "Software\Classes\CLSID\$2\Old Icon\SeaMonkeyHTML\DefaultIcon" ""
     ${Unless} ${Errors}
-      WriteRegStr HKLM "Software\Classes\CLSID\$2\Old Icon\SeaMonkeyHTML\DefaultIcon" "" "$8,1"
+      WriteRegStr HKLM "Software\Classes\CLSID\$2\Old Icon\SeaMonkeyHTML\DefaultIcon" "" "$INSTDIR\chrome\icons\default\html-file.ico"
     ${EndUnless}
   ${EndUnless}
 !macroend
 !define FixShellIconHandler "!insertmacro FixShellIconHandler"
 
 ; XXXrstrong - there are several values that will be overwritten by and
 ; overwrite other installs of the same application.
 !macro SetClientsMail