From f7b7468e7b628bd57b92a6fee78dadd9aacc6d2b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 15 Mar 2016 13:31:34 +0900
Subject: [PATCH] (est-coded-charset-priority-list): Add `=>cbeta'.
 (www-format-encode-string): Support &A-CBddddd;

---
 cwiki-common.el |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cwiki-common.el b/cwiki-common.el
index f931c80..1454ece 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -87,6 +87,7 @@
     =ruimoku-v6
     =big5
     =big5-cdp
+    =>cbeta
     =ucs-itaiji-001
     =ucs-itaiji-002))
 
@@ -816,8 +817,8 @@
 	  (encode-coding-region (point-min)(point-max) 'utf-8-mcs-er)
 
 	  (goto-char (point-min))
-	  (while (re-search-forward "&CB\\([0-9]+\\);" nil t)
-	    (setq code (string-to-int (match-string 1)))
+	  (while (re-search-forward "&\\(A-\\)?CB\\([0-9]+\\);" nil t)
+	    (setq code (string-to-int (match-string 2)))
 	    (replace-match
 	     (format "<img alt=\"CB%05d\" src=\"%s/cb-gaiji/%02d/CB%05d.gif\"
 style=\"%s\">"
-- 
1.7.10.4