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 (file)
--- 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 (file)
--- 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