From: teranisi <teranisi>
Date: Mon, 9 Aug 2004 14:04:17 +0000 (+0000)
Subject: (elmo-pop3-read-response): Refined the regexp for response codes.
X-Git-Tag: wl-2_11_31~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aa1b099b1c97dcab8382353726f03298981ef6df;p=elisp%2Fwanderlust.git

(elmo-pop3-read-response): Refined the regexp for response codes.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 9c97db0..df9f61b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,6 +1,11 @@
 2004-08-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
-	* elmo-pop3.el (elmo-pop3-read-response): Treat return code.
+	* elmo-pop3.el (elmo-pop3-read-response): Refined the regexp for
+	response codes.
+
+2004-08-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-pop3-read-response): Treat response codes.
 	(elmo-network-close-session): Follow the changes in
 	`elmo-pop3-read-response'.
 	(elmo-pop3-auth-user): Ditto.
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 30fc8b2..e82ee97 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -236,7 +236,7 @@ CODE is one of the following:
 		      response-string)))
 	  (if (looking-at "\\-.*$")
 	      (progn
-		(when (looking-at "[^ ]+ \\[\\(.*\\)\\]")
+		(when (looking-at "[^ ]+ \\[\\([^]]+\\)\\]")
 		  (setq return-value
 			(intern
 			 (downcase