(goto-char (point-min))
(when (re-search-forward "^@setfilename.*$")
  (replace-match "@setfilename mew.jis.info"))