diff --git a/lisp/org.el b/lisp/org.el index 3df694eeb..4de5ca064 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -23813,7 +23813,8 @@ time-range, if possible. When optional argument UTC is non-nil, time will be expressed as Universal Time." (format-time-string - format (org-timestamp--to-internal-time timestamp end) utc)) + format (org-timestamp--to-internal-time timestamp end) + (and utc t))) (defun org-timestamp-split-range (timestamp &optional end) "Extract a TIMESTAMP object from a date or time range. diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index f965ddcf1..11fc587fd 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -396,7 +396,8 @@ Universal Time, ignoring `org-icalendar-date-time-format'." ;; Convert timestamp into internal time in order to use ;; `format-time-string' and fix any mistake (i.e. MI >= 60). (encode-time 0 mi h d m y) - (or utc (and with-time-p (org-icalendar-use-UTC-date-time-p))))))) + (and (or utc (and with-time-p (org-icalendar-use-UTC-date-time-p))) + t))))) (defun org-icalendar-dtstamp () "Return DTSTAMP property, as a string."