Automatically set the default mailto and .eml handler by Windows installer.

git-svn-id: svn://sylpheed.sraoss.jp/sylpheed/trunk@3168 ee746299-78ed-0310-b773-934348b2243d

4 files changed, 73 insertions, 13 deletions

diff --git a/nsis/english.nsh b/nsis/english.nsh
index de87cf29..f356b051 100644
--- a/nsis/english.nsh
+++ b/nsis/english.nsh
@@ -5,7 +5,7 @@ LangString plugins ${LANG_ENGLISH} "Sylpheed Plug-ins"
 LangString attachment_tool_plugin ${LANG_ENGLISH} "attachment_tool"

 LangString desktop_shortcut ${LANG_ENGLISH} "Shortcut for Desktop"

 LangString quick_shortcut ${LANG_ENGLISH} "Shortcut for Quick Launch"

-LangString handler ${LANG_ENGLISH} "Register as mailto: protocol handler"

+LangString handler ${LANG_ENGLISH} "Register associations"

 LangString sylpheed_description ${LANG_ENGLISH} "Sylpheed itself"

 LangString plugins_description ${LANG_ENGLISH} "Plug-ins for Sylpheed"

 LangString sylpheed_pro_description ${LANG_ENGLISH} "Sylpheed Pro Full-text Search Plug-in"

@@ -14,8 +14,8 @@ LangString sylfilter_description ${LANG_ENGLISH} "SylFilter bayesian spam filter
 LangString bsfilter_description ${LANG_ENGLISH} "bsfilter bayesian spam filter"

 LangString desktop_shortcut_description ${LANG_ENGLISH} "Create shortcut for Desktop (current user only)"

 LangString quick_shortcut_description ${LANG_ENGLISH} "Create shortcut for Quick Launch (current user only)"

-LangString handler_description ${LANG_ENGLISH} "Start Sylpheed when the link of mailto: \

- is clicked by an Web browser etc."

+LangString handler_description ${LANG_ENGLISH} "Start Sylpheed when a mailto: link \

+ is clicked on Web browser etc., or an eml file is opened"

 LangString un_sylpheed_description ${LANG_ENGLISH} "Sylpheed itself"

 LangString un_plugins_description ${LANG_ENGLISH} "Plug-ins for Sylpheed"

 LangString un_sylpheed_pro_description ${LANG_ENGLISH} "Sylpheed Pro Full-text Search Plug-in"

diff --git a/nsis/japanese.nsh b/nsis/japanese.nsh
index d86c534c..3bdfef52 100644
--- a/nsis/japanese.nsh
+++ b/nsis/japanese.nsh
@@ -5,7 +5,7 @@ LangString plugins ${LANG_JAPANESE} "Sylpheed プラグイン"
 LangString attachment_tool_plugin ${LANG_JAPANESE} "attachment_tool"

 LangString desktop_shortcut ${LANG_JAPANESE} "デスクトップのショートカット"

 LangString quick_shortcut ${LANG_JAPANESE} "クイック起動のショートカット"

-LangString handler ${LANG_JAPANESE} "mailto: プロトコルのハンドラの登録"

+LangString handler ${LANG_JAPANESE} "関連付けの登録"

 LangString sylpheed_description ${LANG_JAPANESE} "Sylpheed本体です"

 LangString plugins_description ${LANG_JAPANESE} "Sylpheed用のプラグイン"

 LangString sylpheed_pro_description ${LANG_JAPANESE} "Sylpheed Pro 全文検索プラグイン"

@@ -15,7 +15,7 @@ LangString bsfilter_description ${LANG_JAPANESE} "bsfilter 迷惑メールフィルタ"
 LangString desktop_shortcut_description ${LANG_JAPANESE} "デスクトップにショートカットを作成します(現在のユーザのみ)"

 LangString quick_shortcut_description ${LANG_JAPANESE} "クイック起動にショートカットを作成します(現在のユーザのみ)"

 LangString handler_description ${LANG_JAPANESE} "Webブラウザなどで mailto: のリンクをクリックした場合、\

-Sylpheedを起動するように設定します"

