diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-13 02:19:05 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-13 02:19:05 +0000 |
| commit | 40c89175936f17b4099fafa1c915a8230ccaa76a (patch) | |
| tree | da23bdd74217491676ba8cfa95d4d951214ce390 | |
| parent | 17d66d2fe5cec95b5217ae1aef9e8a69e8594c24 (diff) | |
| download | emacs-40c89175936f17b4099fafa1c915a8230ccaa76a.tar.gz | |
(sendmail-send-it): Added support for Resent-CC and
Resent-BCC headers.
| -rw-r--r-- | lisp/mail/sendmail.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index a6dbc481ae5..f7b1d82e61a 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -493,7 +493,7 @@ the user from the mailer." (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 @@ the user from the mailer." (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)) |