X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-add.el;h=9a12ea83aa27397a5e5bef6ad5436ed8671ff980;hb=e2c5c27a1d90c0d0c3127f4c9f95056666bea5b0;hp=554d04833bc02c1a6935576bfaa0d2fdf84d01a6;hpb=1662baf81ca538b8384053ce2ef5ee69ecbbf199;p=chise%2Fest.git

diff --git a/cwiki-add.el b/cwiki-add.el
index 554d048..9a12ea8 100644
--- a/cwiki-add.el
+++ b/cwiki-add.el
@@ -3,6 +3,7 @@
 (defvar chise-wiki-edit-url "edit.cgi")
 
 (require 'cwiki-common)
+(require 'est-xml)
 
 (defun www-add-display-feature-input-box (char &optional format)
   (unless format
@@ -25,7 +26,7 @@ size=\"64\" maxlength=\"256\" value=\"\">
 (defun www-add-display-char-desc (uri-char &optional lang format)
   (when (stringp format)
     (setq format (intern format)))
-  (let ((char (www-uri-decode-char uri-char))
+  (let ((char (www-uri-decode-object 'character uri-char))
 	char-spec)
     (when (characterp char)
       (princ
@@ -119,7 +120,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)</p>
 	(princ (format "lang=%S\n" lang))
 	(princ emacs-version)
 	(princ " CHISE ")
-	(princ xemacs-chise-version)
+	(princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er))
 	(princ "
 </body>
 </html>")