+またemlファイルを開いた場合、Sylpheedを起動するように設定します"

 LangString un_sylpheed_description ${LANG_JAPANESE} "Sylpheed本体です"

 LangString un_plugins_description ${LANG_JAPANESE} "Sylpheed用のプラグイン"

 LangString un_sylpheed_pro_description ${LANG_JAPANESE} "Sylpheed Pro 全文検索プラグイン"

diff --git a/nsis/sylpheed-defs.nsh b/nsis/sylpheed-defs.nsh
index 0589369e..f190e5aa 100644
--- a/nsis/sylpheed-defs.nsh
+++ b/nsis/sylpheed-defs.nsh
@@ -1,7 +1,7 @@
 ;!define SYLPHEED_PRO

 

 !define PRODUCT_NAME "Sylpheed"

-!define PRODUCT_VERSION "3.3beta2"

+!define PRODUCT_VERSION "3.3beta2.6"

 

 !ifdef SYLPHEED_PRO

 !define PRODUCT_PUBLISHER "SRA OSS, Inc. Japan"

diff --git a/nsis/sylpheed.nsi b/nsis/sylpheed.nsi
index 05c55d9e..7e1e487c 100644
--- a/nsis/sylpheed.nsi
+++ b/nsis/sylpheed.nsi
@@ -151,21 +151,75 @@ ${MementoUnselectedSection} "$(quick_shortcut)" sec_quick_shortcut
 ${MementoSectionEnd}

 

 ${MementoSection} "$(handler)" sec_handler

+   ; HKLM

+   ; .eml

+   WriteRegStr HKLM "Software\Classes\Sylpheed.EML" "" "Sylpheed Message"

+   WriteRegDWORD HKLM "Software\Classes\Sylpheed.EML" "EditFlags" 0x00000002

+   WriteRegStr HKLM "Software\Classes\Sylpheed.EML" "FriendlyTypeName" "Sylpheed Message"

+   WriteRegStr HKLM "Software\Classes\Sylpheed.EML\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

+   WriteRegStr HKLM "Software\Classes\Sylpheed.EML\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --open $\"%1$\""

+

+   ; mailto:

+   WriteRegStr HKLM "Software\Classes\mailto" "" "URL:MailTo Protocol"

+   WriteRegDWORD HKCU "Software\Classes\mailto" "EditFlags" 0x00000002

+   WriteRegStr HKLM "Software\Classes\mailto" "FriendlyTypeName" "Sylpheed MailTo"

+   WriteRegStr HKLM "Software\Classes\mailto" "URL Protocol" ""

+   WriteRegStr HKLM "Software\Classes\mailto\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

+

+   WriteRegStr HKLM "Software\Classes\Sylpheed.Url.MailTo" "" "URL:MailTo Protocol"

+   WriteRegDWORD HKLM "Software\Classes\Sylpheed.Url.MailTo" "EditFlags" 0x00000002

+   WriteRegStr HKLM "Software\Classes\Sylpheed.Url.MailTo" "FriendlyTypeName" "Sylpheed MailTo"

+   WriteRegStr HKLM "Software\Classes\Sylpheed.Url.MailTo" "URL Protocol" ""

+   WriteRegStr HKLM "Software\Classes\Sylpheed.Url.MailTo\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

+   WriteRegStr HKLM "Software\Classes\Sylpheed.Url.MailTo\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

+

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed" "" "Sylpheed"

+   WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Protocols\mailto" "" "URL:MailTo Protocol"

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Protocols\mailto" "URL Protocol" ""

+   WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Protocols\mailto\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Protocols\mailto\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\""

 

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities" "ApplicationName" "Sylpheed"

+   WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities" "ApplicationIcon" "$INSTDIR\sylpheed.exe,0"

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities" "ApplicationDescription" "Sylpheed - lightweight and user-friendly e-mail client"

-   WriteRegStr HKLM "Software\RegisteredApplications" "Sylpheed" "SOFTWARE\Clients\Mail\Sylpheed\Capabilities"

+   WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities\FileAssociations" ".eml" "Sylpheed.EML"

    WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities\URLAssociations" "mailto" "Sylpheed.Url.MailTo"

-   WriteRegStr HKCR "Sylpheed.Url.MailTo" "" "URL:MailTo Protocol"

-   WriteRegStr HKCR "Sylpheed.Url.MailTo" "FriendlyTypeName" "Sylpheed MailTo"

