mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-12 17:10:43 -08:00
Code Issues Projects Releases Wiki Activity

Don't bug out on localised dates in gnus-icalendar

Browse source 
* lisp/gnus/gnus-icalendar.el
(gnus-icalendar-event:org-timestamp): Don't bug out on
localised dates.
This commit is contained in:
Jan Tatarik 2016-02-23 21:17:41 +11:00 • committed by Lars Ingebrigtsen
parent dfe16506a9
commit a1585e18c0
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/gnus-icalendar.el
View file

@ -400,10 +400,11 @@ Return nil for non-recurring EVENT."
(end-date (format-time-string "%Y-%m-%d %a" end)) (end-date (format-time-string "%Y-%m-%d %a" end))
(end-time (format-time-string "%H:%M" end)) (end-time (format-time-string "%H:%M" end))
(end-at-midnight (string= end-time "00:00")) (end-at-midnight (string= end-time "00:00"))
(start-end-date-diff (/ (float-time (time-subtract (start-end-date-diff
(date-to-time end-date) (/ (float-time (time-subtract
(date-to-time start-date))) (org-time-string-to-time end-date)
86400)) (org-time-string-to-time start-date)))
86400))
(org-repeat (gnus-icalendar-event:org-repeat event)) (org-repeat (gnus-icalendar-event:org-repeat event))
(repeat (if org-repeat (concat " " org-repeat) "")) (repeat (if org-repeat (concat " " org-repeat) ""))
(time-1-day '(0 86400))) (time-1-day '(0 86400)))