From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Wed, 2 Mar 2016 04:28:59 +0000 (-0500)
Subject: packages/excorporate: Handle nil list of main invitees
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/530b4e22678afb19c222946070378128b22cdefd

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.
---

diff --git a/packages/excorporate/excorporate-calfw.el.txt b/packages/excorporate/excorporate-calfw.el.txt
index ad31ae971..11bdfe858 100644
--- a/packages/excorporate/excorporate-calfw.el.txt
+++ b/packages/excorporate/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/packages/excorporate/excorporate-org.el b/packages/excorporate/excorporate-org.el
index 8613f8e9c..73aaa52b6 100644
--- a/packages/excorporate/excorporate-org.el
+++ b/packages/excorporate/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/packages/excorporate/excorporate.el b/packages/excorporate/excorporate.el
index 69585d69a..9b1db7de0 100644
--- a/packages/excorporate/excorporate.el
+++ b/packages/excorporate/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