[Mew-dist 05981] Re: 1.93b53: mew-pgp-ver

[Kazu Yamamoto ( 山本和彦 )]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 05964] Re: 1.93b53: mew-pgp-ver
Date: Tue, 18 Aug 1998 15:28:38 +0900

> ただ、pgp の version の自動判別がうまくいかない環境があることを考える
> と、mew-pgp-ver があらかじめセットされていたら、自動判別せずにその値を
> 用いるというようにしてはどうでしょうか？

裏技程度に用意しました。必ず mew-pgp-ver{2,5} の値を使って下さい。2 と
か 5 とか勝手な値を定義しても知りません。

--かず

*** mew-pgp.el.orig	Tue Aug 18 22:48:04 1998
--- mew-pgp.el	Tue Aug 18 22:49:01 1998
***************
*** 98,113 ****
  (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)
!       (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)
! 	  (setq mew-pgp-ver nil))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;
--- 98,115 ----
  (defun mew-pgp-set-version ()
    (if (not (mew-which mew-prog-pgp exec-path))
        (setq mew-pgp-ver nil)
!     (if mew-pgp-ver
! 	()
!       (save-excursion
! 	(mew-set-buffer-tmp)
! 	(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)
! 	    (setq mew-pgp-ver nil)))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;