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/vdir/parse.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent/vdir/parse.scm')

diff --git a/module/vcomponent/vdir/parse.scm b/module/vcomponent/vdir/parse.scm
index d251e60a..ac9cb1aa 100644
--- a/module/vcomponent/vdir/parse.scm
+++ b/module/vcomponent/vdir/parse.scm
@@ -70,8 +70,9 @@
                  ;; But the patches can apparently share a sequence number
                  ;; of 0 with the original event!
                  ;; (╯°□°）╯ ┻━┻
-                 (let* ((head (find (negate (extract 'RECURRENCE-ID))
-                                    events))
+                 (let* ((head (or (find (extract 'RRULE) events)
+                                  (find (negate (extract 'RECURRENCE-ID)) events)
+                                  (car events)))
                         (rest (delete head events eq?)))
 
                    (set! (prop head '-X-HNH-ALTERNATIVES)
-- 
cgit v1.2.3