(rmail-resend): Verify buffer is really Rmail.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 9110825a2447f5b01bb5ee257ca3b7349fb3475c..52dda8aa0c8377c75d618edc5ae5dbc8f5878289 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2932,6 +2932,8 @@ typically for purposes of moderating a list."
   (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)