From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Apr 2000 03:26:41 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~4095
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8cfd9a256621507d7d8484f34ef7901e0af8cf55;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index e2813295c..24f5721c5 100644
--- a/v7/src/imail/imail-umail.scm
+++ b/v7/src/imail/imail-umail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-umail.scm,v 1.10 2000/04/06 03:25:27 cph Exp $
+;;; $Id: imail-umail.scm,v 1.11 2000/04/06 03:26:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -68,7 +68,7 @@
 (define-method %revert-folder ((folder <umail-folder>))
   (set-file-folder-messages!
    folder
-   (call-with-binary-input-file pathname
+   (call-with-binary-input-file (file-folder-pathname folder)
      (lambda (port)
        (let ((from-line (read-line port)))
 	 (if (eof-object? from-line)