From xemacs-m  Tue Jul 22 03:18:26 1997
Received: from kurims.kurims.kyoto-u.ac.jp (kurims.kurims.kyoto-u.ac.jp [130.54.16.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id DAA29614
	for <xemacs-beta@xemacs.org>; Tue, 22 Jul 1997 03:17:16 -0500 (CDT)
Received: from orion.kurims.kyoto-u.ac.jp (orion.kurims.kyoto-u.ac.jp [130.54.16.5]) by kurims.kurims.kyoto-u.ac.jp (8.8.5/3.4W2) with SMTP id RAA25250 for <xemacs-beta@xemacs.org>; Tue, 22 Jul 1997 17:17:02 +0900 (JST)
Received: (from petersen@localhost) by orion.kurims.kyoto-u.ac.jp (SMI-8.6/3.5Wbeta) id RAA11955; Tue, 22 Jul 1997 17:17:02 +0900
Date: Tue, 22 Jul 1997 17:17:02 +0900
Message-Id: <199707220817.RAA11955@orion.kurims.kyoto-u.ac.jp>
From: Jens-Ulrik Holger Petersen <petersen@kurims.kyoto-u.ac.jp>
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: charset registry string case sensitive? and Japanese w3
X-Mailer: VM 6.33 under 20.3 "Vienna" XEmacs  Lucid (beta14)
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII

1) Up to now, I didn't set-language-environment, for various
reasons: the basic one I can remember is because in the Japanese
environment fetching binary files under w3 is broken (I don't
know whether it is w3's fault or not).  The problem seems to be
caused by the

	(set-default-buffer-file-coding-system  'euc-jp)

in (define-language-environment 'japanese ...) in
"language/japanese.el".  At least after commenting that out, I
can fetch binary files with no problem so far.


2) To try to understand that, I looked at the definition of
set-language-environment (in "mule/mule-misc.el") a couple of times:

(defun set-language-environment (env)
  "Set the current language environment to ENV."
  (interactive
   (list (intern (completing-read "Language environment: "
				  obarray 'language-environment-p
				  'require-match))))
  (when (not (string= (charset-registry 'ascii) "ISO8859-1"))
    (set-charset-registry 'ascii "ISO8859-1"))
  (let ((func (get env 'set-lang-environ)))
    (if (not (null func))
	(funcall func)))
  (setq current-language-environment env)
  (if (featurep 'egg)
      (egg-lang-switch-callback))
;;  (if (featurep 'quail)
;;      (quail-lang-switch-callback))
)

Question: I have 

	(charset-registry 'ascii)
	=> "iso8859-1"

so
	(not (string= (charset-registry 'ascii) "ISO8859-1"))
	=> t

Is that intentional, insignificant or a buglet?

Jens

