[elpa] externals/excorporate d6176ca 66/93: Excorporate: Provide organizer to iterators

[Stefan Monnier]

branch: externals/excorporate
commit d6176ca03fa19dc55c6b613d790487ec53295419
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Excorporate: Provide organizer to iterators
    
    * packages/excorporate/excorporate.el
    (exco-calendar-item-meeting-create): Provide organizer email
    address.
    (exco-calendar-item-iterate-general): Document organizer option.
---
 excorporate.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/excorporate.el b/excorporate.el
index a478262..7402bf0 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -768,7 +768,10 @@ On each iteration, ITEM is set, and FORMS are run."
            (optional-invitees (when cc-invitees
                                 (mapcar 'org-trim
                                         (split-string cc-invitees ";"))))
-           (item-identifier (assoc 'ItemId ,item)))
+           (item-identifier (assoc 'ItemId ,item))
+           (organizer (cdr (assoc 'EmailAddress
+                                  (assoc 'Mailbox
+                                         (assoc 'Organizer ,item))))))
        ,@forms)))
 
 (defun exco-calendar-item-with-details-iterate (identifier
@@ -827,8 +830,10 @@ MAIN-INVITEES, a list of strings, email addresses of the 
required
 participants.
 OPTIONAL-INVITEES, a list of strings, email addresses of optional
 participants.
-ITEM-IDENTIFIER, a structure of the form (ItemId (Id
-. ID-STRING) (ChangeKey . CHANGEKEY-STRING))."
+ITEM-IDENTIFIER, a structure of the form
+\(ItemId (Id . ID-STRING) (ChangeKey . CHANGEKEY-STRING)).
+ORGANIZER, a string representing the email address of the
+organizer of the meeting, in server-internal format."
   `(let ((result-list '()))
      (exco--calendar-item-dolist
       calendar-item (exco-extract-value '(ResponseMessages