Mercurial > emacs
changeset 13716:00bd8662272d
(sendmail-send-it): Added support for Resent-CC and
Resent-BCC headers.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 13 Dec 1995 02:19:05 +0000 |
| parents | 89ffc133f813 |
| children | d7bb4093a950 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Dec 13 02:17:09 1995 +0000 +++ b/lisp/mail/sendmail.el Wed Dec 13 02:19:05 1995 +0000 @@ -493,7 +493,7 @@ (replace-match "\n")) (let ((case-fold-search t)) (goto-char (point-min)) - (while (re-search-forward "^Resent-to:" delimline t) + (while (re-search-forward "^Resent-\\(to\\|cc\\|bcc\\):" delimline t) (setq resend-to-addresses (save-restriction (narrow-to-region (point) @@ -501,7 +501,12 @@ (end-of-line) (point))) (append (mail-parse-comma-list) - resend-to-addresses)))) + resend-to-addresses))) + ;; Delete Resent-BCC ourselves + (if (save-excursion (beginning-of-line) + (looking-at "resent-bcc")) + (delete-region (save-excursion (beginning-of-line) (point)) + (save-excursion (end-of-line) (1+ (point)))))) ;;; Apparently this causes a duplicate Sender. ;;; ;; If the From is different than current user, insert Sender. ;;; (goto-char (point-min))