From fb38ca867d26fa7aa524879fa63efef00d53e2d9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 25 Jun 1994 00:35:12 +0000 Subject: [PATCH] (add-log-mailing-address): Use user-mail-address. --- lisp/add-log.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index 721ef24ccfd..6980578c68a 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -43,10 +43,9 @@ This defaults to the value returned by the `user-full-name' function.") ;; This MUST not be autoloaded, since user-login-name ;; cannot be known at Emacs dump time. -(defvar add-log-mailing-address (concat (user-login-name) "@" (system-name)) +(defvar add-log-mailing-address user-mail-address "*Electronic mail address of user, for inclusion in ChangeLog daily headers. -This defaults to the value returned by `user-login-name', followed by -an `@' character, followed by the value returned by `system-name'.") +This defaults to the value of `user-mail-address'.") (defun change-log-name () (or change-log-default-name -- 2.39.5