Mercurial > emacs
changeset 13090:b9cc587a5d8b
(sendmail-send-it): Handle FCC after all text changes.
(mail-do-fcc): Don't add From field here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Sep 1995 02:34:44 +0000 |
| parents | c18fa2e296f9 |
| children | 9f60089ce2bb |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Sep 27 17:39:32 1995 +0000 +++ b/lisp/mail/sendmail.el Thu Sep 28 02:34:44 1995 +0000 @@ -485,11 +485,6 @@ (replace-match "\n")) (let ((case-fold-search t)) (goto-char (point-min)) - ;; Find and handle any FCC fields. - (goto-char (point-min)) - (if (re-search-forward "^FCC:" delimline t) - (mail-do-fcc delimline)) - (goto-char (point-min)) (while (re-search-forward "^Resent-to:" delimline t) (setq resend-to-addresses (save-restriction @@ -569,6 +564,10 @@ (goto-char (1+ delimline)) (if (eval mail-mailer-swallows-blank-line) (newline)) + ;; Find and handle any FCC fields. + (goto-char (point-min)) + (if (re-search-forward "^FCC:" delimline t) + (mail-do-fcc delimline)) (if mail-interactive (save-excursion (set-buffer errbuf) @@ -677,7 +676,6 @@ (widen) (narrow-to-region (point-max) (point-max)) (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" - "From: " (user-login-name) "\n" "Date: " (mail-rfc822-date) "\n") (insert-buffer-substring curbuf beg2 end) (insert "\n\C-_") @@ -704,7 +702,6 @@ (setq buffer-read-only nil) (erase-buffer) (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" - "From: " (user-login-name) "\n" "Date: " (mail-rfc822-date) "\n") (insert-buffer-substring curbuf beg2 end) (insert "\n\C-_")