From 90c31e3afc96666ac5365de7e6d16b782c82d4a0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 19 Sep 2009 14:03:45 +0000 Subject: [PATCH] fix sirmail unicode header handling svn: r16068 --- collects/sirmail/sendr.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/sirmail/sendr.ss b/collects/sirmail/sendr.ss index fa7e7f8c8d..a30bef9505 100644 --- a/collects/sirmail/sendr.ss +++ b/collects/sirmail/sendr.ss @@ -759,7 +759,7 @@ [body-lines (regexp-split #rx"\n" (substring message-str (cdar m) (string-length message-str)))]) - (validate-header (regexp-replace #rx"[^\x0-\xFF]" header "_")) + (validate-header (regexp-replace* #rx"[^\x0-\xFF]" header "_")) (let* ([to* (sm-extract-addresses (extract-field "To" header))] [to (map encode-for-header (map car to*))] [cc* (sm-extract-addresses (extract-field "CC" header))]