[mew-dist 21845] 公開鍵にサインしてなかった場合

[KOIE Hidetaka ( 鯉江英隆 )]

GNUPGのメッセージが変更になったみたいで
サインしてない鍵で暗号化しようとしたことにmewが気付きません。

koie% gpg -e --batch -r koie at example.com -r XXX FILE
gpg: Warning: using insecure memory!
gpg: please see http://www.gnupg.org/faq.html for more information
gpg: XXXXXXXX: There is no indication that this key really belongs to the owner
koie% 

2002-09-24に変更になったようです。


暗号化につかえる鍵が1つもなかった場合は以下のようになります。

koie% gpg -e --batch -r XXX FILE
gpg: Warning: using insecure memory!
gpg: please see http://www.gnupg.org/faq.html for more information
gpg: XXXXXXXX: There is no indication that this key really belongs to the owner
gpg: no valid addressees
gpg: foo: encryption failed: no such user id
koie% 

暗号化が失敗した直接の原因は "no such user id" よりも
"There is no indication ..." の方なので
mew-pgp-encrypt-check()で検査する順序を変えた方がよさそうです。
..とはいってもmewは必ず自分の鍵でも暗号化しようとするので
(つまりmewは自分の鍵を持つよう強制しているので)
順序を入れ替えることに意味はないかもしれません。


Index: mew-pgp.el
===================================================================
RCS file: /cvsmew/mew/mew-pgp.el,v
retrieving revision 1.36
diff -u -F^( -r1.36 mew-pgp.el
--- mew-pgp.el	2002/08/28 12:06:49	1.36
+++ mew-pgp.el	2002/10/03 04:33:14
@@ -142,7 +142,7 @@ (defconst mew-pgp-msg-no-validkey
   '("DUMMY"
     "^WARNING:[ -9;-~\n]+belongs? to:"
     "^WARNING:[ -9;-~\n]+belongs? to:"
-    "no info to calculate a trust probability")) ;;xxx
+    "There is no indication that this key really belongs to the owner")) ;;xxx ;;koie
 
 (defconst mew-pgp-msg-no-vrfkey
   '("Key matching" "unknown keyid" "key does not meet" "public key not found"))
@@ -411,14 +411,14 @@ (defun mew-pgp-verify-old (file)
 (defun mew-pgp-encrypt-check ()
   (let (ret) ;; this should be nil
     (goto-char (point-min))
-    (if (search-forward (mew-pgp-get mew-pgp-msg-no-enckey) nil t)
-	(setq ret mew-pgp-result-pubkey)
+    (if (re-search-forward (mew-pgp-get mew-pgp-msg-no-validkey) nil t)
+        (setq ret mew-pgp-result-invalid)
       (goto-char (point-min))
-      (if (search-forward (mew-pgp-get mew-pgp-msg-no-keyring) nil t)
-	  (setq ret mew-pgp-result-pubring)
-	(goto-char (point-min))
-	(if (re-search-forward (mew-pgp-get mew-pgp-msg-no-validkey) nil t)
-	    (setq ret mew-pgp-result-invalid))))
+      (if (search-forward (mew-pgp-get mew-pgp-msg-no-enckey) nil t)
+          (setq ret mew-pgp-result-pubkey)
+        (goto-char (point-min))
+        (if (search-forward (mew-pgp-get mew-pgp-msg-no-keyring) nil t)
+            (setq ret mew-pgp-result-pubring))))
     ret))
 
 (defun mew-pgp-encrypt (file1 decrypters)



--
KOIE Hidetaka 鯉江英隆 <hide at example.com>