(defun startup-echo-area-message ()
  (if (eq (key-binding "\C-h\C-p") 'describe-project)
      "For information about the GNU Project and its goals, type C-h C-p."
    (substitute-command-keys
     "For information about the GNU Project and its goals, type \
\\[describe-project].")))

(defun display-startup-echo-area-message ()
  (let ((resize-mini-windows t))
    (message (startup-echo-area-message))))


(setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")
- lisp/startup.el

(defcustom inhibit-startup-echo-area-message nil
  "*Non-nil inhibits the initial startup echo area message.
Setting this variable takes effect
only if you do it with the customization buffer
or if your `.emacs' file contains a line of this form:
 (setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")

(defun display-startup-echo-area-message ()
  (let ((resize-mini-windows t))
    (message "")))