From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 May 2000 20:31:23 +0000 (+0000)
Subject: Reimplement <IMAP-MESSAGE> usage to extend <MESSAGE>, and to cache the
X-Git-Tag: 20090517-FFI~3938
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=134d6d2e82d10676a140d9a1dcc918fac26160a3;p=mit-scheme.git

Reimplement <IMAP-MESSAGE> usage to extend <MESSAGE>, and to cache the
message headers and body on demand.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 34466e298..fca24f385 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.13 2000/05/03 20:29:41 cph Exp $
+;;; $Id: imail-imap.scm,v 1.14 2000/05/03 20:31:23 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -255,7 +255,8 @@
 		  (transform
 		   (translate-string-line-endings
 		    (car
-		     (imap:command:uid-fetch connection
+		     (imap:command:uid-fetch (imap-folder-connection
+					      (message-folder message))
 					     (imap-message-uid message)
 					     (list item-name)))))))
 	     (call-next-method message))))))