[9fans] reading email encoded in ISO-2022-JP

[Richard Miller <miller@hamnavoe.demon.co.uk>]

jkk77jkk@yahoo.co.jp said:

>                       ※  未承諾広告　※ご迷惑な方は削除してください。
> 　　　当広告を受信拒否の方は次のメールアドレスに〔受信拒否〕
> 　　として送信してください。その日のうちに削除いたします。ご迷惑でしょうがよろしくお願いいたします　
> 　　　　jk78jkjp@yahoo.co.jp 　　販売者　ギフト　所在地　京都府城陽市寺田８－２
>                                 代表者　山本しおり　　TEL  0774-56-6428　　　　　　　　　　　　
> 　　　　　　5000円で開業しませんか！！

No, I don't know what it means - except that something seems to be
on offer for 5000 yen.

But if you want to be able to see the original message, which was encoded
in iso-2022-jp, just make the following changes to upas/fs:

*** /n/sources/plan9//sys/src/cmd/upas/fs/fs.c	Thu Sep 18 15:55:47 2003
--- /sys/src/cmd/upas/fs/fs.c	Sat Nov  8 19:07:01 2003
***************
*** 1362,1367 ****
--- 1362,1368 ----
  	{ "iso-8859-1",		10,	1, nil, },
  	{ "iso-8859-2",		10,	2, "8859-2", },
  	{ "big5",		4,	2, "big5", },
+  	{ "iso-2022-jp",	11, 2, "jis", },
  };
  
  int
*** /n/sources/plan9//sys/src/cmd/upas/fs/mbox.c	Thu Sep 18 05:20:49 2003
--- /sys/src/cmd/upas/fs/mbox.c	Sat Nov  8 19:08:24 2003
***************
*** 1115,1120 ****
--- 1115,1129 ----
  			m->bend = x + len;
  			m->ballocd = 1;
  		}
+ 	} else if(cistrcmp(s_to_c(m->charset), "iso-2022-jp") == 0){
+ 		len = xtoutf("jis", &x, m->body, m->bend);
+ 		if(len != 0){
+ 			if(m->ballocd)
+ 				free(m->body);
+ 			m->body = x;
+ 			m->bend = x + len;
+ 			m->ballocd = 1;
+ 		}
  	} else if(cistrcmp(s_to_c(m->charset), "windows-1257") == 0
  			|| cistrcmp(s_to_c(m->charset), "windows-1252") == 0){
  		len = is8bit(m);


-- Richard Miller