(byte-compile-insert-header): Use user-mail-address.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index fa2ef9f3331a2e1bc73660baf263b24751e33490..7af9455848e9f36b577ac16837b263593d8879ef 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1336,7 +1336,7 @@ With argument, insert value in current buffer after the form."
      (if (byte-compile-version-cond byte-compile-compatibility) 18 19)
      "\000\000\000\n"
      )
-    (insert ";;; compiled by " (user-login-name) "@" (system-name) " on "
+    (insert ";;; compiled by " user-mail-address " on "
            (current-time-string) "\n;;; from file " filename "\n")
     (insert ";;; emacs version " emacs-version ".\n")
     (insert ";;; bytecomp version " byte-compile-version "\n;;; "