diff options
author | Mike McLean <mike.mclean@pobox.com> | 2015-06-09 16:09:35 -0400 |
---|---|---|
committer | Alan Schmitt <alan.schmitt@polytechnique.org> | 2015-06-10 08:15:58 +0200 |
commit | e87e5a3c6274eb08c98dbcdddf7a747ca2cbb6f3 (patch) | |
tree | 7d0c64b0c2d03b5d3db16025b9f64d176f9e3300 | |
parent | e453a261a73c04fbae759ccdd192d03c3978c960 (diff) | |
download | org-mode-e87e5a3c6274eb08c98dbcdddf7a747ca2cbb6f3.tar.gz |
org-mac-link.el: Reduce Outlook App confusion
* org-mac-link.el (org-mac-outlook-message-open, org-as-get-selected-outlook-mail): Specify Microsoft Outlook.app non-ambiguously
If the user has:
- a virtual solution (Parallels, etc.)
- with Office for PC installed
- and configured to expose WinTel applications to the Macintosh Finder
The AppleScript commands may try to select the WinTel version of
"Microsoft Outlook". This—obviously—doesn’t work. By adding the Mac
~.app~ file extension and path, we reduce this confusion and more
reliably call the Macintosh version of Outlook.
TINYCHANGE
Signed-off-by: Alan Schmitt <alan.schmitt@polytechnique.org>
-rw-r--r-- | contrib/lisp/org-mac-link.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el index e0636a5..c991dfa 100644 --- a/contrib/lisp/org-mac-link.el +++ b/contrib/lisp/org-mac-link.el @@ -580,7 +580,7 @@ The links are of the form <link>::split::<name>." "Open a message in Outlook" (do-applescript (concat - "tell application \"Microsoft Outlook\"\n" + "tell application \"/Applications/Microsoft Office 2011/Microsoft Outlook.app\"\n" (format "open message id %s\n" (substring-no-properties msgid)) "activate\n" "end tell"))) @@ -589,7 +589,7 @@ The links are of the form <link>::split::<name>." "AppleScript to create links to selected messages in Microsoft Outlook.app." (do-applescript (concat - "tell application \"Microsoft Outlook\"\n" + "tell application \"/Applications/Microsoft Office 2011/Microsoft Outlook.app\"\n" "set msgCount to count current messages\n" "if (msgCount < 1) then\n" "return\n" |