🚀 go-pugleaf

In article <9008251833.AA22332@STEVE-DALLAS.MIT.EDU>, bjaspan@ATHENA ("Barr3y Jaspan") writes:
 |
 |(emacs-version)
 |"GNU Emacs 18.54.22 of Fri May 11 1990 on minos (berkeley-unix)"
 |
 |mail-send-and-exit (in sendmail.el) requires that the buffer in the
 |next window is in rmail-mode for it to be deleted.  I can't think of
 |any good reason for this requirement, and can think of several reasons
 |against it (mail should not have any knowledge or dependency on rmail,
 |other mail systems should be able to use mail just as rmail does, etc
 |etc).
 |
 |The commented lines below should be removed.

Except that this causes a parenthesis to be removed that should stay. The
correct code is:

(defun mail-send-and-exit (arg)
  "Send message like mail-send, then, if no errors, exit from mail buffer.
Prefix arg means don't delete this window."
  (interactive "P")
  (mail-send)
  (bury-buffer (current-buffer))
  (if (and (not arg)
	   (not (one-window-p)))
      (delete-window)
    (switch-to-buffer (other-buffer (current-buffer)))))
-- 
Piet* van Oostrum, Dept of Computer Science, Utrecht University,
Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands.
Telephone: +31 30 531806   Uucp:   uunet!mcsun!ruuinf!piet
Telefax:   +31 30 513791   Internet:  piet@cs.ruu.nl   (*`Pete')