From a1585e18c05d031307c8dcb05f1ac1165858f270 Mon Sep 17 00:00:00 2001 From: Jan Tatarik Date: Tue, 23 Feb 2016 21:17:41 +1100 Subject: [PATCH] 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. --- lisp/gnus/gnus-icalendar.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/gnus-icalendar.el b/lisp/gnus/gnus-icalendar.el index 4faef063bba..d7a431ae8c6 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))) -- 2.39.2