[Mew-dist 09815] Re: Does switching PGP 2.xi and GnuPG requires Mew to restart?

[Kazu Yamamoto ( 山本和彦 )]

From: Makoto MATSUSHITA (まつしたまこと) <matusita at example.com>
Subject: [Mew-dist 09728] Re: Does switching PGP 2.xi and GnuPG requires Mew to restart?
Date: Fri, 16 Jul 1999 21:38:57 +0900

> mew-prog-pgp[esvdk] の値は，mew-pgp.el で defvar されており，この値は，
> 仮に後で mew-prog-pgp の値を変更しても変更されることは決してありません．
> なので，PGP する際に利用する program の名前は(mew-prog-pgp の値を後で変
> 更しても)変更できない気がします．

失礼しました。現在動的に設定できるように変更しています。それで、以前
mew-pgp-set-version が動かない人がいたと思います。確か神戸さんだったよ
うな。そのときは、mew-pgp-ver を .emacs で設定すると、PGP を起動しない
ようにしました。今回動的に mew-pgp-ver を設定しますので、この仕様を取
り止めます。

というわけで、mew-pgp-set-version がまともに動かないといけません。それ
で、PGP との通信に PIPE ではなく、PTY を使えばいいのではないかと思い付
きました。むかし、動かなかった人は、下記のコードを評価して、
	M-: (mew-pgp-set-version)
で実行し、mew-pgp-ver が正しく設定されるか確かめて下さい。

(defun mew-pgp-set-version ()
  (if (not (mew-which mew-prog-pgp exec-path))
      (setq mew-pgp-ver nil)
    (save-excursion
      (mew-set-buffer-tmp)
      (let ((process-connection-type t))
        (call-process 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 (point-min))
        (if (search-forward "Pretty Good Privacy(tm) 2" nil t)
            (setq mew-pgp-ver mew-pgp-ver2)
          (goto-char (point-min))
          (if (search-forward "gpg" nil t)
              (setq mew-pgp-ver mew-pgp-verg)
            (setq mew-pgp-ver nil)))))))

--かず