[elpa] externals/excorporate 2a55a64 04/93: packages/excorporate: Handle nil list of main invitees

[Stefan Monnier]

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

    packages/excorporate: Handle nil list of main invitees
    
    * packages/excorporate/excorporate.el
    (exco-calendar-item-iterate): Handle nil list of main invitees.
    * packages/excorporate/excorporate-org.el
    (exco-org-insert-meeting): Likewise.
    * packages/excorporate/excorporate-calfw.el.txt
    (exco-calfw-add-meeting): Likewise.
---
 excorporate-calfw.el.txt | 8 ++++----
 excorporate-org.el       | 5 +++--
 excorporate.el           | 4 +++-
 3 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/excorporate-calfw.el.txt b/excorporate-calfw.el.txt
index ad31ae9..11bdfe8 100644
--- a/excorporate-calfw.el.txt
+++ b/excorporate-calfw.el.txt
@@ -61,10 +61,10 @@ are the requested participants."
     (make-cfw:event :title (concat
                            (format "\n\t%s" subject)
                            (format "\n\tLocation: %s" location)
-                           (format "\n\tInvitees: %s"
-                                   (mapconcat 'identity
-                                              main-invitees
-                                              "; "))
+                           (when main-invitees
+                             (format "\n\tInvitees: %s"
+                                     (mapconcat 'identity
+                                                main-invitees "; ")))
                            (when optional-invitees
                              (format "\n\tOptional: %s"
                                      (mapconcat 'identity
diff --git a/excorporate-org.el b/excorporate-org.el
index 8613f8e..73aaa52 100644
--- a/excorporate-org.el
+++ b/excorporate-org.el
@@ -88,8 +88,9 @@ are the requested participants."
   (insert (format "+ Duration: %d minutes\n"
                  (round (/ (float-time (time-subtract end start)) 60.0))))
   (insert (format "+ Location: %s\n" location))
-  (insert "+ Invitees:\n")
-  (exco-org-insert-invitees main-invitees)
+  (when main-invitees
+    (insert "+ Invitees:\n")
+    (exco-org-insert-invitees main-invitees))
   (when optional-invitees
     (insert "+ Optional invitees:\n")
     (exco-org-insert-invitees optional-invitees)))
diff --git a/excorporate.el b/excorporate.el
index 69585d6..9b1db7d 100644
--- a/excorporate.el
+++ b/excorporate.el
@@ -649,7 +649,9 @@ OPTIONAL-INVITEES, a list of strings representing optional 
participants."
                                   end 'dateTime)))
             (location (cdr (assoc 'Location calendar-item)))
             (to-invitees (cdr (assoc 'DisplayTo calendar-item)))
-            (main-invitees (mapcar 'org-trim (split-string to-invitees ";")))
+            (main-invitees (when to-invitees
+                             (mapcar 'org-trim
+                                     (split-string to-invitees ";"))))
             (cc-invitees (cdr (assoc 'DisplayCc calendar-item)))
             (optional-invitees (when cc-invitees
                                  (mapcar 'org-trim