diff options
| author | Richard M. Stallman <rms@gnu.org> | 1990-12-05 18:47:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1990-12-05 18:47:42 +0000 |
| commit | 29975121ed73833df9696df91530e4718f19003e (patch) | |
| tree | aa7124315805ae4525af6a5e5dfc5ebdaaa1fc3e /lisp/time.el | |
| parent | 22a72f53979d0f0eee99deea105338928370f9d0 (diff) | |
| download | emacs-29975121ed73833df9696df91530e4718f19003e.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lisp/time.el b/lisp/time.el index b950c2f4b11..8a1f37f8e18 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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 @@ After each update, `display-time-hook' is run with `run-hooks'." (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)) |