693 |
(mail-send) |
(mail-send) |
694 |
(mail-bury arg)) |
(mail-bury arg)) |
695 |
|
|
696 |
(defun mail-dont-send (arg) |
(defun mail-dont-send (&optional arg) |
697 |
"Don't send the message you have been editing. |
"Don't send the message you have been editing. |
698 |
Prefix arg means don't delete this window." |
Prefix arg means don't delete this window." |
699 |
(interactive "P") |
(interactive "P") |
700 |
(mail-bury arg)) |
(mail-bury arg)) |
701 |
|
|
702 |
(defun mail-bury (arg) |
(defun mail-bury (&optional arg) |
703 |
"Bury this mail buffer." |
"Bury this mail buffer." |
704 |
(let ((newbuf (other-buffer (current-buffer)))) |
(let ((newbuf (other-buffer (current-buffer)))) |
705 |
(bury-buffer (current-buffer)) |
(bury-buffer (current-buffer)) |