diff options
| author | Richard M. Stallman | 2003-05-03 13:52:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-05-03 13:52:57 +0000 |
| commit | 8451b5e9c5c623b448da294162e2cb3807caf414 (patch) | |
| tree | 95b3335850a5460b82a6544cdbb2af9b4cdf2d77 | |
| parent | 0d63ba8cd934e29d3df01dcfd863b9018556486f (diff) | |
| download | emacs-8451b5e9c5c623b448da294162e2cb3807caf414.tar.gz emacs-8451b5e9c5c623b448da294162e2cb3807caf414.zip | |
(mail-dont-send, mail-bury): Make ARG optional.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 7ce31eaeb47..e89dc3392f5 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -693,13 +693,13 @@ Prefix arg means don't delete this window." | |||
| 693 | (mail-send) | 693 | (mail-send) |
| 694 | (mail-bury arg)) | 694 | (mail-bury arg)) |
| 695 | 695 | ||
| 696 | (defun mail-dont-send (arg) | 696 | (defun mail-dont-send (&optional arg) |
| 697 | "Don't send the message you have been editing. | 697 | "Don't send the message you have been editing. |
| 698 | Prefix arg means don't delete this window." | 698 | Prefix arg means don't delete this window." |
| 699 | (interactive "P") | 699 | (interactive "P") |
| 700 | (mail-bury arg)) | 700 | (mail-bury arg)) |
| 701 | 701 | ||
| 702 | (defun mail-bury (arg) | 702 | (defun mail-bury (&optional arg) |
| 703 | "Bury this mail buffer." | 703 | "Bury this mail buffer." |
| 704 | (let ((newbuf (other-buffer (current-buffer)))) | 704 | (let ((newbuf (other-buffer (current-buffer)))) |
| 705 | (bury-buffer (current-buffer)) | 705 | (bury-buffer (current-buffer)) |