mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues 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