From 1f9e6d5fcca55a9b4fdb6ecdae57f7a6883ed674 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 7 Feb 2003 16:19:12 +0000 Subject: [PATCH] 2003-02-08 KAMO Tomoyuki * elmo-nntp.el (elmo-nntp-get-folders-info): Don't use replace-regexp. --- elmo/ChangeLog | 5 +++++ elmo/elmo-nntp.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 1105c48..9a8ef21 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2003-02-08 KAMO Tomoyuki + + * elmo-nntp.el (elmo-nntp-get-folders-info): Don't use + replace-regexp. + 2003-02-08 Yoichi NAKAYAMA * elmo-version.el (elmo-version): Up to 2.11.2. diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el index 62867ec..7ec2c2f 100644 --- a/elmo/elmo-nntp.el +++ b/elmo/elmo-nntp.el @@ -1272,11 +1272,11 @@ Returns a list of cons cells like (NUMBER . VALUE)" (postfix (elmo-nntp-folder-postfix user server port type))) (if (not (string= postfix "")) (save-excursion - (replace-regexp "^\\(211 [0-9]+ [0-9]+ [0-9]+ [^ \n]+\\).*$" - (concat "\\1" - (elmo-replace-in-string - postfix - "\\\\" "\\\\\\\\\\\\\\\\")))))) + (while (re-search-forward "^\\(211 [0-9]+ [0-9]+ [0-9]+ [^ \n]+\\)\\(.*\\)$" nil t) + (replace-match (concat (match-string 1) + (elmo-replace-in-string + postfix + "\\\\" "\\\\\\\\\\\\\\\\"))))))) (let (len min max group) (while (not (eobp)) (condition-case () -- 1.7.10.4