martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(add-log-mailing-address): Use user-mail-address.

Browse Source
This commit is contained in:
Richard M. Stallman
1994-06-25 00:35:12 +00:00
parent c10d1f062e
commit fb38ca867d
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/add-log.el
View File

@@ -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