Commit 6961bfbf authored by Richard M. Stallman's avatar Richard M. Stallman

(rmail-resend): Delete any Sender field.

parent 0ce830bc
......@@ -1856,6 +1856,15 @@ typically for purposes of moderating a list."
(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)
(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")
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