From 9519620029e8c090b116e2372a8561e9bea06e92 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 19:12:41 +0000
Subject: [PATCH] Don't echo server's mailbox name to the user.

---
 v7/src/imail/imail-imap.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index e4f25b9c4..85836110e 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-imap.scm,v 1.161 2001/05/24 19:03:52 cph Exp $
+;;; $Id: imail-imap.scm,v 1.162 2001/05/24 19:12:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -1382,7 +1382,7 @@
      (imap:command:no-response connection 'LOGIN user-id pass-phrase))))
 
 (define (imap:command:select connection mailbox)
-  ((imail-ui:message-wrapper "Select mailbox " mailbox)
+  ((imail-ui:message-wrapper "Selecting mailbox")
    (lambda ()
      (imap:command:no-response connection 'SELECT
 			       (imap:encode-mailbox-name mailbox)))))
-- 
2.25.1