[5854] in Athena Bugs
Unnecessary dependency in mail-send-and-exit
daemon@ATHENA.MIT.EDU (Barr3y Jaspan)
Sat Aug 25 14:34:15 1990
Date: Sat, 25 Aug 90 14:33:59 -0400
From: "Barr3y Jaspan" <bjaspan@ATHENA.MIT.EDU>
To: bug-gnu-emacs@prep.ai.mit.edu
Cc: bugs@ATHENA.MIT.EDU
(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.
Barr3y, bjaspan@athena.mit.edu
--- snip snip ---
(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))
; (save-excursion
; (set-buffer (window-buffer (next-window (selected-window) 'not)))
; (eq major-mode 'rmail-mode)))
(delete-window)
(switch-to-buffer (other-buffer (current-buffer)))))
