From a14d3662640864a399d4c86f2e7dd45862c73781 Mon Sep 17 00:00:00 2001 From: "Taylor R. Campbell" Date: Sun, 27 Nov 2005 06:40:53 +0000 Subject: [PATCH] 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. --- v7/src/imail/imail-file.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.25.1