From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 27 Apr 2000 02:35:13 +0000 (+0000)
Subject: Eliminate a bunch of compiler warnings.
X-Git-Tag: 20090517-FFI~3976
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=621f89bde8c9c0e547826177e92d5f5bf50d3acb;p=mit-scheme.git

Eliminate a bunch of compiler warnings.
---

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index bb79e3c35..49ed8efc3 100644
--- 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 8507e9c9d..5d1f4dd21 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.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)