From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 25 Feb 2000 15:44:18 +0000 (+0000)
Subject: (rmail-resend): Verify buffer is really Rmail.
X-Git-Tag: emacs-pretest-21.0.90~4878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70908594852f1e55abf0a1b629307923680ce2b5;p=emacs.git

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

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 9110825a244..52dda8aa0c8 100644
--- 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)