Mercurial > emacs
comparison lisp/mail/sendmail.el @ 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 | d483d9923c33 |
children | 61c560010274 |
comparison
equal
deleted
inserted
replaced
13089:c18fa2e296f9 | 13090:b9cc587a5d8b |
---|---|
482 ;; ignore any blank lines in the header | 482 ;; ignore any blank lines in the header |
483 (while (and (re-search-forward "\n\n\n*" delimline t) | 483 (while (and (re-search-forward "\n\n\n*" delimline t) |
484 (< (point) delimline)) | 484 (< (point) delimline)) |
485 (replace-match "\n")) | 485 (replace-match "\n")) |
486 (let ((case-fold-search t)) | 486 (let ((case-fold-search t)) |
487 (goto-char (point-min)) | |
488 ;; Find and handle any FCC fields. | |
489 (goto-char (point-min)) | |
490 (if (re-search-forward "^FCC:" delimline t) | |
491 (mail-do-fcc delimline)) | |
492 (goto-char (point-min)) | 487 (goto-char (point-min)) |
493 (while (re-search-forward "^Resent-to:" delimline t) | 488 (while (re-search-forward "^Resent-to:" delimline t) |
494 (setq resend-to-addresses | 489 (setq resend-to-addresses |
495 (save-restriction | 490 (save-restriction |
496 (narrow-to-region (point) | 491 (narrow-to-region (point) |
567 ;; Insert an extra newline if we need it to work around | 562 ;; Insert an extra newline if we need it to work around |
568 ;; Sun's bug that swallows newlines. | 563 ;; Sun's bug that swallows newlines. |
569 (goto-char (1+ delimline)) | 564 (goto-char (1+ delimline)) |
570 (if (eval mail-mailer-swallows-blank-line) | 565 (if (eval mail-mailer-swallows-blank-line) |
571 (newline)) | 566 (newline)) |
567 ;; Find and handle any FCC fields. | |
568 (goto-char (point-min)) | |
569 (if (re-search-forward "^FCC:" delimline t) | |
570 (mail-do-fcc delimline)) | |
572 (if mail-interactive | 571 (if mail-interactive |
573 (save-excursion | 572 (save-excursion |
574 (set-buffer errbuf) | 573 (set-buffer errbuf) |
575 (erase-buffer)))) | 574 (erase-buffer)))) |
576 (apply 'call-process-region | 575 (apply 'call-process-region |
675 (progn | 674 (progn |
676 (rmail-maybe-set-message-counters) | 675 (rmail-maybe-set-message-counters) |
677 (widen) | 676 (widen) |
678 (narrow-to-region (point-max) (point-max)) | 677 (narrow-to-region (point-max) (point-max)) |
679 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" | 678 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" |
680 "From: " (user-login-name) "\n" | |
681 "Date: " (mail-rfc822-date) "\n") | 679 "Date: " (mail-rfc822-date) "\n") |
682 (insert-buffer-substring curbuf beg2 end) | 680 (insert-buffer-substring curbuf beg2 end) |
683 (insert "\n\C-_") | 681 (insert "\n\C-_") |
684 (goto-char (point-min)) | 682 (goto-char (point-min)) |
685 (widen) | 683 (widen) |
702 (save-excursion | 700 (save-excursion |
703 (set-buffer (get-buffer-create " mail-temp")) | 701 (set-buffer (get-buffer-create " mail-temp")) |
704 (setq buffer-read-only nil) | 702 (setq buffer-read-only nil) |
705 (erase-buffer) | 703 (erase-buffer) |
706 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" | 704 (insert "\C-l\n0, unseen,,\n*** EOOH ***\n" |
707 "From: " (user-login-name) "\n" | |
708 "Date: " (mail-rfc822-date) "\n") | 705 "Date: " (mail-rfc822-date) "\n") |
709 (insert-buffer-substring curbuf beg2 end) | 706 (insert-buffer-substring curbuf beg2 end) |
710 (insert "\n\C-_") | 707 (insert "\n\C-_") |
711 (write-region (point-min) (point-max) (car fcc-list) t) | 708 (write-region (point-min) (point-max) (car fcc-list) t) |
712 (erase-buffer)) | 709 (erase-buffer)) |