From 7a82321d5b3dcceab12d62aa9c78e3618cff4f94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 5 Nov 2020 23:25:43 +0100
Subject: Change recovery on unexpected ',' in TEXT field.

---
 module/vcomponent/ical/parse.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/vcomponent/ical/parse.scm b/module/vcomponent/ical/parse.scm
index 9c555bca..8499d289 100644
--- a/module/vcomponent/ical/parse.scm
+++ b/module/vcomponent/ical/parse.scm
@@ -135,7 +135,7 @@
              (let ((v ((get-parser 'TEXT) params value)))
                (unless (= 1 (length v))
                  (warning "List in non-list field: ~s" v))
-               (car v)))]
+               (string-join v ",")))]
 
           ;; TEXT, but allow a list
           [(memv key '(CATEGORIES RESOURCES))
-- 
cgit v1.2.3