From 943232f7cadea72fc7c9eed5d81258d3c8d3c9e4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 6 Oct 2004 20:27:13 +0000
Subject: [PATCH] .

original commit: 3b1018398c1fe7ffd6732491b7f944ae7d30df21
---
 collects/net/unihead.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/net/unihead.ss b/collects/net/unihead.ss
index ba7f09d10c..a88ca145e1 100644
--- a/collects/net/unihead.ss
+++ b/collects/net/unihead.ss
@@ -53,6 +53,7 @@
 
   (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$")
   (define re:utf-8 #rx#"^[uU][tT][fF]-8$")
   
   (define re:encoded #rx#"^(.*?)=[?]([^?]+)[?]([qQbB])[?](.*?)[?]=(.*)$")
@@ -67,6 +68,9 @@
      [(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)