Commit 417cf674 authored by Sylvain Chouleur's avatar Sylvain Chouleur Committed by Katsumi Yamaoka
Browse files

lisp/gnus/gnus-icalendar.el: Support vcal format timezones

parent 01c1b1a8
2014-10-15 Sylvain Chouleur <sylvain.chouleur@gmail.com>
* gnus-icalendar.el: Support vcal format timezones
(gnus-icalendar-event--decode-datefield): use icalendar functions to
compute dates with associated timezone
(gnus-icalendar-event-from-ical): compute all timezones
2014-10-14 Teodor Zlatanov <tzz@lifelogs.com>
 
* gnus-start.el (gnus-save-newsrc-file-check-timestamp): New option to
......
......@@ -141,12 +141,13 @@
(defmethod gnus-icalendar-event:start ((event gnus-icalendar-event))
(format-time-string "%Y-%m-%d %H:%M" (gnus-icalendar-event:start-time event)))
(defun gnus-icalendar-event--decode-datefield (ical field)
(let* ((date (icalendar--get-event-property ical field))
(date-props (icalendar--get-event-property-attributes ical field))
(tz (plist-get date-props 'TZID)))
(date-to-time (timezone-make-date-arpa-standard date nil tz))))
(defun gnus-icalendar-event--decode-datefield (event field zone-map)
(let* ((dtdate (icalendar--get-event-property event field))
(dtdate-zone (icalendar--find-time-zone
(icalendar--get-event-property-attributes
event field) zone-map))
(dtdate-dec (icalendar--decode-isodatetime dtdate nil dtdate-zone)))
(apply 'encode-time dtdate-dec)))
(defun gnus-icalendar-event--find-attendee (ical name-or-email)
(let* ((event (car (icalendar--all-events ical)))
......@@ -204,10 +205,11 @@
("REQ-PARTICIPANT" 'required)
("OPT-PARTICIPANT" 'optional)
(_ 'non-participant)))
(zone-map (icalendar--convert-all-timezones ical))
(args (list :method method
:organizer organizer
:start-time (gnus-icalendar-event--decode-datefield event 'DTSTART)
:end-time (gnus-icalendar-event--decode-datefield event 'DTEND)
:start-time (gnus-icalendar-event--decode-datefield event 'DTSTART zone-map)
:end-time (gnus-icalendar-event--decode-datefield event 'DTEND zone-map)
:rsvp (string= (plist-get (cadr attendee) 'RSVP) "TRUE")
:participation-type participation-type
:req-participants (car attendee-names)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment