procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-resend): Delete any Sender field.

Browse source
This commit is contained in:
Richard M. Stallman 1993-08-05 06:54:58 +00:00
parent 0ce830bc26
commit 6961bfbfdc
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/rmail.el
View file

@ -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)
(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")