(setq user-mail-address "ejb@ql.org"
      user-full-name "E. Jay Berkenbilt"
      )

(add-hook 'mail-setup-hook
          (function
           (lambda()
             (save-excursion
               (goto-char (point-min))
               (insert "From: " user-full-name " <" user-mail-address ">\n")
               (re-search-forward (concat "BCC: .*"))
               (replace-match (concat "BCC: " user-mail-address))
               (set-buffer-modified-p nil)
             )
           )
          )
          t
)