diff options
Diffstat (limited to 'module/vcomponent/vdir/parse.scm')
| -rw-r--r-- | module/vcomponent/vdir/parse.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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) |