(byte-compile-insert-header): Cope if user-mail-address is unbound.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 333fde26491a6412965b24f78271b3e2116f4177..b368f40e3bf5ca0d14097ca2dc07574a301edaf1 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1376,7 +1376,7 @@ With argument, insert value in current buffer after the form."
    "\000\000\000\n"
    )
   (insert ";;; compiled by "
-         (or user-mail-address
+         (or (and (boundp 'user-mail-address) user-mail-address)
              (concat (user-login-name) "@" (system-name)))
          " on "
          (current-time-string) "\n;;; from file " filename "\n")