diff options
| author | Ulf Jasper <ulf.jasper@web.de> | 2019-09-09 18:35:02 +0200 |
|---|---|---|
| committer | Ulf Jasper <ulf.jasper@web.de> | 2019-09-09 18:35:02 +0200 |
| commit | 74e9799bd89484b8d15bdd6597c68fc00d07e7f7 (patch) | |
| tree | 74756323a885eb3ce329c68ccb6852682db7a9e7 /lisp/calendar/icalendar.el | |
| parent | 4042dad139d922723aabcfaef5662db8204fb355 (diff) | |
Handle missing start-time when importing ical event (Bug#33277)
* lisp/calendar/icalendar.el (icalendar--convert-ical-to-diary): Set
start time only if it is explicitly given in ical. Do not use
start-time as default for end-time (Bug#33277).
* test/lisp/calendar/icalendar-tests.el (icalendar-import-bug-33277):
New. Test fix for Bug#33277.
Diffstat (limited to 'lisp/calendar/icalendar.el')
| -rw-r--r-- | lisp/calendar/icalendar.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 3c46982c7b0..3ae0fcbe977 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -2095,7 +2095,9 @@ written into the buffer `*icalendar-errors*'." dtstart-zone)) (start-d (icalendar--datetime-to-diary-date dtstart-dec)) - (start-t (icalendar--datetime-to-colontime dtstart-dec)) + (start-t (and dtstart + (> (length dtstart) 8) + (icalendar--datetime-to-colontime dtstart-dec))) (dtend (icalendar--get-event-property e 'DTEND)) (dtend-zone (icalendar--find-time-zone (icalendar--get-event-property-attributes @@ -2148,8 +2150,7 @@ written into the buffer `*icalendar-errors*'." (icalendar--get-event-property-attributes e 'DTEND)) "DATE"))) - (icalendar--datetime-to-colontime dtend-dec) - start-t)) + (icalendar--datetime-to-colontime dtend-dec))) (icalendar--dmsg "start-d: %s, end-d: %s" start-d end-d) (cond ;; recurring event |