suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix sirmail unicode header handling

Browse Source 
svn: r16068
This commit is contained in:
Matthew Flatt 2009-09-19 14:03:45 +00:00
parent f3613ade6f
commit 90c31e3afc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/sirmail/sendr.ss
View File

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