# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951493458 0
# Node ID 210900dff9a556c22d302c98dbeb8b52afd4f6d4
# Parent  a36c3e02f43b6eedcca056d33a4b0e40aaf2ed57
(rmail-resend): Verify buffer is really Rmail.

diff -r a36c3e02f43b -r 210900dff9a5 lisp/mail/rmail.el
--- 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)