Mercurial > emacs
diff 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 |
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)