aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/time-stamp.el8
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index 81399aecc3d..85351d741f8 100644
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -40,7 +40,7 @@
40;; Originally based on the 19 Dec 88 version of 40;; Originally based on the 19 Dec 88 version of
41;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> 41;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net>
42;; Version 2, January 1995: replaced functions with %-escapes 42;; Version 2, January 1995: replaced functions with %-escapes
43;; $Id: time-stamp.el,v 1.22 1996/12/17 00:14:41 rms Exp rms $ 43;; $Id: time-stamp.el,v 1.23 1996/12/17 00:19:01 rms Exp rms $
44 44
45;;; Code: 45;;; Code:
46 46
@@ -255,14 +255,10 @@ Do not alter other %-combinations, and do detect %%."
255(defun time-stamp-mail-host-name () 255(defun time-stamp-mail-host-name ()
256 "Return the name of the host where the user receives mail. 256 "Return the name of the host where the user receives mail.
257This is the value of `mail-host-address' if bound and a string, 257This is the value of `mail-host-address' if bound and a string,
258otherwise the value of `time-stamp-mail-host' (for versions of Emacs 258otherwise the value of the function system-name."
259before 19.29) otherwise the value of the function system-name."
260 (or (and (boundp 'mail-host-address) 259 (or (and (boundp 'mail-host-address)
261 (stringp mail-host-address) 260 (stringp mail-host-address)
262 mail-host-address) 261 mail-host-address)
263 (and (boundp 'time-stamp-mail-host) ;for backward compatibility
264 (stringp time-stamp-mail-host)
265 time-stamp-mail-host)
266 (system-name))) 262 (system-name)))
267 263
268;;; the rest of this file is for version 1 compatibility 264;;; the rest of this file is for version 1 compatibility