[elpa] externals/excorporate 5bd2608 59/93: Excorporate: Support appointment deletion

[Stefan Monnier]

branch: externals/excorporate
commit 5bd2608cb1b11e5f392240a7aaf68cb007d8fb81
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.
---
 excorporate.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/excorporate.el b/excorporate.el
index 694be81..66ba673 100644
--- a/excorporate.el
+++ b/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