Mercurial > emacs

changeset 8049:1a8747d19087

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-log-mailing-address): Use user-mail-address.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Jun 1994 00:35:12 +0000
parents 5253d3981da6
children bef2c11470f8
files lisp/add-log.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Sat Jun 25 00:34:11 1994 +0000
+++ b/lisp/add-log.el	Sat Jun 25 00:35:12 1994 +0000
@@ -43,10 +43,9 @@
 
 ;; 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