;;; 応急処置です。面倒だから凝る気なし。(^^;
(add-hook 'mew-message-hook	;; 生JIS Subject: も表示する
	  (function	
	   (lambda ()	
	     (save-excursion
	       (set-buffer (mew-buffer-message))
	       (let ((buffer-read-only nil))
		 (goto-char (point-min))
		 (while (re-search-forward
			 "\033$[@B][^\033]+\033([BJ]" nil t)
		   (mew-cs-decode-region (match-beginning 0)
					 (match-end 0)
					 *junet*)))))))