From 3a8b6c95a5243de8609fe8375a3cfd22be836e26 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 00:26:32 +0000
Subject: [PATCH] Don't use history value as default for source of M-x
 imail-rename-folder and M-x imail-copy-folder.

---
 v7/src/imail/imail-top.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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
-- 
2.25.1