[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Thomas Fitzsimmons
Subject: [elpa] master 784e3fe 02/11: Excorporate: Support appointment deletion
Date: Wed, 23 Sep 2020 21:50:09 -0400 (EDT)

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 
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
+  (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]