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 d38cbd2b438b9faee24994d5f4e451d10eda634d..94e06cf889102196907ebf62793c7c9b63c45945 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.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 a0f778e1ea98f838faa6e7b5a1308c4ad2603ae3..7ada7b06fc8803574f4c63f99ae4981c34ec72c1 100644 (file)
--- 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 103470e518b762aeb4d78b1e72b7c2f0a967fc7f..7c811ae2e378e02e7d46e1abe225dbeac1d99143 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.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)