Fix over-long pages.

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 2a70a1057e95782803edd7a662aa819b6c767615..6f8b838320560f110b35635e4692e549be1ab9c4 100644 (file)
--- 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.57 2000/08/05 01:53:41 cph Exp $
+;;; $Id: imail-file.scm,v 1.58 2000/08/05 02:00:10 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -288,7 +288,7 @@
               folder
               (folder-modification-count folder)))
            (loop))))))
-
+\f
 (define-method discard-folder-cache ((folder <file-folder>))
   (close-folder folder))
 

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 7cbe26c53d7f49d2f0da80478ff37c7b622de5cd..7fc85fd89ec39793ff86f24da69aa79f76700127 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.143 2000/08/05 01:53:44 cph Exp $
+;;; $Id: imail-imap.scm,v 1.144 2000/08/05 02:00:05 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -906,13 +906,11 @@
             (guarantee message initpred)
             (call-next-method message))))))
   (reflector message-header-fields 'HEADER-FIELDS
-            (lambda (message initpred)
-              (guarantee-slot-initialized message initpred "headers"
-                                          '(RFC822.HEADER))))
+    (lambda (message initpred)
+      (guarantee-slot-initialized message initpred "header" '(RFC822.HEADER))))
   (reflector message-flags 'FLAGS
-            (lambda (message initpred)
-              (guarantee-slot-initialized message initpred "flags"
-                                          '(FLAGS)))))
+    (lambda (message initpred)
+      (guarantee-slot-initialized message initpred "flags" '(FLAGS)))))
 
 (let ((reflector
        (lambda (generic-procedure slot-name guarantee)
@@ -922,17 +920,15 @@
             (guarantee message initpred)
             (accessor message))))))
   (reflector imap-message-length 'LENGTH
-            (lambda (message initpred)
-              (guarantee-slot-initialized message initpred "length"
-                                          '(RFC822.SIZE))))
+    (lambda (message initpred)
+      (guarantee-slot-initialized message initpred "length" '(RFC822.SIZE))))
   (reflector imap-message-envelope 'ENVELOPE
-            (lambda (message initpred)
-              (guarantee-slot-initialized message initpred "envelope"
-                                          '(ENVELOPE))))
+    (lambda (message initpred)
+      (guarantee-slot-initialized message initpred "envelope" '(ENVELOPE))))
   (reflector imap-message-bodystructure 'BODYSTRUCTURE
-            (lambda (message initpred)
-              (guarantee-slot-initialized message initpred "body structure"
-                                          '(BODYSTRUCTURE)))))
+    (lambda (message initpred)
+      (guarantee-slot-initialized message initpred "MIME structure"
+                                 '(BODYSTRUCTURE)))))
 \f
 (define-method preload-folder-outlines ((folder <imap-folder>))
   (guarantee-imap-folder-open folder)