Our mailer here at laas adds a Return Receipt to *every* outgoing mail (this
was requested by our direction).... no need to say that this is rather
annoying...
I notice that if you put an empty Return Receipt, our sendmail does not add
one, so I have the following hack to ask me if I do want a RR.
It should not be to difficult to change this code such that it checks if the
mail is sent to a mail list or not...
here is is:
(setq send-mail-function
(function (lambda ()
(interactive)
(ding)
(if (y-or-n-p "Return Receipt? ")
(setup-new-field "Return-Receipt-To" "[EMAIL PROTECTED]")
(setup-new-field "Return-Receipt-To" ""))
(sendmail-send-it))))
(defun setup-new-field (field value)
(if (not (mail-position-on-field field)) ;It does not exist...
(insert value)))
--
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Francois Felix INGRAND "Read my Lisp... No new syntax" (nil)
LAAS/CNRS: [EMAIL PROTECTED] "La guerre, qu'on voit danser le long des golfes
ACS Tech.: [EMAIL PROTECTED] clairs, a des reflets d'argent" (Anonyme)