-   WriteRegDWORD HKCR "Sylpheed.Url.MailTo" "EditFlags" 0x00000002

-   WriteRegStr HKCR "Sylpheed.Url.MailTo" "URL Protocol" ""

-   WriteRegStr HKCR "Sylpheed.Url.MailTo\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

+   WriteRegStr HKLM "Software\Clients\Mail\Sylpheed\Capabilities\StartMenu" "Mail" "Sylpheed"

+

+   WriteRegStr HKLM "Software\RegisteredApplications" "Sylpheed" "SOFTWARE\Clients\Mail\Sylpheed\Capabilities"

+

+   ; HKCU

+   WriteRegStr HKCU "Software\Clients\Mail" "" "Sylpheed"

+

+   WriteRegStr HKCU "Software\Microsoft\Windows\Shell\Associations\URLAssociations\mailto\UserChoice" "Progid" "Sylpheed.Url.MailTo"

+   DeleteRegKey HKCU "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.eml\UserChoice"

+   WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.eml\UserChoice" "Progid" "Sylpheed.EML"

+

+   ; .eml

+   WriteRegStr HKCU "Software\Classes\.eml" "" "Sylpheed.EML"

+

+   WriteRegStr HKCU "Software\Classes\Sylpheed.EML" "" "Sylpheed Message"

+   WriteRegDWORD HKCU "Software\Classes\Sylpheed.EML" "EditFlags" 0x00000002

+   WriteRegStr HKCU "Software\Classes\Sylpheed.EML" "FriendlyTypeName" "Sylpheed Message"

+   WriteRegStr HKCU "Software\Classes\Sylpheed.EML\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

+   WriteRegStr HKCU "Software\Classes\Sylpheed.EML\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --open $\"%1$\""

+

+   ; mailto:

+   WriteRegStr HKCU "Software\Classes\mailto" "" "URL:MailTo Protocol"

+   WriteRegDWORD HKCU "Software\Classes\mailto" "EditFlags" 0x00000002

+   WriteRegStr HKCU "Software\Classes\mailto" "FriendlyTypeName" "Sylpheed MailTo"

+   WriteRegStr HKCU "Software\Classes\mailto" "URL Protocol" ""

+   WriteRegStr HKCU "Software\Classes\mailto\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

+   WriteRegStr HKCU "Software\Classes\mailto\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

+

+   WriteRegStr HKCU "Software\Classes\Sylpheed.Url.MailTo" "" "URL:MailTo Protocol"

+   WriteRegDWORD HKCU "Software\Classes\Sylpheed.Url.MailTo" "EditFlags" 0x00000002

+   WriteRegStr HKCU "Software\Classes\Sylpheed.Url.MailTo" "FriendlyTypeName" "Sylpheed MailTo"

+   WriteRegStr HKCU "Software\Classes\Sylpheed.Url.MailTo" "URL Protocol" ""

+   WriteRegStr HKCU "Software\Classes\Sylpheed.Url.MailTo\DefaultIcon" "" "$INSTDIR\sylpheed.exe,0"

+   WriteRegStr HKCU "Software\Classes\Sylpheed.Url.MailTo\shell\open\command" "" "$\"$INSTDIR\sylpheed.exe$\" --compose $\"%1$\""

 ${MementoSectionEnd}

 

 ${MementoSectionDone}

@@ -313,8 +367,14 @@ Section "-un.install"
 

   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"

   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_DIR_REGKEY}"

-  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "Software\Clients\Mail\Sylpheed"

+  DeleteRegKey HKLM "Software\Classes\Sylpheed.EML"

+  DeleteRegKey HKLM "Software\Classes\Sylpheed.Url.MailTo"

+  DeleteRegKey HKLM "Software\Clients\Mail\Sylpheed"

+  DeleteRegValue HKLM "Software\RegisteredApplications" "Sylpheed"

+  DeleteRegKey HKCU "Software\Classes\Sylpheed.EML"

+  DeleteRegKey HKCU "Software\Classes\Sylpheed.Url.MailTo"

   DeleteRegKey ${MEMENTO_REGISTRY_ROOT} "${MEMENTO_REGISTRY_KEY}"

+

   SetAutoClose true

 SectionEnd