# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 818821145 0
# Node ID 00bd8662272dd7b9262d1cd81090a95034b0940e
# Parent  89ffc133f81320fb2a292701e7d24da06a2c144d
(sendmail-send-it): Added support for Resent-CC and
Resent-BCC headers.

diff -r 89ffc133f813 -r 00bd8662272d lisp/mail/sendmail.el
--- 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))