From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 15 May 1995 23:01:17 +0000 (+0000)
Subject: (byte-compile-insert-header): Cope if user-mail-address is unbound.
X-Git-Tag: emacs-19.34~4039
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09bc9531d918220dabff9d1f2ffddd0df81e08b6;p=emacs.git

(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 333fde26491..b368f40e3bf 100644
--- 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")