[Mew-dist 07482] Re: [Mew-Win32 01183] Search failed: "gpg" on MEW194B6.ZIP

[Shun-ichi GOTO]

後藤＠太陽計測です
Cc: mew-dist

>>>>> in Subject: [Mew-Win32 01183] Search failed: "gpg" on MEW194B6.ZIP
>>>>> at Wed, 17 Feb 1999 11:18:58 +0900 (JST)
>>>>> 岡田 <m1-okada at example.com> said,

岡田> diff -u mew-pgp.el.orig mew-pgp.el

岡田> --- mew-pgp.el.orig     Sat Feb 13 12:44:06 1999
岡田> +++ mew-pgp.el  Wed Feb 17 11:13:01 1999
岡田> @@ -155,7 +155,7 @@
岡田>           (if (search-forward "Pretty Good Privacy(tm) 2" nil t)
岡田>               (setq mew-pgp-ver mew-pgp-ver2)
岡田>             (goto-char (point-min))
岡田> -           (if (search-forward "gpg")
岡田> +           (if (search-forward "pgp")
岡田>                 (setq mew-pgp-ver mew-pgp-verg)
岡田>               (setq mew-pgp-ver nil))))))))

岡田> のように、typoが原因と思われます。

いや、そうではなく、本質的には (search-forward xxx nil t)としていないのが
問題なのでしょう。なので、上記ではなく、こうなるべきかと

> -           (if (search-forward "gpg")
> +           (if (search-forward "gpg" nil t)


＃ gpgはpgpのtypoではなく、そういうものです(^^;

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN