diff options
| author | Jan Tatarik <jan.tatarik@gmail.com> | 2016-02-23 21:17:41 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-23 21:17:41 +1100 |
| commit | a1585e18c05d031307c8dcb05f1ac1165858f270 (patch) | |
| tree | 0fecb237e9ae4e837932617a267c44c5014bac2a | |
| parent | dfe16506a98681b390b119a137776f10ed637126 (diff) | |
Don't bug out on localised dates in gnus-icalendar
* lisp/gnus/gnus-icalendar.el
(gnus-icalendar-event:org-timestamp): Don't bug out on
localised dates.
| -rw-r--r-- | lisp/gnus/gnus-icalendar.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 4faef063bb..d7a431ae8c 100644 --- a/lisp/gnus/gnus-icalendar.el +++ b/lisp/gnus/gnus-icalendar.el @@ -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))) |