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 34466e298ee196eef17fda010ba640e9d90334bd..fca24f385a87e3ab2f1f4f8fcb3f88541b91c111 100644 (file)
--- 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))))))