[mew-dist 22450] "(mail ..." command cannot be sent with kanji.

[psbfan at example.com]

石井と申します。
lisp初心者です。

頻繁にe-mailを出す人用にmailを使った関数定義を
しようと思い、テストに

(defun test-mail ()
(interactive)
(mail nil "user at example.com" "test mail" nil nil nil nil)
(goto-char (point-max))
(insert "greeting message"))

として、addressとsubject,
それに冒頭の挨拶文を固定して\M-x test-mailで
送信してみたのですがgreeting messageが7-bit
ならうまくいきますが、EUCで"お世話になります"
式のものにかえるとsending ... doneとは
mini bufferに表示されるものの実際には
送信されていません。

どう解決すればよいでしょう。
また、mewのsource codeで関連しているあたり
を探すにはどのfileをみればよいでしょう。

アドバイスしていただけると有り難いです。
よろしくお願いします。