Merge pull request OpenXTalk-org#1 from trinajstica/develop

Update revcommonlibrary.livecodescript

README.md

@@ -6,4 +6,4 @@ LiveCode Ltd. has dropped support for opensource builds (LCC 6.0.1 to 9.6.3) ent
 
 For those that may be unfamiliar with the term, xTalk is a family of scripting languages that aspires to be natural-language-esque, syntactically English-like, "programming for the rest of us" which has been built on top of Bill Atkinson's now long-defuct HyperCard (Apple / Claris) and Dan Winkler's HyperTalk Script. xTalk has an even longer history, with concepts originating decades before HyperCard appeared, the "Hyper" in the name stemmming from the concept of HyperText / HyperMedia in the 1960s.
 
-The project is split into two main repos. This repo is for the integrated development (IDE) portion, the front-end that users see. The IDE is, in large part bootstrapped (built with itself), and so in order to make changes, those interested in contributing only need to know LiveCode Script Language or perhaps one of the other xTalk scripting languages (HyperTalk, SuperTalk, MediaTalk, Lingo, SenseTalk, OpenXION, etc.) 
+The project is split into two main repos. This repo is for the integrated development environment (IDE) portion, the front-end that users see. The IDE is, in large part bootstrapped (built with itself), and so in order to make changes, those interested in contributing only need to know LiveCode Script Language or perhaps one of the other xTalk scripting languages (HyperTalk, SuperTalk, MediaTalk, Lingo, SenseTalk, OpenXION, etc.) 

Toolset/libraries/revcommonlibrary.livecodescript

@@ -111,13 +111,17 @@ command revMailUnicode pTo, pCC, pSubject, pBody
    else
       local tMailApp
       put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\") into tMailApp
-      replace quote & "%1" & quote with tURL in tMailApp
-      replace "%1" with tURL in tMailApp
-      replace "%ProgramFiles%" with $ProgramFiles in tMailApp
-      if the length of tMailApp > 32767 then
-         return "message too long"
+      if tMailApp is empty then
+         launch url tURL
+      else
+        replace quote & "%1" & quote with tURL in tMailApp
+        replace "%1" with tURL in tMailApp
+        replace "%ProgramFiles%" with $ProgramFiles in tMailApp
+        if the length of tMailApp > 32767 then
+           return "message too long"
+        end if
+        open process tMailApp for neither
       end if
-      open process tMailApp for neither
    end if
 end revMailUnicode
 
@@ -1575,4 +1579,4 @@ function revCombineFilePaths pPaths, pPaths2
    end repeat
    delete last char of tReturn
    return tReturn
-end revCombineFilePaths
+end revCombineFilePaths