Mercurial > emacs

changeset 132:0cbdae7c532f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 05 Dec 1990 18:47:42 +0000
parents d4c523560fe8
children 2f5b3f50773d
files lisp/time.el
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))