Eliminate a bunch of compiler warnings.

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index bb79e3c35c03da6f02f80fb63150e3809636d412..49ed8efc36343b74ea28c8b125e63ab83c8b6fe5 100644 (file)
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.19 2000/04/25 03:39:44 cph Exp $
+;;; $Id: imail.pkg,v 1.20 2000/04/27 02:35:11 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -127,22 +127,56 @@
          imap:char-set:text-char
          imap:match:tag
          imap:parse:section
+         imap:parse:server
+         imap:parse:simple-message
          imap:quoted-char?
          imap:quoted-special?
          imap:string-may-be-quoted?
-         imap:write-literal-string
+         imap:write-literal-string-body
+         imap:write-literal-string-header
          imap:write-quoted-string))
 
 (define-package (edwin imail imap-response)
   (files "imap-response")
   (parent (edwin imail))
   (export (edwin imail)
-         imap:read-server-response))
+         imap:find-response
+         imap:read-server-response
+         imap:response-code:alert?
+         imap:response-code:permanentflags
+         imap:response-code:permanentflags?
+         imap:response-code:uidvalidity
+         imap:response-code:uidvalidity?
+         imap:response-code:unseen
+         imap:response-code:unseen?
+         imap:response:bye?
+         imap:response:capabilities
+         imap:response:capability?
+         imap:response:continue?
+         imap:response:exists-count
+         imap:response:exists?
+         imap:response:expunge-index
+         imap:response:expunge?
+         imap:response:fetch?
+         imap:response:flags
+         imap:response:flags?
+         imap:response:list?
+         imap:response:lsub?
+         imap:response:no?
+         imap:response:ok?
+         imap:response:preauth?
+         imap:response:recent?
+         imap:response:response-text-code
+         imap:response:response-text-string
+         imap:response:search?
+         imap:response:status?
+         imap:response:tag))
 
 (define-package (edwin imail)
   (files "imail-util"
         "imail-core"
         "imail-file"
+        "imail-imap"
         "imail-rmail"
         "imail-umail"
         "imail-top")

diff --git a/v7/src/imail/imap-response.scm b/v7/src/imail/imap-response.scm
index 8507e9c9dfc6331a926a99ba5ec47008b977928c..5d1f4dd21b737b36c74fe6462d183ee89007b785 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.6 2000/04/25 03:48:24 cph Exp $
+;;; $Id: imap-response.scm,v 1.7 2000/04/27 02:35:13 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -464,7 +464,7 @@
           (error "Missing response keyword:" keyword))))
 
 
-(define (imap:response:status? response)
+(define (imap:response:status-response? response)
   (memq (car response) '(OK NO BAD PREAUTH BYE)))
 
 (define (imap:response:expunge-index response)