From: yoichi <yoichi>
Date: Fri, 7 Feb 2003 16:19:12 +0000 (+0000)
Subject: 2003-02-08  KAMO Tomoyuki  <kamo@ITmanage.co.jp>
X-Git-Tag: wl-2_11_3~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1f9e6d5fcca55a9b4fdb6ecdae57f7a6883ed674;p=elisp%2Fwanderlust.git

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
--- 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
--- 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 ()