Signal "unimplemented" error if AVAILABLE-FOLDER-NAMES called on IMAP URL.

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 62d3ef8c9349885b864e0eaa9f88d945d4ce792a..5fd4b38d4154c2e7426b795e59f595b9951c30a1 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.41 2000/05/16 03:33:38 cph Exp $
+;;; $Id: imail-imap.scm,v 1.42 2000/05/16 03:36:17 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -551,7 +551,8 @@
        (message-body message)))))
 
 (define-method available-folder-names ((url <imap-url>))
-  ???)
+  url
+  (error "Unimplemented operation:" 'AVAILABLE-FOLDER-NAMES))
 \f
 ;;;; Folder operations
 

diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index e8a1b6dc38aadddb45fb0339d62beed4c8187c2b..374710959dcc7ce8e352c9a5943de580753e5e3b 100644 (file)
--- a/v7/src/imail/todo.txt
+++ b/v7/src/imail/todo.txt
@@ -1,5 +1,5 @@
 IMAIL To-Do List
-$Id: todo.txt,v 1.12 2000/05/16 03:34:42 cph Exp $
+$Id: todo.txt,v 1.13 2000/05/16 03:37:00 cph Exp $
 
 Bug fixes
 ---------
@@ -70,6 +70,5 @@ New features
 
 * Implement file backup when writing file folders.
 
-* Write folder browser for IMAP servers.  Implement operations for
-  IMAP: %NEW-FOLDER, %DELETE-FOLDER, %MOVE-FOLDER, %COPY-FOLDER,
+* Write folder browser for IMAP servers.  Implement
   AVAILABLE-FOLDER-NAMES.