Mercurial > emacs
comparison lisp/mail/rmail.el @ 27871:210900dff9a5
(rmail-resend): Verify buffer is really Rmail.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 25 Feb 2000 15:44:18 +0000 |
| parents | 5df0d6bbeca6 |
| children | b75299f3bc4c |
comparison
equal
deleted
inserted
replaced
| 27870:a36c3e02f43b | 27871:210900dff9a5 |
|---|---|
| 2930 Optional ALIAS-FILE is alternate aliases file to be used by sendmail, | 2930 Optional ALIAS-FILE is alternate aliases file to be used by sendmail, |
| 2931 typically for purposes of moderating a list." | 2931 typically for purposes of moderating a list." |
| 2932 (interactive "sResend to: ") | 2932 (interactive "sResend to: ") |
| 2933 (require 'sendmail) | 2933 (require 'sendmail) |
| 2934 (require 'mailalias) | 2934 (require 'mailalias) |
| 2935 (unless (eq rmail-buffer (current-buffer)) | |
| 2936 (error "Not an Rmail buffer")) | |
| 2935 (if (not from) (setq from user-mail-address)) | 2937 (if (not from) (setq from user-mail-address)) |
| 2936 (let ((tembuf (generate-new-buffer " sendmail temp")) | 2938 (let ((tembuf (generate-new-buffer " sendmail temp")) |
| 2937 (case-fold-search nil) | 2939 (case-fold-search nil) |
| 2938 (mailbuf rmail-buffer)) | 2940 (mailbuf rmail-buffer)) |
| 2939 (unwind-protect | 2941 (unwind-protect |