From c0c9c36a7a9a05644be94482f20dee590ec00871 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 5 Aug 2000 02:00:10 +0000
Subject: [PATCH] Fix over-long pages.

---
 v7/src/imail/imail-file.scm |  4 ++--
 v7/src/imail/imail-imap.scm | 28 ++++++++++++----------------
 2 files changed, 14 insertions(+), 18 deletions(-)

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 2a70a1057..6f8b83832 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.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))))))
-
+
 (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 7cbe26c53..7fc85fd89 100644
--- 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)))))
 
 (define-method preload-folder-outlines ((folder <imap-folder>))
   (guarantee-imap-folder-open folder)
-- 
2.25.1