mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases 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
Show Stats 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-time (format-time-string "%H:%M" end))
(end-at-midnight (string= end-time "00:00"))
(start-end-date-diff (/ (float-time (time-subtract
(date-to-time end-date)
(date-to-time start-date)))
86400))
(start-end-date-diff
(/ (float-time (time-subtract
(org-time-string-to-time end-date)
(org-time-string-to-time start-date)))
86400))
(org-repeat (gnus-icalendar-event:org-repeat event))
(repeat (if org-repeat (concat " " org-repeat) ""))
(time-1-day '(0 86400)))