From: Jan Tatarik <jan.tatarik@gmail.com>
Date: Tue, 23 Feb 2016 10:17:41 +0000 (+1100)
Subject: Don't bug out on localised dates in gnus-icalendar
X-Git-Tag: emacs-25.0.92~54
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1585e1;p=emacs.git

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.
---

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)))