From: teranisi Date: Mon, 20 Aug 2001 16:12:01 +0000 (+0000) Subject: 2001-08-20 Tatsuya Kinoshita X-Git-Tag: wl-2_6_1~44 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3c93a16b9d0febb052b06aec47d801323b9d8a8e;p=elisp%2Fwanderlust.git 2001-08-20 Tatsuya Kinoshita * 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 --- 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