# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 660422862 0
# Node ID 0cbdae7c532f470257b0bc1d3a0f56bf32034647
# Parent  d4c523560fe8b374e718e3679eaca39d47e18cfc
*** empty log message ***

diff -r d4c523560fe8 -r 0cbdae7c532f lisp/time.el
--- a/lisp/time.el	Mon Dec 03 22:48:04 1990 +0000
+++ b/lisp/time.el	Wed Dec 05 18:47:42 1990 +0000
@@ -18,6 +18,10 @@
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
+(defvar display-time-mail-file nil
+  "*File name of mail inbox file, for indicating existence of new mail.
+Default is system-dependent, and is the same as used by Rmail.")
+
 (defvar display-time-process nil)
 
 (defvar display-time-interval 60
@@ -65,10 +69,12 @@
 (defun display-time-filter (proc string)
   (let ((time (current-time-string))
 	(load (format "%03d" (car (load-average))))
-	(mail-spool-file (concat rmail-spool-directory
-				 (or (getenv "LOGNAME")
-				     (getenv "USER")
-				     (user-login-name))))
+	(mail-spool-file (or display-time-mail-file
+			     (getenv "MAIL")
+			     (concat rmail-spool-directory
+				     (or (getenv "LOGNAME")
+					 (getenv "USER")
+					 (user-login-name)))))
 	hour pm)
     (setq hour (read (substring time 11 13)))
     (setq pm (>= hour 12))