Mercurial > emacs

changeset 4457:acb5dda629d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-resend): Delete any Sender field.
author Richard M. Stallman <rms@gnu.org>
date Thu, 05 Aug 1993 06:54:58 +0000
parents cbfcf187b5da
children cef07afc1e9e
files lisp/mail/rmail.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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")