From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Apr 2000 21:50:35 +0000 (+0000)
Subject: Fix compilation problems.
X-Git-Tag: 20090517-FFI~4004
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=585c5ef30e623bc7f84cfb37d3b43288373d5ee1;p=mit-scheme.git

Fix compilation problems.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index ccb997eca..f5acd8316 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.1 2000/04/18 21:44:48 cph Exp $
+;;; $Id: imail-imap.scm,v 1.2 2000/04/18 21:50:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -59,25 +59,25 @@
 ;;;; Server operations
 
 (define-method %open-folder ((url <imap-url>))
-  )
+  ???)
 
 (define-method %new-folder ((url <imap-url>))
-  )
+  ???)
 
 (define-method %delete-folder ((url <imap-url>))
-  )
+  ???)
 
 (define-method %move-folder ((url <imap-url>) (new-url <imap-url>))
-  )
+  ???)
 
 (define-method %copy-folder ((url <imap-url>) (new-url <imap-url>))
-  )
+  ???)
 
 (define-method available-folder-names ((url <imap-url>))
-  )
+  ???)
 
 (define-method subscribed-folder-names ((url <imap-url>))
-  )
+  ???)
 
 ;;;; Folder
 
diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 4c2c3d032..d6751f6bf 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.14 2000/04/18 21:44:47 cph Exp $
+;;; $Id: imail.pkg,v 1.15 2000/04/18 21:50:34 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -149,7 +149,6 @@
 	 "imail-file"
 	 "imail-rmail"
 	 "imail-umail"
-	 "imail-imap-url"
 	 "imail-top")
   (parent (edwin))
   (import (edwin rmail)