* 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.
(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
(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)))
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