From 07256f94ff90af3c5359987a1600e0dfd44f33f2 Mon Sep 17 00:00:00 2001
From: Paul Graunke <ptg@ccs.neu.edu>
Date: Mon, 22 Apr 2002 19:08:19 +0000
Subject: [PATCH] Improved str->arg to quote arguments with * characters as
 well as spaces. (Okay, now everyone reading the log file knows one character
 in my password.)

original commit: 238ace92fd00a3f8db5dd5fbc1613ceca0a51baa
---
 collects/net/imap-unit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.ss
index eda55be..6e6cfc1 100644
--- a/collects/net/imap-unit.ss
+++ b/collects/net/imap-unit.ss
@@ -160,8 +160,9 @@
 		(log-warning "warning: unexpected response for ~a: ~a" id l)
 		(loop)])))))
 
+      ; str->arg is still not quite right.  It should use {n}crnl prefixes.
       (define (str->arg s)
-	(if (or (regexp-match " " s)
+	(if (or (regexp-match "[ *]" s)
 		(string=? s ""))
 	    (format "\"~a\"" s)
 	    s))