When examining prompt history, ignore malformed URLs that generate

errors during parsing.

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index f68040b9a1f654baf75422ac37c3476fc64975f3..b5e7d48051a72163db15e56e5cd689096eda153d 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.206 2000/07/04 05:12:30 cph Exp $
+;;; $Id: imail-top.scm,v 1.207 2000/07/05 01:04:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1290,11 +1290,16 @@ If it doesn't exist, it is created first."
            (prompt-for-imail-url-string
             "Copy messages to folder"
             (make-peer-url
-             (let ((history
-                    (prompt-history-strings 'IMAIL-COPY-FOLDER-TARGET)))
-               (if (pair? history)
-                   (imail-parse-partial-url (car history))
-                   (imail-default-url)))
+             (or (let ((history
+                        (prompt-history-strings 'IMAIL-COPY-FOLDER-TARGET)))
+                   (and (pair? history)
+                        (let ((url
+                               (ignore-errors
+                                (lambda ()
+                                  (imail-parse-partial-url (car history))))))
+                          (and (url? url)
+                               url))))
+                 (imail-default-url))
              (url-base-name (imail-parse-partial-url from)))
             'HISTORY 'IMAIL-COPY-FOLDER-TARGET))))
   (lambda (from to)