File texi2utf8.emacs of Package emacs-wanderlust

#!/bin/sh
for i in $(find . -name "*.texi*")
do 
emacs -q -batch  $i \
       -eval '(set-language-environment "Japanese")' \
       -eval '(replace-regexp "\\(-\\*-.*coding:\\s-*\\)\\(\\S-+\\)\\(\\s-*-\\*-\\)" "\\1utf-8\\3")' \
       -eval '(set-buffer-file-coding-system (quote utf-8))' \
       -eval '(set-buffer-modified-p t)' \
       -eval '(save-buffer 0)'
done