Commit 70908594 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

parent 69ac1891
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment