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

.

Browse Source 
original commit: a6c84c07ea3523f048e7e75353df0dab156f5f09
This commit is contained in:
Matthew Flatt 2004-10-14 18:37:21 +00:00
parent dff35f8603
commit b1c4a712a8
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/net/unihead.ss
View File

@ -51,6 +51,7 @@
;; ----------------------------------------
(define re:us-ascii #rx#"^[uS][sS]-[aA][sS][cC][iI][iI]$")
(define re:iso #rx#"^[iI][sS][oO]-8859-1$")
(define re:gb #rx#"^[gG][bB](2312)?$")
(define re:ks_c #rx#"^[kK][sS]_[cC]_5601-1987$")
@ -62,15 +63,19 @@
;; Treat Latin-1 as Windows-1252 and also threat GB and GB2312
;; as GBK, because some mailers are broken.
(cond
[(regexp-match re:iso encoding) (if (bytes? encoding)
#"WINDOWS-1252"
"WINDOWS-1252")]
[(regexp-match re:gb encoding) (if (bytes? encoding)
#"GBK"
"GBK")]
[(regexp-match re:ks_c encoding) (if (bytes? encoding)
#"CP949"
"CP949")]
[(or (regexp-match re:iso encoding)
(regexp-match re:us-ascii encoding))
(if (bytes? encoding)
#"WINDOWS-1252"
"WINDOWS-1252")]
[(regexp-match re:gb encoding)
(if (bytes? encoding)
#"GBK"
"GBK")]
[(regexp-match re:ks_c encoding)
(if (bytes? encoding)
#"CP949"
"CP949")]
[else encoding]))
(define (decode-for-header s)