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

fix sirmail header checking, since encoding was moved to later

Browse Source 
svn: r11924
This commit is contained in:
Matthew Flatt 2008-10-02 11:54:03 +00:00
parent ab864d4888
commit e99645136b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/sirmail/sendr.ss
View File

@ -741,7 +741,7 @@
[body-lines (regexp-split [body-lines (regexp-split
#rx"\n" #rx"\n"
(substring message-str (cdar m) (string-length message-str)))]) (substring message-str (cdar m) (string-length message-str)))])
(validate-header header) (validate-header (regexp-replace #rx"[^\x0-\xFF]" header "_"))
(let* ([to* (sm-extract-addresses (extract-field "To" header))] (let* ([to* (sm-extract-addresses (extract-field "To" header))]
[to (map encode-for-header (map car to*))] [to (map encode-for-header (map car to*))]
[cc* (sm-extract-addresses (extract-field "CC" header))] [cc* (sm-extract-addresses (extract-field "CC" header))]
@ -762,6 +762,8 @@
[new-header (append-headers std-header prop-header)] [new-header (append-headers std-header prop-header)]
[tos (map cdr (append to* cc* bcc*))]) [tos (map cdr (append to* cc* bcc*))])
(validate-header new-header)
(as-background (as-background
enable enable
(lambda (break-bad break-ok) (lambda (break-bad break-ok)