# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744533698 0
# Node ID acb5dda629d70772884c826101732e1ffd6001e0
# Parent  cbfcf187b5da5f8507a28b70dc785e5399245bb0
(rmail-resend): Delete any Sender field.

diff -r cbfcf187b5da -r acb5dda629d7 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Thu Aug 05 01:51:54 1993 +0000
+++ b/lisp/mail/rmail.el	Thu Aug 05 06:54:58 1993 +0000
@@ -1856,6 +1856,15 @@
 	  (set-buffer tembuf)
 	  (insert-buffer-substring mailbuf)
 	  (goto-char (point-min))
+	  ;; Delete any Sender field, since that's not specifyable.
+	  (if (re-search-forward "^Sender:" nil t)
+	      (let (beg)
+		(beginning-of-line)
+		(setq beg (point))
+		(forward-line 1)
+		(while (looking-at "[ \t]")
+		  (forward-line 1))
+		(delete-region beg (point))))
 	  ;;>> Insert resent-from:
 	  (insert "Resent-From: " from "\n")
 	  (insert "Resent-Date: " (mail-rfc822-date) "\n")