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 0e2c4cae09806446603375adf8baa4767eea83d5..aa9f95df3d773ab0dcbc256c73c0ff6c7dbbae44 100644 (file)
--- 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 943ec54b7f61ec140084de3e02f60109554c0384..6b44ce910f2cdddc7c977c8cc7c9ab30d22ea733 100644 (file)
--- 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)))
 \f