From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Oct 2008 23:59:16 +0000 (+0000)
Subject: Expand mail aliases in "resent-XXX" headers.
X-Git-Tag: 20090517-FFI~105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eefe6e033bc6c2e5e07bd1bf7ba291330035be38;p=mit-scheme.git

Expand mail aliases in "resent-XXX" headers.
---

diff --git a/v7/src/edwin/malias.scm b/v7/src/edwin/malias.scm
index 956022d03..85c8ae34f 100644
--- a/v7/src/edwin/malias.scm
+++ b/v7/src/edwin/malias.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: malias.scm,v 1.13 2008/01/30 20:02:03 cph Exp $
+$Id: malias.scm,v 1.14 2008/10/10 23:59:16 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -73,7 +73,9 @@ USA.
 (define (expand-mail-aliases start end)
   (guarantee-mail-aliases)
   (let loop ((start start))
-    (let ((hs (re-search-forward "^\\(to\\|cc\\|bcc\\):[ \t]*" start end #t)))
+    (let ((hs
+	   (re-search-forward "^\\(resent-\\)?\\(to\\|cc\\|bcc\\):[ \t]*"
+			      start end #t)))
       (if hs
 	  (let ((he
 		 (mark-left-inserting-copy