Ah, I see, that page shared/community-member.tcl uses a function called
ad_return_top_of_page, which is explicitly setting the content
type, and it doesn't set the charset properly (i.e., the content type
should be "text/html; charset=shift_jis")
I think someone mentioned in another thread that they fixed this in my charset patches, by patching ad_return_top_of_page.
As a quick hack for Japanese, you could define
proc_doc ad_return_top_of_page {first_part_of_page {content_type "text/html; charset=shift_jis"}} "Re
turns HTTP headers plus the top of the user-ivisible page. Saves a TCP packet (and therefore some ov
erhead) compared to using ReturnHeaders and an ns_write." {
set all_the_headers "HTTP/1.0 200 OK
MIME-Version: 1.0
Content-Type: $content_type
"
util_WriteWithExtraOutputHeaders $all_the_headers $first_part_of_page
}