From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Oct 2003 05:31:15 +0000 (+0000)
Subject: Don't require the target of a rename or copy operation to exist.  The
X-Git-Tag: 20090517-FFI~1768
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=46ca30ae421b5e38fa03fe308c91408c5004c281;p=mit-scheme.git

Don't require the target of a rename or copy operation to exist.  The
server should create the appropriate containers and folders.
---

diff --git a/v7/src/imail/imail-browser.scm b/v7/src/imail/imail-browser.scm
index 0e2c4cae0..aa9f95df3 100644
--- a/v7/src/imail/imail-browser.scm
+++ b/v7/src/imail/imail-browser.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: imail-browser.scm,v 1.11 2003/02/14 18:28:14 cph Exp $
+$Id: imail-browser.scm,v 1.12 2003/10/31 05:31:15 cph Exp $
 
-Copyright 2001 Massachusetts Institute of Technology
+Copyright 2001,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -537,8 +537,7 @@ When renaming multiple or marked folders, you specify a container."
 					    " folders into")
 					   #f
 					   'HISTORY 'IMAIL-BROWSER-TRANSFER-N
-					   'HISTORY-INDEX 0
-					   'REQUIRE-MATCH? #t))))
+					   'HISTORY-INDEX 0))))
 	       (for-each
 		(lambda (url)
 		  (operation url
diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 943ec54b7..6b44ce910 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-top.scm,v 1.287 2003/02/14 18:28:14 cph Exp $
+$Id: imail-top.scm,v 1.288 2003/10/31 05:30:33 cph Exp $
 
 Copyright 1999,2000,2001,2002,2003 Massachusetts Institute of Technology
 
@@ -1800,7 +1800,7 @@ Negative argument means search in reverse."
       (apply prompt-for-container prompt #f options)))
 
 (define (prompt-for-url prompt default . options)
-  (%prompt-for-url prompt default options url-exists?))
+  (%prompt-for-url prompt default options #f))
 
 (define (prompt-for-folder prompt default . options)
   (%prompt-for-url prompt default options
@@ -1845,8 +1845,9 @@ Negative argument means search in reverse."
 				  if-unique if-not-unique if-not-found))
 	   (lambda (string)
 	     (url-string-completions string imail-default-url))
-	   (lambda (string)
-	     (predicate (imail-parse-partial-url string)))
+	   (and predicate
+		(lambda (string)
+		  (predicate (imail-parse-partial-url string))))
 	   'DEFAULT-TYPE 'INSERTED-DEFAULT
 	   options)))