# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 800578877 0
# Node ID d9b1cec100c63dae67be6b57b82bd2a2aa7c3bc6
# Parent  f470809e6a6079371ebf7a7e1ce164550a36c724
(byte-compile-insert-header): Cope if user-mail-address is unbound.

diff -r f470809e6a60 -r d9b1cec100c6 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Mon May 15 23:00:16 1995 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon May 15 23:01:17 1995 +0000
@@ -1376,7 +1376,7 @@
    "\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")