From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 00:26:32 +0000 (+0000)
Subject: Don't use history value as default for source of M-x
X-Git-Tag: 20090517-FFI~2798
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a8b6c95a5243de8609fe8375a3cfd22be836e26;p=mit-scheme.git

Don't use history value as default for source of M-x
imail-rename-folder and M-x imail-copy-folder.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 489f3a60c..e2229593f 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.246 2001/05/24 00:20:07 cph Exp $
+;;; $Id: imail-top.scm,v 1.247 2001/05/24 00:26:32 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1350,7 +1350,6 @@ The folder's type may not be changed."
     (let ((from
 	   (maybe-prompt-for-folder "Rename folder"
 				    'HISTORY 'IMAIL-RENAME-FOLDER-SOURCE
-				    'HISTORY-INDEX 0
 				    'REQUIRE-MATCH? #t)))
       (list from
 	    (prompt-for-folder "Rename folder to"
@@ -1371,7 +1370,6 @@ If it doesn't exist, it is created first."
 	   (maybe-prompt-for-selectable-folder
 	    "Copy folder"
 	    'HISTORY 'IMAIL-COPY-FOLDER-SOURCE
-	    'HISTORY-INDEX 0
 	    'REQUIRE-MATCH? #t)))
       (list from
 	    (prompt-for-folder