From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 30 Jun 2000 17:21:27 +0000 (+0000)
Subject: Eliminate unused AVAILABLE-FOLDER-NAMES.  This capability is available
X-Git-Tag: 20090517-FFI~3414
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a1979515dbe739b8faf22058853069eb6c22bd7;p=mit-scheme.git

Eliminate unused AVAILABLE-FOLDER-NAMES.  This capability is available
from the completion operations.
---

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index d38cbd2b4..94e06cf88 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.111 2000/06/29 22:01:48 cph Exp $
+;;; $Id: imail-core.scm,v 1.112 2000/06/30 17:21:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -242,12 +242,6 @@
 
 (define-generic %append-message (message url))
 
-;; -------------------------------------------------------------------
-;; Return a list of URLs for folders that match URL-PATTERN.
-;; URL-PATTERN can contain wildcards.
-
-(define-generic available-folder-names (url-pattern))
-
 ;; -------------------------------------------------------------------
 ;; Keep a connection open to the server referenced by URL for the
 ;; dynamic extent of THUNK.
diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index a0f778e1e..7ada7b06f 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.51 2000/06/30 03:08:20 cph Exp $
+;;; $Id: imail-file.scm,v 1.52 2000/06/30 17:21:26 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -77,10 +77,6 @@
        (lambda (url new-url)
 	 (rename-file (file-url-pathname url) (file-url-pathname new-url)))))
 
-(define-method available-folder-names ((url <file-url>))
-  url
-  (error "Unimplemented operation:" 'AVAILABLE-FOLDER-NAMES))
-
 (define-method with-open-connection ((url <file-url>) thunk)
   url
   (thunk))
diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 103470e51..7c811ae2e 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.132 2000/06/30 17:19:53 cph Exp $
+;;; $Id: imail-imap.scm,v 1.133 2000/06/30 17:21:27 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -508,12 +508,6 @@
 	(close-port port)))
   (reset-imap-connection connection))
 
-(define (imap-connection-server-type connection)
-  (let ((greeting (imap-connection-greeting connection)))
-    (cond ((not (string? greeting)) #f)
-	  ((string-search-forward " Cyrus " greeting) 'CYRUS)
-	  (else #f))))
-
 (define (with-open-imap-connection url receiver)
   (let ((connection (get-imap-connection url #f)))
     (dynamic-wind (lambda ()
@@ -1192,10 +1186,6 @@
 				     (message-internal-time message)
 				     (message->string message)))))))))
 
-(define-method available-folder-names ((url <imap-url>))
-  url
-  (error "Unimplemented operation:" 'AVAILABLE-FOLDER-NAMES))
-
 (define-method with-open-connection ((url <imap-url>) thunk)
   (with-open-imap-connection url
     (lambda (connection)