From: teranisi Date: Mon, 20 Aug 2001 16:09:34 +0000 (+0000) Subject: 2001-08-20 Tatsuya Kinoshita X-Git-Tag: wl-2_7_3~28 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b771e4e3de257362e19634de9c34834a22dbfd2d;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 d274f6a..c2812ac 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-08-20 Yuuichi Teranishi * 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