Commit 5d18c0b3 authored by Andrew Innes's avatar Andrew Innes
Browse files

(display-time-update): Allow for wrap-around when

checking against display-time-server-down-time.
parent 1c885fe1
......@@ -213,9 +213,11 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
(mail (and (stringp mail-spool-file)
(or (null display-time-server-down-time)
;; If have been down for 20 min, try again.
(> (- (nth 1 (current-time))
display-time-server-down-time)
1200))
(> (- (nth 1 now) display-time-server-down-time)
1200)
(and (< (nth 1 now) display-time-server-down-time)
(> (- (nth 1 now) display-time-server-down-time)
-64336)))
(let ((start-time (current-time)))
(prog1
(display-time-file-nonempty-p mail-spool-file)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment