Mercurial > emacs

comparison lisp/mail/sendmail.el @ 825:f3eb45ffe06d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Jul 1992 02:48:51 +0000
parents 38b2499cb3e9
children 20674ae6bf52
comparison
equal deleted inserted replaced
824:b7ba8d69e136 825:f3eb45ffe06d
192 "Send message like mail-send, then, if no errors, exit from mail buffer. 192 "Send message like mail-send, then, if no errors, exit from mail buffer.
193 Prefix arg means don't delete this window." 193 Prefix arg means don't delete this window."
194 (interactive "P") 194 (interactive "P")
195 (mail-send) 195 (mail-send)
196 (bury-buffer (current-buffer)) 196 (bury-buffer (current-buffer))
197 (if (or (one-window-p) arg) 197 (if (and (not arg)
198 (switch-to-buffer (other-buffer (current-buffer))) 198 (not (one-window-p))
199 (delete-window))) 199 (save-excursion
200 (set-buffer (window-buffer (next-window (selected-window) 'not)))
201 (eq major-mode 'rmail-mode)))
202 (delete-window)
203 (switch-to-buffer (other-buffer (current-buffer)))))
200 204
201 (defun mail-send () 205 (defun mail-send ()
202 "Send the message in the current buffer. 206 "Send the message in the current buffer.
203 If `mail-interactive' is non-nil, wait for success indication 207 If `mail-interactive' is non-nil, wait for success indication
204 or error messages, and inform user. 208 or error messages, and inform user.