[Mew-dist 14036] mew-pop.el patch for Mew 1.95b56

[Tatsuya Kinoshita]

Mew 1.95b56 の POP について。

下記のような動作をする POP サーバを確認しました。対策用のパッチを
投げます。

* UIDL で「1  <xxx at example.com>」というふうに、数字、ID 間の空白が
  1文字でなく2文字ある。(match しない)

* UIDL で「+OK 7 messages」というふうに「+OK」のあとに余分な文字
  がある。(余分に match する)

-- 
木下達也 (Tatsuya Kinoshita)
E-mail: tats at example.com, tatsuyak at example.com
-------------- next part --------------
--- mew-1.95b56/mew-pop.el	Wed Aug 30 11:13:01 2000
+++ mew-1.95b56-tats20000901/mew-pop.el	Fri Sep  1 17:15:14 2000
@@ -513,7 +513,7 @@
   (let ((old-msgs (mew-pop-get-messages pnm))
 	(old-uidl (mew-pop-uidl-get pnm))
 	nm id msgs uidl n)
-    (while (re-search-forward "\\([0-9]+\\) \\([!-~]+\\)" nil t)
+    (while (re-search-forward "^\\([0-9]+\\) +\\([!-~]+\\)" nil t)
       (setq nm (mew-match 1))
       (setq id (mew-match 2))
       (setq uidl (cons id uidl))