From: Taylor R. Campbell <net/mumble/campbell>
Date: Sun, 27 Nov 2005 06:40:53 +0000 (+0000)
Subject: Avert infinite recursion in WRITE-MESSAGE-BODY on file methods by
X-Git-Tag: 20090517-FFI~1176
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a14d3662640864a399d4c86f2e7dd45862c73781;p=mit-scheme.git

Avert infinite recursion in WRITE-MESSAGE-BODY on file methods by
having file external message accessor methods return the item being
accessed if it is not a file external reference, instead of calling the
next method in that case.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index ec1d5cd41..4e568c878 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: imail-file.scm,v 1.84 2003/02/14 18:28:14 cph Exp $
+$Id: imail-file.scm,v 1.85 2005/11/27 06:40:53 riastradh Exp $
 
-Copyright 1999,2000,2001,2002,2003 Massachusetts Institute of Technology
+Copyright 1999,2000,2001,2002,2003,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -514,7 +514,7 @@ USA.
 	     (xsubstring (file-message-xstring message)
 			 (file-external-ref/start item)
 			 (file-external-ref/end item)))
-	    (call-next-method message))))))
+            item)))))
 
 (define-file-external-message-method message-header-fields
   <file-message>