[mew-dist 26134] gnupg 1.4.1

[Koyama Mituru]

小山です。

　gnupg 1.4.0, 1.4.1では、キーの信頼性が不十分なとき、

WARNING: This key is not certified with sufficiently trusted signatures!

というメッセージを出すようです。

Index: mew-pgp.el
===================================================================
RCS file: /cvsmew/mew/mew-pgp.el,v
retrieving revision 1.69
diff -u -r1.69 mew-pgp.el
--- mew-pgp.el	14 Mar 2005 03:45:55 -0000	1.69
+++ mew-pgp.el	16 Mar 2005 14:18:52 -0000
@@ -352,17 +352,20 @@
       (if (search-forward "not certified with enough" nil t)
 	  (setq ret (concat ret " MARGINAL"))
 	(goto-char (point-min))
-	(if (search-forward "not trusted" nil t)
-	    (setq ret (concat ret " UNTRUSTED"))
+	(if (search-forward "not certified with sufficiently" nil t)
+	    (setq ret (concat ret " MARGINAL"))
 	  (goto-char (point-min))
-	  (if (search-forward "not certified with a" nil t)
-	      ;; PGP uses "unknown" for validity internally, but
-	      ;; prints "undefined" instead of "unknown".
-	      (setq ret (concat ret " UNDEFINED"))
+	  (if (search-forward "not trusted" nil t)
+	      (setq ret (concat ret " UNTRUSTED"))
 	    (goto-char (point-min))
-	    (if (search-forward "expired" nil t)
-		(setq ret (concat ret " EXPIRED"))
-	      (setq ret (concat ret " COMPLETE")))))))
+	    (if (search-forward "not certified with a" nil t)
+		;; PGP uses "unknown" for validity internally, but
+		;; prints "undefined" instead of "unknown".
+		(setq ret (concat ret " UNDEFINED"))
+	      (goto-char (point-min))
+	      (if (search-forward "expired" nil t)
+		  (setq ret (concat ret " EXPIRED"))
+		(setq ret (concat ret " COMPLETE"))))))))
     ret))
 
 (defun mew-pgp-verify (file1 file2)

という修正は不十分でしょうか。

　よろしくお願いします。

-- 
小山満    mew at example.com
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     189 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/20050316/80c062f1/attachment.bin>