[comp.emacs] overriding header fields in GNU Emacs mail mode

agw@broadway.columbia.edu (Art Werschulz) (07/22/87)

Hello.

Can anybody tell me how to automatically insert a mail header of the
form 
  Reply-To: xxxx
where xxx is some fixed string.

How come?  I would prefer all of my mail to be sent out with
  Reply-To: agw@columbia.edu
rather than
  Reply-To: agw@foo.columbia.edu
(if I'm currently using the machine "foo").  This will allow me to
communicate more easily with people whose domain servers try to
process the "foo", rather than sending it on to columbia.edu, which
can then process the "foo".

Thanks.
	Art Werschulz

 	ARPAnet:  agw@columbia.edu
	USEnet:   ... seismo!columbia!agw
	BITnet:   agw%columbia.edu@wiscvm
	CCNET:    agw@columbia
	ATTnet:   Columbia University (212) 280-3610 280-2736
		  Fordham University  (212) 841-5323 841-5396

dplatt@teknowledge-vaxc.ARPA (Dave Platt) (07/22/87)

Here's how I add headers to my outgoing GNUmacs mail:

(setq mail-setup-hook 'init-mail)

(defun init-mail ()
  (turn-on-auto-fill)
  (abbrev-mode 0)
  (read-mail-headers))

(defun read-mail-headers ()
  (if (file-exists-p "~/.headers")
      (save-excursion
	(goto-char(point-max))
	(if (re-search-backward "^--text follows")
	    (insert-file-contents (expand-file-name "~/.headers"))))))

It's probably not the best way to do this, but it does work.

The sendmail.cf file on a BSD4.x system can be tweaked to
automatically include a "Reply-to:" header of almost any desirable
format;  unfortunately, you must be the superuser to do this, and the
change will affect all users.  Its biggest win is that it works
for all mail-sending agents, GNUmacs and otherwise.