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 |