resubmitted patch to contrib/lisp/org-mac-link-grabber.el

Anthony Lander wrote:
>[1  <text/plain; US-ASCII (7bit)>]
>This patch fixes an issue with opening AddressBook.app and
>Together.app links.

This is just a reply with the patch attached in a way the
patchtracker[1] will catch it.

  -- David

[1] http://patchwork.newartisans.com/project/org-mode/list/

contrib/lisp/org-mac-link-grabber.el

@@ -318,7 +318,7 @@ applications and inserting them in org documents"
 
 (defun org-mac-together-item-open (uid)
   "Open the given uid, which is a reference to an item in Together"
-  (shell-command (concat "open \"x-together-item:" uid "\"")))
+  (shell-command (concat "open -a Together \"x-together-item:" uid "\"")))
 
 (defun as-get-selected-together-items ()
   (do-applescript
@@ -378,9 +378,9 @@ applications and inserting them in org documents"
 ;;
 ;;
 
-(org-add-link-type "addressbook" 'org-mac-together-item-open)
+(org-add-link-type "addressbook" 'org-mac-addressbook-item-open)
 
-(defun org-mac-together-item-open (uid)
+(defun org-mac-addressbook-item-open (uid)
   "Open the given uid, which is a reference to an item in Together"
   (shell-command (concat "open \"addressbook:" uid "\"")))