From 6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 6 Sep 2020 21:47:57 +0200
Subject: Allow recurrence from just Recurrence-ID.

---
 module/vcomponent/recurrence/internal.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/recurrence/internal.scm')

diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm
index 0c119bb6..1a2abd85 100644
--- a/module/vcomponent/recurrence/internal.scm
+++ b/module/vcomponent/recurrence/internal.scm
@@ -13,7 +13,8 @@
 (define (repeating? ev)
   "Does this event repeat?"
   (or (prop ev 'RRULE)
-      (prop ev 'RDATE)))
+      (prop ev 'RDATE)
+      (prop ev '-X-HNH-ALTERNATIVES)))
 
 ;; weekday := [0, 7)
 
-- 
cgit v1.2.3