Fixed org-store-link-plist

claviclaws · Jul 12, 2011 · 12def02 · 12def02
1 parent abe2a49
commit 12def02
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/org-mac-protocol.el b/org-mac-protocol.el
@@ -331,6 +331,7 @@ link property"
 	 (region (or (cadddr parts) ""))
 	 (orglink (org-make-link-string
 		   url (if (string-match "[^[:space:]]" title) title url)))
+	 (org-capture-link-is-already-stored t)
 	 remember-annotation-functions)
 
     (setq org-mac-protocol-app app)
@@ -362,6 +363,8 @@ link property"
 			  :description title
 			  :shortdesc shorttitle
 			  :initial region)
+    (message "protocol: %s" (plist-get org-store-link-plist :shortdesc))
+
     (if (boundp 'org-capture-templates)
 	(org-capture nil template)
       (org-remember nil (string-to-char template))))