From 85cf32f793f7e364eda39c1b5c1738804028d89c Mon Sep 17 00:00:00 2001
From: fpi
Date: Mon, 16 Sep 2024 11:33:39 +0200
Subject: Expand tests, Fix attende-list creation

---
 gnus-icalendar-request.el | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'gnus-icalendar-request.el')

diff --git a/gnus-icalendar-request.el b/gnus-icalendar-request.el
index 61b5078..863c5aa 100644
--- a/gnus-icalendar-request.el
+++ b/gnus-icalendar-request.el
@@ -31,12 +31,20 @@
   (when (member role '("req" "opt"))
     (format "ATTENDEE;PARTSTAT=NEEDS-ACTION;ROLE=%s-PARTICIPANT;RSVP=TRUE:mailto:%s" (upcase role) attendee)))
 
-(defun gnus-icalendar-event--create-attendee-list (req opt)
+(defun gnus-icalendar-event--create-attendee-list (req &optional opt role)
+  "Format a list of event attendees.
+
+REQ is a list of required attendees emails, OPT of optional
+attendees and ROLE can be used to override the REQ attendees
+role."
   (concat
-   (mapconcat (lambda (req) (gnus-icalendar-event--format-attendee req "req")) req "\n")
+   (when req
+     (mapconcat (lambda (req) (gnus-icalendar-event--format-attendee req (or role "req"))) req "\n"))
    (when opt
-     "\n"
-     (mapconcat (lambda (opt) (gnus-icalendar-event--format-attendee opt "opt")) opt "\n"))))
+     (concat "\n"
+             (gnus-icalendar-event--create-attendee-list opt nil "opt"))
+     ;; (mapconcat (lambda (opt) (gnus-icalendar-event--format-attendee opt "opt")) opt "\n")
+     )))
 
 (defun gnus-icalendar-event--ical-from-event (event)
   (with-slots (summary description location organizer recur uid start-time end-time req-participants opt-participants) event
-- 
cgit v1.2.3