2003-02-08 KAMO Tomoyuki <kamo@ITmanage.co.jp>

	* elmo-nntp.el (elmo-nntp-get-folders-info): Don't use
	replace-regexp.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 1105c48..9a8ef21 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-08  KAMO Tomoyuki  <kamo@ITmanage.co.jp>
+
+       * elmo-nntp.el (elmo-nntp-get-folders-info): Don't use
+       replace-regexp.
+
 2003-02-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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 ()