From e654f4b02c4a0a288b6134c137d15dc57fefdaae Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Dec 1996 02:45:09 +0000 Subject: [PATCH] (time-stamp-mail-host-name): Get rid of time-stamp-mail-host. --- lisp/time-stamp.el | 8 ++------ 1 file 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 ;; 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 -- 2.39.5