From: teranisi <teranisi>
Date: Fri, 1 Dec 2000 04:00:54 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-get-folders-info): Fixed problem when '\' character
X-Git-Tag: wl-2_4_1pre~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7d4dd8d71cba295dd0a57e5719cfde912bb237a1;p=elisp%2Fwanderlust.git

* elmo-nntp.el (elmo-nntp-get-folders-info): Fixed problem when '\' character
 is contained in user-id.  (Reported by Yoichiro Okabe <okabe@wizsoft.co.jp>)
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index c2e0d37..1e5827b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2000-12-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-nntp.el (elmo-nntp-get-folders-info):
+	Fixed problem when '\' character is contained in user-id.
+	(Reported by Yoichiro Okabe <okabe@wizsoft.co.jp>)
+
+
 2000-11-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-imap4.el (elmo-imap4-delete-folder):
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index 376bf47..1cc964c 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -1141,7 +1141,10 @@ Returns a list of cons cells like (NUMBER . VALUE)"
 	    (if (not (string= postfix ""))
 		(save-excursion
 		  (replace-regexp "^\\(211 [0-9]+ [0-9]+ [0-9]+ [^ \n]+\\).*$"
-				  (concat "\\1" postfix)))))
+				  (concat "\\1"
+					  (elmo-replace-in-string
+					   postfix
+					   "\\\\" "\\\\\\\\"))))))
 	  (let (len min max group)
 	    (while (not (eobp))
 	      (condition-case ()