diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 21:47:57 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 21:47:57 +0200 |
commit | 6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8 (patch) | |
tree | 63f2a42e47a519f33c28b0db55eca85eb6d0d4cf /module/vcomponent/vdir | |
parent | Described vcomponent now has keys sorted. (diff) | |
download | calp-6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8.tar.gz calp-6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8.tar.xz |
Allow recurrence from just Recurrence-ID.
Diffstat (limited to 'module/vcomponent/vdir')
-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) |