diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-18 02:45:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-18 02:45:09 +0000 |
| commit | 2286e8240162b81acb5ad415f038cadad00b828a (patch) | |
| tree | e0fd55b0906b7e377f92668a68d43c634c96bd02 /lisp | |
| parent | 43753d833091b93d2613fb911c04a1ea63256c9f (diff) | |
| download | emacs-2286e8240162b81acb5ad415f038cadad00b828a.tar.gz | |
(time-stamp-mail-host-name): Get rid of time-stamp-mail-host.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/time-stamp.el | 8 |
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 @@ ;; Originally based on the 19 Dec 88 version of ;; date.el by John Sturdy <mcvax!harlqn.co.uk!jcgs@uunet.uu.net> ;; Version 2, January 1995: replaced functions with %-escapes -;; $Id: time-stamp.el,v 1.22 1996/12/17 00:14:41 rms Exp rms $ +;; $Id: time-stamp.el,v 1.23 1996/12/17 00:19:01 rms Exp rms $ ;;; Code: @@ -255,14 +255,10 @@ Do not alter other %-combinations, and do detect %%." (defun time-stamp-mail-host-name () "Return the name of the host where the user receives mail. This is the value of `mail-host-address' if bound and a string, -otherwise the value of `time-stamp-mail-host' (for versions of Emacs -before 19.29) otherwise the value of the function system-name." +otherwise the value of the function system-name." (or (and (boundp 'mail-host-address) (stringp mail-host-address) mail-host-address) - (and (boundp 'time-stamp-mail-host) ;for backward compatibility - (stringp time-stamp-mail-host) - time-stamp-mail-host) (system-name))) ;;; the rest of this file is for version 1 compatibility |