[Mew-dist 04419] Re: PGP public key fetch

[Hideyuki SHIRAI]

白井です。

From: Masachika ISHIZUKA <ishizuka at example.com> さん曰く
Subject: [Mew-dist 04418] Re: PGP public key fetch
Message-ID: <19980416234112R.ishizuka at example.com>
Date: Thu, 16 Apr 1998 23:41:23 +0900

石塚> > もしかして、pgp5を使われていて、pgpの吐き出すメッセージの形式が
石塚> > 違う、何てことありますか?
石塚> 
石塚>   どうもありがとうございます。
石塚>   pgp 5.0i を使ってるので、多分、メッセージ形式が違うんだと
石塚> 思います。うーん、でも、どうやって調べればいいんだろう？

石塚さんの御協力をあおいで、『PGP public key fetch』も『pgp 5.0i』
対応になることができました。そのパッチです。

Subject: [Mew-dist 04292] PGP public key fetch
From: Hideyuki SHIRAI <Shirai at example.com>
To: mew-dist at example.com
X-Mail-Count: 04292

のパッチをあてた後に、もう一度あててください。

# ついでに、"IMPORTANT NOTE" のメッセージも pgp5 対応にしました。

-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     366 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19980417/1f8665c2/attachment.bin>
-------------- next part --------------
--- mew-pgp.el.orig	Fri Apr 17 09:27:46 1998
+++ mew-pgp.el	Fri Apr 17 13:54:27 1998
@@ -56,6 +56,7 @@
  (mew-use-pgp5
   (defconst mew-pgp-msg-no-key    "unknown keyid")
   (defconst mew-pgp-msg-signature "\n\\(.*\\) signature made")
+  (defconst mew-pgp-msg-key-id    ": \\(0x[0-9A-Za-z]+\\)")
   (setq mew-prog-pgpe-arg "-a")
   (setq mew-prog-pgps-arg "-ba")
   (setq mew-prog-pgpk-add-arg "-a")
@@ -64,6 +65,7 @@
  (t
   (defconst mew-pgp-msg-no-key    "Key matching")
   (defconst mew-pgp-msg-signature "\n\\(.*\\) signature from user \\(.*\\)\\.")
+  (defconst mew-pgp-msg-key-id    "Key ID \\(\\S +\\) not found")
   (setq mew-prog-pgpe-arg "-ea")
   (setq mew-prog-pgps-arg "-sba")
   (setq mew-prog-pgpk-add-arg "-ka")
@@ -118,10 +120,13 @@
 	(if (re-search-forward mew-pgp-msg-no-key nil t)
 	    (progn
 	      (setq keyid
-		    (if (re-search-forward "Key ID \\(\\S +\\) not found" nil t)
-			(setq keyid (concat "0x"
-					    (buffer-substring-no-properties
-					     (match-beginning 1) (match-end 1))))
+		    (if (re-search-forward mew-pgp-msg-key-id nil t)
+			(if mew-use-pgp5
+			    (setq keyid (buffer-substring-no-properties
+					 (match-beginning 1) (match-end 1)))
+			  (setq keyid (concat "0x"
+					      (buffer-substring-no-properties
+					       (match-beginning 1) (match-end 1)))))
 		      "not found"))
 	      (setq ret (concat mew-pgp-result-pubkey " ID = " keyid)))
 	  (goto-char (point-min))
@@ -563,8 +568,11 @@
 		  "When Mew adds PGP keys onto your public keyring,\n"
 		  "it is careless about both TRUST and VALIDITY.\n"
 		  "It is YOU who set these values. Please use\n"
-		  "\"pgp -ke\" and \"pgp -ks\" to change them.\n"
-		  "If you don't know what TRUST and VALIDITY is,\n"
+		  )
+	  (if mew-use-pgp5
+	      (insert "\"pgpk -e\" and \"pgpk -s\" to change them.\n")
+	    (insert "\"pgp -ke\" and \"pgp -ks\" to change them.\n"))
+	  (insert "If you don't know what TRUST and VALIDITY is,\n"
 		  "you should learn the web of trust system BEFORE\n"
 		  "using PGP to protect your privacy.\n"
 		  "**************** IMPORTANT NOTE ****************\n"
-------------- next part --------------
おかげさまで、私も PGP 5.0i のコンパイルに成功しました。
イロイロとありがとうございました。> 石塚さん

--
白井秀行 (Hideyuki SHIRAI)