From: Andrew Innes Date: Tue, 4 May 1999 17:34:36 +0000 (+0000) Subject: (display-time-update): Allow for wrap-around when X-Git-Tag: emacs-20.4~256 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d18c0b3e63af02cf3de5e521177f733d2363173;p=emacs.git (display-time-update): Allow for wrap-around when checking against display-time-server-down-time. --- 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)