From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 May 2000 03:37:00 +0000 (+0000)
Subject: Signal "unimplemented" error if AVAILABLE-FOLDER-NAMES called on IMAP URL.
X-Git-Tag: 20090517-FFI~3864
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a9ba830ac5aeeae53049808ca5bb7c4674e03d0a;p=mit-scheme.git

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 62d3ef8c9..5fd4b38d4 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.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))
 
 ;;;; Folder operations
 
diff --git a/v7/src/imail/todo.txt b/v7/src/imail/todo.txt
index e8a1b6dc3..374710959 100644
--- 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.