From 8cfd9a256621507d7d8484f34ef7901e0af8cf55 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Apr 2000 03:26:41 +0000
Subject: [PATCH] Fix typo.

---
 v7/src/imail/imail-umail.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
2.25.1