Commit 29975121 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

*** empty log message ***

parent 22a72f53
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment