branch: master
commit 784e3fe6676d0f80c9f89a003f5073cbc2b1ff78
Author: Thomas Fitzsimmons <[email protected]>
Commit: Thomas Fitzsimmons <[email protected]>
Excorporate: Support appointment deletion
* packages/excorporate/excorporate.el
(exco-calendar-item-appointment-delete): New function.
---
packages/excorporate/excorporate.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/packages/excorporate/excorporate.el
b/packages/excorporate/excorporate.el
index 694be81..66ba673 100644
--- a/packages/excorporate/excorporate.el
+++ b/packages/excorporate/excorporate.el
@@ -659,6 +659,24 @@ PATH is an ordered list of node names."
(setq values (assoc path-element values)))
(cdr values)))
+(defun exco-calendar-item-appointment-delete (identifier
+ item-identifier callback)
+ "Delete an appointment.
+IDENTIFIER is the connection identifier. ITEM-IDENTIFIER is the
+item identifier in the form:
+
+(ItemId (Id . ID-STRING) (ChangeKey . CHANGEKEY-STRING))
+
+CALLBACK is the callback called with the identifier and
+response."
+ (exco-operate identifier
+ "DeleteItem"
+ `(((DeleteType . "MoveToDeletedItems")
+ (SendMeetingCancellations . "SendToAllAndSaveCopy")
+ (ItemIds ,item-identifier))
+ nil nil nil)
+ callback))
+
(defun exco-calendar-item-get-details (identifier item-identifier process-item)
"Query server for details about ITEM-IDENTIFIER.
IDENTIFIER is the connection identifier. Call PROCESS-ITEM with
