From 3c93a16b9d0febb052b06aec47d801323b9d8a8e Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 20 Aug 2001 16:12:01 +0000 Subject: [PATCH] 2001-08-20 Tatsuya Kinoshita * elmo-pop3.el (elmo-pop3-parse-uidl-response): Allow multiple space delimiter for uidl response. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pop3.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 1e03aeb..6e8ca06 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-08-20 Tatsuya Kinoshita + + * elmo-pop3.el (elmo-pop3-parse-uidl-response): Allow multiple + space delimiter for uidl response. + 2001-07-28 Kenichi OKADA * elmo-nntp.el (elmo-network-initialize-session): Call diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 6016b36..2339711 100644 --- 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 -- 1.7.10.4