From: teranisi <teranisi>
Date: Mon, 20 Aug 2001 16:09:34 +0000 (+0000)
Subject: 2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
X-Git-Tag: wl-2_7_3~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b771e4e3de257362e19634de9c34834a22dbfd2d;p=elisp%2Fwanderlust.git

2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>

	* elmo-pop3.el (elmo-pop3-parse-uidl-response): Allow multiple
	space delimiter for uidl response.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d274f6a..c2812ac 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-20  Tatsuya Kinoshita <tats@iris.ne.jp>
+
+	* elmo-pop3.el (elmo-pop3-parse-uidl-response): Allow multiple
+	space delimiter for uidl response.
+
 2001-08-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-vars.el (elmo-use-semi): Eliminated.
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 23660a4..ef2ca15 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -489,7 +489,7 @@ Debug information is inserted in the buffer \"*POP3 DEBUG*\"")
       (let (number uid list)
 	(insert string)
 	(goto-char (point-min))
-	(while (re-search-forward "^\\([0-9]+\\)[\t ]\\([^ \n]+\\)$" nil t)
+	(while (re-search-forward "^\\([0-9]+\\)[\t ]+\\([^ \n]+\\)$" nil t)
 	  (setq number  (elmo-match-buffer 1))
 	  (setq uid (elmo-match-buffer 2))
 	  (with-current-buffer buffer