Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!rpi!masscomp!glasperl!andyo
From: andyo@glasperl..westford.ccur.com (Andy Oram)
Newsgroups: comp.emacs
Subject: Re: Making sendmail prompt the user before sending
Message-ID: <61187@masscomp.ccur.com>
Date: 19 Sep 90 17:33:45 GMT
Sender: news@masscomp.ccur.com
Reply-To: andyo@masscomp.UUCP (Andy Oram)
Followup-To: comp.emacs
Lines: 36

Throw out all the changes I posted to sendmail.  If I had just dug a little
deeper in the lisp functions, I would have found the solution below.  Thanks
to Frank P. Bresz for sending it to me.  Sorry for wasting net bandwidth on
my previous posting.

> 	(setq send-mail-function (function (lambda ()
> 				(interactive)
> 				(if (y-or-n-p "Really send? ")
> 				    (sendmail-send-it)
>       				  (error "Send Aborted")))))
> 
> | ()  ()  () | Frank P. Bresz   | Westinghouse Electric Corporation
> |  \  /\  /  | fpb@ittc.wec.com | ITTC Simulators Department
> |   \/  \/   | uunet!ittc!fpb   | Those who can, do. Those who can't, simulate.
> | ---------- | (412)733-6749    | My opinions are mine, WEC don't want 'em.


-------------------------------------------------------------------------------

Andrew Oram                            Concurrent Computer Corporation
(I don't represent Concurrent; this message represents my own opinion)

Digital Communications Route: andyo@westford.ccur.com.{harvard,uunet,petsd}
                              {harvard,uunet,petsd}!masscomp!andyo
Analog Communications Route:  (508) 392-2865

Automatic UN*X documentation utility:

          cref | compress | crypt | man

-------------------------------------------------------------------------------
--

-------------------------------------------------------------------------------

Andrew Oram                            Concurrent Computer Corporation