From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 18 Aug 2000 16:55:20 +0000 (+0000)
Subject: Fix bug: copying messages from IMAP folder to umail folder didn't
X-Git-Tag: 20090517-FFI~3300
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a949ee66522a753890d6dafe1ee8f963ebc856ea;p=mit-scheme.git

Fix bug: copying messages from IMAP folder to umail folder didn't
work, because that operation depended on being able to get the message
body as a string.  But the operation that provided the message body in
that format was eliminated.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 6f8b83832..6bff833d2 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.58 2000/08/05 02:00:10 cph Exp $
+;;; $Id: imail-file.scm,v 1.59 2000/08/18 16:55:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -321,6 +321,11 @@
 (define-class <file-message> (<message>)
   (body define accessor))
 
+(define-method file-message-body ((message <message>))
+  (with-string-output-port
+    (lambda (port)
+      (write-message-body message port))))
+
 (define-method write-message-body ((message <file-message>) port)
   (write-string (file-message-body message) port))
 
@@ -346,7 +351,6 @@
 			winner)))
 	    winner))
       (message-time headers)))
-      
 
 (define (received-header-time header)
   (let ((time