[Mew-dist 03671] Re: can I use PGP 5.0i ?

[MURATA Nobuhiro]

村田＠牧丘、自分で再度follow です。

先に送った patch だと sign の確認に失敗します。
訂正したpatchを添付します。

----------------------------------------------------------
村田   暢宏           〒404　山梨県東山梨郡牧丘町窪平302-2
MURATA Nobuhiro                     牧丘町立牧丘病院　内科
nob at example.com　　　　　　　　   TEL:0553-35-2025
PFH00076 at example.com                 FAX:0553-35-4434

<<山梨医療情報ネットワーク>>  http://www.y-min.or.jp/~nob/
----------------------------------------------------------

-------------- next part --------------
diff -uNr mew-1.93b12.orig/mew-pgp.el mew-1.93b12/mew-pgp.el
--- mew-1.93b12.orig/mew-pgp.el	Wed Jan 28 21:39:09 1998
+++ mew-1.93b12/mew-pgp.el	Fri Feb  6 00:16:34 1998
@@ -122,7 +122,7 @@
   (message "PGP verifying ... ")
   (save-excursion
     (mew-set-buffer-tmp)
-    (call-process mew-prog-pgp nil t nil 
+    (call-process mew-prog-pgpv nil t nil 
 		  "+batchmode=on" "+language=en" file2 file1)
     (message "PGP verifying ... done")
     (mew-pgp-verify-check)
@@ -155,9 +155,9 @@
       (setq file3 (concat (mew-make-temp-name) mew-pgp-ascii-suffix))
       (mew-set-buffer-tmp)
       (apply (function call-process) 
-	     mew-prog-pgp nil t nil
-	     "-ea" "+language=en" "+batchmode=on" "+armorlines=0"
-	     "-o" file3 file1 decrypters)
+	     mew-prog-pgpe nil t nil
+	     "-a" "+language=en" "+batchmode=on" "+armorlines=0"
+	     "-o" file3 file1 "-r" decrypters)
       (message "PGP encrypting ... done")
       (list file2 nil file3 nil (mew-pgp-encrypt-check)) ;; both ctes are 7bit
       )
@@ -181,7 +181,7 @@
     (setq file3 (mew-make-temp-name))
     (setq process (start-process "PGP decrypt"
 				 (current-buffer)
-				 mew-prog-pgp
+				 mew-prog-pgpv
 				 "+language=en" "+batchmode=off"
 				 "-o" file3 file2))
     (mew-set-process-cs process mew-cs-autoconv mew-cs-noconv)
@@ -225,11 +225,11 @@
     ;; not perfectly unique but OK
     (setq process (start-process "PGP sign"
 				 (current-buffer)
-				 mew-prog-pgp
+				 mew-prog-pgps
 				 "+language=en" "+batchmode=off"
 				 "-u" inherit-signer
 				 "-o" file2
-				 "-sab" file1))
+				 "-ab" file1))
     (mew-set-process-cs process mew-cs-autoconv mew-cs-noconv)
     (set-process-filter process 'mew-pgp-process-filter1)
     (set-process-sentinel process 'mew-pgp-process-sentinel)
@@ -469,7 +469,7 @@
 	(setq user (mew-input-address2 "Who's key? (%s): " mew-mail-address))
 	(save-excursion
 	  (mew-set-buffer-tmp)
-	  (call-process mew-prog-pgp nil t nil "-fkxa" user)
+	  (call-process mew-prog-pgpk nil t nil "-xa" user)
 	  (goto-char (point-min))
 	  (if (not (re-search-forward mew-pgp-key-begin nil t))
 	      (setq error t)
@@ -511,8 +511,8 @@
 	(set-buffer (mew-buffer-message))
 	(let ((buffer-read-only nil))
 	  (message "Adding PGP keys ... ")
-	  (call-process mew-prog-pgp nil t nil 
-			"+batchmode=on" "-ka" mew-pgp-tmp-file)
+	  (call-process mew-prog-pgpk nil t nil 
+			"+batchmode=on" "-a" mew-pgp-tmp-file)
 	  (message "Adding PGP keys ... done")
 	  (insert "\n\n"
 		  "**************** IMPORTANT NOTE ****************\n"
diff -uNr mew-1.93b12.orig/mew-vars.el mew-1.93b12/mew-vars.el
--- mew-1.93b12.orig/mew-vars.el	Thu Jan 29 22:44:53 1998
+++ mew-1.93b12/mew-vars.el	Fri Feb  6 00:14:45 1998
@@ -186,6 +186,10 @@
 (defvar mew-prog-gzip        "gzip")
 (defvar mew-prog-utime       "utime")
 (defvar mew-prog-pgp         "pgp")
+(defvar mew-prog-pgps        "pgps")
+(defvar mew-prog-pgpe        "pgpe")
+(defvar mew-prog-pgpk        "pgpk")
+(defvar mew-prog-pgpv        "pgpv")
 (defvar mew-prog-uncompface  "uncompface")
 (defvar mew-prog-shell       "/bin/sh")
 ;(defvar mew-prog-shell       "cmd.exe")