Fix typo.

diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index e2813295c8cc7d8dc10b80eb509bdac6e7266bbe..24f5721c53fff846645f839e6c1c3adaa67a522f 100644 (file)
--- 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)