From 5d18c0b3e63af02cf3de5e521177f733d2363173 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Tue, 4 May 1999 17:34:36 +0000 Subject: [PATCH] (display-time-update): Allow for wrap-around when checking against display-time-server-down-time. --- lisp/time.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/time.el b/lisp/time.el index 49b9c604ae0..9e80c636af1 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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) -- 2.39.2