Fix compilation errors.

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index aa15d75ae927cef9cd1bdd3b858ee33af8569bdc..c387914b5cbf3ec49ba4aa563cf900dc6f4e534a 100644 (file)
--- 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)))))))
 \f

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index aa170bf952a811fedcec5ba3fda4d2cf6fe0032c..b09e48b1fc6461405b4f8e08c811facabe0302e7 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.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 @@
 \f
 (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 d23be1f238be2c80a59de145ea7c4cd4468314bb..a696bd445097c450ba72a60b985193bb45cad5f0 100644 (file)
--- 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 305121b253c07f9e29a5b832cf5819adc2f00929..8e41bd80f3e24fd391efa9ec015ace1be6447bb3 100644 (file)
--- 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)))))
 \f
 ;;;; Sending mail
 

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 318fec6f69e8130a1c9e56451622530ed5e1e164..fcac00629c01465105da135f490dec50ad8478bf 100644 (file)
--- 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)