From b3301ea20ae6ecb3c6cf353111d982251cbbad72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 15 Jun 2020 19:19:30 +0200
Subject: Save soruce-prop object to vline.

---
 module/vcomponent/parse/component.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'module/vcomponent/parse')

diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm
index b5fcbbe2..6819a202 100644
--- a/module/vcomponent/parse/component.scm
+++ b/module/vcomponent/parse/component.scm
@@ -281,6 +281,9 @@
                             (for vline in vlines
                                  (define key (vline-key vline))
 
+                                 (set! (vline-source vline)
+                                   (get-metadata head*))
+
                                  ;; See RFC 5545 p.53 for list of all repeating types
                                  ;; (for vcomponent)
                                  (if (memv key '(ATTACH ATTENDEE CATEGORIES
-- 
cgit v1.2.3