[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: formの文 字化け



From: Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> さん曰く
Subject: [emacs-w3m:07898] formの文字化け
Message-ID: <uu0ndqfn5.wl%tsuyoshi_cho@yahoo.co.jp>
Date: Tue, 15 Mar 2005 21:04:30 +0900

> ども、長です。
> # 出張先なので、報告だけですm(_ _)m

# じゃ、パッチもつけておきますね :-)

> 現在、添付の環境で使用しているのですが、formでの文字表示が失敗している状態になる
> ことがあります。
> 
> 体験したのは
>  * slashdot.jpのスレッド表示セレクタ

こちらは試せて化けました。excite 翻訳などでも化けますね。

> w3m-version
>  => "w3m/0.3.2+mee-p24-22+moe-1.5.8"

w3mmee 固有の現象ですね。

w3m-url-decode-string() に w3m-current-coding-system (で良いと思
うのだが)を教えてあげれば大丈夫みたいですね。

-- 
白井秀行 (mailto:shirai@meadowy.org)

Index: w3m-form.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-form.el,v
retrieving revision 1.145
diff -u -u -r1.145 w3m-form.el
--- w3m-form.el	4 Mar 2005 00:23:26 -0000	1.145
+++ w3m-form.el	15 Mar 2005 12:44:36 -0000
@@ -455,7 +455,8 @@
 
 (defun w3m-form-mee-new (x)
   "Decode form information of w3mmee."
-  (setq x (w3m-string-to-char-list (w3m-url-decode-string x)))
+  (setq x (w3m-string-to-char-list
+	   (w3m-url-decode-string x w3m-current-coding-system)))
   (let (method enctype action charset target name)
     (setq method (case (/ (w3m-char-to-int (car x)) 16)
 		   (0 "get")
@@ -483,7 +484,8 @@
 
 (defun w3m-form-mee-select-value (value)
   "Decode select form information of w3mmee."
-  (let ((clist (w3m-string-to-char-list (w3m-url-decode-string value)))
+  (let ((clist (w3m-string-to-char-list
+		(w3m-url-decode-string value w3m-current-coding-system)))
 	label val s selected candidates)
     (while clist
       (setq s (eq (car clist) (w3m-int-to-char 1))
@@ -710,7 +712,8 @@
 		  (w3m-form-put form id
 				name
 				(decode-coding-string
-				 (w3m-url-decode-string value)
+				 (w3m-url-decode-string value
+							w3m-current-coding-system)
 				 w3m-output-coding-system))
 		(setq textareas (cons (list textareanumber form id name)
 				      textareas)))