From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 13 Dec 1995 02:19:05 +0000 (+0000)
Subject: (sendmail-send-it): Added support for Resent-CC and
X-Git-Tag: emacs-19.34~2144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e34da22f006fec1a9b6b4bec0bce4824349feb3;p=emacs.git

(sendmail-send-it): Added support for Resent-CC and
Resent-BCC headers.
---

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))