diff --git a/lisp/org.el b/lisp/org.el index 72105ccab..da16da5ea 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -23673,7 +23673,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 3552dda7e..5127ce514 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -397,7 +397,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."