From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 11 Feb 1994 21:54:44 +0000 (+0000)
Subject: (display-time-filter):  Remove unnecessary (getenv "LOGNAME") and (getenv
X-Git-Tag: emacs-19.34~9942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df00183bf8cae1714b8af7764f6e5116ab9cfbb7;p=emacs.git

(display-time-filter):  Remove unnecessary (getenv "LOGNAME") and (getenv
"USER"), since (user-login-name) already does this.
---

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'."
 	(mail-spool-file (or display-time-mail-file
 			     (getenv "MAIL")
 			     (concat rmail-spool-directory
-				     (or (getenv "LOGNAME")
-					 (getenv "USER")
-					 (user-login-name)))))
+				     (user-login-name))))
 	hour am-pm-flag mail-flag)
     (setq hour (read (substring time 11 13)))
     (if (not display-time-24hr-format)