From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 19:12:41 +0000 (+0000)
Subject: Don't echo server's mailbox name to the user.
X-Git-Tag: 20090517-FFI~2786
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9519620029e8c090b116e2372a8561e9bea06e92;p=mit-scheme.git

Don't echo server's mailbox name to the user.
---

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