]> code.delx.au - gnu-emacs-elpa/commitdiff
packages/excorporate: Handle nil list of main invitees
authorThomas Fitzsimmons <fitzsim@fitzsim.org>
Wed, 2 Mar 2016 04:28:59 +0000 (23:28 -0500)
committerThomas Fitzsimmons <fitzsim@fitzsim.org>
Wed, 16 Mar 2016 13:03:07 +0000 (09:03 -0400)
* 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.

packages/excorporate/excorporate-calfw.el.txt
packages/excorporate/excorporate-org.el
packages/excorporate/excorporate.el

index ad31ae97133fbebc1678c0259940660d7d9e2f9c..11bdfe858e80a389754a889ca0bbb967f5e8e68c 100644 (file)
@@ -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
index 8613f8e9c081ec7817597781303ffac73e9499c3..73aaa52b6d433caee77b0e007df2d497642ea700 100644 (file)
@@ -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)))
index 69585d69a58c202c299973ae8e5f3528ec9c3727..9b1db7de03b465fe24f21b0dd223f73f2cdb38e2 100644 (file)
@@ -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