[Mew-dist 05401] Re: 1.93b45

[Hideyuki SHIRAI ( 白井秀行 )]

From: Chifumi Hayashi (林　千史) <chifumi at example.com> さん曰く
Subject: [Mew-dist 05399] Re: 1.93b45
Message-ID: <199807060546.OAA23466 at example.com>
Date: Mon, 6 Jul 1998 14:50:14 +0900

>   ただ、3) ですが、こればバグが生まれたのでしょうか・・。 b45 で 
> PGP したメール (私の場合は C-cC-e) を b45 で受け取って鍵を開ける
> とメールの本文がごっそり消えています。ベッキー宛、mew-1.92 に送っ
> たメールは読めました。

Hayashi> 要するに、メールの作成〜送信は問題なさそうで、受け取ったメールを開くと
Hayashi> 本文が何もないように見える、ということで私と同じですね。
Hayashi> ほかの方は(19.28 な人も)皆さん問題なく読めているのでしょうか？

emacs20.2 + pgp5 と emacs19.28.1 + pgp2.6 で試してみましたが、読
めませんでした。
(setq mew-debug t) にしてみると、上記の組合せが両方とも、

Signalling: (search-failed "Unsupported packet format")
  search-forward("Unsupported packet format")
  mew-pgp-verify-check()
  mew-pgp-decrypt("/tmp/shiraia001pg/mewg001pg" "/tmp/shiraia001pg/mewh001pg")
  mew-decode-multipart-encrypted([single 1323 nil nil ("Multipart/Encrypted" "protocol=\"application/pgp-encrypted\"" "boundary=\"--Security_Multipart(Mon_Jul__6_15:05:16_1998_219)--\"") nil nil nil nil] nil)
  mew-decode-singlepart(nil message nil)
  mew-decode-message([message 1 nil nil ("Message/Rfc822") nil nil nil nil] nil)
  mew-decode("+inbox" "53")

と b45 から増えた mew-pgp-msg-unsupported の検索に失敗しています。

もしかして、こういうことですか?

--- mew-pgp.el~ Sun Jul  5 20:32:35 1998
+++ mew-pgp.el  Mon Jul  6 15:21:55 1998
@@ -132,7 +132,7 @@
          (if (search-forward (mew-pgp-get mew-pgp-msg-no-keyring) nil t)
              (setq ret mew-pgp-result-pubring)
            (goto-char (point-min))
-           (if (search-forward (mew-pgp-get mew-pgp-msg-unsupported))
+           (if (search-forward (mew-pgp-get mew-pgp-msg-unsupported) nil t)
                (setq ret mew-pgp-result-unsup))))
       ;; Signature result is found.
       (if (equal mew-pgp-ver mew-pgp-ver2)

## mew-pgp-msg-unsupported が増えた根拠を理解しないでいってます。

-- 
白井秀行 (Hideyuki SHIRAI)