[mew-win32 03335] .emacs で (cd "~") すると PGP がないと怒られる

[Ken'ichi Toyotome]

とよとめと申します。駆け込みです。(^^;

以下の環境です。

Mew 2.0 pre4
Windows 2000 SP2
Meadow 1.14 (AWSAKA)

以前、PGP 5.5 を利用するために Windows のほうで PGPPATH を
設定していました。PGP 5.5 のクリップボードで暗号化や符号化
したものをコピーアンドペーストで利用していました。

この設定を外して Mew を起動すると次のようなメッセージがミニ
バッファに表示されて先に進まなくなりました。

Searching for program: no such file or directory, pgp

念のため、PGPPATH の設定を戻しましたがそれでもこのメッセージが
表示されます。調べてみると .emacs に (cd "~") と書いていると
怒られることがわかりました。.mew.el に書くのは大丈夫のようです。

(cd "~") しておくと C-x C-f した時にファイルを探す時に
ホームディレクトリを見てくれるので便利なのですが、この設定は
邪道なのでしょうか。

UNIX の環境(Mew 2.0pre4, Emacs 21.0.98.2, FreeBSD 4.3 Release)
では大丈夫のようでした。

念のため、Backtrace をつけておきます。
よろしくお願いします。


----
Ken'ichi Toyotome      tome at example.com


-------------- next part --------------
Signaling: (file-error "Searching for program" "no such file or directory" "pgp")
  call-process("pgp" nil t nil)
  apply(call-process "pgp" nil t nil nil)
  (let ((process-environment ...)) (setenv "LANGUAGE" "en") (apply (function call-process) prog infile buffer display args))
  mew-call-process-lang("pgp" nil t nil)
  (save-excursion (set-buffer buf) (mew-erase-buffer) (mew-call-process-lang mew-prog-pgp nil t nil) (goto-char (point-min)) (if (search-forward "PGP is now invoked" nil t) (setq mew-pgp-ver mew-pgp-ver5) (goto-char ...) (if ... ... ... ...)))
  (let ((buf ...)) (save-excursion (set-buffer buf) (mew-erase-buffer) (mew-call-process-lang mew-prog-pgp nil t nil) (goto-char ...) (if ... ... ... ...)) (mew-remove-buffer buf))
  (cond ((mew-which-exec mew-prog-pgp) (let ... ... ...)) (t (setq mew-pgp-ver nil)))
  mew-pgp-setup()
  mew-status-update(t)
  (let ((buf ...)) (switch-to-buffer buf) (mew-window-configure (quote ...)) (mew-hello) (message "Setting Mew world ... ") (run-hooks (quote mew-env-hook)) (mew-set-environment) (load mew-rc-file (quote no-err)) (run-hooks (quote mew-init-hook)) (mew-status-update t) (mew-passwd-setup) (mew-highlight-timer-setup) (setq mew-init-p t) (message "Setting Mew world ... done") (mew-remove-buffer buf))
  mew-init()
  (if (null mew-init-p) (mew-init))
  mew(nil)
  call-interactively(mew)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)