From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2000 18:55:41 +0000 (+0000)
Subject: Fix compilation errors.
X-Git-Tag: 20090517-FFI~3857
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6dc9693df680074c57b963dc1d088d0f785c73a1;p=mit-scheme.git

Fix compilation errors.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index aa15d75ae..c387914b5 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.60 2000/05/16 04:14:33 cph Exp $
+;;; $Id: imail-core.scm,v 1.61 2000/05/16 18:55:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -360,7 +360,7 @@
 (define-generic message-internal-time (message))
 
 (define-method message-internal-time ((message <message>))
-  (let loop ((headers (get-all-header-fields headers "received")) (winner #f))
+  (let loop ((headers (get-all-header-fields message "received")) (winner #f))
     (if (pair? headers)
 	(call-with-values
 	    (lambda ()
@@ -371,7 +371,7 @@
 	    (loop (cdr headers)
 		  (if (or (not winner) (< time winner)) time winner))))
 	(or winner
-	    (let ((date (get-first-header-field-value headers "date" #f)))
+	    (let ((date (get-first-header-field-value message "date" #f)))
 	      (and date
 		   (string->universal-time date)))))))
 
diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index aa170bf95..b09e48b1f 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.44 2000/05/16 15:14:13 cph Exp $
+;;; $Id: imail-imap.scm,v 1.45 2000/05/16 18:55:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -711,7 +711,7 @@
 
 (define (imap:command:no-response connection command . arguments)
   (let ((response
-	 (apply imap:command:no-response-1 connection command . arguments)))
+	 (apply imap:command:no-response-1 connection command arguments)))
     (if (not (imap:response:ok? response))
 	(error "Server signalled a command error:" response))))
 
diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index d23be1f23..a696bd445 100644
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.27 2000/05/15 19:20:55 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.28 2000/05/16 18:55:38 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -182,7 +182,7 @@
   ;; **** Do backup of file here.
   (call-with-binary-output-file pathname
     (lambda (port)
-      (write-rmail-file-header (rmail-folder-header-fields folder))
+      (write-rmail-file-header (rmail-folder-header-fields folder) port)
       (for-each (lambda (message) (write-rmail-message message port))
 		(file-folder-messages folder)))))
 
@@ -194,10 +194,11 @@
 	  (close-port port))
 	(call-with-binary-output-file pathname
 	  (lambda (port)
-	    (write-rmail-file-header (make-rmail-folder-header-fields '()))
+	    (write-rmail-file-header (make-rmail-folder-header-fields '())
+				     port)
 	    (write-rmail-message message port))))))
 
-(define (write-rmail-file-header header-fields)
+(define (write-rmail-file-header header-fields port)
   (write-string "BABYL OPTIONS: -*- rmail -*-" port)
   (newline port)
   (write-header-fields header-fields port)
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 305121b25..8e41bd80f 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.45 2000/05/16 02:16:49 cph Exp $
+;;; $Id: imail-top.scm,v 1.46 2000/05/16 18:55:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -664,8 +664,7 @@ Completion is performed over known flags when reading."
       (append-message message url-string)
       (message-filed message)
       (if (ref-variable imail-delete-after-output)
-	  ((ref-command imail-delete-forward) #f))
-      (save-folder folder))))
+	  ((ref-command imail-delete-forward) #f)))))
 
 ;;;; Sending mail
 
diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 318fec6f6..fcac00629 100644
--- a/v7/src/imail/imap-response.scm
+++ b/v7/src/imail/imap-response.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imap-response.scm,v 1.16 2000/05/16 15:14:16 cph Exp $
+;;; $Id: imap-response.scm,v 1.17 2000/05/16 18:55:41 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -292,7 +292,7 @@
     (let ((i (substring-search-forward "\r\n" string 0 n)))
       (if i
 	  (let loop ((i i) (n n))
-	    (let* ((n (substring-move! s (fix:+ i 1) n s i))
+	    (let* ((n (substring-move! string (fix:+ i 1) n string i))
 		   (i (substring-search-forward "\r\n" string (fix:+ i 1) n)))
 	      (if i
 		  (loop i n)