Mercurial > emacs
changeset 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 | a36c3e02f43b |
| children | 277f4365f2fa |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Feb 25 15:42:23 2000 +0000 +++ b/lisp/mail/rmail.el Fri Feb 25 15:44:18 2000 +0000 @@ -2932,6 +2932,8 @@ (interactive "sResend to: ") (require 'sendmail) (require 'mailalias) + (unless (eq rmail-buffer (current-buffer)) + (error "Not an Rmail buffer")) (if (not from) (setq from user-mail-address)) (let ((tembuf (generate-new-buffer " sendmail temp")) (case-fold-search nil)