From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 8 Sep 2008 22:27:02 +0000 (+0000)
Subject: When walking the body of a message/rfc822 body to insert the latter
X-Git-Tag: 20090517-FFI~172
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7eb0456662c1ea8d18466d23049942d6757684b;p=mit-scheme.git

When walking the body of a message/rfc822 body to insert the latter
in-line, add BODY to the selector to disambiguate the message/rfc822
body from its own body.  MIME selectors as used by the front end
continue to diverge from IMAP sections, which appear to make little
sense (although this requires further testing with more IMAP server
implementations).
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 0e5b290ff..9eeaecd43 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-top.scm,v 1.313 2008/09/08 20:40:59 riastradh Exp $
+$Id: imail-top.scm,v 1.314 2008/09/08 22:27:02 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -2582,7 +2582,7 @@ WARNING: With a prefix argument, this command may take a very long
   (insert-header-fields (mime-body-message-header-fields body) #f mark)
   (walk-mime-body entity
 		  (mime-body-message-body body)
-		  selector
+		  `(,@selector BODY)
 		  (make-walk-mime-subcontext context body #f)
 		  mark
 		  insert-mime-body-inline