diff options
| -rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 3 | ||||
| -rw-r--r-- | module/vcomponent/util/instance/methods.scm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index 82f678da..e020a211 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -59,4 +59,5 @@ (_ "Calendar is of type ~s")) (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) - (delete-file (prop event '-X-HNH-FILENAME))) + (delete-file (prop event '-X-HNH-FILENAME)) + (remove-child! parent event)) diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index c8ba5945..028e01c0 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -172,6 +172,7 @@ ;; remove old instance of event from runtime (remove-event this old-event) + (remove-child! (parent old-event) old-event) ;; Add new event to runtime, ;; MUST be done after since the two events SHOULD share UID. |