Here is a partial answer:
This goes in the init.el
or .emacs
file:
(setq mail-user-agent 'sendmail-user-agent)
(setq mail-self-blind t)
(setq user-mail-address "WorldsEndless@stackoverflow.com")
Then, M-x compose-email
ALTERNATIVE: Insert the bcc whenever desired. I have added mail-send-and-exit
so that it is possible to do everything at the time of sending if that is what the user prefers. The function worldsendless-mail-bcc
can be further customized to give the user options for selecting different bcc email addresses that are predetermined, or it can be more complex such as looking to see who it is from (i.e., examine the sender email account) to choose a bcc based upon the sender.
(setq mail-bcc "WorldsEndless@stackoverflow.com")
(defun worldsendless-mail-bcc ()
"Move point to end of BCC field, creating it if necessary."
(interactive)
(expand-abbrev)
(or (mail-position-on-field "bcc" t)
(progn (mail-position-on-field "to")
(insert (concat "\nBCC: " mail-bcc) )))
(mail-send-and-exit))