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 1e03aeb..6e8ca06 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-07-28  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo-nntp.el (elmo-network-initialize-session): Call

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 6016b36..2339711 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -380,7 +380,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