mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2026-09-10 07:46:51 -04:00
gnus-icalendar: use DURATION to calculate end-time of the event
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event-from-ical): Use DURATION to calculate end-time if DTEND is absent.
This commit is contained in:
parent
d73c7a442b
commit
2e5e9d48fb
|
|
@ -200,6 +200,7 @@ recipient."
|
|||
(ical:description :value description)
|
||||
(ical:dtstart :value dtstart)
|
||||
(ical:dtend :value dtend)
|
||||
(ical:duration :value duration)
|
||||
(ical:location :value location)
|
||||
(ical:rrule :value rrule)
|
||||
(ical:uid :value uid))
|
||||
|
|
@ -223,7 +224,8 @@ recipient."
|
|||
:location location
|
||||
:recur rrule
|
||||
:start-time (encode-time dtstart)
|
||||
:end-time (and dtend (encode-time dtend))
|
||||
:end-time (encode-time
|
||||
(or dtend (decoded-time-add dtstart duration)))
|
||||
:rsvp rsvp-p
|
||||
:participation-type participation-type
|
||||
:req-participants (car req/opt)
|
||||
|
|
|
|||
Loading…
Reference in a new issue