From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4321
Path: main.gmane.org!not-for-mail
From: David K}gedal <davidk@lysator.liu.se>
Newsgroups: gmane.emacs.gnus.general
Subject: Handling Resent-CC and -BCC in sendmail.el
Date: Fri, 8 Dec 1995 22:51:29 +0100
Message-ID: <199512082151.WAA22197@tina.lysator.liu.se>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: main.gmane.org 1035145082 29163 80.91.224.250 (20 Oct 2002 20:18:02 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:18:02 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id OAA23812 for <steve@miranova.com>; Fri, 8 Dec 1995 14:32:31 -0800
Original-Received: from konrad.lysator.liu.se (lysnet-gw.lysator.liu.se [130.236.253.6]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <WAA12008@ifi.uio.no> for <ding@ifi.uio.no> ; Fri, 8 Dec 1995 22:51:48 +0100
Original-Received: from tina.lysator.liu.se (tina.lysator.liu.se [130.236.253.14]) by konrad.lysator.liu.se (8.6.11/8.6.11) with ESMTP id WAA03822; Fri, 8 Dec 1995 22:51:34 +0100
Original-Received: (davidk@localhost) by tina.lysator.liu.se (8.6.11/8.6.11) id WAA22197; Fri, 8 Dec 1995 22:51:29 +0100
X-Face: D]XdQ0Lvl](98/?#ke.70P&g#NMUCf!)RIE}'k~=+N;#R2uW:$?JwjbU*jlrOh<0}LlKrwJ
 '+U#<iQtLnEq4>I_Mg|YVK\yHGVs`<cyJs.H_rL_-qNlC@Z{.l>iy-^RoC(Sq'H3Bv*&'aL`!\Sk?[
 Y^soDZ`fP_My5y282q2T<iZe)
Original-To: bug-gnu-emacs@prep.ai.mit.edu
Xref: main.gmane.org gmane.emacs.gnus.general:4321
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4321

In GNU Emacs 19.30.1 (sparc-sun-solaris2.4, X toolkit) of Tue Nov 28 1995 on tiny
configured using `configure  --prefix=/usr/gnu --with-x-toolkit'

When sending mail containing a "Resent-To: foobar" header, the
function sendmail-send-it sees that this is a forwarded mail, and
makes sure that sendmail is not called with -t, but instead finds the
addresses in the "Resent-To:" header and gives them to sendmail.

But it doesn't do anything with Resent-CC or Resent-BCC headers. They
are equally valid headers, although maybe less likely to appear. But
anyway, here is a patch that handles these cases, including removal of
any Resent-BCC headers before actual sending. I believe recent
versions of sendmail can take care of the last bit itself, but many
versions don't.

First a changelog entry

Fri Dec  8 22:44:15 1995  David K}gedal  <davidk@lysator.liu.se>

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

*** /usr/gnu/share/emacs/19.30/lisp/sendmail.el	Fri Nov 10 18:23:39 1995
--- sendmail.el	Fri Dec  8 22:40:37 1995
***************
*** 493,499 ****
  	    (replace-match "\n"))
  	  (let ((case-fold-search t))
  	    (goto-char (point-min))
! 	    (while (re-search-forward "^Resent-to:" delimline t)
  	      (setq resend-to-addresses
  		    (save-restriction
  		      (narrow-to-region (point)
--- 493,499 ----
  	    (replace-match "\n"))
  	  (let ((case-fold-search t))
  	    (goto-char (point-min))
! 	    (while (re-search-forward "^Resent-\\(to\\|cc\\|bcc\\):" delimline t)
  	      (setq resend-to-addresses
  		    (save-restriction
  		      (narrow-to-region (point)
***************
*** 501,507 ****
  					  (end-of-line)
  					  (point)))
  		      (append (mail-parse-comma-list)
! 			      resend-to-addresses))))
  ;;; Apparently this causes a duplicate Sender.
  ;;;	    ;; If the From is different than current user, insert Sender.
  ;;;	    (goto-char (point-min))
--- 501,512 ----
  					  (end-of-line)
  					  (point)))
  		      (append (mail-parse-comma-list)
! 			      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))


-- 
David Kågedal     Lysator Academic Computer Society       davidk@lysator.liu.se
http://www.lysator.liu.se/~davidk/                              +46-13 17 65 89