[elpa] master 784e3fe 02/11: Excorporate: Support appointment deletion

[Thomas Fitzsimmons]

branch: master
commit 784e3fe6676d0f80c9f89a003f5073cbc2b1ff78
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    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