aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/parse
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-06-15 19:19:30 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-06-15 19:19:30 +0200
commitb3301ea20ae6ecb3c6cf353111d982251cbbad72 (patch)
tree4c728300a52ce8656c812a26a76b65a86b2f4e48 /module/vcomponent/parse
parentMinor error cleanup in component. (diff)
downloadcalp-b3301ea20ae6ecb3c6cf353111d982251cbbad72.tar.gz
calp-b3301ea20ae6ecb3c6cf353111d982251cbbad72.tar.xz
Save soruce-prop object to vline.
Diffstat (limited to 'module/vcomponent/parse')
-rw-r--r--module/vcomponent/parse/component.scm3
1 files changed, 3 insertions, 0 deletions
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