diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-17 15:39:18 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-17 15:43:05 -0700 |
| commit | c90a420779448fecf1941f063da3e8276dc3d0d7 (patch) | |
| tree | 691868a02f1e99ee4e3e058b23836501d3f0ffad /lisp/gnus/message.el | |
| parent | 6616806896060d95355c965599517d7065c19b86 (diff) | |
| download | emacs-c90a420779448fecf1941f063da3e8276dc3d0d7.tar.gz | |
Add FIXMEs for subsecond support
This adds FIXMEs to areas where Lisp code should support
subsecond information in broken-down timestamps.
It also fixes some unnecessary truncation of timestamps, and
ports the code to a hypothetical future Emacs version where
(decode-time) returns subsecond timestamps by default.
* lisp/calc/calc-forms.el (calc-time, math-iso-dt-to-date)
(calcFunc-now):
* lisp/calendar/icalendar.el (icalendar--add-decoded-times):
* lisp/calendar/iso8601.el (iso8601-parse-interval):
Truncate seconds to an integer, and add a FIXME about
subseconds support.
* lisp/calendar/icalendar.el (icalendar--decode-isodatetime)
(icalendar--decode-isoduration):
Add a FIXME about subseconds support.
* lisp/gnus/gnus-delay.el (gnus-delay-article):
Don’t truncate seconds to an integer, as there’s no need
to do that here.
* lisp/gnus/gnus-util.el (gnus-seconds-today)
(gnus-seconds-month, gnus-seconds-year):
* lisp/gnus/message.el (message-make-expires-date):
* lisp/org/org-timer.el (org-timer-show-remaining-time):
* lisp/vc/ediff-mult.el (ediff-format-date):
Truncate seconds to an integer, as that’s what’s wanted here.
* lisp/midnight.el (midnight-next):
Ceiling seconds to an integer, as that’s what wanted here.
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0a540a62214..48d79107ea8 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -5508,7 +5508,7 @@ If NOW, use that time instead." "Make date string for the Expires header. Expiry in DAYS days. In posting styles use `(\"Expires\" (make-expires-date 30))'." - (let* ((cur (decode-time)) + (let* ((cur (decode-time nil nil 'integer)) (nday (+ days (decoded-time-day cur)))) (setf (decoded-time-day cur) nday) (message-make-date (encode-time cur)))) |