From 70908594852f1e55abf0a1b629307923680ce2b5 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 25 Feb 2000 15:44:18 +0000 Subject: [PATCH] (rmail-resend): Verify buffer is really Rmail. --- lisp/mail/rmail.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.39.5