diff options
| -rw-r--r-- | lisp/time.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/time.el b/lisp/time.el index 3e61e78448d..fe3df1f99ac 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -98,9 +98,7 @@ After each update, `display-time-hook' is run with `run-hooks'." | |||
| 98 | (mail-spool-file (or display-time-mail-file | 98 | (mail-spool-file (or display-time-mail-file |
| 99 | (getenv "MAIL") | 99 | (getenv "MAIL") |
| 100 | (concat rmail-spool-directory | 100 | (concat rmail-spool-directory |
| 101 | (or (getenv "LOGNAME") | 101 | (user-login-name)))) |
| 102 | (getenv "USER") | ||
| 103 | (user-login-name))))) | ||
| 104 | hour am-pm-flag mail-flag) | 102 | hour am-pm-flag mail-flag) |
| 105 | (setq hour (read (substring time 11 13))) | 103 | (setq hour (read (substring time 11 13))) |
| 106 | (if (not display-time-24hr-format) | 104 | (if (not display-time-24hr-format) |