[mew-dist 21845] 公開鍵にサインしてなかった場合
KOIE Hidetaka ( 鯉江英隆 )
hide at example.com
2002年 10月 3日 (木) 13:56:58 JST
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>
Mew-dist メーリングリストの案内